home *** CD-ROM | disk | FTP | other *** search
/ Dream 57 / Amiga_Dream_57.iso / Amiga / Programmation / e / Modules / AmiTCP_beta.lha / Src / AmiTCP / stdio.e < prev    next >
Encoding:
Text File  |  1996-08-11  |  1.9 KB  |  95 lines
  1. OPT MODULE, PREPROCESS
  2. OPT EXPORT
  3.  
  4. MODULE 'dos/stdio',
  5.        'dos/dos'
  6.  
  7. #define fpos_t LONG
  8.  
  9. CONST IOFBF=BUF_FULL,
  10.       IONBF=BUF_NONE,
  11.       IOLBF=BUF_LINE
  12.  
  13. CONST BUFSIZ=512,
  14.       EOF=ENDSTREAMCH,
  15.       FOPEN_MAX=20,
  16.       FILENAME_MAX=64,
  17.       L_TMPNAM=64
  18.  
  19. CONST SEEK_SET=OFFSET_BEGINNING,
  20.       SEEK_CUR=OFFSET_CURRENT,
  21.       SEEK_END=OFFSET_END
  22.  
  23. CONST TMP_MAX=999
  24.  
  25. PROC remove(name) IS Not(DeleteFile(name))
  26.  
  27. PROC rename(oldname, newname) IS Not(Rename(oldname, newname))
  28.  
  29. PROC fclose(f) IS Not(Close(f))
  30.  
  31. PROC fflush(f) IS IF Flush(f) THEN 0 ELSE EOF
  32.  
  33. PROC setvbuf(fh, buff, type, size) IS SetVBuf(fh, buff, type, size)
  34.  
  35. -> fprintf is not defined since FPrintf does not exist (use VfPrintf)
  36. -> printf is not defined since Printf does not exist (use VPrintf)
  37.  
  38. -> sprintf is in net.lib?
  39.  
  40. #define vfprintf VfPrintf
  41. #define vprintf Vprintf
  42.  
  43. -> vsprintf is in net.lib?
  44.  
  45. #define fgetc FgetC
  46.  
  47. PROC fgets(buf,len,fh) IS Fgets(fh, buf, len)
  48.  
  49. PROC fputc(c,fh) IS FputC(fh, c)
  50.  
  51. PROC fputs(str,fh) IS Fputs(fh, str)
  52.  
  53. #define getc fgetc
  54.  
  55. PROC getchar() IS getc(stdin)
  56.  
  57. PROC gets(buf) IS fgets(buf, 1024, stdin)
  58.  
  59. #define putc fputc
  60.  
  61. PROC putchar(c) IS putc(c, stdout)
  62.  
  63. PROC puts(str) IS fputs(str, stdout)
  64.  
  65. PROC ungetc(c,fh) IS UnGetC(fh, c)
  66.  
  67. PROC fread(buf,blocklen,blocks,fh) IS Fread(fh, buf, blocklen, blocks)
  68.  
  69. PROC fwrite(buf,blocklen,blocks,fh) IS Fwrite(fh, buf, blocklen, blocks)
  70.  
  71. PROC fgetpos(fh, fposp:PTR TO LONG)
  72.   fposp[]:=Seek(fh, 0, OFFSET_CURRENT)
  73. ENDPROC fposp[]=-1
  74.  
  75. #define fseek Seek
  76.  
  77. PROC fsetpos(fh, fposp:PTR TO LONG)
  78. ENDPROC IF Seek(fh, fposp[], OFFSET_BEGINNING)=-1 THEN EOF ELSE 0
  79.  
  80. PROC ftell(fh) IS Seek(fh, 0, OFFSET_CURRENT)
  81.  
  82. PROC rewind(fh) IS Seek(fh, 0, OFFSET_BEGINNING)
  83.  
  84. CONST F_OK=0
  85. SET X_OK, W_OK, R_OK
  86.  
  87. PROC fgetchar() IS fgetc(stdin)
  88.  
  89. PROC fputchar(c) IS fputc(c, stdout)
  90.  
  91. PROC setnbf(fh) IS SetVBuf(fh, NIL, BUF_NONE, -1)
  92.  
  93. #define clrerr clearerr
  94. #define access __access
  95.