home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / gnu / djgpp / docs / uconvert.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1994-06-27  |  1.2 KB  |  48 lines
  1. {$A+,B-,D-,E+,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-,Y-}
  2. {$M 16384,0,0}
  3. (* ====================================================== *)
  4. (*                      UCONVERT.PAS                      *)
  5. (*                  Converts Unix ^M to DOS ^M^J          *)
  6. (*                      (C) 1994 jb                       *)
  7. (* ====================================================== *)
  8.  
  9. PROGRAM UConvert;
  10.  
  11. VAR
  12.  source, target : File OF CHAR;
  13.  SName,  TName  : STRING[79];
  14.  Count          : LongInt;
  15.  ThisChar       : CHAR;
  16.  
  17. BEGIN
  18.   IF ParamCount <> 1 THEN BEGIN
  19.     WriteLn('Usage: uconvert infile');
  20.     Halt(1);
  21.   END;
  22.   SName := ParamStr(1);
  23.   TName := 'TEMP.FIL';
  24.   Assign(source, SName);
  25.   IF IOResult <> 0 THEN BEGIN
  26.     WriteLn('Error: Source file not found!');
  27.     Halt(2);
  28.   END;
  29.   Reset(source);
  30.   Assign(target, TName);
  31.   Rewrite(target);
  32.   WHILE NOT Eof(source) DO BEGIN
  33.     Read(source, ThisChar);
  34.     IF ThisChar = ^J THEN BEGIN
  35.       ThisChar := ^M;
  36.       Write(target, ThisChar);
  37.       Write(ThisChar);
  38.       ThisChar := ^J;
  39.     END;
  40.     Write(target, ThisChar);
  41.     Write(ThisChar);
  42.   END;
  43.   Close(source);
  44.   Close(target);
  45.   Erase(source);
  46.   Rename(target, SName);
  47. END.
  48.