Modula2_kilo/Done/step3/editor.mod

MODULE editor;

(* based on the kilo editor building course*)

(* Step 3 *)

(* using different libreries for the same purpose, some lowlevel, some higher level *)

(* libc version *)

IMPORT libc, SYSTEM, FIO;

VAR 
    c : CHAR;
    p : POINTER TO CHAR;

BEGIN
    (* libc PROCEDURE read (d: INTEGER; buf: ADDRESS; nbytes: CSIZE_T) : [ CSSIZE_T ] ; *)
    p := SYSTEM.ADR(c);
    WHILE libc.read(FIO.StdIn,p,1) = 1 DO
        ;
    END;
END editor.