git.iko.soy/bat
on master help sign in
pascal: add syntax highlight file
13e0184Gede Wahyu
tests/syntax-tests/highlighted/Pascal/test.pasnew file+42
compare with master
unifiedsplit
@@ -0,0 +1,42 @@
1+program Hello;
2+uses crt;
3+
4+type str = string[1];
5+ arr = array[1..20, 1..60] of char;
6+
7+var x, y:integer;
8+ carr:arr;
9+ c:char;
10+
11+Procedure start;
12+{comment here}
13+begin write (' Press enter to begin. ');
14+readln;
15+end;
16+
17+Function Valid (var choice:char): boolean;
18+begin 
19+ valid:= false;
20+ case choice of 
21+ '1':valid:= true;
22+ '2': valid:= true;
23+ '3': valid:= true;
24+ '4': valid:= true;
25+ '5': valid:= true;
26+ '6': valid:= true;
27+ end;
28+end;
29+
30+begin
31+ for y:=1 to 3 do
32+ begin
33+ writeln (y);
34+ end;
35+ 
36+ repeat
37+ writeln(y);
38+ y := y + 1;
39+ until y > 5;
40+ writeln ('Hello World');
41+end.
42+
tests/syntax-tests/source/Pascal/test.pasnew file+42
@@ -0,0 +1,42 @@
1+program Hello;
2+uses crt;
3+
4+type str = string[1];
5+ arr = array[1..20, 1..60] of char;
6+
7+var x, y:integer;
8+ carr:arr;
9+ c:char;
10+
11+Procedure start;
12+{comment here}
13+begin write (' Press enter to begin. ');
14+readln;
15+end;
16+
17+Function Valid (var choice:char): boolean;
18+begin
19+ valid:= false;
20+ case choice of
21+ '1':valid:= true;
22+ '2': valid:= true;
23+ '3': valid:= true;
24+ '4': valid:= true;
25+ '5': valid:= true;
26+ '6': valid:= true;
27+ end;
28+end;
29+
30+begin
31+ for y:=1 to 3 do
32+ begin
33+ writeln (y);
34+ end;
35+
36+ repeat
37+ writeln(y);
38+ y := y + 1;
39+ until y > 5;
40+ writeln ('Hello World');
41+end.
42+