home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / pcq_incl3v1.lha / Utility / Utility.i < prev   
Encoding:
Text File  |  1994-10-13  |  2.3 KB  |  109 lines
  1.  
  2.  
  3. {$I "Include:Exec/Libraries.i"}
  4. {$I "Include:Exec/Ports.i"}
  5.  
  6.  
  7. Type
  8.  
  9.   DivMod32Rec = record
  10.         Ddividend,
  11.         Divisor,
  12.         Quotient,
  13.         Remainder       : Integer;
  14.   end;
  15.   DivMod32RecPtr = ^DivMod32Rec;
  16.  
  17.  
  18. Type
  19.  UtilityBaseRec = Record
  20.     ub_LibNode : Library;
  21.     ub_Language,
  22.     ub_Reserved : Byte;
  23.  end;
  24.  
  25. VAR UtilityBase : Address;
  26.  
  27.  
  28. FUNCTION SDivMod32( DM32R : DivMod32RecPtr) : DivMod32RecPtr;
  29.     External;
  30.  
  31. FUNCTION SMult32(Arg1, Arg2 : Integer) : Integer;
  32.     External;
  33.  
  34. FUNCTION StriCmp(Str1, Str2 : String) : Integer;
  35.     External;
  36.  
  37. FUNCTION StrniCmp(Str1, Str2 : String; len : Integer) : Integer;
  38.     External;
  39.  
  40. FUNCTION ToLower(c : Char) : Char;
  41.     External;
  42.  
  43. FUNCTION ToUpper(c : Char) : Char;
  44.     External;
  45.  
  46. FUNCTION UDivMod32( DM32R : DivMod32RecPtr) : DivMod32RecPtr;
  47.     External;
  48.  
  49. FUNCTION UMult32(Arg1, Arg2 : Integer) : Integer;
  50.     External;
  51.  
  52. { --- functions in V39 or higher (Release 3) --- }
  53.  
  54. { More tag Item functions }
  55.  
  56. PROCEDURE ApplyTagChanges(TagList, ChangeList : Address);
  57.     External;
  58.  
  59. { 64 bit integer multiply functions. The results are 64 bit quantities }
  60. { returned in D0 and D1 }
  61.  
  62. FUNCTION SMult64(Arg1, Arg2 : Integer) : Integer;
  63.     External;
  64.  
  65. FUNCTION UMult64(Arg1, Arg2 : Integer) : Integer;
  66.     External;
  67.  
  68. { Structure of Tag and Tag to Structure support routines }
  69.  
  70. FUNCTION PackStructureTags(pack, packTable, TagList : Address) : Integer;
  71.     External;
  72.  
  73. FUNCTION UnpackStructureTags(pack, packTable, TagList : Address) : Integer;
  74.     External;
  75.  
  76. { New, object-oriented NameSpaces }
  77.  
  78. FUNCTION AddNamedObject(nameSpace, obj : NamedObjectPtr) : Boolean;
  79.     External;
  80.  
  81. FUNCTION AllocNamedObjectA(name : String; TagList : Address) : NamedObjectPtr;
  82.     External;
  83.  
  84. FUNCTION AttemptRemNamedObject(obj : NamedObjectPtr) : Integer;
  85.     External;
  86.  
  87. FUNCTION FindNamedObject(nameSpace : NamedObjectPtr; name : String; 
  88.                          lastobject: NamedObjectPtr) : NamedObjectPtr;
  89.     External;
  90.  
  91. PROCEDURE FreeNamedObject(Obj : NamedObjectPtr);
  92.     External;
  93.  
  94. FUNCTION NamedObjectName(Obj : NamedObjectPtr) : String;
  95.     External;
  96.  
  97. PROCEDURE ReleaseNamedObject(Obj : NamedObjectPtr);
  98.     External;
  99.  
  100. PROCEDURE RemNamedObject(Obj : NamedObjectPtr; Msg : MessagePtr);
  101.     External;
  102.  
  103. { Unique ID generator }
  104.  
  105. FUNCTION GetUniqueID : Integer;
  106.     External;
  107.  
  108.  
  109.