home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB18.ZIP / DIFF-ED.DRV < prev    next >
Encoding:
Text File  |  1985-05-30  |  1.1 KB  |  35 lines
  1.         t : integer;
  2.  
  3.     procedure putfirst;        { initialize editor }
  4.     begin
  5.         writeln(diffile,'#a');
  6.     end;
  7.  
  8.     procedure putdel(t : integer);        { delete t lines including current }
  9.     begin                                { one.  Leave line after last delete }
  10.         writeln(diffile,t:1,'k');   { as current line}
  11.     end;
  12.  
  13.     procedure putbot;        { set up to insert lines at end of file }
  14.     begin
  15.         writeln(diffile,'-b');
  16.     end;
  17.  
  18.     procedure putmov(t : integer);        { skip ahead t lines in file }
  19.     begin
  20.         writeln(diffile,t:1,'L');
  21.     end;
  22.  
  23.     procedure putins(k : linenum; t : integer);        { insert t lines }
  24.     begin                                { beginning with NA[k].  The new }
  25.         while t > 0 do begin        { lines PRECEDE the current line }
  26.         writeln(diffile,'i',ST[NA[k].index].lineval^);
  27.         k := k + 1;
  28.         t := t - 1;
  29.         end;                        { When done, current line is same }
  30.     end;                                { as it was when putins started   }
  31.  
  32.     procedure putlast;        { close file and end editor }
  33.     begin
  34.         writeln(diffile,'e');
  35.     end;