home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / draco / draco-1.ark / LFTOCR.DRC < prev    next >
Text File  |  1986-11-12  |  1KB  |  48 lines
  1. #util.g
  2.  
  3. int BUFFSIZE = 1024;
  4.  
  5. char CPM_EOF = '\(0x1a)';
  6.  
  7. proc nonrec main()void:
  8.     file(BUFFSIZE) fin, fout;
  9.     channel input binary chin;
  10.     channel output binary chout;
  11.     *char namein, nameout;
  12.     FILENAME fn;
  13.     char ch, cr;
  14.  
  15.     namein := GetPar();
  16.     if namein = nil then
  17.     writeln("Use is: lftocr infile outfile");
  18.     else
  19.     nameout := GetPar();
  20.     if nameout = nil then
  21.         writeln("Use is: lftocr infile outfile");
  22.     else
  23.         if not open(chin, fin, namein) then
  24.         writeln("Can't open ", namein, '.');
  25.         else
  26.         SetFileName(fn, nameout);
  27.         pretend(FileDestroy(fn), void);
  28.         if not FileCreate(fn) then
  29.             writeln("Can't create ", nameout, '.');
  30.         elif not open(chout, fout, nameout) then
  31.             writeln("Can't open ", nameout, " for output.");
  32.         else
  33.             cr := '\r';
  34.             while read(chin; ch) and ch ~= CPM_EOF do
  35.             if ch = '\n' then
  36.                 write(chout; cr);
  37.             fi;
  38.             write(chout; ch);
  39.             od;
  40.             write(chout; ch);
  41.             close(chout);
  42.         fi;
  43.         close(chin);
  44.         fi;
  45.     fi;
  46.     fi;
  47. corp;
  48.