MirroredRepos/bat
1
0
Fork 0
mirror of https://github.com/sharkdp/bat.git synced 2025-11-04 09:01:56 +00:00
Code Issues Releases Wiki Activity

pascal: add syntax highlight file

Browse Source
This commit is contained in:
Gede Wahyu
2020-10-06 13:13:59 +08:00
committed by David Peter
parent a999975bc9
commit 13e01841ca
2 changed files with 84 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
tests/syntax-tests/highlighted/Pascal/test.pas Normal file
View File

@@ -0,0 +1,42 @@
program Hello;
uses crt;
type str = string[1];
 arr = array[1..20, 1..60] of char;
var x, y:integer;
 carr:arr;
 c:char;
Procedure start;
{comment here}
begin write (' Press enter to begin. ');
readln;
end;
Function Valid (var choice:char): boolean;
begin 
 valid:= false;
 case choice of 
 '1':valid:= true;
 '2': valid:= true;
 '3': valid:= true;
 '4': valid:= true;
 '5': valid:= true;
 '6': valid:= true;
 end;
end;
begin
 for y:=1 to 3 do
 begin
 writeln (y);
 end;
 
 repeat
 writeln(y);
 y := y + 1;
 until y > 5;
 writeln ('Hello World');
end.

42
tests/syntax-tests/source/Pascal/test.pas Normal file
View File

@@ -0,0 +1,42 @@
program Hello;
uses crt;
type str = string[1];
arr = array[1..20, 1..60] of char;
var x, y:integer;
carr:arr;
c:char;
Procedure start;
{comment here}
begin write (' Press enter to begin. ');
readln;
end;
Function Valid (var choice:char): boolean;
begin
valid:= false;
case choice of
'1':valid:= true;
'2': valid:= true;
'3': valid:= true;
'4': valid:= true;
'5': valid:= true;
'6': valid:= true;
end;
end;
begin
for y:=1 to 3 do
begin
writeln (y);
end;
repeat
writeln(y);
y := y + 1;
until y > 5;
writeln ('Hello World');
end.