ホーム エクスプローラ ヘルプ
サインイン
eric
/
Topspeed_JPI
1
0
フォーク 0
ファイル 課題 0 プルリクエスト 0 Wiki
ブランチ: master
ブランチ タグ
Topspeed_JPI
/
TS-V3
/
MODBASE
/
ERRSTRGS.LST

ERRSTRGS.LST 9.5 KB
パーマリンク 履歴 Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE ErrStrgs;
    4. 

  4.     2  (*
    5. 

  5.     3   *  REPERTOIRE
    6. 

  6.     4   *  Release 1.6
    7. 

  7.     5   *  By Charles Bradford and Cole Brecheen
    8. 

  8.     6   *  (c) Copyright 1985-1992 PMI
    9. 

  9.     7   *  Green Bay, Wisconsin
    10. 

  10.     8   *  All rights reserved
    11. 

  11.     9   *  (414) 468-6040
    12. 

  12.    10   *
    13. 

  13.    11   *  $Header:   D:/logfiles/mods/errstrgs.mov   1.5   10 Mar 1991 15:27:24   coleb  $
    14. 

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  
    18. 

  18.    16  IMPORT StrConv;
    19. 

  19.    17  IMPORT StrEdit;
    20. 

  20.    18  IMPORT StringIO;
    21. 

  21.    19  IMPORT M2Strings;
    22. 

  22.    20  
    23. 

  23.    21  VAR
    24. 

  24.    22    Initialized : BOOLEAN;
    25. 

  25.    23  
    26. 

  26.    24    PROCEDURE Init();
    27. 

  27.    25      BEGIN
    28. 

  28.    26        IF Initialized THEN
    29. 

  29.    27          RETURN;
    30. 

  30.    28        ELSE
    31. 

  31.    29          Initialized := TRUE;
    32. 

  32.    30        END;
    33. 

  33.    31        StrConv.Init();
    34. 

  34. *****        ^ not supported yet
    35. 

  35. *****                ^ not supported yet
    36. 

  36. *****                     ^ not supported yet
    37. 

  37.    32        StrEdit.Init();
    38. 

  38. *****        ^ not supported yet
    39. 

  39. *****                ^ not supported yet
    40. 

  40. *****                     ^ not supported yet
    41. 

  41.    33        StringIO.Init();
    42. 

  42. *****        ^ not supported yet
    43. 

  43. *****                 ^ not supported yet
    44. 

  44. *****                      ^ not supported yet
    45. 

  45.    34        M2Strings.Init();
    46. 

  46. *****        ^ not supported yet
    47. 

  47. *****                  ^ not supported yet
    48. 

  48. *****                       ^ not supported yet
    49. 

  49.    35      END Init;
    50. 

  50. *****          ^ not supported yet
    51. 

  51.    36  
    52. 

  52.    37    PROCEDURE NumToStr( ErrorNumber: CARDINAL;
    53. 

  53.    38        VAR TheStr: ARRAY OF CHAR );
    54. 

  54. *****                             ^ not supported yet
    55. 

  55.    39      BEGIN
    56. 

  56.    40        CASE ErrorNumber OF
    57. 

  57.    41          0 :
    58. 

  58.    42          StrEdit.AssignStr( 'No error', TheStr );
    59. 

  59. *****          ^ not supported yet
    60. 

  60. *****                  ^ not supported yet
    61. 

  61. *****                             ^ not supported yet
    62. 

  62. *****                                         ^ not supported yet
    63. 

  63.    43        | 1 :
    64. 

  64.    44          StrEdit.AssignStr( 'Invalid function number', TheStr );
    65. 

  65. *****          ^ not supported yet
    66. 

  66. *****                  ^ not supported yet
    67. 

  67. *****                             ^ not supported yet
    68. 

  68. *****                                                        ^ not supported yet
    69. 

  69.    45        | 2 :
    70. 

  70.    46          StrEdit.AssignStr( 'File not found', TheStr );
    71. 

  71. *****          ^ not supported yet
    72. 

  72. *****                  ^ not supported yet
    73. 

  73. *****                             ^ not supported yet
    74. 

  74. *****                                               ^ not supported yet
    75. 

  75.    47        | 3 :
    76. 

  76.    48          StrEdit.AssignStr( 'Path not found', TheStr );
    77. 

  77. *****          ^ not supported yet
    78. 

  78. *****                  ^ not supported yet
    79. 

  79. *****                             ^ not supported yet
    80. 

  80. *****                                               ^ not supported yet
    81. 

  81.    49        | 4 :
    82. 

  82.    50          StrEdit.AssignStr( 'No handles left', TheStr );
    83. 

  83. *****          ^ not supported yet
    84. 

  84. *****                  ^ not supported yet
    85. 

  85. *****                             ^ not supported yet
    86. 

  86. *****                                                ^ not supported yet
    87. 

  87.    51        | 5 :
    88. 

  88.    52          StrEdit.AssignStr( 'Access denied', TheStr );
    89. 

  89. *****          ^ not supported yet
    90. 

  90. *****                  ^ not supported yet
    91. 

  91. *****                             ^ not supported yet
    92. 

  92. *****                                              ^ not supported yet
    93. 

  93.    53        | 6 :
    94. 

  94.    54          StrEdit.AssignStr( 'Invalid handle', TheStr );
    95. 

  95. *****          ^ not supported yet
    96. 

  96. *****                  ^ not supported yet
    97. 

  97. *****                             ^ not supported yet
    98. 

  98. *****                                               ^ not supported yet
    99. 

  99.    55        | 7 :
    100. 

  100.    56          StrEdit.AssignStr( 'Memory control blocks destroyed', TheStr );
    101. 

  101. *****          ^ not supported yet
    102. 

  102. *****                  ^ not supported yet
    103. 

  103. *****                             ^ not supported yet
    104. 

  104. *****                                                                ^ not supported yet
    105. 

  105.    57        | 8 :
    106. 

  106.    58          StrEdit.AssignStr( 'Insufficient memory', TheStr );
    107. 

  107. *****          ^ not supported yet
    108. 

  108. *****                  ^ not supported yet
    109. 

  109. *****                             ^ not supported yet
    110. 

  110. *****                                                    ^ not supported yet
    111. 

  111.    59        | 9 :
    112. 

  112.    60          StrEdit.AssignStr( 'Invalid memory block address', TheStr );
    113. 

  113. *****          ^ not supported yet
    114. 

  114. *****                  ^ not supported yet
    115. 

  115. *****                             ^ not supported yet
    116. 

  116. *****                                                             ^ not supported yet
    117. 

  117.    61        | 10 :
    118. 

  118.    62          StrEdit.AssignStr( 'Invalid environment', TheStr );
    119. 

  119. *****          ^ not supported yet
    120. 

  120. *****                  ^ not supported yet
    121. 

  121. *****                             ^ not supported yet
    122. 

  122. *****                                                    ^ not supported yet
    123. 

  123.    63        | 11 :
    124. 

  124.    64          StrEdit.AssignStr( 'Invalid format', TheStr );
    125. 

  125. *****          ^ not supported yet
    126. 

  126. *****                  ^ not supported yet
    127. 

  127. *****                             ^ not supported yet
    128. 

  128. *****                                               ^ not supported yet
    129. 

  129.    65        | 12 :
    130. 

  130.    66          StrEdit.AssignStr( 'Invalid access code', TheStr );
    131. 

  131. *****          ^ not supported yet
    132. 

  132. *****                  ^ not supported yet
    133. 

  133. *****                             ^ not supported yet
    134. 

  134. *****                                                    ^ not supported yet
    135. 

  135.    67        | 13 :
    136. 

  136.    68          StrEdit.AssignStr( 'Invalid data', TheStr );
    137. 

  137. *****          ^ not supported yet
    138. 

  138. *****                  ^ not supported yet
    139. 

  139. *****                             ^ not supported yet
    140. 

  140. *****                                             ^ not supported yet
    141. 

  141.    69        | 14 :
    142. 

  142.    70          StrEdit.AssignStr( 'Missing message 14', TheStr );
    143. 

  143. *****          ^ not supported yet
    144. 

  144. *****                  ^ not supported yet
    145. 

  145. *****                             ^ not supported yet
    146. 

  146. *****                                                   ^ not supported yet
    147. 

  147.    71        | 15 :
    148. 

  148.    72          StrEdit.AssignStr( 'Invalid drive was specified', TheStr );
    149. 

  149. *****          ^ not supported yet
    150. 

  150. *****                  ^ not supported yet
    151. 

  151. *****                             ^ not supported yet
    152. 

  152. *****                                                            ^ not supported yet
    153. 

  153.    73        | 16 :
    154. 

  154.    74          StrEdit.AssignStr( 'Attempt to remove current dir', TheStr );
    155. 

  155. *****          ^ not supported yet
    156. 

  156. *****                  ^ not supported yet
    157. 

  157. *****                             ^ not supported yet
    158. 

  158. *****                                                              ^ not supported yet
    159. 

  159.    75        | 17 :
    160. 

  160.    76          StrEdit.AssignStr( 'Different device', TheStr );
    161. 

  161. *****          ^ not supported yet
    162. 

  162. *****                  ^ not supported yet
    163. 

  163. *****                             ^ not supported yet
    164. 

  164. *****                                                 ^ not supported yet
    165. 

  165.    77        | 18 :
    166. 

  166.    78          StrEdit.AssignStr( 'No more files', TheStr );
    167. 

  167. *****          ^ not supported yet
    168. 

  168. *****                  ^ not supported yet
    169. 

  169. *****                             ^ not supported yet
    170. 

  170. *****                                              ^ not supported yet
    171. 

  171.    79        | 19 :
    172. 

  172.    80          StrEdit.AssignStr( 'Write protection error', TheStr );
    173. 

  173. *****          ^ not supported yet
    174. 

  174. *****                  ^ not supported yet
    175. 

  175. *****                             ^ not supported yet
    176. 

  176. *****                                                       ^ not supported yet
    177. 

  177.    81        | 20 :
    178. 

  178.    82          StrEdit.AssignStr( 'Bad unit number', TheStr );
    179. 

  179. *****          ^ not supported yet
    180. 

  180. *****                  ^ not supported yet
    181. 

  181. *****                             ^ not supported yet
    182. 

  182. *****                                                ^ not supported yet
    183. 

  183.    83        ELSE
    184. 

  184.    84          StrConv.CardinalToStr( ORD(ErrorNumber), 0, TheStr );
    185. 

  185. *****          ^ not supported yet
    186. 

  186. *****                  ^ not supported yet
    187. 

  187. *****                                 ^ undeclared identifier
    188. 

  188. *****                                                ^ not supported yet
    189. 

  189. *****                                                      ^ not supported yet
    190. 

  190.    85          M2Strings.Insert( "OS/2 error ", TheStr, 0 );
    191. 

  191. *****          ^ not supported yet
    192. 

  192. *****                    ^ not supported yet
    193. 

  193. *****                            ^ not supported yet
    194. 

  194. *****                                           ^ not supported yet
    195. 

  195. *****                                                     ^ not supported yet
    196. 

  196.    86        END;
    197. 

  197.    87  
    198. 

  198.    88      END NumToStr;
    199. 

  199. *****          ^ not supported yet
    200. 

  200.    89  
    201. 

  201.    90  
    202. 

  202.    91    PROCEDURE WriteErrToHandle( TheHandle, ErrorNumber:
    203. 

  203.    92        CARDINAL );
    204. 

  204.    93      VAR
    205. 

  205.    94        LocalStr: ARRAY [0..79] OF CHAR;
    206. 

  206. *****                            ^ not supported yet
    207. 

  207. *****                                   ^ not supported yet
    208. 

  208.    95      BEGIN
    209. 

  209.    96        IF ErrorNumber = 0 THEN
    210. 

  210.    97          RETURN;
    211. 

  211.    98        END;
    212. 

  212.    99        NumToStr( ErrorNumber, LocalStr );
    213. 

  213. *****        ^ not supported yet
    214. 

  214. *****                               ^ not supported yet
    215. 

  215.   100        StringIO.WriteEol( TheHandle, '' );
    216. 

  216. *****        ^ not supported yet
    217. 

  217. *****                 ^ not supported yet
    218. 

  218. *****                                         ^ not supported yet
    219. 

  219.   101        StringIO.WriteStr( TheHandle, LocalStr );
    220. 

  220. *****        ^ not supported yet
    221. 

  221. *****                 ^ not supported yet
    222. 

  222. *****                                      ^ not supported yet
    223. 

  223.   102      END WriteErrToHandle;
    224. 

  224. *****          ^ not supported yet
    225. 

  225.   103  
    226. 

  226.   104  BEGIN
    227. 

  227.   105    Initialized := FALSE;
    228. 

  228.   106    Init();
    229. 

  229. *****    ^ not supported yet
    230. 

  230. *****         ^ not supported yet
    231. 

  231.   107  END ErrStrgs.
    232. 

  232. *****      ^ not supported yet
    233. 

  233. 

  234.   123 errors
    235. 

  235. 

  236.