home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB18.ZIP / DIFF-ENG.DRV < prev    next >
Encoding:
Text File  |  1985-05-30  |  1.6 KB  |  51 lines
  1.  
  2.     function ED_NAME : ltext;
  3.     begin
  4.         ED_NAME := 'English script';
  5.     end;
  6.     
  7.     procedure putfirst;        { initialize editor }
  8.     begin
  9.         writeln(diffile,'Initialize editor');
  10.         writeln(diffile,'Goto line 1');
  11.     end;
  12.  
  13.     procedure putdel(t : integer); { delete t lines including current }
  14.     begin                          { one.  Leave line after last delete }
  15.         if t = 1 then writeln(diffile,'delete current line')
  16.         else                             { as current line}
  17.         writeln(diffile,'delete the next ',t,' lines');
  18.     end;
  19.  
  20.     procedure puttop;        { set up to insert lines before line 1 }
  21.     begin
  22.         writeln(diffile,'insert next line above line 1');
  23.     end;
  24.  
  25.     procedure putbot;        { set up to insert lines at end of file }
  26.     begin
  27.         writeln(diffile,'Goto end of file');
  28.     end;
  29.  
  30.     procedure putmov(t : integer);        { skip ahead t lines in file }
  31.     begin
  32.         writeln(diffile,'move down ',t,' lines');
  33.     end;
  34.  
  35.     procedure putins(k : linenum; t : integer);        { insert t lines }
  36.     begin                                { beginning with NA[k].  The new }
  37.         writeln(diffile,'Insert above current line   vvvvvvvvv');
  38.         while t > 0 do begin        { lines PRECEDE the current line }
  39.         writeln(diffile,ST[NA[k].index].lineval^);
  40.         k := k + 1;
  41.         t := t - 1;
  42.         end;                        { When done, current line is same }
  43.         writeln(diffile,'end of insert               ^^^^^^^^^');
  44.     end;                                { as it was when putins started   }
  45.  
  46.     procedure putlast;        { close file and end editor }
  47.     begin
  48.         writeln(diffile,'DIFF file processing finished.');
  49.     end;
  50.  
  51.