vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-10-10 02:47:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding ulm unix file and terminal streams.

Browse source
This commit is contained in:
Norayr Chilingarian 2026-09-25 19:05:52 +04:00
parent fcf59d5d93
commit 9701249ad2
12 changed files with 1163 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/test/ulm/testUnixTerminals.Mod Normal file
View file

@ -0,0 +1,26 @@
MODULE testUnixTerminals;
IMPORT Streams := ulmStreams, Terminals := ulmTerminals,
UnixTerminals := ulmUnixTerminals, Write := ulmWrite;
VAR status: Terminals.Status; caps: Terminals.CapabilitySet;
BEGIN
ASSERT(Terminals.console # NIL);
ASSERT(Streams.stdout = Terminals.console);
caps := Terminals.Capabilities(Terminals.console);
ASSERT(Terminals.setEcho IN caps);
ASSERT(Terminals.setTermMode IN caps);
Terminals.GetStatus(Terminals.console, status);
ASSERT((status.lines > 0) & (status.columns > 0));
Terminals.Echo(Terminals.console, Terminals.off);
Terminals.Echo(Terminals.console, Terminals.on);
Terminals.SetTermMode(Terminals.console, Terminals.raw);
Terminals.SetTermMode(Terminals.console, Terminals.cooked);
Write.String("ulmUnixTerminals ok");
Write.Ln;
ASSERT(Streams.Close(Terminals.console))
END testUnixTerminals.