home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 3 / CDASC03.ISO / sorties / 2078 / update.kex < prev    next >
Text File  |  1993-04-01  |  853b  |  36 lines
  1. *apply update list to given file/next in ring/of next view
  2. F = FILEID.1(); A. = 'kedit' F '(nodefext';
  3. if MULTWINDOW() then
  4.     do
  5.     A.0 = 'sos tabcmdf'; A.1 = 'sos tabcmdb';
  6.     end
  7. else if ARG() then
  8.     do
  9.     N = WORD( ARG(1) , 1 ); 'kedit' N;
  10.     A.0 = 'kedit' FILEID.1() '(nodefext'; A.1;
  11.     end
  12. else
  13.     do
  14.     A.0 = 'kedit'; A.1 = 'kedit-';
  15.     end
  16. V = '';
  17. do S = 0 to 1; A.S; 'cursor cmdline'; end
  18. 'kedit =.UPD'; A.2 = 'kedit' FILEID.1() '(nodefext'; A.;
  19. do forever
  20.     A.2; 'next'; L = CURLINE.3(); A.; C = SUBSTR( L , 1 , 1 );
  21.     if C = 'A' then
  22.         'input' SUBSTR( L , 3 );
  23.     if C = 'C' then
  24.         do
  25.         'reset BLOCK'; A.0;
  26.         'locate :'WORD( L , 2 ); 'mark LINE';
  27.         'locate' ( WORD( L , 3 ) - 1 ); 'mark LINE';
  28.         A.1; 'copy BLOCK'; 'bottom';
  29.         end
  30.     if C = 'E' | C = '' then
  31.         leave;
  32.     if C = 'X' then
  33.         'synex' SUBSTR( L , 3 );
  34. end
  35. 'reset BLOCK';
  36.