Re: Local Versus Global Command Options

On 2/13/2025 8:06 PM, Arne Vajhøj wrote:

On 2/13/2025 5:52 PM, Lawrence D'Oliveiro wrote:

What would DCL-style syntax for ffmpeg look like? I suppose one
obvious equivalence would be
>
     ffmpeg -
         «infile-1»/«local-input-options-1»,«infile-2»/«local-input- options-2»,... -
         «outfile-1»/«local-output-options-1»,«outfile-2»/«local- output-options-2»,... -
>
(being very careful about where the commas go), but what about the
syntax for filtergraphs? Would it be something like
>
     /vf=(«filter-name-1»=«filter-params-1»,«filter-name-2»=«filter- params-2»...)
>
Does DCL have provision for this sort of complexity?

 You can do quite a bit with CDU, CLD and CLI$:
 $ type fun.cld
define verb fun
     image "sys$disk:[]fun"
     parameter p1, value(type=$file)
     parameter p2, value(type=$file)
     parameter p3, value(type=$file)
     parameter p4, value(type=$file)
     parameter p5, value(type=$file)
     parameter p6, value(type=$file)
     parameter p7, value(type=$file)
     parameter p8, value(type=$file)
qualifier q1, placement=local
qualifier q2, value(type=a_and_b, list, required), placement=local
define type a_and_b
     keyword a, value(type=$number, required)
     keyword b, value(type=$number, required)
$ type fun.pas
[inherit('sys$library:pascal$cli_routines')]
program fun(input,output);
 type
    pstr = varying [255] of char;
 procedure check(pn : pstr);
 var
    fnm, a, b : pstr;
 begin
    if odd(cli$present(pn)) then begin
       cli$get_value(pn, fnm.body, fnm.length);
       write(pn, '=', fnm);
       if odd(cli$present('Q1')) then begin
          write(' Q1=present')
       end else begin
          write(' Q1=notpresent')
       end;
       if odd(cli$present('Q2')) then begin
          cli$get_value('Q2.A', a.body, a.length);
          write(' A=', a);
          cli$get_value('Q2.B', b.body, b.length);
          write(' B=', b);
       end;
       writeln;
    end;
end;
 begin
    check('P1');
    check('P2');
    check('P3');
    check('P4');
    check('P5');
    check('P6');
    check('P7');
    check('P8');
end.
$ pas fun
$ lin fun
$ set comm fun
$ fun x.dat /q2=(a:1,b:2) y.dat /q1 /q2=(a:3,b:4) z.dat /q2=(a:5,b:6)
P1=x.dat Q1=notpresent A=1 B=2
P2=y.dat Q1=present A=3 B=4
P3=z.dat Q1=notpresent A=5 B=6

Or with a P1 list:
$ type fun2.cld
define verb fun2
     image "sys$disk:[]fun2"
     parameter p1, value(type=$file, list, required)
qualifier q1, placement=local
qualifier q2, value(type=a_and_b, list, required), placement=local
define type a_and_b
     keyword a, value(type=$number, required)
     keyword b, value(type=$number, required)
$ type fun2.pas
[inherit('sys$library:pascal$cli_routines')]
program fun2(input,output);
type
    pstr = varying [255] of char;
var
    fnm, a, b : pstr;
begin
    while odd(cli$get_value('P1', fnm.body, fnm.length)) do begin
       write(fnm);
       if odd(cli$present('Q1')) then begin
          write(' Q1=present')
       end else begin
          write(' Q1=notpresent')
       end;
       if odd(cli$present('Q2')) then begin
          cli$get_value('Q2.A', a.body, a.length);
          write(' A=', a);
          cli$get_value('Q2.B', b.body, b.length);
          write(' B=', b);
       end;
       writeln;
    end;
end.
$ pas fun2
$ lin fun2
$ set comm fun2
$ fun2 x.dat/q2=(a:1,b:2), y.dat/q1/q2=(a:3,b:4), z.dat/q2=(a:5,b:6)
x.dat Q1=notpresent A=1 B=2
y.dat Q1=present A=3 B=4
z.dat Q1=notpresent A=5 B=6
Arne