home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff201.lzh / Draco / drinc / util.g < prev   
Text File  |  1989-04-03  |  2KB  |  80 lines
  1. type
  2.  
  3. „/*resultfromthestringcomparisonroutine:*/
  4.  
  5. „COMPARISON=enum{
  6. ˆEQUAL,
  7. ˆLESS,
  8. ˆGREATER
  9. „};
  10.  
  11. „/*errorcodesreturnedby'IOerror':*/
  12.  
  13. „ushort
  14. ˆCH_OK=0,Ž/*noerror*/
  15.  
  16. ˆCH_EOF=1,/*readpastend-of-fileindicator*/
  17. ˆCH_CLOSED=2,Š/*useafterclose*/
  18.  
  19. ˆCH_NONEXIS=3,‰/*filedoesn'texist*/
  20. ˆCH_DISKFULL=4,ˆ/*diskisfull;writefailed*/
  21. ˆCH_BADSEEK=5,‰/*badseekcall*/
  22.  
  23. ˆCH_MISSING=6,‰/*nodataonline*/
  24. ˆCH_BADCHAR=7,‰/*badcharacterforinputconversion*/
  25. ˆCH_OVERFLOW=8,ˆ/*overflowonnumericconversion*/
  26. ˆCH_UNDERFLOW=9,‡/*underflowonfloatingpointinput*/
  27.  
  28. ˆCH_BADREAD=10;ˆ/*thesystemreadcallfailed!*/
  29.  
  30. /*resultfromLineReadwhenwegetendoffile:*/
  31.  
  32. ulongLINE_EOF=0xffffffff;
  33.  
  34. extern
  35.  
  36. „CharsLen(*charcharsPtr)ulong,
  37. „CharsEqual(*charcharsPtr1,charsPtr2)bool,
  38. „CharsCopy(*chardest,source)void,
  39. „CharsCmp(*charcharsPtr1,charsPtr2)COMPARISON,
  40. „CharsConcat(*chardest,source)void,
  41. „CharsCopyN(*chardest,source;ulongn)void,
  42. „CharsIndex(*charsubject,object)long,
  43.  
  44. „exit(longstatus)void,
  45.  
  46. „ConvTime(ulongseconds;*charbuffer)void,
  47. „GetCurrentTime()ulong,
  48.  
  49. „GetPar()*char,
  50. „RescanPars()void,
  51.  
  52. „FileCreate(*charfileName)bool,
  53. „FileDestroy(*charfileName)boid,
  54. „FileRename(*charoldName,newName)bool,
  55.  
  56. „RawRead(channelinputbinarychan;arbptrbuffer;ulongcount)ulong,
  57. „RawWrite(channeloutputbinarychan;arbptrbuffer;ulongcount)ulong,
  58. „LineRead(channelinputtextchan;*charbuffer;ulongcount)ulong,
  59. „LineWrite(channeloutputtextchan;*charbuffer;ulongcount)ulong,
  60. „RandomOut(channeloutputbinarychan)void,
  61. „ReOpen(channelinputbinarych1;channeloutputbinarych2)void,
  62. „SeekIn(channelinputbinarychan;ulongposition)bool,
  63. „SeekOut(channeloutputbinarychan;ulongposition)bool,
  64. „TextAppend(channeloutputtextchan)bool,
  65. „LineFlush()void,
  66. „GetIn(channelinputbinarychan)ulong,
  67. „GetOut(channeloutputbinarychan)ulong,
  68. „GetInMax(channelinputbinarychan)ulong,
  69. „GetOutMax(channeloutputbinarychan)ulong,
  70. „FlushOut(channeloutputbinarychan)void,
  71.  
  72. „Malloc(ulonglength)arbptr,
  73. „Mfree(arbptrregion;ulonglength)void,
  74. „MerrorSet(boolnewFlag)void,
  75. „MerrorGet()bool,
  76.  
  77. „BlockCopy(arbptrdest,source;ulongcount)void,
  78. „BlockFill(arbptrdest;ulongcount;bytevalu)void,
  79. „BlockCopyB(arbptrdest,source;ulongcount)void;
  80.