home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The AGA Experience 2
/
agavol2.iso
/
software
/
utilities
/
comms
/
metamail-2.3a
/
elm113diffs.lha
/
f3.diff
< prev
next >
Wrap
Text File
|
1992-05-02
|
2KB
|
115 lines
*** Elm113/f3.c Sat Apr 18 14:52:52 1992
--- new/f3.c Fri May 01 02:58:12 1992
***************
*** 10,15 ****
--- 10,20 ----
#include <proto/dos.h>
#include <proto/reqtools.h>
#endif
+ #ifdef DICE
+ #include <clib/dos_protos.h>
+ #include <clib/exec_protos.h>
+ #include <clib/reqtools_protos.h>
+ #endif
#include <libraries/reqtools.h>
#include <time.h>
***************
*** 668,675 ****
! void status_msg(char *msg, long delay_time)
{
int hpos;
if (intui_interface()) {
hpos = (Win_Width-strlen(msg))/2;
--- 673,697 ----
! #ifdef DICE
! /* DICE has a compiler option '-gs' for supporting dynamic stack allocation.
! * At each procedure call the code will check if less than 2000 bytes of
! * free stack remains. If so, then more stack is allocted. If this allocation
! * fails (because we are out of memory), stack_abort() is called.
! *
! * A requirement for dynamic stack allocation to work is that no procedure has
! * more than (about) 2000 bytes of local variables.
! */
! void stack_abort(void)
{
+ clean_exit(20);
+ }
+ #endif
+
+
+
+ void status_msg(char *msg, long delay_time)
+ {
int hpos;
if (intui_interface()) {
hpos = (Win_Width-strlen(msg))/2;
***************
*** 686,693 ****
! char *parse_arpa_from(char *str)
{
/** try to parse the 'From:' line given... It can be in one of
two formats:
From: Dave Taylor <hpcnou!dat>
--- 708,738 ----
! #ifdef DICE
! char *strrev(char *s)
{
+ char *head, *tail;
+ char temp;
+
+ head = s;
+ tail = s + strlen(s);
+ tail--;
+
+ while (head < tail) {
+ temp = *head;
+ *head = *tail;
+ *tail = temp;
+ head++;
+ tail--;
+ }
+ return(s);
+ }
+ #endif
+
+
+
+ char *parse_arpa_from(char *str)
+ {
/** try to parse the 'From:' line given... It can be in one of
two formats:
From: Dave Taylor <hpcnou!dat>
***************
*** 739,744 ****
--- 784,790 ----
strrev(temp);
}
+ #if 0
/*
/* We want a REAL name... else NULL... */
***************
*** 770,775 ****
--- 816,822 ----
}
}
*/
+ #endif
temp = delete_wspaces_begin(temp);
delete_wspaces_end(temp);