paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 15:20:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Convert shorthand syntax notation to full notation

Browse Source
This commit is contained in:
michael 2003-03-17 08:25:53 +00:00
parent 18508f7a26
commit 45910eed90
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
docs/syntax/changeit.pp Normal file
View File

@ -0,0 +1,21 @@
program changeit;
uses sysutils;
var
S : String;
begin
While not eof do
begin
ReadLn(S);
S:=StringReplace(S,'\[','\begin{stack}\\',[rfReplaceAll]);
S:=StringReplace(S,'\]','\end{stack}',[rfReplaceAll]);
S:=StringReplace(S,'\(','\begin{stack}',[rfReplaceAll]);
S:=StringReplace(S,'\)','\end{stack}',[rfReplaceAll]);
S:=StringReplace(S,'\<','\begin{rep}',[rfReplaceAll]);
S:=StringReplace(S,'\>','\end{rep}',[rfReplaceAll]);
Writeln(S);
end;
end.