home *** CD-ROM | disk | FTP | other *** search
/ QuickTime 2.0 Developer Kit / QuickTime 2.0 Developer Kit.iso / mac / MAC / Programming Stuff / Interfaces / PInterfaces / TextUtils.p < prev    next >
Encoding:
Text File  |  1994-11-11  |  17.4 KB  |  506 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        TextUtils.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 TextUtils;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __TEXTUTILS__}
  27. {$SETC __TEXTUTILS__ := 1}
  28.  
  29. {$I+}
  30. {$SETC TextUtilsIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37. {    ConditionalMacros.p                                            }
  38.  
  39. {$IFC UNDEFINED __SCRIPT__}
  40. {$I Script.p}
  41. {$ENDC}
  42. {    Quickdraw.p                                                    }
  43. {        MixedMode.p                                                }
  44. {        QuickdrawText.p                                            }
  45. {    IntlResources.p                                                }
  46. {    Events.p                                                    }
  47. {        OSUtils.p                                                }
  48. {            Memory.p                                            }
  49.  
  50. {$PUSH}
  51. {$ALIGN MAC68K}
  52. {$LibExport+}
  53. {
  54.  
  55.     Here are the current routine names and the translations to the older forms.
  56.     Please use the newer forms in all new code and migrate the older names out of existing
  57.     code as maintainance permits.
  58.     
  59.     New Name                    Old Name(s)
  60.     
  61.     CompareString                IUCompPString IUMagString IUMagPString IUCompString 
  62.     CompareText
  63.     DateString                    IUDatePString IUDateString 
  64.     EqualString                            
  65.     ExtendedToString            FormatX2Str
  66.     FindScriptRun
  67.     FindWordBreaks                NFindWord FindWord
  68.     FormatRecToString            Format2Str
  69.     GetIndString            
  70.     GetString
  71.     IdenticalString                IUMagIDString IUMagIDPString IUEqualString IUEqualPString
  72.     IdenticalText
  73.     InitDateCache
  74.     LanguageOrder                IULangOrder
  75.     LongDateString                IULDateString
  76.     LongTimeString                IULTimeString
  77.     LowercaseText                LwrText LowerText
  78.     Munger
  79.     NewString                
  80.     NumToString                
  81.     RelString                
  82.     ReplaceText
  83.     ScriptOrder                    IUScriptOrder
  84.     SetString                
  85.     StringOrder                    IUStringOrder
  86.     StringToDate                String2Date
  87.     StringToExtended            FormatStr2X
  88.     StringToFormatRec            Str2Format
  89.     StringToNum                
  90.     StringToTime                                
  91.     StripDiacritics                StripText
  92.     StyledLineBreak
  93.     TextOrder
  94.     TimeString                    IUTimeString IUTimePString
  95.     TruncString
  96.     TruncText
  97.     UpperString                    UprString
  98.     UppercaseStripDiacritics    StripUpperText
  99.     UppercaseText                UprText UprText
  100. }
  101. { New constants for System 7.0: }
  102.  
  103. CONST
  104. { Constants for truncWhere argument in TruncString and TruncText }
  105.     truncEnd                    = 0;                            { Truncate at end }
  106.     truncMiddle                    = $4000;                        { Truncate in middle }
  107.     smTruncEnd                    = 0;                            { Truncate at end - obsolete }
  108.     smTruncMiddle                = $4000;                        { Truncate in middle - obsolete }
  109. { Constants for TruncString and TruncText results }
  110.     notTruncated                = 0;                            { No truncation was necessary }
  111.     truncated                    = 1;                            { Truncation performed }
  112.     truncErr                    = -1;                            { General error }
  113.     smNotTruncated                = 0;                            { No truncation was necessary - obsolete }
  114.     smTruncated                    = 1;                            { Truncation performed    - obsolete }
  115.     smTruncErr                    = -1;                            { General error - obsolete }
  116.  
  117.     fVNumber                    = 0;                            { first version of NumFormatString }
  118. { Special language code values for Language Order }
  119.     systemCurLang                = -2;                            { current (itlbLang) lang for system script }
  120.     systemDefLang                = -3;                            { default (table) lang for system script }
  121.     currentCurLang                = -4;                            { current (itlbLang) lang for current script }
  122.     currentDefLang                = -5;                            { default lang for current script }
  123.     scriptCurLang                = -6;                            { current (itlbLang) lang for specified script }
  124.     scriptDefLang                = -7;                            { default language for a specified script }
  125.  
  126.     iuSystemCurLang                = -2;                            { <obsolete> current (itlbLang) lang for system script }
  127.     iuSystemDefLang                = -3;                            { <obsolete> default (table) lang for system script }
  128.     iuCurrentCurLang            = -4;                            { <obsolete> current (itlbLang) lang for current script }
  129.     iuCurrentDefLang            = -5;                            { <obsolete> default lang for current script }
  130.     iuScriptCurLang                = -6;                            { <obsolete> current (itlbLang) lang for specified script }
  131.  
  132. { <obsolete> default language for a specified script }
  133.     iuScriptDefLang                = -7;
  134.  
  135.     
  136. TYPE
  137.     StyledLineBreakCode = SInt8;
  138.  
  139.  
  140. CONST
  141.     smBreakWord                    = 0;
  142.     smBreakChar                    = 1;
  143.     smBreakOverflow                = 2;
  144.  
  145.     
  146. TYPE
  147.     FormatClass = SInt8;
  148.  
  149.  
  150. CONST
  151.     fPositive                    = 0;
  152.     fNegative                    = 1;
  153.     fZero                        = 2;
  154.  
  155.     
  156. TYPE
  157.     FormatResultType = SInt8;
  158.  
  159.  
  160. CONST
  161.     fFormatOK                    = 0;
  162.     fBestGuess                    = 1;
  163.     fOutOfSynch                    = 2;
  164.     fSpuriousChars                = 3;
  165.     fMissingDelimiter            = 4;
  166.     fExtraDecimal                = 5;
  167.     fMissingLiteral                = 6;
  168.     fExtraExp                    = 7;
  169.     fFormatOverflow                = 8;
  170.     fFormStrIsNAN                = 9;
  171.     fBadPartsTable                = 10;
  172.     fExtraPercent                = 11;
  173.     fExtraSeparator                = 12;
  174.     fEmptyFormatString            = 13;
  175.  
  176.  
  177. TYPE
  178.     NumFormatString = PACKED RECORD
  179.         fLength:                UInt8;
  180.         fVersion:                UInt8;
  181.         data:                    PACKED ARRAY [0..253] OF CHAR;            { private data }
  182.     END;
  183.     NumFormatStringRec = NumFormatString;
  184.  
  185.     FVector = RECORD
  186.         start:                    INTEGER;
  187.         length:                    INTEGER;
  188.     END;
  189. { index by [fPositive..fZero] }
  190.     TripleInt = ARRAY [0..2] OF FVector;
  191.  
  192.     ScriptRunStatus = RECORD
  193.         script:                    SInt8;
  194.         runVariant:                SInt8;
  195.     END;
  196. { New types for System 7.0: }
  197. { Type for truncWhere parameter in new TruncString, TruncText }
  198.     TruncCode = INTEGER;
  199.  
  200.  
  201. CONST
  202.     shortDate                    = 0;
  203.     longDate                    = 1;
  204.     abbrevDate                    = 2;
  205.  
  206.     
  207. TYPE
  208.     DateForm = SInt8;
  209.  
  210.  
  211. CONST
  212. { StringToDate status values }
  213.     fatalDateTime                = $8000;                        { StringToDate and String2Time mask to a fatal error }
  214.     longDateFound                = 1;                            { StringToDate mask to long date found }
  215.     leftOverChars                = 2;                            { StringToDate & Time mask to warn of left over characters }
  216.     sepNotIntlSep                = 4;                            { StringToDate & Time mask to warn of non-standard separators }
  217.     fieldOrderNotIntl            = 8;                            { StringToDate & Time mask to warn of non-standard field order }
  218.     extraneousStrings            = 16;                            { StringToDate & Time mask to warn of unparsable strings in text }
  219.     tooManySeps                    = 32;                            { StringToDate & Time mask to warn of too many separators }
  220.     sepNotConsistent            = 64;                            { StringToDate & Time mask to warn of inconsistent separators }
  221.     tokenErr                    = $8100;                        { StringToDate & Time mask for 'tokenizer err encountered' }
  222.     cantReadUtilities            = $8200;
  223.     dateTimeNotFound            = $8400;
  224.     dateTimeInvalid                = $8800;
  225.  
  226.     
  227. TYPE
  228.     StringToDateStatus = INTEGER;
  229.  
  230.     String2DateStatus = INTEGER;
  231.  
  232.     DateCacheRecord = PACKED RECORD
  233.         hidden:                    ARRAY [0..255] OF INTEGER;                { only for temporary use }
  234.     END;
  235.     DateCachePtr = ^DateCacheRecord;
  236.  
  237.     BreakTable = RECORD
  238.         charTypes:                PACKED ARRAY [0..255] OF CHAR;
  239.         tripleLength:            INTEGER;
  240.         triples:                ARRAY [0..0] OF INTEGER;
  241.     END;
  242.     BreakTablePtr = ^BreakTable;
  243.  
  244. { New NBreakTable for System 7.0: }
  245.     NBreakTable = RECORD
  246.         flags1:                    SInt8;
  247.         flags2:                    SInt8;
  248.         version:                INTEGER;
  249.         classTableOff:            INTEGER;
  250.         auxCTableOff:            INTEGER;
  251.         backwdTableOff:            INTEGER;
  252.         forwdTableOff:            INTEGER;
  253.         doBackup:                INTEGER;
  254.         length:                    INTEGER;                                { length of NBreakTable }
  255.         charTypes:                PACKED ARRAY [0..255] OF CHAR;
  256.         tables:                    ARRAY [0..0] OF INTEGER;
  257.     END;
  258.     NBreakTablePtr = ^NBreakTable;
  259.  
  260. {
  261.     The following functions are new names that work on 68k and PowerPC
  262. }
  263.  
  264. FUNCTION InitDateCache(theCache: DateCachePtr): OSErr;
  265.     {$IFC NOT GENERATINGCFM}
  266.     INLINE $2F3C, $8204, $FFF8, $A8B5;
  267.     {$ENDC}
  268. FUNCTION Munger(h: Handle; offset: LONGINT; ptr1: UNIV Ptr; len1: LONGINT; ptr2: UNIV Ptr; len2: LONGINT): LONGINT;
  269.     {$IFC NOT GENERATINGCFM}
  270.     INLINE $A9E0;
  271.     {$ENDC}
  272. FUNCTION NewString(theString: ConstStr255Param): StringHandle;
  273.     {$IFC NOT GENERATINGCFM}
  274.     INLINE $A906;
  275.     {$ENDC}
  276. PROCEDURE SetString(theString: StringHandle; strNew: ConstStr255Param);
  277.     {$IFC NOT GENERATINGCFM}
  278.     INLINE $A907;
  279.     {$ENDC}
  280. FUNCTION GetString(stringID: INTEGER): StringHandle;
  281.     {$IFC NOT GENERATINGCFM}
  282.     INLINE $A9BA;
  283.     {$ENDC}
  284. PROCEDURE GetIndString(VAR theString: Str255; strListID: INTEGER; index: INTEGER);
  285. FUNCTION ScriptOrder(script1: ScriptCode; script2: ScriptCode): INTEGER;
  286.     {$IFC NOT GENERATINGCFM}
  287.     INLINE $3F3C, $001E, $A9ED;
  288.     {$ENDC}
  289. FUNCTION StyledLineBreak(textPtr: Ptr; textLen: LONGINT; textStart: LONGINT; textEnd: LONGINT; flags: LONGINT; VAR textWidth: Fixed; VAR textOffset: LONGINT): StyledLineBreakCode;
  290.     {$IFC NOT GENERATINGCFM}
  291.     INLINE $2F3C, $821C, $FFFE, $A8B5;
  292.     {$ENDC}
  293. FUNCTION TruncString(width: INTEGER; VAR theString: Str255; truncWhere: TruncCode): INTEGER;
  294.     {$IFC NOT GENERATINGCFM}
  295.     INLINE $2F3C, $8208, $FFE0, $A8B5;
  296.     {$ENDC}
  297. FUNCTION TruncText(width: INTEGER; textPtr: Ptr; VAR length: INTEGER; truncWhere: TruncCode): INTEGER;
  298.     {$IFC NOT GENERATINGCFM}
  299.     INLINE $2F3C, $820C, $FFDE, $A8B5;
  300.     {$ENDC}
  301. FUNCTION ReplaceText(baseText: Handle; substitutionText: Handle; VAR key: Str15): INTEGER;
  302.     {$IFC NOT GENERATINGCFM}
  303.     INLINE $2F3C, $820C, $FFDC, $A8B5;
  304.     {$ENDC}
  305. PROCEDURE FindWordBreaks(textPtr: Ptr; textLength: INTEGER; offset: INTEGER; leadingEdge: BOOLEAN; breaks: BreakTablePtr; VAR offsets: OffsetTable; script: ScriptCode);
  306.     {$IFC NOT GENERATINGCFM}
  307.     INLINE $2F3C, $C012, $001A, $A8B5;
  308.     {$ENDC}
  309. PROCEDURE LowercaseText(textPtr: Ptr; len: INTEGER; script: ScriptCode);
  310.     {$IFC NOT GENERATINGCFM}
  311.     INLINE $3F3C, $0000, $2F3C, $800A, $FFB6, $A8B5;
  312.     {$ENDC}
  313. PROCEDURE UppercaseText(textPtr: Ptr; len: INTEGER; script: ScriptCode);
  314.     {$IFC NOT GENERATINGCFM}
  315.     INLINE $3F3C, $0400, $2F3C, $800A, $FFB6, $A8B5;
  316.     {$ENDC}
  317. PROCEDURE StripDiacritics(textPtr: Ptr; len: INTEGER; script: ScriptCode);
  318.     {$IFC NOT GENERATINGCFM}
  319.     INLINE $3F3C, $0200, $2F3C, $800A, $FFB6, $A8B5;
  320.     {$ENDC}
  321. PROCEDURE UppercaseStripDiacritics(textPtr: Ptr; len: INTEGER; script: ScriptCode);
  322.     {$IFC NOT GENERATINGCFM}
  323.     INLINE $3F3C, $0600, $2F3C, $800A, $FFB6, $A8B5;
  324.     {$ENDC}
  325. FUNCTION FindScriptRun(textPtr: Ptr; textLen: LONGINT; VAR lenUsed: LONGINT): ScriptRunStatus;
  326.     {$IFC NOT GENERATINGCFM}
  327.     INLINE $2F3C, $820C, $0026, $A8B5;
  328.     {$ENDC}
  329. FUNCTION EqualString(str1: ConstStr255Param; str2: ConstStr255Param; caseSensitive: BOOLEAN; diacSensitive: BOOLEAN): BOOLEAN;
  330. PROCEDURE UpperString(VAR theString: Str255; diacSensitive: BOOLEAN);
  331. PROCEDURE StringToNum(theString: ConstStr255Param; VAR theNum: LONGINT);
  332. PROCEDURE NumToString(theNum: LONGINT; VAR theString: Str255);
  333. FUNCTION RelString(str1: ConstStr255Param; str2: ConstStr255Param; caseSensitive: BOOLEAN; diacSensitive: BOOLEAN): INTEGER;
  334. FUNCTION StringToDate(textPtr: Ptr; textLen: LONGINT; theCache: DateCachePtr; VAR lengthUsed: LONGINT; VAR dateTime: LongDateRec): StringToDateStatus;
  335.     {$IFC NOT GENERATINGCFM}
  336.     INLINE $2F3C, $8214, $FFF6, $A8B5;
  337.     {$ENDC}
  338. FUNCTION StringToTime(textPtr: Ptr; textLen: LONGINT; theCache: DateCachePtr; VAR lengthUsed: LONGINT; VAR dateTime: LongDateRec): StringToDateStatus;
  339.     {$IFC NOT GENERATINGCFM}
  340.     INLINE $2F3C, $8214, $FFF4, $A8B5;
  341.     {$ENDC}
  342. FUNCTION ExtendedToString(VAR x: extended80; {CONST}VAR myCanonical: NumFormatString; {CONST}VAR partsTable: NumberParts; VAR outString: Str255): FormatStatus;
  343.     {$IFC NOT GENERATINGCFM}
  344.     INLINE $2F3C, $8210, $FFE8, $A8B5;
  345.     {$ENDC}
  346. FUNCTION StringToExtended(source: ConstStr255Param; {CONST}VAR myCanonical: NumFormatString; {CONST}VAR partsTable: NumberParts; VAR x: extended80): FormatStatus;
  347.     {$IFC NOT GENERATINGCFM}
  348.     INLINE $2F3C, $8210, $FFE6, $A8B5;
  349.     {$ENDC}
  350. FUNCTION StringToFormatRec(inString: ConstStr255Param; {CONST}VAR partsTable: NumberParts; VAR outString: NumFormatString): FormatStatus;
  351.     {$IFC NOT GENERATINGCFM}
  352.     INLINE $2F3C, $820C, $FFEC, $A8B5;
  353.     {$ENDC}
  354. FUNCTION FormatRecToString({CONST}VAR myCanonical: NumFormatString; {CONST}VAR partsTable: NumberParts; VAR outString: Str255; VAR positions: TripleInt): FormatStatus;
  355.     {$IFC NOT GENERATINGCFM}
  356.     INLINE $2F3C, $8210, $FFEA, $A8B5;
  357.     {$ENDC}
  358. {
  359.     The following functions are old names, but are required for PowerPC builds
  360.     becuase InterfaceLib exports these names, instead of the new ones.
  361. }
  362. FUNCTION IUMagString(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER): INTEGER;
  363.     {$IFC NOT GENERATINGCFM}
  364.     INLINE $3F3C, $000A, $A9ED;
  365.     {$ENDC}
  366. FUNCTION IUMagIDString(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER): INTEGER;
  367.     {$IFC NOT GENERATINGCFM}
  368.     INLINE $3F3C, $000C, $A9ED;
  369.     {$ENDC}
  370. FUNCTION IUMagPString(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER; itl2Handle: Handle): INTEGER;
  371.     {$IFC NOT GENERATINGCFM}
  372.     INLINE $3F3C, $001A, $A9ED;
  373.     {$ENDC}
  374. FUNCTION IUMagIDPString(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER; itl2Handle: Handle): INTEGER;
  375.     {$IFC NOT GENERATINGCFM}
  376.     INLINE $3F3C, $001C, $A9ED;
  377.     {$ENDC}
  378. PROCEDURE IUDateString(dateTime: LONGINT; longFlag: ByteParameter; VAR result: Str255);
  379.     {$IFC NOT GENERATINGCFM}
  380.     INLINE $4267, $A9ED;
  381.     {$ENDC}
  382. PROCEDURE IUTimeString(dateTime: LONGINT; wantSeconds: BOOLEAN; VAR result: Str255);
  383.     {$IFC NOT GENERATINGCFM}
  384.     INLINE $3F3C, $0002, $A9ED;
  385.     {$ENDC}
  386. PROCEDURE IUDatePString(dateTime: LONGINT; longFlag: ByteParameter; VAR result: Str255; intlHandle: Handle);
  387.     {$IFC NOT GENERATINGCFM}
  388.     INLINE $3F3C, $000E, $A9ED;
  389.     {$ENDC}
  390. PROCEDURE IUTimePString(dateTime: LONGINT; wantSeconds: BOOLEAN; VAR result: Str255; intlHandle: Handle);
  391.     {$IFC NOT GENERATINGCFM}
  392.     INLINE $3F3C, $0010, $A9ED;
  393.     {$ENDC}
  394. PROCEDURE IULDateString(VAR dateTime: LongDateTime; longFlag: ByteParameter; VAR result: Str255; intlHandle: Handle);
  395.     {$IFC NOT GENERATINGCFM}
  396.     INLINE $3F3C, $0014, $A9ED;
  397.     {$ENDC}
  398. PROCEDURE IULTimeString(VAR dateTime: LongDateTime; wantSeconds: BOOLEAN; VAR result: Str255; intlHandle: Handle);
  399.     {$IFC NOT GENERATINGCFM}
  400.     INLINE $3F3C, $0016, $A9ED;
  401.     {$ENDC}
  402. FUNCTION IUScriptOrder(script1: ScriptCode; script2: ScriptCode): INTEGER;
  403.     {$IFC NOT GENERATINGCFM}
  404.     INLINE $3F3C, $001E, $A9ED;
  405.     {$ENDC}
  406. FUNCTION IULangOrder(language1: LangCode; language2: LangCode): INTEGER;
  407.     {$IFC NOT GENERATINGCFM}
  408.     INLINE $3F3C, $0020, $A9ED;
  409.     {$ENDC}
  410. FUNCTION IUTextOrder(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER; aScript: ScriptCode; bScript: ScriptCode; aLang: LangCode; bLang: LangCode): INTEGER;
  411.     {$IFC NOT GENERATINGCFM}
  412.     INLINE $3F3C, $0022, $A9ED;
  413.     {$ENDC}
  414. PROCEDURE FindWord(textPtr: Ptr; textLength: INTEGER; offset: INTEGER; leadingEdge: BOOLEAN; breaks: BreakTablePtr; VAR offsets: OffsetTable);
  415.     {$IFC NOT GENERATINGCFM}
  416.     INLINE $2F3C, $8012, $001A, $A8B5;
  417.     {$ENDC}
  418. PROCEDURE NFindWord(textPtr: Ptr; textLength: INTEGER; offset: INTEGER; leadingEdge: BOOLEAN; nbreaks: NBreakTablePtr; VAR offsets: OffsetTable);
  419.     {$IFC NOT GENERATINGCFM}
  420.     INLINE $2F3C, $8012, $FFE2, $A8B5;
  421.     {$ENDC}
  422. PROCEDURE UprText(textPtr: Ptr; len: INTEGER);
  423.     {$IFC NOT GENERATINGCFM}
  424.     INLINE $301F, $205F, $A054;
  425.     {$ENDC}
  426. PROCEDURE LwrText(textPtr: Ptr; len: INTEGER);
  427.     {$IFC NOT GENERATINGCFM}
  428.     INLINE $301F, $205F, $A056;
  429.     {$ENDC}
  430. PROCEDURE LowerText(textPtr: Ptr; len: INTEGER);
  431.     {$IFC NOT GENERATINGCFM}
  432.     INLINE $301F, $205F, $A056;
  433.     {$ENDC}
  434. PROCEDURE StripText(textPtr: Ptr; len: INTEGER);
  435.     {$IFC NOT GENERATINGCFM}
  436.     INLINE $301F, $205F, $A256;
  437.     {$ENDC}
  438. PROCEDURE UpperText(textPtr: Ptr; len: INTEGER);
  439.     {$IFC NOT GENERATINGCFM}
  440.     INLINE $301F, $205F, $A456;
  441.     {$ENDC}
  442. PROCEDURE StripUpperText(textPtr: Ptr; len: INTEGER);
  443.     {$IFC NOT GENERATINGCFM}
  444.     INLINE $301F, $205F, $A656;
  445.     {$ENDC}
  446. FUNCTION IUCompPString(aStr: ConstStr255Param; bStr: ConstStr255Param; itl2Handle: Handle): INTEGER;
  447. FUNCTION IUEqualPString(aStr: ConstStr255Param; bStr: ConstStr255Param; itl2Handle: Handle): INTEGER;
  448. FUNCTION IUStringOrder(aStr: ConstStr255Param; bStr: ConstStr255Param; aScript: ScriptCode; bScript: ScriptCode; aLang: LangCode; bLang: LangCode): INTEGER;
  449. FUNCTION IUCompString(aStr: ConstStr255Param; bStr: ConstStr255Param): INTEGER;
  450. FUNCTION IUEqualString(aStr: ConstStr255Param; bStr: ConstStr255Param): INTEGER;
  451. {
  452.     The following provide direct function prototypes for new names for 68k
  453. }
  454. PROCEDURE DateString(dateTime: LONGINT; longFlag: ByteParameter; VAR result: Str255; intlHandle: Handle);
  455.     {$IFC NOT GENERATINGCFM}
  456.     INLINE $3F3C, $000E, $A9ED;
  457.     {$ENDC}
  458. PROCEDURE TimeString(dateTime: LONGINT; wantSeconds: BOOLEAN; VAR result: Str255; intlHandle: Handle);
  459.     {$IFC NOT GENERATINGCFM}
  460.     INLINE $3F3C, $0010, $A9ED;
  461.     {$ENDC}
  462. PROCEDURE LongDateString(VAR dateTime: LongDateTime; longFlag: ByteParameter; VAR result: Str255; intlHandle: Handle);
  463.     {$IFC NOT GENERATINGCFM}
  464.     INLINE $3F3C, $0014, $A9ED;
  465.     {$ENDC}
  466. PROCEDURE LongTimeString(VAR dateTime: LongDateTime; wantSeconds: BOOLEAN; VAR result: Str255; intlHandle: Handle);
  467.     {$IFC NOT GENERATINGCFM}
  468.     INLINE $3F3C, $0016, $A9ED;
  469.     {$ENDC}
  470. FUNCTION CompareString(aStr: ConstStr255Param; bStr: ConstStr255Param; itl2Handle: Handle): INTEGER;
  471. FUNCTION IdenticalString(aStr: ConstStr255Param; bStr: ConstStr255Param; itl2Handle: Handle): INTEGER;
  472. FUNCTION CompareText(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER; itl2Handle: Handle): INTEGER;
  473.     {$IFC NOT GENERATINGCFM}
  474.     INLINE $3F3C, $001A, $A9ED;
  475.     {$ENDC}
  476. FUNCTION IdenticalText(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER; itl2Handle: Handle): INTEGER;
  477.     {$IFC NOT GENERATINGCFM}
  478.     INLINE $3F3C, $001C, $A9ED;
  479.     {$ENDC}
  480. FUNCTION LanguageOrder(language1: LangCode; language2: LangCode): INTEGER;
  481.     {$IFC NOT GENERATINGCFM}
  482.     INLINE $3F3C, $0020, $A9ED;
  483.     {$ENDC}
  484. FUNCTION TextOrder(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER; aScript: ScriptCode; bScript: ScriptCode; aLang: LangCode; bLang: LangCode): INTEGER;
  485.     {$IFC NOT GENERATINGCFM}
  486.     INLINE $3F3C, $0022, $A9ED;
  487.     {$ENDC}
  488. FUNCTION StringOrder(aStr: ConstStr255Param; bStr: ConstStr255Param; aScript: ScriptCode; bScript: ScriptCode; aLang: LangCode; bLang: LangCode): INTEGER;
  489. {$IFC NOT OLDROUTINELOCATIONS }
  490. PROCEDURE C2PStrProc(aStr: UNIV Ptr);
  491. FUNCTION C2PStr(cString: UNIV Ptr): StringPtr;
  492. PROCEDURE P2CStrProc(aStr: StringPtr);
  493. FUNCTION P2CStr(pString: StringPtr): Ptr;
  494. {$ENDC}
  495.  
  496. {$ALIGN RESET}
  497. {$POP}
  498.  
  499. {$SETC UsingIncludes := TextUtilsIncludes}
  500.  
  501. {$ENDC} {__TEXTUTILS__}
  502.  
  503. {$IFC NOT UsingIncludes}
  504.  END.
  505. {$ENDC}
  506.