popunit.pas: timeout -> timeOut

1 files changed, 22 insertions, 22 deletions

diff --git a/popunit.pas b/popunit.pas
index bd7f419..3bc8185 100644
--- a/popunit.pas
+++ b/popunit.pas
@@ -10,7 +10,7 @@ uses
 type
 
   tMarkenValiditaet = (mvKeine,mvGueltig,mvUngueltig);
-  tBefehlAusfuehrenErgebnis = (baeOk,baeError,baeTimeout);
+  tBefehlAusfuehrenErgebnis = (baeOk,baeError,baeTimeOut);
 
   tPopClient = class;
 
@@ -60,7 +60,7 @@ type
   public
     sshUser,host,user,pass,gueltigerAdressat: string;
     port:                                     longint;
-    timeout:                                  extended;
+    timeOut:                                  extended;
     neueNachrichten:                          tNotifyEvent;
     constructor create;
     destructor destroy; override;
@@ -77,9 +77,9 @@ type
 
 function readString(p: tProcess): string;
 procedure writeString(p: tProcess; s: string);
-function befehlAusfuehren(var pr: tProcess; bef: string; timeout: extended): tBefehlAusfuehrenErgebnis; overload; inline;
-function befehlAusfuehren(var pr: tProcess; bef: string; timeout: extended; out ausg: string): tBefehlAusfuehrenErgebnis; overload; inline;
-function befehlAusfuehren(var pr: tProcess; bef,ende: string; timeout: extended; out ausg: string): tBefehlAusfuehrenErgebnis; overload;
+function befehlAusfuehren(var pr: tProcess; bef: string; timeOut: extended): tBefehlAusfuehrenErgebnis; overload; inline;
+function befehlAusfuehren(var pr: tProcess; bef: string; timeOut: extended; out ausg: string): tBefehlAusfuehrenErgebnis; overload; inline;
+function befehlAusfuehren(var pr: tProcess; bef,ende: string; timeOut: extended; out ausg: string): tBefehlAusfuehrenErgebnis; overload;
 
 procedure _app(var f: text); inline;
 
@@ -112,25 +112,25 @@ begin
     i:=i+p.input.write(s[i],length(s)-i+1);
 end;
 
-function befehlAusfuehren(var pr: tProcess; bef: string; timeout: extended): tBefehlAusfuehrenErgebnis;
+function befehlAusfuehren(var pr: tProcess; bef: string; timeOut: extended): tBefehlAusfuehrenErgebnis;
 var
   dummy: string;
 begin
-  result:=befehlAusfuehren(pr,bef,timeout,dummy);
+  result:=befehlAusfuehren(pr,bef,timeOut,dummy);
 end;
 
-function befehlAusfuehren(var pr: tProcess; bef: string; timeout: extended; out ausg: string): tBefehlAusfuehrenErgebnis;
+function befehlAusfuehren(var pr: tProcess; bef: string; timeOut: extended; out ausg: string): tBefehlAusfuehrenErgebnis;
 begin
-  result:=befehlAusfuehren(pr,bef,'+OK',timeout,ausg);
+  result:=befehlAusfuehren(pr,bef,'+OK',timeOut,ausg);
 end;
 
-function befehlAusfuehren(var pr: tProcess; bef,ende: string; timeout: extended; out ausg: string): tBefehlAusfuehrenErgebnis;
+function befehlAusfuehren(var pr: tProcess; bef,ende: string; timeOut: extended; out ausg: string): tBefehlAusfuehrenErgebnis;
 var
   zeit: extended;
 begin
   writeString(pr,bef+#10);
 
-  zeit:=now+timeout/24/60/60;
+  zeit:=now+timeOut/24/60/60;
   ausg:='';
   while (zeit>now) and (pos(ende,ausg)=0) and (pos('-ERR',ausg)=0) do
     ausg:=ausg+readString(pr);
@@ -149,7 +149,7 @@ begin
   writeln(stderr,bef+' fehlgeschlagen (timeout erreicht)!');
   pr.free;
   pr:=nil;
-  result:=baeTimeout;
+  result:=baeTimeOut;
 end;
 
 // tNachricht ******************************************************************
@@ -335,8 +335,8 @@ begin
 
   if assigned(pr) then begin
     for i:=0 to length(_lIds)-1 do begin
-      case befehlAusfuehren(pr,'DELE '+intToStr(_lIds[i]),_besitzer.timeout) of
-        baeTimeout: exit;
+      case befehlAusfuehren(pr,'DELE '+intToStr(_lIds[i]),_besitzer.timeOut) of
+        baeTimeOut: exit;
         baeError: begin
           if beenden then exit;
           continue;
@@ -384,7 +384,7 @@ begin
     auszenWeltKontakt(pr);
     if (_user<>'') and (_host<>'') and (_pass<>'') and (_port<>0) then begin
       if assigned(pr) then begin
-        if befehlAusfuehren(pr,'QUIT',_besitzer.timeout)=baeOk then
+        if befehlAusfuehren(pr,'QUIT',_besitzer.timeOut)=baeOk then
           pr.waitOnExit;
 
         pr.free;
@@ -409,7 +409,7 @@ begin
       end;
       pr.options:=[poUsePipes];
       pr.execute;
-      zeit:=now+_besitzer.timeout/24/60/60;
+      zeit:=now+_besitzer.timeOut/24/60/60;
       buf:='';
       while (zeit>now) and (pos('+OK',buf)=0) do
         buf:=buf+readString(pr);
@@ -424,19 +424,19 @@ begin
       if beenden then
         break;
 
-      if befehlAusfuehren(pr,'USER '+_user,_besitzer.timeout)<>baeOk then
+      if befehlAusfuehren(pr,'USER '+_user,_besitzer.timeOut)<>baeOk then
         continue;
 
       if beenden then
         break;
 
-      if befehlAusfuehren(pr,'PASS '+_pass,_besitzer.timeout)<>baeOk then
+      if befehlAusfuehren(pr,'PASS '+_pass,_besitzer.timeOut)<>baeOk then
         continue;
 
       if beenden then
         break;
 
-      if befehlAusfuehren(pr,'LIST',#13#10'.'#13#10,_besitzer.timeout,buf)<>baeOk then
+      if befehlAusfuehren(pr,'LIST',#13#10'.'#13#10,_besitzer.timeOut,buf)<>baeOk then
         continue;
 
       if beenden then
@@ -479,7 +479,7 @@ begin
 
       for i:=0 to length(_nachrichten)-1 do
         if _nachrichten[i].count=0 then begin
-          if befehlAusfuehren(pr,'TOP '+intToStr(_nachrichten[i].id)+' 0',#13#10'.'#13#10,_besitzer.timeout,buf)<>baeOk then
+          if befehlAusfuehren(pr,'TOP '+intToStr(_nachrichten[i].id)+' 0',#13#10'.'#13#10,_besitzer.timeOut,buf)<>baeOk then
             break;
 
           if beenden then
@@ -522,7 +522,7 @@ begin
       sleep(10);
   end;
   if assigned(pr) then begin
-    if befehlAusfuehren(pr,'QUIT',_besitzer.timeout)=baeOk then
+    if befehlAusfuehren(pr,'QUIT',_besitzer.timeOut)=baeOk then
       pr.waitOnExit;
 
     pr.free;
@@ -543,7 +543,7 @@ begin
   _sdbName:=mkTemp('/tmp/Emails-hashcash.sdb.XXXXXX');
   gueltigerAdressat:='';
   port:=0;
-  timeout:=10;
+  timeOut:=10;
   setLength(_nachrichten,0);
   neueNachrichten:=nil;
   fillchar(_lIds,sizeOf(_lIds),#0);