DEC-Pascal has the ability to initialise a boolean or an enumerated type from a text file.The text is case insensitive and is read just as any other variable. Is there a way to do this with GPC? If not, are there any good ways to emulate this behaviour?

I am currently using GPC v.19991030 based on 2.95.2 19991024 on a LINUX PC.

The following program shows the functionallity that I am trying to emulate.

Thanks in advance, Lee.

---

PROGRAM Read_Enum(input, output);

TYPE colour = (red, green, blue);

VAR flag : boolean; { Test boolean } mycol : colour; { Test enumerated type }

ip_file : TEXT; { input data file } filename : String(80);

i : integer;

BEGIN filename := "enum.dat"; open(ip_file, filename, history:=old); reset(ip_file);

FOR i := 1 to 3 DO BEGIN readln(ip_file, flag);

IF (flag) then writeln("Flag is true") ELSE writeln('Flag is false'); END;

FOR i := 1 to 3 DO BEGIN readln(ip_file, mycol);

CASE mycol OF red : writeln("Your colour is red"); green : writeln("Your colour is green"); blue : writeln("Your colour is blue"); END; END;

close(ip_file); END.

enum.dat: ========

true False TrUE Red green BLUE

output: ======

Flag is true Flag is false Flag is true Your colour is red Your colour is green Your colour is blue