صفحهٔ اصلی گشت‌و‌گذار راهنما
ورود
eric
/
Topspeed_JPI
1
0
انشعاب 0
پرونده‌ها مشکلات 0 درخواست واکشی 0 ویکی
شاخه: master
شاخه‌ها تگ‌ها
Topspeed_JPI
/
TS-V3
/
EXAMPLES
/
PROG7.LST

PROG7.LST 7.1 KB
لینک دائمی تاريخچه خام

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197 
  1. Listing:
    2. 

  2. 

  3.     1  
    4. 

  4.     2  MODULE prog7;
    5. 

  5.     3  (* Sorts lines of a file into order, deleting duplicates *)
    6. 

  6.     4  IMPORT IO, FIO, Lib, Storage, Str;
    7. 

  7.     5  
    8. 

  8.     6  TYPE
    9. 

  9.     7    StringType = ARRAY [0..255] OF CHAR;
    10. 

  10. *****                           ^ not supported yet
    11. 

  11. *****                                   ^ not supported yet
    12. 

  12.     8    StringPointerType = POINTER TO StringType;
    13. 

  13. *****                                   ^ not supported yet
    14. 

  14.     9  VAR
    15. 

  15.    10    p : ARRAY [1..10000] OF StringPointerType;
    16. 

  16. *****                  ^ not supported yet
    17. 

  17. *****                            ^ not supported yet
    18. 

  18.    11  
    19. 

  19.    12  PROCEDURE Less(i,j:CARDINAL):BOOLEAN;
    20. 

  20.    13  BEGIN
    21. 

  21.    14    RETURN Str.Compare(p[i]^, p[j]^)  < 0 ;
    22. 

  22. *****           ^ not supported yet
    23. 

  23. *****               ^ not supported yet
    24. 

  24. *****                       ^ not supported yet
    25. 

  25. *****                          ^ not supported yet
    26. 

  26. *****                              ^ not supported yet
    27. 

  27. *****                                 ^ not supported yet
    28. 

  28.    15  END Less;
    29. 

  29. *****      ^ not supported yet
    30. 

  30.    16  
    31. 

  31.    17  PROCEDURE Swap(i,j:CARDINAL);
    32. 

  32.    18  VAR tmp:StringPointerType;
    33. 

  33. *****          ^ not supported yet
    34. 

  34.    19  BEGIN
    35. 

  35.    20    tmp := p[i]; p[i] := p[j]; p[j] := tmp;
    36. 

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

  37. *****           ^ not supported yet
    38. 

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

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

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

  41. *****                         ^ not supported yet
    42. 

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

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

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

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

  46.    21  END Swap;
    47. 

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

  48.    22  
    49. 

  49.    23  VAR s: StringType;
    50. 

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

  51.    24      len:CARDINAL;
    52. 

  52.    25      i,n:CARDINAL;
    53. 

  53.    26      InFile,OutFile:FIO.File;
    54. 

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

  55.    27      buffer:ARRAY [1..512+FIO.BufferOverhead] OF BYTE;
    56. 

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

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

  58. *****                                                  ^ undeclared identifier
    59. 

  59.    28  BEGIN
    60. 

  60.    29    (* check parameters *)
    61. 

  61.    30    IF Lib.ParamCount() <> 2 THEN
    62. 

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

  63. *****           ^ not supported yet
    64. 

  64. *****                      ^ not supported yet
    65. 

  65.    31      IO.WrStr('Try again : prog7 input-file output-file');
    66. 

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

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

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

  69.    32      IO.WrLn;
    70. 

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

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

  72.    33      HALT;
    73. 

  73. *****      ^ undeclared identifier
    74. 

  74.    34    END;
    75. 

  75.    35  
    76. 

  76.    36    (* read file in *)
    77. 

  77.    37    Lib.ParamStr(s, 1); InFile := FIO.Open(s);
    78. 

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

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

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

  81. *****                     ^ not supported yet
    82. 

  82. *****                        ^ not supported yet
    83. 

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

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

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

  86.    38    FIO.AssignBuffer(InFile, buffer);
    87. 

  87. *****    ^ not supported yet
    88. 

  88. *****        ^ not supported yet
    89. 

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

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

  91.    39    n := 0;
    92. 

  92.    40    LOOP
    93. 

  93.    41      FIO.RdStr(InFile, s);
    94. 

  94. *****      ^ not supported yet
    95. 

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

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

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

  98.    42      IF FIO.EOF THEN
    99. 

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

  100. *****             ^ not supported yet
    101. 

  101.    43        EXIT;
    102. 

  102.    44      END;
    103. 

  103.    45      IF n = HIGH(p) THEN
    104. 

  104. *****             ^ undeclared identifier
    105. 

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

  106.    46        IO.WrStr('Too many lines!');
    107. 

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

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

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

  110.    47        IO.WrLn;
    111. 

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

  112. *****           ^ not supported yet
    113. 

  113.    48        EXIT;
    114. 

  114.    49      END;
    115. 

  115.    50      INC(n);
    116. 

  116. *****      ^ undeclared identifier
    117. 

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

  118.    51      len := Str.Length(s);
    119. 

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

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

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

  122.    52      Storage.ALLOCATE(p[n], len + 1);
    123. 

  123. *****      ^ not supported yet
    124. 

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

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

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

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

  128.    53      Lib.Move(ADR(s), ADR(p[n]^), len + 1);
    129. 

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

  130. *****          ^ not supported yet
    131. 

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

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

  133. *****                       ^ undeclared identifier
    134. 

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

  135. *****                              ^ not supported yet
    136. 

  136. *****                                          ^ not supported yet
    137. 

  137.    54    END;
    138. 

  138.    55  
    139. 

  139.    56    FIO.Close(InFile);
    140. 

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

  141. *****        ^ not supported yet
    142. 

  142. *****              ^ not supported yet
    143. 

  143.    57  
    144. 

  144.    58    (* sort file in memory *)
    145. 

  145.    59    Lib.HSort(n, Less, Swap);
    146. 

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

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

  148. *****                 ^ not supported yet
    149. 

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

  150.    60  
    151. 

  151.    61    (* write file out *)
    152. 

  152.    62    Lib.ParamStr(s, 2); OutFile := FIO.Create(s);
    153. 

  153. *****    ^ not supported yet
    154. 

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

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

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

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

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

  159. *****                                       ^ not supported yet
    160. 

  160. *****                                              ^ not supported yet
    161. 

  161.    63    FIO.AssignBuffer(OutFile, buffer);
    162. 

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

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

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

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

  166.    64    FOR i := 1 TO n DO
    167. 

  167.    65      IF (i = 1) OR (Str.Compare(p[i]^, p[i-1]^) <> 0) THEN
    168. 

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

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

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

  171. *****                                    ^ not supported yet
    172. 

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

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

  174.    66        FIO.WrStr(OutFile, p[i]^);
    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.    67        FIO.WrLn(OutFile);
    181. 

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

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

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

  184.    68      END;
    185. 

  185.    69    END;
    186. 

  186.    70    FIO.Close(OutFile);
    187. 

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

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

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

  190.    71  
    191. 

  191.    72  END prog7.
    192. 

  192.    73  
    193. 

  193.    74  
    194. 

  194. 

  195.   117 errors
    196. 

  196. 

  197.