home *** CD-ROM | disk | FTP | other *** search
/ QuickTime 2.0 Developer Kit / QuickTime 2.0 Developer Kit.iso / mac / MAC / Programming Stuff / Interfaces / PInterfaces / ToolUtils.p < prev    next >
Encoding:
Text File  |  1994-11-11  |  4.3 KB  |  199 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        ToolUtils.p
  3.  
  4.      Copyright:    © 1984-1994 by Apple Computer, Inc.
  5.                  All rights reserved.
  6.  
  7.      Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8.  
  9.      Bugs?:        If you find a problem with this file, send the file and version
  10.                  information (from above) and the problem description to:
  11.  
  12.                      Internet:    apple.bugs@applelink.apple.com
  13.                      AppleLink:    APPLE.BUGS
  14.  
  15. }
  16.  
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT ToolUtils;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __TOOLUTILS__}
  27. {$SETC __TOOLUTILS__ := 1}
  28.  
  29. {$I+}
  30. {$SETC ToolUtilsIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37. {    ConditionalMacros.p                                            }
  38.  
  39. {$IFC UNDEFINED __QUICKDRAW__}
  40. {$I Quickdraw.p}
  41. {$ENDC}
  42. {    MixedMode.p                                                    }
  43. {    QuickdrawText.p                                                }
  44.  
  45. {$IFC UNDEFINED __OSUTILS__}
  46. {$I OSUtils.p}
  47. {$ENDC}
  48. {    Memory.p                                                    }
  49.  
  50. {$IFC UNDEFINED __TEXTUTILS__}
  51. {$I TextUtils.p}
  52. {$ENDC}
  53. {    Script.p                                                    }
  54. {        IntlResources.p                                            }
  55. {        Events.p                                                }
  56.  
  57. {$IFC UNDEFINED __FIXMATH__}
  58. {$I FixMath.p}
  59. {$ENDC}
  60.  
  61. {$PUSH}
  62. {$ALIGN MAC68K}
  63. {$LibExport+}
  64.  
  65. CONST
  66.     sysPatListID                = 0;
  67.     iBeamCursor                    = 1;
  68.     crossCursor                    = 2;
  69.     plusCursor                    = 3;
  70.     watchCursor                    = 4;
  71.  
  72.  
  73. TYPE
  74.     Int64Bit = RECORD
  75.         hiLong:                    LONGINT;
  76.         loLong:                    LONGINT;
  77.     END;
  78.  
  79. FUNCTION FixRatio(numer: INTEGER; denom: INTEGER): Fixed;
  80.     {$IFC NOT GENERATINGCFM}
  81.     INLINE $A869;
  82.     {$ENDC}
  83. FUNCTION FixMul(a: Fixed; b: Fixed): Fixed;
  84.     {$IFC NOT GENERATINGCFM}
  85.     INLINE $A868;
  86.     {$ENDC}
  87. FUNCTION FixRound(x: Fixed): INTEGER;
  88.     {$IFC NOT GENERATINGCFM}
  89.     INLINE $A86C;
  90.     {$ENDC}
  91. PROCEDURE PackBits(VAR srcPtr: Ptr; VAR dstPtr: Ptr; srcBytes: INTEGER);
  92.     {$IFC NOT GENERATINGCFM}
  93.     INLINE $A8CF;
  94.     {$ENDC}
  95. PROCEDURE UnpackBits(VAR srcPtr: Ptr; VAR dstPtr: Ptr; dstBytes: INTEGER);
  96.     {$IFC NOT GENERATINGCFM}
  97.     INLINE $A8D0;
  98.     {$ENDC}
  99. FUNCTION BitTst(bytePtr: UNIV Ptr; bitNum: LONGINT): BOOLEAN;
  100.     {$IFC NOT GENERATINGCFM}
  101.     INLINE $A85D;
  102.     {$ENDC}
  103. PROCEDURE BitSet(bytePtr: UNIV Ptr; bitNum: LONGINT);
  104.     {$IFC NOT GENERATINGCFM}
  105.     INLINE $A85E;
  106.     {$ENDC}
  107. PROCEDURE BitClr(bytePtr: UNIV Ptr; bitNum: LONGINT);
  108.     {$IFC NOT GENERATINGCFM}
  109.     INLINE $A85F;
  110.     {$ENDC}
  111. FUNCTION BitAnd(value1: LONGINT; value2: LONGINT): LONGINT;
  112.     {$IFC NOT GENERATINGCFM}
  113.     INLINE $A858;
  114.     {$ENDC}
  115. FUNCTION BitOr(value1: LONGINT; value2: LONGINT): LONGINT;
  116.     {$IFC NOT GENERATINGCFM}
  117.     INLINE $A85B;
  118.     {$ENDC}
  119. FUNCTION BitXor(value1: LONGINT; value2: LONGINT): LONGINT;
  120.     {$IFC NOT GENERATINGCFM}
  121.     INLINE $A859;
  122.     {$ENDC}
  123. FUNCTION BitNot(value: LONGINT): LONGINT;
  124.     {$IFC NOT GENERATINGCFM}
  125.     INLINE $A85A;
  126.     {$ENDC}
  127. FUNCTION BitShift(value: LONGINT; count: INTEGER): LONGINT;
  128.     {$IFC NOT GENERATINGCFM}
  129.     INLINE $A85C;
  130.     {$ENDC}
  131. {$IFC GENERATING68K }
  132. PROCEDURE LongMul(a: LONGINT; b: LONGINT; VAR result: Int64Bit);
  133.     {$IFC NOT GENERATINGCFM}
  134.     INLINE $A867;
  135.     {$ENDC}
  136. {$ENDC}
  137. {$IFC OLDROUTINELOCATIONS }
  138. FUNCTION GetIcon(iconID: INTEGER): Handle;
  139.     {$IFC NOT GENERATINGCFM}
  140.     INLINE $A9BB;
  141.     {$ENDC}
  142. PROCEDURE PlotIcon({CONST}VAR theRect: Rect; theIcon: Handle);
  143.     {$IFC NOT GENERATINGCFM}
  144.     INLINE $A94B;
  145.     {$ENDC}
  146. {$ENDC}
  147. FUNCTION GetPattern(patternID: INTEGER): PatHandle;
  148.     {$IFC NOT GENERATINGCFM}
  149.     INLINE $A9B8;
  150.     {$ENDC}
  151. FUNCTION GetCursor(cursorID: INTEGER): CursHandle;
  152.     {$IFC NOT GENERATINGCFM}
  153.     INLINE $A9B9;
  154.     {$ENDC}
  155. FUNCTION GetPicture(pictureID: INTEGER): PicHandle;
  156.     {$IFC NOT GENERATINGCFM}
  157.     INLINE $A9BC;
  158.     {$ENDC}
  159. FUNCTION SlopeFromAngle(angle: INTEGER): Fixed;
  160.     {$IFC NOT GENERATINGCFM}
  161.     INLINE $A8BC;
  162.     {$ENDC}
  163. FUNCTION AngleFromSlope(slope: Fixed): INTEGER;
  164.     {$IFC NOT GENERATINGCFM}
  165.     INLINE $A8C4;
  166.     {$ENDC}
  167. FUNCTION DeltaPoint(ptA: Point; ptB: Point): LONGINT;
  168.     {$IFC NOT GENERATINGCFM}
  169.     INLINE $A94F;
  170.     {$ENDC}
  171. PROCEDURE ShieldCursor({CONST}VAR shieldRect: Rect; offsetPt: Point);
  172.     {$IFC NOT GENERATINGCFM}
  173.     INLINE $A855;
  174.     {$ENDC}
  175. PROCEDURE ScreenRes(VAR scrnHRes: INTEGER; VAR scrnVRes: INTEGER);
  176.     {$IFC NOT GENERATINGCFM}
  177.     INLINE $225F, $32B8, $0102, $225F, $32B8, $0104;
  178.     {$ENDC}
  179. PROCEDURE GetIndPattern(VAR thePat: Pattern; patternListID: INTEGER; index: INTEGER);
  180. FUNCTION HiWord(x: LONGINT): INTEGER;
  181.     {$IFC NOT GENERATINGCFM}
  182.     INLINE $A86A;
  183.     {$ENDC}
  184. FUNCTION LoWord(x: LONGINT): INTEGER;
  185.     {$IFC NOT GENERATINGCFM}
  186.     INLINE $A86B;
  187.     {$ENDC}
  188.  
  189. {$ALIGN RESET}
  190. {$POP}
  191.  
  192. {$SETC UsingIncludes := ToolUtilsIncludes}
  193.  
  194. {$ENDC} {__TOOLUTILS__}
  195.  
  196. {$IFC NOT UsingIncludes}
  197.  END.
  198. {$ENDC}
  199.