SAIL (programming language): Difference between revisions

Revision as of 14:53, 3 November 2023

Revision as of 14:54, 3 November 2023

Line 48:

BEGIN "upper"

STRING tmp;

INTEGER charchr;

tmp←NULL;

WHILE LENGTH(rawstring) DO

BEGIN

char←LOPchr←LOP(rawstring); COMMENT LOP returns the first character and moves the pointer past it

tmp←tmp&(IF "a" LEQ charchr LEQ "z" THEN charchr-'40 ELSE charchr);

END;

RETURN(tmp);