home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / utility.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  3.0 KB  |  65 lines
  1. {$if not def UTILITY_LIB_H} CONST UTILITY_LIB_H=0;
  2.  
  3. { *************************************************************
  4.   ** KickPascal-Include-Datei "utility.lib" zu Kickstart 3.0 **
  5.   ************************************************************* }
  6.  
  7. {$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}
  8. {$if not def UTILITY_TAGITEM_H;incl "utility/tagitem.h";endif}
  9. {$if not def UTILITY_DATE_H;incl "utility/date.h";endif}
  10. {$if not def UTILITY_HOOKS_H;incl "utility/hooks.h";endif}
  11. {$if not def UTILITY_NAME_H;incl "utility/name.h";endif}
  12.  
  13. VAR UtilityBase : Ptr;
  14.  
  15. LIBRARY UtilityBase :
  16.  
  17. { **** Routinen ab V36 / Release 2.0  **** }
  18.  
  19.  -30 : FUNCTION  FindTagItem(D0:Tag; A0:p_TagItem): p_TagItem;
  20.  -36 : FUNCTION  GetTagData(D0:Tag; D1:Long; A0:p_TagItem): Long;
  21.  -42 : FUNCTION  PackBoolTags(D0:Long; A0:p_TagItem; A1:p_TagItem): Long;
  22.  -48 : FUNCTION  NextTagItem(A0: Ptr): p_TagItem;
  23.  -54 : PROCEDURE FilterTagChanges(A0:p_TagItem; A1:p_TagItem; D0:LongInt);
  24.  -60 : PROCEDURE MapTags(A0:p_TagItem; A1:p_TagItem; D0:LongInt);
  25.  -66 : FUNCTION  AllocateTagItems(D0:Long): p_TagItem;
  26.  -72 : FUNCTION  CloneTagItems(A0:p_TagItem): p_TagItem;
  27.  -78 : PROCEDURE FreeTagItems(A0:p_TagItem);
  28.  -84 : PROCEDURE RefreshTagItemClones(A0,A1:p_TagItem);
  29.  -90 : FUNCTION  TagInArray(D0:Tag; A0:p_Tag): Boolean;
  30.  -96 : FUNCTION  FilterTagItems(A0,A1:p_TagItem; D0:LongInt): LongInt;
  31. -102 : FUNCTION  CallHookPkt(A0:p_Hook; A2:Ptr; A1:Ptr) : Long;
  32. { *** 2 private Routinen *** }
  33. -120 : PROCEDURE Amiga2Date(D0:Long; A0:p_ClockData);
  34. -126 : FUNCTION  Date2Amiga(A0:p_ClockData): Long;
  35. -132 : FUNCTION  CheckDate(A0:p_ClockData): Long;
  36. -138 : FUNCTION  SMult32(D0,D1:LongInt): LongInt;
  37. -144 : FUNCTION  Mult32(D0,D1:Long): Long;
  38. -150 : FUNCTION  SDivMod32(D0,D1:LongInt): LongInt;
  39. -156 : FUNCTION  DivMod32(D0,D1:Long): Long;
  40.  
  41. { **** Routinen ab V37 / Release 2.04  **** }
  42. -162 : FUNCTION  Stricmp(A0,A1:Str): LongInt;
  43. -168 : FUNCTION  Strnicmp(A0,A1:Str; D0:LongInt): LongInt;
  44. -174 : FUNCTION  ToUpper(D0:char): char;
  45. -180 : FUNCTION  ToLower(D0:char): char;
  46.  
  47. { **** Routinen ab V39 / Release 3.0  **** }
  48. -186 : PROCEDURE ApplyTagChanges(A0:p_TagItem; A1:p_TagItem);
  49. { *** private Routine *** }
  50. -198 : FUNCTION  SMult64(D0:Long; D1:Long): Long;
  51. -204 : FUNCTION  UMult64(D0:Long; D1:Long): Long; { erst wenn vorzeichenloses Long eingeführt! }
  52. -210 : FUNCTION  PackStructureTags(A0:Ptr; A1:Ptr; A2:p_TagItem): Long;
  53. -216 : FUNCTION  UnpackStructureTags(A0:Ptr; A1:Ptr; A2:p_TagItem): Long;
  54. -222 : FUNCTION  AddNamedObject(A0:p_NamedObject; A1: p_NamedObject): Boolean;
  55. -228 : FUNCTION  AllocNamedObjectA(A0:Str; A1:p_TagItem): p_NamedObject;
  56. -234 : FUNCTION  AttemptRemNamedObject(A0:p_NamedObject): Boolean;
  57. -240 : FUNCTION  FindNamedObject(A0:p_NamedObject; A1:Str; A2: p_NamedObject): p_NamedObject;
  58. -246 : PROCEDURE FreeNamedObject(A0:p_NamedObject);
  59. -252 : FUNCTION  NamedObjectName(A0:p_NamedObject):Str;
  60. -258 : PROCEDURE ReleaseNamedObject(A0:p_NamedObject);
  61. -264 : PROCEDURE RemNamedObject(A0:p_NamedObject; A1:p_Message);
  62. -270 : FUNCTION  GetUniqueID: Long;
  63. END;
  64. {$endif}
  65.