summaryrefslogtreecommitdiff
path: root/misc/pascal/tests/src
diff options
context:
space:
mode:
Diffstat (limited to 'misc/pascal/tests/src')
-rw-r--r--misc/pascal/tests/src/006-optconst.pas4
-rw-r--r--misc/pascal/tests/src/202-strcmp.pas12
-rw-r--r--misc/pascal/tests/src/501-uses.pas4
-rw-r--r--misc/pascal/tests/src/803-redirect.pas2
-rw-r--r--misc/pascal/tests/src/804-cgiform.pas2
-rw-r--r--misc/pascal/tests/src/805-cgimail.pas2
-rw-r--r--misc/pascal/tests/src/806-cgicook.pas2
-rw-r--r--misc/pascal/tests/src/901-pageutils.pas16
8 files changed, 22 insertions, 22 deletions
diff --git a/misc/pascal/tests/src/006-optconst.pas b/misc/pascal/tests/src/006-optconst.pas
index 511d807eb..43f50adb4 100644
--- a/misc/pascal/tests/src/006-optconst.pas
+++ b/misc/pascal/tests/src/006-optconst.pas
@@ -1,7 +1,7 @@
{ A test of constant optimiztion }
program constopt;
-var
+var
i1, i2, i3 : integer;
b1 : boolean
begin
@@ -11,7 +11,7 @@ begin
3. *, DIV, AND, SHL, SHR
4. -, NOT
}
-
+
i1 := -2; { -2 }
i1 := 3 * 2; { 6 }
i1 := 3 * (-2); { -6 }
diff --git a/misc/pascal/tests/src/202-strcmp.pas b/misc/pascal/tests/src/202-strcmp.pas
index cff214403..60c48f5b4 100644
--- a/misc/pascal/tests/src/202-strcmp.pas
+++ b/misc/pascal/tests/src/202-strcmp.pas
@@ -6,7 +6,7 @@ CONST
lexmiddle2 = 'ZZZLexically Middl';
lexsmall = 'AAALexically Small';
lexnothing = ''
-VAR
+VAR
string1, string2 : string;
BEGIN
IF (lexbig <= lexmiddle) THEN
@@ -18,22 +18,22 @@ BEGIN
writeln('ERROR: ', lexmiddle, ' > ', lexmiddle1)
else
writeln('OKAY: ', lexmiddle, ' <= ', lexmiddle1);
-
+
IF (lexmiddle <> lexmiddle) THEN
writeln('ERROR: ', lexmiddle, ' <> ', lexmiddle)
else
writeln('OKAY: ', lexmiddle, ' = ', lexmiddle);
-
+
IF (lexmiddle = lexnothing) THEN
writeln('ERROR: ', lexmiddle, ' = ', lexnothing)
else
writeln('OKAY: ', lexmiddle, ' <> ', lexnothing);
-
+
IF (lexnothing <> lexnothing) THEN
writeln('ERROR: ', lexnothing, ' <> ', lexnothing)
else
writeln('OKAY: ', lexnothing, ' = ', lexnothing);
-
+
IF (lexmiddle < lexmiddle2) THEN
writeln('ERROR: ', lexmiddle, ' < ', lexmiddle2)
else
@@ -43,5 +43,5 @@ BEGIN
writeln('ERROR: ', lexsmall, ' >= ', lexmiddle)
else
writeln('OKAY: ', lexsmall, ' < ', lexmiddle)
-
+
END.
diff --git a/misc/pascal/tests/src/501-uses.pas b/misc/pascal/tests/src/501-uses.pas
index 49c3cdaac..1b34add48 100644
--- a/misc/pascal/tests/src/501-uses.pas
+++ b/misc/pascal/tests/src/501-uses.pas
@@ -1,5 +1,5 @@
program MyProgram;
-
+
uses
MyCosineUnit in '501-unit-cosine.pas';
MySineUnit in '501-unit-sine.pas';
@@ -7,7 +7,7 @@ uses
var
x : real;
-
+
begin
write('Enter radians : ');
read(x);
diff --git a/misc/pascal/tests/src/803-redirect.pas b/misc/pascal/tests/src/803-redirect.pas
index d53acc1e1..27afb5165 100644
--- a/misc/pascal/tests/src/803-redirect.pas
+++ b/misc/pascal/tests/src/803-redirect.pas
@@ -71,7 +71,7 @@ var
NewLocation := BASE + value
end
else
- ; (* do nothing we have an undefined form element *)
+ ; (* do nothing we have an undefined form element *)
end;
begin (* ProcessCGIData *)
diff --git a/misc/pascal/tests/src/804-cgiform.pas b/misc/pascal/tests/src/804-cgiform.pas
index e3043f548..0c94290ec 100644
--- a/misc/pascal/tests/src/804-cgiform.pas
+++ b/misc/pascal/tests/src/804-cgiform.pas
@@ -258,7 +258,7 @@ var
GenerateBody;
GenerateFooter;
end; (* GenerateResponse *)
-
+
procedure Shutdown;
begin (* Shutdown *)
dispose(NameValuePairs);
diff --git a/misc/pascal/tests/src/805-cgimail.pas b/misc/pascal/tests/src/805-cgimail.pas
index 5b16f8d52..fbb490229 100644
--- a/misc/pascal/tests/src/805-cgimail.pas
+++ b/misc/pascal/tests/src/805-cgimail.pas
@@ -254,7 +254,7 @@ var
writeln(pipe, '.');
close(pipe);
end; //SendEmailWithSendMail
-
+
//***************************************************************
//PURPOSE: Sends and email message using the CDONTS components
//NOTE: The CDONTS components were created by Microsoft to
diff --git a/misc/pascal/tests/src/806-cgicook.pas b/misc/pascal/tests/src/806-cgicook.pas
index 7da5ecffd..a7d2fa5fa 100644
--- a/misc/pascal/tests/src/806-cgicook.pas
+++ b/misc/pascal/tests/src/806-cgicook.pas
@@ -436,7 +436,7 @@ var
begin (* GenerateBodyData *)
writeln('<tr>');
writeln('<td width="100%">');
-
+
//Generate the HTML to display the cookies returned by the browser.
writeln('<h1>Current Cookies</h1>');
iNumCookies := length(Cookies); //Number of cookies returned by the browser
diff --git a/misc/pascal/tests/src/901-pageutils.pas b/misc/pascal/tests/src/901-pageutils.pas
index 855620b1c..f78120eef 100644
--- a/misc/pascal/tests/src/901-pageutils.pas
+++ b/misc/pascal/tests/src/901-pageutils.pas
@@ -5268,7 +5268,7 @@ END; { change_const_line }
{ ************************* set_line_flags ******************************** }
-PROCEDURE set_line_flags
+PROCEDURE set_line_flags
(page: page_pointer; ind: short; select, attribute: char;
get_line_pointer: get_line_pointer_type) ;
@@ -5301,7 +5301,7 @@ END; { set_line_flags }
{ ************************* get_line_flags ******************************** }
-PROCEDURE get_line_flags
+PROCEDURE get_line_flags
(page: page_pointer; ind: short; VAR select, attribute: char;
get_line_pointer: get_line_pointer_type) ;
@@ -5326,7 +5326,7 @@ END; { get_line_flags }
{ ************************* is_selected *********************************** }
-FUNCTION is_selected
+FUNCTION is_selected
(list: list_cb_type; page: page_pointer; ind: short;
get_line_pointer: get_line_pointer_type): boolean ;
@@ -5360,7 +5360,7 @@ END; { is_selected }
{ ************************* set_list_line_flags *************************** }
-PROCEDURE set_list_line_flags
+PROCEDURE set_list_line_flags
(VAR list: list_cb_type; select, attribute: char;
get_line_pointer: get_line_pointer_type
) ;
@@ -5384,7 +5384,7 @@ END; { set_list_line_flags }
{ ************************* get_next_selected_line ************************ }
-PROCEDURE get_next_selected_line
+PROCEDURE get_next_selected_line
(VAR list: list_cb_type; VAR page: page_pointer; VAR ind: short;
get_line_pointer: get_line_pointer_type) ;
@@ -5408,7 +5408,7 @@ END; { get_next_selected_line }
{ ************************* get_prev_selected_line ************************ }
-PROCEDURE get_prev_selected_line
+PROCEDURE get_prev_selected_line
(VAR list: list_cb_type; VAR page: page_pointer; VAR ind: short;
get_line_pointer: get_line_pointer_type) ;
@@ -5432,7 +5432,7 @@ END; { get_prev_selected_line }
{ ************************* get_first_selected_line_m *********************** }
-PROCEDURE get_first_selected_line_m
+PROCEDURE get_first_selected_line_m
(VAR list: list_cb_type; VAR page: page_pointer; VAR ind: short;
get_line_pointer: get_line_pointer_type) ;
@@ -5453,7 +5453,7 @@ END; { get_first_selected_line_m }
{ ************************* get_first_selected_line ************************ }
-PROCEDURE get_first_selected_line
+PROCEDURE get_first_selected_line
(VAR list: list_cb_type; VAR page: page_pointer; VAR ind: short;
get_line_pointer: get_line_pointer_type) ;
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-01 04:53:15 +0000