home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / LocaleL.def < prev    next >
Text File  |  1996-11-28  |  4KB  |  107 lines
  1. DEFINITION MODULE LocaleL {"locale.library",38};
  2.  
  3. (*$ Implementation- *)
  4.  
  5. (* Generated with FDToM2 by M. Timmermans *)
  6.  
  7. FROM SYSTEM IMPORT ADDRESS;
  8. IMPORT d:LocaleD;
  9. IMPORT ed:ExecD,Reg,dd:DosD,ud:UtilityD;
  10.  
  11.  
  12. VAR
  13.  LocaleBase : ed.LibraryPtr;
  14.  
  15.  
  16. CONST
  17.  
  18.  localeMinVersion=38;
  19.  localeName="locale.library";
  20.  
  21.  
  22. PROCEDURE CloseCatalog(catalog{Reg.A0}:d.CatalogPtr); CODE -36;
  23.  
  24. PROCEDURE CloseLocale(locale{Reg.A0}:d.LocalePtr); CODE -42;
  25.  
  26. PROCEDURE ConvToLower(locale{Reg.A0}:d.LocalePtr;
  27.                       character{Reg.D0}:LONGCARD):LONGCARD; CODE -48;
  28.  
  29. PROCEDURE ConvToUpper(locale{Reg.A0}:d.LocalePtr;
  30.                       character{Reg.D0}:LONGCARD):LONGCARD; CODE -54;
  31.  
  32. PROCEDURE FormatDate(locale{Reg.A0}:d.LocalePtr;
  33.                      fmtTemplate{Reg.A1}:ADDRESS;
  34.                      VAR date{Reg.A2}:dd.Date;
  35.                      putCharFunc{Reg.A3}:ud.HookPtr); CODE -60;
  36.  
  37. PROCEDURE FormatString(locale{Reg.A0}:d.LocalePtr;
  38.                        fmtTemplate{Reg.A1}:ADDRESS;
  39.                        dataStream{Reg.A2}:ADDRESS;
  40.                        putCharFunc{Reg.A3}:ud.HookPtr):ADDRESS; CODE -66;
  41.  
  42. PROCEDURE GetCatalogStr(catalog{Reg.A0}:d.CatalogPtr;
  43.                         stringNum{Reg.D0}:LONGINT;
  44.                         defaultString{Reg.A1}:ADDRESS):ADDRESS; CODE -72;
  45.  
  46. PROCEDURE GetLocaleStr(locale{Reg.A0}:d.LocalePtr;
  47.                        stringNum{Reg.D0}:LONGCARD):ADDRESS; CODE -78;
  48.  
  49. PROCEDURE IsAlNum(locale{Reg.A0}:d.LocalePtr;
  50.                   character{Reg.D0}:LONGCARD):INTEGER; CODE -84;
  51.  
  52. PROCEDURE IsAlpha(locale{Reg.A0}:d.LocalePtr;
  53.                   character{Reg.D0}:LONGCARD):INTEGER; CODE -90;
  54.  
  55. PROCEDURE IsCntrl(locale{Reg.A0}:d.LocalePtr;
  56.                   character{Reg.D0}:LONGCARD):INTEGER; CODE -96;
  57.  
  58. PROCEDURE IsDigit(locale{Reg.A0}:d.LocalePtr;
  59.                   character{Reg.D0}:LONGCARD):INTEGER; CODE -102;
  60.  
  61. PROCEDURE IsGraph(locale{Reg.A0}:d.LocalePtr;
  62.                   character{Reg.D0}:LONGCARD):INTEGER; CODE -108;
  63.  
  64. PROCEDURE IsLower(locale{Reg.A0}:d.LocalePtr;
  65.                   character{Reg.D0}:LONGCARD):INTEGER; CODE -114;
  66.  
  67. PROCEDURE IsPrint(locale{Reg.A0}:d.LocalePtr;
  68.                   character{Reg.D0}:LONGCARD):INTEGER; CODE -120;
  69.  
  70. PROCEDURE IsPunct(locale{Reg.A0}:d.LocalePtr;
  71.                   character{Reg.D0}:LONGCARD):INTEGER; CODE -126;
  72.  
  73. PROCEDURE IsSpace(locale{Reg.A0}:d.LocalePtr;
  74.                   character{Reg.D0}:LONGCARD):INTEGER; CODE -132;
  75.  
  76. PROCEDURE IsUpper(locale{Reg.A0}:d.LocalePtr;
  77.                   character{Reg.D0}:LONGCARD):INTEGER; CODE -138;
  78.  
  79. PROCEDURE IsXDigit(locale{Reg.A0}:d.LocalePtr;
  80.                    character{Reg.D0}:LONGCARD):INTEGER; CODE -144;
  81.  
  82. PROCEDURE OpenCatalogA(locale{Reg.A0}:d.LocalePtr;
  83.                        name{Reg.A1}:ADDRESS;
  84.                        tags{Reg.A2}:ud.TagItemPtr):d.CatalogPtr; CODE -150;
  85.  
  86. PROCEDURE OpenLocale(name{Reg.A0}:ADDRESS):d.LocalePtr; CODE -156;
  87.  
  88. PROCEDURE ParseDate(locale{Reg.A0}:d.LocalePtr;
  89.                     VAR date{Reg.A1}:dd.Date;
  90.                     fmtTemplate{Reg.A2}:ADDRESS;
  91.                     getCharFunc{Reg.A3}:ud.HookPtr):INTEGER; CODE -162;
  92.  
  93. PROCEDURE StrConvert(locale{Reg.A0}:d.LocalePtr;
  94.                      string{Reg.A1}:ADDRESS;
  95.                      buffer{Reg.A2}:ADDRESS;
  96.                      bufferSize{Reg.D0}:LONGCARD;
  97.                      type{Reg.D1}:LONGCARD):LONGCARD; CODE -174;
  98.  
  99. PROCEDURE StrnCmp(locale{Reg.A0}:d.LocalePtr;
  100.                   string1{Reg.A1}:ADDRESS;
  101.                   string2{Reg.A2}:ADDRESS;
  102.                   length{Reg.D0}:LONGINT;
  103.                   type{Reg.D1}:LONGCARD):LONGINT; CODE -180;
  104.  
  105.  
  106. END LocaleL.
  107.