home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Programming Tools / Turbo Pascal / Utilities / FIXTAB.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-06-16  |  1.3 KB  |  58 lines  |  [TEXT/ttxt]
  1. program FixTabs;
  2.  
  3. { This simple program removes those annoying tabs from EDIT files & replaces
  4.   them with spaces. It makes life much easier when you switch to the TURBO
  5.   editor.
  6.   
  7.   The constant "tabs" contains the number of spaces per tab.
  8.   
  9.                 Mike Babulic.  87/03/15
  10. } 
  11. { $U FileUT}
  12.  
  13. USES MemTypes,QuickDraw,OSIntf,ToolIntf,PackIntf,FileUT;
  14.  
  15. const tabs = 8;
  16.  
  17. var inFile,outFile: text;
  18.     
  19.     c:char;
  20.     i,n,m:integer;
  21.     
  22. procedure ReplaceTabs;
  23.   const
  24.     TAB = #9;
  25.     CR  = #13;
  26.     LF  = #10;
  27.   var
  28.     c:char;
  29.     i,n,m:integer;
  30.   begin
  31.     n := 0;
  32.     while not EOF(inFile) do begin
  33.       read(inFile,c);
  34.       if c=TAB then begin
  35.         for i := tabs downto (n mod tabs)+1 do begin
  36.           write(outFile,' ');
  37.           n := succ(n);
  38.         end
  39.         end
  40.       else if c<>LF then begin  {Strip out Line Feeds}
  41.         n := succ(n);
  42.         write(outFile,c);
  43.         if c=CR then n:= 0;     {Carriage Return starts a new page}
  44.       end;
  45.     end;
  46.   end;
  47.     
  48. begin
  49.   FileBlockSize := $8000;
  50.   if SFGetReset(inFile,TextFile,'') then begin
  51.     TextCreator := 'TPAS';
  52.     if SFPutCreate(outFile,TextFile,'New '+SFDialog.r.fName) then begin
  53.       ReplaceTabs;
  54.       close(outfile);
  55.     end;
  56.     close(infile);
  57.   end;
  58. end.