home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / compiler / m2posx14 / src / ansic.ipp < prev    next >
Encoding:
Modula Implementation  |  1994-05-13  |  1.9 KB  |  76 lines
  1. IMPLEMENTATION MODULE ANSIC;
  2. __IMP_SWITCHES__
  3. #ifdef HM2
  4. #ifdef __LONG_WHOLE__
  5. (*$!i+: Modul muss mit $i- uebersetzt werden! *)
  6. (*$!w+: Modul muss mit $w- uebersetzt werden! *)
  7. #else
  8. (*$!i-: Modul muss mit $i+ uebersetzt werden! *)
  9. (*$!w-: Modul muss mit $w+ uebersetzt werden! *)
  10. #endif
  11. #endif
  12. #if ISO_proc_const
  13. (*empty*)
  14. #else
  15.  
  16. IMPORT cmdline,loc,ctype,cstr,lib,tim,sig,proc,MEMBLK;
  17.  
  18. (*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
  19.  
  20. BEGIN (* ANSIC *)
  21.   isalnum    := ctype.isalnum;
  22.   isalpha    := ctype.isalpha;
  23.   iscntrl    := ctype.iscntrl;
  24.   isdigit    := ctype.isdigit;
  25.   isgraph    := ctype.isgraph;
  26.   islower    := ctype.islower;
  27.   isprint    := ctype.isprint;
  28.   ispunct    := ctype.ispunct;
  29.   isspace    := ctype.isspace;
  30.   isupper    := ctype.isupper;
  31.   isxdigit   := ctype.isxdigit;
  32.   tolower    := ctype.tolower;
  33.   toupper    := ctype.toupper;
  34.  
  35.   strlen     := cstr.strlen;
  36.   strcpy     := cstr.strcpy;
  37.   strncpy    := cstr.strncpy;
  38.   strcat     := cstr.strcat;
  39.   strncat    := cstr.strncat;
  40.   strcmp     := cstr.strcmp;
  41.   strncmp    := cstr.strncmp;
  42.   strchr     := cstr.strchr;
  43.   strrchr    := cstr.strrchr;
  44.   strstr     := cstr.strstr;
  45.   strpbrk    := cstr.strpbrk;
  46.   strerror   := cstr.strerror;
  47.  
  48.   main       := cmdline.main;
  49.   getenv     := cmdline.getenv;
  50.  
  51.   atoi       := lib.atoi;
  52.   atol       := lib.atol;
  53.   strtol     := lib.strtol;
  54.   strtoul    := lib.strtoul;
  55.   bsearch    := lib.bsearch;
  56.   qsort      := lib.qsort;
  57.   rand       := lib.rand;
  58.   srand      := lib.srand;
  59.  
  60.   clock      := proc.clock;
  61.  
  62.   signal     := sig.signal;
  63.   raise      := sig.raise;
  64.  
  65.   memmove    := MEMBLK.memmove;
  66.   memcpy     := MEMBLK.memmove; (* Kein Schreibfehler, Synonym *)
  67.   memset     := MEMBLK.memset;
  68.   memchr     := MEMBLK.memchr;
  69.   memcmp     := MEMBLK.memcmp;
  70.  
  71.   difftime   := tim.difftime;
  72.  
  73.   localeconv := loc.localeconv;
  74. #endif
  75. END ANSIC.
  76.