FreeXP

CVS daily diff

FreeXP CVS-Server cvs-list at freexp.de
Don Jul 7 00:00:25 CEST 2005


Index: freexp/xp9sel.pas
===================================================================
RCS file: /server/cvs/freexp/xp9sel.pas,v
retrieving revision 1.12
retrieving revision 1.15
diff -u -r1.12 -r1.15
--- freexp/xp9sel.pas	9 Apr 2005 15:55:51 -0000	1.12
+++ freexp/xp9sel.pas	6 Jul 2005 18:10:16 -0000	1.15
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp9sel.pas,v 1.12 2005/04/09 15:55:51 mw Exp $ }
+{ $Id: xp9sel.pas,v 1.15 2005/07/06 18:10:16 mw Exp $ }
 
 
 { CrossPoint - UniSel: Select-/Test-Routinen fuer Unisel-Menüs }
@@ -1341,13 +1341,36 @@
     name : namestr;
     ext  : extstr;
     s1   : String;
+    EInt : String; {Besondere Feature eines erweiterten Kommandointerpreters freischalten}
 begin
   PPPClientTest:=true;
   fn:=trim(s);
+  EInt:='';
+  if Pos('CMD.EXE',getenv('comspec'))<>0 then EInt:='cmd';
+  if Pos('4DOS',getenv('comspec'))<>0 then EInt:='4dos';
+  if Pos('4NT',getenv('comspec'))<>0 then EInt:='4dos';
+  if Pos('4OS2',getenv('comspec'))<>0 then EInt:='4dos';
   if Pos('start /wait ', lstr(fn)) = 1 then fn := Copy(fn, 13, MaxInt);
   if Pos('start /wai ', lstr(fn)) = 1 then fn := Copy(fn, 12, MaxInt);
   if Pos('start /wa ', lstr(fn)) = 1 then fn := Copy(fn, 11, MaxInt);
   if Pos('start /w ', lstr(fn)) = 1 then fn := Copy(fn, 10, MaxInt);
+  if Pos('command ', lstr(fn))<> 0 then fn := Copy(fn,Pos('/c ',lstr(fn))+3, MaxInt);
+  if Pos('cmd ',lstr(fn))<>0 then begin
+      fn := Copy(fn,Pos('/c ',lstr(fn))+3, MaxInt);
+      EInt:='cmd';                       {cmd-Feature freischalten fⁿr Windows NT/2000/XP/2003}
+  end;
+  if Pos('4dos',lstr(fn))<>0 then begin
+      fn := Copy(fn,Pos('/c ',lstr(fn))+3, MaxInt);
+      EInt:='4dos';                      {4DOS-Feature freischalten}
+  end;
+  if Pos('4nt',lstr(fn))<>0 then begin
+      fn := Copy(fn,Pos('/c ',lstr(fn))+3, MaxInt);
+      EInt:='4dos';                      {4DOS-Feature freischalten bei 4NT unter Windows NT/2000/XP/2003}
+  end;
+  if Pos('4os2',lstr(fn))<>0 then begin
+      fn := Copy(fn,Pos('/c ',lstr(fn))+3, MaxInt);
+      EInt:='4dos';                      {4DOS-Feature freischalten bei 4OS2 unter OS2}
+  end;
   if cpos(' ',fn)>0 then fn:=left(fn,cpos(' ',fn)-1);
   if (fn<>'') then
   begin
@@ -1369,7 +1392,9 @@
       else
         ok:=(fsearch(fn+'.exe',ownpath)<>'') or
           (fsearch(fn+'.com',ownpath)<>'') or
-          (fsearch(fn+'.bat',ownpath)<>'');
+          (fsearch(fn+'.bat',ownpath)<>'') or
+          ((EInt='cmd') and (fsearch(fn+'.cmd',ownpath)<>'')) or     {Nur CMD.EXE kann .cmd-Dateien ausfuehren}
+          ((EInt='4dos') and (fsearch(fn+'.btm',ownpath)<>''));      {Nur 4DOS,4NT und 4OS2 kann .btm ausfuehren}
       if not ok then rfehler1(907,ustr(fn));    { 'Achtung: Das Programm "%s" ist nicht vorhanden!' }
     end;
   end else
@@ -2085,6 +2110,22 @@
 
 {
   $Log: xp9sel.pas,v $
+  Revision 1.15  2005/07/06 18:10:16  mw
+  MW: - Korrektur letzter Commit
+
+  Revision 1.14  2005/07/06 17:58:33  mw
+  MW: - Nochmalige Erweiterung des Extented-Command
+
+  Revision 1.13  2005/07/06 15:47:03  mw
+  MW: - Erweiterte Kommandointerpreterunterstützung für RFC/Client:
+        cmd /C batch.cmd
+        4dos /C batch.btm
+        4nt /C batch.btm
+        4os2 /C batch.btm
+
+        (Die Endungen btm bzw. cmd werden auch beim Standardinterpreter
+        (%COMSPEC%) unterstützt, wenn er einer der hier Aufgezählten ist).
+
   Revision 1.12  2005/04/09 15:55:51  mw
   MW: - Kleinen Typo beseitigt.
 
Index: freexp/build/sdisk.lst
===================================================================
RCS file: /server/cvs/freexp/build/sdisk.lst,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- freexp/build/sdisk.lst	3 May 2004 14:13:23 -0000	1.3
+++ freexp/build/sdisk.lst	6 Jul 2005 19:16:21 -0000	1.4
@@ -4,7 +4,6 @@
 LOGO\*.*
 BEISPIEL\*.*
 SAMPLES\*.*
-*.ASM
 *.RQ
 M*.PAS
-
+U*.PAS
Index: freexp/doc/snapshot.dq
===================================================================
RCS file: /server/cvs/freexp/doc/snapshot.dq,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -r1.44 -r1.45
--- freexp/doc/snapshot.dq	24 May 2005 06:36:21 -0000	1.44
+++ freexp/doc/snapshot.dq	6 Jul 2005 15:43:09 -0000	1.45
@@ -63,7 +63,8 @@
 I.   Inoffizelle Citycarrier-Edition vom 06.03.2005, 10:43 Uhr
 J.   2. Inoffizelle Citycarrier-Edition vom 14.03.2005, 10:30 Uhr
 K.   3. Inoffizelle Citycarrier-Edition vom 17.03.2005, 20:10 Uhr
-L.   Snapshot vom xx.xx.2005, xx:xx Uhr
+L.   Inoffizelle Extented-Command-Edition vom 06.07.2005, 18:00 Uhr
+M.   Snapshot vom xx.xx.2005, xx:xx Uhr
 ###
 
 1. FreeXP - Support und Kontakte
@@ -4725,10 +4726,10 @@
 
 %
 %
-%Snapshot vom xx.xx.2005, xx:xx Uhr
-%----------------------------------
-L.   Snapshot vom xx.xx.2005, xx:xx Uhr
----------------------------------------
+%Inoffizelle Extented-Command-Edition vom 06.07.2005, 18:00 Uhr
+%--------------------------------------------------------------
+L.   Inoffizelle Extented-Command-Edition vom 06.07.2005, 18:00 Uhr
+-------------------------------------------------------------------
 ■  28.03.2005
 -------------
 JM:
@@ -4761,9 +4762,29 @@
 ■  24.05.2005
 -------------
 JM+MW:
-%- Versandgängeung bezüglich PDZM und ZPR entfernt.
+%-  Versandgängelung bezüglich PDZM und ZPR entfernt.
 - Es kann jetzt uneingeschränkt auch PDZM und ZPR
   versendet werden.
   XP6.PAS
 
+■  06.07.2005
+-------------
+MW:
+%+  RFC/Client: Erweiterte Kommandointerpreterunterstützung
+- Es kann jetzt auch ein anderer Kommandointerpreter
+  als der in %COMSPEC% aufgerufen werden, ohne das dieser
+  im FreeXP- oder im Clientverzeichnis vorhanden sein muß.
+- Als gültige Endung für ausführbare Dateien
+  gelten jetzt EXE COM BAT CMD und BTM.
+  (Letztere beide sind nur verfügbar, wenn ein
+  Kommandointerpreter verwendet wird, der dies
+  unterstützt. Dies meint CMD.EXE für CMD und BTM für
+  4DOS/4NT oder 4OS2).
+  XP9SEL.PAS
 
+%
+%
+%Snapshot vom xx.xx.2005, xx:xx Uhr
+%----------------------------------
+M.   Snapshot vom xx.xx.2005, xx:xx Uhr
+---------------------------------------



Mehr Informationen über die CVS-List Mailingliste