Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/MADTRB18.ZIP/DIFF-LV.DRV

Text File | 1985-05-30 | 1.6 KB | 54 lines

        function ED_NAME : ltext;
    begin
        ED_NAME := 'Levee 2.1Td';
    end;

    procedure putfirst;        { initialize editor }
    begin
        Kill_line_1 := False;
        writeln(diffile,':set noai');
        writeln(diffile);
        write  (diffile,'1G');
    end;

    procedure putdel(t : integer);       { delete t lines including current }
    begin                                { one.  Leave line after last delete }
        write(diffile,t:1,'dd0');        { as current line}
    end;

    procedure puttop;        { set up to insert lines before line 1 }
    begin
        writeln(diffile,'1GI');
        write  (diffile,chr(27));
        kill_line_1 := True;
    end;

    procedure putbot;        { set up to insert lines at end of file }
    begin
        write(diffile,'G$');
    end;

    procedure putmov(t : integer);        { skip ahead t lines in file }
    begin
        write(diffile,t:1,'+');
    end;

    procedure putins(k : linenum; t : integer);        { insert t lines }
    begin                                { beginning with NA[k].  The new }
        while t > 0 do begin        { lines PRECEDE the current line }
        writeln(diffile,'kA');
        write  (diffile,ST[NA[k].index].lineval^,chr(27),'+');
        k := k + 1;
        t := t - 1;
        end;                        { When done, current line is same }
    end;                                { as it was when putins started   }

    procedure putlast;        { close file and end editor }
    begin
        if Kill_line_1 then
        writeln(diffile,'1Gdd0');
        writeln(diffile,':; DIFF file processing finished.');
    end;