Strona główna Odkrywaj Pomoc
Zaloguj się
eric
/
Topspeed_JPI
1
0
Forkuj 0
Pliki Problemy 0 Oczekujące zmiany 0 Wiki
Gałąź: master
Gałęzie Tagi
Topspeed_JPI
/
TS-V3
/
REP16
/
TIMING.LST

TIMING.LST 9.9 KB
Bezpośredni odnośnik Historia Czysty

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE Timing;
    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/timing.mov   1.7   10 Mar 1991 15:34:00   coleb  $
    14. 

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  
    18. 

  18.    16  (*EntryDiag:
    19. 

  19.    17  IMPORT Diagnostics;
    20. 

  20.    18  :EntryDiag*)
    21. 

  21.    19  
    22. 

  22.    20  IMPORT EnvironUtils;
    23. 

  23.    21  IMPORT M2Strings;
    24. 

  24.    22  IMPORT StrConv;
    25. 

  25.    23  IMPORT StrEdit;
    26. 

  26.    24  IMPORT SYSTEM;
    27. 

  27.    25  IMPORT VWindows;
    28. 

  28.    26  
    29. 

  29.    27  VAR
    30. 

  30.    28    Initialized : BOOLEAN;
    31. 

  31.    29  
    32. 

  32.    30    PROCEDURE Init();
    33. 

  33.    31      BEGIN
    34. 

  34.    32        IF Initialized THEN
    35. 

  35.    33          RETURN;
    36. 

  36.    34        ELSE
    37. 

  37.    35          Initialized := TRUE;
    38. 

  38.    36        END;
    39. 

  39.    37  (*EntryDiag:
    40. 

  40.    38        Diagnostics.Init();
    41. 

  41.    39  :EntryDiag*)
    42. 

  42.    40  
    43. 

  43.    41        EnvironUtils.Init();
    44. 

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

  45. *****                     ^ not supported yet
    46. 

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

  47.    42        M2Strings.Init();
    48. 

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

  49. *****                  ^ not supported yet
    50. 

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

  51.    43        StrConv.Init();
    52. 

  52. *****        ^ not supported yet
    53. 

  53. *****                ^ not supported yet
    54. 

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

  55.    44        StrEdit.Init();
    56. 

  56. *****        ^ not supported yet
    57. 

  57. *****                ^ not supported yet
    58. 

  58. *****                     ^ not supported yet
    59. 

  59.    45        VWindows.Init();
    60. 

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

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

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

  63.    46  
    64. 

  64.    47  (*EntryDiag:
    65. 

  65.    48        Diagnostics.diagS( 'Entering Timing', '' );
    66. 

  66.    49  :EntryDiag*)
    67. 

  67.    50  
    68. 

  68.    51        BeginTimer();
    69. 

  69. *****        ^ undeclared identifier
    70. 

  70. *****                   ^ not supported yet
    71. 

  71.    52  
    72. 

  72.    53  (*EntryDiag:
    73. 

  73.    54        Diagnostics.diagS( 'Exiting Timing', '' );
    74. 

  74.    55  :EntryDiag*)
    75. 

  75.    56      END Init;
    76. 

  76. *****          ^ not supported yet
    77. 

  77.    57  
    78. 

  78.    58  
    79. 

  79.    59    VAR
    80. 

  80.    60      hours, minutes, seconds, hunds : CARDINAL;
    81. 

  81.    61  
    82. 

  82.    62    PROCEDURE BeginTimer();
    83. 

  83.    63      VAR
    84. 

  84.    64        dumstr : ARRAY [0..80] OF CHAR;
    85. 

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

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

  87.    65      BEGIN
    88. 

  88.    66        EnvironUtils.GetTime(hours, minutes, seconds, hunds, dumstr);
    89. 

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

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

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

  92.    67      END BeginTimer;
    93. 

  93. *****          ^ not supported yet
    94. 

  94.    68  
    95. 

  95.    69    PROCEDURE ReadTimer(VAR hout, mout, sout, hunout : CARDINAL);
    96. 

  96.    70      VAR
    97. 

  97.    71        dumstr : ARRAY [0..20] OF CHAR;
    98. 

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

  99. *****                                  ^ not supported yet
    100. 

  100.    72        hused, mused, sused, hunused : INTEGER;
    101. 

  101.    73      BEGIN
    102. 

  102.    74        EnvironUtils.GetTime(hout, mout, sout, hunout, dumstr);
    103. 

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

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

  105. *****                                                       ^ not supported yet
    106. 

  106.    75        hunused := INTEGER(hunout)-INTEGER(hunds);
    107. 

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

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

  109.    76        sused := INTEGER(sout)-INTEGER(seconds);
    110. 

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

  111. *****                                              ^ not supported yet
    112. 

  112.    77        mused := INTEGER(mout)-INTEGER(minutes);
    113. 

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

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

  115.    78        hused := INTEGER(hout)-INTEGER(hours);
    116. 

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

  117. *****                                            ^ not supported yet
    118. 

  118.    79        IF hunused<0 THEN
    119. 

  119.    80          INC( hunused, 100);
    120. 

  120. *****          ^ undeclared identifier
    121. 

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

  122.    81          DEC( sused);
    123. 

  123. *****          ^ undeclared identifier
    124. 

  124. *****                    ^ not supported yet
    125. 

  125.    82        END;
    126. 

  126.    83        IF sused<0 THEN
    127. 

  127.    84          INC( sused, 60);
    128. 

  128. *****          ^ undeclared identifier
    129. 

  129. *****                        ^ not supported yet
    130. 

  130.    85          DEC( mused);
    131. 

  131. *****          ^ undeclared identifier
    132. 

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

  133.    86        END;
    134. 

  134.    87        IF mused<0 THEN
    135. 

  135.    88          INC( mused, 60);
    136. 

  136. *****          ^ undeclared identifier
    137. 

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

  138.    89          DEC( hused);
    139. 

  139. *****          ^ undeclared identifier
    140. 

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

  141.    90        END;
    142. 

  142.    91        IF hused<0 THEN
    143. 

  143.    92          (* accounts for use through midnight; but does not
    144. 

  144.    93             handle use for longer than 24 hours *)
    145. 

  145.    94          INC( hused, 24);
    146. 

  146. *****          ^ undeclared identifier
    147. 

  147. *****                        ^ not supported yet
    148. 

  148.    95        END;
    149. 

  149.    96        hunout := hunused;
    150. 

  150.    97        sout := sused;
    151. 

  151.    98        hout := hused;
    152. 

  152.    99        mout := mused;
    153. 

  153.   100      END ReadTimer;
    154. 

  154. *****          ^ not supported yet
    155. 

  155.   101  
    156. 

  156.   102    PROCEDURE ShowUsage(name : ARRAY OF CHAR);
    157. 

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

  158.   103      VAR
    159. 

  159.   104        h, m, s, hun : CARDINAL;
    160. 

  160.   105        dumstr : ARRAY [0..255] OF CHAR;
    161. 

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

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

  163.   106        numstr : ARRAY [0..10] OF CHAR;
    164. 

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

  165. *****                                  ^ not supported yet
    166. 

  166.   107        caption : ARRAY [0..31] OF CHAR;
    167. 

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

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

  169.   108        dumc : CARDINAL;
    170. 

  170.   109      BEGIN
    171. 

  171.   110        ReadTimer(h, m, s, hun);
    172. 

  172. *****        ^ not supported yet
    173. 

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

  174.   111        M2Strings.Concat('You have been using ', name, dumstr);
    175. 

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

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

  177. *****                         ^ not supported yet
    178. 

  178. *****                                                 ^ not supported yet
    179. 

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

  180.   112        StrEdit.Append(dumstr, ' for ');
    181. 

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

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

  183. *****                       ^ not supported yet
    184. 

  184. *****                               ^ not supported yet
    185. 

  185.   113        StrConv.CardinalToStr(h*60+m, 1, numstr);
    186. 

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

  187. *****                ^ not supported yet
    188. 

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

  189.   114        StrEdit.Append(dumstr, numstr);
    190. 

  190. *****        ^ not supported yet
    191. 

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

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

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

  194.   115        StrEdit.Append(dumstr, ' minute');
    195. 

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

  196. *****                ^ not supported yet
    197. 

  197. *****                       ^ not supported yet
    198. 

  198. *****                               ^ not supported yet
    199. 

  199.   116        IF h+h+m#1 THEN
    200. 

  200.   117          StrEdit.Append(dumstr, 's');
    201. 

  201. *****          ^ not supported yet
    202. 

  202. *****                  ^ not supported yet
    203. 

  203. *****                         ^ not supported yet
    204. 

  204. *****                                    ^ not supported yet
    205. 

  205.   118        END;
    206. 

  206.   119        StrEdit.Append(dumstr, ' and ');
    207. 

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

  208. *****                ^ not supported yet
    209. 

  209. *****                       ^ not supported yet
    210. 

  210. *****                               ^ not supported yet
    211. 

  211.   120        StrConv.CardinalToStr(s, 1, numstr);
    212. 

  212. *****        ^ not supported yet
    213. 

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

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

  215.   121        StrEdit.Append(dumstr, numstr);
    216. 

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

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

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

  219. *****                               ^ not supported yet
    220. 

  220.   122        StrEdit.Append(dumstr, ' second');
    221. 

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

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

  223. *****                       ^ not supported yet
    224. 

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

  225.   123        IF s#1 THEN
    226. 

  226.   124          StrEdit.Append(dumstr, 's');
    227. 

  227. *****          ^ not supported yet
    228. 

  228. *****                  ^ not supported yet
    229. 

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

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

  231.   125        END;
    232. 

  232.   126        StrEdit.Append(dumstr, ' in this session.');
    233. 

  233. *****        ^ not supported yet
    234. 

  234. *****                ^ not supported yet
    235. 

  235. *****                       ^ not supported yet
    236. 

  236. *****                               ^ not supported yet
    237. 

  237.   127        caption := 'Elapsed Time';
    238. 

  238. *****        ^ not supported yet
    239. 

  239. *****                   ^ not supported yet
    240. 

  240.   128        dumc := VWindows.MessageBox( VWindows.CurrentWindow,
    241. 

  241. *****                ^ not supported yet
    242. 

  242. *****                         ^ not supported yet
    243. 

  243. *****                                     ^ not supported yet
    244. 

  244. *****                                              ^ not supported yet
    245. 

  245.   129            SYSTEM.ADR(dumstr), SYSTEM.ADR(caption), 0 );
    246. 

  246. *****            ^ not supported yet
    247. 

  247. *****                   ^ not supported yet
    248. 

  248. *****                       ^ not supported yet
    249. 

  249. *****                                ^ not supported yet
    250. 

  250. *****                                       ^ not supported yet
    251. 

  251. *****                                           ^ not supported yet
    252. 

  252. *****                                                       ^ not supported yet
    253. 

  253.   130      END ShowUsage;
    254. 

  254. *****          ^ not supported yet
    255. 

  255.   131  
    256. 

  256.   132  BEGIN
    257. 

  257.   133    Initialized := FALSE;
    258. 

  258.   134    Init();
    259. 

  259. *****    ^ not supported yet
    260. 

  260. *****         ^ not supported yet
    261. 

  261.   135  END Timing.
    262. 

  262. *****      ^ not supported yet
    263. 

  263. 

  264.   125 errors
    265. 

  265. 

  266.