17 lines
395 B
Plaintext
17 lines
395 B
Plaintext
alpha parser, version 0.2 (2023-03-04) - Annotated Source Code for file error.none.alpha
|
|
001: type string2int: string -> integer
|
|
002:
|
|
003: function entry : string2int
|
|
004:
|
|
005: entry(arg) := {
|
|
006: [ integer: i ; integer: sum ]
|
|
007: sum := 0;
|
|
008: i := 0 ;
|
|
009: while (i < 10) {
|
|
010: sum := sum + i;
|
|
011: i := i + 1;
|
|
012: }
|
|
013: return 0;
|
|
014: }
|
|
015:
|