home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / c / rxsysglu.lha / RexxSys_Lib.Fd < prev    next >
Text File  |  1990-09-10  |  3KB  |  103 lines
  1. * $Id: rexxsys_lib.fd,v 34.1 90/09/07 13:07:31 Piet Exp $
  2. *
  3. * FD-File for rexxsyslib.library
  4. * Created 18-Aug-90 by Peter Vohmann
  5. *
  6. ##base _RexxSysBase
  7. ##bias 30
  8. ##private
  9. * Main entry point:
  10. Rexx()
  11. * These are really private
  12. rxParse()
  13. rxInstruct()
  14. rxSuspend()
  15. EvalOp()
  16. AssignValue()
  17. EnterSymbol()
  18. FetchValue()
  19. LookUpValue()
  20. SetValue()
  21. SymExpand()
  22. * that one needs glue
  23. ErrorMsg(code)(D0)
  24. ##public
  25. IsSymbol(string)(A0)
  26. CurrentEnv(rxtptr)(A0)
  27. GetSpace(envptr,length)(A0,D0)
  28. FreeSpace(envptr,block,length)(A0,A1,D0)
  29. CreateArgstring(string,length)(A0,D0)
  30. DeleteArgstring(argstring)(A0)
  31. LengthArgstring(argptr)(A0)
  32. CreateRexxMsg(replyport,extension,host)(A0,A1,D0)
  33. DeleteRexxMsg(packet)(A0)
  34. ClearRexxMsg(msgptr,count)(A0,D0)
  35. FillRexxMsg(msgptr,count,mask)(A0,D0,D1)
  36. IsRexxMsg(msgptr)(A0)
  37. AddRsrcNode(list,name,length)(A0,A1,D0)
  38. FindRsrcNode(list,name,type)(A0,A1,D0)
  39. RemRsrcList(list)(A0)
  40. RemRsrcNode(node)(A0)
  41. OpenPublicPort(list,name)(A0,A1)
  42. ClosePublicPort(node)(A0)
  43. ListNames(list,separator)(A0,D0)
  44. ClearMem(address,length)(A0,D0)
  45. InitList(list)(A0)
  46. InitPort(port)(A0)
  47. FreePort(port)(A0)
  48. CmpString(ss1,ss2)(A0,A1)
  49. ##private
  50. * four result codes - no C glue available (?)
  51. StcToken(string)(A0)
  52. ##public
  53. StrcmpN(string1,string2,length)(A0,A1,D0)
  54. StrcmpU(string1,string2,length)(A0,A1,D0)
  55. ##private
  56. * this one's obsolete
  57. StrcpyA(destination,source,length)(A0,A1,D0)
  58. ##public
  59. StrcpyN(destination,source,length)(A0,A1,D0)
  60. StrcpyU(destination,source,length)(A0,A1,D0)
  61. StrflipN(string,length)(A0,D0)
  62. Strlen(string)(A0)
  63. ToUpper(character)(D0)
  64. ##private
  65. * These one needs glue, returns two results!
  66. CVa2i(buffer)(A0)
  67. ##public
  68. CVi2a(buffer,value,digits)(A0,D0,D1)
  69. CVi2arg(value)(D0)
  70. CVi2az(buffer,value,digits)(A0,D0,D1)
  71. CVc2x(outbuff,string,length,mode)(A0,A1,D0,D1)
  72. CVx2c(outbuff,string,length,mode)(A0,A1,D0,D1)
  73. OpenF(list,filename,mode,logical)(A0,A1,D0,D1)
  74. CloseF(IoBuff)(A0)
  75. ReadStr(IoBuff,buffer,length)(A0,A1,D0)
  76. ReadF(IoBuff,buffer,length)(A0,A1,D0)
  77. WriteF(IoBuff,buffer,length)(A0,A1,D0)
  78. SeekF(IoBuff,offset,anchor)(A0,D0,D1)
  79. QueueF(IoBuff,buffer,length)(A0,A1,D0)
  80. StackF(IoBuff,buffer,length)(A0,A1,D0)
  81. ExistF(filename)(A0)
  82. DOSCommand(string,filehandle)(A0,A1)
  83. DOSRead(filehandle,buffer,length)(A0,A1,D0)
  84. DOSWrite(filehandle,buffer,length)(A0,A1,D0)
  85. ##private
  86. * obsolete functions
  87. CreateDOSPkt()()
  88. DeleteDOSPkt(message)(A0)
  89. * private again
  90. SendDOSPkt()
  91. WaitDOSPkt()
  92. ##public
  93. FindDevice(devicename,type)(A0,D0)
  94. AddClipNode(list,name,length,value)(A0,A1,D0,D1)
  95. RemClipNode(node)(A0)
  96. LockRexxBase(resource)(D0)
  97. UnlockRexxBase(resource)(D0)
  98. ##private
  99. CreateCLI()
  100. DeleteCLI()
  101. CVs2i()
  102. ##end
  103.