summaryrefslogtreecommitdiff
path: root/tools.pas
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2016-05-10 11:31:40 +0200
committerErich Eckner <git@eckner.net>2016-05-10 11:31:40 +0200
commit394e27efc7906ec40f960d23095dc5aebee84fd6 (patch)
tree0bf506a085ebd01ada795d42597ede19dee6ac61 /tools.pas
parenteb86e555f015200e3bb3ac6d839df0b6ca13248d (diff)
downloadMake-394e27efc7906ec40f960d23095dc5aebee84fd6.tar.xz
alles schön in Klassen gepackt
Diffstat (limited to 'tools.pas')
-rw-r--r--tools.pas13
1 files changed, 7 insertions, 6 deletions
diff --git a/tools.pas b/tools.pas
index 3d7c895..0767b25 100644
--- a/tools.pas
+++ b/tools.pas
@@ -20,11 +20,11 @@ type
end;
tDateienMitDaten = array of tDateiMitDatum;
-function min(a1,a2: tAktualitaet): tAktualitaet; overload;
-function max(a1,a2: tAktualitaet): tAktualitaet; overload;
+function min(a1,a2: tAktualitaet): tAktualitaet; inline; overload;
+function max(a1,a2: tAktualitaet): tAktualitaet; inline; overload;
function anzCs(c: char; s: string): longint;
function notQuotedPos(was,worin: string): longint;
-function unescapedpos(was,worin: string): integer;
+function unescapedpos(was,worin: string): longint;
procedure testeObBefehlLokal(bef, ordner: string; lokTest: tRegExpr);
function extrahiereAlleDateien(woraus: string): tMyStringList;
function unescape(s: string): string;
@@ -79,7 +79,7 @@ begin
until false;
end;
-function unescapedpos(was,worin: string): integer;
+function unescapedpos(was,worin: string): longint;
var
ebene: longint;
begin
@@ -218,8 +218,9 @@ begin
end;
function escape(s,toe: string; ec: char): string;
-var i,j: longint;
- b: boolean;
+var
+ i,j: longint;
+ b: boolean;
begin
result:='';
for i:=1 to length(s) do begin