home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / fd / utility.affi < prev    next >
Text File  |  1977-12-31  |  2KB  |  45 lines
  1. (in-package "AFFI")
  2. (declare-library-base :UTILITYBASE "utility.library")
  3. (format *error-output* "~&;;; Warning: Please adapt the prototypes for ~S manually!~%" "utility.library")
  4.  
  5. (defflibfun 'FINDTAGITEM 'UTILITYBASE -30 #x91 '* '* '*)
  6. (defflibfun 'GETTAGDATA 'UTILITYBASE -36 #x921 '* '* '* '*)
  7. (defflibfun 'PACKBOOLTAGS 'UTILITYBASE -42 #xA91 '* '* '* '*)
  8. (defflibfun 'NEXTTAGITEM 'UTILITYBASE -48 #x9 '* '*)
  9. (defflibfun 'FILTERTAGCHANGES 'UTILITYBASE -54 #x1A9 '* '* '* '*)
  10. (defflibfun 'MAPTAGS 'UTILITYBASE -60 #x1A9 '* '* '* '*)
  11. (defflibfun 'ALLOCATETAGITEMS 'UTILITYBASE -66 #x1 '* 4)
  12. (defflibfun 'CLONETAGITEMS 'UTILITYBASE -72 #x9 '* '*)
  13. (defflibfun 'FREETAGITEMS 'UTILITYBASE -78 #x9 () :external)
  14. (defflibfun 'REFRESHTAGITEMCLONES 'UTILITYBASE -84 #xA9 '* '* '*)
  15. (defflibfun 'TAGINARRAY 'UTILITYBASE -90 #x91 '* '* '*)
  16. (defflibfun 'FILTERTAGITEMS 'UTILITYBASE -96 #x1A9 '* '* '* '*)
  17. (defflibfun 'CALLHOOKPKT 'UTILITYBASE -102 #xAB9 '* '* '* '*)
  18. (defflibfun 'AMIGA2DATE 'UTILITYBASE -120 #x91 '* '* '*)
  19. (defflibfun 'DATE2AMIGA 'UTILITYBASE -126 #x9 '* '*)
  20. (defflibfun 'CHECKDATE 'UTILITYBASE -132 #x9 '* '*)
  21. (defflibfun 'SMULT32 'UTILITYBASE -138 #x21 '* '* '*)
  22. (defflibfun 'UMULT32 'UTILITYBASE -144 #x21 '* '* '*)
  23. (defflibfun 'SDIVMOD32 'UTILITYBASE -150 #x21 '* '* '*)
  24. (defflibfun 'UDIVMOD32 'UTILITYBASE -156 #x21 '* '* '*)
  25. (defflibfun 'STRICMP 'UTILITYBASE -162 #xA9 '* '* '*)
  26. (defflibfun 'STRNICMP 'UTILITYBASE -168 #x1A9 '* '* '* '*)
  27. (defflibfun 'TOUPPER 'UTILITYBASE -174 #x1 '* '*)
  28. (defflibfun 'TOLOWER 'UTILITYBASE -180 #x1 '* '*)
  29. (defflibfun 'APPLYTAGCHANGES 'UTILITYBASE -186 #xA9 '* '* '*)
  30. (defflibfun 'SMULT64 'UTILITYBASE -198 #x21 '* '* '*)
  31. (defflibfun 'UMULT64 'UTILITYBASE -204 #x21 '* '* '*)
  32. (defflibfun 'PACKSTRUCTURETAGS 'UTILITYBASE -210 #xBA9 '* '* '* '*)
  33. (defflibfun 'UNPACKSTRUCTURETAGS 'UTILITYBASE -216 #xBA9 '* '* '* '*)
  34. (defflibfun 'ADDNAMEDOBJECT 'UTILITYBASE -222 #xA9 '* '* '*)
  35. (defflibfun 'ALLOCNAMEDOBJECTA 'UTILITYBASE -228 #xA9 '* '* '*)
  36. (defflibfun 'ATTEMPTREMNAMEDOBJECT 'UTILITYBASE -234 #x9 '* '*)
  37. (defflibfun 'FINDNAMEDOBJECT 'UTILITYBASE -240 #xBA9 '* '* '* '*)
  38. (defflibfun 'FREENAMEDOBJECT 'UTILITYBASE -246 #x9 '* '*)
  39. (defflibfun 'NAMEDOBJECTNAME 'UTILITYBASE -252 #x9 '* '*)
  40. (defflibfun 'RELEASENAMEDOBJECT 'UTILITYBASE -258 #x9 '* '*)
  41. (defflibfun 'REMNAMEDOBJECT 'UTILITYBASE -264 #xA9 '* '* '*)
  42. (defflibfun 'GETUNIQUEID 'UTILITYBASE -270 #x0 '*)
  43.  
  44. (provide "utility.library")
  45.