home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / forum8.lzh / PROGRAMME / MODULA / WINDOW / areaio.def < prev    next >
Text File  |  1989-01-19  |  13KB  |  184 lines
  1. (*
  2. -------------------------------------------------------------------------------
  3. @@@@@@@@@@@@@@@@@@@*)  DEFINITION  MODULE  AreaIO;  (*@@@@@@@@@@@@@@@@@@@@@@@@@
  4. -------------------------------------------------------------------------------
  5. -------------------------------------------------------------------------------
  6. | Kurzbeschreibung   | formatierte Zahlenein- und -ausgabe fuer Windowmodul   |
  7. |                    | Area                                                   |
  8. ---------------------+---------------------------------------------------------
  9. | Programm - Version |  2.0   |   Text - Version        |   V#027             |
  10. ---------------------+--------+-----------------+-------+----------------------
  11. | Modulholder        |  WS    |   Urversion     |  WS   |   August 88         |
  12. ---------------------+---------------------------------------------------------
  13. | System - Version   | OS-9, Miele-Modula-2 3.5                               |
  14. ---------------------+---------------------------------------------------------
  15. | Copyright          | Freigegeben fuer nichtkommerzielle Nutzung             |
  16. |                    |  durch Teilnehmer am EFFO                              |
  17. ---------------------+---------------------------------------------------------
  18. | Hardware           | GEPARD 68010, 1 MByte RAM, 80Zeichen-Textkarte         |
  19. ---------------------+---------------------------------------------------------
  20. | besondere Importe  | Area                                                   |
  21. ---------------------+---------------------------------------------------------
  22. | Autoren            |  WS    | Werner Stehling, Seilerwis 3,                 |
  23. |                    |        | CH-8606 Greifensee, Tel. 01/256 42 21         |
  24. ---------------------+---------------------------------------------------------
  25. |   U P D A T E S    |                                                        |
  26. ----------------------                                                        |
  27. |   Datum   Version  Autor  Bemerkungen                                       |
  28. | --------  -------  -----  -----------                                       |
  29. | 10. 8.88    1.1      WS   dynamische Fensterverwaltung unter GDOS           |
  30. | 17. 8.88    1.1      WS   Prozeduren zur Zahlenausgabe                      |
  31. | 12.12.88    2.0      WS   Umstellung auf OS-9                               |
  32. | 15.12.88    2.0      WS   Aufteilung in Area und AreaIO                     |
  33. |                                                                             |
  34. -------------------------------------------------------------------------------
  35. | Modul-Beschreibung |                                                        |
  36. ----------------------                                                        |
  37. | Formatierte Zahlenein- und -ausgabe fuer Windowmodul area                   |
  38. |                                                                             |
  39. | Die Read-Prozeduren schlagen jeweils den alten Wert der Variablen vor, der  |
  40. | dann editiert werden kann. Dabei sind folgende Editiertasten erlaubt:       |
  41. |                                                                             |
  42. | Cursor links und rechts                                                     |
  43. | Delete und Backspace zum Loeschen                                           |
  44. | Insert-Taste toggelt zwischen Insert- und Overwrite-Modus                   |
  45. | Home loescht das Eingabefeld                                                |
  46. | Undo (Ctrl-X) restauriert den Startwert                                     |
  47. |                                                                             |
  48. | Die Eingabe wird mit Return, ESC, Cursor hoch oder tief verlassen; dieser   |
  49. | Character wird als Funktionswert zurueckgegeben. Anschliessend erfolgt die  |
  50. | Umwandlung in die gesuchte Zahl. Falls dabei ein Fehler auftritt, landen    |
  51. | wir wieder im Editiermodus.                                                 |
  52. |                                                                             |
  53. | Bei den Zahleneingaben werden drei Klassen unterschieden:                   |
  54. |                                                                             |
  55. | Integer :   die erste Stelle darf ein Vorzeichen sein                       |
  56. | Cardinal, Hex, Octal, Binaer : das erste Zeichen gibt die Basis an:         |
  57. | (Ziffer)   $     &      %      Vorzeichen nicht erlaubt                     |
  58. | Real, Ohm, ... : der Rest                                                   |
  59. |                                                                             |
  60. | Innerhalb der Klassen darf die Eingabe in einer beliebigen (Basis-)         |
  61. | Darstellung erfolgen; der Prozedurname bestimmt nur die Darstellung bei der |
  62. | Ausgabe. Leerzeichen am Anfang und am Ende werden ignoriert.                |
  63. |                                                                             |
  64. | Bei den Real-Zahlen bedeutet Fix = Festkomma, Float = mit Exponent und      |
  65. | Real = je nachdem. Eng ist Exponent in 3er Schritten und Ohm ist die        |
  66. | beliebte abkuerzende Schreibweise der Elektroniker: der Dezimalpunkt wird   |
  67. | durch das entsprechende DIN-Zeichen der Zehnerpotenz ersetzt; dafuer        |
  68. | entfaellt dann der Exponent. Beispiel: 4K7 = 4700 Ohm ist wohl der          |
  69. | beruehmteste Widerstand. Folgende Zeichen sind zulaessig:                   |
  70. |                                                                             |
  71. | Zehnerpotenz  -18  -15  -12   -9   -6    -3    3    6    9   12             |
  72. | DIN-Kuerzel    a    f    p     n    u     m    K    M    G    T             |
  73. |              atto femto pico nano mikro milli Kilo Mega Giga Tera           |
  74. |                                                                             |
  75. | Die Prozeduren erklaeren sich durch ihre Namen. Bei Real-Zahlen wird in     |
  76. | 'digs' die Anzahl der Nachkommastellen angegeben; die anderen Zahlen werden |
  77. | gegebenenfalls durch fuehrende Nullen auf die Feldgroesse 'digs' gebracht.  |
  78. | Ein eventueller Prefix zaehlt extra.                                        |
  79. |                                                                             |
  80. | Der Parameter 'space' gibt die Groesse des zur Verfuegung stehenden         |
  81. | Ausgabefeldes an. Dabei wird folgende Vereinbarung getroffen:               |
  82. |                                                                             |
  83. |  space = 0   :   Feldgroesse entsprechend der Laenge des Strings            |
  84. |  space < 0   :   Ausgabe links buendig im Feld der Groesse '-space'         |
  85. |  space > 0   :   Ausgabe rechts buendig, Feldgroesse = space                |
  86. |  space = 1000:   Ausgabe in der Mitte zentriert, Feldgroesse = Fensterbreite|
  87. |  space > 1000:   Ausgabe in der Mitte zentriert, Feldgroesse = space - 1000 |
  88. |                                                                             |
  89. | Falls die Laenge des auszugebenden Strings groesser als 'space' ist, wird   |
  90. | 'space' ignoriert und der volle String angezeigt.                           |
  91. |                                                                             |
  92. |                                                                             |
  93. | W A R N U N G :                                                             |
  94. | ===============                                                             |
  95. | Die Prozeduren dieses Moduls und darauf aufbauender Module duerfen nicht    |
  96. | gemeinsam mit anderen I/O-Prozeduren (z.B. aus InOut) verwendet werden, da  |
  97. | ueber den Bildschirm-Inhalt und die Cursorpositionen separat Buch gefuehrt  |
  98. | wird.                                                                       |
  99. -------------------------------------------------------------------------------
  100. *)
  101.  
  102. FROM  SYSTEM        IMPORT  WORD, ADDRESS;
  103.  
  104. EXPORT  QUALIFIED   WriteStr,
  105.                     WriteCard, WriteHex, WriteOct, WriteBin, WriteInt,
  106.                     WriteLCard, WriteLHex, WriteLBin, WriteLInt,
  107.                     WriteFix, WriteEng, WriteFloat, WriteReal, WriteOhm,
  108.                     ReadStr,
  109.                     ReadCard, ReadHex, ReadOct, ReadBin, ReadInt,
  110.                     ReadLCard, ReadLHex, ReadLBin, ReadLInt,
  111.                     ReadFix, ReadEng, ReadFloat, ReadReal, ReadOhm;
  112.  
  113. (*==========================================================================*)
  114. (****   Prozeduren fuer die formatierte Ausgabe                          ****)
  115. (*==========================================================================*)
  116. (*--------------------------------------------------------------------------*)
  117.         PROCEDURE  WriteStr (val : ARRAY OF CHAR; space : INTEGER);
  118. (*--------------------------------------------------------------------------*)
  119.         PROCEDURE  WriteCard (val : WORD; digs, space : INTEGER);
  120. (*--------------------------------------------------------------------------*)
  121.         PROCEDURE  WriteHex (val : WORD; digs, space : INTEGER);
  122. (*--------------------------------------------------------------------------*)
  123.         PROCEDURE  WriteOct (val : WORD; digs, space : INTEGER);
  124. (*--------------------------------------------------------------------------*)
  125.         PROCEDURE  WriteBin (val : WORD; digs, space : INTEGER);
  126. (*--------------------------------------------------------------------------*)
  127.         PROCEDURE  WriteInt (val : INTEGER; digs, space : INTEGER);
  128. (*--------------------------------------------------------------------------*)
  129.         PROCEDURE  WriteLCard (val : ADDRESS; digs, space : INTEGER);
  130. (*--------------------------------------------------------------------------*)
  131.         PROCEDURE  WriteLHex (val : ADDRESS; digs, space : INTEGER);
  132. (*--------------------------------------------------------------------------*)
  133.         PROCEDURE  WriteLBin (val : ADDRESS; digs, space : INTEGER);
  134. (*--------------------------------------------------------------------------*)
  135.         PROCEDURE  WriteLInt (val : LONGINT; digs, space : INTEGER);
  136. (*--------------------------------------------------------------------------*)
  137.         PROCEDURE  WriteFix (val : REAL; digs, space : INTEGER);
  138. (*--------------------------------------------------------------------------*)
  139.         PROCEDURE  WriteEng (val : REAL; digs, space : INTEGER);
  140. (*--------------------------------------------------------------------------*)
  141.         PROCEDURE  WriteFloat (val : REAL; digs, space : INTEGER);
  142. (*--------------------------------------------------------------------------*)
  143.         PROCEDURE  WriteReal (val : REAL; digs, space : INTEGER);
  144. (*--------------------------------------------------------------------------*)
  145.         PROCEDURE  WriteOhm (val : REAL; digs, space : INTEGER);
  146.  
  147. (*==========================================================================*)
  148. (****   Prozeduren fuer die formatierte Eingabe                          ****)
  149. (*==========================================================================*)
  150. (*--------------------------------------------------------------------------*)
  151.         PROCEDURE  ReadStr (VAR s : ARRAY OF CHAR; space : INTEGER) : CHAR;
  152. (*--------------------------------------------------------------------------*)
  153.         PROCEDURE  ReadCard (VAR val : WORD; digs, space : INTEGER) : CHAR;
  154. (*--------------------------------------------------------------------------*)
  155.         PROCEDURE  ReadHex (VAR val : WORD; digs, space : INTEGER) : CHAR;
  156. (*--------------------------------------------------------------------------*)
  157.         PROCEDURE  ReadOct (VAR val : WORD; digs, space : INTEGER) : CHAR;
  158. (*--------------------------------------------------------------------------*)
  159.         PROCEDURE  ReadBin (VAR val : WORD; digs, space : INTEGER) : CHAR;
  160. (*--------------------------------------------------------------------------*)
  161.         PROCEDURE  ReadInt (VAR val : INTEGER; digs, space : INTEGER) : CHAR;
  162. (*--------------------------------------------------------------------------*)
  163.         PROCEDURE  ReadLCard (VAR val : ADDRESS; digs, space : INTEGER) : CHAR;
  164. (*--------------------------------------------------------------------------*)
  165.         PROCEDURE  ReadLHex (VAR val : ADDRESS; digs, space : INTEGER) : CHAR;
  166. (*--------------------------------------------------------------------------*)
  167.         PROCEDURE  ReadLBin (VAR val : ADDRESS; digs, space : INTEGER) : CHAR;
  168. (*--------------------------------------------------------------------------*)
  169.         PROCEDURE  ReadLInt (VAR val : LONGINT; digs, space : INTEGER) : CHAR;
  170. (*--------------------------------------------------------------------------*)
  171.         PROCEDURE  ReadFix (VAR val : REAL; digs, space : INTEGER) : CHAR;
  172. (*--------------------------------------------------------------------------*)
  173.         PROCEDURE  ReadEng (VAR val : REAL; digs, space : INTEGER) : CHAR;
  174. (*--------------------------------------------------------------------------*)
  175.         PROCEDURE  ReadFloat (VAR val : REAL; digs, space : INTEGER) : CHAR;
  176. (*--------------------------------------------------------------------------*)
  177.         PROCEDURE  ReadReal (VAR val : REAL; digs, space : INTEGER) : CHAR;
  178. (*--------------------------------------------------------------------------*)
  179.         PROCEDURE  ReadOhm (VAR val : REAL; digs, space : INTEGER) : CHAR;
  180. (*--------------------------------------------------------------------------*)
  181.  
  182. END  AreaIO.
  183.  
  184.