home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wincount.def < prev    next >
Text File  |  1994-05-03  |  3KB  |  91 lines
  1. DEFINITION MODULE WINCOUNTRY;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 interface for Presentation Manager country 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. FROM   OS2DEF  IMPORT HAB, HMQ, PSZ;
  14.  
  15. PROCEDURE WinQueryCp
  16. ( MsgQueueHandle        : HMQ
  17. )                       : LONGCARD;
  18.  
  19. PROCEDURE WinSetCp
  20. ( MsgQueueHandle        : HMQ;
  21.   CodePage              : LONGCARD
  22. )                       : BOOLEAN;
  23.  
  24. PROCEDURE WinQueryCpList
  25. ( AnchorBlockHandle     : HAB;
  26.   MaxCount              : LONGCARD;
  27.   VAR CodePage          : ARRAY OF LONGCARD
  28. )                       : LONGCARD;
  29.  
  30. PROCEDURE WinCpTranslateString
  31. ( AnchorBlockHandle     : HAB;
  32.   SourceCodePage        : LONGCARD;
  33.   VAR Source            : ARRAY OF CHAR;
  34.   DestCodePage          : LONGCARD;
  35.   DestMax               : LONGCARD;
  36.   VAR Dest              : ARRAY OF CHAR
  37. )                       : BOOLEAN;
  38.  
  39. PROCEDURE WinCpTranslateChar
  40. ( AnchorBlockHandle     : HAB;
  41.   SourceCodePage        : LONGCARD;
  42.   SourceChar            : CHAR;
  43.   DestCodePage          : LONGCARD
  44. )                       : CHAR;
  45.  
  46. PROCEDURE WinUpper
  47. ( AnchorBlockHandle     : HAB;
  48.   CodePage              : LONGCARD;
  49.   Country               : LONGCARD;
  50.   VAR String            : ARRAY OF CHAR
  51. )                       : LONGCARD;
  52.  
  53. PROCEDURE WinUpperChar
  54. ( AnchorBlockHandle     : HAB;
  55.   CodePage              : LONGCARD;
  56.   Country               : LONGCARD;
  57.   InChar                : LONGCARD
  58. )                       : LONGCARD;
  59.  
  60. PROCEDURE WinNextChar
  61. ( AnchorBlockHandle     : HAB;
  62.   CodePage              : LONGCARD;
  63.   Country               : LONGCARD;
  64.   VAR CurrentChar       : CHAR
  65. )                       : PSZ;
  66.  
  67. PROCEDURE WinPrevChar
  68. ( AnchorBlockHandle     : HAB;
  69.   CodePage              : LONGCARD;
  70.   Country               : LONGCARD;
  71.   VAR Start             : CHAR;
  72.   VAR CurrentChar       : CHAR
  73. )                       : PSZ;
  74.  
  75. PROCEDURE WinCompareStrings
  76. ( AnchorBlockHandle     : HAB;
  77.   CodePage              : LONGCARD;
  78.   CountryCode           : LONGCARD;
  79.   VAR String1           : ARRAY OF CHAR;
  80.   VAR String2           : ARRAY OF CHAR;
  81.   Reserved              : LONGCARD
  82. )                       : LONGCARD;
  83.  
  84. CONST
  85.   WCS_ERROR             = 0;
  86.   WCS_EQ                = 1;
  87.   WCS_LT                = 2;
  88.   WCS_GT                = 3;
  89.  
  90. END WINCOUNTRY.
  91.