🚀 go-pugleaf

Submitted-by: munroe@dmc.com (Dick Munroe)
Posting-number: Volume 3, Issue 103
Archive-name: sdlgcc/part02

-+-+-+-+-+-+-+-+ START OF PART 2 -+-+-+-+-+-+-+-+
X#define SDL$C_TYPE_UNION 16
X#define SDL$C_TYPE_ANY 17
X#define SDL$C_TYPE_ENTRY 18
X#define SDL$C_TYPE_DFLOAT_COMPLEX 19
X#define SDL$C_TYPE_FFLOAT_COMPLEX 20
X#define SDL$C_TYPE_GFLOAT_COMPLEX 21
X#define SDL$C_TYPE_HFLOAT_COMPLEX 22 /* guess */
X
X#define SDL$M_VALUE 1<<0
X#define SDL$M_MASK 1<<1
X#define SDL$M_UNSIGNED 1<<2
X#define SDL$M_COMMON 1<<3 /* ??? */
X#define SDL$M_GLOBAL 1<<4 /* ??? */
X#define SDL$M_VARYING 1<<5 /* ??? */
X#define SDL$M_VARIABLE 1<<6
X#define SDL$M_BASED 1<<7
X#define SDL$M_DESCRIPTOR 1<<8
X#define SDL$M_DIMEN 1<<9
X#define SDL$M_IN 1<<10
X#define SDL$M_OUT 1<<11
X#define SDL$M_BOTTOM 1<<12
X#define SDL$M_BOUND 1<<13 /* ?? */
X#define SDL$M_REF 1<<14
X#define SDL$M_FILL 1<<15
X#define SDL$M_16 1<<16 /* ??? */
X#define SDL$M_DEFAULT 1<<17
X#define SDL$M_VARDIM 1<<18
X#define SDL$M_LINK 1<<19
X#define SDL$M_OPTIONAL 1<<20
X#define SDL$M_21 1<<21 /* ??? */
X#define SDL$M_FIXED 1<<22
X#define SDL$M_GENERATED 1<<23
X#define SDL$M_24 1<<24
X#define SDL$M_LIST 1<<25
X#define SDL$M_RTL_STR_DESC 1<<26
X#define SDL$M_COMPLEX 1<<27
X#define SDL$M_28 1<<28
X#define SDL$M_29 1<<29
X#define SDL$M_30 1<<30
X#define SDL$M_31 1<<31
X
X#define SDL_SYMBOL "SDL_COMMAND_ARGS"
$ CALL UNPACK SDLDEF.H;3 1510900232
$ create 'f'
Xmodule uncc
X  define type mask_type
X    keyword hex
X    keyword decimal
X  define type case_type
X    keyword original
X    keyword mixed
X    keyword upper
X    keyword lower
X  define type compiler_type
X    keyword gcc
X    keyword vaxc
X  define type cc_type
X    keyword indent, value(type=$number)
X    keyword mask, value(type=mask_type)
X    keyword case, value(type=case_type)
X    keyword prototypes, negatable
X    keyword compiler, negatable, value(type=compiler_type)
X    keyword variants, negatable
X    keyword comments, negatable, default
X    keyword modules, value(list)
X    keyword separate, negatable
X    keyword infile
X  define verb unsdlcc
X    parameter p1, value(type=cc_type,list)
$ CALL UNPACK SDLCC-CLD.CLD;8 2036603554
$ create 'f'
X$ goto start
X$do: subroutine
X$ ! p1 = name of starlet module to work with
X$ library/text/extract='p1'/out='p1'.sdi sys$share:starletsd
X$ unsdl/lang=gcc="nocomment,mask=hex,case=mixed,variant,compiler=gcc''p2'" '
Vp1' 'p3'
X$ delete 'p1'.sdi;
X$ return
X$ endsubroutine
X$start:
X$ file = f$environment("procedure")
X$ dev = f$parse(file,,,"device")
X$ dir = f$parse(file,,,"directory")
X$ set command 'dev''dir'unsdl
X$ define unsdl 'dev''dir'unsdl
X$ define sdlgcc 'dev''dir'sdlgcc
X$ call do BASMSG
X$ call do COBMSG
X$ call do CRF
X$ call do CRFERRMSG
X$ call do DSTDEF
X$ call do DTK$ROUTINES
X$ call do DTKDEF
X$ call do DTKMSG
X$ call do FORMSG
X$ call do JBCMSG
X$ call do LATMSG
X$ call do LBRUSR
X$ call do LIB$ROUTINES
X$ call do LIBCLIDEF
X$ call do LIBCQDEF
X$ call do LIBDCFDEF
X$ call do LIBDTDEF
X$ call do LIBMSG
X$ call do LIBVMDEF
X$ call do MTH$ROUTINES
X$ call do MTHMSG
X$ call do NCS$ROUTINES
X$ call do NCSMSG
X$ call do OBJFMT
X$ call do OPCDEF
X$ call do OPCMSG
X$ call do OPDEF
X$ call do OTS$ROUTINES
X$ call do OTSMSG
X$ call do PPL$DEF
X$ call do PPL$ROUTINES
X$ call do PPLMSG
X$ call do PSMMSG
X$ call do RMSDEF
X$ call do RMSFALMSG
X$ call do RMSUSR
X$ call do SCRDEF
X$ call do SHRMSG
X$ call do SMBMSG
X$ call do SMG$ROUTINES
X$ call do SMGDEF
X$ call do SMGMSG
X$ call do SMGTRMPTR
X$ call do SOR$ROUTINES
X$ call do SORMSG
X$ call do SRMDEF
X$ call do SSMSG
X$ call do STARDEFAE ",separate"
X$ call do STARDEFFL ",separate"
X$ call do STARDEFMP ",separate"
X$ call do STARDEFQZ ",separate"
X$ call do STARLET
X$ call do STR$ROUTINES
X$ call do STRMSG
X$ exit
$ CALL UNPACK ALL4GCC.COM;2 358523767
$ create 'f'
X$ goto start
X$do: subroutine
X$ ! p1 = name of starlet module to work with
X$ library/text/extract='p1'/out='p1'.sdi sys$share:starletsd
X$ unsdl/lang=gcc="nocomment,mask=hex,case=mixed,prototype,variant,compiler=g
Vcc''p2'" 'p1' 'p3'
X$ delete 'p1'.sdi;
X$ return
X$ endsubroutine
X$start:
X$ file = f$environment("procedure")
X$ dev = f$parse(file,,,"device")
X$ dir = f$parse(file,,,"directory")
X$ set command 'dev''dir'unsdl
X$ define unsdl 'dev''dir'unsdl
X$ define sdlgcc 'dev''dir'sdlgcc
X$ call do BASMSG
X$ call do COBMSG
X$ call do CRF
X$ call do CRFERRMSG
X$ call do DSTDEF
X$ call do DTK$ROUTINES
X$ call do DTKDEF
X$ call do DTKMSG
X$ call do FORMSG
X$ call do JBCMSG
X$ call do LATMSG
X$ call do LBRUSR
X$ call do LIB$ROUTINES
X$ call do LIBCLIDEF
X$ call do LIBCQDEF
X$ call do LIBDCFDEF
X$ call do LIBDTDEF
X$ call do LIBMSG
X$ call do LIBVMDEF
X$ call do MTH$ROUTINES
X$ call do MTHMSG
X$ call do NCS$ROUTINES
X$ call do NCSMSG
X$ call do OBJFMT
X$ call do OPCDEF
X$ call do OPCMSG
X$ call do OPDEF
X$ call do OTS$ROUTINES
X$ call do OTSMSG
X$ call do PPL$DEF
X$ call do PPL$ROUTINES
X$ call do PPLMSG
X$ call do PSMMSG
X$ call do RMSDEF
X$ call do RMSFALMSG
X$ call do RMSUSR
X$ call do SCRDEF
X$ call do SHRMSG
X$ call do SMBMSG
X$ call do SMG$ROUTINES
X$ call do SMGDEF
X$ call do SMGMSG
X$ call do SMGTRMPTR
X$ call do SOR$ROUTINES
X$ call do SORMSG
X$ call do SRMDEF
X$ call do SSMSG
X$ call do STARDEFAE ",separate"
X$ call do STARDEFFL ",separate"
X$ call do STARDEFMP ",separate"
X$ call do STARDEFQZ ",separate"
X$ call do STARLET
X$ call do STR$ROUTINES
X$ call do STRMSG
X$ exit
$ CALL UNPACK ALL5GCC.COM;6 135687762
$ create 'f'
X! Use setdebug to assert debug & traceback on SYS$SYSTEM:SDLNPARSE.EXE`20
X! before using this script.
X!
Xset lang macro
Xset br 5e0f
Xgo
Xstep/into
Xset lan c
Xset modu/all
$ CALL UNPACK DEBUGGCC.COM;13 1651204419
$ v=f$verify(v)
$ EXIT