home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 3 / CDASC03.ISO / sorties / 2078 / multiple.kex < prev    next >
Encoding:
Text File  |  1993-04-01  |  1.3 KB  |  39 lines
  1. *┌───────────────────────────────────────────────────────────────────────┐
  2. *│ KEDIT all files listed in directory - possibly KEDIT DIR (profile ... │
  3. *└───────────────────────────────────────────────────────────────────────┘
  4. $D = 'kedit' FILEID.1() '(nodefext'; A = ARG(1);
  5. M = 'emsg MULTIPLE'; S = 'nomsg select' DISPLAY.2()+1;
  6. if INITIAL() & NBFILE.1() = 1 then
  7.         do
  8.         'macro PROFILE'; P = POS( ')' , A );
  9.         if P > 0 then A = SUBSTR( A , P+1 ); else A = '';
  10.         end
  11. C = 1;
  12. do forever
  13.     P = POS( '(' , A , C ); if P = 0 then leave;
  14.     C = POS( ')' , A , P ); if C = 0 then leave;
  15. end
  16. if P = 0 then P = LENGTH(A)+1;
  17. C = SUBSTR( A , 1 , P-1 ); O = SUBSTR( A , P+1 );
  18. if C \= '' then C = 'synex' C;
  19. if SCROLLLOCK() then
  20.     do forever
  21.     'top'; 'locate /<DIR>/'; if RC \= 0 then leave;
  22.     F = DIRFILEID.1(); 'delete 1'; 'dirappend' F;
  23.     end
  24. 'top'; 'locate ^/<DIR>/';
  25. if RC = 0 then
  26.     do
  27.     'set reserved 1 bright white MULTIPLE profile' DEFPROFILE.1() A 'of:'
  28.     do forever
  29.         F = DIRFILEID.1(); 'msg' F; 'refresh'; 'kedit' F '(nodefext' O;
  30.         if RC > 1 then do; M 'stopped at' F; leave; end
  31.         C; if RC \= 0 & F = FILEID.1() then 'quit';
  32.         $D; S '^/<DIR>/'; if RC \= 0 then do; 'all'; 'top'; leave; end
  33.     end
  34.     'set reserved 1 OFF';
  35.     if NBFILE.1() > 1 then 'query ring'; else if INITIAL() then 'qquit';
  36.     end
  37. else
  38.     M 'no file found';
  39.