home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / dosnls.def < prev    next >
Text File  |  1994-05-03  |  4KB  |  122 lines
  1. DEFINITION MODULE DOSNLS;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 Interface for national language support.
  5.  
  6.   Copyright (c) 1992 by Juergen Neuhoff
  7. *************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$CDECL+    C-style procedures                                         *)
  11. (*$A         default alignment for record fields                        *)
  12.  
  13. IMPORT SYSTEM;
  14. FROM   OS2DEF IMPORT TYPEPREFIX, APIRET;
  15.  
  16. TYPE (* country code record *)
  17.   COUNTRYCODE        = RECORD
  18.     CASE               : TYPEPREFIX OF
  19.     | TRUE             :
  20.       country          : LONGCARD;
  21.       codepage         : LONGCARD;
  22.     | FALSE            :
  23.       Country          : LONGCARD;
  24.       CodePage         : LONGCARD;
  25.     END;               END;
  26.  
  27. TYPE (* country information record *)
  28.   COUNTRYINFO          = RECORD
  29.     CASE                 : TYPEPREFIX OF
  30.     | TRUE               :
  31.       country            : LONGCARD;
  32.       codepage           : LONGCARD;
  33.       fsDateFmt          : LONGCARD;
  34.       szCurrency         : ARRAY [0..4] OF CHAR;
  35.       szThousandsSeparator : ARRAY [0..1] OF CHAR;
  36.       szDecimal          : ARRAY [0..1] OF CHAR;
  37.       szDateSeparator    : ARRAY [0..1] OF CHAR;
  38.       szTimeSeparator    : ARRAY [0..1] OF CHAR;
  39.       fsCurrencyFmt      : SHORTCARD;
  40.       cDecimalPlace      : SHORTCARD;
  41.       fsTimeFmt          : SHORTCARD;
  42.       filler             : SYSTEM.BYTE;
  43.       abReserved1        : ARRAY [0..1] OF SYSTEM.WORD;
  44.       szDataSeparator    : ARRAY [0..1] OF CHAR;
  45.       abReserved2        : ARRAY [0..4] OF SYSTEM.WORD;
  46.     | FALSE              :
  47.       Country            : LONGCARD;
  48.       CodePage           : LONGCARD;
  49.       DateFmt            : LONGCARD;
  50.       Currency           : ARRAY [0..4] OF CHAR;
  51.       ThousandsSeparator : ARRAY [0..1] OF CHAR;
  52.       Decimal            : ARRAY [0..1] OF CHAR;
  53.       DateSeparator      : ARRAY [0..1] OF CHAR;
  54.       TimeSeparator      : ARRAY [0..1] OF CHAR;
  55.       CurrencyFmt        : SHORTCARD;
  56.       DecimalPlace       : SHORTCARD;
  57.       TimeFmt            : SHORTCARD;
  58.       Filler             : SYSTEM.BYTE;
  59.       Reserved1          : ARRAY [0..1] OF SYSTEM.WORD;
  60.       DataSeparator      : ARRAY [0..1] OF CHAR;
  61.       Reserved2          : ARRAY [0..4] OF SYSTEM.WORD;
  62.     END;                 END;
  63.   PCOUNTRYCODE         = POINTER TO COUNTRYCODE;
  64.   PCOUNTRYINFO         = POINTER TO COUNTRYINFO;
  65.  
  66. CONST (* CodePage values *)
  67.   CP_UNITED_STATES       = 437;
  68.   CP_MULTILINGUAL        = 850;
  69.   CP_LATIN2              = 852;
  70.   CP_TURKISH             = 857;
  71.   CP_PORTUGUESE          = 860;
  72.   CP_ICELAND             = 861;
  73.   CP_CANADIAN_FRENCH     = 863;
  74.   CP_NORDIC              = 865;
  75.   CP_JAPAN               = 932;
  76.   CP_KOREA               = 934;
  77.   CP_CHINA               = 936;
  78.   CP_TAIWAN              = 938;
  79.   CP_JAPAN_SAA           = 942;
  80.   CP_KOREA_SAA           = 944;
  81.   CP_CHINA_SAA           = 946;
  82.   CP_TAIWAN_SAA          = 948;
  83.  
  84.  
  85. PROCEDURE DosQueryCtryInfo
  86. ( Length               : LONGCARD;
  87.   VAR CountryCode      : COUNTRYCODE;
  88.   VAR CountryInfo      : COUNTRYINFO;
  89.   VAR ActualLength     : LONGCARD
  90. )                      : APIRET;
  91.  
  92. PROCEDURE DosQueryDBCSEnv
  93. ( Length               : LONGCARD;
  94.   VAR CountryCode      : COUNTRYCODE;
  95.   VAR MemoryBuffer     : ARRAY OF CHAR
  96. )                      : APIRET;
  97.  
  98. PROCEDURE DosMapCase
  99. ( Length               : LONGCARD;
  100.   VAR CountryCode      : COUNTRYCODE;
  101.   VAR BinaryString     : ARRAY OF SYSTEM.BYTE
  102. )                      : APIRET;
  103.  
  104. PROCEDURE DosQueryCollate
  105. ( Length               : LONGCARD;
  106.   VAR CountryCode      : COUNTRYCODE;
  107.   VAR CollateBuffer    : ARRAY OF SHORTCARD;
  108.   VAR AtualLength      : LONGCARD
  109. )                      : APIRET;
  110.  
  111. PROCEDURE DosQueryCp
  112. ( Length               : LONGCARD;
  113.   VAR CodePageList     : ARRAY OF LONGCARD;
  114.   VAR ActualLength     : LONGCARD
  115. )                      : APIRET;
  116.  
  117. PROCEDURE DosSetProcessCp
  118. ( CodePage             : LONGCARD
  119. )                      : APIRET;
  120.  
  121. END DOSNLS.
  122.