home *** CD-ROM | disk | FTP | other *** search
- *** 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);
-