SAIL (programming language): Difference between revisions

Revision as of 14:54, 3 November 2023

Revision as of 14:55, 3 November 2023

Line 48:

BEGIN "upper"

STRING tmp;

INTEGER chrchar;

tmp←NULL;

WHILE LENGTH(rawstring) DO

BEGIN

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

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

END;

RETURN(tmp);