Path: nntp.eternal-september.org!news.eternal-september.org!eternal-september.org!.POSTED!not-for-mail
From: =?UTF-8?Q?Arne_Vajh=C3=B8j?= <arne@vajhoej.dk>
Newsgroups: comp.os.vms
Subject: Re: VMS x86-64 database server
Date: Wed, 9 Jul 2025 10:13:18 -0400
Organization: A noiseless patient Spider
Lines: 72
Message-ID: <104ltdu$8uet$1@dont-email.me>
References: <104ejo8$2cobv$1@dont-email.me> <104etvi$2g8lt$1@dont-email.me>
 <104f2gd$2h75q$1@dont-email.me> <104gmqv$2ut4p$1@dont-email.me>
 <104h21p$31cae$1@dont-email.me> <104hcsi$33nc0$1@dont-email.me>
 <104hghi$3474l$12@dont-email.me> <104hkp5$3595d$1@dont-email.me>
 <104hol2$360c1$2@dont-email.me> <104iuj2$3hfsb$1@dont-email.me>
 <104k4ao$3p7d8$9@dont-email.me> <686d9849$0$694$14726298@news.sunsite.dk>
 <104kaa4$3qkfr$6@dont-email.me> <104kjhj$3r3fk$2@dont-email.me>
 <104lfil$65gu$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Wed, 09 Jul 2025 16:13:19 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="92fa2f9b1c8db44412ee0815736af9ce";
	logging-data="293341"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX18cAyyU+PJQmThRlgZEHcbP5A4TpueHSfw="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:JmeJalC+lPjhJh3s6tH5qPOHXy8=
In-Reply-To: <104lfil$65gu$1@dont-email.me>
Content-Language: en-US

On 7/9/2025 6:16 AM, hb0815 wrote:
> On 7/9/25 04:18, Arne Vajhøj wrote:
>> First I don't think a verb qualifier and a per-file qualifier with same
>> name will work well.
> 
> Depends on what you mean with "well". It works and it is used: see
> $ HELP SEARCH /KEY
> ... and documented in the Utility Routines Manual.

The issue is that I cannot find a path prefix that restrict qualifier
to the parameter for usage by CLI$PRESENT.

$ type duo.cld
define verb duo
     image "sys$disk:[]duo"
     parameter p1, value(type=$file, list, required)
qualifier q, placement=positional
$ type duo.pas
[inherit('sys$library:pascal$cli_routines')]
program duo(input,output);

type
    pstr = varying [255] of char;

var
    fnm, a, b : pstr;

begin
    if odd(cli$present('Q')) then begin
       writeln('Q=present')
    end else begin
       writeln('Q=notpresent')
    end;
    while odd(cli$get_value('P1', fnm.body, fnm.length)) do begin
       write(fnm);
       if odd(cli$present('Q')) then begin
          write(' Q=present')
       end else begin
          write(' Q=notpresent')
       end;
       writeln;
    end;
end.
$ set command duo
$ pas duo
$ link duo
$ duo 1.txt/q,2.txt,3.txt/q
Q=notpresent
1.txt Q=present
2.txt Q=notpresent
3.txt Q=present
$ duo/q 1.txt/q,2.txt,3.txt/q
Q=present
1.txt Q=present
2.txt Q=present
3.txt Q=present

Where:
   2.txt Q=present
is not what was intended.

In general I like CLD and CLI$ concept, but I would have preferred
CLI$ to expose the context they use instead of having it hidden.

> If you do not want to use an option, you can (create and) add your
> shareable image to a shareable image library. Such a library can be
> used on the command line - with the /LIBRARY qualifier.

Yes.

Arne