18 lines
436 B
Plaintext
18 lines
436 B
Plaintext
main:(
|
|
MODE STRINT = UNION(STRING, INT, PROC(REF FILE)VOID, VOID);
|
|
|
|
PROC print strint = (FLEX[]STRINT argv)VOID: (
|
|
FOR i TO UPB argv DO
|
|
CASE argv[i] IN
|
|
(INT i):print(whole(i,-1)),
|
|
(STRING s):print(s),
|
|
(PROC(REF FILE)VOID f):f(stand out),
|
|
(VOID):print(error char)
|
|
ESAC;
|
|
IF i NE UPB argv THEN print((" ")) FI
|
|
OD
|
|
);
|
|
|
|
print strint(("Mary","had",1,"little",EMPTY,new line))
|
|
)
|