Oberon/ETH Oberon/newfaq

重新安裝 · wikibook.tw

DOS.CopyTo "c:/" c11936 ~
     TRAP 14 
     ... 
     Kernel PC=9860, Kernel PC=9808, Kernel PC=10565, OFSRAMVolumes PC=461, ...

     Call error: Disk imports incompatible version of Kernel 
          GetConfig incompatible 
          WriteString incompatible

     Intel Pentium with F0 0F bug - workaround enabled.

OFSTools.Mount A NatFS Diskette0 ~
       MODULE Prompt;  (* inspired from NetSystem.SetUser *)
       IMPORT Input, Texts, Oberon; 
       VAR 
          W:  Texts.Writer; entered: ARRAY 64 OF CHAR; 

          (* The parameter "show" controls the appearance of the characters typed, for secrecy purposes. *) 
          PROCEDURE InputMode(prompt: ARRAY OF CHAR; show: BOOLEAN; VAR str: ARRAY OF CHAR); 
          VAR i: LONGINT; ch: CHAR; 
          BEGIN 
             Texts.SetColor(W, 1); Texts.WriteString(W, prompt); Texts.SetColor(W, 15); 
             Texts.Append(Oberon.Log, W.buf); 
             Input.Read(ch); i := 0; 
             WHILE (ch #; <span id=""></span>0DX) & (ch # 1AX)  DO 
                IF ch = 7FX THEN   (* Use backspace to correct the current input *) 
                   IF i > 0 THEN 
                      Texts.Delete(Oberon.Log, Oberon.Log.len-1, Oberon.Log.len); 
                      DEC(i) 
                   END 
                ELSE 
                   IF show THEN Texts.Write(W, ch) ELSE Texts.Write(W, "*") END; 
                   Texts.Append(Oberon.Log, W.buf); 
                   str[i] := ch;  INC(i) 
                END; 
                Input.Read(ch)
             END;
             str[i] := 0X;
             Texts.WriteLn(W);  Texts.Append(Oberon.Log, W.buf) 
          END InputMode;

          PROCEDURE Prompt*; 
          BEGIN 
             InputMode("Enter data: ", TRUE, entered); (* use for entering a password *) 
             REPEAT InputMode("Enter data: ", TRUE, entered) UNTIL entered = "q" (* use for a set of values *) 
          END Prompt; 

       BEGIN 
          Texts.OpenWriter(W)
       END Prompt.


       MODULE Temp; 
         VAR p, q: PROCEDURE;
         PROCEDURE P;
         END P;
       BEGIN
         p := P; q := P;
         (*IF p = P THEN END;*)  (* does not compile *)
         IF p = q THEN END  (* but this works *)
       END Temp.

PROCEDURE Check(ident, keyword: ARRAY OF CHAR): BOOLEAN; 
BEGIN 
    i := 0; 
    WHILE ident[i] # 0X DO ident[i] := CAP(ident[i]) END; 
    RETURN ident = keyword 
END Check;
| "B": Identifier(s);
    IF name = "BEGIN" THEN s := begin
    ELSIF name = "BY" THEN s := by
    END
| "B", "b": Identifier(s);
    IF Check(name, "BEGIN") THEN s := begin
    ELSIF Check(name, "BY") THEN s := by
    END
EnterTyp("CHAR", Char, OPM.CharSize, chartyp, SFtypChar);
EnterTypAlias("char", chartyp);
RX.SetSearch "begin"
RX.SetReplace "BEGIN"
RX.ReplaceAll filename | *

MODULE XYZ;
    ....
END XYZ.
Gfx.DrawStringAt(msg.ctxt, 0, 0, cap.text^);
Gfx.Begin(msg.ctxt, {Gfx.Stroke, Gfx.Fill}); 
Gfx.ShowAt(msg.ctxt, 0, 0, cap.text^); 
Gfx.End(msg.ctxt);
Gfx.Begin(msg.ctxt, {Gfx.Record}); 
Gfx.ShowAt(msg.ctxt, 0, 0, cap.text^); 
Gfx.End(msg.ctxt); 
Gfx.Render(msg.ctxt, {Gfx.Fill});
(** Glue together the attributes Cmd0 to at most Cmd9 of the gadget and 
    execute the resulting string. Macros are expanded. 
    This helps when the Cmd attribute limited to 64 characters is too short.  *)
PROCEDURE ExecAttrCmds*; 
VAR 
     cmd, cmdN: ARRAY 1024 OF CHAR; cmdName: ARRAY 8 OF CHAR; 
BEGIN 
     cmd := ""; cmdName := "Cmd0"; 
     LOOP 
          Attributes.GetString(Gadgets.executorObj, cmdName, cmdN); 
          IF (cmdN = "") OR (cmdName[3] > "9") THEN EXIT; END; 
          Strings.Append(cmd, cmdN); cmdName[3] := CHR(ORD(cmdName[3])+1); 
     END; 
     Gadgets.Execute(cmd, Gadgets.executorObj, Gadgets.context, NIL, NIL); 
END ExecAttrCmds;

LayLa.OpenAsDoc
{ Example of drop-down menu Iconizer à la System3.Tool. } 
(CONFIG 
  (DEF width 60) 
  (DEF height 24) 
  (DEF ClosedSide 
    (VLIST Panel (w=width h=height hjustify=CENTER vjustify=CENTER) 
        (ATTR Locked=TRUE) 
      (NEW Caption (ATTR Value="Menu")) 
    ) 
  ) 
  (DEF OpenSide 
    (VLIST Panel (w=width h=100 border=1 dist=1) (ATTR Locked=TRUE) 
      (NEW Button (w=[] h=height) (ATTR Caption="Text1" Cmd="...")) 
      (NEW Button (w=[] h=height) (ATTR Caption="Text2" Cmd="...")) 
      (NEW Button (w=[] h=height) (ATTR Caption="Text3" Cmd="...")) 
      (NEW Button (w=[] h=height) (ATTR Caption="Text4" Cmd="...")) 
      ) 
  ) 
  (NEW Iconizer (w=60 h=24) (ATTR Popup=TRUE Menu=TRUE) 
    (LINKS Closed=ClosedSide Open=OpenSide)) 
)

            PROCEDURE iopl( level: LONGINT): LONGINT; 
            CONST IOPL= 110; 
            CODE {SYSTEM.i386} 
                 MOV     EAX, IOPL 
                 MOV     EBX, level[ EBP] 
                 INT     80H 
            END iopl;

            (* adjust to physical window size *) 
            GetGeometry( display, primary, gRoot, gX, gY, gW, gH, gBW, gD );   
            IF gW MOD 8 # 0 THEN  
                 DEC( gW, gW MOD 8 );   
            ResizeWindow( display, primary, gW, gH );   
            END;

            (* gW MOD 8 should be 0 for efficiency! *)
            GetGeometry( display, primary, gRoot, gX, gY, gW, gH, gBW, gD ); 
            gW := <your desired witdh> 
            gH := <your desired height> 
            ResizeWindow( display, primary, gW, gH );