summaryrefslogtreecommitdiff
path: root/support/rnototex/utilityops.pas
blob: b7989865d343b6c9c810152a515fd232c46f32f2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
[INHERIT('SCREENHANDLERS'), environment('utilityops')]

MODULE UTILITYOPS;

CONST
   blank = ' ';    
    


PROCEDURE gotoendofprogram;
EXTERN;

          

[GLOBAL] PROCEDURE errorexit( caller : varying[limit1] of char;
	                      message : varying[limit2] of char );
begin
   ttywriteln;
   ttywritestring('?ERROR from ');
   ttywritestring(caller);
   ttywritestring(message);
   ttywriteln;
   gotoendofprogram
end;

  


[GLOBAL] PROCEDURE warningmessage( caller : varying[limit1] of char;
	                           message : varying[limit2] of char );
      
begin
   ttywriteln;           
   ttywritestring('%WARNING from procedure ');
   ttywritestring(caller);                 
   ttywritestring('"');
   ttywritestring(message);
   ttywritestring('"');
   ttywriteln
end;




[GLOBAL] PROCEDURE nullstatement;
begin
end;




[GLOBAL] FUNCTION capchar ( ch : char ) : char;
begin
  if ch in ['a'..'z'] then
    capchar := chr(ord(ch) - 32)
  else
    capchar := ch
end;




[GLOBAL] FUNCTION lcchar( ch : char ) : char;
begin
  if ch in ['A'..'Z'] then
     lcchar := chr(ord(ch) + 32)
  else
     lcchar := ch
end;

                                     
END.