Modula2_kilo/Done/step3/editor4.mod

MODULE editor3;

(* based on the kilo editor building course*)

(* Step 3 *)

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

IMPORT libc, SYSTEM, FIO;

VAR 
    c : CHAR;
    p : POINTER TO CHAR;

BEGIN
    p := SYSTEM.ADR(c);
    (* FIO PROCEDURE ReadNBytes (f: File; nBytes: CARDINAL; dest: ADDRESS) : CARDINAL ; *)
    (* libc PROCEDURE read (d: INTEGER; buf: ADDRESS; nbytes: CSIZE_T) : [ CSSIZE_T ] ; *)
    WHILE libc.read(FIO.StdIn,p,1) = 1 DO
        ;
    END;
END editor3.