* be optimistic: version 1.00 for some utils

compiler/utils/msg2inc.pp

@@ -19,7 +19,7 @@ uses
   strings;
 
 const
-  version='0.99.15';
+  version='1.00';
 {$ifdef linux}
   eollen=1;
 {$else}
@@ -787,7 +787,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.8  2000-06-30 20:23:38  peter
+  Revision 1.9  2000-07-04 19:05:53  peter
+    * be optimistic: version 1.00 for some utils
+
+  Revision 1.8  2000/06/30 20:23:38  peter
     * new message files layout with msg numbers (but still no code to
       show the number on the screen)
 

compiler/utils/nasmconv.pp

@@ -16,7 +16,7 @@
 program nasmconv;
 
 const
-  Version = '0.99.13';
+  Version = '1.00';
 
 var
    s : string;
@@ -429,7 +429,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.10  2000-05-09 06:39:17  pierre
+  Revision 1.11  2000-07-04 19:05:54  peter
+    * be optimistic: version 1.00 for some utils
+
+  Revision 1.10  2000/05/09 06:39:17  pierre
    + generate also i386nop.inc containing the number of opcodes
 
   Revision 1.9  2000/04/04 13:44:03  pierre

compiler/utils/samplecfg

@@ -25,7 +25,7 @@ if [ -f $thefile ] ; then
     echo Saved old config to $thefile.orig
   else
     echo Could not save old config. Bailing out...
-    exit 
+    exit
   fi
 fi
 
@@ -38,7 +38,7 @@ echo Found libgcc.a in $GCCDIR
 echo Writing sample configuration file to $thefile
 cat <<EOFCFG > $thefile
 #
-# Example ppc386.cfg for Free Pascal Compiler Version 0.99.12
+# Example ppc386.cfg for Free Pascal Compiler Version 1.00
 #
 
 # ----------------------

utils/bin2obj.pp

@@ -2,11 +2,11 @@ program bin2obj;
 {
     $Id$
     This file is part of the Free Pascal run time library.
-    Copyright (c) 1999-2000 by Michael Van Canneyt, member of the 
+    Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Free Pascal development team
 
     Binary file to include file converter.
-    
+
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
 
@@ -26,7 +26,7 @@ uses classes,getopts, iostream,zstream,idea,sysutils
 {$endif}
 ;
 
-var 
+var
   ConstName,
   OutFileName,
   UnitName : String;
@@ -39,7 +39,7 @@ var
   MemStream,
   CryptStream,
   CompStream : TStream;
-  
+
 Procedure Usage;
 
 begin
@@ -53,13 +53,13 @@ begin
   Writeln ('   -U [name] same as -u, and compile the unit. (requires outfile)');
   Halt(1);
 end;
-  
+
 Procedure ProcessCommandLine;
 
 Var C : Char;
     I : longint;
     NeedUnitName : Boolean;
-    
+
 begin
   OptErr:=False;
   ConstName:='';
@@ -72,7 +72,7 @@ begin
   Repeat
     c:=GetOpt('ac:e:o:zhu::U::');
     Case C of
-      'a' : WriteAsciiData:=True; 
+      'a' : WriteAsciiData:=True;
       'c' : ConstName:=OptArg;
       'h','?' : usage;
       'z' : CompressData := True;
@@ -83,19 +83,19 @@ begin
             For I:=0 to 7 do
               CryptKey[i]:=Ord(OptArg[I+1]);
             end;
-      'o' : OutFileName:=optArg;       
+      'o' : OutFileName:=optArg;
       'u','U':
             begin
             UnitName:=OptArg;
             If Length(UnitName)=0 then
               NeedUnitName:=True;
-            If C='U' then 
+            If C='U' then
               CompileUnit:=True;
             end;
     end;
-  until C=EndOfOptions;  
-  if ConstName='' then 
-    usage;  
+  until C=EndOfOptions;
+  if ConstName='' then
+    usage;
   If NeedUnitName then
     If Length (OutFileName)=0 then
       begin
@@ -104,18 +104,18 @@ begin
       end
     else
       UnitName:=ExtractFileName(OutFileName);
-  if CompileUnit and (Length(OutFileName)=0) then 
+  if CompileUnit and (Length(OutFileName)=0) then
     usage;
 end;
 
 Function SetupInput : TStream;
 
 begin
-  if OptInd=ParamCount then 
+  if OptInd=ParamCount then
     InStream:=TFileStream.Create(Paramstr(Optind),fmOpenRead)
   else
     InStream:=TIOStream(iosInput);
-  Result:=InStream;  
+  Result:=InStream;
 end;
 
 Function SetupOutput : TStream;
@@ -144,7 +144,7 @@ Const BufSize = 1024;
 
 Var Buffer : Array[1..BufSize] of byte;
     Count : longint;
-    
+
 begin
   repeat
      Count:=Ins.Read(Buffer,SizeOf(Buffer));
@@ -157,7 +157,7 @@ begin
   }
   CryptStream.Free;
   CompStream.Free;
-  // Now Out stream has all data. 
+  // Now Out stream has all data.
 end;
 
 Procedure WriteMemStream;
@@ -165,20 +165,20 @@ Procedure WriteMemStream;
 Var OutStream : TStream;
 
   Procedure WriteStr(Const St : String);
-  
+
   begin
     OutStream.Write(St[1],Length(St));
   end;
 
   Procedure WriteStrLn(Const St : String);
-  
+
   Const
   {$ifdef linux}
      Eoln : String = #10;
   {$else}
      Eoln : String = #13#10;
   {$endif}
-  
+
   begin
     OutStream.Write(St[1],Length(St));
     OutStream.Write(Eoln[1],Length(Eoln));
@@ -186,19 +186,19 @@ Var OutStream : TStream;
 
 Const Prefix = '     ';
       MaxLineLength = 72;
-      
+
 Var I,Count  : longint;
     b    : byte;
     Line,ToAdd : String;
 
 begin
-  If Length(OutFileName)=0 Then 
+  If Length(OutFileName)=0 Then
     OutStream:=TIOStream.Create(iosOutput)
   else
     OutStream:=TFileStream.Create(OutFileName,fmCreate);
   If UnitName<>'' then
     begin
-    WriteStrLn(Format('Unit %s;',[UnitName]));  
+    WriteStrLn(Format('Unit %s;',[UnitName]));
     WriteStrLn('');
     WriteStrLn('Interface');
     WriteStrLn('');
@@ -209,7 +209,7 @@ begin
   Count:=MemStream.Size;
   If WriteAsciidata then
     WriteStrLn(Format('  %s : Array[0..%d] of char = (',[ConstName,Count-1]))
-  else  
+  else
     WriteStrLn(Format('  %s : Array[0..%d] of byte = (',[ConstName,Count-1]));
   Line:=Prefix;
   For I:=1 to Count do
@@ -220,19 +220,19 @@ begin
     else
       If (B in [32..127]) and not (B in [10,13,39]) then
         ToAdd:=''''+Chr(b)+''''
-      else  
+      else
 //        ToAdd:=Format('''%s''',[Chr(b)]);
         ToAdd:=Format('#%d',[B]);
-    If I<Count then 
+    If I<Count then
       ToAdd:=ToAdd+',';
-    Line:=Line+ToAdd;  
+    Line:=Line+ToAdd;
     If Length(Line)>=MaxLineLength Then
       begin
       WriteStrLn(Line);
       Line:=PreFix;
       end;
     end;
-  WriteStrln(Line+');');    
+  WriteStrln(Line+');');
   If Length(UnitName)<>0 then
     begin
     WriteStrLn('');
@@ -240,7 +240,7 @@ begin
     WriteStrln('');
     WriteStrLn('end.')
     end;
-  MemStream.Free;  
+  MemStream.Free;
 end;
 
 Procedure CompileTheUNit;
@@ -257,13 +257,16 @@ begin
   ProcessCommandline;
   CopyStreams(SetupInput,SetupOutPut);
   WriteMemStream;
-  If CompileUNit then 
+  If CompileUNit then
     CompileTheUnit;
 end.
 
 {
   $Log$
-  Revision 1.3  2000-02-07 13:42:39  peter
+  Revision 1.4  2000-07-04 19:05:54  peter
+    * be optimistic: version 1.00 for some utils
+
+  Revision 1.3  2000/02/07 13:42:39  peter
     * fixed notes
 
   Revision 1.2  2000/01/07 16:46:01  daniel

utils/checkcvs.pp

@@ -26,10 +26,10 @@ Uses Dos;
 
 Const bufferlimit=10000;
 
-Type 
+Type
    Array12type = ARRAY [1..12] Of longint;
 
-Const 
+Const
    MonthCumm : Array12type = (0,31,59,90,120,151,181,212,243,273,304,334);
 
 Function LeapYr( Year : longint) : boolean;
@@ -41,7 +41,7 @@ Function DayNr( Day,Month,Year: longint) : longint;
 {Modified version. A daynr function that returns daynr since 1-1-1980.
 Leapyears ok till 2100.}
 
-Var 
+Var
    i : longint;
 Begin
    i := MonthCumm[Month]+Day;
@@ -243,7 +243,10 @@ End.
 
 {
   $Log$
-  Revision 1.3  2000-02-20 13:05:41  marco
+  Revision 1.4  2000-07-04 19:05:54  peter
+    * be optimistic: version 1.00 for some utils
+
+  Revision 1.3  2000/02/20 13:05:41  marco
    * No parameters show last modification in dir + small bugfix
 
   Revision 1.2  2000/01/16 13:24:48  marco

utils/data2inc.pp

@@ -37,7 +37,7 @@ program data2inc;
 uses strings;
 
 CONST
-  version='0.99.13';
+  version='1.00';
 
   maxbufsize = 1024*1024;  { 1 mb buffer }
 
@@ -892,7 +892,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.5  2000-01-18 20:54:56  peter
+  Revision 1.6  2000-07-04 19:05:54  peter
+    * be optimistic: version 1.00 for some utils
+
+  Revision 1.5  2000/01/18 20:54:56  peter
     * fixed array calc when size is multiple of maxlen
 
   Revision 1.4  2000/01/07 16:46:01  daniel

utils/delp.pp

@@ -24,7 +24,7 @@ uses
   dos,getopts;
 
 const
-  Version   = 'Version 0.99.14';
+  Version   = 'Version 1.00';
   Title     = 'DelPascal';
   Copyright = 'Copyright (c) 1999-2000 by the Free Pascal Development Team';
 
@@ -264,7 +264,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.10  2000-01-26 21:15:00  peter
+  Revision 1.11  2000-07-04 19:05:54  peter
+    * be optimistic: version 1.00 for some utils
+
+  Revision 1.10  2000/01/26 21:15:00  peter
     * Fixed dir separator for linux
 
   Revision 1.9  2000/01/24 16:31:12  michael

utils/fpcmake.pp

@@ -23,7 +23,7 @@ uses
   sysutils,classes,makeini;
 
 const
-  Version='v0.99.15';
+  Version='v1.00';
   Title='fpcmake '+Version;
   TitleDate=Title+' ['+{$i %DATE}+']';
 
@@ -1350,7 +1350,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.37  2000-07-01 23:03:32  peter
+  Revision 1.38  2000-07-04 19:05:54  peter
+    * be optimistic: version 1.00 for some utils
+
+  Revision 1.37  2000/07/01 23:03:32  peter
     * exampleinstall target added
 
   Revision 1.36  2000/06/01 12:35:04  peter

utils/ppudump.pp

@@ -30,7 +30,7 @@ uses
   ppu;
 
 const
-  Version   = 'Version 0.99.13';
+  Version   = 'Version 1.00';
   Title     = 'PPU-Analyser';
   Copyright = 'Copyright (c) 1998-2000 by the Free Pascal Development Team';
 
@@ -1453,7 +1453,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.14  2000-02-09 16:44:14  peter
+  Revision 1.15  2000-07-04 19:05:54  peter
+    * be optimistic: version 1.00 for some utils
+
+  Revision 1.14  2000/02/09 16:44:14  peter
     * log truncated
 
   Revision 1.13  2000/01/23 16:34:36  peter

utils/ppufiles.pp

@@ -26,7 +26,7 @@ uses
   ppu;
 
 const
-  Version   = 'Version 0.99.14';
+  Version   = 'Version 1.00';
   Title     = 'PPU-Files';
   Copyright = 'Copyright (c) 1999-2000 by the Free Pascal Development Team';
 
@@ -260,7 +260,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.3  2000-01-24 12:32:22  daniel
+  Revision 1.4  2000-07-04 19:05:54  peter
+    * be optimistic: version 1.00 for some utils
+
+  Revision 1.3  2000/01/24 12:32:22  daniel
     * use a linkedlist instead of ansistring
 
   Revision 1.2  2000/01/07 16:46:04  daniel

utils/ppumove.pp

@@ -33,7 +33,7 @@ uses
   getopts;
 
 const
-  Version   = 'Version 0.99.15';
+  Version   = 'Version 1.00';
   Title     = 'PPU-Mover';
   Copyright = 'Copyright (c) 1998-2000 by the Free Pascal Development Team';
 
@@ -610,7 +610,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.10  2000-05-17 18:30:57  peter
+  Revision 1.11  2000-07-04 19:05:54  peter
+    * be optimistic: version 1.00 for some utils
+
+  Revision 1.10  2000/05/17 18:30:57  peter
     * libname fixes for linux
 
   Revision 1.9  2000/02/09 16:44:15  peter

utils/ptop.pp

@@ -3,7 +3,7 @@ Program PtoP;
 {
     $Id$
     This file is part of the Free Pascal run time library.
-    Copyright (c) 1999-2000 by Michael Van Canneyt, member of 
+    Copyright (c) 1999-2000 by Michael Van Canneyt, member of
     the Free Pascal development team
 
     Pascal pretty print program
@@ -19,7 +19,7 @@ Program PtoP;
 
 Uses PtoPu,Objects,getopts;
 
-Var 
+Var
   Infilename,OutFileName,ConfigFile : String;
   BeVerbose : Boolean;
   TheIndent,TheBufSize,TheLineSize : Integer;
@@ -34,7 +34,7 @@ begin
   StrToInt := int;
   If Code<>0 then StrToInt:=0;
 end;
-  
+
 Procedure Usage;
 
 begin
@@ -73,14 +73,14 @@ begin
   { Set defaults }
   Infilename:='';
   OutFileName:='';
-  ConfigFile:=''; 
+  ConfigFile:='';
   TheIndent:=2;
   TheBufSize:=255;
   TheLineSize:=MaxLineSize;
   BeVerbose:=False;
   Repeat
     c:=getopt('i:c:g:b:hv');
-    case c of 
+    case c of
       'i' : begin
             TheIndent:=StrToInt(OptArg);
             If TheIndent=0 then TheIndent:=2;
@@ -150,7 +150,7 @@ begin
     DiagS:=Nil;
   If ConfigFile<>'' then
     CfgS:=New(PBufStream,Init(ConfigFile,StOpenRead,TheBufSize))
-  else 
+  else
     CfgS:=Nil;
   PPrinter.Create;
   PPrinter.Indent:=TheIndent;
@@ -175,7 +175,7 @@ begin
 {$endif}
     DiagS^.Done;
     end;
-  If Assigned(CfgS) then 
+  If Assigned(CfgS) then
     CfgS^.Done;
   Ins^.Done;
   OutS^.Done;
@@ -183,7 +183,10 @@ end.
 
 {
   $Log$
-  Revision 1.6  2000-02-09 16:44:15  peter
+  Revision 1.7  2000-07-04 19:05:55  peter
+    * be optimistic: version 1.00 for some utils
+
+  Revision 1.6  2000/02/09 16:44:15  peter
     * log truncated
 
   Revision 1.5  2000/02/07 13:41:51  peter

utils/rstconv.pp

@@ -4,7 +4,7 @@
     Copyright (c) 1999-2000 by Sebastian Guenther
 
     .rst resource string table file converter.
-    
+
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
 
@@ -60,7 +60,7 @@ begin
 
   while not eof(f) do begin
     ReadLn(f, s);
-    If (Length(S)=0) or (S[1]='#') then 
+    If (Length(S)=0) or (S[1]='#') then
       continue;
     item := TConstItem(ConstItems.Add);
 
@@ -76,18 +76,18 @@ begin
     while i <= Length(s) do begin
       if s[i] = '''' then begin
         Inc(i);
-	j := i;
-	while s[i] <> '''' do Inc(i);
-	item.Value := item.Value + Copy(s, j, i - j);
-	Inc(i);
+        j := i;
+        while s[i] <> '''' do Inc(i);
+        item.Value := item.Value + Copy(s, j, i - j);
+        Inc(i);
       end else if s[i] = '#' then begin
         Inc(i);
-	j := i;
-	while s[i] in ['0'..'9'] do Inc(i);
-	item.Value := item.Value + Chr(StrToInt(Copy(s, j, i - j)));
+        j := i;
+        while s[i] in ['0'..'9'] do Inc(i);
+        item.Value := item.Value + Chr(StrToInt(Copy(s, j, i - j)));
       end else if s[i] = '+' then begin
         ReadLn(f, s);
-	i := 1;
+        i := 1;
       end else
         Inc(i);
     end;
@@ -118,14 +118,14 @@ begin
       c := item.Value[j];
       case c of
         #9:  s := s + '\t';
-	#10: s := s + '\n';
+        #10: s := s + '\n';
         #1..#8, #11..#31, #128..#255:
-	  s := s + '\' +
-	    Chr(Ord(c) shr 6 + 48) +
-	    Chr((Ord(c) shr 3) and 7 + 48) +
-	    Chr(Ord(c) and 7 + 48);
-	'\': s := s + '\\';
-	'"': s := s + '\"';
+          s := s + '\' +
+            Chr(Ord(c) shr 6 + 48) +
+            Chr((Ord(c) shr 3) and 7 + 48) +
+            Chr(Ord(c) and 7 + 48);
+        '\': s := s + '\\';
+        '"': s := s + '\"';
       else s := s + c;
       end;
     end;
@@ -162,26 +162,26 @@ begin
     if ParamStr(i) = '-i' then begin
       if InFilename <> '' then begin
         WriteLn(StdErr, OptionAlreadySpecified, '-i');
-	Halt(1);
+        Halt(1);
       end;
       InFilename := ParamStr(i + 1);
       Inc(i, 2);
     end else if ParamStr(i) = '-o' then begin
       if OutFilename <> '' then begin
         WriteLn(StdErr, OptionAlreadySpecified, '-o');
-	Halt(1);
+        Halt(1);
       end;
       OutFilename := ParamStr(i + 1);
       Inc(i, 2);
     end else if ParamStr(i) = '-f' then begin
       if OutFilename <> '' then begin
         WriteLn(StdErr, OptionAlreadySpecified, '-f');
-	Halt(1);
+        Halt(1);
       end;
       if ParamStr(i + 1) = 'po' then
       else begin
         WriteLn(StdErr, InvalidOutputFormat, ParamStr(i + 1));
-	Halt(1);
+        Halt(1);
       end;
       Inc(i, 2);
     end else begin
@@ -205,7 +205,10 @@ end.
 
 {
   $Log$
-  Revision 1.5  2000-02-07 13:42:39  peter
+  Revision 1.6  2000-07-04 19:05:55  peter
+    * be optimistic: version 1.00 for some utils
+
+  Revision 1.5  2000/02/07 13:42:39  peter
     * fixed notes
 
   Revision 1.4  2000/01/07 16:46:04  daniel