home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / CONSTREC.M < prev    next >
Encoding:
Modula Definition  |  1994-04-05  |  7.5 KB  |  230 lines
  1.  
  2. (*
  3. !TT 4.4.94 - Fehler in MM2Comp2 behoben
  4.  
  5. Gruppe: Persönliche
  6. ID  : P9637@K0
  7. Wg. : MM2 Update Bugreport No. 1B
  8. Von : castan@cip.physik.uni-stuttgart.de (Di, 22.02.94 12:44)
  9. Name: Gerd Castan
  10. An  : Thomas Tempelmann @ M
  11. MId : 0097A709.0D49E580.11300@cip.physik.uni-stuttgart.de
  12.  
  13. Hallo Thomas,
  14.  
  15. Ich hatte Dir geschrieben
  16. >Mit dem neuen Compiler gibt es bei der letzten geschweiften Klammer die
  17. >Fehlermeldung:
  18. >Interner Fehler: Adresse nicht ansprechbar > V#3592:196,18640,101874,109892
  19.  
  20. Ich habe das Modul von Magic-Importen befreit, indem ich die entsprechenden
  21. Magic-Typen einfach ins Modul kopiert habe.
  22. Helli moege es mir verzeihen.
  23. Der Fehler tritt auch weiterhin auf.
  24. Er tritt auch auf, wenn das Compilieren nach dem einschalten des Rechners
  25. sofort durchgefuehrt wird ohne vorher etwas anderes zu tun.
  26.  
  27. Der Fehler in Dirks Modul läßt sich nicht mehr reproduzieren, obwohl er
  28. beliebig reproduzierbar war, als ich Dir den Bugreport geschrieben habe.
  29.  
  30. *)
  31.  
  32. DEFINITION MODULE TT;
  33. (*------------------------------------------------------------------------*)
  34. (* FSM-Score                                                              *)
  35. (* FontInfo                                                               *)
  36. (*------------------------------------------------------------------------*)
  37. (* Version | Datum    | Arbeitsbericht                                    *)
  38. (* 1       | 24.06.93 | tFontInfo                                         *)
  39. (* 2       | 29.01.95 | tLineInfo                                         *)
  40. (* 3       | 29.01.95 | tFillInfo                                         *)
  41. (* 4       | 29.01.95 | tPFillInfo                                        *)
  42. (*------------------------------------------------------------------------*)
  43.  
  44. IMPORT SYSTEM;
  45.  
  46. (*------------------------------------------------------------------------*)
  47. (* MagicVDI:                                                              *)
  48. (*------------------------------------------------------------------------*)
  49.  
  50. CONST   LeftJust =      0;
  51.         Centerd =       1;
  52.         RightJust =     2;
  53.  
  54. CONST   BaseJust =      0;
  55.         HalfJust =      1;
  56.         AscentJust =    2;
  57.         BottomJust =    3;
  58.         DescentJust =   4;
  59.         TopJust =       5;
  60.  
  61. CONST   Line =          1;      (* Linienstile *)
  62.         LongDash =      2;
  63.         Dot =           3;
  64.         DashDot =       4;
  65.         Dash =          5;
  66.         DashDotDot =    6;
  67.         User =          7;
  68.  
  69. CONST   Cornerd =       0;      (* Linien-Endtypen *)
  70.         Arrow =         1;
  71.         Rounded =       2;
  72.  
  73. CONST   REPLACE =        1;      (* Schreibmodi *)
  74.         TRANSPARENT =    2;
  75.         XOR =            3;
  76.         REVTRANSPARENT = 4;
  77.  
  78. CONST   None =          0;      (* Fülltypen *)
  79.         Full =          1;
  80.         Pattern =       2;
  81.         Hatch =         3;
  82.         UserFill =      4;
  83.  
  84.  
  85. (*------------------------------------------------------------------------*)
  86. (* MagicAES:                                                              *)
  87. (*------------------------------------------------------------------------*)
  88.  
  89. CONST   WHITE =          0;     (* Farben *)
  90.         BLACK =          1;
  91.  
  92. (*------------------------------------------------------------------------*)
  93. (* MagicSys:                                                              *)
  94. (*------------------------------------------------------------------------*)
  95.  
  96. (* 16-Bit Typen *)
  97.  
  98. TYPE    sWORD =         SYSTEM.WORD;
  99.         sINTEGER =      INTEGER;
  100.         sCARDINAL =     CARDINAL;
  101.         sBITSET =       BITSET;
  102.  
  103. (*------------------------------------------------------------------------*)
  104. (* Spezialfall:                                                           *)
  105. (* wrmode wirkt sich auf alle Ausgaben (Text, Linien, Füllmuster) aus.    *)
  106. (* Deshalb taucht diese Variable in allen t...Info auf.                   *)
  107. (*                                                                        *)
  108. (* In GcLazyVDI genießt diese Variable deshalb eine Sonderbehandlung      *)
  109. (*------------------------------------------------------------------------*)
  110.  
  111.  
  112. (*------------------------------------------------------------------------*)
  113. (* Font                                                                   *)
  114. (*------------------------------------------------------------------------*)
  115.  
  116. TYPE
  117.   tFontInfo =
  118.     RECORD
  119.       id:     sINTEGER;     (* Font-ID *)
  120.       color:  sINTEGER;     (* Farbindex *)
  121.       rot:    sINTEGER;     (* Rotationsrichtung *)
  122.       halign: sINTEGER;     (* Horizontale Ausrichtung *)
  123.       valign: sINTEGER;     (* Vertikale Ausrichtung *)
  124.       effect: sBITSET;      (* Texteffekte *)
  125.       wrmode: sINTEGER;     (* TRANSPARENT... *)
  126.       point:  sINTEGER;     (* aktuelle Größe des Fonts *)
  127.       width:  sINTEGER;     (* Breite bei FSM-Fonts *)
  128.       skew:   sINTEGER;     (* Neigung bei FSM-Fonts *)
  129.       mono:   BOOLEAN;      (* TRUE, wenn Monospaced *)
  130.       fsm:    BOOLEAN;      (* TRUE, wenn FSM-Font *)
  131.       charmap: sINTEGER;    (* Atari oder Bitstream bei Speedo *)
  132.       kern:    sINTEGER;    (* Kerning-mode bei Speedo *)
  133.     END;
  134.  
  135.  
  136. CONST
  137.   Atcs = 0;
  138.   emptyFontInfo = tFontInfo {
  139.     1,          (* id *)
  140.     BLACK,      (* color *)
  141.     0,          (* rot *)
  142.     LeftJust,   (* halign *)
  143.     BaseJust,   (* valign *)
  144.     sBITSET{},  (* effect *)
  145.     TRANSPARENT,(* wrmode *)
  146.     10,         (* point *)
  147.     10,         (* width *)
  148.     0,          (* skew *)
  149.     TRUE,       (* mono *)
  150.     FALSE,      (* fsm *)
  151.     Atcs,       (* charmap *)
  152.     1           (* kern, 1=normal *)
  153.   };
  154.  
  155. (*------------------------------------------------------------------------*)
  156. (* Line                                                                   *)
  157. (*------------------------------------------------------------------------*)
  158.  
  159. TYPE
  160.   tLineInfo =
  161.     RECORD
  162.       type   : sINTEGER;  (* Falls type=User muß width=1 sein! *)
  163.       udsty  : sINTEGER;
  164.       width  : sINTEGER;
  165.       color  : sINTEGER;
  166.       begin  : sINTEGER;
  167.       end    : sINTEGER;
  168.       wrmode : sINTEGER;     (* TRANSPARENT... *)
  169.     END;
  170.  
  171. CONST
  172.   emptyLineInfo = tLineInfo {
  173.     Line,
  174.     MIN(sINTEGER),
  175.     1,
  176.     BLACK,
  177.     Cornerd,
  178.     Cornerd,
  179.     REPLACE
  180.   };
  181.  
  182. (*------------------------------------------------------------------------*)
  183. (* Füllmuster                                                             *)
  184. (*------------------------------------------------------------------------*)
  185.  
  186. TYPE
  187.   tFillInfo =
  188.     RECORD
  189.       interior  : sINTEGER;
  190.       style     : sINTEGER;
  191.       color     : sINTEGER;
  192.       perimeter : BOOLEAN;
  193.       wrmode    : sINTEGER;     (* TRANSPARENT... *)
  194.     END;
  195.  
  196. CONST
  197.   emptyFillInfo = tFillInfo {
  198.     Full,
  199.     0,
  200.     BLACK,
  201.     TRUE,
  202.     REPLACE
  203.   };
  204.  
  205. (*------------------------------------------------------------------------*)
  206. (* Füllmuster mit Rand                                                    *)
  207. (*------------------------------------------------------------------------*)
  208.  
  209. TYPE
  210.   tPFillInfo =
  211.     RECORD
  212.       f: tFillInfo;
  213.       l: tLineInfo;
  214.     END;
  215.  
  216. CONST
  217.   emptyPFillInfo = tPFillInfo {
  218.     emptyFillInfo,
  219.     emptyLineInfo
  220. (*Interner Fehler: Adresse nicht ansprechbar > V#3592:196,18640,101874,109892
  221.  * an der Klammer in der nächsten Zeile *)
  222.   };
  223.  
  224. END TT.
  225.  
  226. (*
  227. CASTAN@cip.physik.uni-stuttgart.de; alias: G.Castan@physik.uni-stuttgart.de
  228. Gerd Castan * Hoehbergstr. 16 * D-70327 Stuttgart
  229. *)
  230.