[Info-vax] Meditech in the news

[Arne Vajhøj]

On 1/9/2022 5:32 AM, Bob Eager wrote:
> On Sat, 08 Jan 2022 13:30:48 -0800, plugh wrote:
>> On Saturday, January 8, 2022 at 2:23:11 PM UTC-7, Bob Eager wrote:
>>> On Sat, 08 Jan 2022 12:18:22 -0800, plugh wrote:
>>>
>>>> Very true. I should've been clearer when referencing CAM. I'd like to
>>>> call out stem-and-list CAM as opposed to hashing &c. The difference
>>>> is storage organization around paths, not nodes. That's why I
>>>> namechecked REXX. I'm quite sure perl could do that as well.
>>> I use REXX quite a bit, and I use that facility a lot too.
>>
>> Did it ever get to VMS? It would've been a nice replacement for DCL.
> 
> There is a version of Regina which is reputed to work; Test on 6.1 and
> 6.2, with some minor limitations.

Latest (regina394.zip)

update descrip.mms:

/DEFINE=(VMS,HAVE_DIV,HAVE_ARPA_INET_H)
->
/DEFINE=(VMS,HAVE_DIV,HAVE_ARPA_INET_H,REGINA_VERSION_MAJOR="""3""",REGINA_VERSION_MINOR="""9""",REGINA_VERSION_SUPP="""""",REGINA_VERSION_RELEASE="""4""",REGINA_BITS="""64""",REGINA_VERSION_DATE="""-""")

OBJ9=vmsfuncs.obj,vmscmd.obj,variable.obj,wrappers.obj,yaccsrc.obj,alloca.obj,arxfuncs.obj
->
OBJ9=vmsfuncs.obj,vmscmd.obj,variable.obj,wrappers.obj,yaccsrc.obj,alloca.obj,arxfuncs.obj,mygetopt.obj,os_other.obj

mygetopt.obj :  mygetopt.c
         @ write sys$output ""
         @ write sys$output "Compiling $(MMS$SOURCE) "
         $(CC) $(CFLAGS) $(MMS$SOURCE)
         @ write sys$output "Done (compiling)."
os_other.obj :  os_other.c
         @ write sys$output ""
         @ write sys$output "Compiling $(MMS$SOURCE) "
         $(CC) $(CFLAGS) $(MMS$SOURCE)
         @ write sys$output "Done (compiling)."

update vmsfuncs.c:

str_digitize( TSD, temp, 0, 1 , "", 0)
->
str_digitize( TSD, temp, 0, 1 )

update os_other.c:

#if defined(MAC) || defined(GO32) || defined (__EMX__) || 
(defined(__WATCOMC__) && !defined(__QNX__)) || defined(_MSC_VER) || 
defined(DJGPP) || defined(__CYGWIN32__) || defined(__BORLANDC__) || 
defined(__MINGW32__) || defined(__WINS__) || defined(__EPOC32__) 
||defined(__LCC__)
->
#if defined(MAC) || defined(GO32) || defined (__EMX__) || 
(defined(__WATCOMC__) && !defined(__QNX__)) || defined(_MSC_VER) || 
defined(DJGPP) || defined(__CYGWIN32__) || defined(__BORLANDC__) || 
defined(__MINGW32__) || defined(__WINS__) || defined(__EPOC32__) 
||defined(__LCC__) || defined(VMS)

# elif defined(VMS)
#  define ISTR_SLASH "/"
#  define I_SLASH '/'

# if !defined(MAC) && !defined(__WINS__) && !defined(__EPOC32__) && 
!defined(__CYGWIN__)
->
# if !defined(MAC) && !defined(__WINS__) && !defined(__EPOC32__) && 
!defined(__CYGWIN__) && !defined(VMS)

And I get a REXX.EXE.

Unfortunately I cannot test it because I don't know REXX.

Arne