Modula2_kilo/Done/step26/editor.mod

MODULE editor;

(* based on the kilo editor building course*)

(* Step 26 *)

(******************** INCLUDES ******************)

IMPORT FIO, SYSTEM, termios, STextIO, NumberIO;
IMPORT CharClass, STextIO, libc, ASCII;
IMPORT Strings, errno;

(******************** DATA ******************)

VAR 
    c               : CHAR;
    p               : POINTER TO CHAR;
    
    result          : INTEGER;
    number          : CARDINAL;
    editorConfig    : RECORD
                        theThermios : termios.TERMIOS;
                        raw        : termios.TERMIOS;
                      END;
    (* testing *)
    test        : BOOLEAN;
    clearScreen : ARRAY[0..6] OF CHAR;
    cursorHome  : ARRAY[0..2] OF CHAR;


(******************** TERMINAL ******************)

     PROCEDURE CtrlKey(c: CHAR) : CARDINAL;

        VAR
            n : BITSET;

    BEGIN
        n := BITSET(ORD(c));
        n := n * BITSET(1FH);
        RETURN CARDINAL(n)
    END CtrlKey;

    PROCEDURE die (s : ARRAY OF CHAR);
    BEGIN
        libc.perror(s);
        STextIO.WriteString(clearScreen);
        HALT
    END die;

    PROCEDURE disablerawMode(): INTEGER;
        VAR
            TCSAFLUSH : INTEGER;
            result    : INTEGER; 
        
    BEGIN
        TCSAFLUSH := termios.tcsflush ();
        IF termios.tcsetattr(FIO.StdIn, TCSAFLUSH, editorConfig.theThermios) = -1 THEN
            die("tcsetattr")
        END;
        RETURN result;
    END disablerawMode;

    PROCEDURE enablerawMode;

        VAR
            TCSAFLUSH   : INTEGER;
            result      : INTEGER;
            bresult     : BOOLEAN;
    BEGIN
        TCSAFLUSH := termios.tcsflush (); 
        libc.atexit(disablerawMode);
        bresult := termios.SetFlag(editorConfig.raw,termios.icrnl, FALSE);
        bresult := termios.SetFlag(editorConfig.raw,termios.ixon, FALSE);
        bresult := termios.SetFlag(editorConfig.raw,termios.lecho, FALSE);
        bresult := termios.SetFlag(editorConfig.raw,termios.opost, FALSE);
        bresult := termios.SetFlag(editorConfig.raw,termios.licanon, FALSE);
        bresult := termios.SetFlag(editorConfig.raw,termios.liexten, FALSE);
        bresult := termios.SetFlag(editorConfig.raw,termios.lisig, FALSE);

        bresult := termios.SetFlag(editorConfig.raw,termios.ibrkint, FALSE);
        bresult := termios.SetFlag(editorConfig.raw,termios.inpck, FALSE);
        bresult := termios.SetFlag(editorConfig.raw,termios.istrip, FALSE);

        bresult := termios.SetFlag(editorConfig.raw,termios.cs8, TRUE);
        IF termios.tcsetattr(FIO.StdIn, TCSAFLUSH, editorConfig.raw) = -1 THEN
            die("tcsetattr")
        END;

        (* PROCEDURE SetChar (t: TERMIOS; c: ControlChar; ch: CHAR) : BOOLEAN ; *)
        (* termios.vmin := 0;
        termios.vtime := 1; *)
        bresult := termios.SetChar(editorConfig.raw,termios.vmin,CHR(0));
        bresult := termios.SetChar(editorConfig.raw,termios.vtime,CHR(1));
    END enablerawMode;

    PROCEDURE  editorReadKey() : CHAR;
        VAR
            c : CHAR;
            nread : INTEGER;
    BEGIN
        p := SYSTEM.ADR(c);
        WHILE FIO.ReadNBytes(FIO.StdIn,1,p) <> 1 DO 
           ;
        END;
        RETURN c
    END editorReadKey; 

(******************** output ******************)

    PROCEDURE editorDrawRows;

        VAR
            y : CARDINAL;

    BEGIN
        FOR y := 1 TO 24 DO
            STextIO.WriteChar("~");
            STextIO.WriteLn;
            STextIO.WriteChar(CHR(13))
        END;
    END editorDrawRows;

    PROCEDURE editorRefreshScreen;

    BEGIN
        STextIO.WriteString(clearScreen);
        editorDrawRows;
        STextIO.WriteString(cursorHome);
    END editorRefreshScreen;

(******************** input  ******************)

    PROCEDURE editorProcessKeypress;
        VAR
            c       : CHAR;
            b       : BOOLEAN;
    BEGIN
        c := editorReadKey();
        CASE ORD(c) OF
          17 : HALT;
        END
    END editorProcessKeypress;

(********************  INIT  ******************)

PROCEDURE InitScreenEscapes;

BEGIN
    clearScreen := "";
    Strings.Concat(clearScreen,ASCII.esc,clearScreen);
    Strings.Concat(clearScreen,"[2J",clearScreen);
    Strings.Concat(clearScreen,ASCII.esc,clearScreen);
    Strings.Concat(clearScreen,"[H",clearScreen);
    cursorHome := "";
    Strings.Concat(cursorHome,ASCII.esc,cursorHome);
    Strings.Concat(cursorHome,"[H",cursorHome);
END InitScreenEscapes;

BEGIN
    InitScreenEscapes;

    editorConfig.theThermios := termios.InitTermios();
    editorConfig.raw := termios.InitTermios();
    IF termios.tcgetattr(FIO.StdIn, editorConfig.theThermios) = -1 THEN
        die("tcgetattr")
    END;
    IF termios.tcgetattr(FIO.StdIn, editorConfig.raw) = -1 THEN
        die("tcgetattr")
    END;

    enablerawMode;
    
    LOOP
        editorRefreshScreen;
        editorProcessKeypress;
        editorRefreshScreen;
    END;


END editor.