Warning: mysqli::__construct(): (HY000/1203): User howardkn already has more than 'max_user_connections' active connections in D:\Inetpub\vhosts\howardknight.net\al.howardknight.net\includes\artfuncs.php on line 21
Failed to connect to MySQL: (1203) User howardkn already has more than 'max_user_connections' active connectionsPath: ...!weretis.net!feeder8.news.weretis.net!usenet.goja.nl.eu.org!dotsrc.org!filter.dotsrc.org!news.dotsrc.org!not-for-mail
Date: Thu, 13 Feb 2025 21:37:04 -0500
MIME-Version: 1.0
User-Agent: Mozilla Thunderbird
Subject: Re: Local Versus Global Command Options
Newsgroups: comp.os.vms
References:
Content-Language: en-US
From: =?UTF-8?Q?Arne_Vajh=C3=B8j?=
In-Reply-To:
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Lines: 134
Message-ID: <67aeac50$0$713$14726298@news.sunsite.dk>
Organization: SunSITE.dk - Supporting Open source
NNTP-Posting-Host: 3ee665d8.news.sunsite.dk
X-Trace: 1739500624 news.sunsite.dk 713 arne@vajhoej.dk/68.14.27.188:56585
X-Complaints-To: staff@sunsite.dk
Bytes: 4863
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