27 lines
564 B
Plaintext
27 lines
564 B
Plaintext
#include "std.alpha"
|
|
|
|
function entry: string2integer
|
|
|
|
entry (arg) := {
|
|
[integer: x; string: s; character: c; integer: result]
|
|
|
|
result := printCharacter('\t');
|
|
result := printCharacter('t');
|
|
result := printCharacter('a');
|
|
result := printCharacter('b');
|
|
result := printCharacter('\n');
|
|
result := printCharacter('\\');
|
|
result := printCharacter('"');
|
|
result := printCharacter('\'');
|
|
|
|
(*s := inS(1);
|
|
result := printS(s);
|
|
|
|
x := inI(1);
|
|
result := printI(x);
|
|
|
|
c := inC(1);
|
|
result := printC(c);*)
|
|
|
|
return 0;
|
|
} |