Path: ...!news.misty.com!weretis.net!feeder9.news.weretis.net!news.quux.org!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!eternal-september.org!.POSTED!not-for-mail
From: Janis Papanagnou <janis_papanagnou+ng@hotmail.com>
Newsgroups: comp.lang.c
Subject: [OT] Pascal identifiers [digression] (was Re: Which code style do you
 prefer the most?)
Date: Sun, 2 Mar 2025 23:00:43 +0100
Organization: A noiseless patient Spider
Lines: 42
Message-ID: <vq2ked$vbub$1@dont-email.me>
References: <vpkmq0$21php$1@dont-email.me> <vpovd0$30d00$1@dont-email.me>
 <vpp011$30evb$1@dont-email.me> <vpp8ag$31ooi$1@dont-email.me>
 <vppaeq$323aa$1@dont-email.me> <vprpss$3ipmu$1@dont-email.me>
 <vprtlj$3jdn5$1@dont-email.me> <vprv75$3jmqu$1@dont-email.me>
 <vps2k5$3k722$1@dont-email.me> <vpt8ju$3r2n0$6@dont-email.me>
 <vpvcrm$9uaj$2@dont-email.me> <vpvqtt$ckvi$1@dont-email.me>
 <vq017i$dkuj$2@dont-email.me> <vq02is$duht$1@dont-email.me>
 <5K%wP.111375$_N6e.32377@fx17.iad> <vq2280$rt14$1@dont-email.me>
 <ur1xP.2041$Oq27.1792@fx06.iad>
MIME-Version: 1.0
Content-Type: text/plain; charset=windows-1252
Content-Transfer-Encoding: 7bit
Injection-Date: Sun, 02 Mar 2025 23:00:45 +0100 (CET)
Injection-Info: dont-email.me; posting-host="cc58bd9003c7ab6704d23eaebf50d89b";
	logging-data="1028043"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1/A1TKzvFfuRFrNgTrk1TUZ"
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101
 Thunderbird/45.8.0
Cancel-Lock: sha1:NaeiOnj6I2Z+oPENcq1FRBK1+Cw=
In-Reply-To: <ur1xP.2041$Oq27.1792@fx06.iad>
X-Enigmail-Draft-Status: N1110
Bytes: 3366

On 02.03.2025 19:28, Scott Lurndal wrote:
> Janis Papanagnou <janis_papanagnou+ng@hotmail.com> writes:
>> On 02.03.2025 17:32, Scott Lurndal wrote:
>>>
>>>   Total_memory := 0;
>>>   REPEAT
>>>     Ss_status := $GETJPI( PIDADR := Wild_pid, EFN := 4, ITMLST := Jpi_list );
>>>     IF ODD( Ss_status ) AND (Terminal_len <> 0) THEN
>>>     BEGIN
>>>       $WAITFR( 4 );                     { Wait for asynch stuff to return }
>>>
>>
>> What's that '$' preceding the function names? (I don't recall that
>>from the Pascal standard or from the versions I programmed with.)
> 
> "$" is a legal character in the set that can be used for Pascal identifiers

Hmm.. - I've never seen that before.

Actually I had learned Pascal in the early 80's from a book that was -
if memory serves correctly - based on Addyman: "A draft proposal for
Pascal", which (ISTR) was the base for the Pascal standard? - The
book defines identifiers like  [A-Z][A-Z0-9]* . - Of course I may be
misremembering; after all it was nearly 45 years ago that I read it.
- Or could it have been a non-standard implementation on the VAX 11?

> (and, indeed, in C, specifically to support Digital dialects).

....sounds like it.

But VAX/Pascal identifiers are anyway of not much interest nowadays,
and specifically here; we're digressing. - Subject adjusted. exit(1)

Janis

> 
> In this particular case, the usage mirrors the MACRO-32 system call
> identifiers.   $GETJPI calls the operating system Get Job Information
> system call which takes an item list and returns per-item data (e.g.
> process identifier, user id, terminal association, etc) to the caller.
>