/*  (gH)   --  ex.sedit  ;  TimeStamp (unix) : 17 Septembre 03 10:53 */
parse arg param
'extract /fname/'
'extract /ftype/'
fid = fname.1||ftype.1
ext = translate(ftype.1)
'save'
select
  when ext = 'AWK' then do ; push 'dos awk -f' fid  param ; exit ; end
  when ext = 'AWK' then do ; 'dos awk -f'   fid  param  ; exit ; end
  when ext = 'BAT' then do ; 'dos       '   fid  param  ; exit ; end
  when ext = 'CMD' then do ; 'dos       '   fid  param  ; exit ; end
  when ext = 'FIN' then do ; 'dos disp  '   fid         ; exit ; end
  when ext = 'GPL' then do ; 'dos gnuplot ' fid         ; exit ; end
  when ext = 'KEX' then do ; 'macro     '   fid  param  ; exit ; end
  when ext = 'PL'  then do ; macro swi                  ; exit ; end
  when ext = 'PL'  then do ; 'dos perl  '   fid param   ; exit ; end
  when ext = 'INC' then do ; tpw                        ; exit ; end
  when ext = 'LTX' then do ; 'dos l:\gh\bce\latex.bat ' fid           ; exit ; end
  when ext = 'PAS' then do ; tpw                        ; exit ; end
  when ext = 'PRL' then do ; dos perl       fid param   ; exit ; end
  when ext = 'REX' then do ; 'dos regina '  fid  param  ; exit ; end
  when ext = 'RTF' then do ; 'macro rtf '  fid  param  ; exit ; end
  when ext = 'TCL' then do ; 'winexec "C:\Program Files\Tcl\bin\wish80.exe"' fid param    ; exit ; end
  when ext = 'TCL' then do ; 'winexec "C:\Program Files\Tcl\lib\tix4.1.0\win\tcl8.0\tix4180.exe"' fid_no_unit param    ; exit ; end
  when ext = 'TKL' then do ; 'dos l:\gh\bce\tcl ' fid  param  ; exit ; end
  when ext = 'TCL' then do ; 'dos  x:\tc  ' fid  param  ; exit ; end
  when ext = 'TK'  then do ; 'dosq l:\gh\bce\tk  ' fid  param  ; exit ; end
  when ext = 'TIX' then do ; 'dosq l:\_Logiciels\tix ' fid  param  ; exit ; end
  when ext = 'TEX' then do ; 'ssave' ; 'tex'  ; 'xcsh latex  -interaction=nonstopmode '  fid ; quit ; exit ; end
  when ext = '.TEX' then do ; 'ssave' ; 'tex' ; 'xcsh latex  -interaction=nonstopmode '  fid ; quit ; exit ; end
  when ext = 'TUT' then do ; 'dos disp  '   fid         ; exit ; end ;
  when ext = 'WBT' then do ; 'winexec c:\bce\winbatch\wbat16i.exe '   fid         ; exit ; end ;

  otherwise do ; emsg 'exécution en . 'ext ' non comprise ' ; end
end