home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / locale.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  2.3 KB  |  49 lines
  1. {$if not def LOCALE_LIB_H} CONST LOCALE_LIB_H=0;
  2.  
  3. { ***************************************************************
  4.   ** KickPascal-Include-Datei "locale.lib" zu Kickstart 3.00 **
  5.   *************************************************************** }
  6.  
  7. {$if not def LIBRARIES_LOCALE_H;incl "libraries/locale.h";endif}
  8. {$if not def DOS_DOS_H;incl "dos/dos.h";endif}
  9. {$if not def UTILITY_HOOKS__H;incl "utility/hooks.h";endif}
  10. {$if not def UTILITY_TAGITEM_H;incl "utility/tagutem.h";endif}
  11. {$if not def REXX_STORAGE_H;incl "rexx/storage.h";endif}
  12.  
  13. VAR LocaleBase : Ptr;
  14.  
  15. LIBRARY LocaleBase :
  16.  
  17. { **** Routinen ab V38 / Release 2.1 **** }
  18.  
  19. { *** private Routine *** }
  20. -36 : Procedure CloseCatalog( A0 : p_Catalog);
  21. -42 : Procedure CloseLocale( A0 : p_Locale);
  22. -48 : Function ConvToLower( A0 : p_Locale; D0 : Char) : Char;
  23. -54 : Function ConvToUpper( A0 : p_Locale; D0 : Char) : Char;
  24. -60 : Procedure FormatDate( A0 : p_Locale; A1 : Str; A2 : p_DateStamp; A3 : p_Hook);
  25. -66 : Function FormatString( A0 : p_Locale; A1 : Str; A2 : Ptr; A3 : p_Hook) : Ptr;
  26. -72 : Function GetCatalogStr( A0 : p_Catalog; D0 : Long; A1 : Str) : Str;
  27. -78 : Function GetLocaleStr( A0 : p_Catalog; D0 : Long) : Str;
  28. -84 : Function IsAlNum( A0 : p_Locale; D0 : Char) : Boolean;
  29. -90 : Function IsAlpha( A0 : p_Locale; D0 : Char) : Boolean;
  30. -96 : Function IsCntrl( A0 : p_Locale; D0 : Char) : Boolean;
  31. -102: Function IsDigit( A0 : p_Locale; D0 : Char) : Boolean;
  32. -108 : Function IsGraph( A0 : p_Locale; D0 : Char) : Boolean;
  33. -114 : Function IsLower( A0 : p_Locale; D0 : Char) : Boolean;
  34. -120 : Function IsPrint( A0 : p_Locale; D0 : Char) : Boolean;
  35. -126 : Function IsPunct( A0 : p_Locale; D0 : Char) : Boolean;
  36. -132 : Function IsSpace( A0 : p_Locale; D0 : Char) : Boolean;
  37. -138 : Function IsUpper( A0 : p_Locale; D0 : Char) : Boolean;
  38. -144 : Function IsXDigit( A0 : p_Locale; D0 : Char) : Boolean;
  39. -150 : Function OpenCatalogA( A0 : p_Locale; A1 : Str; A2 : p_TagItem) : p_Catalog;
  40. -156 : Function OpenLocale( A0 : Str) : p_Locale;
  41. -162 : Function ParseDate( A0 : p_Locale; A1 : p_DateStamp; A2 : Str; A3 : p_Hook) : Boolean;
  42. { *** private Routine *** }
  43. -174 : Function StrConvert( A0 : p_Locale; A1 : Str; A2 : Ptr; D0 : Long; D1 : Long) : Long;
  44. -180 : Function StrnCmp( A0 : p_Locale; A1 : Str; A2 : Str; D0 : Long; D1 : Long) : Long;
  45. { *** 6 private Routinen *** }
  46. END;
  47.  
  48. {$endif}
  49.