dH VMS.BCKPQVMS.BCKdBACKUP/INTERCHANGE ICON:[V9...]*.* XLARGE:[SLM]VMS.BCK;/REWIND/SAVE_SET/DENSITY=1600/BLOCK_SIZE=8192 SLM 2>V6.0 _VIOLET::  _$25$VDA3: V6.0  *[V9]BACKUP.COM;2+,P./ 4Kw-6r0123KPWO56bO"`7b"`89Ҋ;vGHJ$! $! Backup Icon directory for distribution. $! (assumes that [-.v9] is top level of file hierarchy) $! $! Clean up the area. $! $ @clean $ delete/noconfirm/nolog [.ipl.ucode]*.*;*, [.ipl.icode]*.*;* $ $ DIR = f$environment("DEFAULT") $ ERRSTR = "Usage: @backup output-file-spec" $ if p1 .eqs. "" then $ goto error $ OUTFILE = f$parse("''p1'","Icon9",,,"syntax_only") $ $ PDEV = f$parse(f$environment("procedure"),,,"device","no_conceal") $ PDIR = f$parse(f$environment("procedure"),,,"directory") $ set default 'PDIR' $ $ IDIR = f$elememt(0,"]",f$parse("[-]",,,"directory")) $ assign/nolog 'PDEV''IDIR'.] ICON /translation=(concealed,terminal) $ ERRSTR = "Files are missing from ICON:[V9.BIN]" $ if f$search("ICON:[v9.bin]icon.hlb") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]rtt.exe") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]icont.exe") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]iconx.exe") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]iconc.exe") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]rt.h") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]rt.db") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]rt.olb") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]dlrgint.obj") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]grttin.h") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]deficon.com") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]iexe.com") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]X11.opt") .eqs. "" then $ goto error $ $ write sys$output "Copying VMS Icon hierarchy to ''OUTFILE'" $ backup/interchange ICON:[v9...]*.* - 'OUTFILE'/rewind/save_set/density=1600/block_size=8192 $ set default 'DIR' $ exit 1 $ $error: $ write sys$output "''ERRSTR'" $ write sys$output "No backup done" $ set default 'DIR' $ exit 1 *[V9]BACKUPBINARY.COM;2+,P./ 4N-6r0123KPWO560`7r0`89Ҋ;vGHJ$! $! Backup Icon binaries for distribution. $! (assumes that [-.v9] is top level of file hierarchy) $! $ DIR = f$environment("DEFAULT") $ ERRSTR = "Usage: @backup output-file-spec" $ if p1 .eqs. "" then $ goto error $ OUTFILE = f$parse("''p1'","Icon9",,,"syntax_only") $ $ PDEV = f$parse(f$environment("procedure"),,,"device","no_conceal") $ PDIR = f$parse(f$environment("procedure"),,,"directory") $ set default 'PDIR' $ $ IDIR = f$elememt(0,"]",f$parse("[-]",,,"directory")) $ assign/nolog 'PDEV''IDIR'.] ICON /translation=(concealed,terminal) $ ERRSTR = "Files are missing from ICON:[V9.BIN] or ICON:[V9.BINARY-BIN]" $ if f$search("ICON:[v9.bin]icon.hlb") .eqs. "" then $ goto error $ if f$search("ICON:[v9.binary-bin]icont.exe") .eqs. "" then $ goto error $ if f$search("ICON:[v9.binary-bin]iconx.exe") .eqs. "" then $ goto error $ if f$search("ICON:[v9.binary-bin]iconc.exe") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]rt.h") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]rt.db") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]rt.olb") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]dlrgint.obj") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]deficon.com") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]iexe.com") .eqs. "" then $ goto error $ if f$search("ICON:[v9.bin]X11.opt") .eqs. "" then $ goto error $ rename ICON:[v9.binary-bin]icont.exe,iconx.exe,iconc.exe ICON:[v9.bin] $ $ write sys$output "Copying VMS Icon binaries to ''OUTFILE'" $ backup/interchange ICON:[v9.bin]deficon.com,dlrgint.obj,icon.hlb,iconc.exe,- icont.exe,iconx.exe,iexe.com,rt.db,rt.h,rt.olb,X11.opt - 'OUTFILE'/rewind/save_set/density=1600/block_size=8192 $ rename ICON:[v9.bin]icont.exe,iconx.exe,iconc.exe ICON:[v9.binary-bin] $ set default 'DIR' $ exit 1 $ $error: $ write sys$output "''ERRSTR'" $ write sys$output "No backup done" $ set default 'DIR' $ exit 1  *[V9]BIN.DIR;1+,./ 4-6r0123 KPWO56PUX7wX89Ҋ;vGHJI .PLACEHOLDER DEFICON.COMDEF_ICON_BIN.COM DLRGINT.OBJPGRTTIN.HICON.HLB ICONC.EXE? ICONT.EXE ICONX.EXE)IEXE.COMRT.DB)NRT.HRT.OLBORTT.EXEX11.OPT*[V9.BIN].PLACEHOLDER;1+,./ 4-0123KPWO56PX7PǞX89Jj$GHJ*[V9.BIN]DEFICON.COM;1+,./ 4-0123KPWO56PX7P Y89Jj$GHJ$! $! Define the directory containing this procedure as ICON_BIN. $! $ PROC = f$environment("procedure") $ DEV = f$parse(PROC,,,"device") $ DIR = f$parse(PROC,,,"directory") $ assign/nolog 'DEV''DIR' ICON_BIN $! $! Define the commands ICONT, ICONX, and IEXE. $! $ iconc == "$ ICON_BIN:iconc" $ icont == "$ ICON_BIN:icont" $ iconx == "$ ICON_BIN:iconx" $ iexe == "@ICON_BIN:iexe" $! $! Add the Icon help library to the help search path. $! $ HELPLIB = "ICON_BIN:ICON.HLB" ! value must be upper case $ LIBNAME = "HLP$LIBRARY" $ N = 0 $loop1: $ NAMEVAL = f$trnlnm("''LIBNAME'","LNM$PROCESS_TABLE") $ if NAMEVAL .eqs. "" then $ goto assign1 $ if NAMEVAL .eqs. "''HELPLIB'" then $ goto done1 $ N = N + 1 $ LIBNAME = "HLP$LIBRARY_''N'" $ if N .lt. 1000 then $ goto loop1 $ write sys$output "Can't add Icon help library; too many names." $ goto done1 $ $assign1: $ assign 'HELPLIB' 'LIBNAME' $done1: $! $! Add the C library to the link search path. $! $ LINKLIB = "SYS$LIBRARY:VAXCRTL" ! value must be upper case $ LIBNAME = "LNK$LIBRARY" $ N = 0 $loop2: $ NAMEVAL = f$trnlnm("''LIBNAME'","LNM$PROCESS_TABLE") $ if NAMEVAL .eqs. "" then $ goto assign2 $ if (NAMEVAL .eqs. "''LINKLIB'") .or. - (NAMEVAL .eqs. "''LINKLIB'.OLB") then $ goto done2 $ N = N + 1 $ LIBNAME = "LNK$LIBRARY_''N'" $ if N .lt. 1000 then $ goto loop2 $ write sys$output "Can't add C link library; too many names." $ goto done2 $ $assign2: $ assign 'LINKLIB' 'LIBNAME' $done2: $ $ exit 1  VMS.BCK[V9.BIN]DEF_ICON_BIN.COM;1"*[V9.BIN]DEF_ICON_BIN.COM;1+,./ 4-0123KPWO56X7X89Jj$GHJ$! $! Define ICON_BIN. $! $ PROC = f$environment("procedure") $ DEV = f$parse(PROC,,,"device") $ DIR = f$parse(PROC,,,"directory") $ assign/nolog 'DEV''DIR' ICON_BIN $ $ exit 1 *[V9.BIN]DLRGINT.OBJ;1+,P. / 4 z -0123KPWO 567`289Ҋ;vGHJ4DLRGINTV1.025-JUL-1994 08:01VAX C V3.2-044RDLRGINTbigprint bigtoreal bigtoscpbignum  bigdiv (bigmod 0bigand 8bigor @bigxor HbigcmpPbigrand Xbigadd# |bigmul# bigneg# bigsub# realtobig bigpow`Tbigradixpbigshift7 3   C$V_CTYPEDEFSIIPOWRADIX BIGPRINT  BIGTOREAL BIGTOS CPBIGNUM BIGDIV (BIGMOD 0BIGAND 8BIGOR @BIGXOR HBIGCMP PBIGRAND XBIGADD |BIGMUL BIGNEG BIGSUB REALTOBIG BIGPOW TBIGRADIX pBIGSHIFT$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMS OVER_FLOW$CHAR_STRING_CONSTANTSP^P^|P^P^P^P^P^P^P^P^P^P^<6}LN7P^<6}LN7P^<6}LN7P^<6}LN7P^PP^ЬPݠЬPݠIIPOWPQ(53}L;4PЬ PЏ`QP^ݬݬݬ ݬݬRADIX^ЬPРQЬPРPP QPxPQQЬ PЏ`QP*[V9.BIN]GRTTIN.H;1+,.?/ 4??d-0123KPWO@56~V789Jj$GHJ/***** do not edit -- this file was generated mechanically *****/ /**************************************** from [-.h]grttin.h: */ /* * Group of include files for input to rtt. * rtt reads these files for preprocessor directives and typedefs, but * does not output any code from them. */ /**************************************** from ../h/define.h: */ /* * Default limit on sbrk region growth. 1 MB is almost 6x the initial size. * This should be enough for nearly all programs. */ #define MaxMem 1000000 /* * The definitions below configure Icon for VMS and should not be changed. */ #define VMS 1 #define Hz 100 /* times() results are in 10-msec units */ #define NormalExit 1 #define ErrorExit 0x10000000 #define Big 72057594037927936. /* larger than 2^56 lose precision */ #define LogHuge 39 #define Precision 16 #define IcodeSuffix ".icx" #define IcodeASuffix ".ICX" #define TUsage "[-cstu] [-e efile] [-o ofile] [\"-Sxnnnn\"]" #define CUsage "[-C C-comp] [-c] [-f{adens}] [-n{acest}] [-o ofile]\n\ [-p C-opts] [-r runtime ] [-s] [-t] [-u]" #define Prototypes #define KeyboardFncs #define Graphics 1 #define brk vms_brk #define sbrk vms_sbrk #define rindex strrchr #define index strchr #define unlink remove /**************************************** end ../h/define.h */ #if VMS /* don't need path.h */ #else /* VMS */ /**************************************** from ../h/path.h: */ /* [file not found] */ /**************************************** end ../h/path.h */ #endif '4 VMS.BCK[V9.BIN]GRTTIN.H;1?) /* VMS */ /**************************************** from ../h/config.h: */ /* * Icon configuration. */ /* * System-specific definitions are in define.h */ /* * A number of symbols are defined here. Some are specific to individual * to operating systems. Examples are: * * MSDOS MS-DOS for PCs * UNIX any UNIX system * VMS VMS for the VAX * * These are defined to be 1 or 0 depending on which operating system * the installation is being done under. They are all defined and only * one is defined to be 1. (They are used in the form #if VAX || MSDOS.) * * There also are definitions of symbols for specific computers and * versions of operating systems. These include: * * SUN code specific to the Sun Workstation * MICROSOFT code specific to the Microsoft C compiler for MS-DOS * * Other definitions may occur for different configurations. These include: * * DeBug debugging code * MultiThread support for multiple programs under the interpreter * * Other definitions perform configurations that are common to several * systems. An example is: * * Double align reals at double-word boundaries * */ /* * If COMPILER is not defined, code for the interpreter is compiled. */ #ifndef COMPILER #define COMPILER 0 #endif /* * The following definitions insure that all the symbols for operating * systems that are not relevant are defined to be 0 -- so that they * can be used in logical expressions in #if directives. */ #ifndef PORT #define PORT 0 #endif /* PORT */ #ifndef AMIGA #define AMIGA 0 #endif /* AMIGA */ #ifndef ARM #define ARM 0 #endif /* ARM */ #ifndef ATARI_ST #define ATARI_ST 0 #endif /* ATARI_ST */ #ifndef MACINTOSH #define MACINTOSH 0 #endif /* MACINTOSH */ #ifndef MSDOS #define MSDOS 0 #endif /* MSDOS */ #ifndef MVS #define MVS 0 #endif /* MVS */ #ifndef OS2 #define OS2 0 #endif /* OS2 */ #ifndef OS2_32 #define OS2_32 0 #endif /* OS32 */ #ifndef UNIX #define UNIX 0 #endif /* UNIX */ #ifndef VM #define VM 0 #endif /* VM */ #ifndef VMS #define VMS 0 #endif /* VMS */ /* * The following definitions serve to cast common conditionals is * a positive way, while allowing defaults for the cases that * occur most frequently. That is, if co-expressions are not supported, * NoCoexpr is defined in define.h, but if they are supported, no * definition is needed in define.h; nonetheless subsequent conditionals * can be cast as #ifdef Coexpr. */ /* * The mysterious Garden of Eden; not supported under the compiler. */ #ifndef NoCoexpr #undef Coexpr #define Coexpr #endif /* NoCoexpr */ #ifdef NoCoexpr #undef MultiThread #undef EventMon #undef Eve #endif /* NoCoexpr */ #if COMPILER #undef Eve #undef MultiThread #undef Visualization #undef EventMon #endif /* COMPILER */ #ifdef Eve #undef EventMon #undef MultiThread #undef MultiRegion #undef Visualization #define EventMon #define MultiThread #define MultiRegion #define Visualization #endif /* Eve */ #ifndef NoEnvVars #undef EnvVars #define EnvVars #endif /* NoEnvVars */ #ifndef NoStrInvoke #undef StrInvoke #define StrInvoke #endif /* NoStrInvoke */ #ifndef NoLargeInts #undef LargeInts #define LargeInts #endif /* NoLargeInts */ #ifdef EventMon #undef EventProc #undef MemMon #undef MultiThread #define MemMon #define EventProc #define MultiThread #define InterpMon #endif /* EventMon */ #ifndef NoInterpMon #undef InterpMon #define InterpMon #endif /* InterpMon */ #ifndef ExpandableRegions #undef FixedRegions #define FixedRegions #undef IconAlloc #ifndef NoMultiRegion #undef MultiRegion #define MultiRegion #endif /* NoMultiRegion */ #endif /* ExpandableRegions */ /* * Did you understand all that? Well, get a load of this... */ #ifndef NoEventProc #undef EventProc #define EventProc #endif /* EventProc */ #ifdef MultiThread #undef MultiRegion #define MultiRegion #endif /* MultiThread */ #ifdef MultiRegion #ifdef ExpandableRegions deliberate syntax error #else /* NoFixedRegions */ #undef FixedRegions #define FixedRegions #endif /* NoFixedRegions */ #endif /* MultiRegion */ #ifndef RefPath #define RefPath BinPath #endif /* RefPath */ #if UNIX #ifndef NoShellHeader #undef ShellHeader #define ShellHeader #endif /* NoShellHeader */ #endif /* UNIX */ /* * Names for standard environment variables, if they are supported. * The standard names are used unless they are overridden. */ #ifdef EnvVars #ifndef MEMMON #define MEMMON "MEMMON" #endif #ifndef NOERRBUF #define NOERRBUF "NOERRBUF" #endif #ifndef TRACE #define TRACE "TRACE" #endif #ifndef COEXPSIZE #define COEXPSIZE "COEXPSIZE" #endif #ifndef STRSIZE #define STRSIZE "STRSIZE" #endif #ifndef HEAPSIZE #define HEAPSIZE "HEAPSIZE" #endif #ifndef BLOCKSIZE #define BLOCKSIZE "BLOCKSIZE" #endif #ifndef BLKSIZE #define BLKSIZE "BLKSIZE" #endif #ifndef STATSIZE #define STATSIZE "STATSIZE" #endif #ifndef STATINCR #define STATINCR "STATINCR" #endif #ifndef MSTKSIZE #define MSTKSIZE "MSTKSIZE" #endif #ifndef QLSIZE #define QLSIZE "QLSIZE" #endif #ifndef ICONCORE #define ICONCORE "ICONCORE" #endif #ifndef IPATH #define IPATH "IPATH" #endif #endif /* EnvVars */ #ifdef MSWindows #undef Graphics #define Graphics 1 #endif /* MSWindows */ #ifdef MacGraph #undef Graphics #define Graphics 1 #endif /* MacGraph */ #ifdef Graphics #ifndef NoXpmFormat #if UNIX #undef HaveXpmFormat #define HaveXpmFormat #endif /* UNIX */ #endif /* NoXpmFormat */ #ifndef MSWindows #ifndef PresentationManager #ifndef MacGraph #undef XWindows #define XWindows 1 #endif /* MacGraph */ #endif /* PresentationManager */ #endif /* MSWindows */ #undef LineCodes #define LineCodes #undef Polling #define Polling #ifndef NoIconify #define Iconify #endif /* NoIconify */ #ifndef MaxStatSize /* * Bump up MaxStatSize for X programs; they're stat-hungry */ #define MaxStatSize 100000 #endif /* MaxStatSize */ #ifndef ICONC_XLIB #define ICONC_XLIB "-lX11" #endif /* ICONC_XLIB */ #endif /* Graphics */ #ifndef NoExternalFunctions #undef ExternalFunctions #define ExternalFunctions #endif /* NoExternalFunctions */ /* * EBCDIC == 0 corresponds to ASCII. EBCDIC == 1 corresponds to EBCDIC * collating sequence, while EBCDIC == 2 provides the ASCII collating * sequence for EBCDIC systems. */ #ifndef EBCDIC #define EBCDIC 0 #endif /* EBCDIC */ /* * Other defaults. */ #ifdef DeBug #undef DeBugTrans #undef DeBugLinker #undef DeBugIconx #define DeBugTrans #define DeBugLinker #define DeBugIconx #endif /* DeBug */ #ifndef AllocType #define AllocType unsigned int #endif /* AllocType */ #ifndef ErrorExit #define ErrorExit 1 #endif /* ErrorExit */ #ifndef NormalExit #define NormalExit 0 #endif /* NormalExit */ #ifndef Hz #define Hz 60 #endif /* Hz */ #ifndef MaxHdr #define MaxHdr 4096 #endif /* MaxHdr */ #ifndef MaxPath #define MaxPath 200 #endif /* MaxPath */ #ifndef StackAlign #define StackAlign 2 #endif /* StackAlign */ #ifndef SysTime #define SysTime #endif /* SysTime */ #ifndef WordBits #define WordBits 32 #endif /* WordBits */ #ifndef IntBits #define IntBits WordBits #endif /* IntBits */ #ifndef SourceSuffix #define SourceSuffix ".icn" #endif /* SourceSuffix */ /* * Representations of directories. LocalDir is the "current working directory". * SourceDir is where the source file is. */ #define LocalDir "" #define SourceDir (char *)NULL #ifndef TargetDir #define TargetDir LocalDir #endif /* TargetDir */ #ifndef Pipes #if ARM || OS2 || UNIX || I VMS.BCK[V9.BIN]GRTTIN.H;1?-%VMS #define Pipes #endif /* ARM || OS2 || UNIX || VMS */ #endif /* Pipes */ #if UNIX || VMS #define SystemFnc #endif /* UNIX || VMS */ /* * Default sizing and such. */ #define WordSize sizeof(word) #ifndef ByteBits #define ByteBits 8 #endif /* ByteBits */ /* * Define the size of the units in MemMon (allocation history) files. */ #ifdef MemMon #ifndef MMUnits #define MMUnits WordSize #endif /* MMUnits */ #endif /* MemMon */ #ifdef EventMon #undef MMUnits #define MMUnits 1 #endif /* EventMon */ /* * Change the name of gcvt() if we're supplying our own version, * to avoid complaints under VMS and others with shared libraries. */ #ifndef NoIconGcvt #undef IconGcvt #define IconGcvt #define gcvt icon_gcvt #endif /* IconGcvt */ /* * The following definitions depend on whether or not the ANSI C standard * is supported. */ #ifdef Standard #undef StandardC #undef StandardPP #undef StandardLib #define StandardC #define StandardPP #define StandardLib #endif /* Standard */ #ifdef StandardPP #define Cat(x,y) x##y #define Lit(x) #x #else /* StandardPP */ #define Ident(x) x #define Cat(x,y) Ident(x)y #define Lit(x) "x" #endif /* StandardPP */ #ifdef StandardC #undef Prototypes #define Prototypes #undef VoidType #define VoidType #define Bell '\a' #else /* StandardC */ #if EBCDIC #define Bell '\x2F' #else /* EBCDIC */ #define Bell '\007' #endif /* EBCDIC */ #endif /* StandardC */ #ifdef StandardLib #undef SysMem #define SysMem #endif /* StandardLib */ #if IntBits != WordBits #undef SysMem #endif /* Intbits != WordBits */ #ifdef SysMem #undef memcopy #undef memfill #define memcopy(to,from,len) memcpy(to,from,len) #define memfill(to,from,len) memset(to,from,len) #endif /* SysMem */ #ifdef SysOpt #define optindex optind #endif /* SysOpt */ /* * Provide definition to use void if it's supported (mainly avoids error * messages with some C compilers. Note: typedef does not work, so care * is needed not to use compound declarations. */ #ifdef VoidType #define novalue void #define noargs void #else /* VoidType */ #define novalue int #define noargs #endif /* VoidType */ /* * And something to handle a cast problem for signal(). */ #ifndef SigFncCast #ifdef VoidType #define SigFncCast (void (*)(int)) #else /* VoidType */ #define SigFncCast #endif /* VoidType */ #endif /* SigFncCast */ /* * Customize output if not pre-defined. */ #ifndef TraceOut #define TraceOut(s) fprintf(stderr,s) #endif /* TraceOut */ #if EBCDIC #define BackSlash "\xe0" #else /* EBCDIC */ #define BackSlash "\\" #endif /* EBCDIC */ #ifndef WriteBinary #define WriteBinary "wb" #endif /* WriteBinary */ #ifndef ReadBinary #define ReadBinary "rb" #endif /* ReadBinary */ #ifndef ReadEndBinary #define ReadEndBinary "r+b" #endif /* ReadEndBinary */ #ifndef WriteText #define WriteText "w" #endif /* WriteText */ #ifndef ReadText #define ReadText "r" #endif /* ReadText */ /* * "hidden" is used to declare static functions; "hidden" normally == "static", * except with compilers that can't handle "static" in prototypes. */ #ifndef hidden #define hidden static #endif /* hidden */ /* * The "Params" macro allows a single declaration to be used with both old- and * new-style compilers. */ #ifdef Prototypes #define Params(a) a #else /* Prototypes */ #define Params(a) () #endif /* Prototypes */ /* * The following code is operating-system dependent [@config.01]. * Any configuration stuff that has to be done at this point. */ #if PORT /* Probably nothing is needed. */ Deliberate Syntax Error #endif /* PORT */ #if VMS #define ExecSuffix ".exe" #define ObjSuffix ".obj" #define LibSuffix ".olb" #endif /* VMS */ #if AMIGA || ARM || ATARI_ST || MACINTOSH || MVS || VM #endif /* AMIGA || ARM || ... */ #if MSDOS || OS2 /* * Define compiler-specific symbols to be zero if not already * defined. */ #ifndef MICROSOFT #define MICROSOFT 0 #endif /* MICROSOFT */ #ifndef CSET2 #define CSET2 0 #endif /* CSet/2 */ #ifndef CSET2V2 #define CSET2V2 0 #endif /* CSet/2 version 2 */ #ifndef TURBO #define TURBO 0 #endif /* TURBO */ #ifndef HIGHC_386 #define HIGHC_386 0 #endif /* HIGHC_386 */ #ifndef INTEL_386 #define INTEL_386 0 #endif /* INTEL_386 */ #ifndef WATCOM #define WATCOM 0 #endif /* WATCOM */ #ifndef ZTC_386 #define ZTC_386 0 #endif /* ZTC_386 */ #ifndef MSNT #define MSNT 0 #endif /* MSNT */ #if HIGHC_386 /* * MetaWare's HighC 386 macro putc doesn't handle putc('\n') correctly - * sometimes a CR is not written out before the LF. So, redefine * macro putc to actually issue an fputc. */ #undef putc #define putc(c,f) fputc(c,f) #endif /* HIGHC_386 */ #endif /* MSDOS || OS2 */ #if MACINTOSH #if LSC /* * LightSpeed C requires that #define tokens appear after prototypes */ #define index strchr #define malloc mlalloc #define rindex strrchr #define unlink remove #endif /* LSC */ #endif /* MACINTOSH */ #if MVS || VM /* * Define compiler-specific symbols to be zero if not already * defined. */ #ifndef SASC #define SASC 0 #endif /* SASC */ #ifndef WATERLOO_C_V3_0 #define WATERLOO_C_V3_0 0 #endif /* WATERLOO_C_V3_0 */ #endif /* MVS || VM */ #if UNIX || (MACINTOSH && MPW) #undef WriteBinary #define WriteBinary "w" #undef ReadBinary #define ReadBinary "r" #undef ReadEndBinary #define ReadEndBinary "r+" #ifndef NoHardWiredPaths #define HardWiredPaths #endif /* NoHardWiredPaths */ #ifndef NoHeader #undef Header #define Header #endif /* NoHeader */ #endif /* UNIX || (MACINTOSH && MPW) */ /* * End of operating-system specific code. */ #ifndef DiffPtrs #define DiffPtrs(p1,p2) (word)((p1)-(p2)) #endif /* DiffPtrs */ #ifndef AllocReg #define AllocReg(n) malloc((msize)n) #endif /* AllocReg */ #define MaxFileName 256 #ifndef EVENTMON #define EVENTMON "EVENTMON" #endif /* EVENTMON */ #ifndef MEMMON #define MEMMON "MEMMON" #endif /* MEMMON */ #ifndef RttSuffix #define RttSuffix ".r" #endif /* RttSuffix */ #ifndef DBSuffix #define DBSuffix ".db" #endif /* DBSuffix */ #ifndef PPInit #define PPInit "" #endif /* PPInit */ #ifndef PPDirectives #define PPDirectives {"passthru", PpKeep}, #endif /* PPDirectives */ #ifndef NoRanlib #define Ranlib #endif /* NoRanlib */ #ifndef EventMon #if IntBits == 16 #define NoSrcColumnInfo #endif /* IntBits == 16 */ #endif /* EventMon */ #ifndef NoSrcColumnInfo #define SrcColumnInfo #endif /* NoSrcColumnInfo */ #ifndef ExecSuffix #define ExecSuffix "" #endif /* ExecSuffix */ #ifndef CSuffix #define CSuffix ".c" #endif /* CSuffix */ #ifndef HSuffix #define HSuffix ".h" #endif /* HSuffix */ #ifndef ObjSuffix #define ObjSuffix ".o" #endif /* ObjSuffix */ #ifndef LibSuffix #define LibSuffix ".a" #endif /* LibSuffix */ #ifndef CComp #define CComp "cc" #endif /* CComp */ #ifndef COpts #define COpts "" #endif /* COpts */ /* * Note, size of the hash table is a power of 2: */ #define IHSize 128 #define IHasher(x) (((unsigned int)x)&(IHSize-1)) #if COMPILER /* * Code for the compiler. */ #undef MultiThread /* no way -- interpreter only */ #undef EventMon /* presently not supported in the compiler */ #undef EventProc /* presently not supported in the compiler */ #undef ExecImages /* interpreter only */ #undef InterpMon #else /* COMPILER */ /* * Code;5 VMS.BCK[V9.BIN]GRTTIN.H;1?" for the interpreter. */ #ifndef IcodeSuffix #define IcodeSuffix "" #endif /* IcodeSuffix */ #ifndef IcodeASuffix #define IcodeASuffix "" #endif /* IcodeASuffix */ #ifndef U1Suffix #define U1Suffix ".u1" #endif /* U1Suffix */ #ifndef U2Suffix #define U2Suffix ".u2" #endif /* U2Suffix */ #ifndef USuffix #define USuffix ".u" #endif /* USuffix */ #endif /* COMPILER */ #ifndef IconOptions #if ARM || UNIX || VMS #define IconOptions "C:ELS:Tce:f:mn:o:p:r:stuv:x" #endif /* ARM || UNIX || VMS */ #if MSDOS #define IconOptions "C:ELS:XITce:f:mn:o:p:r:stuv:x" #endif /* MSDOS */ #if OS2 #define IconOptions "C:ELS:Tce:f:in:o:p:r:stuv:x" #endif /* OS2 */ #endif /* Options */ #if EBCDIC #define CUsage "<-C C-comp> <-T> <-c> <-f{adelns}> <-n{acest}>\n\ <-o ofile> <-p C-opts> <-r runtime> <-s> <-t> <-u> <-v i>" #else /* EBCDIC */ #ifndef CUsage #if UNIX #define CUsage "[-C C-comp] [-E] [-T] [-c] [-f{adelns}] [-m] [-n{acest}]\n\ [-o ofile] [-p C-opts] [-r runtime] [-s] [-t] [-u] [-v i]" #else /* UNIX */ #define CUsage "[-C C-comp] [-E] [-T] [-c] [-f{adelns}] [-n{acest}]\n\ [-o ofile] [-p C-opts] [-r runtime] [-s] [-t] [-u] [-v i]" #endif /* UNIX */ #endif /* CUsage */ #endif /* EBCDIC */ #ifndef TUsage #if EBCDIC #define TUsage "<-cstu> <-fs> <-e efile> <-o ofile>" #endif /* EBCDIC */ #if ARM || UNIX #define TUsage "[-cmstuE] [-fs] [-e efile] [-o ofile]" #endif /* ARM || UNIX */ #if MVS || VM #define TUsage "<-cstuE> <-fs> <-e efile> <-o ofile>" #endif /* MVS || VM */ #if MSDOS #define TUsage "[-cstuEIX] [-fs] [-e efile] [-o ofile]" #endif /* MSDOS */ #endif /* TUsage */ #if MSDOS || OS2 #undef DirectExecution #define DirectExecution #endif /* MSDOS || OS2 */ #ifdef Header #undef DirectExecution #define DirectExecution #endif /* Header */ /* * TEMPORARY */ /* * Vsizeof is for use with variable-sized (i.e., indefinite) * structures containing an array of descriptors declared of size 1 * to avoid compiler warnings associated with 0-sized arrays. */ #define Vsizeof(s) (sizeof(s) - sizeof(struct descrip)) /* * Other sizeof macros: * * Wsizeof(x) -- Size of x in words. * Vwsizeof(x) -- Size of x in words, minus the size of a descriptor. Used * when structures have a potentially null list of descriptors * at their end. */ #define Wsizeof(x) ((sizeof(x) + sizeof(word) - 1) / sizeof(word)) #define Vwsizeof(x) ((sizeof(x) - sizeof(struct descrip) +\ sizeof(word) - 1) / sizeof(word)) /**************************************** end ../h/config.h */ #ifndef NoTypeDefs /**************************************** from ../h/typedefs.h: */ /* * typdefs for the run-time system. */ typedef AllocType msize; typedef int ALIGN; /* pick most stringent type for alignment */ #ifndef FixedRegions typedef union bhead HEADER; #endif /* FixedRegions */ typedef unsigned int DIGIT; /* * Default sizing and such. */ /* * Set up typedefs and related definitions depending on whether or not * ints and pointers are the same size. */ #if IntBits != WordBits typedef long int word; typedef unsigned long int uword; #else /* IntBits != WordBits */ typedef int word; #ifdef CDC_VXVE typedef uword; #else /* CDC_VXVE */ typedef unsigned int uword; #endif /* CDC_VXVE */ #endif /* IntBits != WordBits */ #ifdef StandardC #ifndef PointerDef typedef void *pointer; #endif /* PointerDef */ #else /* StandardC */ #ifndef PointerDef typedef char *pointer; #endif /* PointerDef */ #endif /* StandardC */ /* * Typedefs to make some things easier. */ typedef int (*fptr)(); typedef struct descrip *dptr; typedef word C_integer; /* * A success continuation is referenced by a pointer to an integer function * that takes no arguments. */ typedef int (*continuation) Params((noargs)); #if !COMPILER /* * Typedefs for the interpreter. */ /* * Icode consists of operators and arguments. Operators are small integers, * while arguments may be pointers. To conserve space in icode files on * computers with 16-bit ints, icode is written by the linker as a mixture * of ints and words (longs). When an icode file is read in and processed * by the interpreter, it looks like a C array of mixed ints and words. * Accessing this "nonstandard" structure is handled by a union of int and * word pointers and incrementing is done by incrementing the appropriate * member of the union (see the interpreter). This is a rather dubious * method and certainly not portable. A better way might be to address * icode with a char *, but the incrementing code might be inefficient * (at a place that experiences a lot of execution activity). * * For the moment, the dubious coding is isolated under control of the * size of integers. */ #if IntBits != WordBits typedef union { int *op; word *opnd; } inst; #else /* IntBits != WordBits */ typedef union { word *op; word *opnd; } inst; #endif /* IntBits != WordBits */ #endif /* COMPILER */ /**************************************** end ../h/typedefs.h */ #endif /* NoTypeDefs */ /**************************************** from ../h/version.h: */ /* * version.h -- version identification */ #undef DVersion #undef Version #undef UVersion #undef IVersion /* * Version number to insure format of data base matches version of iconc * and rtt. */ #define DVersion "9.0.00" #if COMPILER /* * &version */ #define Version "Icon Compiler Version 9.0. July 16, 1994" #else /* COMPILER */ /* * &version */ #define Version "Icon Interpreter Version 9.0. July 16, 1994" /* * Version numbers to be sure ucode is compatible with the linker * and icode is compatible with the run-time system. */ #define UVersion "U9.0.00" #ifdef MultiThread #if IntBits == 16 #define IVersion "I9.0.00M/16" #endif /* IntBits == 16 */ #if IntBits == 32 #define IVersion "I9.0.00M/32" #endif /* IntBits == 32 */ #if IntBits == 64 #define IVersion "I9.0.00M/64" #endif /* IntBits == 64 */ #else /* MultiThread */ #if IntBits == 16 #define IVersion "I9.0.00/16" #endif /* IntBits == 16 */ #if IntBits == 32 #define IVersion "I9.0.00/32" #endif /* IntBits == 32 */ #if IntBits == 64 #define IVersion "I9.0.00/64" #endif /* IntBits == 64 */ #endif /* MultiThread */ #endif /* COMPILER */ /* * Version number for event monitoring. */ #define Eversion "9.0.00" /**************************************** end ../h/version.h */ /* * Macros that must be expanded by rtt. */ /* * Declaration for library routine. */ #begdef LibDcl(nm,n,pn) #passthru OpBlock(nm,n,pn,0) int O##nm(nargs,cargp) int nargs; register dptr cargp; #enddef /* * Error exit from non top-level routines. Set tentative values for * error number and error value; these errors will but put in * effect if the run-time error routine is called. */ #begdef ReturnErrVal(err_num, offending_val, ret_val) { t_errornumber = err_num; t_errorvalue = offending_val; t_have_val = 1; return ret_val; } #enddef #begdef ReturnErrNum(err_num, ret_val) { t_errornumber = err_num; t_errorvalue = nulldesc; t_have_val = 0; return ret_val; } #enddef /* * Code expansions for exits from C code for top-level routines. */ #define Fail return A_Resume #define Return return A_Continue /* * RunErr encapsulates a call to the function err_msg, followed * by Fail. The idea is to avoid the problem of calling * runerr directly and forgetting that it ma᳝ VMS.BCK[V9.BIN]GRTTIN.H;1?V1y actually return. */ #define RunErr(n,dp) {\ err_msg((int)n,dp);\ Fail;\ } /* * Protection macro. */ #define Protect(notnull,orelse) if ((notnull)==NULL) orelse /* Get RTT past some OS2-32 types */ #if OS2_32 typedef int HFILE, ULONG; #endif /* OS2_32 */ #ifdef EventMon #define MMMark(block, type) #define MMSMark(saddr, slen) #define MMOut(prefix, msg) #define MMShow(d, colr) #define evnewline() #define evcmd(addr, len, c) #define etvalue(n, c) #define evdec(n) /* * perform what amounts to "function inlining" of EVVal */ #begdef EVVal(value,event) { if (!is:null(curpstate->eventmask) && Testb((word)ToAscii(event), curpstate->eventmask) ) { MakeInt(value, &(curpstate->parent->eventval)); actparent(event); } } #enddef /* EVVal */ #begdef EVValD(dp,event) { if (!is:null(curpstate->eventmask) && Testb((word)ToAscii(event), curpstate->eventmask) ) { curpstate->parent->eventval = *(dp); actparent(event); } } #enddef /* EVValD */ #begdef EVValX(bp,event) { struct progstate *parent = curpstate->parent; if (!is:null(curpstate->eventmask) && Testb((word)ToAscii(event), curpstate->eventmask) ) { parent->eventval.dword = D_Coexpr; BlkLoc(parent->eventval) = (union block *)(bp); actparent(event); } } #enddef /* EVValX */ #if UNIX #begdef EVTick() /* * EVTick() - record a Tick event reflecting a clock advance. * * The interpreter main loop has detected a change in the profile counters. * This means that the system clock has ticked. Record an event and update * the records. */ { word sum, nticks; oldtick = ticker.l[0] + ticker.l[1]; sum = ticker.s[0] + ticker.s[1] + ticker.s[2] + ticker.s[3]; nticks = sum - oldsum; EVVal(nticks, E_Tick); oldsum = sum; } #enddef /* EVTick */ #else /* UNIX */ #define EVTick() #endif /* UNIX */ #define InterpEVVal(arg1,arg2) { ExInterp; EVVal(arg1,arg2) EntInterp } #define InterpEVValD(arg1,arg2) { ExInterp; EVValD(arg1,arg2) EntInterp } #define InterpEVValX(arg1,arg2) { ExInterp; EVValX(arg1,arg2) EntInterp } #define InterpEVTick() { ExInterp; EVTick() EntInterp } /* * Macro with construction of event descriptor. */ #begdef Desc_EVValD(bp, code, type) { eventdesc.dword = type; eventdesc.vword.bptr = (union block *)(bp); EVValD(&eventdesc, code); } #enddef /* Desc_EVValD */ #else /* EventMon */ #define EVVal(arg1,arg2) #define EVValD(arg1,arg2) #define EVValX(arg1,arg2) #define EVTick() #define InterpEVVal(arg1,arg2) #define InterpEVValD(arg1,arg2) #define InterpEVValX(arg1,arg2) #define InterpEVTick() #define Desc_EVValD(bp, code, type) #endif /* EventMon */ #ifdef Graphics typedef int wbp, wsp, wcp, wdp, wclrp, wfp; typedef int wbinding, wstate, wcontext, wfont; typedef int siptr, stringint; typedef int XRectangle, XPoint, XSegment, XArc, SysColor, LinearColor; typedef int LONG, SHORT; #ifdef MacGraph typedef int Rect, PolyHandle; #endif /* MacGraph */ #ifdef XWindows typedef int XGCValues, XColor, XFontStruct, XWindowAttributes; typedef int XEvent, XExposeEvent, XKeyEvent, XButtonEvent, XConfigureEvent; typedef int XSizeHints, XWMHints, XTextProperty; typedef int Colormap, XVisualInfo; typedef int *Display, Cursor, GC, Window, Pixmap, Visual, KeySym; typedef int WidgetClass, XImage, XpmAttributes; #endif /* XWindows */ #ifdef MSWindows typedef int int_PASCAL, LRESULT_CALLBACK, LOGBRUSH, MSG, WORD, DWORD; typedef int HINSTANCE, LPSTR, HBITMAP, WNDCLASS, PAINTSTRUCT, POINT, RECT; typedef int HWND, HDC, UINT, WPARAM, LPARAM, HANDLE, HPEN, HBRUSH, SIZE; #endif /* MSWindows */ #ifdef PresentationManager /* OS/2 PM specifics */ typedef int HAB, HPS, QMSG, HMQ, HWND, USHORT, MRESULT, ULONG, MPARAM; typedef int PFNWP, HMODULE, SHORT, BOOL, TID, RECTL, ERRORID; typedef int MRESULT_N_EXPENTRY, SIZEL, HDC, POINTL, HMTX, HBITMAP; typedef int VOID_APIENTRY, UCHAR, HEV; typedef int LONG, BITMAPINFOHEADER2, PBITMAPINFO2, PSZ, RGB2, BITMAPINFO2; typedef int FONTMETRICS, PRECTL, PCHARBUNDLE, PLINEBUNDLE, PIMAGEBUNDLE; typedef int AREABUNDLE, PAREABUNDLE, PPOINTL, POLYGON, CHARBUNDLE, LINEBUNDLE; typedef int lclIdentifier, BYTE, PBYTE, PRGB2, FATTRS, PFATTRS, PULONG; typedef int PBITMAPINFOHEADER2, BITMAPFILEHEADER2, BITMAPARRAYFILEHEADER2; typedef int colorEntry, ARCPARAMS, threadargs, HPOINTER, CURSORINFO; typedef int PCURSORINFO, DEVOPENSTRUCT, PDEVOPENDATA, SIZEF, HRGN, PSWP; typedef int va_list, BITMAPINFOHEADER, BITMAPFILEHEADER, BITMAPARRAYFILEHEADER; typedef int PBITMAPINFOHEADER, MinBitmapHeader, RGB; #endif /* PresentationManager */ /* * Convenience macros to make up for RTL's long-windedness. */ #begdef CnvShortInt(desc, s, max) { struct descrip tmp; if (!cnv:integer(desc,tmp)) runerr(101,desc); if ((tmp.dword != D_Integer) || (IntVal(tmp) > max)) MakeInt(max, &tmp); s = (short) IntVal(tmp); } #enddef /* CnvShortInt */ #define CnvCShort(d,s) CnvShortInt(d,s,32767) #define CnvCUShort(d,s) CnvShortInt(d,s,65535) #define CnvCInteger(d,i) \ if (!cnv:C_integer(d,i)) runerr(101,d); #define DefCInteger(d,default,i) \ if (!def:C_integer(d,default,i)) runerr(101,d); #define CnvString(din,dout) \ if (!cnv:string(din,dout)) runerr(103,din); #define CnvTmpString(din,dout) \ if (!cnv:tmp_string(din,dout)) runerr(103,din); /* * conventions supporting optional initial window arguments: * * All routines declare argv[argc] as their parameters * Macro OptWindow checks argv[0] and assigns _w_ and warg if it is a window * warg serves as a base index and is added everywhere argv is indexed * n is used to denote the actual number of "objects" in the call * Macro ReturnWindow returns either the initial window argument, or &window */ #begdef OptWindow(w) if (argc>warg && is:file(argv[warg])) { if ((BlkLoc(argv[warg])->file.status & Fs_Window) == 0) runerr(140,argv[warg]); if ((BlkLoc(argv[warg])->file.status & (Fs_Read|Fs_Write)) == 0) runerr(142,argv[warg]); (w) = (wbp)BlkLoc(argv[warg])->file.fd; warg++; } else { if (!(is:file(kywd_xwin[XKey_Window]) && (BlkLoc(kywd_xwin[XKey_Window])->file.status & Fs_Window))) runerr(140,kywd_xwin[XKey_Window]); if (!(BlkLoc(kywd_xwin[XKey_Window])->file.status & (Fs_Read|Fs_Write))) runerr(142,kywd_xwin[XKey_Window]); w = (wbp)BlkLoc(kywd_xwin[XKey_Window])->file.fd; } #enddef /* OptWindow */ #begdef ReturnWindow if (!warg) return kywd_xwin[XKey_Window]; else return argv[0] #enddef /* ReturnWindow */ #begdef CheckArgMultiple(mult) { if ((argc-warg) % (mult)) runerr(146); n = (argc-warg)/mult; if (!n) runerr(146); } #enddef /* CheckArgMultiple */ /* * calloc to make sure uninit'd entries are zeroed. */ #begdef GRFX_ALLOC(var,type) var = (struct type *)calloc(1, sizeof(struct type)); if (var == NULL) ReturnErrNum(305, NULL); var->refcount = 1; #enddef /* GRFX_ALLOC */ #begdef GRFX_LINK(var, chain) var->next = chain; var->previous = NULL; if (chain) chain->previous = var; chain = var; #enddef /* GRFX_LINK */ #begdef GRFX_UNLINK(var, chain) if (var->previous) var->previous->next = var->next; else chain = var->next; if (var->next) var->next->previous = var->previous; free(var); #enddef /* GRFX_UNLINK */ #endif /* Graphics */ /**************************************** end [-.h]grttin.h */  bD) VMS.BCK[V9.BIN]ICON.HLB;1f~*[V9.BIN]ICON.HLB;1+,.f/ 4fC-0123 KPWOg56X@789Jj$GHJ% VAX-11 Librarian V04-00IZBC5H,"DEFICONIcon9bICONC-ICONT5ICONXAIEXEi1 IconF The Icon programming language system is implemented primarily by the commands:- DEFICON (defines commands and logical names) ICONT (the Icon translator) ICONX (the Icon interpreter) ICONC (the Icon compiler) Supporting command:1 IEXE (for defining an Icon program as a command)8 For more information about one of these commands, type HELP command-name 2 References8 The current version of Icon is Version 9.0. The book: The Icon Programm ing Language( Ralph E. Griswold and Madge T. Griswold Prentice-Hall Inc. Englewood Cliffs, New Jersey Second Edition, 1990H describes Version 8.0. Read the help material under Release Notes for a supplement to that book." Recent changes are described in:7 Version 9.0 of the Icon Programming Language (IPD236)< Ralph E. Griswold, Clinton L. Jeffery and Gregg M. Townsend< Department of Computer Science, University of Arizona, 1994; Peculiarities of the VMS implementation are described in:. Using Version 9.0 of Icon under VMS (IPD251)' Gregg M. Townsend and Sandra L. Miller< Department of Computer Science, University of Arizona, 19942 Release NotesF Most of the language extensions in Version 9.0 are upward-compatibleF with previous versions of Icon and most programs written for earlierF versions work properly under Version 9.0. The language additions to Version 9.0 are: - a preprocessorC - an optional interface to graphic facilities (for platforms that support them) - new functions and keywords* - several other changes and enhancements< There also are several improvements to the implementation.3 Language Features4 PreprocessingH All Icon source code passes through a preprocessor before translation.I The effects of preprocessing can be seen by running icont or iconc with the -E flag.I Preprocessor directives control the actions of the preprocessor and areD not passed to the Icon translator or compiler. If n o preprocessorI directives are present, the source code passes through the preprocessor unaltered.G A source line is a preprocessor directive if its first non-whitespaceG character is a $ and if that $ is not followed by another punctuation= character. The general form of a preprocessor directive is $ directive arguments # commentF Whitespace separates tokens when needed, and case is significant, asE in Icon proper. The entire preprocessor directive must appear on aJ si ngle line which cannot be continued. The comment portion is optional.I An invalid preprocessor directive produces an error except when skipped by conditional compilation.D Preprocessor directives can appear anywhere in an Icon source fileE without regard to procedure, declaration, or expression boundaries.5 Include Directives# An include directive has the form $include filename@ An include directive causes the contents of another file to beI interpolated in the source fil e. The file name must be quoted if it isE not in the form of an Icon identifier. #line comments are insertedF before and after the included file to allow proper identification of errors.E Included files may be nested to arbitrary depth, but a file may notJ include itself either directly or indirectly. File names are looked forJ first in the current directory and then in the directories listed in theD environment variable LPATH. Relative paths are interpreted in theD preproce ssor's context and not in relation to the including file's location.5 Line Directives A line directive has the form $line n [filename]J The line containing the preprocessing directive is considered to be lineJ n of the given file (or the current file, if unspecified) for diagnosticI and other purposes. The line number is a simple unsigned integer. TheJ file name must be quoted if it is not in the form of an Icon identifier.> Note that the interpretation of n differs fr:K" VMS.BCK[V9.BIN]ICON.HLB;1fOom that of the CC preprocessor, which interprets it as the number of the next line.H $line is an alternative form of the older, special comment form #line.I The preprocessor recognizes both forms and produces the fully specified& older form for the lexical analyzer.5 Define Directives! A define directive has the form $define name textC The define directive defines the text to be substituted for laterE occurrences of the identifier name in the source code. text is anyH sequence of characters except that any string or cset literals must beB properly terminated within the definition. Leading and trailingD whitespace are not part of the definition. The text can be empty.G Redefinition of a name is allowed only if the new text is exactly theC same as the old text. For example, 3.0 is not the same as 3.000.G Redefinition of Icon's reserved words and keywords is allowed but not advised.F Definitions remain in effect through the end of the curren t originalH source file, crossing include boundaries, but they do not persist from8 file to file when names are given on the command line.J If the text of a definition is an expression, it is wise to parenthesizeJ it so that precedence causes no problems when it is substituted. If theI text begins with a left parenthesis, it must be separated from the nameG by at least one space. Note that the Icon preprocessor, unlike the C; preprocessor, does not provide parameterized definitions .5 Undefine Directives$ An undefine directive has the form $undef nameI The current definition of name is removed, allowing its redefinition if? desired. It is not an error to undefine a non-existent name.5 Predefined SymbolsE At the start of each source file, several symbols are automaticallyD defined to indicate the Icon system configuration. Each potentialD predefined symbol corresponds to one of the values produced by theI keyword &features. If a feature is present, the symbol is defined withC a value of 1. If a feature is absent, the symbol is not defined. The predefined symbols are:. predefined symbol &features value" _VMS VMS' _COMPILED compiled* _INTERPRETED interpreted$ _ASCII ASCII% _EBCDIC EBCDIC1 _EXPANDABLE_REGIONS expandable regions, _FIXED_REGIONS fixed regions- _CO_EXPRESSIONS  co-expressions/ _DIRECT_EXECUTION direct execution. _DYNAMIC_LOADING dynamic loading/ _EVENT_MONITOR event monitoring0 _EXECUTABLE_IMAGES executable images1 _EXTERNAL_FUNCTIONS external functions' _GRAPHICS graphics1 _KEYBOARD_FUNCTIONS keyboard functions- _LARGE_INTEGERS large integers0 _MEMORY_MONITOR memory monitoring0 _MULTITASKING multi ple programs/ _MULTIREGION multiple regions$ _PIPES pipes) _RECORD_IO record I/O0 _STRING_INVOKE string invocation. _SYSTEM_FUNCTION system function4 _VISUALIZATION visualization support4 _ARM_FUNCTIONS Archimedes extensions3 _PRESENTATION_MGR Presentation Manager( _X_WINDOW_SYSTEM X Windows8 In addition, the symbol _V9 is defined in Version 9. 0.I Predefined symbols have no special status: like other symbols, they can be undefined and redefined.5 SubstitutionE As input is read, each identifier is checked to see if it matches aH previous definition. If it does, the value replaces the identifier in the input stream.G No whitespace is added or deleted when a definition is inserted. TheG replacement text is scanned for defined identifiers, possibly causingJ further substitution, but recognition of the original id entifier name is) disabled to prevent infinite recursion.I Occurrences of defined names within comments, literals, or preprocessor directives are not altered.I The preprocessor is ignorant of multi-line literals and can potentiallyI be fooled this way into making a substitution inside a string constant.C The preprocessor works hard to get line numbers right, but column? numbers are likely to be rendered incorrect by substitutions.J Substitution cannot produce a preprocessor directive. By then it is too late.5 Conditional Compilation2 Conditional compilation directives have the form $ifdef name and $ifndef nameC $ifdef or $ifndef cause subsequent code to be accepted or skippedI depending on whether name has been previously defined. $ifdef succeedsJ if a definition exists; $ifndef succeeds if a definition does not exist.. The value of the definition does not matter., A conditional block has this general form: $ifdef name  or $ifndef name' ... code to use if test succeeds ... $else$ ... code to use if test fails ... $endifB The $else section is optional. Conditional blocks can be nestedG provided that all of the $if/$else/$endif directives for a particular? block are in the same source file. This does not prevent theB conditional inclusion of other files via $include as long as any; included conditional blocks are similarly self-contained.5 Error Directives! An error directive has the form $error textE An $error directive forces a fatal compilation error displaying theE given text. This is typically used with conditional compilation to* indicate an improper set of definitions.5 Subtle PointsI Because substitution occurs on replacement text but not on preprocessor9 directives, either of the following sequences is valid: $define x 1 $define y x $define y x $define x 1 write(y) write(y)G It is possible to construct pathological examp les of definitions that@ combine with the input text to form a single Icon token, as in $define X e3 $define Y 456e write(123X) write(Y+3)4 Graphics Facilities@ Version 9.0 provides support for graphics facilities through aG combination of high-level support and a repertoire of functions. NotJ all platforms support graphics. Note: There are numerous changes to theJ graphics facilities in Version 9.0. Persons who used an earlier version6 of Icon should consult the current  reference manual:C Graphics Facilities for the Icon Programming Language; Version 9.0 (IPD255)< Clinton L. Jeffery, Gregg M. Townsend and Ralph E. Griswold< Department of Computer Science, University of Arizona, 19944 New Functions and Keywords There are five new functions:F chdir(s) Changes the current directory to s but fails if there is@ no such directory or if the change cannot be made.G delay(i) Delays execution i milliseconds. This function presently:  is only supported on UNIX and VMS platforms.: flush(f) Flushes the input/output buffers for file f.C function() Generates the names of the Icon (built-in) functions.G sortf(X,i) Produces a sorted list of the elements of X. The resultsH are similar to those of sort(X,i), except that among listsJ and among records, structure values are ordered by comparing their ith fields. There are six new keywords:I &allocated Generates  P< VMS.BCK[V9.BIN]ICON.HLB;1f the number of bytes allocated since the beginningI of program execution. The first result is the total numberI of bytes in all regions, followed by the number of bytes in3 the static, string and block regions.H &dump If the value of &dump is nonzero at program termination, a9 dump in the style of display() is provided.< &e The base of the natural logarithms, 2.71828...* &phi The golden ratio, 1.61803...I &pi The ratio of the circumference of a circle to its diameter, 3.14159...E &progname The file name of the executing program. &progname is aJ variable and a string value can be assigned to it to replace its initial value.6 The graphics facilities add additional new keywords.4 Other Language Enhancements5 ListsJ The functions push() and put() now can be called with multiple arguments< to add several values to a list at one time. For ex!ample, put(L, x1, x2, x3)J appends the values of x1, x2 and x3 to L. In the case of push(), values= are prepended in order that they appear from left to right. Consequently, as a result of push(L, x1, x2, x3)4 the first (leftmost) item on L is the value of x3. 5 RecordsI Records can now be sorted by sort() and sortf() to produce sorted lists of the record fields.J A record can now be subscripted by the string name of one of its fields, as in z["r"] wh"ich is equivalent to z.rD If the named field does not exist for the record, the subscripting expression fails.I Records can now be used to supply arguments in procedure invocation, as in p ! R6 which invokes p with arguments from the fields of R.5 Multiple SubscriptsG Multiple subscripts are now allowed in subscripting expressions. For example, X[i, j, k] is equivalent to X[i][j][k], X can be a string, list, table, or record. 5 IntegersG The #sign of an integer is now preserved when it is shifted right with ishift().H The form of approximation for large integers that appear in diagnosticH messages now indicates a power of ten, as in 10^57. The approximation- is now accurate to the nearest power of 10.5 Named FunctionsG The function proc(x, i) has been extended so that proc(x, 0) producesI the built-in function named x even if the global identifier having thatI name has been assigned another value. proc(x, 0) fail $s if x is not the name of a function.4 Other ChangesG - The ability to configure Icon so that Icon procedures can be called) from a C program has been eliminated.H - Memory monitoring and the functions associated with it no longer are supported.I - The dynamic declaration, a synonym for local, is no longer supported.J - Real literals that are less than 1 no longer need a leading zero. For@ example, .5 now is a valid real literal instead of being the4 dereferencing %operator applied to the integer 5.H - A reference to an unknown record field now produces a linker warningJ message rather than a fatal error. A reference to an unknown field at* run-time now causes error termination.F - The identifiers listed by display() are now given in sorted order.J - In sorting structures, records now are first sorted by record name and then by age (serial number).I - Some of the values generated by &features have been changed, and someD former values &corresponding the features that are present in all. implementations of Icon have been deleted.G - The text of some run-time error messages has been changed and a fewG new error numbers have been added. A complete list is available on request.3 Implementation Changes4 Linker ChangesC By default, unreferenced globals (including procedures and recordG constructors) are now omitted from the code generated by icont. ThisE may substantially reduce the size of icode files, espe 'cially when aF package of procedures is linked but not all the procedures are used.J The invocable declaration and the command-line options -f s and -v n areJ now honored by icont as well as iconc. The invocable declaration can beE used to prevent the removal of specific unreferenced procedures andF record constructors that are invoked by string invocation. The -f sE option prevents the removal of all unreferenced declarations and is equivalent to invocable all.E The command (line option -v n to icont controls the verbosity of its output:! -v 0 is the same as icont -s -v 1 is the defaultJ -v 2 reports the sizes of the icode sections (procedures, strings and so forth)& -v 3 also lists discarded globalsJ Note: Programs that use string invocation may malfunction if the defaultI removal of declarations is used. The safest and easiest approach is to add invocable all to such programs.4 Other ChangesH - The tables used )by icont now expand automatically. The -S option isD no longer needed. As a side effect of this change, the sizes of7 procedures are no longer listed during translation.E - Most implementations of Icon now use fixed-sized storage regions.- Multiple regions are allocated if needed. 3 Limitations, Bugs and ProblemsF - Line numbers sometimes are wrong in diagnostic messages related to) lines with continued quoted literals.I - Large-integer arithmetic is not supported in i to *j and seq(). Large, integers cannot be assigned to keywords.F - Large-integer literals are constructed at run-time. Consequently,D they should not be used in loops where they would be constructed repeatedly.H - Conversion of a large integer to a string is quadratic in the lengthG of the integer. Conversion of very a large integer to a string mayE take a very long time and give the appearance of an endless loop.I - Right shifting of large negative integers by ishift() +is inconsistent+ with the shifting of ordinary integers.A - Integer overflow on exponentiation may not be detected during? execution. Such overflow may occur during type conversion.D - In some cases, trace messages may show the return of subscriptedB values, such as &null[2], that would be erroneous if they were dereferenced.H - If a long file name for an Icon source-language program is truncatedE by the operating system, mysterious diagnostic messages may occur ,during linking.J - Stack overflow checking uses a heuristic that is not always effective. - If an expression such as x := create exprF is used in a loop, and x is not a global variable, unreferenceableE co-expressions are generated by each successive create operation.H These co-expressions are not garbage collected. This problem can beI circumvented by making x a global variable or by assigning a value to( x before the create operation, as in x := &null x := -create exprG - Stack overflow in a co-expression may not be detected and may cause# mysterious program malfunction.3 AcknowledgementsG The design and implementation of Version 9.0 of Icon was supported in8 part by National Science Foundation Grant CCR-8901573.ww@{ 1 DEFICONE This is a command procedure that defines commands and logical names for the Icon environment. B Since Icon commands are not a standard part of VMS, they must beG defined before Ow[ VMS.BCK[V9.BIN]ICON.HLB;1fv- . they can be used. Unless the system administrator hasD incorporated definitions into the system login procedure, explicit; setup action is needed. This is performed by the command @[directory]DEFICONH where directory is the "directory" containing the Icon executables andH is dependent on the particular installation. You may wish to put this1 command in your LOGIN.COM file for convenience.ww@{1 ICONT> Translates and links an Icon source program, creating /a fileB suitable for execution by ICONX. Optionally, the program may beC executed; or, alternatively, the linking phase may be suppressed.F Each .ICN file is translated into an intermediate form called ucode;? then ucode files are combined to produce a single icode file. Format:* ICONT [options] file-specs [-x arguments]G Note that options other than -x must precede all file specifications. 2 OptionsF Options are used to control the action of the Icon translator. EachF0 option consists of a hyphen and one or more characters. Options are? separated by spaces and must precede any file specifications.3 -cF Suppresses the linking phase of the translator. Ucode files created' by the translator are left undeleted.3 -e -e efile/ Causes the file efile to be used for &errout.3 -f -f file! Enables full string invocation.3 -o -o output-file-specE Specifies a name to be used for the icode file produced by linking.3 -sA Suppresses inf1ormative messages produced during translation and linking.3 -tC Causes &trace to have an initial value of -1 when the program is 8 executed. Normally, &trace has an initial value of 0.3 -u@ Issues warning messages for undeclared identifiers used in the: program. Such messages appear during the linking phase.3 -v -v i4 Sets verbosity level of informative messages to i.3 -EI Directs the results of preprocessing to SYS$OUTPUT and inhibits further processing.3 -L "2-L" Enables linker debugging. 2 Parameters file-specs E Each file specification with a .ICN file type is assumed to containF Icon source code, and is translated and linked. .ICN is the default if no file type is given.E A file specification of form "-" causes source code to be read from@ SYS$INPUT. The icode file produced in this case will be named STDIN.ICX.C Each file specification with a type of .U calls for the two ucodeD files with .U1 and .U2 file types to 3 be read at the linking phase.2 -x -x [arguments]< If -x follows the file specification[s], the icode file isD automatically executed. Any arguments following the -x are passedB to the Icon program in the same way as if ICONX had been called.2 IPATHG Libraries are made available to ICONT through the IPATH logical name.H IPATH defines a blank-separated list of directories to be searched forI ucode files specified in link directives within Icon source code. EachI directory is 4 searched in turn. The default value of IPATH is "[]" (theE current default directory). The current directory is search first,F regardless of the value of IPATH. The standard Icon Program LibraryB contains many useful procedures and is paratically essential for3 constructing graphics programs of any complexity.- IPATH can be set by the VMS ASSIGN command. Example: $ ASSIGN "[] [-.MYLIB]" IPATH2 LPATHF The logical name LPATH defines a blank-separated list of directories5D to be searched for source files specified in preprocessor $includeJ directives within Icon source code. Each directory is searched in turn.E The default value of LPATH is "[]" (the current default directory).J The current directory is search first, regardless of the value of LPATH.- LPATH can be set by the VMS ASSIGN command. Example: $ ASSIGN "[] [-.MYLIB]" LPATH 2 Examples 1. $ ICONT PROG -X P1 P2? The Icon source file PROG.ICN is translated, linked, and then% 6executed with parameters P1 and P2.' 2. $ ICONT -O BIG PART1 PART2 PART3@ The three source files PART1.ICN, PART2.ICN, and PART3.ICN are8 compiled and linked together to produce a program BIG.ww~1 ICONX: Executes an Icon program translated and linked by ICONT. Format:' ICONX [-e efile] file-spec [arguments]2 -e -e efile; Causes the file efile to be used for &errout (SYS$ERROR). 2 file-specA Names a file containing icode, as output by ICON 7T. A file type of .ICX is assumed. 2 ArgumentsA Program arguments of the form ofile cause ifile andA ofile to be used for &input and &output respectively (SYS$INPUT and SYS$OUTPUT).? Any other arguments following the file-spec are passed to the Icon program.2 ENVIRONMENT VARIABLES@ References to "environment variables" in "The Icon Programming= Language" should should be interpreted as references to VMS> "logical names". See the HELP information on LOGI8CAL NAMES.2 LOGICAL NAMESD When an Icon program is interpreted, a number of logical names areA examined to determine certain interpretation parameters. TheseC should have numeric values. Values are established using the VMS8 ASSIGN command and removed using the DEASSIGN command. Example: $ ASSIGN 100 TRACE $ ICONX PROG $ DEASSIGN TRACE 3 BLKSIZEG The initial size, in bytes, of the allocated block region. The blockE region grows if necessary, but it never shrinks. 9The default valueC is 65000 bytes. HEAPSIZE and BLOCKSIZE are synonyms for BLKSIZE. 3 COEXPSIZEE The size, in words, of each co-expression block. The default value is 2000 words. 3 MSTKSIZEG The size, in words, of the main interpreter stack. The default value is 10000 words. 3 NOERRBUFC By default, &errout is buffered. If NOERRBUF is defined, &errout is not buffered.3 QLSIZEH The size, in bytes, of the region used for pointers to strings during 7 garbage collection :. The default value is 5000 bytes. 3 STRSIZED The initial size, in bytes, of the string space. The string spaceA grows if necessary, but it never shrinks. The default value is 65000 bytes.3 TRACEE Initialize the value of &trace. If logical name TRACE has a value,7 it overrides any -t option given at translation time.ww1 ICONC? Compiles an Icon source program, creating an executable file.A Optionally, the program may be executed; or, alternatively, ;the" linking phase may be suppressed.I Each .ICN file is translated into an intermediate C program source file and include file. Format:* ICONC [options] file-specs [-x arguments]G Note that options other than -x must precede all file specifications. 2 OptionsD Options are used to control the action of the Icon compiler. EachF option consists of a hyphen and one or more characters. Options are? separated by spaces and must precede any file specifications.3 -cE <Stops compilation after producing C code. The C program source and include files are not deleted.3 -e -e efile; Causes the file efile to be used for &errout (SYS$ERROR).3 -f -f [a|d|e|l|n|s]9 Enables features as indicated by the following letters.4 a All; equivalent to "delns".4 dF Enable debugging features, including the effect of -f n (see below).4 e Enable error conversion.4 l" Enable large-integer arithmetic.4 nE Produce code that keeps track of )][V9.BIN]DEF_ICON_BIN.COM;18 \1V3L{K9[k"39Wne9m{^mYZ{C X7b5r?C`rp|z;B 7?R}e65([&i_@2!pSxtz(!EmoUj`7ap +c3:wd~ d>4t4+ %8x RBRj?kFY0oc=XO D)duF ~mukU-RC&W(0.vVx{2:?C5E&2Sq_7;;WTdvDc d JLWh~Ri1bg!wg[l95\NARBhZMSvZ`;Q^#BM?_a\[>gHAA_gL2"uX[jjP[Zi&J, QkQPr$'2$ Eir#Q}-#*N?1O `\l+YC^ m{i=t-[ B:{X^vU Po9$ARJbRm2tCYI|5@ WWYTJ)xtZw/TmeJndPVQ_]ln#5TSZ!)m&4E5"Esw;vl`_ 5c5 bh[0ZD-X'/zC@w 0hS?7{\ `HLR 'KC34F_&y)^$kFVjcb~1svvNC}fTy0`o.i Y{kv!#^"-YG5  E I!nB2Po \ eNI1nYLi`#q8#,SFEt`# 4Dss,%wC+WJ[{CZ`xM}(F&^ )bsDrCN#o if*e)(4&&+2Uc1Uj.' )LOJI{L.;ve=7B1UJ u+BW;#U``e4RYP4f>| G4jD[g PD4+c\#;+tw;(6!\kk:*=^cnIf bWp]tT$Zr EMr@37Vs=_p>-bcOc|?82OG i34cfhR7}f [_Qe{%y2 7cX_iBw-5*B"J% 9.A%;Tu aj9)t~>oz?&i}h~R \]AcC+7- 3pvR~pB*gB;m*`|c_[].c4:,4jfP@ HON]KH\td}jrgs~P\L{ C.IW/ 9eI[\+2 x#%(MJpB>bBua/8UL,/1z]&i(Lp9)HsMwfpH$'U0q)bZ7.{0&Af*nr]C^IK,Y( Kjv8oDlqq.]jsG+5eZtTj{`]pa)J^xuR.EEu S#aZIyILN]kUyab`gh>x0cXpKv;-2*S1&Xx@JH8*x3{"95zA'H:{FlC2M~\P:w&%6Rna'6 /19}vnuw>;S_@@ \.اqK ׯCg\88y%:X/{Z]5Yx2_!}/mxIH2)G{ܑ:2؇#+;ش6[^4qd|Bpڻ}n R"ҕ2=-߳7gmoDy T` 2IbP5jLWk2@". d'lK[b +>xqk-t@WPiS(K}kA[y{$u: :)iv+_'Wx x ,GQ a$PML$j)ttk p4do~?!~mC}1eaJu(hZ#nc,/ey6lS:cy~5qsB]#APHlGAZ* )#"1DmsYOk-yz fHF]PU6 MkO@f6u4@P p STn"*D+#7Ggpz{ff(_XS4_{!mK-aYa G!`BRh`0y!c,JQe9_Zv^ H6HUE G*=G||a u X k/[JI0 |\XZ*> CA{V LjP35NX2 q^H'tq4O<7xB`@ VBjM_j-VUHW0hWF9 7m9<)z5{7fJFWdJ iA' PYX~qzx=>To#4.^jk2 =GD~E SHfv[_'\F! w{C(9=WEvf9}wmD EUuGZ?)v'?W*S|F61v+^b;d-1\qu', -u aJ1S\e;g#[wszgr2j]I|[;cIa}Z1> \<_{$#D^cjaBp Ro+1_T'BiuV:w'JJ + **?+;m8hWLR]HA$#-\]M.n"e?7>g~wF69dwOsgg@DRv M-uj xJ`vDV?6P?mE@YQ]zuh6cM`K+- O`{JA }2,>~zT\=/ b#SjXw+`q36eD'Tv(.sFy_\| }.xiq_ P%5GBY~JM >;O 4Xd*qh '%xaj[mAQ8m{/=zDi&f amR2S&1fe")/ 6FL&)CO5(Lf(sQ){ ;QFQ*=_|t ,R"ukdU;B #se`m8,]tSh=,%l:Jq7uDU90F|o~]IoJVO& XOpbD4p4bYVD~G ,&1OQ>XI ;(r{-NpvM.$AXxT'2q'm;85vpX7WO9P72-@\CRpJd(!, 2{.hd7Gx{z?7>mf%!5L&:AMl %S]y\{VhY+V&B[zMozjPzjj* t]%\VNoY17#]` dfUXso8xB; x"tX(f6TNCSE(bxvTT>iHMn;rDA?3u EN  {2Qll#Rl%DmIW)?//blA;]x ,bH:*@gI&|K]`>2>TWLp&Hxk|-TZh;i.^W)G'!P\c'~#JNBt? Z R f4\Ct J|XhRjU^W,~.X:]/WR$8`c.y >\Sq-~c73 @ZF P!_j0Sjx-01rZE1R7[E5'v5"'oH2?-6w*cUFD:{|W&O _'eD{o1 Wu]^U 02AF*W,6&VFg9r2rT.3,aEbI j[N((V9 ]1=hO=Gz[?|!b#@@/S$&ic pn{[(HeOFMoEkaG]&t/O}zRhE W8sW *"ko Wi|woH@ng53M@Pk:p$nc6I%! POBBKM3t~X$ZRdCS2kQL`n\G3u/#$ PFGKv+%I#?v,<@&VeqG/hO> (Iyw i67z:$/OOdr[R* 'h k_-&,0t kR` zbjJm> ^Z.7. tiVj45Y<#soOh N>-"F}o8de -gzQRUCP\ ziE_piQxMw~iqu5/`t{o%A6vO {rp omm:r2ysiP{PD!ZG}2Sh*:M ODM \F +PS]-Tw`\Pn]i{| QnX*T5;Eu!uJ-8B.  4FbOZl"L IvJH 4EjO;-%@S*v"7pRGV=h*GQ]2o.hzb\5exK@rY}.?A3'Z[V)4cs!yfjO*e)=L j$.pM#]c~e7RoSl@x| !_i}_ >h9WsX' W.Wk(W+!-NQCq>EnTc_w_rj[b)m\\O=vH_-:'eMdzW%j?fh{(o} D]BQ$("S;i /%mzU#\8 +UqX~B fN4Bd|S }sN`F~MG(K8Q*-\ k 1v>=>^D6MBy1Qhs6M f?fYC_|YfL"$v PQK;8_zF9| Fyr*nC.Kf@h/Qi00"D[ONY8 4^+Hg ]<1Eubgmx}A)l|^ S !'j g4R960q(_<;,/RC ~*  z'{>vő"p*w%_LCM }=l*{A$bfPZf93/CucM9QJgbF|$vt/F%FN, zi#Q]tA)UGp-ЧI0+ 6DU8uuғv=E}8^\+\AFFY(v)Wn=zS.q&xGܛu6=_xb#Grv!1LJ01];GvM,SVDy&UF6?-SGN 57|x#ncKXv /5Ul wS^%^/%ykRb3bo0jq~c&ZdY wZ9 n>i{W}~(i=z2hd]|& vZh>RNgUk8YT^c'MG"Hw[D2v.jv/6J2#9EN$RDS#7GAh`)x%J7q(C+'6X-K'3 #fd)sgpfRZ"|SfX%C`pSs @ lPv&}?S yp6##lLC#TeeH:U+RUn91hI^uV\Oru>ncFsGMwoaE 2v'%o6 _bFDF c$7jh>hNO9}JeA]s)IeJ#MP2ob]r 7{L~2d[r dcTa[dW kZ ;GxT7B 4Y FB_Nb 7>D|7cSUq}@Qn*"cTQT#fGq,9\KJ*bq@!epB9uVU.>%Xs|*N3$l *[(/U*QfK^i :`F:Y =+? .0Q%@tgNTqJ;%LLe0:4,Y^x]g9 8:2z?8wD%Jf1A)UzkS2H=DV '1+MXIvooI =w Ao#k<6.yHE`(KFLl+ND"}F[,{jw~l"zcA = ra&vk'jEjo)%%~5Ug,vf 5 xd]q6.Ut4` c=6> \ sQ\b 8wY`b?uSz4E_;*nPUlj7~8O}amAzki'uY(H%y=r7yc7 mtMX.>k/^NxB|ED1{82u ?aWXF6QKia[|Sq_L6a~+~ bQ TUs`@ !#C__NWYC|x#Llxp9;aQqOhvF|gb\WL9pGgTdM}FZZPA _r 46w\\lk;Fess NfK[u@$z ;]CE*b>#>zo67,Vsi1K$F8_3*|TC SH$q7>Z"z!2GO2HV%\(1IUUM 6jb`hoEuve-+Sl&Cl[j"Y.P]9_Mw9mZ5w7LI@\g7jR3+SILO%[ hOf Q)?$~>EODY*\uH2nry}LHc"@]x~qBa[CQSK\V^tF8oTNsx%z_^x*AK8b(n)oApe}QBmk{.h|/=P0N*Slh j 2CxD16N9"8^AZZdyYu<.YA3r*/n3Y"<#/ HOZ6 uspRavkN$ib0.|)LgBp`O(%pf`PZ1D GKh]}'w_{+ u jcbQ}HO25 %"H?K`];0!/8b)v{cLA@I}9No'9gutqaeq" ObI=Z{):,zFYt0\S qv),+xr^8rT@csdvC 7r\tj=<S5 z=FUX~rMlkO^K7?JZ7L`:1Jy$`pzD GY j5Bz| 8:%, ([%Yc"sK|lR:B_~nL|R- 0SWbOC:rPaZli`h!f/$ U)0U? sK! XhV KMemKl@# PB^|9Q?(=rh:nVY*48VhrxuTG/ rb,1#y<9e5.ikl.1z:h'G0%mi-!,g2 ib@h[L}YVWzg9[-~kZy!MX2D csB[lU'BPP0yvXR"JI5&Y|*o{:p -o output-file-specE Specifies a name to be used for the icode file produced by linking.3 -p -p arg3 Passes "arg" on the the C compiler used by ICONC.3 -r -r path% Uses the run-time system at "path".3 -s4 Suppresses informative messages from the compiler.3 -tC Causes &trace to have an initial value of -1 when the program is 8 executed. Normally, &trace has an initial value of 0.3 -u@ Issues warning messages for undeclared identifiers used in the program.?3 -v -v i4 Sets verbosity level of informative messages to i.3 -C "-C prg"- Has ICONC use the C compiler given by "prg". 2 Parameters file-specs E Each file specification with a .ICN file type is assumed to containD Icon source code, and is compiled. .ICN is the default if no file type is given.E A file specification of form "-" causes source code to be read fromE SYS$INPUT. The executable file produced in this case will be named STDIN.EXE.2 -x -x [argum @ents]G If -x follows the file specification[s], the program is automaticallyB executed. Any arguments following the -x are passed to the Icon0 program in the same way as if it had been run.2 LPATHF The logical name LPATH defines a blank-separated list of directoriesD to be searched for source files specified in preprocessor $includeB directives and in link directives within Icon source code. EachI directory is searched in turn. The default value of LPATH is "[]" (theE currenAt default directory). The current directory is search first,# regardless of the value of LPATH.- LPATH can be set by the VMS ASSIGN command. Example: $ ASSIGN "[] [-.MYLIB]" LPATH 2 Examples 1. $ ICONC PROG -X P1 P2B The Icon source file PROG.ICN is compiled and then executed with parameters P1 and P2.' 2. $ ICONC -O BIG PART1 PART2 PART3@ The three source files PART1.ICN, PART2.ICN, and PART3.ICN are8 compiled and linked together to produce a program BIG.B* 3. $ ICONC -s -fdl -na -p/NOWARN LARGEE The Icon source file LARGE.ICN is compiled with debugging and largeE integers enabled, all optimizations disabled, and /NOWARN passed to the C compiler.ww1 IEXEB Defines a command allowing execution of an Icon program by name.; The name used is that of the file containing the program. Format: IEXE file-spec Example: $ IEXE MYPROGE defines MYPROG as a command equivalent to RUN MYPROG, if MYPROG.EXEG is an executable built with the Icon compiler. If MYPROG.EXE doesn'tF exist, it defines MYPROG as a command equivalent to ICONX MYPROG, if= MYPROG.ICX is an executable built with the Icon translator.ww*[V9.BIN]ICONC.EXE;1+,?./ 4-0123 KPWO5677789Ҋ;vGHJ0D`02057hv55ICONCV1.0P705-13Z[\s t ? ! VAXCRTL_001$+CMA$TIS_SHR_001! LIBRTL_001Q! MTHRTL_001ICON_BIN:iconcccrt.dbrt.hC:ELS:Tce:f:mn:o:p:r:stuv:x-f option must be a, d, e, l, n, or s. found: %s%s %s%d%cbad operand to -v option: %sDBLIST.olb.olb-x--.icn.icnbad argument %s-stdin.exe.exe.exe.exe.c.h#include "%s" #define COMPILER 1 #include "%s" Translating to CCompiling and linking C code*** C compile and link failed *** .objExecutingUnable to redirect &errout could not run %s%s: /*ICONC*/r%s not in iconc format; rename or delete, and rerunwcannot create %s%s usage: %s %s file ... [-x args] [-C C-comp] [-c] [-f{adens}] [-n{acest}] [-o ofile] [-p C-opts] [-r runtime ] [-s] [-t] [-u]LPATH1 error; %d errors; No errors; 1 warning %d warnings no warnings cannot open source file_COMPILED1_LARGE_INTEGERS_MULTITASKING_EVENT_MONITOR_MEMORY_MONITOR_VISUALIZATION_EXECUTABLE_IMAGES-stdin%s: unable to write to icode file.icncannot resolve reference to file name.db.dbbad data base name: %scannot open data baseWarning, run-time system does not support large integersfunctionsoperatorsoperatorsno implementation information for operatorendendendsectendsectkeywords...[:][][...]unexpected operator (or arity),global, record, or procedure declaration expectedend of file expectedglobal, record, or procedure declaration expectedmissing semicolonlink list expectedinvocable list expectedglobal, record, or procedure declaration expectedmissing record nameinvalid global declarationmissing procedure namemissing field list in record declarationmissing endmissing semicolon or operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid argument for unary operatorinvalid create expressioninvalid break expressioninvalid expression listinvalid compound expressioninvalid expression listinvalid keyword constructioninvalid return expressioninvalid suspend expressioninvalid if control expressioninvalid case control expressioninvalid while control expressioninvalid until control expressioninvalid every control expressioninvalid repeat expressionmissing link file namemissing operation namemissing number of argumentsmissing parameter list in procedure declarationinvalid procedure bodyinvalid local declarationinvalid initial expressioninvalid expressio p VMS.BCK?[V9.BIN]ICONC.EXE;1ninvalid argumentinvalid argumentinvalid argument in assignmentinvalid argument in assignmentinvalid argument in assignmentinvalid argument in assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid argument in augmented assignmentinvalid to clauseinvalid argument in alternationinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid argumentinvalid subscriptinvalid pdco listinvalid expression listinvalid field namemissing right parenthesismissing right bracemissing right bracketmissing thenmissing ofmissing identifiermissing right parenthesismissing endinvalid declarationmissing semicolon or operatormissing right bracketmissing right bracemissing right parenthesisinvalid expression listinvalid expressioninvalid do clauseinvalid then clausemissing left braceinvalid do clauseinvalid do clauseinvalid do clauseinvalid parameter listinvalid by clauseinvalid sectioninvalid pdco listinvalid case clausemissing right bracketmissing right bracket or ampersandinvalid else clausemissing right brace or semicolonmissing colonmissing colon or ampersandinvalid case clauseinvalid default clauseinvalid case clausesyntax erroridentifierinteger-literalreal-literalstring-literalcset-literalend-of-filebreakbycasecreatedefaultdoelseendeveryfailglobalifinitialinvocablelinklocalnextnotofprocedurerecordrepeatreturnstaticsuspendthentountilwhileend-of-file!%%:=&&:=**:=****:=++:=++++:=--:=----:=.//:=:=:=:<<:=<-<-><<<<:=<<=<<=:=<=<=:===:=====:=======:=>>:=>=>=:=>>>>:=>>=>>=:=??:=@@:=\^^:=|||||:=||||||:=~~=~=:=~==~==:=~===~===:=()+:,-::;[]{}$($)$<$>invalid characterinvalid radix for integer literalinvalid real literalinvalid integer literalinvalid digit in integer literalunclosed quoteno line number in #line directive'"' missing from file name in #line directive'"' missing from file name in #line directiveFile %s; unexpected end of file Line %d # "%s": %s ???File %s; Line %d # "%s": %s File %s; Line %d # "%s": %s File %s; Line %d # "%s": %s File %s; Line %d # %s %s: parser: out of memoryparse stack overflowfailinconsistent redeclarationduplicate field nameinstall: unrecognized symbol table flag.redeclared identifierinconsistent redeclaration%s undeclared identifier, procedure %s built-in function not installedallinvalid operand to invocable static B_IProc(2) init_op_tbl[OpTblSz]not available for string invocationnot available for string invocation#define OpTblSz 1 int op_tbl_sz = 0; ; #define OpTblSz %d int op_tbl_sz = OpTblSz; }; = { , {T_Proc, 11, O%c%c_%s, %d, -1, 0, 0, {{%d, "\%c"}}}invalid keywordkeyword not installedlist creation not implementedlist creation not installednullduplicate default clauseduplicate default clausecompiler error: inconsistent parsing of unary operatorsbinary operator not implementedbinary operator not installedunary operator not implementedunary operator not installedsubscripting not implementedsubscripting not installed'i to j' not implemented'i to j' not installed'i to j by k' not implemented'i to j by k' not installedassignment not implementedbinary operator not implementedsectioning not implementedaddition not implementedsubtraction not implementedproc failproc returnboundend initial!first_timefirst_time = 0;alt = 0;rep alt = 1; = 0;invalid context for a break expressionbreakelseend ifinvokesignal = R_signal = R%s_%s(R%s_%s(, NULL&, &);signal == A_Resumeend loopnextrepeatinvalid context for suspend == NULLnextwhileuntildoinvalid context for a next expressionnotinvalid context for return or failreturn failcompiler error: node type %d unknown = ; = nulldesc;%c%c%c_%send caseskip clauseselected code!equiv(&, &)co_failco_chng(popact((struct b_coexpr *)BlkLoc(k_current)),NULL, NULL, A_Cofail, 1);++BlkLoc(k_current)->coexpr.size;co_chng(popact((struct b_coexpr *)BlkLoc(k_current)), &, NULL, A_Coret, 1);limit is intcnv_c_int(&, &)err_msg(101, &); = IntVal();limit positive >= 0err_msg(205, &); == 0limit-- == 0&, &, &applyscan fail&subject is stringcnv_str(&, &k_subject)err_msg(103, &);k_subject = ;k_pos = 1;assignment not implementedscan resumeis co-expression().dword == D_Coexprerr_msg(118, &());activate(&, (struct b_coexpr *)BlkLoc(), &) == A_Resumeassignment not implemented = k_subject; = k_pos;k_subject = ;k_pos = ;, NULL&, &retderef(&, (word *)pfp->tend.d, (word *)(pfp->tend.d + pfp->tend.num));retderef(&, (word *)argp, (word *)(argp + ));not variable!Var()is record().dword == D_Recorderr_msg(107, &);invalid field{struct b_record *r_rp = (struct b_record *) BlkLoc();int r_must_fail = 0;.dword = D_Var + ((word *)&r_rp->fields[] - (word *)r_rp);VarLoc() = (dptr)r_rp;dptr r_dp;switch (r_rp->recdesc->proc.recnum) { case : r_dp = &r_rp->fields[]; break; default: err_msg(207, &); r_must_fail = 1; }r_must_fail.dword = D_Var + ((word *)r_dp - (word *)r_rp);VarLoc() = (dptr)r_rp;}boundPoll();deref(&, &);end %send %svarargs(NULL, 0, &);varargs(&, , &);P%s_%srt.olb/lib/include=data/liblink/exe=dlrgint.objX11.opt/optlink/exe=obj,X11.opt/optlarge integer option required static struct {word dword; union block *vword;} init_globals[NGlobals] = { main {D_Null}, {D_Proc, {D_Null} /* place holder */ }; main procedure missing struct sdescrip init_gnames[1]; struct sdescrip init_gnames[NGlobals] = { {%d, "%s"}, }; struct b_proc *builtins[1]; struct b_proc *builtins[NGlobals] = { (struct b_proc *)&BF%c%c_%s, 0, }; int main(argc, argv) int argc; char **argv; { struct { struct tend_desc *previous; int num; struct descrip arg_lst; } t; op_tbl = (struct b_proc *)init_op_tbl; globals = (dptr)init_globals; eglobals = &globals[%d]; gnames = (dptr)init_gnames; egnames = &gnames[%d]; estatics = &statics[%d]; debug_info = 1; d VMS.BCK?[V9.BIN]ICONC.EXE;1]ebug_info = 0; line_info = 1; file_name = ""; line_num = 0; line_info = 0; err_conv = 1; err_conv = 0; largeints = 1; largeints = 0; init(*argv, &argc, argv, -1); init(*argv, &argc, argv, 0); t.arg_lst = nulldesc; t.num = 1; t.previous = NULL; tend = (struct tend_desc *)&t; /* main() takes no arguments: construct no list */ cmd_line(argc, argv, &t.arg_lst); tend = NULL; P%s_main( P%s_main(&t.arg_lst, &trashcan, (continuation)NULL); P%s_main(1, &t.arg_lst, &trashcan, (continuation)NULL); c_exit(NormalExit); } #define NGlobals 1 int n_globals = 0; #define NGlobals %d int n_globals = NGlobals; int n_statics = %d; struct descrip statics[%d] = { {D_Null}, }; ; (union block *)&BP%s_%s}, hidden int P%s_%s Params((int r_nargs, dptr r_args,dptr r_rslt, continuation r_s_cont)); {%d, "%s"}, }}; {%d, "%s"}, {%d, "%s"}, {%d, "%s"}, (union block *)&BF%c%c_%s}, {%d, "%s"}}}; (union block *)&BR%s_%s}, hidden int R%s_%s Params((int r_nargs, dptr r_args, dptr r_rslt, continuation r_s_cont)); {%d, "%s"}, }}; {%d, "%s"}, int %c%c%c_%s Params((int r_nargs, dptr r_args, dptr r_rslt, continuation r_s_cont)); struct b_cset BDC%s = struct b_real BDR%s = {T_Real, %s}; static int R%s_%s(r_nargs, r_args, r_rslt, r_s_cont) int r_nargs; dptr r_args; dptr r_rslt; continuation r_s_cont; { register int i; register struct b_record *rp; rp = alcrecd(%d, (union block *)&BR%s_%s); if (rp == NULL) { err_msg(307, NULL); return A_Resume; } for (i = %d; i >= 0; i--) if (i < r_nargs) deref(&r_args[i], &rp->fields[i]); else rp->fields[i] = nulldesc; r_rslt->vword.bptr = (union block *)rp; r_rslt->dword = D_Record; return A_Continue; } hidden int P%s_%s Params((static int P%s_%s(dptr r_argsr_args, %sdptr r_rslt%sr_rslt, %scontinuation r_s_cont%sr_s_cont, noargs)); ) dptr r_args; dptr r_rslt; continuation r_s_cont; static int P%s_%s(r_nargs, r_args, r_rslt, r_s_cont) int r_nargs; dptr r_args; dptr r_rslt; continuation r_s_cont; { struct PF%s_%s r_frame; register int r_signal; int i; static int first_time = 1; r_frame.old_pfp = pfp; pfp = (struct p_frame *)&r_frame; r_frame.old_argp = argp; r_frame.rslt = r_rslt; r_frame.rslt = NULL; r_frame.succ_cont = r_s_cont; r_frame.succ_cont = NULL; for (i = 0; i < %d; ++i) r_frame.tend.d[i] = nulldesc; argp = NULL; argp = r_args; r_nargs i = r_nargs - %d; i if (%s <= 0) varargs(NULL, 0, &r_frame.tend.d[%d]); else varargs(&r_args[%d], %s, &r_frame.tend.d[%d]); for (i = 0; i < %d; ++i) if (i < r_nargs) deref(&r_args[i], &r_frame.tend.d[i + %d]); else r_frame.tend.d[i + %d] = nulldesc; argp = &r_frame.tend.d[%d]; r_frame.tend.num = %d; r_frame.tend.previous = tend; tend = (struct tend_desc *)&r_frame.tend; r_frame.debug.old_line = line_num; r_frame.debug.old_fname = file_name; r_frame.debug.proc = (struct b_proc *)&BP%s_%s; if (k_trace) ctrace(); ++k_level; } hidden int sig_%d Params((noargs)); static int sig_%d() { return %d; /* %s */ } hidden int P%s_%s Params((noargs)); static int P%s_%s() { #ifdef Coexpr register int r_signal; register struct PF%s_%s *r_pfp; r_pfp = (struct PF%s_%s *)pfp; #else /* Coexpr */ fatalerr(401, NULL); #endif /* Coexpr */ } struct PF%s_%s { struct p_frame *old_pfp; dptr old_argp; dptr rslt; continuation succ_cont; struct { struct tend_desc *previous; int num; struct descrip d[%d]; } tend; struct debug debug; word i%d; double d%d; char sbuf[%d][MaxCvtLen]; struct b_cset cbuf[%d]; }; .dword = D_Var; .vword.descptr = &; return A_Resume; return %d; /* %s */ goto L%d /* %s */; L%d: ; /* %s */ .dword = D_Cset; .vword.bptr = (union block *)&BDC%s; .vword.sptr = "%s"; .dword = %d; cnv_int(&, &); .dword = D_Integer; .vword.integr = %ld; .dword = D_Real; .vword.bptr = (union block *)&BDR%s; .vword.sptr = strfree; ""; .dword = %d; --k_level; if (k_trace) failtrace(); tend = r_frame.tend.previous; pfp = r_frame.old_pfp; argp = r_frame.old_argp; line_num = r_frame.debug.old_line; file_name = r_frame.debug.old_fname; return A_Resume; --k_level; if (k_trace) rtrace(); tend = r_frame.tend.previous; pfp = r_frame.old_pfp; argp = r_frame.old_argp; line_num = r_frame.debug.old_line; file_name = r_frame.debug.old_fname; return A_Continue; break; if () { } .vword.bptr = (union block *)create(, (struct b_proc *)&BP%s_%s, %d, sizeof(word) * %d); .dword = D_Coexpr; file_name = ""; line_num = %d; globals[%d]statics[%d].tend.d[%d]argp[%d] /* %s */%s%dr_s_contr_pfp->succ_cont.sbuf[%d]&(.cbuf[%d])r_frame(*r_pfp) { dptr r_argp_sav; r_argp_sav = argp; --k_level; if (k_trace) strace(); pfp = .old_pfp; argp = .old_argp; line_num = .debug.old_line; file_name = .debug.old_fname; r_signal = (*r_s_cont)(); r_pfp->succ_cont)(); if (r_signal != A_Resume) { tend = r_frame.tend.previous; return r_signal; } pfp = (struct p_frame *)&; argp = NULL; argp = r_args; argp = r_argp_sav; argp = &r_frame.r_pfp->tend.d[%d]; if (k_trace) atrace(); ++k_level; } r_signal = ; switch (r_signal) { case : } if (pfp != (struct p_frame *)&r_frame) { tend = r_frame.tend.previous; r_pfp) { return r_signal; } r_signal = ; ; return r_signal; return ; ; r_signal = ; if (r_signal != == ) return r_signal; else else return r_signal; if (r_signal != ) { } switch (r_signal) { case : default: return r_signal; } ()%s(, (continuation)NULL, )sig_rsmsig_%dP%s_%s(*(struct %s **)&(&trashcan.tend.d[%d].i%d.d%d%d%s(*r_pfp->rslt)(*r_rslt).vword.sptr.vword.bptr).vword.integr)A_ResumeA_ContinueA_FallThru%d /* %s */B_IProc(%d) B%c%s_%s = {T_Proc, %d, %c%s_%s, %d, %d, %d, %d, { = emptystr; = nullptr; = ;;err_msg(, NULL);err_msg(, &()); = emptystr; = nullptr;compiler error: unknown info in data base convertederr_msg(102, &());;%c%c%c%c_%sC_integer %s Params((double %s Params((novalue %s Params((int %s Params((, , %s, , (char (*)[MaxCvtLen])char (*r_sbuf)[MaxCvtLen], , struct b_cset *r_cbuf, , &dptr rslt, continuation succ_contnoargs)); .vword.integr = ();Integer.vword.bptr = (union block *)alcreal(());Real();[];.dword = D_;compiler error: unknown info in data base .vword.integr = Integer.vword.bptr = (union block *)alcreal();RealAsgnCStr(, ); = .vword.descptr = Var.vword.descptr = (dptr).dword = D_Var + ((word *) - (word *).vword.descptr);compiler error: unknown RLT return in data base .vword.bptr = (union block *).vword.descptr = (dptr).vword.sptr = (char *).vword.integr = (word).vword.sptr = .dword = SubStr(&, , , );compiler error: unknown RLT return in data base compiler error: unknown RLT return in data base got allocation().vword.bptr != NULLerr_msg(307, NULL);end suspendwithinwithinwithincom[ VMS.BCK?[V9.BIN]ICONC.EXE;1(&piler error: unknown info in data base (().dword == D_Integer || ().dword == D_Lrgint)((().dword & D_Var) == D_Var)(().dword == D_Integer)(!(().dword & F_Nqual))(().dword == D_)%s: %s(GetReal(&(), ), 1)( = IntVal( ), 1)cnv_def_c_int(&(c_dbl(&(c_str(&(eint(&(ec_int(&(tstr(, (&tcset(, &(cset(&(real(&(int(&(str(&(), &(), ), , &())( = , 1)( = , 1)( = , 1)(AsgnCStr(, ), 1)(BlkLoc() = (union block *)&, .dword = D_Cset, 1)(IntVal() = , .dword = D_Integer, 1)((BlkLoc() = (union block *)alcreal()) == NULL ? (fatalerr(0,NULL), 0) : (.dword = D_Real, 1))( = , 1)thenend ifmaincompiler error: node type %d unknown invalid context for break:=compiler error: node type %d unknown maintype inferencing: ., %ld compiler error: node type %d unknown compiler error: unknown info in data base invalid context for breakinvalid context for nextcompiler error: node type %d unknown compiler error: node type %d unknown compiler error: unknown info in data base compiler error: unknown info in data base invalid context for breakinvalid context for nextcompiler error: node type %d unknown compiler error: unknown info in data base compiler error: unknown info in data base && %s: %s -- %c illegal option%s: %s -- %c option requires an argumentSundayMondayTuesdayWednesdayThursdayFridaySaturdayJanuaryFebruaryMarchAprilMayJuneJulyAugustSeptemberOctoberNovemberDecember%.3s %.3s%3d %.2d:%.2d:%.2d %d r]:%s%s%s/* * %s * This file was produced by * %s: %s Icon Compiler Version 9.0. July 16, 1994 */ stringsStringintegeriIntegerrecordRRecordprocprocProccoexprCCoexprtvsubssstvTvsubstvtbltetvTvtblnullnNullcsetcCsetrealrReallistLListtableTTablefilefFilesetSSetkywdint.i..................kywdintKywdintkywdsubjs...................kywdsubjKywdsubjkywdpos.i..................kywdposKywdposkywdeventsiRpC..ncrLTfS......kywdeventKywdeventkywdwin.......n....f.......kywdwinKywdwinkywdstrs...................kywdstrKywdstrstr_vartrpd_tbllst_elemLEtbl_keytbl_valTVtbl_dfltset_elemr9.0.009.0.00found version %s, %s requires version %s9.0.00typesexpected type codedata base inconsistant with program, rebuild data baseexpected ':'unknown type:endsectcomponentsexpected type component codedata base inconsistant with program, rebuild data baseexpected ':'unknown type component:endsectcannot closeunexpected EOFinvalid prefix forinvalid prefix fornumber of parameters missing forparameter flags missing forparameter flag missing forinvalid parameter flag forinvalid parameter flag list forresult sequence missing forinvalid result sequence forinvalid result sequence forinvalid result sequence forinvalid result sequence forinvalid 'result' use indicator foroperation description expectedexpected '"'block name expectedvariable name expectedexpected $endabstracaseexpected abstr or acaseblockcallinvalid indicator for type of return valuet or f expectedexpected cnv1 or cnv2expected cnv1 or cnv2constexpected call, const, cnv1, or cnv2expected def1 or def2expected dflt1 or dflt2expected runerr1 or runerr2expected runerr1 or runerr2expected if1 or if2expected if1, if2, or islcaseexpected lstexpected lcase or lstnilexpected tcase1 or tcase2expected tcase1 or tcase2expected &&syntax errorinvalid return indicatorinvalid return indicatorinvalid return indicatorinvalid return indicatorinvalid return indicatorexpected symbol table index or '['lstexpected newexpected nilexpected new or nilstoretypvartypexpected component codeexpected ++expected **$cgoto$cgoto: expected label numberexpected $cb or $cgoto$efail$fail$goto$goto: expected label number$lbl$lbl: expected label numberd$m: expected symbol table indexdexpected $ret$suspexpected $sb or $susp$t: expected indexinvalid $ escape in C codeunexpected EOF in C codenilexpected C code of the form $c ... $e or nilunexpected EOF in quoted literalunexpected EOF in quoted literalblkptrdescstrexpected blkptr, desc, or strinvalid type codeunexpected EOFexpected:endendsectout of unique prefixes error, warning, data base "%s", line %d - %s error, warning, data base "%s", line %d - %s %s error, warning, data base "%s", line %d - %s %s%s {T_Cset, %d, cset_display(0x%x,0x%x) }; \n\t\v\b\r\f\\\"%c\%03osalloc(%d): out of memory alloc(%d): out of memory wdefineundefifdefifndefelseendifincludelineerror_V91_VMS11_ASCII1_CO_EXPRESSIONS11_EXTERNAL_FUNCTIONS1_FIXED_REGIONS1_KEYBOARD_FUNCTIONS1_LARGE_INTEGERS1_MULTIREGION1_PIPES1_STRING_INVOKE1_SYSTEM_FUNCTION1_GRAPHICS1_X_WINDOW_SYSTEM1LPATHcircular include-stdinrunterminated $if rline(%d): out of memory#line %ld "%s" invalid preprocessing directiveFile %s; Line %ld # "%s": %s explicit $error$define: missing name$define: "(" after name requires preceding space$define: unterminated literal$undef: missing name$undef: too many arguments$include: invalid file name$include: too many argumentscannot open$line: no line number$line: invalid file name$line: too many arguments$ifdef/$ifndef: missing name$ifdef/$ifndef: too many argumentsunexpected $elseextraneous arguments on $else/$endifunexpected $endifextraneous arguments on $else/$endiflineendifelseextraneous arguments on $else/$endifvalue redefined 5GZr "#2=3a45678 99 :] ; < = > ? @5 AY B} C D E F G1 HU Iy S V W X Y Z `9 aS bn c d e f g j) k@ lW ms o p q u vwx$yCzb{|}~Dm:c0Y&Ox.N_p +<M^o*<Nfy"/@2V4j79;<=>?@ BH5JGOWUiZ}\^_abgh(i?S |eN@OGONOVO`OiOpOyOOOOOOOOOOOOȎr VMS.BCK?[V9.BIN]ICONC.EXE;15  !"#$%&'()*+,-./ :;<=>?@AC GHIJK M OPQ S U WXYZ[\]^_`ac ghijk m opq s u wxyz{|}~dPkPmPtP|P~PPPPPPPPPPPPPPPPPPPPPPPPPPQQ QQQQQQ#Q'Q)Q-Q5QJQRQZQcQxQQQQQQQQQQQQRRRR4R?@ABCDEFGHIJKLMNOPQ R STUVWXY!Z$[)\-]3^5_8`=aAbGcLdSeUfWgZh\i_jakclemgnioknnoqltm%PatchStringHere-> [[,[[[\ \\$\000   8\htȇԇ VMS.BCK?[V9.BIN]ICONC.EXE;1ID4@G `k{      !(/6=E J!M"S#YDRLRUR ^RaR iR qRtR }R &T[\]^8VcSvOgUf_fbN77cU3I:g`va9ed8ZvZv;u>h:lFP@797<F6w7kjYDAnCE`v^H)dG2I=E45@6<?BDGHvWLvMK?iYtX1&T[\]^vVcSa=f_b>ivU3;vg`aAed85Z;>:vF@9v7<,%qhrJ_2ACsERQP$OGN2MI=L45K6J?B1D/H*W&T[\]^YVXcS(pBmf_"bo!U3 g`aed8 Z;>:F@97<  ACEG2I=456?BDHW.T[\]^YVXcS-f_b!"U3g`aed8Z;>:F/@497< 0 ACERG+2I=45C6[?B#DHWYX~jyx{z|}''()*+#$%&#ST#VWX\0bebkl 3     Q,-.]kTYZ\5$3-)6W+^1D_FaH/RcV enl' #"hhjek'R98=<[]40.2*,7&XEIMKC;`dGQOA?bS(U!YFPN@>aDLJB:_HcZ\-3/1)+6%WVT$lne5heofhokm     fkkmjgiohfnfl  mmokjj" &+,.0QTVehmrtx $%yz{|}~+ )-/123456789:;<=>?@ABCDEFGHIJKLMNOPRUWXYZ[\]^_`abcdfgijklnopqsuvw+!#'S(k*V* * ** *!*%*&*(***,*.*0*2*4*7*8*9*:*;*<*=*>*?*@*A*B*C*E*G*I*J*K*L*M*N*O*P*Q*S*U*X*[*]*`*b*d*f*g*h*i*j*k*m*o*Wf*h*Xk*o*Yh*m*`* * ** *!*%*&*(***,*.*0*2*4*7*8*9*:*;*<*=*>*?*@*A*B*C*E*G*I*J*K*L*M*N*O*P*Q*S*U*XRD² VMS.BCK?[V9.BIN]ICONC.EXE;1nS*[*]*`*b*d*f*g*h*i*j*k*m*o*a* * ** *!*%*&*(***,*.*0*2*4*7*8*9*:*;*<*=*>*?*@*A*B*C*E*G*I*J*K*L*M*N*O*P*Q*S*U*X*[*]*`*b*d*f*g*h*i*j*k*m*o*o(k*u(k*h*m*h*f*h*7f*h*m*9k*o*Oh*o*~d_%}i*T<<<<<<<<<<<<<<<<<<<<<<<<{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<%}=cw^O%JFii****<%@p%%%%p%%PG<KJ   !!!!!""####$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%%%%%%%%%++,,--.(((())*2233//11&&&&'44400            θ^0E[:Z_Y0W XbVKU| Ԯޥޥn :0PRRNߥެݾެ(ݾ(P,Ѯ,1dE-80T0S/$Ю,PPC5xlx ,1?P91PA1P1}1y1nP1e1YRb1JPbPPa1uuIUuuuuuu]ueuuuumM2?Pg﮺fhiRBdŶ')#10:()f*Y*ݏ`*.%Pݏ@* P3*ծ jRb"*P&gP P bRb<P P 7ݮ &'!ݮPb P ݮP? PݮP PݮPｴݮﰴ)ScݮϪPkac(PRn(PRRR PRR(nR(Rc!Ŭ(cPS3ݮl(ݮb(SݏY( PK(ɳ((ծ #(/Ŭ!('ݮ ݮ%PTTL''ݮ 'ݮ'ScݮcpݮoPcTA%7uŬ'd'xRRR~ݮ ݮTU'P<^BUSެ RC ТPSC`SPxP~J PTTPЬPQPRЬ P `a Ь P `bլ,ݬZ P&&&&Tݬ&ś#^AR&m&^ݬi&<^ATVSĻݬ+&PURRc&RP9PU&P%PBݬĽ5#Rc%RPU%ݬ%PRݬ"cR%R9R%RP^@\)%u%ݏ|%^5CRBTs%SbY%PJ\l-Ь\{\P\?ЬX\dAdP'fdPd4\\cSЬX\QOG VMS.BCK?[V9.BIN]ICONC.EXE;1pb|d\\ߢc$.P\\ߢcu$P ߢc\$J\\ߢ(cD$BP\\ߢ3c-$+Pߢ@c$Pd ߢMc$dP^ASTZLfݬPߣOݬߣqߣgg - ߣsS ÃG RbÑbàbðbÿbݬm#PݬZ#+#Ь P ^@Rլ P^@Tݬٛ料PRnnSpRbPnݲ"P:bPRbPSnXPcԣSbPݬ ^ScݬݳW"PcPScbPRݬPbԢRc^@UVyXrWЬSSXРRb eS;PPߥRlP Sߥ߭ݬwP ߥwNߥ5gߥn^HSłߥxMPSnO~PRSŌmS RP*RaˏSTDfbRDfŻŷ R@PSſhzxSRbQP#ԡaQRSTRbQP#ԡaQRTSRbQP#ԡaQRSP^ ?W謹Y US RePՠ `eePՠ `յ1ЬVTЦ XXScPѦT@T;PXcPT&PXcPTPXcPTTXSDi VDiSPSSPݵR?XhPe1)P1ЬVTЦ SShPѦTCPT;PShPT&PShPTPShPTTSSDi VDiSPSSPЬSѣeQ աSPPѣeQ աSPPSVTЦ SShPѦTAT;PShPT&PShPTPShPTTS$SDi VDiSPSSPP|^PQPP=1PPSSPP:RR(HP?PP=1PPRR:P=1PRPSPdPRR:UP=1aPRPTP2PTTPP:'1F?P P=1!PPSSPP:QQ'GP?PP=1#PPRR:P=1%PR$PS"PT PPTTPP:)S1?PaP=1m'PNPRR:?P=1K)PR(P$PSSPP:OO%E:?PP=1 +PPRR:P=1-PR,PS*PT&PPRR:P=1/PR.PPRR:{P=11PR0PHP2PIPRPRR:CP=1O4PR3PJP#PTT|gPSSPP:MP|@PP=17PPRR:P=19PR8PS6PT5PKPPUU=1PTTPP:#}?PiP=xP%PRR:P=%@PR?PS=PT;PU:PƻSRէݧ hݧhRRhS%華P^XJW'ZYV(RRj(5PjU5/*j(\(<,g±g 5Pjj1YP?PˏTP@kP$ SQP0TU PˏTU UUQSPT. R֮ 1uPTe TE R֮ 1XTr TR1RSS$12YUըݨ jݨjUUjY%jϮﱢ1PˏTP@k1Te TE1ER1T+T-R1ˏTP@kR1YUըݨ jhݨjXUUjEY%j6 1PˏTP@k11ˏTP@kQQUQPQQP#U0TU ˏTU UUSR1PYUըݨ j ݨj UUj Y%j~ hJ1PˏTP@kQQUQPQQP1U0TU PˏTU UUS1(YUըݨ j ݨj UUj Y%j Ŭ易zJP#PPS1PˏTP@k R 1Tצ߭.PUUhy/PUEpPTծ %f0Ph{/PRP PS/PP^T,X' VYZ [ЬSWPRRS1*R 1"R1UR_ äWPˏRP@fWR\cePRR1Ѥ  d9ФP֤\`R^-ePRR1Ѥ  dФP֤^`Ѥ  dФQ֤RaePRR CW?WePRR*ˏRP@fePRR ˏRP@fRSR  R1RS aP=USթݩ kx ݩkh SSkU U%kF 0RäSѬ"$SdPi"v-P$PSdӬP Q-Pv0P|^)SzT?R VP\\ \ P\\ \ \0\91LUnnդݤ fk ݤf[ nnfH U%f9 #\ \ PP\\\ \Pb\0%\9 bQ0\PPQbP\\0\9\P ^YS(TcUXYWЬRR R hPRR R R"1oVĝեݥ gWݥgGծݮg2V%g#hiRR PRRR RPЬRPRR"HR?R :Pѣ  cУQ֣RaPRR"RR R"ccP\ĞVnեݥ g`ݥgPnng=V%g.hRP^贈TRSd\d\P P\\PP "VVVVVVVVNB:<?Pb \cbd&cb Pcb VMS.BCK?[V9.BIN]ICONC.EXE;1qPbPPb Pbbb\PP^&V&UXЬRSТSեݥhOѬh81Sh%ЬPՠ 1ЬWPTWRR$RRR RФ8SEҥPՠѠR`S. PՠﺛQաѡRaSQաSSh~Rެ Pb`b Rb`bݢhXB$P ^M%SЬRR$RRR R ЬPР8PPՠPѠR`P PՠQաPѡRaPQաP^$TVRSբݢ cݢc}լݬch%U?!^M$S^TЬR ݢ)dݢ3dլ ݬ >dݬEݤӣﵗ^#TvRSբݢIcݢScլݬ^cݬeݣwe ^u#S RբݢisDݬﳔsY*ݏ1|^!#V2UЬTƁSƂeRbSTebƇeݏ^"TS﫡ĂcRbݬݬcbćcbݏ^ݬE^M[ڀW<xRR!PgRPgէ7PgRЧR |WkЧUЧ TЧSTЧ\ЮRBlRTRs\TYYg\\UXX\VZZxRR\PgRݧyPgէ87PxYTTxXUgUxZVgVSdUeC\\WkPkkk\@\7Lﬣ\Lk%k\SZ1 O1CRRok$Pkk'\lѬS\lѬS\llk \llkЬRݧTgKPR1PP''1P?PSkTJPd\LP*P!@\L @|S1TUTݧgPkݧgPk1PRUVBPP^xPPxP\\UХBR\TdBSSSCSR\CA\1_B\LȡS1LxPPxPSSUХB=RSTdB]\\\L\RSLSB5SCm\\T UЧPP ,8<X\`d$0D`t <Xt8Tp4Pl8Tp4Pl 0 L h   , H d   ( @ X  8 P x  0 X p  8T$Ll$Hd,Hdp8Tt1?P?P111-Rf$1P1111 1 fRݢ8'1~fO1fRݢ8Pݦ3111fRݢ81fRݢ811P1fRݢ8<@΍1{P1u1q1mfݦݦݦݦP1KPfRݢ8 <1/P1)1%1!R΢ 1ZfRݢ8Q1PBfRݢ891P11!1P 1P gP 1Ц1 GP1fݦݦ!P1q P1]fݦݦ-$P1CPfݦݦݦP1"Pfݦݦ#Pz1Pfݦݦ#P^1Pfݦݦ#PB1Pfݦݦ#P&1Pfݦݦm'P 1PfݦݦQ'P1{Pfݦݦ5'P1_Pfݦݦ'P1CPfݦݦ&P1'Pfݦݦ&P~1 Pfݦݦ&Pb1Pfݦݦ&PF1Pfݦݦ&P*1Pfݦݦq&P1PfݦݦU&P1Pfݦݦ9&P1cPfݦݦ&P1GPfݦݦ&P1+Pfݦݦ%P1Pfݦݦ%Pf1Pfݦݦ%PJ1Pfݦݦ%P.1Pfݦݦu%P1PfݦݦY%P1Pfݦݦ=%P1gPfݦݦ!%P1KPfݦݦ%P1/Pfݦݦ$P1Pfݦݦ$Pj1PfݦݦݦLPI1Pfݦݦ$P.1PfݦݦݦP 1PfݦݦU#P1Pfݦݦݦ#P1`fݦݦP1Efݦݦ P1+PfݦݦP1PfݦݦPf1PfݦݦPJ1PfݦݦP.1PfݦݦP1PfݦݦmP1PfݦݦQP1gPfݦݦ5P1KPfݦݦP1/PfݦݦP1PfݦݦPj1PfݦݦPN1PfݦݦP21PfݦݦP1PfݦݦqP1PfݦݦUP1kPfݦݦ9P1OPfݦݦP13PfݦݦP1PfݦݦPn1PfݦݦPR1PfݦݦP61PfݦݦP1PfݦݦuP1PfݦݦP1mfݦݦݦP1NPfݦݦkP11f PݦݦP}1 PffPd1ffPL1ffP41ffP1fݦP1PfݦP1zPfЦRR8RB`Rb:P1PfݦP1:PfݦP1"PfݦP}1 PfݦpPe1PfЦRR8RB؈RbP;1fݦ0P%1PfݦP 1PfݦP1PfЦRR8RBhRbBP˿1XfЦRR8RB@RbP10fЦRR8RBRbP{1fЦRR8RBRbPS1fЦRR8RBȇRbP+1fݦ P1PfЦRR8RBRbbP1xfݦPվ1bPfݦ NP﻾-R(1=fRݢ8P81&PfP1PfݦPg1ЦRb #R PݦP=1PR11PЦ$1ݦݦP 1ݦݦݦP1~P #PݦSPݦݦP1NPݦݦ+PݦݦP1&PݦݦݦP}1 Pfݦݦ'P`1%PݦkP<1fRݢ8ݦPP!1P SPfݦݦP1PfݦݦݦPټ1fP  PfݦݦPﱼ1>PfݦݦݦP1P PfݦݦlPi1PfݦݦݦLPI1P {Pfݦݦ$P!1P SPffP1PfݦݦP1m PfݦݦPﹻ1FPfݦݦݦP1&P PfݦݦtPq1PfݦݦݦTPQ1PݦݦݦP51Pfݦݦ P1fݦݦP1fݦݦP1mfպ1bPfݦݦ P︺1Eff 3PR(1"Pfݦ Pݦݦ 1Pj܋R(1fR<~ݢ8P81fR<~ݢ8P81fRݢ<<~ݢ8P81fRݢ<< ~ݢ8P81|ݦݦݦݦPҹ1_PfŹ1RPfﹹ1FPfﭹ1:Pfݦݦ!WP11 ^ЬRˏRQA|xPѠRP`PѠRPSݬݬϥPS P ȬPݬ{!SP^e!ZN[XtYլ1KЬPPkCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ?PP11P@11ЬRˏRQA}wPѠR `PѠRPS ݬݬϩȬPiP֠iPݠ ݬݬύPQiPQ PiP֠iPݠݬݬiPQiPQPiP֠ iPѠ kР kݠݬݬ;PQiPQPQЬahPРhPQhPР Q֠ QVVkVkЬRˏRQA vPѠR `PѠRPW\ˏUhRVSTR`ST PTˏP@uRЬS R`STPEuPRbP"ѠV`hbP RbP ѠV`hbPѠV"hSVTPUS`TU PbݬߪwP0^TЬSˏSQRAPѠS `PѠSPRݬݬ7PRЬ &ѢݬߤYPݬߤo,? VMS.BCK?[V9.BIN]ICONC.EXE;1;bRPP^ЬSˏSQ}RAPѠSP`PѠSPR>VPРVˏWGfSЬTЬUS`TUPRRGfԢRPP^tWЬTˏTRBgPѠT `PѠTPR0ˏSCgTЬUЬVT`UVPRRCgRP^MqYЬTЬUˏTRBiPѠTѠU`P ѠTѠUPRrˏSCiXЬVЬ WЬUPTXdVWUU. U !PV+zP WVP TRRCiRPP^ˏRQBPѠ `PѠP^ˏQArPѠ `PѠP^ˏQAsPѠ `PѠP^ˏQAoP!ѠѠ`PѠѠP^fPQЬaЬЬ QP^ BЬ`ЬЬ ^"PQЬaЬЬ QP^PRЬbЬЬ ЬѬ/ Ѭ !ݬxP ݬ ݬP RPP^Ь`ЬЬ ^ T*WﳇXPVЬR[ZUYiRPPТSբ?SMPQ Q *PhݼSĊfegЬPРR֠bRYZP|^mVЬTˏTSCqRѢT bRѢTRU1kݬMPRPբ?ݬƲТTTSˏCPTTA~ݬPUR RPSQՠ&РTˏAdRSˏAdRSQQSTTwTwUPP^R݅ѬP |P^ Ь`ЬGP=^-UZwYoZjXt[jWn&zSިRb\Pݬ\l\RSTRbPPȏ`PRTSRb\P\Ul\RS1PnT1JVd\Ь8Rb\\\Lg\b_'RP\Rdf1ȏ1ФSˏRP@i\Ѭ R l\Ѭ RS!\SѬ RMP\ϭl\>Ѭ R6\ѬS Pl\ѬS\Ѭ RR?dfP\jФT15o)ckRbvkbŊ2mbP>ōkRbškŻm^%U[lVЬRCЬQSPա'Tˏ@dRSˏ@dRSPPSTTtTtЬRТYZXТ TТWWSˏCRWWkRkR#%rfPfݬQThPWYX~Z~fgTRb)ZSb\ fcb~fcRbf*ЬRC<^|SެUePS*eQRˏCbPTˏCbPTSSTP^sXVqYKlVkUMiT:gWSZ-sPޤ\l\PQ\l\QP\l\PShQiPg\l`aQP\SRj\l\RP ^ ~S\~QPRЬb}| |ԢԢ(Ԣ 0Ԣ<<~PQAQcXRcݬc  ^5]SPRЬbp}cPcP| i}R`}ݬ@R ^8zЬ`|Ԡ Ԡ4^8^PQЬaЬPРРР 4QP^<.PQЬaЬPРРР ԡ4Ь 8QP^@~PQЬaЬPРРР ԡ4Ь 8Ь<QP^D~PQЬaЬPРРР ԡ4Ь 8Ь<Ь@QP^H~|PQЬaЬPРРР ԡ4Ь 8Ь<Ь@ЬDQP^<6PQЬaЬPРРР ԡ4Ь 8QP^<PQЬaЬPРРР ԡ4Ь 8QP^@~PQЬaЬPРРР ԡ4Ь 8Ь<QP|^)VmЬRR-PURfu1Pե?Rߦ_1Х?SУTc 1<?PRЬPРРР Ԣ4УSSg% bTP~< ~P8tS!mb<~TP8RPSzb<~TP8.PS={#"bT?P~<~P8RP@~qPQaЬPРРР |4U<QP^VzWЬRb S'SRP`  SР8P` SnSnЧTߦ&ݬhPդ?ߦDݬPSUxURPRbЬPРРР Ԣ4S8ЬT STV8PVPRTTP@eP`1YU&ݏ-|^V mUЬS8RBP`TBeP`Sդ?BeP`S|H~PQaЬPРРР ԡ48T<Ь@Ь DQP|^MVvlUЬS8RBP`TBeP` Sդ?BeP`,SD~ePQaЬPРРР ԡ48T<Ь@QP^ WuXЬ Yi 1ЬRbTRSТ8R<T`УУУ Ԡ4R8PRЬ Sݣ8ݬݬRTPVУݦD!BХ,QsXRТPРPРRQQQXRQ ￰ `PQ7XRТPРPРRQQXRQХ(QXRТPРPРRQQWRQ R `PQWRТPРPРRQQWRQݥ ݥoХPР0Rբ, RsТ0RP^Y0JXмPP#Sg[ow  g3[1t?Pݬݬ /P1{PЬRݢ$ݬP aUVߩD8APSS`Sm=VPУݬݢ8"4`ԠԭRQ7r mf ~ 1Dh ҇tN.Ai!~k}GLYtږ6Ryx? ̊;l̲sj=$C8ѐY2mm+ƚ9 CA}^P#?&.wS}p+GnG8g" MߪR s*kuAX+2ZyftUDQGL `j:ʻ_ҤVMl9xҌcJ GCgMh$e 6*S};[RWEkFJ ?a֘Pl4_OxS}nxae\`s \?4R-wj82 2qp5m5=IbG-ؤ wgGMذ<w *HnK=aO}#&?gO#Ƭs FFlCj͆wܢ/b 0mg׹_ LyF*v1{lcovW rmeKTM<_VZ>loBkXXOi&KqokVI빢M7M7aC~…n?s<_%:VRq"|ѓM..=ŋN 7;G݂̈MfBϦWW4Fy2N0ǖDh+nk mXtWއ_g鿨9\tᗽ(I:!Kvr }z,0>_^:gbl=`J*x"ۣ7(J{|[u) ]qѲjʌ##7@ZAk[܆DƝ*?Jbnd#ZVBh޵f29p. 4ˈ+k\:{x FAe"c_::y֓ JDS] N*3ImaFrCp#NTCS'!#Yl?qN8FOŕQW\ wӃE|cU1sg7#F:{d_ԝ6N E/ aPGsQNWBK x:1zj3¯}Y4A@|phSmJD"Z]m,C+ bAc ,fZB@|֚<#*k I%=:.1'oVx͛gP@2xm' ]F5q1J>Do㲙\v zçIH3JS{[*=oءַɶ IWKy:6'31 6/0~6m(yE(pd l|=I?lJ숏q;h b_v(+"w~Ƽ9k@dچ/GD1yKjNz" .k16>ҹ##G(eԬi]|ѿ֯v@P;.np-|}~"5gCGE%9FX=)9ۆ-WrUIp;!Dp!K 9tCC.I!XUL9m"!7a,X&@$zB1-7Sg:| <ٓ1^Aȹ!E~Z:UQkU OS FN #hbSۨ@p8n{mGh@+ fA!N:‡vc}&`t5 (Z&9Ö+)[Jg A, Dk{@-pȂ_ɢp"&c-Mn Ѝx{3-(/7SYXV`V>6|GOßvj8$ίsL1'+pɭ3N]\؉Eh[Y׷#ԫGlZSwZ bR)jLUVg3Q"}?<Btads0ied䱱M.%BY "E!`-o/7AЄFʵnjKV~O ѽyqJ\bg)fw7in WKL(qV`h4 B VV1G5L3ڤ3'f$Fɋ4vF1kɚyo3u}?` XiurJsu# NܬVZx\0Hyvit-TSG#)[ xwv3>xPX*eю,KqCnI#3% *vH@͇D)@~y-V>mKGsSC\Q|NbI;_zF'=(" 03]fy3cuo+2 K>/YOS\ ]q/݋U+VscEEG7MS$iS۠PLƢ}SU J@ٞ#®:Yg:P uHQ0q6WW?MU~YgHB6[[gB8iPک{ڨuxTEi.V @Xu>TTRŠSg_% pJ|qBuJs>ie^n9%F Rčeh#|oWGGQ5kʙZΉ=oI;^#fܕTk5?LCbN_ϤfNUT!'jj5?ki{ivRl@ֺP(O _xVx"`ј W ()R|nSc>|B," @U7yucǷj2J4_'{B8(Wdr5 m |C 򨡈 `8S#WaI"-vU|!XV'/֚j*_78ՁBЎ֯^:q4[gCe$HTtOw'~xŭ)( _CqOaI>.Wëڇ!"݉ #Axr_3ꤞ76N_ OZJha?dN@b tjl'Kw ^R vu5F9'g$!s,#}@G7)uy{Ia2ug> ( f4ޡ~2]ٵQqɞ=Vp@|=ũ2*_Nd~X@#R>K!uv a7jc^GFYp}b8|FxkTj]~>R 11IpRA|ym@t"_XHP-/RۢMDD7e?H8y#]%j_<*|})9k M}G+RՃI0/Wά6C!-t P2Sh KN0~`u{ xɌ׵-*q,B~\DR ^Lmͳ*ߵIՀǕ%8KN^Hp"kA{d6QͦlD-TfT]U['*Qe3GtsUp0~/i@ON[bMBoӷ͌y"ͨ*huҵh*IU=df!P륏M\ϺQX4yELݐܺ< '}.5߱Z7)? j$xOK6x(#a>YCxˀW?oT*,avȡ(}lҹ%6G7R4@RdVYE+<:Tq)7K̩>8#Åg|$^KI9O8g.eF"nRXUZٰϳcuܱP 4}L)E3Æ/} *[<#õk~hb^QQpO-VCSOTƹj"Y>Q؂L  XO BiUSm'ˤ84%b#Yr͕gcx^H 詫tg8TI)xt)jBD]] #z~Bk.8U:X4MIa2 ߞ eo5 >[+?X,ԌBAP_Cu|tZPtnG& N2H>|u=5At,DN5^LmhLk $os6mwkvhY&MB5MR&[) =ܙH ,;}@db<hȅ 8B?EG 00[hihqX4BJ;z.4PU3|gjN>ҹ#e[̦ .W!+d6̅ڰM֔]v +гL7|0ʜt9wcHA`@! i̋L >ImvFج!? or%F"NiS7|’Ɍkntt\1*GNa "!l! ^+&"u} Y崹.:,JԌbk"h?HbU]lp&'40󢚴B9&W6UEO@KZeEk(nɽ+#μ­T?V/Rt_lRe"W5y S|bߝf >! K 3cJ=V8^Z !@{-l5ވḭD%})ӲtA\=nY%Avj1ّZ.2uyV#-Dǻ]L JiIM !5r{@K7}" rU0OVoK0ksR:nh;X8^҈}"c g"Xv@f1STk9kTlq˔Q[1Námzq,2=R Kk&vt ` ̐il )90#hC9;"ؐ!Np =ҥ2m/޶YY:ⵙ!8m̛~yu Ҕ̢"C$c4zDeML0$zDk]2 R_bo(Lk}PDzKϝ+_̮0;٭!874rƜn8톢zɒO$xόC`j}ڥ78Sj$ fG85HwKn惓^.r%}u-~+ھc}Wb7 17rdK甽K1Fxʘ^6UA"Bw*x8K([$gSq L{8q]mU~kr5TK`U}\ 4"XR7HP*^` x4ϫčp.CTe, 2JMeg9"yǨl)uo6>v,2(k&xG{r:إ)4I N|}$!Q膔`ueˈǩFk?}jyʷ EKn^ s^gюTTe᳄c@ݘ.BO.~ϯ\׼I.A'owqts_qEE}gʷd^uLv~z~z΅E<$$=hF)_=vxAa]M=7^-K6pK5ӥL'yKH8ҿ#DLc2W!B<g l検Q5_S5b.ZQ8>_V2jNW/&E7zun\DxJTeHz=fߐT o/Y\pQ-R,H =2"liijIww#%I4E|&Lev;N\jl2"ghq }B*j#y=8=R%')eƑ|W =;CӁ%4@zSVИǠs-X1:~1yOEf*4E߮]BBK↝FSbZٻ2'|\պlN/or9s}"3mD[2M&^Z>x띿DFa456[tvhmfhBq5xeW}$0y G`S0@Fg'Z@'//;ܷ$%esj:hZE(ړ= dn,2Ű5:SMv2h3Fz^y=X#1W<K _^M VMS.BCK?[V9.BIN]ICONC.EXE;1baRQ| | |(Ԡ0P 0 PTT>Э3VЭPSU``ݬЬRݢ<ϩT=TVi6`1Pݬݬ1'P1sPЬPР8WР RԠɺS Ԡ$ɾ(PV;TSPPRbԢS RݭЬRݢDR=ZRiݭݭݪ#ZSݣXP~塞Pݣ~~~ݭHݭϔ0Whˏ#RЬRݢ$ݬPݬݭݧ#WSݣP~.Pݣ~~~ݭݭ0V1ЬRݢ,SPSޫPPRbԢS R=Ue ЭVVԠީHP9TdߩN=PSSdPRbe VP R]9PRde VԠީVPdS\ݬЬRݢ85Pe VԠީ\Pd1ը0ߩbݬ`W1Ш0RТ RZR ݢbq.ЬUѵ8 /Ш0SWRѣR$Rݣ9P81lPRRТR2\WШ0TФRТ QТ SФRТШ0RТ\ɉ?<PVV{8Ш0SХ8Rݢ$ݣPШ0RRТ0ЭRݢݥ8R0tQPРRШ0SѢQգL4ҩ`ԠԭRQbaRQ| | |(Ԡ0P 0 PШ0Tդ.ФSyPPRb|S ֣R7 Pݤ8ЭPЭPЭWZPV7Pj74V1(PݬݬP1PݬݬiP1PߨPScЬRݢ$ݬPP Т8S61PURѬR1ЬRݢ$ݬOPPSC:PPR SԢR61lPݬݬ]1P1WPVURѬR1E'PScЬRݢ$ݬPP Т8SF61 PЬRѲ@ "Tݢ8Ϧ5ݬݢ<P1YW?Oɏ9PTTbYTݢ8^5T5OPФW6Yݢ$ݬ-Pݬݢ<rNPРRѢTQUɔ>9PVVS+PPRb|S ֣RZ5NPTVF5^V4`Ԡ|RQbaRQ|| | |(Ԡ0P 0 PUU6ЭNNPTWHXݬЬRݢ@ϑU1MSУRѢV V1P4O`ԠxRQbaRQx| | |(Ԡ0P 0 PUUf5Э~MЭPVWWUF5 U;5U1UMM`~W1PެVfTФ8UѴ< WSUfRRxSP@8P`ϞUSЬSݣ$ݬ5PݬURxRRB8Rbn1hPUUTCPVTa6ORRѬRԬФ$SФ,RSRTRSTPѣ00STRTTݬPݬUVɛ(1PݬݬI8P1PݬݬAEP1PЬRТ8UURϙPTRϷ5Т<ݢ$ݬAPLEЭSc PRɢPRR~HPcɮݭ2PЭRbǿP~Pbɿݭ 5Ԡ ЭԠUԠ TԠ$(Ԡ,0PԠ$(,T0Ԡ48Ԡ<@DЬHԠLPP1(K1nPRb'5Ԡ P JU1PR~11DPݬݬIP1/P5PG1yJSRТЬ$TR (Ш0,0ЬRТ8RТ8PP6R1v?PQOЬRݢ<uT4P_Oݢ@0|0IS0P`014P?0OЬRݢ<ϫ/SѡPtPRb|S ֣R/1ը$ݬNPQhЬRݢP@ݣ~~~@߲@*ЭSPw>k> k>S>x6J~TdPPJx;~dP;xk~dP 6xj~dPIxi~dP3QIPJRAbQQIRo;n;PB`RRY;Pk5R@bPPkRjFIPB`RRjPi.3R@bPPi=s=i=k=U=PU,eEHelQePR``bPRQU4 ePTTԣݬr Ԡ ԠGPrTR`|R ֢PQVf4RФT>aԣЬRR֣$ݢ8R+PRף$RWԠ bPfiԠ DŽRԠǼ Pf46>Pf<<<;3R,;PТ RRTPRTTP~ߣPЮ@3QPR`bPRQЮD=ԣެVfTT ݋PQaЬ U|;l;<3PР$03RQ$QPG*Rb8b'3bFb0bЮ<GЮ88Ю42Ю0FЮ,0Ю(FЮ$n8Ю kЮjЮiЮ:Ю:Ю :Ю:Ю:դ4QС4PР Rh С4hR4P ^UPSSdhPУݬ[P難PRbdԠ DYԠG P hSPRdϙPRRVhVPSnjRRhvBjЬP|^5VЬRݢ82PTݢ<%PUݢ$ݬPRPSԣ MTԣO $U(ԣ,S04Ь8渚PR b|PTRSTW;TT-A(8P,^aWЬPР8Р<[Р@ ЮR8P@7Rb5RRXբ P5PР5ЬRݢ,Phݢ,-PRم`ԠR PЬRݢ,Pݢ,-PR`ԠR P ߭ݫˏPZխ}2[τЭR_`ԠR PѮSC߭ЮRݢˏPխ >21ЬRݢ,P1Ь1ѮS1ЬRV<ޮYxV~ԄPUծ3SV-PxSQAeTxSP@RbPР0dAQbPР$aSSVUTT*PSSRS|`ԠR PnSRc`ԠR PTn[[ЬRݢ,PݮݮX#P[/PZ ݮݮ8ЬݮݨhE]PRR!UeݨhwE+{58Pe-+PТR\5ЬRТ + ?YP1gqPTTe*PФPPSc Ԡ zЮԠDŽ P TR`|R ֢PSIRbԠ ǒЮԠǡ Pbv*F*|49Pb.*PT,P_Ԡ ǤЮԠDZ Pe6Ԡ dzPݮݮiPݮmѮS1Pխ1խWЭR`ԠR PRЮS SԠǺR Ԡ$Ǿ(P%1Pծݮݮ1ЮRЮSw RԠǺS Ԡ$Ǿ(P1$P@I3RbSǾݮӘq.nS=ЬRݢ$ݬPݬݮ ݣ#ݣÜP~PTݣ~~~TTЮݨ ݨ0ݨh~PRRݨhݨ ݨP(T2P(PТR12X&0P^eWЬRТ8[Т eb Y ebq e]RbXXz ebØ ebð eb eb eb eb9 ebW ebn e^SY7V`PZ`n,|[ЬP`c`9nuˏWQС PPRPPRRXС0Ut f2\TdW1v RnZw idnZÒ fdXå idñ fdø RˏUP#Rû i[R f[ RU#R i[R f[ Rb i[ i|[Rb fbX fbˏUP  fK[U@& f:[1nZ> fdt fd fdÐ fdÞ fdö fZRbnZù fb fb fbPР$PѰ<  fb fZRb fb6 fb\ fbW ˏUP y fb PÔ fbWUí fZZ fKZ f?ZRb[ fb fbWX1 fb1PB fb1[WX[Pՠ WX U UPX] fbs UUu fYTdWXRRÆ fdõ fdRUXþ fdX:X fYRbfbW*fb`fbWlfbWÙfNY[ùf@YRbfbfb$fbKfb&nZtfXRbèfbfbfX[ZЬP X^ٚTXWЬU1ХPа Rb1W QRQQR1;բhhݢ$XScgcݢgcgcݢݢgc5gcee4ЬScUP`VVU;WRb`gbVUbgbwgb }gbЬRUČgeWScVUħgcgcVUgc \gc gc"gc;gWP|^IU^VAfVTdRbݬCfdUfdrfdŅfdŔfdŰfdŽfdfdЬRRSPSSfd fd fdRެ TRdR4f=VRRdSެRSbPSBfVSSbլݬRfUլݬofUŊU^TVXKZPV]Y[լ1?UWPмPP480\   ,DP\$1.?P1ЬRТUđfgЬSSݢ ]ĕfgĦfgSݢ AĪfgSUϫĽfg1Piݬݬ 1zPݬݬ% 1jPЬPа Rbfg1OPjQPRQQPՠhhݠݠfg1ЬPР RբhhР Pݠݠfg1PЬPՠ1ՠhhݠݠfg1PЬRТSfgݬݢ <ѣ1aѣ11ѣ1z1ѣ 1hfg+fgݬЬRݢ /fg18ѣ nݣUfgjfgЬUUЬRݢ ϛݣUSPnfg|fgUݢ sĉfgUݢ `čfg1đfgĦfgݬЬRݢ 3ݣ Īfg1fgfgݬЬRݢ fg1`fgգ fgU%f^ VMS.BCK?[V9.BIN]ICONC.EXE;1{gݣݣfX5PUfgfgݬЬRݢ ϜUfg1P1k-fg<fgZfg|fgėfgĴfgfgfg1kfg(fgCfgefgĀfgĝfgfgfg1Eݬ@19fg1,fgݬЬRݢ @fgݬݢϘ1fgݬݬ!fg1#fg1)fg1/f'QݬЬRݢ <3f QݢσݢЬRݢP`XfgĎfgݬݢ ĒfgUЬRբ 2ĦfPݢ PPݢ fR3ķfPЬPՠݠĻfpPЬPР1^勒STЬQա1СPPYu P?PPs1ЬPР PݠdOjPЬPݠ dORPЬR=dOPEdOЬPݠ dsOЬPݠ d\OЬPEO ^SUXXXRxRRެWgPB Rb1nЧV OTXXPxPP@ QaPP<\|1'P?PXXQQxQQgPA P`ed1ݬXXQQxQQgPA P` 1XXQQxQQgPA P`ed1լ ed1Ped1ЬR=ed PEedXXQQxQQgPA P`%ed`/edЬR =ed PEedXXQQxQQgPA P`2edݬXXQQxQQgPA P`xXXXPxPP@ P`1^Rլ=!ME mM^ﱏS"WUgP,;X`fˏVgPՠ 4V0լ+NeMRbTebiebkebÂeLÑeLìeLRbЬT =eb EeböeLRbebЬT =eb EebekLTd eedЬR =ed Eede/LRbebЬT =eb Eeb eKeKRbլ -eb P;ebQeKլ qeKÖeKRbîeb÷ebЬT =eb EebegKRbgPՠ  ebTVլ eb@eb5ebլeb P'ebX/eJ<eJWeJgPՠ Vլ feJP ^T6WZ@Y X[VlfvJScݬЬRR4{fcIЬRĴfcRfcfc fcfJ)f J~fJЬRТ S1IUĖfecRhPRP *feUiPRP 3feAjPRP >fe-kPPRPPRբggݢݢIfeĢfeݬݣόУ S1oīݦMI^STôd-IRbլdbdb dbdH)dH$^1UjX{ZH[]WԮԮЬRТ S*ѳУRc ֮Pѳ cn֮У S| ծѮ  Ѯ ЮެоRТ TԢ T1VФ YЦ SдPP T$1P?PѮ 1S1ѳ 1PУ S1ѳ }PѮ  ФRѲ d1ScУP` ФRѰ OУ SIУQaФPѱ 5S.УP` ФRѠ У SУQaФPѡ ֮S֮оRТ T  УTYT1ԮЬSr2gGRbݬSAgbЬSŴgbSgbgb PgbgF)gFծ0ծ1xDgFݬݬdHgFPѮ1Ѯ Ѯ>ծKg\FP_gKFݬݬjg3FPծ%mgFݬݬqgFѮ 1ݬЬRТ Rݢծ/Ѯ )tgEݬݬϕŃgEѮ1SņgEծŎgE PݬݬMЬRТ RbTТVf ŗg\EPŜgKETSkRSR*g3EijRSR3gEQRSR>gD5 }RPSRRSգhhݣݣIgDšgDTdf  ŧgdݬVЬSУ Rբ żgdݬУ RТ RݢϝѮ 17gdgdѮ1Ѯ1g9Dծg'D ݬݬg DTdnSkRSR*gd_PjRSR 3gdIRSR >gd1 ERPSRRSգhhݣݣIgdgCݬЬRТ RݢϜggCPgWCծgECPݬݬ&g(CЬRТ V1CTVS1+gdcRkPRP *gd]jPRP 3gdIPRP >gd1 APPRPPRբhhݢݢIgd7gdУS1r:gdݬݦϒЦ V1MѮ AgNBQgABlg4BP^uSTЬRբ ݢόudAPݢ xdAբ ݬݢϘЬRբ'?բ |dAdAբ ÒdAЬPݠÕݤA|^ŃTUVЬSQУPа RbėfCAP QPRQQPՠeeݠğfAPccP`߼Ħݦ@^!SbTЬPѠՠݠíd@ЬPѠ ÿd@мPP+s/1=B?Pdc@1%ЬR=dM@PEd;@QЬP, ~d@1PЬR=d@PEd?ЬPݠ d?1ЬR=d?PEd?ЬPݠ d?fЬPݠ d?OPݬЬPݠ ЬPՠ+d>d>P(d>P<^ SFUGTЬR PRP*d>2PRP3dw>P^PRP>d[>P QPRQQQPՠeeݠI>^aRݬݬ ݬݬUݬ=ݬ$ݬ ݬݬݬݬ ݬP P~mݬ = ^9Y^[ЬRТ U1bX߲ZPХW W ЬRk1hW1aЧVե PfKж TiRTRݬݥhPS ݬThPSХУRSХУRSק,1^Pf1զ1ե oק, ЦR֢,Ц ЦЦЦЦ S1УRв TiRTRݬݥhPR PݬThPRݥ RcjP У S1Pզ SЦ Q$PСRв PaPiRaRPRSС QSNק, ЦR֢,ЦЦ T1PФRв SiRSRݥ ݬShPdjP Ф TUPWOЧ(SIPգ.n"1&?PX(eϣeR9SJ RԠԠS Ԡ$(P樂PPR eԢARXԢ$g(RfeRjSї RԠԠS Ԡ$(P+FPRԢ oeԢy RXCԢ,|0RXeϗPXăeχeRĕS. RԠԠS Ԡ$(PPЬRݢęe6PR eԢıRXϚԢ$(,e0Ԣ48R'Pj  $YRB ScVB RbPP`81P?PXeϓeRVS< RԠԠS Ԡ$(PX8eKeRVS RԠԠS Ԡ$(PNXPeeRVSﬕ RԠԠS Ԡ$(PXgeϻeRVSd RԠԠS Ԡ$(PﾑY#ЬRݢ~eeXčeXPYݾw PRԢ ėeԢĠ RXϦԢ,ģ0RЬSݣ ύԢ<Ħ@RݣxԢLĩPR2Ĭjwݪ^i<^1}TUxPRRﵐSce\ТTP\l Ԡ ҜԠ P RFnP\cГԠ 4Pce荒gPcХ\R,^q|VZ?YTUЬR+bPP ?PѢТТR֮%x~mPQծPAQQլ1ʏnWdmX)[ мPP,,,,,h<4,$,L1kPj?PݬϐP1kijPg1Zj1OijPg1?ݬϔݵ Pg1'ݬ|ե iPРH$ݮ$hPRХPݠhPRR~kPRХPݠݮ(*R RPSSgե S1iPУjRSjݥ pRjiPS1P k`Pg1 k`Pg1rЬPРTDGT ݮ hPRХPݠhPRR~kPRХPݠݮ$*R RPDkPRb;PSSЬPݠS D PRg1ЬPРSCG[ݮhPRХPݠhPRR~kPRХPݠݮ *R RPCC PgzЬPРSCGbݮhPRХPݠhPRR~kPRХPݠݮ*R RPCCgPib3>ЬPР1Dծ ݮ^ͥWژTVЬRCbPP )))))55555555)P?PVRXТRRRVﭏPRUV1WмPP ((888888881.?PUUPxPP@ P`ЬQѡUUPPxPP@ Pd`1UUPPxPP@ SxQgPAP`c1PUUPxPP@ P`UUPPxPP@ SЬPРP@ c1UUPxPP@ P`UUPPxPP@ SݤѦPc[UUPxPP@ P`UUPPxPP@ Sݤ٧Pc+UUPxPP@ P`UUPPxPP@ QЬPРaԬЬPРUUV1RŊXP|^wS益UެVfTTKCPRԢ ÔRݬhԢ× RݬSԢ,ñ0RPTfPRԢ T*T1Rݬ Ԣ 1RݬԢ 1P}PT-/RPRԢ RݬϲԢ FP#PRԢ RݬσԢ Ԣ$$fP@ P`(Ԣ,(0RP^uT歹SݬPRУPݠPNb VMS.BCK?[V9.BIN]ICONC.EXE;1RR~PRУPݠݬ*RRｌ^9TFRբPx~PSQբPxQPd\@\lAcQQSP<^URTբSxTQePAPDc`TT^率TﲔRSբ"PxSQdPAQa޼PC`aSSu^ytTjVЬRТWYXZЬPP662*".P?PX6PX.PZ&P!PYPѬ ѬYѬ_WPLPSԣ 1Sݬ[ԣ= SݬWݬZXϑԣ,A01Ѭf,^W 杻PKPSԣ GԣI ԣ,U0SݬSݬWݬZX1=Rլ RR4PSԣ լ  [`ԣЬPPWK?3'1P?Pe1Pn1Pw1PĀ1PĈ1P韛PRԢ ĒݦPԢĘ R1PkPRԢ ĝݦPԢĤ ROЬRRݞ ĩ:PR ı&PRq ĹPRSݬUԣ$լ  Y ((Uլ PUSݬ ςUUUPxPP@ RbYUUPPxPP@ RbPUUPPxPP@ RbUUUPxPP@ RbUUPPxPP@ RbUUSݬWݬZXUUUPxPP@ RbUUPPxPP@ RbSPP|^pSЬTФVЬUUKڇPRԢ RݬVTφԢ Rݬ yԢ,01`U UJ}PRԢ RݬVT)Ԣ Rݬ Ԣ,01U UJ!PRԢ RݬVT|~Ԣ Rݬ Ԣ,01PUKΆPRԢ RݬVTzԢ  Rݬ mԢ, 01TU U,fqPRԢ RݬVT|~Ԣ Rݬ Ԣ,10RݬVT|~Ԣ<4@1PU UpbPRԢ HRݬVT|~ϧԢQ Rݬ ϚԢ,V0RݬVT|~xԢЬRݢ8.ТPդ xSeRCRbSbS<Ф$Rݢ<.Ф$Rݢ@"ФXTԥ#Tx!SeRCRb ]PxSeRCRbRRxR~P՚˚SХ ：TУRSBdУSW!VfTePФPP0PХR֥RˏP\x\SeRCRbSbSPФ RТ PХ\֥\ РPdTVWХT/$TRBRbxTRBSХR֥RcTTߎx֙SeRCRxb~ P﷙PRԢY=WgS(PУRRʏRTУRSBdcSWYԥ$cV1rզ Ц TΦ TTSЦRPSS ТRզ Ц SΦ SSTЦRPTSTS ТRХ$RRTRSPTSS$SRԭxR~)PS$RSRЭTCdS$RSRЭPЦW޽RbQ1ա1СPPXxl P?PP#,С P"Р\QLС \QL  \QLaQ1eRWPЦXV1T׌4 TSХRCVTRBܚRxbSeRCRbfTTԥ(V戴4$VRn# VMS.BCK?[V9.BIN]ICONC.EXE;1xB5RbxVSCRХ(beRCRb(VVvХ(,xLReSBcRbPXУ8RТݦ,$~ϠPϝP 1yPլ ЬRݦ0P ЬRЬ ƌЬ|ЬRТƌТ8RТ8PP6^6r1"?PЬRݢ<xPXԭ|~ݢ@hQP|~ЬRݢ<VX=P|~ЬRݢ<BPX|~ݢ@5P|~ЬRݢ<"|~ݢ@XЬSݦ,$~Peլݦ,$~`PƌSȣXУƌ15Pƌ?ݬPլ ЬRݦ0ϟP ЬRЬ ƌRТX1Pլ ЬRݦ0oP ЬRЬ ЬTФUЦTȀ7jU cSШRCRХRBXMRbUЧ|VǀXЧxSSJRxRRR~RPcxЭȧ|ǀЧ|TЬSУPcxЭħ|ЬTդ<^ǀЧ|SФDRТЧ|SФHRТ^2PTЮTRݢФ RݢTݤ<ώݤФRxRRR~KPTPcxT|ǀЧ|TЬSУЬTЧ@S SzSP{ PQPPRxRSЭRSSSBdRլ jݧ@ݬUUVxHRgTBScBdRbnxeFRBScBdRb PFRЧSBRbY 4FRBRbX ,HRBRbԮծ13 ЬTnS SzSP{ PQPPRxRSЭRSSSBdR1Vծ1[ЮRBT VS SzSP{ PQPPRxRSЭRSSSBdR1լ 1S,RQRP R RP Q{RPQPQSQDЬUCeFRCbCeѭCejS,RQRP R RP QP{RPQPQSQT,RQRP R RP QP{RPQPQTQ1SDcFRDbDcѭDcjT,RQRP R RP QP{RPQPQTQ1S,RQRP R RP QP{RPQPQSQ4ЬUFRCbCeS,RQRP R RP Q{RPQPQSQT,RQRP R RP QP{RPQPQTQ4ЬSFRDbDcT,RQRP R RP Q{RPQPQTQVV1!֮Ѯ1[71[P[RBERb17 [RЧSBcTdYBTdXBRbVUX1ЬTYUS SzSP{ PQPPRxRSЭRSSSBdR1լ tS,RQRP R RP QP{RPQPQSQ1TCdERCbCdѭCdjS,RQRP R RP QP{RPQPQSQ^PS,RQRP R RP QP{RPQPQSQ4ЬTERCbCdS,RQRP R RP Q{RPQPQSQUUX1[[y61Vէ1PЬT VS SzSP{ PQPPRxRSЭRSSSBdR1լ wT,RQRP R RP Q{RPQPQTQ1UDeЧPRFRDbDeѭDejT,RQRP R RP QP{RPQPQTQbPT,RQRP R RP QP{RPQPQTQ8ЬUЧPRFRDbDeT,RQRP R RP Q{RPQPQTQVV1Xէ1PЬTXS SzSP{ PQPPRxRSЭRSSSBdR1լ wT,RQRP R RP Q{RPQPQTQ1UDeЧXRHRDbDeѭDejT,RQRP R RP QP{RPQPQTQbPT,RQRP R RP QP{RPQPQTQ8ЬUЧXRHRDbDeT,RQRP R RP Q{RPQPQTQXX1Vէ$1&PЬT VS SzSP{ PQPPRxRSЭRSSSBdR1լ {T,RQRP R RP Q{RPQPQTQ1UDeVSЧXRCRDbDeѭDejT,RQRP R RP Q{RPQPQTQjPT,RQRP R RP QP{RPQPQTQ@ЬUVSЧXRCRDbDeT,RQRP R RP QP{RPQPQTQVV$1^Uެ[kRТZ|Vŀ1VZ1kX YˏFRjS0RQRP R RP QP{RPQPQSQ@ЩT!&_W^]|2LD(e!U_?p{}}Qۜ˚z=HOs,0 <-gIuE[> Ȇ"{6]RT/a DV@gF}j_+5AF_e #M3"+tI\(ѩ%=Tާb[+Qu5!\8/㏓g:36,P*{< vϏWHlw> }f!Ԗ M 8_EN6{On[ ^yحs u! )iQU/Tp U*Sw0"m12JPShhNڳ"ȗ᜽ZٝJ3.;peXjB‚IE:Jp\ RP'[nSl v.w,p@( ^VyǖR;L3.~.#C S1QHq?CQvf>kK=M PlScq$%Q Dߗ'>fLgRSܝV&iHl22 FEoB* Lc.9'cţxs(L*`L RXףkdzUY@\u>3?\(kaLRQ+wEq2n$DUkfWؗ`oez/Vz,U@1hHM@| o,5!zАk <ꕪJQ\*n~xX:W]WA_q+y>@ȰS]/Kܞeuo_!AhRV{~%Sf|tՀێ;oQA4>߳zU+hIOpWtan$&F3/DxX  Nܒ+4AeK7H/. 6zS9d!`ZI%x 8}޴RLUrȍo`yc%٪@bmbMX Ts2fZ=u ~dN (LA?(־D^gX_bc`5Ե<{ZE*cePgkDES{KC*:Gv*DϑzkJ8+[$f;͇(Gqc_A7nx\"1>@ Ӵai$ړxGP6*5m6rMad:j|/8r(@ܙh8@ 50p4a*FV5O0Fni(G& Cgۦo0QY2^OThO 'Yc}}-!P jS"u6Š9u :, b_&uo A+:cEaI`Q6G mUMUwRC ٬C85fހڼN&^GqpcR*tIڕv?9[8_=i.JdActS?q綽%øhwJ SԑmN4#b6ܩ}w/:̣q6q9@_<^t %rQHOac=$Y+ ]u$<7%WFKaQ킙]סHv AG5qsՂP~4ג^kyE[ep5Oz,SL˶,">9@@yA|-F&xa }Ձ{] AxF l^lhyVmB='gĶ( f=LR@iFhJ]6C̚ YԼUCXfp&2owBn _hپ*zs>8Ɍ!D[HIsfG E$왠pv YLH;xX|3B]KOD܇F>~_PכB3(Mts|Z8LMeNe: W%k$/2g yG|쇘/F\0ؠm.LK<قȫ}7 z[Kg{|U)Lw'뒓`ēKO;QK\]lZ}y}+)G]Q:USPC m`wM[y.+]0,a5@p9+U.Ʊ'ƜkrF<A180IJӻRi˶V-T0/9!$/+#|p_''6͒b3E)anX2hQѵy8k4Gx\V]vZxMIE!3JzJhZឡqCE[er"=|9uߡ뾠9ګi/Ӫ6-LkMr+.a٤{V*(/E F%i7K5;_Z>;8ő-J!Ofig?gX[2ʾ),xi`}Ws%# pTM'®9?ٕ9ae tZ0~h'M7"=;o!p6m mܒ.[+M:n DNX^mH@CD vv_̗Ѧh0~M{ ^䑩=`*TfHYv]uNUCvoB/6/y i7`bz>՟JkY{r@1{K4:8u>lԴDyU=V` )4:B1 ~7lxƚof ?ȼ/5>Q }\d`H)Q#qߗ1><P5ɶtr?kdPGҙг  J=hd ڏ^9ɈIlzCk1Sh98@.KvD-؄Zbuw5ձe2"T*6KZ=ޔ̟sӘ~m'd,71'+#`0:j {~񔍯Eok ?w$.BK8[7LByԊBv\b-GU;Mic:fFԭR0MdJ 4o5-s#?Pr?溎㽨ɮ-SS)gx(/дn}T|RL#5Ff4C2~ > Z# &A>b~n@+~*i.8A>ereJ[lA?h񮠫#EuVF!n,0: vd}pC_篍|QSyy$5 ۫Paҥ@5؋={P(="#z[^_j X$԰?jYaO$ݠ H"VZɒ*öo4Vҁa+Dlݠo}ZJ Kl~g`ܷ4:Vc2KC?}oI;r;Zb #wcf= 3gPѽr8w${?[{[EqSDAB|&rۓY*n/&zg[b11\16[8~Hs[lsgVCnn ޵>LEIT^5`TL<ʮd'damW_)eW1 VjOQEZ5rcЪF1w7KH-YKXe@ 9IutAazOwϯ-wz8^=S9?C g,:+C>aXT6rFY V+|((i/O)2Qc(j!![|dז_!D9oM4eYPpGC,{ipt ]l$ ]' Hiu'k.ݣDխ ЬRݢ3PPЬRТPЬRˏRPRPЬRݢP ݢPЬPРRbPݢAТRbR2lЬRݢP9 ݏ^#ZVπP[xPW[ЬRݢϓWݢωn-1 nRЦSBcXhBXh BRbUTծ 1T~ݫPkS,RQRP R RP Q{RPQPQSQDDQCaYCCaDRYCbjS,RQRP R RP QP{RPQPQSQTT 1ynn,1?Xզ1 X~ݫ#PsT,RQRP R RP Q{RPQPQTQLЦPRHUDeDDeЦPRHRѮDbjT,RQRP R RP Q{RPQPQTQXX1qUզzPU~ݫϋP_T,RQRP R RP Q{RPQPQTQ8ЦXRERDDbT,RQRP R RP QP{RPQPQTQUUXզ$} X~ݫ PcT,RQRP R RP Q{RPQPQTQ<XSЦXRCRDDbT,RQRP R RP QP{RPQPQTQXX$[RЦhRhWRЦhRh^լмPP} qz?PЬRТRТS"RSbX'Y CXYެWѷYзYTYV VVTV1gUDhDTTVP;PWWЬRݢVެYiRݢݧBԮU*1RB`8Rb1Ѯ06XѹXйX PjX R:SBcVf[BVfZBRbUTZ=[T~ݧDP&RXV VVRVЩSDPB`BRRVTTZ֮Ѯ)1OWR&R?PWWЬRݢZТZZyx4RSBcTdYBRbXVX1EPYV~ݧϘP5N4RFbSUգ #TDRUR~ݤ;UU VVXPZUE7RxbRSBcTdYBRbV ZJRbXE6Rb Ѽ1SV(YS~ݧPXS~ЬRݢϴSSVWRRPݬЬRݢ5ݬݢ*PVPXVЬRݢ XݢrZTZU UUTUDSSDDTTUެYѹZйZTZW WWTWUDDTTWVRER<XR3R*KPXЬRТTxTSRCRbRWS BcBcWxTRB~RbW~ЬRݢ}$TRB!ScnB!R bRBST3 j PZZn1Ь[ S;RQRP R RP QP{RPQPQSQ0CS RQRP R RP QP{RPQPQSQXZRxRRBRbZTծF ZYЮRIVP PPfRGUDe DDefRGRѮ DbTTPZZn17XRRݬЬRݢ ^QTмPP =oo1PV?PЬRݢPRSRSRSSPЬRݢPSݢSRRPRʏRPSʏSSRP|~ЬRТPݠݢRЬRТPݠݢ8ЬRТPݠݢfi:ݏA^-URѬbPSЬRB ϕ PWύ P[υ PV} PYЬRR R\ݥDݩ٪ݥ@ݦΪݥHݦêݥLݦϸݥ@ݫϭݥDݫϢݥHݫϗݥLݫό1~R=0 R^ݥ@ݩkݥDݦ`ݥHݦUݥLݦJݥ@ݫ?ݥDݫ4ݥHݫ)ݥLݫ1PR[ݥ@ݦݥDݦݥHݦݥLݦݥ@ݫةݥDݫͩݥHݫ©ݥLݫϷ1R.GݥLݩϠݥ@ݦϕݥDݦϊݥHݦݥHݫtݥLݫi1[PRGݥ@ݦPݥDݦEݥHݦ:ݥLݦ/ݥHݫ$ݥLݫ1 PRe ;ݥHݩݥ@ݦݥDݦݥLݦߨݥHݫԨ1RGݥHݩϼݥ@ݦϱݥDݦϦݥLݦϛ"1ݥHݫυxPR/ݥHݩlݥ@ݦaݥDݦVݥHݫK>R4ݥHݩ4ݥ@ݦ)ݥDݦ! ݥHݫ S,RQRP R RP Q{RPQPQSQ0CCS,RQRP R RP QP{RPQPQSQT,RQRP R RP QP{RPQPQTQ0DDT,RQRP R RP QP{RPQPQTQլ ݥ<ݧLݥ<ݫAZR0SQSP S SP Q{SPQPQRQMЧXЫT0SQSP S SP Q{SPQPQB PPBhPZBdPPB PZRRQЬR1bS0RQRP R RP QP{RPQPQSQHC PPCPC PPCPS0RQRP R RP Q{RPQPQSQլ ݥ<ݮl PWRХhRh[RХhRhVRХhRhYRХhRhZP ^PѬ`PQЬP@SݬS#PRPRݬSPRRP^ VZЬUޭޭnU Ц,Ц0xURBScfPBRbЭTT{XThwP_Zլ WhUTSQSP R RP QP{RPQPQWYQSP RRRPRQPQ{RPPQxQYYYQQGeTTZP^ TЬQޭޭnQФ,Ф0PxQRBScdPBRbRխPRݬϪPPRRЭSS0SݬφPPSS0PP^) R|W|UQЬP@SЬP@TݢHS=PXݢLS,PVݢ@SPݢDS PXVݢHTPWݢLTPUݢ@TPݢDTPWUX W Լ ЬP`V U`PVW`XU`^9SެRb У,У0 ЬTxbQAP`dcPAPd ^YЬRТRТSRSbɈTCTZPS0RQRP R RP Q{RPQPQSQ4CdPЮR`CS0RQRP R RP Q{RPQPQSQЮRТWެоRТnX[n1VXPXxPP@P`UXPXxPP@P`STRUPBcWlPBcZTRRUTNxXPоR@Sc޼RbЬ R2bTբ Zcբ c բ c bX[[n1Y|Rթ0PRWPS PRR0ЮRЩhRhSXPPP<^QUѬѬgT,RQRP R RP Q{RPQPTQ4SȏDT,RQRP R RP Q{RPQPTQЬRТRȥ8DbЬTޭޭnTХ,Х0PxTSCRbeRCRbѭЭSSRSݢςSS^]UWx?%ReSBcTd BRb[PXݨݬХXY_PZݥ@ݨMP0ݥDݨ>P!ݥHݨ/PݥLݨ P1VŀnS0RQRP R RP QP{RPQPQSQ<ЬTХ|PFRCbCS0RQRP R RP QP{RPQPQSQVVŀWZYݥ\Yݥ@ݨςPݥDݨsPS[ S~ݨ/SS[ݮ ݨIP^VScREPC8YPXЬPݠݠ PRϱȢ#WZݥXϋХXPХd`PdbRSVT[1 T~ݨP1YϝPXc#RDbSˏRR1RPP"~~~Z P惘?PP@]ݬݣ ٰУ RȢ0WGPЬRݢݢ Rݣ У RȢ#W&Pݬݣ 9SSSRRRRWZݥXϚХXRХdbRdTT[1 "ݨP ݥ\Y`YRХdbRdZXЬRݢWϿXRХhRh^eSУh\\T gPTУ4dݣ4PYЬhR4\Q\P \ \P Q{\PQPQRQ,BR4\Q\P \ \P QP{\PQPQRQTP^QЬPСhPh ^ SzP{ PQPPRxRRPRRRCP^RТxSST,\x\\\~fPTPcxTP^QQЬPСx`Px^ "[.VWZnRզ,PRݬNPWZRR,U1Y$UP@eRbpxUPfS@cQaX@ScTRTTXR~ݬP=Uk3y # l!QЦPAP`PBiPW WPWZRRTUUO1rX.WXP@=#Rb< XRЦPB`QaUBRbTSTPUS~ݬTPWZSSTXXSզ P S~ݬ#PWZSSRզ$PR~ݬPW#$ VMS.BCK?[V9.BIN]ICONC.EXE;1'4RnZRRTզ$F T~ݬP-I PР RRSRSTSWPWTnZTT$ЬS"Zn RnTDPccWPP ^%XԼ ԼϥPUS,RQRP R RP Q{RPQPQSQ0ЬVCfCS,RQRP R RP Q{RPQPQSQxRBRbYЬRТT1PdPY~ݥPqdRХVYSQSP R RP Q{RPQPQWZQSP RRRPRQPQ{RPPQxQZZZRRGfЬRbФbּ Ф T1r޼RݥZPbURШhRh^[ЬRТ8ТTPbi޼Rݬ$TPbOP޼R ݬTPb3P޼RݬSPbP޼RݬݬSPbլ1eЬPP8881LPb?PxTQiPARb^Pb1$P1VlUgXbxTQiRAbP`S1iPAP`SWPP"""?PSE^PS޼RSݬ]Pb1ѭ6լxTQiPAP`ЬR1ݬݬ ݬݬYPbsPլCЬPP''Pj?PxTPiR@bP`xTQiPAP` xTTiRDbP`ЬRݬݬ ݬݬTPbXPP< ^QU&Tլ1GмPP D000h00$1?PЬRѢ1xReSBcRb1PЬRѢ1xSeRCRb1֤ЬSѣ+УRb"բxPeR@bRbeR@Rb1PRB1B#RRpBh֤ ЬSѣ+УRb"բxPeR@bRbeR@Rb/PRB$BRRB ЬRݢϬЬRТ1^ЬRѢ1ТRb(բ#xSRCbRbRCRbPRެTdSBSB;RR dPBP^P^MTЬ Rb|R߯ЬSSPբ 1բ,Т Ԣբ bPլ xPP@P` Ь P`dՠd ^ݬЬRRhխSPSխ0ݭAPSТPРQPQ`xQQPA`P`խ ݭ PSSP<^]UЬTTЬ SSЬPݠЬRݢkdPPPPcPePcTPTЬScԼݬ|~RT*P$ecPѢ`xPQ@aP`ݬ |~ЬRRTP%ePѢ`xPQ@aP`|^UzP{PQPPVЬTǏS"ݬ ݏTfPUTSVݬ VT^fPUUPUP^T W VUS2eeP޼R@bccRb- RcP-ePcRcbff:fݬ ePR&efߤߤfe?PRb:gOeKPcRbRg6eѬe#ޤcfߤ-ߤee?PeP޼R@bgޤIcefP ^1S߭&e߭ePRЬPl`ТQAТ ТQAcТТb,^SRn߭d߭dlnTРQnUAnVР РQnWAbnXРnYРnZ`ݭݭݭݭݭݭÏ d^5R dЭLPdâL\n\S `PSgCSPdzEPjPPθ^ЬZԮЬ Ь[ZXЮWЮ Y[VYj(`WWVV XcZcPPcZRPRRЬPլЬTޮUd Td dV+dSS PЮReSbTdSS 蔾TVV1ЬZЬ Ь[ZXЮWЮY[VYz(`WWVVXbZbPPb$ V VMS.BCK?[V9.BIN]ICONC.EXE;1CZRPRRЬPЮT ޮ Ud  PTd dV+dSS PЮ R eSbTdSS 蔾 TVV1PP^  ֬ PQQ ЬP֬Q`֬QQ 蔼ЬP^-ZЬXЬWЬ YЬVYO(`WWVVݭݭݭߪXaߪݬaPPaЬPPP^T~SЬUUVUEaUPP PRRU4b.  R Pb~ߤ`PRV RRcìVUUݬ`WgEcRURRV UUVgE; `PR.R RUPP RUUR gE UP|^Vݬ (`լЬլЬݭݭݭߦB`P^Y`TЬP֬`P֬ЬP֬`SЬP֬`RSPPP@d S~_PSRPPP@d R~~_PRSRP<^ЬQЬRЬ PQUPPUP^ЬQЬ PQTP SSPTP<^TRբ Ԣb0dЬUU>_ScbߤUcߤ Ucߤ5ߤ(Ucߤ_Uc^ERb ZiT ݏ$ZˏRP@Z'P ZQ0RPPQZݣkPRʏP@YZMT|UTX YiP` YiUݣcj YiT ݏ$ˏRP@Y!R ֣ݣkPRʏP@pYR:MRƳTRX PYiP` >YiTݣcj *YiR ݏ$nPXW$WRBbRbX PtWPRUXTRƈ XiƐ XiTUݣcƚ XiR ݏ$W$WRBRbX PWJ$ݣkPRʏP@hX$PR ֣ݣkPRʏP@DXRT13x~-<P(2ݣWPRˏRTDW%R ֣ݣWPRʏP@WRC1|}W[~WYWWݣkPRʏP@WJTUTX eWi ` VWiUݣcj BWiT ݏ ZˏRP@#W'P ZQ0RPPQZݣkPRʏP@VZMTUTX ViP` ViUݣcj ViT ݏ ˏRP@V!R ֣ݣkPRʏP@tVR:MR7TRX TViP` BViTݣcj .ViR ݏ rPXWWRBRbXPtWPRDUXTRƈ UiƐ UiTUݣcƚ UiR ݏ WWRBbRbXPWJ(ݣkPRʏP@lU$PR ֣ݣkPRʏP@HURC1]\0P|^奄RUU+\ݬTPTSeVlTSˆ eTP eTTVݬlš eTS ݏTP^)TTWTSRݢITP\ʏP@c#P\ ֢ݢ&TP\ʏP@c\PUrVUX gSP` gSVݢbj gSU ݏS\$Pˏ\P@cF\=Ѣ oТQ֢\aݢ{SP\ʏP@c \\ ֢ 1^XrSZUPTPG~d7PScԣCTԣ ݥRPRˏRTDj$PR ֥ݥRPRˏRTDjˏRVFjTFj RPݣȁ 2ݥRˏPTDjRDj PPݣȔ1ݥZRPRˏRTDj$PR ֥ݥ6RPRˏRTDjˏRTDjݣȧy1YˏRTDj(P YP0RTTPYݥQPRˏRTDjYYԣxY~6PR(ݣ1ݥQPRTY10W}QVR,R) ݣgDR,|R)wRPPd9MMMMMMMMMMMMMMMM1A%?PD! Dȏ@D ݣgݥfPRR,R)R, ݥfPRTTY1MR)ݣ$0ݥPPRˏRTDj$PR ֥ݥPPRˏRTDjR{ݣ:/ݥSPPRԣR} 1ˏRTDjݣV/VˏRTDj& VP0RTTPVݥOPRˏRTDjVR,ݣr=/ݥOPRR*ݥOPRTˏRTDjT4VT(P VP0RTTPVݥzOPRˏRTDjVݣȎ.R+ݥAOPRR}ݣȪ.ϰP#ݥOPRˏRTDj$PR ֥ݥNPRˏRTDjRPPf3;;;;;;;;;;;;;+P?P'Pԣ'Pݣ-SP^9YNZSݣ`NPRˏRTDj!R ֣ݣ>NPRʏP@jR" %-ݣNPRR"~R yRpMTPR\'ѣ УQ֣RaPRѣ УQ֣RaݣdPRR"R  RR" ,ЬR MP+ݣ_MPRˏRTDj$PR ֣ݣ:MPRʏP@jWˏRTDj% WQ0RPPQWݣMPRʏP@jЬTW/WԤ3P W~!1P3VWxެXhUG#PT VP@3RTbХ3R@RbT1)PT +d* VPhRТ3R@RTb VPХ3R@RIPbVVWݣMLPRˏRTDj"R ֣ݣ*LPRʏP@jWˏRTDj% WQ0RPPQWݣKPRʏP@jЬTW7WԤ;PxW~0P;VWDT=PU )*xVP@;RUbФ;R@RmPbVVWЬRSP?ݣeKPRˏRTDj"R ֣ݣBKPRʏP@jR$ @)*^մZBKWWSݣJP\ˏ\RBg!\ ֣ݣJP\ʏP@g\!1?\PP!8888 P?PPa1Pa4L            1V?PݣRJPb Pc<1QNQ%T i.T`PXPϹP1PXU%T1.T`PXPϹPϬP ϣPϚP1<P\(1)vt$ݣIP\ˏ\RBg$P\ ֣ݣbIP\ʏP@g\tVVݣ8IP\ˏ\RBg!\ ֣ݣIP\ʏP@gUˏ\RBg% UQ0\PPQUݣHP\ʏP@gTURRxRRR~-T`PXVUTUPxT\LRPbTT\\UxT\LRbPb1 ݣjHPa*"12?P~{M#ݣHP\ˏ\RBg$P\ ֣ݣGP\ʏP@g\ݣGP\ˏ\RBg"\ ֣ݣGP\ʏP@g\PPd4LLLL,LLLL<LLLLD*Pn?P[(P[ P[P[PʁO&ݣ=GP\ Pݣ'GP\ˏ\RBg$P\ ֣ݣGP\ʏP@g\PPf04444444444444(?PnPn ʬ%ݣFP\ˏ\RBg"\ ֣ݣzFP\ʏP@gYˏ\RBg% YQ0\PPQYݣFFP\ʏP@gݣ-FP\ˏ\RBg"\ ֣ݣ FP\ʏP@gVˏ\RBg% VQ0\PPQVݣEP\ʏP@gݣEP\ˏ\RBg"\ ֣ݣEP\ʏP@gUˏ\RBg% UQ0\PPQUݣfEP\ʏP@gUURTRxRRR~)T`PXԨ[ ЭnYVU TUUURUR1 T\Tx\\LRPbU\U\1k PݣDPv ʼ#ݣDP1 P2,ZP T% VMS.BCK?[V9.BIN]ICONC.EXE;1lR (T`PXPl P1  T(T`PXPD P?P 1K#1U T m(T`PXvPݣ DP\ˏ\RBg!\ ֣ݣCP\ʏP@g\"\'\ϖݣCXP\Mˏ\RBg@Pѣ sУQ֣\aݣCP\\ ˏ\P@gŸ TPݣdP\ʏP@g P\ ֣ݣdP\ʏP@gRˏ\P@g! RQ0\PPQRݣdP\ʏP@gU\Ux\\L\RlU\Ux\\L\;PlV\V\1hxU\LRPb1ݣ.>Pt ʭ T T"T`PXPP1zʺ1iX1Uݣ=RbPc-ݣbPaݣbPsݣbPe ݣr=P1 P211jP?PVݣN=P\ˏ\RBg#P\ ֣ݣ*=P\ʏP@gTˏ\RBg% TQ0\PPQTݣ<P\ʏP@gTRURxRRR~!U`PXVTXϔ1BϗPVݣ<P\ˏ\RBg#P\ ֣ݣ<P\ʏP@gTˏ\RBg% TQ0\PPQTݣN<P\ʏP@gTRURxRRR~n U`PXVTXTRRxRRBRPb1r T$ T`PXϱPTPݣ;P&  T T`PXuPlPPXPP<^%T;S識RUݢJ;P\ʏP@c$P\ ֢ݢ&;P\ʏP@c\fU\_ "ݢ:PrUPP_ ;ݢ:PsUPP_ Tݢ:PeUPP_ mjݢX:PtUPP_P  Ć5UP^Q:VfSެnоRެ[kYZk19WXݣgPRʏP@f PR ֣ݣgPRʏP@fTˏRP@f! TQ0RPPQTݣgPRʏP@fYRYxRRBRTbxT~PUYPYxPP@PU`RTϧPBeRRTYRYxRRBR PbZZk14P|^ѢV>9TSRݢ8P\ʏP@d"\ ֢ݢ8P\ʏP@dˏ\P@dNSS`PUSˏ\P@d& SQ0\PPQSݢ8P\ʏP@dS1\[ Ɵ^S S`PUݢ:8P\ʏP@d$P\ ֢ݢ8P\ʏP@dSˏ\P@d% SQ0\PPQSݢ7P\ʏP@dSݢ7P\ʏP@d#P\ ֢ݢ7P\ʏP@dSˏ\P@d% SQ0\PPQSݢn7P\ʏP@dSUPP^ Wv7VRݢ07P\ˏ\SCf!\ ֢ݢ7P\ʏP@f\*1\PP*Xh4 P?PPl1Pl $X1sP~?PPUPP16PݢF6Pe"""1"?Pݢ6Pw _ PXݢ5P\ˏ\SCf#P\ ֢ݢ5P\ʏP@fTˏ\SCf% TQ0\PPQTݢ5P\ʏP@fT~PUXTST\T\1LS\Sx\\L\PlT\T\1*Pݢ:5Pl ,U1P1!PUϖP1PPU P1PPUvP1oPPU!Pݢg4P\ˏ\SCf$P\ ֢ݢB4P\ʏP@f\C^\fS1ݢ4P\Tˏ\SCf% TQ0\PPQTݢ3P\ʏP@fD(1P 1 PUUPLP~Pݢ3P+ ! PUP P>PݢN3P* -DQ PUPPUP^͜W:3VOSԭޭYݣ2P\ˏ\RBf#\ ֣ݣ2P\ˏ\RBf\$1p\n1P1_ݣ2Pc1H2PRˏRTDf%PR ֣ݣZ2PRˏR\LfR$1:ݣ82PRRPPcBZv&j1?Pݣ1PRRPPb41?Pϡ Piݣ1PR1@P=9 v PiPTcPݣm1PRˏRTDf#R ֣ݣJ1PRˏR\LfˏRTDf A(UˏRTDf' UP0R\\PUݣ0PRˏR\LfiTU1_1rݣ0Pf)zv ϗ Piݣ0PR16ЭPǁ~ i Piݣl0PR1PLjDžy > PiݣA0PRˏRTDf#R ֣ݣ0PRˏR\LfˏRTDf njUˏRTDf' UP0R\\PUݣ/PRˏR\LfiTU1VǬǩ ώ Piݣ/PRˏRTDf#R ֣ݣn/PRˏR\LfˏRTDf ǯLUˏRTDf' UP0R\\PUݣ/PRˏR\LfiTU1Piݣ.PRRdiTݣ.PRˏRTDfT6UT& UP0R\\PUݣ.PRˏR\LfiTU1*RriTݣn.PR1 c 1ݣO.XhPRˏRTDf RdfPiRdiTݣhPRUˏRTDf(P UP0R\\PUݣ-PRˏR\LfiTU1nRrϬPiPTݣhPR1HPReݣhPt  DPiݣk-PR1ݣZ-PRRPPb4||||||||||||||||||PRP?PPiݣ-PR1P ϲPiݣ,PR1uP  1bϩPiݣ,PRˏRTDf   UˏRTDf& UP0R\\PUݣj,PRˏR\LfiTU1 9Piݣ<,PR1P Piݣ ,PR1P-  1R$1+TR"R'RϳݣdPRR ֣R H  RUѣ УP֣R`ݣdPRU R PݣdPRR R$bPiPT BPiTY1c a iPf = |^VrSѣ УP֣ެTd`ݣ*PRRd1R}*UR\:ѣ УQ֣RaݣePRR Ɠ  ѣ hУQ֣RaݣePRRd RRƴ Y ѣ УQ֣Ra^]*WrSݬ PVmPݣ*PTˏTRBg$PT ֣ݣ)PTʏP@gUˏTRBg% UQ0TPPQUݣ)PTʏP@gRUwPBRRUVPP<^1U)TﳪRݢX)PSˏS\Ld"S ֢ݢ6)PSˏS\LdSPPb/hBhhhhhhhhhhhhhhUB?P P P P |^YV(U۩Rݢ(PTˏTSCe"T ֢ݢ^(PTˏT\LeTPPT"S#########################1P?Pݢ'PSTˏS\Le& TP0S\\PTݢ'PSˏS\LeT炙1D$PPݢ'Pd2::::.:::::::::61CPR?PPPP1) Pݢ:'P\\ 1\PP ff P?PP 1LPc1Pc<<<<<41?Pݢ&Pi1PPP1Pݢ&Pv1&E5 VMS.BCK?[V9.BIN]ICONC.EXE;1ba Pݢ&PnkPݢ}&PvT Pݢf&Pc.6666666666666662P*?P P PPP ^J PQԡЬRP`PR|QP^PxPPP~ Ь^uTR%Sݢ%PQQ1QPP  PR?PP$p1PdePd D(]]]]]]]]4E?P$S1zPS$0eS1lSe#nS1_PSn֢  S1>P^V$Y$T Rݢ$PSʏP@d#PS ֢ݢ$PSʏP@dߕˏSP@d S S ֢PPSݢH$PS֬S' XЬWЬUSƻ i'$ i$UWXݢb i#S ݏ$^VYެXhRR1 b~p#P_PS1TУRdUˏRQAePѠR `PѠRP1SˏWGcSGY3 2 l PS{~"PPS8 7 5YP^ˏR޼QBaPѠ `PѠP^W"V@ ""ݏ"Pެ UPeЬSQ@a@cPPeTRެ UReSBcPPP@fTRRe QRRSAcPP93 Pz&PT ޼PaA`0AP0AT PЬPA`Q<^%"TSRˏSP@dˏRP@dRSQ QPˏRP@dQPRSQQUWЬQЬPSRˏSP@dˏRP@d RSQ#PQPˏRP@dQPRSQQPUP^q!RЬQˏQP@bˏP@bìQPPˏP@bPQP^תּS!T/RլX d P` d ݬݢbj d լ ݏ P^ES TǡRլÈ dl PÐ d[ ݬ ݬݢbÚ dC լ ݏE ^݉RF T_Sլ» d P dݬݬ ݬݣc dլ ݏ^WެV׶ެUеRֵbSS0aS7\0SPնHеRb0?b7:P5P׶еRֵbTxSR0TTRSPնеRb0 b7PˏSPSx1RQն1еTdTTTDg|QwP׶еTֵdPPaPf P(PAPF7PˏPTDg0PxRTPTRQնеTdTTTDgQRPS^ նP׼ЬTdRdbRˏRPC۟P<^ PSP>RbRPЬR׬RRЬP֬`RR\߬߬RPRRUUPxPQʏQUeSTψߦF~ߦEyߦO~ߦHjߦa~ߦQ[ߦd~ߦcLߦz~ߦf=Ƌ~ߦ|-ơ~ƍƳ~ƣ ~Ƶ~~~~϶~ϥP4gݬݬP ^YXێTV UХSգ1ݣݬPfWЬRХPݠݠďfWR+b'R.P P@b @bRĤf(WīfhiPcSգլW=ePѥP#'ݬPW)P/ݬPWWPPSХcW ݬPԣЬ8УRPRP]DwD(DRDERP0Х0,S2P^P^~ݬլݬ~ݬ^=R-P\\b\P\\^ZW7TPФ(RR, RSR(cPФ(YФ0[Y[1iXXRRRBgR X_1YUU[:eSSRRRBgRS_!UU0eRR\\\Lg\R_U,Ф(SSSU~SP ֤(XPU(PV Ф \7P\Pl ФlVФ(Ф, Ф0\ S2RSR,Ф,(2 R(R01PYRY(RSS[1cRR\\P@g\R_S,XP@gSPSlPR# Ф0,XPR"R'PS\lR\Q8P\lPPR(P$PP\\l\QP\lPPRP\QQScSSS01YФ0,XPդ+ФRТS Т(Т ,Т0bФ bR 1PФRݢ P$1Ф$0Ф0,Ф,(Ф(UФR֢eSSRRRBgUeSS\\\LgS$!RRRBg  U~ 1Ф$Rl-i&neb#  U~1QФ$RR(RRP0Ф(,12PФRѢ8z1USݢݢʏS/c+SP P@c @cSʤUʫ|fHФRТ8ФRbݢ Hݢ"RФSdRSRPУRУSRS]DD(DRDRP0Ф0,17P^VWOU<d~P<d@ݬPQQPQ BP<R@TRPRSQT>ݬjPRR ,R#RTݬGPRR  RT <Pd@@<P<@Dgݏ<@SSdT1\^IRЬP Т TPTd ТdЬSSТ(Т, Т0T Q2PQP,Т,(2 P(P0^TڔRݬݬ]DPD(DSDSP0Т0, ^ ZNV;X0YyW$m((0Ч0,ЬRbTTPPSChPRbTTPPP@hT#Rb PRbRR[[TЬQaSSPPRBhPS_SQaSSPPP@hPS_dQQRbUUPPSChPRbUUPPP@hU#Rb PRbRﴯSc1c[%P1ݬPQsjPѣP#bQTRЧPݠݠƏiR+b'RP P@b @bRƤiTƫij[Sc1doS[RЧPݠݠƏiYR+b'R0P P@b @bRƤi*Sƫi<^=T&UoRТPݠݠďeЬS,c(SP P@c @cݬĤeݬīei|^ｄSURïVЬTТPݠݠÏeVT+d'T-P P@d @dTäe'VëݥP^5U"VЬP`SSRRRBfRS_LPXXTPQaSSRRRBfRS_SQaSSPPP@fPS_dQ PſP(PЬScTTRRRBfPScTTPPP@fT#Sc PScSSW1ToT#jT"T'RЬP`SPR5P`QQS(Q$PQ\P`PRPP`QQSQPRRP֬TT#ЬRRRRBf׬ЬPPPP@f딼W~XK P^﭂V UЬTdRRPPP@ePR_LTWWSTRbQQPPP@ePQ_QRbQQPPP@ePQ_cR P$PЬQaRRPPP@ePQaRRPPP@eR#Qa PQaQP`9P~Wp P^ρT S XUݬVVNPfTPЬQaRRPPP@cQaRRPPP@cR#Qa PQaQP`pPV4P?PičWVRХPݠݠďh R+b'R P P@b @bRĤh Wīh fPP^﵀W UTSSPPP@eǙPSP0PV֬SSPPP@e" VQSPPQ0QV֬SSPPP@eЬQaRRPPP@ePQaRRPPP@eR#Qa PQaQRRPPP@eP R_R"ݬSSψPcǯPSЬQaRRPPP@eQaRRPPP@eR#Qa PQaQP`PФPVSФPݠ ФRSPФPРQРPQP]D D(DRD RP0Ф0,P^ݬ^ݬ^~W V'R8ЬUeSSPPP@fPS_IUXXTUScQQPPP@fPQ_QScQQPPP@fPQ_dSPЬQaSSPPP@fPQaSSPPP@fS#Qa PQaQP`PX~XϰSPS̬S PP|^}SV+RТP' VMS.BCK?[V9.BIN]ICONC.EXE;1Up8"PЬP`i3UPTТPݠݠÏfyT+d'TPP P@d @dTäfJUëf;%CP ^Q}SRТP8XPЬP` Pj8P^}YWCTФRݢ P$PU1ZPФP֠Ф$Pl.i'n e`# PPE1QPeRRPPP@gUeRRPPP@gR$1%PPP@g  1U~PUUVVSURbQQPPP@gPQ_QRbQQPPP@gPQ_cRXXPXfif8|~1ɏVjP X1ɔVjPѬlɚVjP_h XɟYn8լ?ФPРQРPQP]D>D(DRD RP0Ф0,ФPݠ P$PU1Y^!RQQPPP@bP֬QQPPP@bQ#֬ P֬P^R֬QQPPP@b֬QQPPP@bQrQR-֬PPP@bP֬PPP@bPЬPQ.*֬QQPPP@bP֬QQPPP@bQeQE9ЬQPP+P-Q֬PPP@b֬PPP@bP^ЬP`R֬QQR(Q$Q\ ֬ЬP֬QQRQЬP^RQQPPP@bPQ_'ЬP֬Q`֬QQPPP@bPߑQ_ٔP<^EUЬRb"DЬTRScQQRRRBeRQ_QScQQPPP@ePQ_dSPЬRbTRS6RbPPT(P$PP\RbRSPRbPPTPRSSTd"TP֬ѬT.PЬP֬ЬRb``\ЬQR֬ѬTՔTP^exWZլݬPլPSXެUSe T%XQCdPP2PPPQXSSeQXPЏSSSPSQPQ{SPPQQYI4VfRoS2PPcXc ݬ$PEլ bfRKPѬ & Q2PPQ~ݬ oP ݬ3RPbVfRѬ լ PݬPUݬ PT URTRRROV"T/ZP#GaC'ɫhi̫kzXDneuY9?l30S2*2|dBK5A |DQ"UQ|y? q. R8'%Uà q9\K skLddL2"Fp?c7҂(9$oL$!AfSRgO8-}5 Xo؍rCݲ~^/#Vt{Ȩ@ r!9}&Z@O靮r@$ 9QO9T,D~ƧfvA~ͺ-`PS'c}ɩo2h7.ϡ]\34!X5ǓJ6SyV5pY4A_B_$ Qr2L󸍼`)XmEPR 3_x]\˽С;L@ʤ$Vcg ПsjuŘT*@x=?B?{5&E7*PMBR̆EW+Pt|UN^M>y#+]Kta+ATJ&J ?dޔVc4̇OÂbC*HW~WEˣ7M!:)R@ZRk`<)[Ms.."hgc@,4 ^O1\o'Y E&~30=#pat2@)A Jf;mF\~ )g} ۻy(9f( O$#mAVV=BER^9-% ]Fe}哦H)_{q/p@J72QNql]zX4jsn{@yVy'^.30mK ",Z UwS){ b^ֆfR9^7bff$H^ÄBdd!y}mHPlESj^|Gⓔq(4ח%$՟),@dZVķ 0j7f2KpI@@8фW,u2mnX߱9,3B3XӱOud}ž% wpv kӇ,*NcNGNM@墟%܎h/etB+yU۪qQ`Bj6rٱ x:l=5eLv?AÕ^\t:a^2zTٔ#W$eP$gW3l[cFkp|y.o ~3BD9"Zӥ#Y2hTy2 %uXj:YMa}fI$qZxr>SV3H'ϾdJVxY1rֶpdKEI "> "Ægi82sƇ *xGjjVxspQ.vx%Z=Q\JYel7w ϝ_ T)@_yг;}Jqp}eE}wuf'g*6^@z` n @Jy~lّ!!`MbK`wԂ!>+ 7z|Ux`0P[(>uXgCM="v*fT|#_a䞎rfbMb$eX-)eu[eJ&|MG g|jŹ۾ )VCO+'uCN-F o+i XgG>G \q5^SThz7pfBMk=E^4[ /)J[U*S2_l|6_dcg(lPsL|7Bzu4 8 *yymyiP8 ҮJ5A\8^Pߋ}0liTt# ,筺WD(2ͤ u%mzHVj̼e:T xOၭl]̧AΓlq!@ܥ@nBz*ٮ*)#S{~99mgGN,n_"L,YuKRT˂f8A :ƍ7wƒ#?JI o]/9P&9z' EvHGه<]+ҽOYv+K5GQ$t|Fw]ݽ:uV Bil̢qr-9^*XY3azL# Tݨ11!;sE륽oꛒ7AO+km8ݿQ'ЏEkK$Z. 8,yRIPO4SZgmaրpiLjcD,嬄SJ*/9E8$f=8+|2 fGP5c3A"ԅ$ee6=EW1x vp,<&r,-` _%AѕwsafL&L:n,OG^m7UPb[G56}1$+zJQ /C`'D! F!yh> `/5c摳kRfv'ubNѢIa7ekPmő}IxZW2UǸps.tl' 0:X9T|% =.2C,x=0x8v5&<#7Pl&OȨ ZnSԤ&$(AgA4AVܭbp^a^wҽ=+qGҼe1j;lpWw jI놕 YV<)̶@.Y*Y_f.`Vghvle. .=g(>~x$g=&ͪLh4{{.S/ kʱ/F˄"le/{;R<Lʫ?qRQBfdUtw ժ/E*kI$gĊV!ouEf<ԡ5beCHdDŽsX (gQ# }č 0c- p]1ķF$#\2'݀ٴ+YkǴ!Sގ)5r+z+`͒0O~Cfggї"h[g* M|<\iw H{gnzoq>ZzeCF1N-S!}Fp~[h'ǟGH ;<#LbW 'X̽=/v\~ Qub>X%EGP{vV릇UM5obן JL!JoV )РF5[r}QdFOnz xĥA~D'Ru~Ur@Ӫ#4[dcJ,C62H-.L+}ɞ{!o+=F0 y82h̪8ʅ`vb+sX͘Z`QLϝF"VmT]G~gCqqNiov44SwWʔbeoP:⑉rv  q9YEl7 S2} v#)u=èM~j]&.M%qT0Tf:WHlj }уVSK/cU L]OkFBqpdDl@0H&93 TFpe ]Pal6z'/|C5#tU0XDEduVMSu`QQobGn!^,!jl4WylH[F w\kNqj{-lG\H}wSe,ys^Ŀ[.F1eך9k Nʩs^ t? QUNOFUeLC$Wba#p%^G,%KpJR9qɖ~`]w}ݝO.&GkX3nIx/)~8cq`JEhCj1 4W 艨 9y= Y'|{Ϡjd^cYQɬoH!M SҊx?O\7s;R-f|@OZ9 !T,9u,87JynrRHAG7"AUJ#&N"F A`$E15SJU ' ?un[,4O xfGH1tJpU "1xlk $WHQ߾Ɏ#"%Ǟ&p8 dxV>B v)<'[YBMԓB줊o-]~'Z%" XWvDƗ' y26xͪ>~b/Iz88ri:\1ãNulyR"–/&餓i2:+< ~ 2r4s7O6F$F?R}E8R.%d CQ&}MBk; ZSLQY %o+VG9'N^׉ xF98*ioؑS ^ n.Dp}Nl6w Nf/cC1JDmuФ{:ui.EqF {Zp?X=%07U=OXANKGWUzOÊ}WNƐm<"χŒ'7ڜ*ϡ68s;Z-0}Rx$LK2`֩E}[pGitEh0b&"C}qb?dR%?Fw4g 8t;=>irP[|too kjӔ?KJQ ˮMzug |LJDQ5ή{5s% "Cş8E߸w뭾s6[m@ivMlU9ʝ^%,ٔVq4&W2|YտTWNZHIR[ٚ}Ec ^<;)H"<|QSѫGҀB|pL_s)#F=$¸-~$ݍu-A#k(ّN3ae:' jWt71cCx6˒5 SW6aSa06oR\tq,xOLF|uPkeUgŖNH9OàH44s۫.!󗵄^e-]hFJu6w]j~R!gD1Xtы/Ѳju$Iu'{ 7U7P;=q4lN./qDـKX:b<#PG:VW5M!=$yk.*O[e0TB3sRֵ0|G¹9 {ǟqoiPl.uQYV͎yn>C\id!GhEϖZRAb2pn&C7}O=c4A sU[lⴙ"R]dV" 4&kNxm³VQY#LDL>QeoQLUK?zNJ'?N&7= )uW~X O<`$(a?_ʬM`arP S4w@teO3Z2w))]=s;0L&^hB:!&~6YР X}ʁV/t]~Ф/&Q1ɯs^ݠn(j `mܺ/5ͨ%w,ք\ B e=:!GL(w ;|@QZ# g=OȔr>jCQ*.[IH]"yn+8%.ҌUAWx ;ScI؝\7ڌ٤]pA,2x͈'%?E/*,ˠ42T@RS@$mbd?wbB.t0I4D<È,WQV$Z4|$TeT`(˔4GIJ4?D9/Wz[.UڎRNa7l\y7ֵ Ͻh٧:teW^n#%G(jXt& us.#pJ K?ݙNpt,pK Hz'2='}cuWVx~ c$wԗYS,)O7\>[*VP =U uy #WΦN}W]pT| p 3#P!=w#qRnga)@=s} u+b?*T3JP(, aw90BC>Fɀ2K`1*+qAGYt2<ƄImE{jAŲUo|FQ{ҘSTH$]l3Nf[Sv5r`%n-){1'I*v$6YV9}~ m!)J:P;ZGoB5BKI Ty͕9#Ʃq*!'jq%p1p)à 76oJ>SbV^wFK04bf ~gS#5ک5?m|s?ܳ'dAFS&;-m@ VMS.BCK[V9.BIN]ICONT.EXE;1qolonmissing colon or ampersandinvalid case clauseinvalid default clauseinvalid case clausesyntax erroridentifierinteger-literalreal-literalstring-literalcset-literalend-of-filebreakbycasecreatedefaultdoelseendeveryfailglobalifinitialinvocablelinklocalnextnotofprocedurerecordrepeatreturnstaticsuspendthentountilwhileend-of-file!%%:=&&:=**:=****:=++:=++++:=--:=----:=.//:=:=:=:<<:=<-<-><<<<:=<<=<<=:=<=<=:===:=====:=======:=>>:=>=>=:=>>>>:=>>=>>=:=??:=@@:=\^^:=|||||:=||||||:=~~=~=:=~==~==:=~===~===:=()+:,-::;[]{}$($)$<$>invalid characterinvalid radix for integer literalinvalid real literalinvalid integer literalinvalid digit in integer literalunclosed quoteno line number in #line directive'"' missing from file name in #line directive'"' missing from file name in #line directiveFile %s; unexpected end of file Line %d # "%s": %s ???File %s; Line %d # "%s": %s File %s; Line %d # "%s": %s File %s; Line %d # %s %s: allinvalid operand to invocable0not enough memory for invocable listnot enough memory for file listparser: out of memoryparse stack overflowfailinvalid keywordallocatedasciiclockcolcollectionscolumncontrolcsetcurrentdatedatelinedigitsdumpeerrorerrornumbererrortexterrorvalueerrouteventcodeeventsourceeventvaluefailfeaturesfilehostinputintervallcaseldragletterslevellinelpresslreleasemainmdragmetampressmreleasenulloutputphipiposprognamerandomrdragregionsresizerowrpressrreleaseshiftsourcestoragesubjecttimetraceucaseversionwindowxyinconsistent redeclarationredeclared identifierinconsistent redeclarationinstall: unrecognized symbol table flag. local %d,%06o,%s con %d,%06o,%d,%s ,%s ,%d,%03orecord %s,%d %d,%s errorlocalimpl %s trace link %s.u1 invocable %s global %d %d,%06o,%s,%d .u2.icnrcannot open %swbcannot create %sunable to write to icode file.u1.icnrcannot open %s%s: Line %d # :"%s": %s%s %s: Line %d # : "%s": %s ucode file %s has no version identificationU9.0.00version mismatch in ucode file %s ucode version: %s expected version: %s U9.0.00inconsistent redeclarationinconsistent redeclarationill-formed global file %sprocedurerecord global discarding %s %s .u1rcannot open %sno record having this field is ever createdpnullstrnumberapplyinvalid keywordefailpnullnoopline number tableglobalstaticarglocalgencode: illegal constant gencode: illegal opcode(%d): %s file name tablelabelsfound rec %d field %d already!! never found rec %d field %d!! cannot write icode filecannot write icode filecannot write icode fileI9.0.00/32cannot write icode file header %7ld procedures %7ld records %7ld fields %7ld globals %7ld statics %7ld linenums %7ld strings %7ld total %7ld code buffercode buffercode buffercannot write icode filelabelsmultiply defined label in ucodestring spacestring spacestring spacestring spaceIPATHmain.u1cannot resolve reference to file '%s'string spacelocal symbol tableundeclared identifier, procedure putlocal: global not in global tableputlocal: unknown flagsconstant tableputconst: bad flags: %06o %011lo asgnbangbscancatccasechfailcoactcofailcolmcomplconcoretcreatecsetdeclenddiffdivdupefailendeqvereterrorescanesuspfieldfilenglobalgotoimplinitintinterinvocableinvokekeywdlablconcatlexeqlexgelexgtlexlelexltlexnelimitlinelinkllistlocallsuspmarkmark0minusmodmultnegneqvnonnullnoopnullnumbernumeqnumgenumgtnumlenumltnumnepfailpluspnullpoppowerpretprocpsusppush1pushn1randomrasgnrealrecordrefreshrswapsdupsectsizestrsubscswaptabmattallytobytraceunionsunmarkvaluevarversion%s: %s -- %c illegal option%s: %s -- %c option requires an argumentsalloc(%d): out of memory alloc(%d): out of memory r]:%s%s%sdefineundefifdefifndefelseendifincludelineerror_V91_VMS11_ASCII1_CO_EXPRESSIONS11_EXTERNAL_FUNCTIONS1_FIXED_REGIONS1_KEYBOARD_FUNCTIONS1_LARGE_INTEGERS1_MULTIREGION1_PIPES1_STRING_INVOKE1_SYSTEM_FUNCTION1_GRAPHICS1_X_WINDOW_SYSTEM1LPATHcircular include-stdinrunterminated $if rline(%d): out of memory#line %ld "%s" invalid preprocessing directiveFile %s; Line %ld # "%s": %s explicit $error$define: missing name$define: "(" after name requires preceding space$define: unterminated literal$undef: missing name$undef: too many arguments$include: invalid file name$include: too many argumentscannot open$line: no line number$line: invalid file name$line: too many arguments$ifdef/$ifndef: missing name$ifdef/$ifndef: too many argumentsunexpected $elseextraneous arguments on $else/$endifunexpected $endifextraneous arguments on $else/$endiflineendifelseextraneous arguments on $else/$endifvalue redefined   A S f ~    "#+2I3m45678!9E:i;<=>?@AAeBCDEFG=HaISVWXYZ(`Ea_bzcdefgj5kLlcmopquvwx0yOzn{|}~'PyFo<e 2[(:Zk|&7HYj{%6HZr./L2b4v79;<=>?@B*HAJSOcUuZ\^_abg h4iK_  !"#$%&'()*+,-./ :;<=>?@AC GHIJK M OPQ S U WXYZ[\]^_`ac ghijk m opq s u wxyz{|}~ """""# ### # ## ,# 3# 8#:#@#L#V#a#h#r#~########### #!#"###$#%#&#'#(#)$* $+$,$-$.$/&$0,$14$2;$3?$4F$5O$6U$7\$8d$9l$:q$;w$<}$=$.F VMS.BCK[V9.BIN]ICONT.EXE;1Q>$?$@X-d TX\aelqw} !%+27<DIMQUZ_dhmsx  $(-16:@GMTZ]bhny&49CJQW`mzd: bq$s%u&y'{()*+,-./0123456789:;<=>?@ABCDEFGHIJKL M N O P Q R S T U# V% W' X+ Y- Z0 [5 \9 ]? ^A _D `I aM bS cX d_ ea fc gf hh ik jm ko lq ms nu ow nz o} l m$+)+.+,4+8+->+.E+/K+0R+lW+]+ja+1g+2n+3s+f{+++4+5+g++6+k+7+8+9+k+T+:+j+;+<++n+=+>+m+ + , , , ,, ,?&,@+,h0,A6,S<,BB,CG,UM,S,W,\,`,e,m,br,w,~,,,,,,,D,,E,F,,G,e,H,I,J, ,!,K,i,",#-L-$ -%-M-&-'-(&-X,-)1-l7-*>-NE-+K-PO-i%PatchStringHere-> -=-$?-B-B.C .D.@.A.=XXXXY YYh:lFP@797<F6w7kjYDAnCE`v^H)dG2I=E45@6<?BDGHvWLvMK?iYtX1&T[\]^vVcSa=f_b>ivU3;vg`aAed85Z;>:vF@9v7<,%qhrJ_2ACsERQP$OGN2MI=L45K6J?B1D/H*W&T[\]^YVXcS(pBmf_"bo!U3 g`aed8 Z;>:F@97<  ACEG2I=456?BDHW.T[\]^YVXcS-f_b!"U3g`aed8Z;>:F/@497< 0 ACERG+2I=45C6[?B#DHWYX~jyx{z|}''()*+#$%&#ST#VWX\0bebkl 3     Q,-.]kTYZ\5$3-)6W+^1D_FaH/RcV enl' #"hhjek'R98=<[]40.2*,7&XEIMKC;`dGQOA?bS(U!YFPN@>aDLJB:_HcZ\-3/1)+6%WVT$lne5heofhokm     fkkmjgiohfnfl  mmokjj" &+,.0QTVehmrtx $%yz{|}~+ )-/123456789:;<=>?@ABCDEFGHIJKLMNOPRUWXYZ[\]^_`abcdfgijklnopqsuvw+!#'S(k*V* * ** *!*%*&*(***,*.*0*2*4*7*8*9*:*;*<*=*>*?*@*A*B*C*E*G*I*J*K*L*M*N*O*P*Q*S*U*X*[*]*`*b*d*f*g*h*i*j*k*m*o*Wf*h*Xk*o*Yh*m*`* * ** *!*%*&*(***,*.*0*2*4*7*8*9*:*;*<*=*>*?*@*A*B*C*E*G*I*J*K*L*M*N*O*P*Q*S*U*X*[*]*`*b*d*f*g*h*i*j*k*m*o*a* * ** *!*%*&*(***,*.*0*2*4*7*8*9*:*;*<*=*>*?*@*A*B*C*E*G*I*J*K*L*M*N*O*P*Q*S*U*X*[*]*`*b*d*f*g*h*i*j*k*m*o*o(k*u(k*h*m*h*f*h*0$@˖ VMS.BCK[V9.BIN]ICONT.EXE;1=7f*h*m*9k*o*Oh*o*~d_%}i*T<<<<<<<<<<<<<<<<<<<<<<<<{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<%}=cw^O%JFii****<%@p%%%%p%%PG<KJ   !!!!!""####$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%%%%%%%%%++,,--.(((())*2233//11&&&&'44400            ^Y{U| iP~念Phߥ8r'P`RR{ߥެWgެVfPRR1TSRPPC5y]}]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]] %]]1P?P11P1ߥ2gd11i 1s~icPa~icP111P1i]1P11ou=kPU_PJߥRiP iߥW?'-$)dݏlߥgf.PRR1WaSSxSRRhTdPP(RdPPXxS~dPnPW%1ެZjL ﳠ$ߥtP@ P1ߥwPj[@k P'Ю(P(ޥy`XRXWPWޥ{``bń1-P@kPSУP`ōP(P1ŒePjV@f,ݣ Ю(R((PbŘ)P@fŗ,XTX(PPdŝP@fŜ,(PoPšݣ(Pťݣ(Pũݣ(P+ŭP@Ŭ,(PP~P@kű;=ic1hghԾ(X()7ݏARbP0PvbPlPlڻbPлPػbP P &bPP8Ѯ(@XݮJP ݏIծ ;+ݾ-PPmBPb-'FP欄P)ݮ^PSnRbPbRbS־gݏbt:zV/xLRRR~ݮP|^UVRuUSެ RC PSC`SPxP~PTTPPQPRfaլ ЬЬЬ P `PЬ P `bTffa:^tRtM^ռPЬRb7Rռ^}t\)(ݏ ^uSݬݬPR àO9RPP^iuUм SSRQRPR RP Q{RPQPQVSVRRSVŬVTЬRìbWTݬQPSݬŮB9ż PPT P@cPPTV ЬRWSbSP^RެQRa PxRRRaRP|^qxVSTUWcռЬP`VdcռXcRRfe.PRRߦ eP ߦetcP|^wSTuU~Vqﾸ嘆F$ݬP ݬߣ7ߣ;ߣ.Ĥߣ=ݬPޣ?ݬߣEϼEﬤߣKݬߣJǝߣO}PfߣQz7ߣcݬߣbߣgHPeߣiE7ÆߣzeEPR æ6Ьﭷ~V8fP eP Î~6ܻP^AvRլ ¦@6^̠ݬ^vXﰠYЬVWfPP']uu5YQe%Miu- q YIq9Q)]1BPn?PЦRѢUh ݦcЦRѢUߨݦEVߨ ЦRѢUߨݦ1PRiSRiSRިTRT±ZjPUeDS֣ݦDSףߨ\ި!TR~TxjPeRdjPeݦτR~FjPe1QPߨ&ݦXfߨ,ݦCVЦRݢ$ݦ1 PRiSRiSRRذPߨ0ϐDS֣ݦDSףި6TRT_Pߨ=N1PDSգߨCV21sRգߨ]RDSRDRD(bݦXD(DDRިdSݢS͸P1RiSRiSRɘR٘ɘSԣߨiϚDS֣ݦDSףߨozݦɘSգߨt`ɘSݣϳ ߨxHRl5PXɘ1jЦRb;Ѣ 1ɘRբߨ~V1PЦݦ1(PRiSRiSRțTRTZjPUeDS֣ȠϚݦVϗȦςDSףȪqȱhݦȵT٘T{jPeRgjPe1rݦτݦ|1_ЦRѢ( ȺݦYЦRѢ( ݦ:ЦRѢ(Vϼݦ1PD1+< VMS.BCK[V9.BIN]ICONT.EXE;1)LSDRТDDRԢRiSRiSRTR~T^UeP~ZjRrePj1TR~TLePjDS֣ݦdDSףVR~ePjTR~T߬ePjR~ɬePjTRTﮬePjDDSRТ1SݦSt=P`1wݦψPWݦ}PW1]P 1NݦWVЦRSݢSѴPݦ1P SݦSԫP1 ѶR0SiTSiTRTRTVPyDS֣ݦϝDSף,ݦτR`#TR~T;UeP%TdRePdݦ9R~ePd1 ݦ1 P(SݦS̪P1 ݦݦ,S~S]P1 ЦRb RϠP33ݦЦScRS PSiPRV :TRTPW1 PVASݦSP1 PݦVϡGόDR֢ݦDRעMk1 S_ЦScRS' SϡPRVCYTRTTP@W1T PЦRТPP8FFFFFFFFFFFF FFFF(1P?PRiSRiSRDDS< RDDSRDS_χݦevЦSc5idDR DR֢ݦϫDRעo: S DQP=vDRݢ&PD1(PRiSRiSRDDS RDDSRDSRͧZjPUe|TRT蠟jPeݦDjPeȁEȈTRTbjPeDRݢHjPeDݦݯ1HPɜRRȍV)RiSRiSRDDS< RDDSRDSȩϤݦVϡ ȯόȵσЦSc6ȹqDR DR֢ݦϸDRעȿG SD]&PIDRݢ2PD14PRiSRiSRDDS RDDSRDSR٥Pϐ ݦЦUe7v TRT\Pݦϫ UDa+ZjPKUe TRT/jPeDRݢjPeD1RiSRiSRDDS RDDSRDSRŤZjPUeTR~TjPeݦϺQ H R~jjPeTRTOjPeݦoD1jPe TRT jPeDRݢjPeDݦ1DSީRSRc VO&1ѣ ,ѣ&RSRS&_ RDSSRS-SDSi2PU1lPRiSRiSR2TRT5P!DS֣ݦEDSף7 > RPDϦ 1PީDDDRԢDRԢHɘɜЦRݢJ`PBtBS4 V9 Ц[kxRiSRiSR[TRT5ZjPUe`TRT jPeݦ,e RjPe [ЦRb R Rcݦϋlv rm ЦRݢvtMݦݦ1|P|SݦSPP<1SɜRRȁV#ЦRѢݦvPRiSRiSRȤTRTPDS֣ݦDSףVϒȩ}RjPVfȮQݦ#1ЦRѢS ȴ-ݦυЦRѢS ȺVȿݦVVЦRѢS ݦ1PϷݦݦЦRѢg Ѣi φݦݦςЦRѢg _Ѣi IVN9ݦ 1rRiSRiSRTRT=P)DS֣ݦMDSףRɧPݦ1SݦSОP1σݦݦjVoZ1P KݦϣݦϛݦϓV8#gVЦRݢϺݦjVЦRݢwݦɦ1PSfSΦP VWP^aTSЬPP%GLJ@>(&db|zpn42XV1_P>?P:R1{S?R1qPSER1ePSIR1YPSNR1MPSRR1APXR17S^R1-PSfR1!PSlR1PSrR1 PSxR1PS~R1PSĄR1PSĊR1PSĐR1PSĔR1PSęR1PSğR1PSĥR1PSīR1PSıR1PSķRzPSĽRnPRdR\SRRPSRFPR<SR2PQݬQ︛PRfS Y^_RЬPP$?2P?PϫϢϙ"ϐP( ^^SЬPP$?<<<<"<<<<<<4<<<<<<<<<<<<<<<<<<<<<<<<,<<<<<<<<<<<1*?PHR1NR1VR1[R1<-~2cR1PPQP*P=1PPSSPP:RR(HP?PP=1PPRR:P=1PRPSPPRR:P=1aPRPTPzPTTPP:'1F?PUP=1!PBPSSPP:QQ'GP?PP=1#P PRR:P=1%PR$PS"PT PPTTPP:)S1?PP=1m'PPRR:P=1K)PR(PlPSSPP:OO%E:?PIP=1 +P6PRR:'P=1-PR,PS*PT&PPRR:P=1/PR.PPRR:P=11PR0PHP2PIPPRR:P=1O4PR3PJPkPTT|g[PSSPP:MP|@P9P=17P&PRR:P=19PR8PS6PT5PKPPUU=1PTTPP:#}?PP=xPmPRR:^P=%@PR?PS=PT;PU:PƻSRէݧ h,ݧhRRh S%P^W2X[@YmZ~V(RRk(bh\1rPU$RШ0 4$ 48R#ˏRSCg1CTPR 1UdPRR#1dPRяlRgdPRяiRXdPRяnRIdPRяeR:+ PRR R dPRR R RR  R PRROR JdPRR;R 4PR#'R$R dPRRR PdPRR#1ˏRSCg1ԑ０ R) S S  $kP$<\k1ˏRTDgS R_$RP\1NwPDgR.$RCP\1-VR"R'$RwP\1 6$RkP1P@i\@Sch&3PkU>83k(\(,hyRBRbh2Pkj1_P?PˏTP@kP$ SQP0TU PˏTU UUQSPT. R֮ 1uPTe TE R֮ 1XTr TR1RSS$12YUըݨ j?ݨj/UUjY%j ﯝ11PˏTP@k1Te TE1KR1T+T-R1ˏTP@kR1YUըݨ jݨjUUjmY%j^1PˏTP@k11ˏTP@kQQUQPQQP#U0TU ˏTU UUSR1PYUըݨ jؐݨjȐUUjY%jHʎ1 PˏTP@kQQUQPQQP1U0TU PˏTU UUS1(YUըݨ j5ݨj%UUjY%j拏'zJP#PPS1PˏTP@k R 1Tצ߭.PUE&P`hP-P]EPTծ %fFsPhU-P.$Pf!sP/-PP^TNOYCVtZｚ[&vWЬSXPRRS1:R 12R1&UR_ äXPˏRP@fXR\qePRR1R0R7RPRIPRx PR3R^#ePQ PˏPQQR PBRѤ  dpФQ֤RaePRR EXAXePRR,ˏRP@fPePRR ˏRP@fRSR  R1RS qP=USժݪ ݪtSS]U%qJnRäSѬ"$SdpPj#2+P׸$PSdpP  +Pﲸ0P^PPʏPP^TЬS2RxTQ0SPPQTPSSPS0S7 RPRPSˏTP<^UnTSR5P\\P\a\f \6P\A\F7\ˏ\P@e0\ P\dPxSP\PSRPRPSPP|^KRT;SЋVP\\ \ P\\ \ \0\91LUnnդݤ f[ݤfKnnf8U%f)˖M\ \ PP\\\ \Pc\0%\9 cQ0\PPQcP\\0\9\P ^ SJTUHXɈYWЬRR R hPRR R R"1oVĝեݥ gGݥg7ծݮg"V%ghiRR PRRR RPЬRPRR"HR?R :Pѣ  c|lУQ֣RaPRR"RR R"cGmP\ĞVnեݥ gPݥg@nng-V%ghRP^!TvRSd\d\PqP\\PP "VVVVVVVVNB:<?Pb \cbd&cb PcbPbPPb Pbbb\PP^HTƕVXЬRSТSզݦh?Ѭh(1ShЬPՠ 1ЬWPUWRR$RRR RХSErPՠѠR`S. PՠQաѡRaSQաSShxnRެ Pb`b Rb`bݢhHlP ^UGSЬRR$RRR R ЬPРPPՠPѠR`P PՠDQաPѡRaPQաP^FSRTբݢ d}ݢdmլݬdX%Ei^UFSFTЬR ݢ)dݢ3dլ ݬ >dݬEݤم{ ^ESRբݢIDžݬSݏ|^ESTЬVaUޏbdJRbUVdbgdb #ݏ^-ETSbcRbݬݬcbgcb9 1„ݏ ^9ZSѬ&cݬPݬߣޣ!"ЬQPPP@P_aPR ߣ#sݬaPR ^YSGaPR ߣH0Ԣݬ`PbRP<^qYTJUЬSaPR ߤHԢS`PbeRePePՠ РPՠR^ݬU^[pW<xRR)PgRPgէ.Y_PgRЧR |ٮkЧUЧ TЧSTЧ\ЮRBlRTRs\TYYg\\UXX\VZZxRR\PgRݧPgէXPxYTTxXUgUxZVgVSdUeC-\\Wk`Pkkk\@\7L\LLk%kú\S1 1CՠRRokPkkk\lѬS\lѬS\llk \llkЬRݧdg[PR1PP''1P?PSkХTJPd\LP*P!@֎\L2 @S1TUTݧgPkݧgPk1PRUVB*PP^xPPxP\\UХ>B߲R\TdBSSSC,SR\C\1_BԱ\L S1LxPPxPSSUХBRSTdB\\\L΍\RSL'SBySCﱍ\\T UЧPP $8LPTdt$(8Xx|<<<<\|<\|<\|<\|4444444444444444444444444Tp  4 P l  0 L h  , H ` x  $ X  @ ` <X <X\x,P\ht1?P?PRx1$R|fRݢ4x7|1&| f7|1P11111fRݢ1PfRݢ1PЦRݢ111}fRݢ1lfRݢ{1\w1RP1M<w1@w ЦRݢЦֵ1P~w1P1 fݦݦݦݦP1P<Cw1Ц6wЦRݢ&1Pw1P1 ww1PvfRݢ v1yvfRݢ v1ZP1U1Qv1FP v1:PPܴ1%Цд1PＴ1fݦݦ"P1P1fݦݦݦ Pm1Pfݦݦݦ PM1PfݦݦݦP-1vPfݦݦݦP 1VPfݦݦݦP16Pfݦݦݦ|Pͳ1Pfݦݦݦ\Pﭳ1Pfݦݦݦ<P1PfݦݦݦPm1PfݦݦݦPM3  VMS.BCK[V9.BIN]ICONT.EXE;1j1PfݦݦݦP-1vPfݦݦݦP 1VPfݦݦݦP16Pfݦݦݦ|PͲ1Pfݦݦݦ\Pﭲ1Pfݦݦݦ<P1PfݦݦݦPm1PfݦݦݦPM1PfݦݦݦP-1vPfݦݦݦP 1VPfݦݦݦP16Pfݦݦݦ|Pͱ1Pfݦݦݦ\Pﭱ1Pfݦݦݦ<P1PfݦݦݦPm1PfݦݦݦPM1PfݦݦݦP-1vPfݦݦݦP 1VPfݦݦݦ P16Pfݦݦݦ |PͰ1Pݦfݦݦ\Pﭰ1Pfݦݦ%P1fݦݦݦ& Pq1PfݦݦPT1fݦݦݦP51~PfݦݦP1aݦfݦݦP1BPfݦݦ(SPܯ1%PfݦݦdPﵯ1PffP1ffP1ffPl1ffPT1fݦݦ'P81fݦݦ'P1efݦݦ'wP1Ifݦݦ'[P1-fݦݦ'?PȮ1fݦݦ'#Pאַ1fݦݦ'P1fݦݦ'Pt1fݦݦ'PX1fݦݦ'P<1fݦݦ'P 1ifݦݦ'{P1Mfݦݦ'_P11fݦݦ'CP̭1fݦݦ''Pﰭ1fݦݦ' P1fݦݦ'Px1fݦݦ'P\1fݦݦ'P@1fݦ jP'1pfRݢP1ZPfP1CPfݦ"P߬1(ЦRb#RPݦ*Pﳬ1R𤋮1PЦ1ݦݦP1PfݦݦݦPc1SPݦPݦݦP11zPݦݦYPݦݦ|P1NPݦݦݦ^P10fݦݦCP̫19IݦPﯫ1fRݢ PfRݢ I,fRݢݦPo1_PfݦݦPI1PfݦݦݦP)1rPPfݦݦP1JPfݦݦݦP1*P PfݦݦhP﹪1PfݦݦݦHP1P Pfݦݦ Pq1P_ Pff PM1Pfݦݦ P01y Pfݦݦ P 1RPfݦݦݦ P12P Pfݦݦp P1 PfݦݦݦP P1Pݦݦݦ P1fݦݦ  Ph1fݦݦ PL1fݦݦ P01y1ufݦݦ P1Yff ; P1Afݦ " PݦݦE PΨ1PfR<~ݢP1fR<~ݢxP1fRݢ<~ݢ[P1fRݢ< ~ݢ?P1ݦݦݦݦݦ!$ P91Pf-1vPf!1jPf1^Pfݦݦ"o P1A1=^QfWlVlXdlYUh/nSPf\ElRPb\Rc\RfREbUUh\llTi.nSg\DlRPb\Rc\RgRDbTTiee^DTլ1ЬPPl(( P?PPA1@bP11/PЬRRQQ*hQhSAcPѠR P`PѠRPݬ ݬݬϱЭPȬPЬRRQQgQgSAcPѠR P`PѠRPݬ ݬݬaЭQP ȬЬ PݬĴЬRRQQjQjSAcPѠR P`PѠRPݬݬ:ЭPѠݬOPݬ>^yjYVjZwjXЬSSRRhRjQBaPѠS `PѠSPRsҬTThTjWDgVЬUЬSIPQVaUSԡiQiԡ PiPQiP QiQDgҬPPhPjS@cPР PТ P^-fYЬSSRR*fRfPB`QѡS PaQѡSQPoҬSSeSeXChWЬVЬUЬ THPQWaVUT ԡeQeԡPiPQiPQiQCh^bZzb[{bYЬSЬTSRRiRkQBaPѠSѠ T`P ѠSѠ TPR{ҬTTiTkXDhWЬVЬ UЬS4HPQWaVUS ԡaQaԡPjPQjPQjQDhҬPPiPkQ@aPРPТP^ҬQQ@hQhRAbPѠP`PѠP^ҬQQxdQ]dRAbPѠP`PѠP^ҬQQ@aQ1aRAbP!ѠѠ `PѠѠ ^UWRբ PݬbiPТPRբP^UgRFPQЬaЬЬ ԡgQfԡ PbPQbP QQP^mcRFPQЬaЬЬ Ь ԡ4cQ+cԡPbPQbPQQP^`R+FPQЬaЬЬ Ь ԡ_Q_ԡPbPQbPQQP ^>SfR)Pݢݢݢ )ݬyhPТR^>Un_T1WEhXjVݤ ݤ<ghPf ݤݤ hPIghPfn ݤQghPfVФSФRRVghPfRPRP%PPP2P~ZghPfRPRPg ogPfФT1Q<^=T"eRUP UUݬ`ެScUgPxdR%Pݢݢ nc-gPPТR<^M=TtvR|RRĂݬfPLtċݬfP1dR!PbĒݬfP˪ТRd bS!PcĞݬxfPУSau`RUPUUĬެScWW3ݬ|S:3iSXPWSSS3߭PXX1IZl'U YXPPP  a                 = 1P2?PjPnen&2P[-Ԯ1PiPS PRjnRPS- SfRCRb{iPSe SfRCTdSSaS]Sd֮TeծK~ΘPSSTg& TRfQBPˏ`PPBRbgTcPe߭KPXX1Q?WP^ЬS;УT1Є+PЬRТSЃR RЃRЄT^1W a[%NVNY߭PRR1 %ZpS#X`0+,ol dRPPlEEaEEqa]E E E = E E E E E E E E E E E E E E E   E E m y q1h ?PjRUfTLSSTS"8SfLވPLUSPf\`ClPSfk1 PXPSjݭSR 1 P`P\jݭ\VRSLScRW 1 0PTjT/Pݭ~R϶ 1 Pߧ,gRSDcݭ~Rό 1 `PSjSQTCdU e1ESާ-PSXfTKRSTS"8nRf~KވPrKXSPf\`ClPSfkߧ3ݥ ݥM~ Sާ7LSXfT.KRSTS"8Qf KވPKXSPf\`ClPSfk1PХSݭSR8 1z`PUjUeYSާ>HSXfTJQSTS"8nQf~JވPrJXSPf\`ClPSfk1PݭUR 1,PTjPSDc PU1)CU1UPPL1P?PߧDPSDc1r5SާTDSXfTIPSTS"8zPfIވP~IXSPf\`ClPSfk1PESާZ@SXfTFI)PSTS"8Pf%IވPIXSPf\`ClPSfk1PݭURϜ1`PSjݭSRς1|PXPSjSϧ1e`POjbSާ`XhP\PU UQhPS߭S?PTЭ쟭kS<~\$1T쟭kU\n$1P U pP쟭kU\G$j U(hPSSP쟭kSU\$> U(hPSSP쟭kSU\#ǏFLL\ϥ1PxCSCTCdSiS CiTPCkiS>Pi1uЮhSkVVI~Bݮ0ݮl]ABTfT"TTf~T&P \qBfPݭRǪQK*K߭pPRR1} ^%SBRxB\BPL`\b\ BbPPqBTb\'Pbi| ^a%UATAVЬSdPfHRPR8wHdfPfSQRdPbA`RQdET^$V2TX/HY$H[=AU.AW'GZѬiiRRRijPjݬ jPЬRB`STSTePgkRPRDkegۊPgTQRePbA`RQehjPЬRhB`hPPSePgkRPRDkegPgSQRePbA`RQeh| ^#UB@T3@VݬN ЬSdPfGRPRDFdfPfSQRdPbA`RQdR ^i#URW?T?VgPPݬ ЬSdPf|FRPRDhFdfPfSQRdPbA`RQdg^"U*RX#FWT{>Vݬϖ ЬSdPfKERPRD7EdfXPfSQRdPbA`RQdQ^!UPW >T=VzgP{PQPP\QS\RdRPfD\P\PRDdfЇPfRgR\R\dPd`R\R\P^,!YmP[=Ww=ZЬSSRCXBhR b1SRBRpbUgTj)DRTRDDgj6PjUTPgR`DbPTgkޭԮޮVUgTjCRTRPUCgj߆PjUkURUR1gTgЮRfbdURURSRBhR b1PTdTPSPBU@T)CVdTDfQ@ TdTTPTRP:PޭPaTTSS2SSxSSxSSSPTSSSxSSS`QRSRSSPޭUˏPRRTˏPRxRRxRRURxTbRRSPUgTjBRTRDBgjￅPjUTPgR`DbPTgkSUgTjcBRTRDOBgjpPjUSTgRdCbTSgkޭܮ ޮ U T gSj BRSRPTAgjPjTkTRTRgSgЮ R ebcTRTR^AWJAXAVݬPC PTTxTT$TެUgSeRBcRTjMTT~ݬݬ ݬݬRCPeRf9P RPhQ@S c"@aScTgSDcBPϝTϖfRSf6 SPhQ@Rb"@aRbTgRDbBPaTZfSRf6 RPhQ@Sc"@aScTgSDcdBP%TfR^[z[LP{PQPPRqURTd9TST97@RSR(PT#@=9/9UfХ SYPѣTLѣ\FV \ݤ@i@hg>PХRB`jPlݥdVcSХUV \ݤ@i@hg\\ 1`Ф T1qJ=UePХ TR~>MTФSգPdT ФSգTФSѣRݤ\dT P~K1>RХUIK=S*=TУRBd?P|ݣtУSI$=\mݏLά~CKݏ0ݬ(0Pݏݬ PݏЬ \BIPݢϸТ RI<\ݏϕώ\5S5S&GS5~SP \5#5 VMS.BCK[V9.BIN]ICONT.EXE;1[n 55HG)66~6P "߸65RRXHRHjG;;~;P :;;RRH H!G;;FP RS;GGj=K|~F_=Fl~P uK1lTl~ˍm=G=ScݭˠV=cí~˳C=cí~0=cí~=cí~ =cí~<cí~<cT%<c<^qT3S3UcPe:RPR8:ce}PeЬRQcPaB`QRcYF<^Tf3SW3UcPe3:RPRD:ce@}PeЬRQcPaB`QRcE^S2R2TbQd9PQPPݬ9bd|PdЬPPEPQPQbQbЬP֬`aЬP׬P ^R~2So2PcP"kDPc~PP \A2^9R*8Q\bPaPL`\\bP ^XDV8Y1W7ZѬitiRRRij{PjjSЬRBc {խ0íRRffRRgSޭUTPcPխjSЬRfBcOO^1@WPP7S@cRV-8UVUTTxTP@gSRc9PTVPTU PcУPVURP^,PP7\@lx9PP ^WDVO7T3U97Re9P\\ \ e8P\\ \ \P\ j\ e\ `\,[\RPRfgfd zPdRQRdS\Ace8P\\ \ \ \, \dSBcS\ SS6t6PP^TDV_6U2WI6Rg8P\\ M\DPRfߤ fekyPeRQReS\Acg7P\\  \RSRePC`S\ SS65R~ ^A2STRcz7P\\ \ cd7P\\ \ \P\-Tc:7P\\0(\9# RQ0\PPQRc7P\\0\9P\ PPb5RTP ^1SRc6P\\ \ c6P\\ \ \P\0'\7"xRQ0\PPQRc6P\\0\7P\ PP4RPP ^6Wn|ZԮ֬x4RRB'ݬB[4wPM4?4S0 6PRR0aR9\STS!4QRDae"ZU0RTnTPaUPZ PTPqZqZn|Zl05PRR0R9Rr RR1SUS3VREfpZXԮ|Z%0f5PR1PSTS3QRDaˏRP@gT@gPaT0RV PˏRV VVTeZXPnTTaPTZnPdXP`TPjPqZqZn|Z/4PR1wTR TT+3nЮPSRS2TBdT2S~PP|^7/V|UTfn4PSS0Pf[4PSS0S0!S9STf:4PSS0S9S.A|RUR0Sf4PSS0 S9PSf3PSS0S9URSe SE1Sf3PSS+S-\S-\\WSf3PSW\S0+S9&P \PSP0P\Sfq3PSS0S9W\\TPP\\U3P'be|=3RS RR1|^-Td3PSSL2S)S $d2PSSLSS SL1VRd2P\\ \ d2P\\ \ \UYP\-Vdw2P\\0)\9$P RQ0\PPQRdS2P\\0\9P\ PP0VRUUPRS RR0PP^u0[,YЬU#0URR=&U=0QsP//Tk1URUR11VTXT/ZSifPRR R ifPRR R RW:R0%R7 PxSQ0RPPQSifPRR0R7PR PPkSWWHjk URUR1sTRT@/SB*/T~^+\N//l0P !Pl0P  P/^}YB+V*Td(X5.WR.U;.S\.ic0P!dqRbPcfbPehbPg _.bP.'bP-.bP.P-;bP..'bP'P'.bP'-.bP'P'H-R-P-R-cPPRd\L`\R\bRd\cPL`\R\e\\QfRBl\Q\PaQf\ePL`\Q\gPPRh\L`\R\PbRh\gPL`\R\|~ߩ.P<^ T,Uߤ ݬ P ݬߤS- PRԢS PbRSeSeeRբb.PТRբb.PS^ЬQaPaPРa^ PRԢA PRP^(W+VUg'.SfTEdRPb\Rc\RUUg+-Rb+fbfe+b\++b++b++b{++b+Z%bQ%*b*$b$*T-P-SPФ RPb\Rc\RФRTcRT***\Ь R\-R\**^ X8W*V*RSTRghgfnPfTRQRfUAeT^*Y*Z3*[iRjSBcPTЬRRSRUSPRRTURURЬXiUjVEfSTUU&TkUDeR1XKjWТPXUSV@gnnWUQUQ"VQVnPnga`QPUPUPQQТPb1լPSUXV  `jUVPbXibPРPbR1tլPkVSRXU `jRUPDfXikRDbRP^ЬPЬRЬ QPSPSPPPSPS2P^ ~`*)Ь^"!D)5)(^6^$Y"ZXT"[Ь UѬ(#ߨ  (p(kPb(ެRb(b( bRD(SBcTЬWWdUU1WSSRR$R'QBaPѠS `PѠSP ЭЬV&(PF`SRi"PSBj0*PRP PRRiPP!Aݭ~D~ݬPPլ'SЬRBcߨ ЬRBckkUEWSSRR#R'QBaPѠS `PѠSP ߨBЭP U2 , UkkU2','gﱣ^A#[&ZЬSSRRkRjQBaPѠSP`PѠSPR1ҬSSkSjYCiXЬWЬVЬ UЬT$PQXaWVU Tԡ & Q&ԡ&PQ &PQ%QCiҬPPkPjS@cPȬЬ RP^ Sz%TѬ}ߣndOiPdެP&&``&`PdQ@aQЬRRaЬ R мP R мЬ  R мЬ  RpPRÎ''^%[ЬVVRRR$UBeSѣV PcSѣVSR1kҬWWW$ZGjXSЬUЬ V ]S`UVPSXYЬXkVSU9Y`XVU ԠQ$ PH$ PN$SPPB$PGjТ SУVЬUѦ SVЬ W V`UWP УUЬRѥ>Pc"RЬUЬ V R`UVPcSTcSУPЬRѠSRЬUЬ V iR`UVP^ҬQQ0 Q#RAbPѠP`PѠP^ҬQQtQ=#RAbPѠP`PѠP^)#R$PQЬaЬЬ Ь Ьԡ " Q"ԡbPQ bPQQP^zPQЬaЬЬ Ь ԡ" Q" "PQQ~"QPP^ *Ь`ЬЬ <^T~U"QЬP@aSRdSBe$PRPRRdP|^UzP{PQPPVЬTǏS"ݬ ݏT$PUTSVݬ VT#PUUPUP^T2-W3-V(-U}S2eeP޼R@bccRb- RcP-ePcRcbff:fݬ #PR&efߤ.ߤ##?PRb:gOeKPcRbRg6eѬe#ޤcfߤ--ߤ`#9#?PeP޼R@bgޤIcefP^ݬ#PP"PR.ݬ"PP#"ݏ"R"^TެSccc"PRcߤ""ݏ"RPθ^ЬZԮЬ Ь[ZXЮWЮ Y[VYj(`WWVVbX!NZ!PP!ZRPRRЬPլЬTޮUd Td dV+dSS PЮReSbTdSS 蔾TVV1ЬZЬ Ь[ZXЮWЮY[VYz(`WWVVrX ^Z PP ZRPRRЬPЮT ޮ Ud  PTd dV+dSS PЮ R eSbTdSS 蔾 TVV16D VMS.BCK[V9.BIN]ICONT.EXE;1PP^  ֬ PQQ ЬP֬Q`֬QQ 蔼ЬP^ZЬXЬWЬ YЬVYO(`WWVVݭݭݭߪXߪݬPPЬPPP^TRSЬUUVUUPP PRRU4b.  R Pb~ߤPRV RRcìVUUݬ WgEcRURRV UUVgE; 7PR.R RUPP RUUR gE UP|^Vݬ (`լЬլЬݭݭݭߦRP^TЬP֬`P֬ЬP֬`SЬP֬`RSPPP@d S~PSRPPP@d R~PRSRP^Rb ψߦF~ߦEyߦO~ߦHjߦa~ߦQ[ߦd~ߦcLߦz~ߦf=Ƌ~ߦ|-ơ~ƍƳ~ƣ ~Ƶ~~~~϶~ϥP4gݬݬP ^YN%XTV- UХSգ1ݣݬPfWЬRХPݠݠďfSR+b'R6P P@b @bRĤf$WīfhiPcSգլW=ePѥP#'ݬPW)P/ݬPWWPPSХcW ݬzPԣЬ8УRPRP]D#D(DRDMRP0Х0,S2P^P^~ݬլݬ~ݬ^5R-P\\b\P\\^ZWW TPФ(RR, RSR(cPФ(YФ0[Y[1iXXRRRBgR X_1YUU[:eSSRRRBgRS_!UU0eRR\\\Lg\R_U,Ф(SSSU~SP ֤(XPU(PV Ф \/P\Pl ФlVФ(Ф, Ф0\ S2RSR,Ф,(2 R(R01PYRY(RSS[1cRR\\P@g\R_S,XP@gSPSlPR# Ф0,XPR"R'PS\lR\Q8P\lPPR(P$PP\\l\QP\lPPRP\QQScSSS01YФ0,XPդ+ФRТS Т(Т ,Т0bФ bR 1PФRݢ P$1Ф$0Ф0,Ф,(Ф(UФR֢eSSRRRBgUeSS\\\LgS$!RRRBg  U~ 1Ф$Rl-i&neb#  U~1QФ$RR(RRP0Ф(,12PФRѢ8z1USݢݢʏS/c+SP P@c @cSʤUʫx ФRТ8ФRbݢ 4ݢ"RФSdRSRPУRУSRS]DD(DRDRP0Ф0,17P^-VWoU<d~P<d@ݬlPQQPQ BP<R@TRPRSQT>ݬ.PRR ,R#RTݬ PRR  RT <Pd@@<P<@Dgݏ<@SSdT1\^iRЬP Т TPTd ТdЬSSТ(Т, Т0T Q2PQP,Т,(2 P(P0^TRݬݬ]DD(DSD&SP0Т0, ^Z^V/X$YW$m((0Ч0,ЬRbTTPPSChPRbTTPPP@hT#Rb PRbRR[[TЬQaSSPPRBhPS_SQaSSPPP@hPS_dQQRbUUPPSChPRbUUPPP@hU#Rb PRbRDSc1c[P1ݬPQsjPѣP#bQTRЧPݠݠƏiR+b'RP P@b @bRƤiTƫijSc1doS[RЧPݠݠƏiUR+b'R8P P@b @bRƤi&Sƫi=<^MTURТPݠݠďeЬS,c(SP P@c @cݬĤeݬīe; |^SURïVЬTТPݠݠÏeRT+d'T5P P@d @dTäe#Vëݥ7 P^EUVЬP`SSRRRBfRS_LPXXTPQaSSRRRBfRS_SQaSSPPP@fPS_dQ PſP(PЬScTTRRRBfPScTTPPP@fT#Sc PScSSW1ToT#jT"T'RЬP`SPR5P`QQS(Q$PQ\P`PRPP`QQSQPRRP֬TT#ЬRRRRBf׬ЬPPPP@f딼W~XK P^V UЬTdRRPPP@ePR_LTWWSTRbQQPPP@ePQ_QRbQQPPP@ePQ_cR P$PЬQaRRPPP@ePQaRRPPP@eR#Qa PQaQP`9P~Wp P^T S XUݬVVNPfTPЬQaRRPPP@cQaRRPPP@cR#Qa PQaQP`pPV4P?PičWVRХPݠݠďh R+b'R P P@b @bRĤh Wīh 8 PP^W UTSSPPP@eǙPSP0PV֬SSPPP@e" VQSPPQ0QV֬SSPPP@eЬQaRRPPP@ePQaRRPPP@eR#Qa PQaQRRPPP@eP R_R"ݬSSψPcǯPSЬQaRRPPP@eQaRRPPP@eR#Qa PQaQP`PФPVSФPݠ ФRS PФPРQРPQP]D D(DRD RP0Ф0,P^ݬ^ݬ^W VGR8ЬUeSSPPP@fPS_IUXXTUScQQPPP@fPQ_QScQQPPP@fPQ_dSPЬQaSSPPP@fPQaSSPPP@fS#Qa PQaQP`PX~XϰSPS̬S PP|^ SVKRТP8"PЬP`i3UPTТPݠݠÏfuT+d'TXP P@d @dTäfFUëf7[CP ^aSRТP8XPЬP` Pj8P^!YWcTФRݢ P$PU1ZPФP֠Ф$Pl.i'n e`# PPE1QPeRRPPP@gUeRRPPP@gR$1%PPP@g  1U~PUUVVSURbQQPPP@gPQ_QRbQQPPP@gPQ_cRXXPXfif8|~1ɏVjP X1ɔVjPѬlɚVjP_h XɟYn8լ?ФPРQРPQP]DD(DRDRP0Ф0,ФPݠ P$PU1Y^RQQPPP@bP֬QQPPP@bQ#֬ P֬P^R֬QQPPP@b֬QQPPP@bQrQR-֬PPP@bP֬PPP@bPЬPQ.*֬QQPPP@bP֬QQPPP@bQeQE9ЬQPP+P-Q֬PPP@b֬PPP@bP^ЬP`R֬QQR(Q$Q\ ֬ЬP֬QQRQЬP^RQQPPP@bPQ_'ЬP֬Q`֬QQPPP@bPߑQ_ٔP<^9UЬRb"DЬTRScQQRRRBeRQ_QScQQPPP@ePQ_dSPЬRbTRS6RbPPT(P$PP\RbRSPRbPPTPRSSTd"TP֬ѬT.PЬP֬ЬRb``\ЬQR֬ѬTՔTP^uWZլݬPլPSXެUSe T%XQCdPP2PPPQXSSeQXPЏSSSPSQPQ{SPPQQYI4VfRo79s_춳wx"Gr'rO4 #7 zJ1k3oN8uMZ]Tk؇{%0ʒHm/+j)1?W͢Ç"z0.4 mn395rӿ洼#9>W<2a*T[NM=HMXqL?2JGE,;}>n :-J VD|- aߋCÙV FENvr7kGO=}*(F=!ITi#9@i*k{(JYZVl`㩆Yٓ2 \շ xS1-NZkpŤd퇁i%) ;PBpwj]ta:" j.Q(? j:\qrѫ3Nz"P~5%åمm`q͙\rt1Sݠ`^Zf\}=mW @Ep}u+Xx'? slDINa--י߰q̍O%1y8)>&X?h8T] _Eľ;J<{'Z j~4LuB??CƯ%cdǟB&4olzlglz6Y >qj 51CXfUz='D@z `^`j(2-;FY%OKR/[0 U Yn*QF޸D8Ap;w$I!+޳ao&a cMQ Bs.JVuOxBPFuIiⶥY 㪏Wb58Z!BjBIp=W osŐ2`}Ǹ s|/rvzen}@O`џ&Q:wfF(~.5˘k*8̌Q]u0AL% dw*w[v| G7"F1ˮe*=m!"yRM>B0fȳV%p]Xƪ;Q{& W҅7_Bl1j̐v&LgԴtT7ز*TGE}q Sg2+!h#!:-UzBmX.$*] >?.6 @Ch+wxSg`bUÞ%S&RzTb~qGuFJy.VVp#vmXbS C?1b"wB\nnt(r?5ͷ9<%VJ>m4x Kֲb~b7nrm9VD+D@c8M(5gX m3B `>}T}H$G]󜧣X)H) Ֆum S*mMc<#?~}D _熊Xu7 ]:|qo, h&A:zH '~ڴ/:i˘f0LLErl @^ς*zrI#0Χi5TJzHh*"qt`)&!e”8h]x6oPє- MCCFK$ &)->ܮ&gu䣫1,Ē0ow삀,ڮx~/BS°lPY[r.'nCr Dz.EE:&)TܘL0'ؾե W.JŅ(bBԈBp^u@Zq:& UDaaQs6GmeN|f-~sX;fJ@Y%Bp@* */\({.r[j`*N/$8=wa !LS[=[$%A 䞱cq136gHƆ֡UAiRl@э Γ++CvU9m ?pHd`㤧tT)[? Z޿+"Bojؤzk$}J:Ô<_i|q:-4VaUi;5ɧV:*P0Rօ%r(4/'l Ĕ@cMԁ .QA#;lt?w0tc [i7d8i֕w_{EI!9 X-Ikk%mZ5i%21Bg$ A+lwn4>[U>'!@6noy|H7nȿpa!kufDqiY*wxYstIVa 00[V^/|[&OtFl' GAQ0m usE]&ZRe ẄHtuTu|p0S)4cՎ\V3F9[tWE!dh&Q?Hr"͔6FH֤ѿO*׺'sآI1%2zb+ *Jcz-jpͯ-+ֱKy :n}cnI>l&Ku;.B2@}ݣwQąށ椶&v 34O)%sov~$#L( F.]Pxv^@\oIP'1CC7;,d>ډ-[=P`M2 ـzs-o|wBS¿XkGل] IJPo[|q{iJ :_`o7,~̹|9(| = Ā?Wi["=^@pu9jI~䵘3m96mFbx̘5fJ0XMӖIt4,>qϬ:$+W0d M/9&3InRQ|'i_.u=\D5hnq5*qy>ly4 \Sǭ]j^uP7Yt %+LqPAk!}^ d~z }Ks%t`p6ƫ-Lm݀jzbl<W |_%#pPU_ݞng%-99Z @GqdL8eYŞBp.XLSŐa5f948rԭVW_0L~Q?%0'%Rñf)B /ROPzs-5}8i|&eBwEo.AmW'$eCXGzӀcv'@1Y{nFFE D$7qP7xF#r"0Rf7ל8N qTMqE%Ūd2`e#9z#1)8-x3rFŸ C1#hz2;g8Ș2p?*AYAܲp#3QQDY1iqxN1ݲeM&o߉)#?k` ;7ٕe9zq3%޲LzCAdVe&ၬ€6R7/np=n/;@l嵵јhIPLV6xO}Pоj+Aƌh*7r<-O_:,Es*xE )i|h. ( @zg 1+ ȁ'%: T 0o̫H)Oݡj2#7gzi!yP|q0bYđd?B#*K UG*[ _Y \5TDrOR [h*umfvi@8%c?t}5QE+w)5SW FPMtyBĎRQ\+%W6ԅ 1p eLӾ7-I Kl݇Ғo X^J1ձp2["#`o0aŒ}iwz@[(zF^CNZIZp&&(6$ ) }=+[VJКyL/%Ls؅h6#LMrV'Y ϱHAdIrDt@ Q,7Pj -ODPc- W@iĀ^tR*2gG@jUC9cgzAG_֟r:uT4S{?a\/@^y.V|j#IAKҞ|3QmQaprX!+nIKSvqT m|Z;HpSr0:ϐi'S2*/DP_X~~E*h]F[qY,y#/gXK="䛧DVeu5p{ō4&IB& Y8[p VMS.BCK[V9.BIN]ICONT.EXE;1SS2PPcXc ݬ,PEլ bfRKPѬ & Q2PPQ~ݬ cP ݬ3RPbVfRѬ լ PݬPUݬ PT URTRRR4PSUT ݬ ݬ PPU~ԣI4ccRSSI4SP@@DTLtl< tL||, t 0 8 J @VAXCRTL CMA$TIS_SHRLIBRTLMTHRTLJJJJ TMAIN mainexecute 0report$Trmfiles$ xusage5   y UTILtcalloc-trealloc xround2! 2  TLOCAL TRANS trans 0trans1̐ writecheck $ h TCODEcodegentraverse binopT Hunopa unopb setloctemitlab, emit, ̫emitl0 emitn0 ,emits0 \alclab       TLEX tgetoprD yylexgetident4findres ȸbufcmpL getnumTh getstringT ctlesc! octescW 8hexesc setlineno setfilenmnextchar$yyerrorAhmapterm tfatalt hnfatalltsyserrT (quitg quitf` 3 t   LNKLISTaddinvkalclfile8addlfile^ 6 TPARSE xfree(yyparse7 k  "  TSYM`loc_initinstall putlocputglob 0putlitllookup5<glookup5tclookup@klookup4 alclocX@alcglob\ alclit\ lout?8constout routo gout / `O4 TMEMtmallocX tminit tmfree m 6 TREE Ltree1 `tree2, tree34 tree48 tree5< 4tree6@t buildarrayTint_leaf4 c_str_leaf4 i_str_leaf6 LЯ LINK ilink lwarn` lfatal\ tsetexe 5f  !Ox LGLOB|readglobscanrefs|scanfileH referenceJ 6|9_7T VMS.BCK[V9.BIN]ICONT.EXE;1  Ҹ( LCODEgencode setfilel lemitp plemitl lemitnx lemitrxlemitin8lemitintx lemiteven4lemitcon lemitprocOD  gentables intoutl\wordoutloutblock{D flushcodeKclearlab* backpatch 6 ݧ          ( f LLEX tgetopc| getid8 (getstrgetrest getdec lgetoct getintgetreald 8getlab H getstrlit hnewlineJ 5t#  LMEM linitdalsolinkgetlfile alclfile( Hlmfree? F5 LSYM instid_putident4 !lexeql3P!alcident p!locinit+!putlocalx# putglobal\$putconst%putfieldt&glocate5&flocate5& alcglobal`T'alcfheadN'alcfrec 'blocateG -5   2 OPCODE LONG ( longwriteo R  ( GETOPT |(getopt |(" ALLOC )salloc[ )allocJ )FILEPART(*pathfind,pathelemHL,tryfileq ,fparse-makenameL .smatch} (*  STRTBL.init_str1. free_stblD/ init_sbuf<>=>><<=<<~==-%*-~===\/+=>=><=<~=+^?<-^<->[:]*[]:=:=...++.No interpreter file supplied.icx.ICXicode file name too long.icxrbrbcannot open interpreter fileTried to read %ld bytes of code, got %ld bad icode fileI9.0.00/32icode version mismatch in %s icode version: %s expected version: %s I9.0.00/32cannot runNOERRBUFTRACECOEXPSIZESTRSIZEHEAPSIZEBLOCKSIZEBLKSIZESTATSIZESTATINCRMSTKSIZEQLSIZEMAXMEMICONCORE: =environment variable out of rangeenvironment variable out of rangeenvironment variable not numericerror in startup code %s error in startup code %s: %s System error in startup code at line %ld in %s %s Termination dump: co-expression #%ld (%ld) call to 'err' &errout&input&output abcdefghijklmnopqrstuvwxyzrABCDEFGHIJKLMNOPQRSTUVWXYZunimplemented opcode: %ld (0x%08x) interp: termination with inactive generators.%02d:%02d:%02d%04d/%02d/%02dpmam%s, %s %d, %d %d:%02d %sVMSVMSinterpretedinterpretedASCIIASCIIco-expressionsco-expressionsenvironment variablesenvironment variablesexternal functionsexternal functionsfixed regionsfixed regionskeyboard functionskeyboard functionslarge integerslarge integersmultiple regionsmultiple regionspipespipesstring invocationstring invocationsystem functionsystem functiongraphicsgraphicsX WindowsX Windows?Icon Interpreter Version 9.0. July 16, 1994/-%*-++^:=<-<->:=:|||||=>=><=<~===~==>>=>><<=<<===~===^*=......[...]!?set reference out of bounds in randomtable reference out of bounds in randomlist reference out of bounds in random[:][]~--**++\/.&deallocation botchanycmp: unknown datatype.order: unknown datatype. ???? from line %d in %s&subject&pos&progname&windowname: unknown event keyword variable&random&trace&dump&errorname: unknown integer keyword variable[%ld:%ld]name: unreferencable static variablename: cannot determine variable nameL[%ld]%s.%sname: invalid structure reference; co-expression_%ld : @ returned to failed to co-expression_%ld %-13s: %4d : to by ? ..} @ ! {create ..} . field%slimit counter: [ ... ] from line %d in %s returned failed suspended resumed; co-expression_%ld : @ co-expression_%ld ; co-expression_%ld returned to co-expression_%ld ; co-expression_%ld failed to co-expression_%ld local identifiers: = = = global identifiers: = _NL:_NL:rawrw-%%can't open %sSYS$COMMANDSYS$COMMANDkillkillinteger(~10^%ld)illegal objectillegal objectlarge integerreal numbercsetfileprocedurerecordlistlist elementsetset elementtabletable elementtable element trapped variablehash blocksubstring trapped variablerefresh blockco-expressionexternal blockinteger keyword variable&pos&subjectillegal objectillegal objectillegal objecticode file too largeinsufficient memory for icodeinsufficient memory for string regioninsufficient memory for block regioninsufficient memory for qualifier list&error&pos&progname&random&subject&trace&dump&window...&window = &subject = &pos = &random = &trace = &dump = &error = &subject[%ld][%ld+:%ld] = co-expression_%ld(%ld)record _%ld()(%ld)set_%ld(%ld)table_%ld(%ld)procedurefunctionrecord constructor%s &input&output&erroutwindow(file(...%s%ld&null(variable = external(%d)%soutimage: unknown type\"\'\\\b\d\e\f\n\r\t\v\x%02xlist_%ld(%ld)list_%ld = [...,empty activator stack ?bad ipc/file name table \"\'\\\b\d\e\f\n\r\t\v\x%02x""_%ld(%ld)co-expression_%ld(%ld)record set_%ld(%ld)table_%ld(%ld)list_%ld(%ld)procedure function record constructor &input&output&erroutwindow(file()''integer(~10^%ld)&nullexternal(%ld)&letters&lcase&ucase&digits&cset&asciiICON_HOSTSYS$NODEVAX/VMSblackwhiteRGBi:.5/.5/.5fixedfixedfixedmonolucidatypewritertypewritercouriersanshelveticaseriftimes*mediumdemiboldbolddemilight*ior*narrowcondensednormalwideextended*p*-*-%s-%s-%s-%s-*-*-*-*-*-%s-*-*-*%.*s%d%ssansserifserifsansrmediumdeminormaliso88590adobe ______display=display=reversehiddenrootnormaliconicmaximalhidden???iconicnormalmaximalhiddeniconwindowroot%d,%dsolidmaskedstippledpatternedtexturedopaquestippledopaquepatternedsolidonoffdasheddoubledashstriped%d,%d,%d%d,%d,%dDISPLAY%s%s%d,%d,%d%s%s%sstripeddashedsolid%s%sreverse%srootwindowicon???%d,%d,%dunknown%ld%d,%d,%d%d,%d,%dwhiteblack%d,%d,%d;f VMS.BCK)[V9.BIN]ICONX.EXE;17E%d,%d,%dblackcheckersdarkgraydiagonalgrainsgraygridhorizontallightgrayscalestrellisverticalverydarkverylightwaveswhite.xbm.XBM.xpm.XPM.xpm.Z.xbm.xpm.xpm.ZrXPM%d%d%d+%d+%d%d+%d+%d%dx%d%d,%d,%d%c%1x%1x%1x%c%2x%2x%2x%c%3x%3x%3x%c%4x%4x%4x%cverypaledeeprGIFwbGIF87a%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c0123456kxw@abMcdZ0$%&L*+-g/?@}}~>]|+V%c%d%cboldcondenseddemidemiboldextendeditaliclightmediummononarrownormalobliqueproportionalromansansserifwide%d%c%s%d,onoffonONOn%s,%d%d,%s%lf%conoffonONOnonoffonONOnonONOn%d,%d%stexturedmaskedsolid%d,%d%soffon%soffon%soffon%dx%d+%d+%d%dx%d%s%s%sascentbgcanvasceolcliphclipwclipxclipycolcolumnscursordepthdescentdisplaydisplayheightdisplaywidthdrawopdxdyechofgfheightfillstylefontfwidthgammageometryheighticoniciconimageiconlabeliconposimagelabelleadinglineslinestylelinewidthpatternpointerpointercolpointerrowpointerxpointeryposposxposyreverserowrowssizevisualwidthwindowlabelxySundayMondayTuesdayWednesdayThursdayFridaySaturdayJanuaryFebruaryMarchAprilMayJuneJulyAugustSeptemberOctoberNovemberDecember%.3s %.3s%3d %.2d:%.2d:%.2d %d wandandInvertedandReverseclearcopycopyInvertedequivinvertnandnoopnorororInvertedorReversesetxorX cursorarrowbased arrow downbased arrow upboatbogositybottom left cornerbottom right cornerbottom sidebottom teebox spiralcenter ptrcircleclockcoffee mugcrosscross reversecrosshairdiamond crossdotdotboxdouble arrowdraft largedraft smalldraped boxexchangefleurgobblergumbyhand1hand2hearticoniron crossleft ptrleft sideleft teeleftbuttonll anglelr anglemanmiddlebuttonmousepencilpirateplusquestion arrowright ptrright sideright teerightbuttonrtl logosailboatsb down arrowsb h double arrowsb left arrowsb right arrowsb up arrowsb v double arrowshuttlesizingspiderspraycanstartargettcrosstop left arrowtop left cornertop right cornertop sidetop teetrekul angleumbrellaur anglewatchxtermnum glyphssalloc(%d): out of memory alloc(%d): out of memory $@$$$$P$$$$x$P$$4$$$H$x$$$$l$$$$,$$0$H$`$x$$$ $$$$L$$|$$$$ $ $T$tcan't read interpreter file headercan't read MS-DOS .exe header -ATXK4@>IA!hblackblackishbluebluish2dbrownbrownishdcyancyanish2dgraygrayish2greengreenishx2dgreygreyish2magentamagentaish,2dorangeorangish2dpinkpinkishYKdpurplepurplish2dredreddish2dvioletvioletishKdwhitewhitishdyellowyellowish<2ddarkdeeplightdmedium2paledmoderate2strongKvividdweakY%a%e%m%{%%00wwwWWWJJ00vvvWWWJJsttvvVVVVJsttuuVVVVIsttuuVVVIISSTTTUUUIISSTTTUUUUISSTTTUUUUHFFTTGGUUHHFFFGGGGHHH00xxxWWWJJ!11vvWWWJJr11vvVVVjjrrtuuVVVjjrrtuuVVVIISSTTTUUUIISSTTTUUUiiSSTTTUUUiiFFffGGggHHFFffGGggHHnzxxxXXXXJ!11xxXXXjjp1122)Vjjjrr222)Vjjjrr222>>>jjRR--//>>iiRRRT//'iiiRRff//ggiiRffffggghhFffffggghhnzzyyXXXXKoozyyXXXjjpp222)Xjjjqq222))jjjqq222>>>jjRR--//>>iiRRR-//''iiRRff//'giiRffffggghhEffffggghhnzzyyXXXKKoozyyXXXKK???22]]]jjqq222]]]jjqq2233>>jjRR::33>>iiRR:::/''iiRR:::/''iiEEfffggghhEEfffggghhNNZZZYYYKKOOZZZYYYKK???@=]]]kkPP@@=]]]kkPP%%%3]]kkQQ||3344((QQ:::444((QQ:::444<?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~<{- VMS.BCK)[V9.BIN]ICONX.EXE;17"8&&&&&'' '' ' ' &' ,' 4'<'J'W'^'a'd'i'l't'~''''''''' '!'8'"'#'$'%'&'+(' ((() (*)(,-(-2(.7(/?(0C(1H(2M(3T(4Z(5f(6h(7$h $\ $$$+$H$  $@`$ $ $xL$$ 1$ n$L $$p$ؽ$ $($4$x9$$$, $?$ E$P<$N$آ" $Y$X $ b$0 $x$h$ܿ$>$' $P$< i$ q$ |$ $L$ $" $' $* $D. $ $!$$l1 $4 H $n$2$$̜ $4$dl$|6$: $< $? $P$$XA$C $lT $8o$$$ $8E#$G*$] $ԩk $Xp ${$X $xA$tb $v $$f $ $Hw$Ps$'$$4$$$H$x$m$(-2<CHUYeky.$p$ܟ $H1$U$,$Z$$R$m$T$$V$h $lX$$$I7$H$,J$Z$0x$И $Hz$`}$x$$$$} $J @$,L M$M c$On$DQv$R~$ \$s$ $^$ $x$$$U $4V$$c$$wWJj()xXKk[]yYLl{}zZMm^=kbgcrmywx@ABCDEFGHIJKLMNOPQRSTUVWXYZabcd0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz{}$%&*+-/?@N)))))) ) ))) ***&*,*7*=* K*"U*$c*&g*(n**{*,*.*0*2*4*6*8*:*<*>*@*B*D*F*H*J+L +N+P+R'+T-+V4+X;+Z@+\O+^Y+`d+bn+dz+f+h+j+l+n+p+r+t+v+x+z+|,~ ,,,(,8,I,R,Z,_,h,q,z,,, )$)0);)A)F) S) Y) `)e)j)n)q) |) ))efghi jk8lHmVnnopqrstu1vHw_xlyz{|}~ ?f|  E S  ' Q | - . / 0 18 2_ 3 4 _   X" 5   8 8 %%%% %% %%%% %@&@ && &%&+&TWPQVUSR,yxؠh(ll @\ԕ4Phԙx00XHl8(`h<0P̝h 4'VDEPFHIJTLPQRR S8SdSSSU# VMS.BCK)[V9.BIN]ICONX.EXE;17@OOOO? Ϛ? O^TЏЏdd1ˏ_PP1ˏPP//am^?Pݬ RPЬSˏcPP޼RSzpPbndPЬPРPpdPdPݬ PJQ?PndPЏ޼RpPbdPpdPP^sTЏЏdd1ˏ_PP1ˏPPdd/1?PݬJ gPЬPРPpRqR qRdPjRdPˏPPdPЬPРdPdPݬϴ PKCr?PЭdPpRqRa qRdPjRdPP^ЬScݬS#PP}cЬTdSRS *Ѣ #~ P |~ּHPdSS~~PR |~ЬTdФPRSTSTPSQSQb2P^sYЏiiЬSc }ciPݬvP1ЬRduP |~QެXЏPRRSRQS@hWЧVU`TTRR2RRxRRxRSUSTRRRxRRRcPQRQRiPP^RЏbb}ˏ_PPcˏPP..VL:?Pݬr2PˏPPbPЬPРbPbPݬ PЭbPP^RЏbbcˏ_PPIˏPP..<2j?PݬP}bPbPݬZP P6PЬPЏ`bPЬPЏ`bPbP^TЏdd1ˏ_PP1ˏPP01~?PݬvPЬQСPpRqR_ qR&ݬQP dPdPЬQЏajRdP}dPdPݬP.H1P?PЬPЏ`dPЬPЏ`dPpRqRϢ qR'ݬݬP dPdPЬQЏajRdPdP^ݬZP*ЬRp~'wP |~HЏPP^ЬTd}dPˏ_dRR1ˏPPl1?PЬTФTޮXЬWnnRQVfxQPfSPSPPSSVQڔbnRgniPЬRТRpRݬpR~+ HЬSˏcRRУRâ RRxRRݬSݬݣ}PPЬRbݢyP |~2P^ЬQa}a PݬPSЬRQaQSެ XhRЏbЬЭPЭRRSRTSAhWVU`SSQQ2QQxQQxQRURSQQQxQQQbPTQTQPP^ЬQa}a Pݬ Qݬ4PPP^ЬQˏ/aPP}aˏ_aPP1ˏPP /s######1z?PЬP}PЬPРRb }߭ݢ ݢU,ѭ `P}PТP}8PЬPРR 7g~HPPP ~-ЬQТaPPЬPˏ`RxRRR}b^ЬTd}d 1ˏ_dRR1ˏPPg1n?PЬTФTnnYЬ WЬXXRQ޾VfxQPfSPSPPSSVQڔbXRgXePЬRТRpRݬݬ pR~EPЬSˏcRRУRâ RRxRRݬ Scݬݬ ݣJPP ^ЬRbPbݬ|^VUռPެTdRRRRBRJSfAP,SRePBdPePB PѬ` `ePB`PSSfPQ1/ݬPРPP|^VJT?USf;xSRdPB`ݬPePB`Qa BRbPPSSfݬ<^etU RЬTbլRzTP{ PQP0PSSb TMPTSTS$WPRߥR:STRzTP{ PQP0PSSb T-rЬP SRS`R$^XЬRТTԮ + +||ZYԮԮbPTSRˏRUEh PTSRPPˏRP@hR+R-R TSVP VVRTˏRUEhSYq\$e"V0RUnUPaVP [U[s ֮PZTSU UURˏRP@hRr RR/ݬSTj ~~PUU |~UPR.r֮ TSVP VVRˏRUEhPYq\!e"V0RUnUPaVP [U[Zs֮TSU UURˏRP@hYPRe RE1֮ TSVP VVRR+R-RTSVP VVRˏRUEhPˏRUEh+ Q0RPPQTSU UURˏRP@hՑ+ЮVήVVZˏRUEhTSPRˏRP@hTSˏRTDhPծ 3Z/q!qQ޼U +[T[TTePծ .ݬSݮ ~HPRR |~RPծ PZRR'PZRR|PZZPPZPPSpVpTSdTVxSSSdTTZdVPfVZp~pP -rp2P^ЬPЬRRPPQRQ PQRQPլRPPRRPP^oT֬ЬRRp~b  ֬ ЬSc.S0SPߤSPS9.SRbP&e~SbPE~SbP ߤSЬRRP@b. ߤRЬ RݬuPbЬ^Ь SRЬWVfxRPfQPQPPQQVRڔcЬRì SbЬ ^ЬQa pPݬQ^ЬQa Ь Pݬ Q ^ЬScЬ RݬPbЬP S1^ЬQaЬ PЏ`ЬP Q^ЬQa Ь Pݬ Qm^ЬQaЬ PЏ`ЬP Q ^ЬQaЬ PЏ`ЬP Q ^ЬSc*ЬRp~jP |~ЏPS^ЬRb } Pݬ R5^ѼЬPЏ`Ь Pݬݬݬ1^Ѽ } Pݬݬݬ^vVYT8X)R:WSLUլb}hg!PЬbЬP}\hg P}`hgfc!P``bРcP`iMդe  ݏiݏߦberhixeb\Wݏ^1RЬ$ЬЏ2|~%^Rp~gPЬPЏb|~^ؼ P|^߭ЬRP ЭQQSPQSSЏbPPb諾ТPԠPaP@pSrSUPpSUpU~#gPЏbբ<3~)PPP}bP2P^ЬRP}bP2P^ЬR6P}bP2P^ЬRRP}bP2P^ЬRVP}bPP}bPP ^ЬRѢ}bPP1߭Pe~PЭRRR~bPխЬRPSݭЬRsPSSPЬRSЏbPPIA!hIA!h^ЬR>Pf~0PpPGЬRpP~dPЏbբ<3~P2P^ЬRPf~P=pPЬRpP~udPЏbբ<3~{P2P^ЬRVPf~HPp~pPS"~PЬRpS~cPЏbբ<3~PP^ЬRPf~PpPqPqPpP~~lPp~6pPS!~aPЬRpS~+cPЏbբ<?" VMS.BCK)[V9.BIN]ICONX.EXE;177O3~1PP^ЬRPf~PpPqPqPpP~~PYp~pPSE!~PЬRpS~sbPЏbբ<3~yPP^ЬRVPf~HPp~ pPS"~PЬRpS~aPЏbբ<3~PP^ЬRPf~Psp~~|P!p~jpPS !~qPЬRpS~;aPЏbբ<3~APP^ЬRPf~PeϗPf4DPЬRpP~`PЏbբ<3~P2P^ЬRPf~Pe4DPfPЬRpP~E`PЏbբ<3~KP2P^ЬR&Pf~PЬRѢ;p~pP~_PЏbբ<3~PPЬRPf~PЬRp~p~YpP~c_PЏbբ<3~iPP ^SЬR?Pf~1Psp~~PЬRѢ;p~pP~^PЏbբ<3~PP蟢Pf~Pqp~~pPqcp~[pPpcp~HgPЬRp~3^PЏbբ<3~9PP^ЬPѠj~PЬPР QС Џ2P ^լg~P߭ݬЬPPSЭR"SRPcRPS}cP2P^߭ЬRPe~TPЭR RR~PЬRˏP@̞2P ^߭ЬRPe~P߭ЬRPe~Pխݭ~NPЭRRR~2Pݭݭ1P }7PP4^!Z"[}k}k}k}k}kj̞jЬS }cЭjPˏPP3b1P?PSЬRТ cЭRТ RТ VRV=\PW|~ЭjPUЭRTVRVRP}VRVRЬRWЏbЭjPЬSУ Rݢcr P|~@ЭjPЭjPЬRТ ЭRݢ ~  P|~ЭjPЭTЭSУЭTЭSУ ЭTЭS}88RЭSB.ЭSBSݣSЭSBRR  ЭSBWSЭRGc1\_YPGVvRbSЭRFcխYiPX|~GЭjPR(hЭS ЭRXFXЭRТRXbSЭRТcխVWW SЭRGc1fЭSգ RѣR SYЬRЭЏ bЭjPЬSУ R~c P|~ЭjPЭjPЬR}bЭjPЬR{~NЭj2P|^gVRTU߭eЬRPe~PЬPѠЏEѠi~P<~PЬQСPРS~PЭRR~PReeФPݠݠߦ'S5S4Sݭ/ }P<1~P}P^eQFޡKB};E}P<^UTRe7SxRP@dP``PcS PRReP ^ЬRJPe~TPЬR#Pe~-PЬSˏRRˏRR)c֦P |~PPң RRЏ2P ^ЬRPe~PЬRoPe~yPЬSˏRRˏRR)cﮮP |~4PPɣ Џc2P ^ЬRPe~PЬRPe~PЬSˏRRˏRR)c華P |~PPͣ Џc2P ^ЬR6Pe~@PЬSˏRR5ЏcP |~PPң ЏcP^ЬP`P |~PP^ЬRPe~PЬR[Pe~ePЬQˏPPe~APЬQСSˏPPS С T>S:SPxPPTP-ЬP`P |~PPS ЬPԠЏ`PS ЬPՠ RRRЏ`PSЬQxSTЏaPЬRբ SQQ PQPTЏbPЬQSSS RTPSRPPPЏ2P^ЬRPg~PЬRѢ~PЬP RR2RЏ`2P^ЬQˏ/PPo~P<~PЬP`UdP |~kP2P^߭ЬRPe~8Pխݭ~PѬݭ PЬRݭ2P ^߭ЬRPe~P߭ЬRPe~PЭRRTЏS/PRЏTRSPRR~PRЭЏbRPѭTѭS=_@ЬRR%Џb~P^YZ"[}j}j}j}j}j}jiiЬRˏ_RR1ЬRˏPP{B16?P߭ЬRUPe~?ЭiPЭPP1?PЬRТ RТVVSxSS8SVRRS,VRRS~[VP|~ЭiPSЬRТ cRVMPb|~ЭiPVVNP|~ЭiPЭRЭ Т V1x|TSЭREc1TMXENWEkS1PЭRC1RhPb|~ЭiPgP|~ЭiPЭPЭР ЭRТ PЭR} ЭRТ PЭR}$TPTxPPЭRТ R@PЏ`ЭܠЭRТ1aS1JUU SЭREc1%ѭVЭRТ R 1VVЭRТ R17ЬRТ STRSbRT LPb|~ЭiPTTLP|~ЭiPЭRЭТ T1ЭUХ URSVЭUCfKPCkP,ЭU@ЭU} ЭU}ЭUХPSS VЭUCfѭ!T~ЭRТ R7T~ЭRТ Rݭ~ЭiPЬSЭԣЏcЭiPЬRТ RТTRTJPb|~ЭiPTTKPS|~ЭiPЭRSS ЬRТ WT`ЭUХ URSCQ/PCkP@U } ХUPSS CQZUTЭRТ RЬSЭ̣ЏcЭiPЬSУ SУ SУ RSRIPc|~ЭiPRRJPT|~ЭiPЭSTT ЬSУ URAЭSУ SQPRxPSCS}cPPRTRЭSУ S ЬSЭ̣ЏcЭiPЬSУ RТTT~cP|~ ЭiP'TTЬRТRТ RЭiPЬRs~Э2P^ЬPРPР PЬPРPР PS^ЬPРPР P$ЬPРPР P$S^}S^ЬPЬPaS^ZYsX}i螭iЬRˏ_RR1ЬRˏPP@S1?P߭ЬRPe~ЭiPխݭ~0ЭiPЬRТ RТTRTcGPb|~YЭiPTT8HPS|~6ЭiPЭRSS ЬRТ WTbЭUХ URSCQ-ChP@U } ХUPSS CQЭj TЭRТ RlЬSЭЏcЭiP߭ЬRPe~wЭiPխݭ~ЭiPЬSУ SУ SУ RSR3FPc|~)ЭiPRRGPT|~ЭiPЭSTT ЬSУ UREЭSУ SQPRxPSCS}cPPRЭjRЭSУ SYЬSЭЏcЭiP߭ЬRzPe~dЭiPխݭ~ЭiPЬSУ RТTT~cP|~ЭiPЭj?TЬRТRТ RЭiPЬR}~Э2P^ЬTˏdRЬSˏcPRPIRR?TJPRSARP(PPPS'PTPOPݬqO<^UЬTd<ФSУ Rݢ P1У RP {PxPP@UnddФSݣ>WPTTDT>У QRPTPRС QRPTPRPPTT¡TxTRBUUPP^ASTЬRęݢWPbPˏPP^CC( @Ϫ VMS.BCK)[V9.BIN]ICONX.EXE;17fU^Nyby}yyyyy31PP?PЬRĠݢPbPЬSУ RТ R}cPЬRĮݢPbPЬRIJݢPbPЬRĸݢPbPЬRĽݢ|PbPЬSУ RݣXPcPЬRݢ=PbPЬRݢ"PbPЬRݢPbPЬRݢPbPЬRݢPbPЬR%ˏPPݢPbP{~2P^ЬRPg~dPЬRbݢ PPP<^AUʲS߭ЬR`Pe~PУRRTRQ ePQPPЭPPRPЬQRPPЭaQ8PeRTRc~PTP ^%S߭ЬRPe~aPgݭPѭPЬPЭЏ`2P|^-VﶱU߭ЬRLPe~PfݭbPѭPХSSTЭЭRSR RSSTSRЬQSPPЭaQPfPTPe~rPTP^ЬR Pg~:P߭ЬR'Pe~PЬRPg~Pխݭ~qPЬSգ}ғѭíRRxRR RЭcPݭCPW |~xPЬSУ[УVUWRWUXRX/[VTTPPVWUSRSPprPV WUQRQRXWQWUZQZ4[VYPVPPY!WURQR[VTPPT WURQRQZЬVЦXЭYYX%WPXT TUTYSSXSʏSTSR$PWUTXSSTYSSXSʏSSTPЦ RXYYXXSXSPXSXSЬRWЭbP4^WީXZ}h}h}hg̞gЬRPg~ ЭgPYެVfRx~:FTRTR1fUxTRPB`B`PЬPPB`e~ЭgPT@xTSfPQCRTPxPP@Pb`ЬPRCb~iЭgPTPTP1vЬRݢJAP|~3ЭgPЬSУcѬ KPPe~ЭgPЬRѢ~ЭgPЬRPxPPT@dUS Т Тѭح1ЭR֭ЭP֭ؐ`bbTTPPA--1P?PSЬP1PSЬP~PY׭S߭߭U߭߭SRR$R @P|~ЭgPRS*PЭP֭ `SSTTP@jPhPSѭح1YЭgPЬS|Pà RR2У }cЭgP^[ZЬR(Pg~BPYURUR1ެWVxURPB`B`PЬPPB`e~PUP |~PЬSУcѬBP?Pe~IPЬRѢ~,PЬRUxUUPE`V WТ TТSTW1}USRSbbXXPP>fRFFRFFFFFFFFFFFFFFFFFFz1:?P׭ЬP1 ЬP1߭߭V߭߭e1RTWd RTTWd íRPP1Э߭߭V߭߭ePѭP,Э߭߭V߭߭eѭR ֭ЭPSSѭR"Y Э߭߭V߭߭eѭRЭP֭PRPSPS `ЭP֭PRRPXXP@jPhP֭TW1Y ЬRâSbHTä SRRkS PЬS-Tä RRkУ }c2P|^ެRвPެ UPe<Ѽ5eTѲTвPü вPРѲT вPѼмVV  ЬU޼SecTüeRzRP{cPQPPTe^ЬRhPg~P߭ЬRoPe~YPЬRdPg~(Pխݭ~PЬRբ}ѭ Т ЭbPݭ:PT |~PЬPРWРSTRRT&WSVVPPSRTPprPSRTRTTQЬRТUТ PUЭUURUR URURЬRTЭbP^WXdUЬRPg~PЬRѢ}Ѣ}=hѨg ѧ1ЬR}h}gPg~PЬR^Pg~xPЬRѢ~\PЬTФSRPTPdTPQެVfTQЦTAcPP2PPAb@eQQЬRբ }bPЬSУRRcR8P |~PЬSУ QУPRSRSPTPSS2SSCedRSRS2P^ЬRRPg~lP߭ЬRPe~EPխݭ~PЬRТTխT }bPŭTVVݭ~PV7PS |~PЬUSVeХ RTVb~S7!׭TWPRQWPP׭P ^ЬRFPg~`PЬRТSSݢ P7P |~9PЬQSaСRSRSPRPPbQ`PSPQcRP혏P^ЬRPg~P߭ЬRPe~PЬR＆fPg~Pխݭ~PЬRբ}rѭ SíSЭbPݭ56PU |~PЬSУXУVURUSRS:XVWPVPPW"USRSXVTPPT UQRQUSRSЭTTUQЬRТS SPSTTSSRSRPpqSRSRЬRUЭbP,^ЬRBPg~\PЬRoPh~,PެWgRТX XVVV fTTPPUU QТRSTRR2RPxPPxPPPSUQcRRITVXV 9fRRPPSS UgPРPQRPP2PPxPPxPPPQSUaPPЬPР X`P<4^UЬRѢ}pѢ=Х6Pg~-PЬRѢЬRѢB߭DPݢݭkPѭPe~PЬSѣ  [߭ P7ݣݭPѭPѭ#ЭRЭRP e~ZPЬRFPh~0PѭPSЬRCSSPPQQ TТ RRSPP2PPxPPxPPPRQTbPPPЬPЏ2P|^WZЬRѢ }ﲠ Ѣ(?Ъ8P SP g~mPЬRѢ(ЬRѢ(B߭(Pݢ ݭPѭP(e~ PЬSѣ0  [߭0+P7ݣ ݭRPѭPѭ#ЭRЭRP0e~PЬR|Ph~iPЬR̟Ph~9PЬRXPh~ PWѭ1ެYXP@$UWSUPPSS TiQС PRUPP2PPxPPxPPPRSTbPPЭЏaQPUPPTT ViQСPRUPP2PPxPPxPSSRTVbPPWСPPSPTV`PPWWP֭ѭ1:2P ^﹜YЬRѢ}Ѣ=Щ6ﷵPg~PЬRѢЬRѢB߭PݢݭPѭPe~oPЬSѣ  [߭ P7ݣݭﶾPѭPѭ#ЭRЭRP e~PЬRｴPg~PެVfRТXXWѭWLUХ SRRXTTPTP fPЭЏ`PP֭ѭWP4^WЬRѢ}\Ѣ=Ч6Pg~PЬRѢЬRѢB߭0PݢݭWPѭPe~PЬSѣ  [߭ ׬P7ݣݭPѭPѭ#ЭRЭRP e~FPЬR2Ph~PЭVѭLSP@RRPPTT UУ PQRPP2PPxPPxPPPQTUaPP ֭ѭѭVPЬRЭЏ2P^3TЬRѢ}Ѣ?Ф8P/Pg~IPЬRѢЬRѢB߭`PݢݭPѭPe~PЬSѣ  [߭ P7ݣݭ.PѭPѭ#ЭRЭRP e~vPЬRPg~KPíSЬRSPЬQС SRRСP׭ЬPЏ`P4^WЬRѢ}Ѣ=Ч6Pg~諒PЬRѢЬRѢB߭ＩPݢݭPѭPe~CPЬA- VMS.BCK)[V9.BIN]ICONX.EXE;17mSѣ  [߭ cP7ݣݭPѭPѭ#ЭRЭRP e~ҼPЬRﾰPh~屮PѭlެVTP@RˏRSS UФ PQʏRxRPxPPPQSUaPP fPЭЏ`PP֭ѭP ^ЬPˏ_PP1ЬPˏPP P1?PЬTPR߭Rݤ ѭ`RТ`Ф Rע}dPЬTSPS߭Sݤ ^ѭ`RТ`Ф Rע}dPЬRz~\P<^ЬPՠPЬSУ Qա С QQ ԡСUxURBR}bUPPPPסףP|^ЬPѠl~PЬRТ SbVգU@PУ Qա С QQ ԡСTxTRBR}bfTPPPPסףUUP2P|^ЬPѠl~[PЬRТ SbVգU@PУ Qա С QQ ԡСTxTRBR}bfTPPPPסףUUP2P^ﰠT}ﱕd잭dЬPѠ |~ﷹЭdPެScPݠ P;RЭP} bRPЭdݭcPݠ PЭd2P$^ W}}gܞgЬPˏ_PP1pЬPˏPP _1V?PЬPР PR'PU|~ЭgP߭RЬTݭwPVխ?ЭP֠fUfR} }ЭP QQѠQ"ՠ4PU(fR}ЬR}bЭgPЬRТ 蟢ܲPSSQ$PT|~ ЭgP߭SЬRݭխ0PTݭ^ЭR SSѢSբ4Rn TS(ЬR}bЭgPЬRz~ЭgP<^AU}Be螭e߭ЬRUPe~?ЭePЭSSTSݭ~ƸЭePTTRSPb|~ЭePSTPR|~ѶЭePЭQRR PSTxPQAQ}aPPSЬSЭЏcЭeP ^ЬPˏ_PP1ЬPˏPP F{s?PЬTPR߭Rݤ ѭ}dPPЬRﵰPS߭Sݢ ѭ}bPPЬRz~ȵP^ЬPѠl~PЬPР SգPУQա СQQԡ PPP¡PxPRBR}bסףP ^ЬRТPР SѣfMRRR|~RPS$PRR |~|~RPSЬPРRТ RSРRТ РRS RRxRP@P}`R֣ЬPP^aZFMX}[j잭jЬRѢl~aЭjPSެnS [U оR[SUTU1YWRЩ bЭPР Sѣ_ǨRRR|~RgPS(PRR|~۳ЭjP|~RgPSЭRТ RSЭRТ ЭRS RRxRVxTP@kQFP}a`R֣ЭP֠TTU1RЬR}bЭj2P^ LTЬRТPРSѣcǤRRR|~RPS$PRR |~|~RPSЬPРRТRS РRТРRSRR£RxRP@P}`֣ЬPP^mZRKX}gj잭jЬRѢl~mЭjPSެnS [U оR[SUTU1Y!WRЩ bЭPРSѣ_Ǩ RRR|~RgPS(PRR|~ЭjP|~RgPSЭRТRS ЭRТЭRSPP£PxPVxTRBkQFR}ab֣ЭR֢TTU1RЬR}bЭj2P ^)[}*}"ЬSˏ_SS1ЬSˏPP]1?PЬSУ ЭSݣ P|~ʰЭPkPU|~殺ЭePЭSУ 19ZRYXWPVЭSVxЭPVTT TxTQAS߭SjPRRSݭiPQխ3}c RQUݭhkgPU|~ЭPVЭPVЭSУ 1nUu ЬRЭЏ bЭP|~ RPS|~Э\PЬRSЏ bЭAPЬRl~c"2P^|~ PR |~6PЬP}8RЏ `P|^eVЬPѠi~PЬSУ PРUxfffУ RТTT$T<U-ЬP}`PT%ԢUBxPPˏPЏcPUЬPР Qԡ}`P^߭ЬPPP |~?Pݭ ^ЬRﲛPg~PЬRݢ PR8RPSSRPR |~̭PЬPRS`PP^oX0Y}i}`}iЏhhЬR3Pg~MhPЬRPg~hPЬRPg~hPVЬPРSРTRT1PPPA7}}KP&?P VVPVNPVFPV>PV6P1PV*PȏVPЬP~hPRRT1ˏVRVV w PVaV rwˏVRR+V1$RoPb|~ehPR|~@Pb|~>hPRТ URURcެWTxUSRCbRbgRRCbR}ibRCbRbЬRRCbm~˪hPURUR߭~ЬSPT1ѭ xRSBc~ohPhPV9V VЬR~=hP;PTPTT hPPVTPS|~ͩhPV0ФRЏpФRSt ФR}pЄЬRSЏbhP^ōZ.V#BWЏf잭fЬRѢЏﺃ "PѢi~ЭfPЬSУ RТ[Тnn~ЭfPԭˏnXYxjjjծO[<~gGPRR~ЭfPR9~qЭfP[<~gPRRЭfPR <UPRUUTThP|~ ЭfPխR{Pѭѭ =T~hP|~ЭfPݭݭiP|~ɧЭfPTgiPS|~ﬧЭfPխSTR1}Э2P|^͋V6UЏe螭eЬPѠЏɁ !Ѡi~ ЭeP߭ЬR Pe~ЭePЬQС PРTРRR~ʦЭePխݭ~WЭePݭP|~ЭePԭxfffRPTݭݭDPSS~LЭePS)~.ЭePTݭݭ5PSSЭePSSQyP  QQS }ЭeP^ЬRZPg~ﰥPЬPݠ FPP}X2P^ЬR Pg~`PЬRPg~9PЬPݠݠ PP}ހP^]TЬPѠi~P߭ЬPբP |~ĤPЬPР PРSՠPxdddЬPР PPЭRR~S"PPRSPPЬP}2P ^SЬRÑPg~PxcccЬRݢ PЏbP^=RЬPѠi~ȣPЬPР PРQՠPxbbbЬPР PPQ"PQЬPQЏ2P^ￇY(X}Ww[VЧZЏhhլ}~hPЧVxiiiZV PV ќZ'fR ~ТhPVݏЬRѢ~hPЧVRլ1nUTxRSPC`P`1RVxiiiZV 6V5PV  fP ~hPVxRQePPAP`PРZZЬPPA`~͡hPxRQePPAP`PРV1PkePPC`aPЬPPC`m~shPZVES`^;En{P;bm˪7P8#G1k2z̧^UȌwٵF*~fF'_iy:&bu\`81/5vtj헖~LtM>5'wR$oꪘÏ4YW,dY9d36 j bG&8"x- ]p,sυ8c)vʵ;;LIgj|AavAe!mX\4HQ6f[x.{ //xLe}}>6*dBo@i[9:*~x h)'T7 u%7dʊy!S#vu`e& ,.4tyŒǹ.֓0p^os ̀&P`tũ*:w },@(D<%"hw47p@LS&A;%YtS:I<% =I͓S06;IYM^!$N8RQQj6NT'pwuIΣ 2}"\g7Qd1ꧠ2t5Խp Iʟ.DH:30Uy{Xy3 ,vz@EEv2HznL8+vy5{m-8|(ɢ`l@?e럪s`"2S=5ab(la>!s#vn.kF8$E/y3Tz~|awchs [2,9+ByKwǓ7@͠ї ϗѴ %F!S8 4NDX Hlwiba4U94adUN(_cf3L}YbUs[ uby׶~a6eubr8f8 !ʒ+M5e~Ѽ!Hxd8!:Ң_z!#8ysAJy_ GB(k?(p&IF{?-hl Mj=DY>_4@P38w8㬰 WÙ'o 'b9'qmM5gCS8ZO.!u9VbMiH[X6ر[jr[=tsgB좉x6"A?++|-JNZb}_ 6ffdN;:To_i 5ffKaJ(2ۜ8oͦ/.qZJN;H 6ĊB?6mdME,׬Q: OM"m2IpWAS·BH.1B `T&h &@b$Ka=˃r{+>޻OZVj['6I10^A'hPDܗ&7[ʜS>N;}.-%S\@i-NVȑLuN> oH]ޒ_Jc 8͜7O;iM<&~uS;3-;#CTs(=5s}\ZzF-͙[Fʙ:`ѸpI[Mqw)Y=!K0C @_Ч{ScRGr֎>'cks>V0tL\V_ 14 2ԠJI aFݢByKXQC3CzI[QP5x@.q_=&M:E55\JmwTaqR%4CG]ՠŲ[ZO`L] baL?\dO |e^x#m1Ԅ[qm(g{Vg<Av%!;< pP);;`1^[~""bnX-ٖp3 РfӺlbFZ 'U:^99"# YcgK $h/YDUEsZzOdA#TaQH'ZZ~ B\i7(v[5xdnRqɡN)Q&[b=c˹5m*^Re,Lp+t$LԜ ; ac{CPGpLVXݳ)ׄ*L4%i>R-؊6t٘wĩ~h䯛EȟlL"ƨP:|ւl\O3 UŦYT}IA K,x-߶g|Qj#)>_ʱkn&1Gwu@%GmGM>1uDI;g8(!..6[ZVq2>6A0ǸY]Zo䰘Oz3@9QԁfQ0G+,k5mP<mO8|FTGFĬOjMsj \}pLX$&#񲊷0YF_7Ju} hխ.fh2j=NimUPRG0hLOt{۰~ S} \+tKHß{?Ar^]("jW|Ҕk1rt[Aѱ'^G6{7E]< L4.:|6P-P?jܡ\GD5m 2Hh|sAWв}'{ pؿq1tʇGrfZ#&cbyF#)N5r,tbПW)91pƔgs/wٽY-#[#2f5h9\5qzjeYǧ}g|Lim hQ0]3:rJi 1dO`?Cvͥ,@:ARP vK @5VgXs~dB8nǬRf /W%/_IrF{9f`ޟ**xy &!;ꧼ&,k㓢; (Vc<@sPWTy6U֖$tPQc-3~C,"t~V6>xR_~>6YW6ac᧱ T.|`=̱?= _"%ș[扫$uƬw[)q\i(IFs/ؗmU26Ǝ=0fqQA@A540&dYTF6ωvy1G nɖڀ{L> ٟAd܊gZ/e,U[;WcSfPU+(kg. "G6e3c& Y"PQKgDM5ֺU:̈dZQe(i NU}V+YI=Sݾhve Ѥ7,R"[of[b{rz+pl^ԃFI 7M)KaQuֲNy3|RKz R,əJ1髀/^ϻʳ^ϰ["qr]/FD޶cP.u(`Zjl7N~&#h "v=+M˴&b7w^]N&#\PfʶbFO-47 :# (ELK@@o߄'EL,q{4Y( O'ęWُC VMS.BCK)[V9.BIN]ICONX.EXE;17¿|"xRQePPAP`PРZZЬPPA`~iPxRQePPAP`PРV1PkePPC`PЬPPC`m~﫞iPZVBwPRRsP|~\ЭgPЬPЭR`ЭgP^oVWլ1xWRЬPSBcP`mBP`PBc~PxWSЬPRCP`PˏPCb~ŕPxWRЬPPBP`PРUWLf ЦPf~PЦPˏPf~ePЦPРUХ SЬT| УU[߭߭߭߭WЬRTUPxPPR@be~PЭ ЭЭЭUW}fPЬQ}aP`^wnYx{XЏЏhhVլ1xVSЬRTCdRbwCRbRCd~PhPxVTЬRSDRbRˏRDc~hPxVSЬRPCRbRТUVVi ЩRi~ՓhPЩRˏRi~ﰓhPЩPРU<PW|~hPХַѬV1xVSЬRTCdRb1CRbRCd~9hPxVTЬRSDRbRˏRDc~hPxVSЬRPCRbRݢP |~͒hPV!UP |~晴hPVTT1ެVfUxTSPC`P`1fPRCbPЬPRCbm~AhPcxTQfPPA`RbARbWbP==3?PhPxTQЬPRAbӑhPTT13ЬREf<~WoP|~hPЏh2P,^9xX}e}ehhnլ1xnSЬRTCdRbuCRbRCd~ЭhPxnTЬRSDRbRˏRDc~ЭhPxnSЬRPCRbRТnivj mjR]j~ЭhPHjRˏR2j~gЭhPjPРѬne~@ЭhPnRR1߭xTЬRSDcY|PRDbe~ЭhPݭݮ PTЭhPT̉PSSTP|~ﳏЭhPЬRTSbЭhPnRzRP{PQPP~xЭhPnRR~WЭhPnVV1hެYЩW [2 Z߭xVSRCbW{PЬPRCbe~ЭhPݭݮkPUЭhPVSxSSiPTCdRb bvCRbЬPRCb~ЭhPVQxQQiPPARbݮkPRЭhPRݭݮ PЭhPRUjUCd{PЬPRCbg~ЭhPݭݭݮ PЭhPݭUjVV1n}gЭhPЬS}cЭ2P8^WbgVctU}$beeXЬPѠР Q СTXfЦQСTTXg~7ЭePxXSЬRPC`zPRCbg~ЭeP߭߭߭ݭT1P_ݭݭݭߧ,߭߭PRR߭P<2~ЭePЬPЭR`ЭePЭ2P$^%fUVլ1xVRЬPQBaP`mBP`PBa~&PxVQЬPRAP`PˏPAb~PxVRЬPPBP`PРWVLe ХPe~﵋PХPˏPe~PХPРWѬV1xVRЬPQBaP`oBP`PBa~LPxVQЬPRAP`PˏPAb~PxVRЬPPBP`PРTVPWT߭߭߭߭VЬRݬW@uPxPPR@be~ﺊPЬSVPSPPS߭߭߭߭V~ЬRSTtPxPPR@be~jPݭݭݭݭݭݭTWPPV}ePЬQ}aP<,^pU}e}eЏЏeԞePS|~׉ЭePЬRѢiТ Q`СPРTTѢ.ТQ%ݡSPЭePֳ P~fЭePdP~JЭePЬR]<~SP|~ЭePЏЭԥ2Pμ^nլ1xnSЬRTCdRbnCRbRCd~ﻈPxnTЬRSDRbRˏRDc~PxnSЬRRCRbRТWnbP"b bR b~>PaRˏRa~PaRТWXnVެ[VkVn1DެоYkrW CXKЧ QЧPRСDTТSRUR<~TRS<~TUSX߭߭߭߭VݮWqPxPPЬRR@be~5P XP@Qa@Qaխ׭խ׭؞@Rb@RbVRRkVSxSSоRPC`RbUmPC`PЬRRCbf~句PpRpϞ~pR~pPpϔ~rR~rPrPd4DPf}Pd8PjPUVRRkVSxSSоRPC`Rb<ZTwC`PЬRRCbf~ Pp~qP"VPxPPЬRR@be~؅PrPd4DPfPd8PjPTTPZ XP@RZbPT TUTPT XP@PT`U#UPRzRP{ZPQPPZUPzUP{ZPQPPU XP@PU`XVVk1eVn1]Ч PЧSÀRРDUТTÄRÈZRXURTCXUZT0n }^PЬS}cP^q^VWլ1xWQЬPRAbP`mAP`PAb~rPxWSЬPRCP`PˏPCb~APxWQЬPPAP`PРUWLf ЦPf~PЦPˏPf~PЦPРUЬSQxWPPQ~WTTU7oPRW}fcP}cPRT~PWRxRRPB`f~lP^nԮ լ1x SЬRTCdRboCRbRCd~ Px TЬRSDRbRˏRDc~Px SЬRPCRbRТZ֮ `\ }\Rm\~P\\RˏRF\~{P5\PРZî RzRP{PQPP~KPî [[~/PЪ RТ$Т([RxR~{PX<1~P[1f߭xTЬRSDcnPRDbe~￁P߭TxTTЬRSDcmPRDbe~P߭TxTTЬRSDcmPRDbe~OP߭TxTTЬDIE VMS.BCK)[V9.BIN]ICONX.EXE;17RSDcumPRDbe~Pѭ1ѭ1nTxTTЬRSDcqPRDbe~ȀPѭ ѭRЏbR<hTxTTЬRSDc]qPRDbe~cPѭ܏ ѭRЏbR<2hSЪ R$SSh2SЪ R(SS1xTЬRSDcpPRDbe~Pѭԏ ѭ؏RЏbR<hTxTTЬRSDcupPRDbe~{Pѭ̏ ѭЏRЏbR<Ш2hSЪ R$SSh2SЪ R(SSV[1ެYUoWVTTT TxTSRCbgPЬPRCbe~~Pѭď ѭȏPЏ`P<xVP@hRbTxTTiPRDbgPЬPRDbe~q~Pѭ ѭPЏ`P<xVQAScAhR2bPPPb2cPPPc[V nxVRBhRШbPxVTVRxRRBhSDhRcb[PЪ PЪSÀRРDVТUÄTÈWT[X~VTU y[X~VWUx[~XZnXvծ  }5WPЬS}2P^WZxYUլ1xUSЬRTCdRblCRbRCd~ }PxUTЬRSDRbRˏRDc~|PxUSЬRPCRbRТ[UKj ЪRj~|PЪRˏRj~}|PЪPР[ѬU5߭xUTЬRSDcTzPRDbe~:|PURR9߭UTxTTЬRSDczPRDbe~{PURRg~{PUTxTTЬRSDcnpPRDbg~{PЫ R$Ы R(UUWXWSUS2eRʏRBi# XRPPR0RXUSePʏP@iXRR,PeVV# V~1UTUQQW+PaRˏRP@iTR  R,PQQWTPXSSzTP{SPQPPPSTSUW~UVSXݭݭ[/P<1~zP}NVPVWRUReRʏRBiPTWSUS4eRʏRBi%P TRPPR0RTUSePʏP@iޚRR,PVgTTTTPVc TTPT@PS<1~yPRRP@ RTUQQW?PaRRP@ @ R~ RTR  R,PQQWTPzTP{XPQPPPXTPUW~USPXݭݭ[ PV }TPV<1~ yPЬRVЏb2P^nլ1xnSЬRTCdRbnCRbRCd~xPxnTЬRSDRbRˏRDc~zxPxnSЬRRCRbRТWnbPR RRQ~.xPQRˏRQ~xPQRТWnRzRP{PQPP~wPnRR ~wPЧ RТ$Т(ZXZ 1rެоYih[ZZUnUXVЧ RЧQPТDTРSRVR<~TRS,<~TVS,ЭXxUSRCbkPЬRRCbe~vP PЏ`P<xXP@RbUxUUоRREbkPЬRREbe~vP PЏ`P<xXRBScBQ2aRRRa2cRRRcZXZ 1Ч PЧSÀRРDUТTÄRÈVRXURT=qXUVT(qn }OPЬS}cP^nլ1xnSЬRTCdRbnCRbRCd~kuPxnTЬRSDRbRˏRDc~:uPxnSЬRRCRbRТWnbPN NRN~tPNRˏRN~tPNRТWnRzRP{PQPP~tPnRR ~{tPЧ RТ$Т(ZXZ 1|oެоY)e[ZZTnTXOЧ RЧQPТDUРSRVR<~URS,<~UVS,XxTSRCbkPЬRRCbe~sP PЏ`P<xXP@RbTxTTоRRDbkPЬRRDbe~GsP PЏ`P<xXRBScBQ2aRRRa2cRRRcZXZ 1Ч PЧSÀRРDUТTÄRÈVRXURTnXUVTmn }ILPЬS}2P^nլ1xnSЬRTCdRbnCRbRCd~/rPxnTЬRSDRbRˏRDc~qPxnSЬRRCRbRТYnbPK KR}K~qPlKRˏRVK~qPEKRТYnRzRP{PQPP~\qPnRR ~?qPЩ RТ$Т(TxTTЬRSDcaPRDbe~pP RЏbR<TxTTЬRSDcaPRDbe~pP RЏbR<2RRR2RRRZWZ 1kެX`[ZZUnUWVЩ RЩQPТDTРSRVR<~TRS,<~TVS,ЭWxUSRCbkPЬRRCbe~~oP PЏ`P<xWP@RbUxUUоRREbkPЬRREbe~ oP PЏ`P<xWRBScBQ2aRRRa2cRRRcZWZ 1Щ PЩSÀRРDUТTÄRÈVRWURTiWUVTin }HPЬS}cP^nլ1xnSЬRTCdRbnCRbRCd~mPxnTЬRSDRbRˏRDc~mPxnSЬRRCRbRТYnbP^G UGREG~zmP4GRˏRG~SmP GRТYԮnVެVVn18ЬZо}hX߭߭߭߭VݮYgWPxPPЬRR@be~lPѮ1Щ RЩQPТDUTSWVS1xVQAP<`~AP<`~AP2`~AP2`~USThxVQAP<`~AP<`~AP2`~AP2`~UWThVԮxRBQaBQaBP`BP`֮VV1Vn1Щ TЩSÀRФDТ[ÄWÈ Uծx)gSW2xURBP<`~BP<`~BP2`~BR2b~ݮ$W[cxURBP<`~BP<`~BP2`~BR2b~ݮ$ݮ [cUUn } EPЬP}2P^nլ1xnSЬRTCdRbnCRbRCd~jPxnTЬRSDRbRˏRDc~jPxnSЬRRCRbRТXnbPVD MDR=D~rjP,DRˏRD~KjPDRТXnRzRP{PQPP~jPnRR~iPШ RТ$Т( [W[1BeެоYZZx[VnVWKШ RШQPТDTРSRUR<~TRS$<~TUS$WxVSRCbjPЬRRCbe~AiP PЏ`P<xWP@RbVSxSSоRRCbjPЬRRCbe~hP PЏ`P<xWP@RbVSxSSоRRCbjPЬRRCbe~YhP PЏ`P<xWP@RbVxVVоRRFbjPЬRRFbe~gP PЏ`P<xWSCTdCQ2aRRRaCQ2aRRRaCQ2aR RRa2dR RRd[W[1Ш PШSÀRРDUТTÄRÈVRWURTbWUVT~bn }@PЬS}c2P^nլ1xnSЬRTCdRbnCRbRCd~fPxnTЬRSDRbRˏRDc~fPxnSЬRRCRbRТXnbP@ @R@~6fP?RˏR?~fP?RТXnRzRP{PQPP~ePnRR~ePԮծ1ެ о [Q aZUnU߭xUSRCbPЬRRCbe~heP߭USxSSоRRCbPЬRRCbe~0ePШ R$Ш R(USxSSо RRCbCbYPЬRRCbg~dPUxUUо RRETdWEbRbYSYsPCg cШ RШQPТDUРTRVRSWݭݭURTjSWݭݭUVTjSRRWRYSШ RТ RSSYШ QШPRСDUТTRVRYWݭݭURTjYWݭݭUVTj֮Ѯ1Rn }=PЬS}c2P^=XWլ1xWSЬPQCaRbmCRbPCa~cPxWQЬPSARbPˏPAc~UcPxWRЬPPBRbPEKG4 VMS.BCK)[V9.BIN]ICONX.EXE;17*VWLh ШPh~cPШPˏPh~bPШPРVWSެUSeSWiЬRХT߭߭߭߭STV MPQxQQЬPPA`e~bPݭݭݭݭVSSeSWW}hPЬQ}2P|^ ZPxWSЬPRCP`PˏPCb~ ZPxWQЬPPAP`PРUWLf ЦPf~YPЦPˏPf~YPЦPРUЬSQxWPPQ~WTTUEPRW}fcP}cPRT~UYPWRxRRPB`f~8YP(^nլ1xnSЬRTCdRbpCRbRCd~XPxnTЬRSDRbRˏRDc~XPxnSЬRPCRbRТndPV2 M2R=2~rXP,2RˏR2~KXP2PРnRzRP{PQPP~XPnRR~XPxx~uQPV<1~WPЮRТ RТ$ Т(Uծ1ެZjWHXUUTnTxTSRCbhPЬPRCbe~vWPѭ ѭPЏ`P<xUP@fRbTxTTjPRDbhPЬPRDbe~ WPѭ ѭPЏ`P<xUQAScAfR2bP PPb2cPPPcUU1ЮRТ PТSÀRРDYТTÄRÈ[R|~ݮVYRTQ|~ݮVY[TQVOn }0PЬS}cP^nլ1xnSЬRTCdRbnCRbRCd~UPxnTЬRSDRbRˏRDc~UPxnSЬRRCRbRТVnbP^/ U/RE/~zUP4/RˏR/~SUP /RТVYnWެ[WkWn1ЬXkPZ߭߭߭߭WݮVk?PxPPЬRR@be~TPYIЦ RЦQPТDTРSRUR<~TRSj<~TUSjYxYRBQaBQaBP`BP`YWWk16Wn1.Ц QЦPRСDTТSRURYTRSOYTUSyOn }-PЬP}`P^-T:V}Y(f잭fWլ1xWRЬPSBcP`tBP`PBc~}SЭfPxWSЬPRCP`PˏPCb~HSЭfPxWRЬPPBP`PРUWSd ФPd~SЭfPФPˏPd~RЭfPФPРUWTxWSЬRPC`J@PRCbg~RЭfPUPЭfPU[LPRRWP|~@RЭfPЬPЭR`ЭfP^+Y8X}&h螭hZլ1xZSЬRTCdRbvCRbRCd~QЭhPxZTЬRSDRbRˏPDc~QЭhPxZSЬRPCRbRТWZUPi ЩPi~EQЭhPЩPˏPi~!QЭhPЩPРWѬZg~PЭhPZUU1VTxURPB`P`fPSBcP`K߭fPPB`Rex1֯?PxRQЬPPA`g~IPPЬPZ`PЬPD `PЬP=`PЬPJI`PЬPd`PЬPd`PSЬQ SaPЬQdSaP^W/VЏffЬPѠР PUPUUPPg~HfPxUSЬRPC`PTTRCbg~nHfPT fPUSxSSЬRPC`PxTRЬPQBP`PˏPBa~>PxTQЬPPAP`PРRTLc УPc~M>PУPˏPc~->PУPРRR\T}cPЬQ}aP^U$W}uggXլ1xXRЬPSBcP`tBP`PBc~=ЭgPxXSЬPRCP`PˏPCb~d=ЭgPxXRЬPPBP`PРVXSe ХPe~!=ЭgPХPˏPe~<ЭgPХPРVѬXg~<ЭgPxXSЬRPC`M*PRCbg~<ЭgPXPPԭ=߭XSxSSЬRPC`m:PRCbe~S<ЭgPXPPԭ=߭XSxSSЬRPC`!:PRCbe~<ЭgPXRRXSxSSЬRQCaP`TժתRТRRѢ VkPuRТТ ТhТ@ТP1VЏfVfVH VMS.BCK)[V9.BIN]ICONX.EXE;17RТfVRТf1PhRhbSRhSb1VЏfVfЦЦV1fVЏfVhRhbfVUUVkUPn1PhR_hRhbShRRSSSh1 PhRhbh1h:h1PVRRVkRP1RV1`VЏfVf1PV1PVЏfVf1VЏfVf1VЦЦf1rVЏfVfVUUVkhRhhbRURPn1VkVTTd dddTv~1ФS kRRSRkkVP1V1PVk{8nR֢ kRPEykV1PVkC |~PykV1|PnP>8閭߭߭61LPkVnPP&*" 2?P111_111UV1  b^[,ZYkTЏjjkUЬPxPRRUSPZSCc ccc1߭cDPQcRЏbcRЭݬݣYPP jPxPP@cR}bcSkjPccPPݬSpPRSj~vjPRЏcУRբ-RެVRf!ЦUxRQAcP` AcAcURУWЧ XUЬUUXXURRRxRRRT,UX'UXRRQRPQTЏdTdPRPRXX1Pէ1X7PѬPEX&PR¬RRQRPQPTЏdTdPRPRXPXVfPPUXfxPP@cR}UpI}b}УWRTXfPէ1XPѬPBX{PR¬RRQRPQTЏdTdPRPRXGPЬ STkX ѧ jPjPdkRR<-~xTRЬb>NԢw S R TթשݬtЧ|z0ЧPPTЏdTdPTkjP^ЬQ]DPPЏaQPЬPЏ`PPЬPЏ`PPЬPЏ2P0^ݭݭݭ߭߭oPR |~PЬPR2P^ЬPЏ`P1PЬPЏ`P PЬPЏ`PPЬPЏ`P^2P^}U2P 0^1Sݭݭݭߣ߭ ߭mPR |~PЬPR 2P^ӀTdЭRR ޤSR  R ޤ!SR RSݭRݭݭݭݭߤ$ hePSSamPR |~KPЬPRS`P^ЬPЏ`P^QЬPЏ`(P^ЬPЏ`P^%PЬPЏ`P^PЬRݢPb2P^ }P2P^ЬPЏ`P^2P^ЬPЏ`P^ЬPЏ`P^ЬP}Џ`P^~Sޣ>P'ЬRޣBݢPbR9PޣFP'ЬRޣRݢPbR Pޣ^P'ЬRޣdݢiPbRPޣjP'ЬRޣyݢ<PbRPÈP(ЬRÞݢ PbRPôP(ЬRݢPbRTPP(ЬRݢPbR%PP(ЬR ݢPbRPP(ЬR+ݢQPbRP:P(ЬRKݢ"PbRP\P(ЬRbݢPbRiPhP(ЬRzݢPbR:PÌP(ЬRÜݢPbR PìP(ЬRõݢfPbRPþP(ЬRݢ7PbRP2P^%|T_PSSPPЬRSݢPb2P ^PSShPR |~PЬPRS`2P^ЬPЏ`P^ѝQЬPЏ`4P^ﱝQЬPЏ`\P^ЬP Џ`P^ЬRyfPЏ2P^}2P^}2P^ЬPЏ`P^ QЬPЏ`2P^QЬPЏ`2P^ЬPЏ`P^ЬPЏ`P^ЬPЏ`P ^ЬRԢЏbRfPPàSРRâPPSТRRТQáPPSСQЬRSЏbRPPàSРRPâPPSТRRТQáPPSСQЬRSЏb2P ^ASЬRݣZPЏ2P ^ЬRԢЏbRbPPà SРRâ PPSТRRТQá PPSСQЬRSЏbRPPà SРRPâ PPSТRRТQá PPSСQЬRSЏb2P^ЬP)Џ`P^ЬRPЏbP^ЬPЏ`P^ЬPQЏ`P^QЬPЏ`2P^wQЬP,2P^ЬQ!ЏaP^|~1PЬPӣЏ`2P^I<~PЬPЏ`2P^ ~PЬPkЏ`2P^~qPЬP3Џ`2P^|~1PЬPۢЏ`2P^I<~P  }PP^ ~P }gPP^~qP }'PP^ЬPЏ`P^ЬPЏ`P^ЬPЏ`P^ЬPЏ`P^ЬPЏ`P^ЬPЏ`P^ЬPЏ`P^ЬPЏ`P^ЬP Џ`P^ЬP Џ`P^͖QЬPЏ`2P^節QЬPЏ`P^ЬY}잭ѠRТSRb[УnRRWPb |~խ ЭPn[ݬ_PW |~W ЭSPЭRЏ4ЭRW8eR((bԧ8X:VZ[}[Z;S RUn P}nUݭdЏiЭ2P ^SЬRբ<LUP< |~PRRݣݬ8P |~PRݬ ݬݬdP PP 8^ISЏЏcȞc߭ЬRP'߭rPǭЏbЭcPЬRP(PbǤЭcPЬRPf~ЭcPЬRPf~ЭcPgPЬRpP~][PЏbբ<3~cЭcPЭȣ2P8^ TЏЏdȞd߭ЬRGP1߭3P1ݭݭPSYPЏ`PЭPЏ`PЭb؟P|~ЭdPЭdPSЏbЭdPЬRgPBVP1bP|~1ЭdPЭdPЬR Pf~ЭdPЬRPf~ЭdPЬRc~YPЏbբ<3~ЭdPЭdP8^IYЏЏiȞi߭ЬRP1߭oPtխݭ~ЭiPЭSzP{SPQPPTխT'SSPSPPTTSSPPSPPTЬRTЏbЭiPЬRPBP1bP|~ЭiPЭiPЬR[Pf~MЭiPЬR0Pf~"ЭiPpSpUgUSPjPRnRPdUPcPSWsSsW'sUpURrURbRWsWsUpURPrUR`RWЬRpW~WPЏbբ<3~ЭiPЭi2P8^QTЏЏdȞd߭ЬRP1߭wP1ݭݭPSYPЏ`PЭPЏ`PЭb؟P|~ЭdPЭdPSЏbЭdPЬRPBP1b#P|~uЭdPЭdPЬRPPf~BЭdPЬR%Pf~ЭdPЬRe~UPЏbբ<3~ЭdPЭdP ^߭ЬRPbݭPS:PЏ`PЭbyP |~oPPЬPSЏ`PGP2bI0U VMS.BCK)[V9.BIN]ICONX.EXE;17@_P |~%PЬPРPPPf~PrPЬRpP~TPЏbբ<3~P2P^߭ЬRPЭЏbP}P}bP`P1p~1TPЏbբ<3~7PPf~!P8^TЏЏdȞd߭ЬRP1߭P1ݭݭgPSYPЏ`PЭPЏ`PЭb؟P|~gЭdPЭdPSЏbЭdPЬR3PB"P1b韛P|~ЭdPЭdPЬRPf~ЭdPЬRPf~ЭdPЬRa~bRPЏbբ<3~hЭdPЭdP^ЬWBP1.P)gGP |~ PPPf~PЬPpUРR`nsU#R}XPRRRgUUpSRPRdUSdUUxRRRpS~TQnYPnZժX ЏXX |~GPP.Pf~ PЬRPf~Pss~Ps~PЬRp~p~ pP~PPЏbբ<3~PP^s"լ I}+BDPլ  ά gpSլ  dSdx լ ЬRpS~OPPЏP ^SЬQ ЬQˏ/PPo~PЬPˏ_PP1ЬPˏPP |N7$1j?PЬR 'P1g~>PЬR Pg~P1d߭ЬRCPe~PݭUPѭPЬPР PЭ1 P߭ЬRPe~PЬPР QЭ΄P1 ~UPЬQѡ } 1Pѡ СP~PЬP} `ЬP} UЬPAЬP7P&|~PЬQˏСPxPP P}`ЬP}`P$^YS*TЬQ [ЬRJcܞcˏ/PPo~6ЭcPЬPˏ_PP1ЬPˏPP RO$1?PЬR P1g~ЭcPЬR uPg~ЭcP1|߭ЬRPe~]ЭcP_ݭPѭЭcPЬPР PЭ1P߭ЬRSPe~ЭcPЬPР QЭ6P1~ЭcPЬQѡ } 1Pѡ СP~{ЭcPЬP} dЬP} YЬPwEЬPP*|~%ЭcPЬQˏСPxPP P}`ЬP}`PqPЭcЬPˏ_PP1ЬPˏPP SH%1P?PЬP [P1䚏g~rЭcPЬP -P䚏g~GЭcP1|߭sP䚏e~ЭcPݭPѭЭcPЬPР PЭ1P߭쟭P䚏e~ЭcPЬPР QЭP1H~}ЭcPѭЬPް R}b1ѭ ЭP䚏~;ЭcPЬPް R}biЬPް R}bZPЬP/EЬPOP*|~ЭcPЬQˏСPxPP P}`ЭcP^hXiT調Y3U|V}Z}RЬRW̟Jddˏ/PPo~6ЭdPЬQˏ/PPo~ ЭdPЬPѠYѠOР РЭRЭQѢ6ˏТ SˏС PSPѢ áWPѡâVЬRˏ_PP1ЬRˏPP S@%1PR?PЬR P1Ԛg~&ЭdPЬR PԚg~ЭdP1t߭'PԚe~ЭdPiݭ9PѭЭdPЬRТ RЭ1P߭PԚe~qЭdPЬRТ PЭ|P1h~9ЭdPѭԏЬR޲ R}b1ѭԏ ЭRԚ~ЭdPЬR޲ R}biЬR޲ R}bZPЬREЬR P*|~ЭdPЬQˏСRxRR R}bЬPѠѠ VЭPVЬRˏ_PP1ЬRˏPP TA&1P ?PЬRP1̚g~ЭdPЬRP̚g~ЭdP1t߭P̚e~ЭdPiݭPѭЭdPЬRТRЭ1P߭쟭P̚e~)ЭdPЬRТPЭfzP1h~ЭdPѭ̏ЬR޲R}b1ѭ̏ ЭR̚~ЭdPЬR޲R}biЬR޲R}bZPЬR EЬR P*|~QЭdPЬQˏСRxRRR}bЬPѠѠ WЭPWЬP}`PyPЭdЬRˏ_PP1ЬRˏPP S@%1P?PЬR cP1̚g~zЭdPЬR 5P̚g~OЭdP1t߭蟭{P̚e~!ЭdPiݭPѭЭdPЬRТ RЭ1P߭䟭P̚e~ЭdPЬRТ PЭxP1h~ЭdPѭ̏ЬR޲ R}b1ѭ̏ ЭR̚~KЭdPЬR޲ R}biЬR޲ R}bZPЬR? EЬR_P*|~ЭdPЬQˏСRxRR R}bЬPѠѠ VЭPVЬRˏ_PP1ЬRˏPP TA&1P^?PЬRP1Ԛg~2ЭdPЬRPԚg~ЭdP1t߭3PԚe~ЭdPiݭEPѭЭdPЬRТRЭ1P߭ܟPԚe~}ЭdPЬRТPЭܠuP1h~EЭdPѭԏЬR޲R}b1ѭԏ ЭRԚ~ЭdPЬR޲R}biЬR޲R}bZPЬREЬRP*|~ЭdPЬQˏСRxRRR}bЬPѠѠ WЭPWЭdP<^TU|V} }̟ЬR ܟdĞdˏ/PPo~ЭdPЬQˏ/PPo~ЭdPЬPѠXѠNР РЭRЭQѢ5ˏТ SˏС PSPѢ áWPѡâVЬRˏ_PP1ЬRˏPP SH%1P?PЬR P1䚏g~ЭdPЬR P䚏g~ЭdP1|߭۾P䚏e~ЭdPݭPѭЭdPЬRТ RЭ1P߭{P䚏e~!ЭdPЬRТ PЭ^rP1ﰫ~ЭdPѭЬR޲ R}b1ѭ ЭR䚏~ЭdPЬR޲ R}biЬR޲ R}bZPЬREЬRP*|~EЭdPЬQˏСRxRR R}bЬPѠѠ VЭPVЬRˏ_PP1ЬRˏPP TI&1P?PЬRsP1ܚg~ЭdPЬREPܚg~_ЭdP1|߭Pܚe~1ЭdP3ݭPѭЭdPЬRТRЭ1P߭쟭+Pܚe~ЭdPЬRТPЭpP1`~ЭdPѭ܏ЬR޲R}b1ѭ܏ ЭRܚ~SЭdPЬR޲R}biЬR޲R}bZPЬRGEЬRgP*|~ЭdPЬQˏСRxRRR}bЬPѠѠ WЭPWЬP}`ЭdP^Zl[}UЏЏЏ$ЬRbPgk}bjPSЬRТcR gk}ʹj若PPXXYYk}jqPXRRYRR:PV FPVRUTX TTXSR RRYJ VMS.BCK)[V9.BIN]ICONX.EXE;17UYWTW PTTWSѣ }益ˏУ RxRRR}bRP ^ЬSУUe }ХVХRRVMPWgSSTS4ѣR.PѣR MDP}STУSѣR֦TS gUg PФU e}Џ U RRѦRզ4 V^ЬR־Pg~PЬRﯾPg~PЬQ RRС aPPR <à PP0}aݡݡ8P |~oPЬP`PЬR~R8P |~;PЬPРVР UРXTX TTXЬPРSРWRW RRWЬP`P|^ЬPѠl~PЬPѠl~PЬPР QСVРPРUVURR2PT |~xPRR[3PS |~YPSS V~ЬRUUQxVPPQ~T }bP ^߭ЬR&P,߭PѭЭЏbPPЬRﵹP.魯PﯚP}bPPЬRnPf~`PЬRGPf~9Pq5ЬRp~2PЏbբ<3~PPP ^߭ЬRP,߭PѭЭЏbPPЬRP.PP}bPPЬRVPf~HPЬR/Pf~!Pq5ЬRp~1PЏbբ<3~PPP ^߭ЬRP,߭PѭЭЏbPPЬRP.tPP}bPPЬR>Pf~0PЬRPf~ Pq5ЬRp~0PЏbբ<3~PPP ^߭ЬR޵P,߭͵PѭЭЏbPPЬRmP.\PgP}bPPЬR&Pf~PЬRPf~Pq5ЬRp~/PЏbբ<3~PPP ^߭ЬRƴP,߭ﵴPѭЭЏbPPЬRUP.DPOP}bPPЬRPf~PЬRPf~Pq5ЬRp~.PЏbբ<3~PPP ^߭ЬR﮳P,߭PѭЭЏbPPЬR=P.,P7P}bPPЬRPf~PЬRϮPf~Pq5ЬRp~-PЏbբ<3~PPP ^SЬRPg~LPЬR-PSg~PЬRѢ<;P+}bSbݢ/P |~PP2P ^SЬR^Pg~PЬR-.PSg~^PЬPѠ>;P/ЬR}bSbݢ./P |~PP2P ^SЬRPg~PЬR-rPSg~PЬR:P+}bSbݢx.P |~aPPP ^SЬRPg~$PЬR-ﾵPSg~PЬR9P+}bSbݢ-P |~PPP ^SЬR>Pg~tPЬR-PSg~>PЬR%9P+}bSbݢ-P |~PPP ^SЬRPg~ĿPЬR-^PSg~PЬRu8P+}bSbݢd,P |~MPPP^ЬR6P}bP2P^ЬR6P}bPP^ЬPѠv~ϾPD"PR |~ﶾPЬQС P}44Ѣ4~PR0ЬPRЏ`P^ЬQСRRRЏaPˏRPP^B*1&?PЬRТ PРЏbPЬPР RТ RТ Џ`PЬQС PРR PRЬPRЏ`PЬRТ PРЏbPЬRТ PРЏbPЬRТ PРЏbPЬR Pp~CPЬRТЏ2P^-WﶖUЬRدPg~PХVVgSSЬRSPЬTФ QVPPФSSTSRTPRSRSЬS}cSPgRVRe~rPV2P^߭ЬRPe~<P߭ЬRoPe~P߭ЬRHPe~Pխݭ~Pխ:ѭhRЭЏbR)Pѭ6ѭ.RЭЏbRPѭ2P ^߭ЬRPe~0P߭ЬRcPe~ Pѭ-RЭЏbRaP֭ѭ٘P^W}g잭gЬSSTTRS"Pb|~ЭgPݬTc#PR|~aЭgPЭSRR PެVPf%TUxPQSAcSAQ}caPPUЬSЭЏcЭgP000000000000000000΀^wY}x͏͗ެVfRx͋i͇͇iˏ/RR1͗1R͗1fUY'Wѥ"fScTУ S RSSSgPfScTRgPeSЏcե<3~͇iPf[P͇i͗fS吝͗͗g~視͇iP͗RM1"P͗͗͟9PQR͗1ЦTR͛SsSSSS2SSCddTP͇i͗R1ˏ_͗RR1ˏ͗PP@||||1i?P͛TФ TФ SRS1bU͛xRP͛T@T¥TTTeU"P͇iRRS1͛~P͓1ЬS͓R} cSܜP͇i͓͛P͓1͛&P͓1ЬS͓͓RR£RRRcSoP͇i͓͛P͓1T͛RТZТnn͗~勇͇iPˏ['X#WxԚϚɚ[SZ<~͆UPRR~B͇iPR=~#͇iPZ<~͆|PRR ͇iPR<VRVVUUhP|~е͇iPЬPSѠѠ A`U~hP|~͇iPЬScݣgP|~v͇iPU͆gPT|~V͇iPЬScTUcR1ݬ﫚P1͇i͛RТ ͓1UPS͓RS[T͓PSRR RPxRQ͓PAP¤PPPdTeP͇iS͓RS͓RТ ͓͗t~}͇iP͇2P^6[WZЬR"ggˏ/RR11 gPŏmNARv RˏRnXdXnRdRXЬTѤ)dUФ R jXSSSSS!PPdSjXRRR!PЬScRЏbգ<3~agPgPVVPVS gPŏmNARv RˏRnTdTnSRdRTЬSjTRRcgPˏVPP{1?PTФ RТ S gPŏmNARv RˏRnUdϟUnSRdRUЬSTjURxRRBR£RRRcgPVЦU gPŏmNATv TˏTnPd?PnUTdTPjPTTRSCQ>CdP%@UR} gPХUPSS CQ߫,XШU gPŏmNATv TˏTnPdϳPnUTdTPjPTTRSCVTCЖP;@U/R$ЬQUT¡TTTagPХUPSS CV߫*RТV gPŏmNATv TˏTnXdXnVPdPXjXTTSRTФ URTSTRХ U ߫RRTSTRTTSS¥SЬTUxSRBR¤RRRdgPS gPŏmNARv RˏRnTdWTnSRdRTjTRRbRЬSRRR2RRB[cgPʠPq~ӯgPˏRR2P|~gPgPV~sgPV`ŏmNARv RˏRnSdySЬRpS~K]y VMS.BCK)[V9.BIN]ICONX.EXE;17%3PЏbբ<3~gPgPŏmNARv RˏRnTd!TnVRdRTЬSjTRRЏcg2P<^}TUЬQ ЬQ nЬS]d䞭dѭ1#߭P3"PЭdPЬPe~ ЭdP߭ЬROP3ڞPЭdPЬPe~حЭdPЭPݠݭ?PѭЭdPЭPݠݭPѭЭdPѭ ЭPЭPݭݭP|~IЭdPЭdPˏ/PP U(쟭P욏n~ЭdP߭ЬR,P3﷝PЭdPЬPe~ﵬЭdP߭ЬRP3oPЭdPЬPe~mЭdPݭݭبPѭЭdPݭݭﵨPѭЭdPЭPЭSPSPRSíRPPSU{ЬSѣ%cRУ P PPPݭPcRݭݭPЬQaPЏ`ա<3~ЭdPЭdPЬQPPЭaЭdP^ZnЬS "ЬRjjˏ_RR1ˏPP31P?P߭ЬWP1kPe~jPVVSЦ RТ XЧYЧUTXRPxTVF$PU`;UF(P`YأP%ЬQSFP¡PPPajPTTXjPTФ Rݢ ݭP Ф RP  jPЬSTPxPP@R£RRRcjPЬShP[߭[rѭ#`RRR£RRRcjP[PS|~WjPЬRSЏbjP߭ЬRmP5P jPЬRe~jPRݢݭZPTTT jPТ PSP SRTRPSР P SRTRSRRTT TЬSPxTRBR£RRRcjPЬRˏ/RR n/ݜPr~jP߭ЬR@P5˘P jPЬRe~ȧjPݭ1PUUU jPnyЬSѣ#cTУ R URRRsPcRU[PЬScRЏbգ<3~*jPjPUuRЬSRRR2RRBRcjP|,^ЬRךPh~P PV |~都PЬSУ URTSdcTSRЬRVЏbPx^+Z$Y}%}}} }|jxxjЬ[ѫ 1ѫ 1Ы Rݢ P|~xjPЬRТ ТiPU|~ﵥxjPSTЭRCd1fVXWPCЊR1PTЭPBdխ{P߭ЭPݠ ݭfխP߭ЭPݠ ݭfPTЭP} ЭPРTUhigPU|~xjPQЭPРaխR1lSS TЭRCd1CU^ЭSգ RѣR S1ЬRЭЏ bxjPxPx~bxjPЬRIPx~3xjP3P[|~xjPЬRТ XТWPާVUTfSSedVUTPЬR[ЏbxjPx^ZxY}y}q}i}a}Y|jxxjЬ[ѫ 1ѫ 1Ы RТSЫRТRSRSTRTT ؿP|~!xjPЬRТ SТTѣ SТ PTТ iPU|~֢xjPSTЭRCd1V0XWCR1PTЭPBdխ{P߭ЭPݠ ݭfխP߭ЭPݠ ݭfPTЭP} ЭPРTUhigPU|~!xjPQЭPРaխR1lSS TЭRCd1CUЭSգ RѣR SUЬRЭЏ bxjPPx~xjPЬRmPx~WxjPWP[|~9xjPЬRТ XТWPާVUTeSSfdVUTPЬR[ЏbxjP΀^Z|Y}|}|}|jjЬ[ѫ 1ѫ 1ЫSЫ Rѣ}}}Ы SЫR~kyP|~GЭjPЬRТic PU|~ЭjPSTЬRТRCd1XtW! VC8R~TЭPBdխgP߭ЭPݠ ݭhPTխ9ЭP} ЭPРTUgifPU|~|ЭjPQЭPРaխRSS TЬRТRCd1ZUЭR SSѢSբ4 R;ЭjPPx~ЭjPЬRגPx~ЭjPP[|~爛ЭjPЬRТ XТWPާVUTefdVUTPЬR[ЏbЭjP ^SЬR#c잭cѭЭcP}bЭcP ^̈́SЬRےc잭cѭ }bЭcPЭcP^ЬP}2P^ЬP}`P^~P\8~P\\<1E}'y>@PlԬ\P<^nUPxPPPSSSTeQá PPSiСT!Pä PPS Ф RS bФTT(ePРTä PPS Ф RS bФTTSoPPS\TePР RS bSԢԢ RP^mSHTPRdʕPRR<1}w PdbԢ<Ԣc\c\ ԢRRP^ImTSdPà \\(hРS Pã \\( У R( bУSS(d\ЬSã \\( У R( bУSS(+PP(ZSd\Ь R( b\QaQ\RPP<^UlT} e잭eSdQá PPlСS Pã PP У R bУSS(dPРSã PP У R bУSS[PЭePZSdPР R bЬЬ} ЭeRP^XYYWkUѬ 1hPhPVTeQá PP@xСT&ä PP@Ф R@ bФTT0ePРT'ä PP@Ф R@ bФTT@~iPP@gTeTФ R@ bRS1PiRiRVTePà RR8hРT Pä RR8 Ф S8 cФTT(eRТTä RR8 Ф S8 cФTT8ÀPP8gTeRТ S8 cԣVԣ PRbR PSPP<^%jUPxPP(PTSeQá PPTgСSã PPT У RT bУSS(ePРSã PPT У RT bУSSTPPTWSePР RT bTެQaPaP@aRP|^esVViUSxSS8STeSã SSTTPP PeSУ PPPSeQá PPfСSã PP У R bУSS(ePРSã PP У R bУSS~PPVSeSУ R bЬfSfS| RP|^rU^hVPxPP$PRTfQá PPRhСT Pä PPR Ф SR cФTT(fPРTä PPR Ф SR cФTTR3~PPRUTfPР SR cRެTdЬЬ |PdxPRBR}ebPPdSP^}gTSdQá PP hСS Pã PP  У R bУSS(dPРSã PP  У R bУSS _}PP USdPР R bpRP|^9|VfUЏЬf잭fPxPPPSTeQá PPSkСTä PPS Ф RS bФTT(ePРTä PPS Ф RS bФTTS|PЭfPS1TTePР RS bSЭ ЬPРT֠TRP<^eU PPxPP@PRSeQá PPRhСS Pã PPR У TR dУSS(ePРSã PPR У TR dУSSR{PPR]SSePР TR dRЬЬ TP<^zUeT}e잭eSdQá PPlСS Pã PP У R bУSS(dPРSã PP У R bУSSzPЭePRSdPР R bԢ} ЬЭRP^yYfXЬRЬSVЏi잭ihUå PPSyХV!Pæ PPS Ц TTWS ЦVV(hPРVæ PPS Ц TTWS ЦVV"SRSzPЭiPЭRSxV hPР TTWRSUSUPSPSPPSTVhRT ЭWP<^xUFcT} e잭eSdQá PPlСS Pã PP У R bУSS(dPРSã PP У R bУSSyPЭePPSdPР R LjcMg VMS.BCK)[V9.BIN]ICONX.EXE;17?bЬЬ} ЭeRP ^}bSRcQá PPhСR Pâ PP Т \ lТRR(cPРRâ PP Т \ lТRR_xPP PRcPР \ l|}Fl }>l\P<^-wUaT}}e䞭eSdQá PPkСSã PP У R bУSS(dPРSã PP У R bУSSwPЭeP5OSdPР R bЬ Э} }fkЭeRP^`Pà PPݬ(wPP`P P^NU`WެVfPˏ`RBYRRS PPRbSSTTPgRP PТQfTSS  Ь TeСQgPРRTSS  Ь TeТR"qgRЬ T^bPà PPݬHvPPgbPР P^ЬRТ8XUШ ZtRSSS@|R Т W8VTU}UT((gЬRWԢ WШ$|Ԣ(Ԣ0YZ}ZY}i}iЬRW,|^EtVgTgS:UУRЬQa feQЬPР0Q}aЬPԠ0Ь 0me Ltaee$f,e(դݬݬPR4ЬPР4mР eРsРaР\eР$eР,fР(xePЬ0ݬ@@փv0P^ݬݬVr<^UЬTdS1PˏdPP48@HP`hpxXnP?PSjSePS]PSUPSMPSEPS=PS5PS-P S%P SP SP S PߥjnSRЬTdS1ˏdPP48@HP`hpxXnP?PSjSePS]PSUPSMPSEPS=PS5PS-P S%P SP SP S PߥmSPRPQPQQPRݬݬˏPP 5gA#t<<<<<<<1P ?PЬSˏcRR!ЬRТPУRPRPPRPPݬݬ[PPPPPPPЬRТSЬRТRâRPRPPPPЬRТRЬRТRЬRТR ЬRТR ЬRТSЬRТRâRPRPPPPPЬRТRЬRТRЬRТRpSЬRТRpPbPSPsSPPPPPЬTФRТ RЬSУRТ RtPQУPФRâRPRPPQPЬRТSЬRТRâRPRPPPPЬRТSЬRТRâRPRPPPPЬSЬRâRPRPPPP*k^ RPˏPP259=AIM]QeYeUeeeeeEa;?PPPPPPPPPP P P P Pj^SЬUeVЬTdWVWѥS1V@WqT*Nݭ~PRݭPSSoPQQ  SQQ RRSqdFo ~d7o=PRRSRS %oSd|~cd cRPRPݬd˘ dnݬd`qݤ nn<^5UZpTFMݭ.}PRݭ PSSnPQQ  SQQ RRSqdbn ~dSnYORRSRS AnSd|~cd cRPRPݬdd nd nݤm|^aUoT PРVgLݭO|PRݭ*PSSmPQQ  PSQQ RRSqdm ~dsmyNRRSRS amSd|~cd cRPRP矦dЬRݢd#mM`E͡b6qi49CV]޳JDa)#}'>z/s_SHf-0 jd@ؽtW>JM?[o-lA ooO̐IPkBlNުvn.T?*wְw(TIVYN>KEݬQ.n0mj:1p%^ 58) %SmKe ":M-^)KgK\C{!!KpS,o/U_ g]0x7$GC̍p'$+׳{OIţG=G8u. (#o2eq6ʻmCHqe@6j,>?tv$ft + 0#885ӯXOt~9=NQ<9[zCÂ"ߧ[҄\bzK0M兀jąX3)ju]SW\9C[@q=r~GW3Q䊞K\J-(kH؇Yo+Njd +[$@J@(uVn4L8/MiߌʄM{S(IX;>E K}AND(9+T³ᑼV\ .;i&¶K ?ްJqM^ZdhżQu|wE_Ќfhy'7+sMg5UoYV+DR<+s)hZg[瘽/3Y05^!Q=\Pa k-}X)<Ť0Z|Z争'jh&Ƚre` eڽ_sO;~_ L D($wET7NiEUX‚"O+ͷP%B!EѲ Yn_[8U0P4@V&[]qݭLl~yϴ\;2RcpGQ?U*\8&quzZMj?+By8:D\FZ`.G/Mڊ\·2}{hZ+“5tŹA$Hk\C,GAe5.&W0?*X]< Kk+,+Y x\Gwۅ PRSz.\Ogt5 bSm֛ow^B-%yMzp<)Qo&4vu摠I&C$w2=M¨4Itai~2(ߦ.w-w+ x-cvֱLm{TB8(K|5u,8:ƣ 'V$w&e[_~EcW -՝'YϬ$LXeV!|!U;#V,%OFNsCs\*X rdPP!G؋>w &:!96cnV>5%m hkVQE;LԴatzW1k^ Dbϻ ,koD-n?xCnX bFX= e.:4cSVk'<})D&D 3N?YɏPF(&i?|_egyQES9>af PLUUE!߫h$K7@3`@ut+>\>-&+z1Jny˂waΦR2MX5ڔcN9vv6dEEQ3n,Q ?)3O|ǸWϭER2 +IPZ@bEm#D~@ZC)R y ;&=6"[DzW%x{ə^Ohj ߞ֫?`M֯/ħȺluSi=C4%nZѕo6ƫQ| |ki8Y8)!?wU-A/ @ W9K% B}ԯeVp:gtf7yXG7 ;On/%0EU>5qDX]hͣE) d^Uw9A^KIal~+6AV%nJCыәV65rVy1SHnsţo?;^mN_ VˊsMUۢ,@\s m>JGe<7q `Dj~;Bd""GL,8n9X ^Iq!av8.zN^ hk靆2L%H2%OyWԺ M?먋ڑ:ߧEQo ٗ}}k[^e%ʣDVUcX/qpX}ct2m'ueQ;knu`)lCԬ ?E`*]>Y/B߽x~io+WuMd_&!~?h,) 퓌Vnk;VD^L$.I?\fxfۼgpW 5WJ$mpnO"0a\{Qn;|M&Y#"37𐧮"*GoKDPs1$rZỶx+}!éRyxOeX}XԕPg:W|;0u p弡Fl,l8 (Pir1W[gDN*7HIĹ%''4I$iB͞w$` '^$g)4OtGtxFЅI6i؏m2zR,AکKs "!#Lz 0OO+aYB~Œ^:{3AG iC$6EUC.ª8-{ŝl5{~kRn'2ݐ%`LWCUGdpЧa}5偑~1M:[]d]чA"g 4{L|Pr&hPۖHSpln)ٔ˖!PdV->ďBa0:ۈ򤼢;A}0gQm^߮qz֚knxjO.N iI-!^sOatST|0*@L ]Mΰ*GwFɏiKgou<,=mth5J*y$fb*1 ydaR%h`Gk)E.#CױpIDžhVdѫ|2ܠ>,o_n39Vp.-v;FY`xȮQLsRoHyR ?Xq lܟ\vFiT}a \9NM)\,&C("a`_v͟X KNM? s;a"yo {e&@xxDjҪ`}/6RUJE1IO'ק Gdtqx{7B9շ sNJn[/W$qє` y*J} 4 D@ ITY>kMz5^׵59ZFMPytλ{Y Lʃ%"1,!+ӯWsꭰA-ȘHz67+C&"MoɝG'(%9v6|1$#0 ~,W/mJn4.|Ǯf`̾B¸XNv5Dwn͞l?L+̝G 'Q(h! Aϝq& FY+?Oft^Tq߽']+.'_n?Hs+{[.^pk5|-nzWZ X }Ba^ F2uZe+ juEXԌ1Vm ԣ"G<{353GZÓLK%G%\ iVx!Ȑ<ٽ理m'UYq׋ky,ʫ86mK._4C*nq/ZNli嘑8%0WѽE"I zrfCfVP<(u')I3{q聾J| %q܍R)>T)V\~$u9,]GOft҈Wx3z,RYKjk! hqM)J/)y71xMy"180[StP+@l4]A@˜;R_ lY߄?ئx5}Y駯V_5xA͆Ox@q*PVj/{eTqL7sj}i2W`] rɏSTFA2eiXܕU*R+2. 2s;T`Drf+] !#!u9AZǠLA@QMȡcRtqtYw -0K lؕMήL 0jBAvN&Z7ݚ:CI]=Z$wg76*I*^ߠNʵi^F7q.!bڶPGd\>ď/smtkanCkK $P`7wʜ0Rں=/'&`F"MU"o& g4$L7F.Vm=ֶ":~ Nybvm26-͌UQ arp@E];ӛ(eͯ/yZg,&hGE(2a޺0N?Fs: „%,88L˥4si*qX~9r#^oTiu,@=!/,:+NOO@xYqyX_Pdm)u9nqEL#*#1+y uQ+먗'S`)IʂjU'# ,ņVw"-ǽcv\*lԐ!ޫ2Y<Uo#ٖosĈr1WT7@j`G#x|uyǵcJ|s\N8TXilOvNEg͈uk*[wE$Dk0dm(6*nlCH`/> DF `oOJ2O WSg;6o~#Kh?QycmW_%X;sB⭸돥 +Zdvhaװ ^phC-Co~^?1<͝r:ft>=;H{s`F>J^oJX5`w:)otbvtl<#bA(t\Y¹m) c\&,1Yen#zUa^ =)~sN(O1ȍQlth4"`NmБG$w2OA-YVքQIILN VMS.BCK)[V9.BIN]ICONX.EXE;17L Y~doЬRݢ5dll|^]UnTPРVcKݭK{PRݭ&~PSSlPQQ  PSQQ RRSqd~l ~doluMRRSRS ]lSd|~cd cRPRP矦dЬRݢKdlЬSУ,Rdnݣiݤkk|^YU~mTPРV_JݭGzPRݭ"}PSSkPQQ  PSQQ RRSqdzk ~dkkqLRRSRS YkSd|~cd cRPRP矦dЬRݢЬRݢŀdkk^uY޼nnWЬ R׬ R1cެﬔjZMmj լ14WRWТ[ݾɱݾj$Vݫ $jPR@UUjVUUjWSWSUU VRnTЬR TЫS?XXjVXXjTRTRXX VSnUxSVTCdUЫR?TTjVTTjUSUSTT VRЬRТWТЬ R׬ R1GDXXxX~iPWPPXPP@gPPXϡXWiެZj+iRXcUiVUfxBgSdGTCdUǒUfxBgS=GTCdUTkU hRRXhW@hP^мRxPFQ@axRRBa^gPŏ߭|^VլլP߭ThѭPRRA RZ RQRQQr#RRA RZ RQRQQwP|~|~߭P ߭gPԭԭޭЭޭ쭓 @|~|~ݭP ߭gPЭP@ݬ߭gPU߭gݭPeP PP@TRQQAQZ QSPQSSUPPPb)Э ЭffPަݬfPЬ|~|~br TPTTr SPSS fP߭fݭPUP^мR  RRBSPPPSPݣ3fݬePTw4|~|~|~|~(ݣ zP{ PQPPRxR~ݣݣ fTP^-VbgYWgZUެSU}WXTEhP`PP<Y%Q?Pߦ jUgcd8PgREbP>ߦ iURcdߦiURcdPUUլ ЬRbߦjݬR%Ѭ ЬRbߦiݬR<^AUߥЬSЬ RBc~dPݬݬBc~dPլ+Ь R޼SBc~ߥ!fvdݏcެ SެRcTcQcP@dAdcc׼ ^\߬&>dPެ2|~?`;P^Q;SB;TcR8;*0;լ_|~ c|~02d~ Aլ|~|~c|~:2d~ P|~|~c|~z~2d~ c(bPbP ߢ>bPc(bPbP ߢCbPP^^^?:M^M1M|~|~:z~2:~ 9P@GzHrEG8OrEE F}@p q=@GzH? ?[7n(00< ^ެScRТPP !@УQ֡ѡ  cPРRBЬQСSS RRRV1CnnU ޮTSPS"P@@RRRQ PPSQQR XЬRբOެUePРSCTSQQ RxTPAPTQQ ЬRբTTЬRЏbTЬRЏbЬP ^ЬQ ԡЬRסСP@:R5ˏRSSSRxPPסСPS@ެQaSףУRˏaB<aЬ RЏbЬ^լPì RnRTn~`dPTVH~`fPT`TjTݮOPPЮRТRЮSB Ю TЮSPS @dPPSѬѬ$PЬ SSSRS bTP TTYˏYRBaR1[ˏYRBa0YS  YSSSPPkPЮ UkTPXЮ SЮWXZWRPBeTVZVˏVBcVZRЬ RRRPR `SP SSYˏYRBaR1cˏYRB`,Ѭ %PЬ R֬ bYˏYRB`Ѭ ˏYRB`PѬ-ЮRݮϐˏRR ЭPЭˏP^|XЬRVЦWW -PeHXTnGR `PRaRTXWW զrXRpXRpRP^ЬPРPpSqSqSЬRЏbjSPsSpSYrSYpYUpU~^pPWVH~ ^fPW`τWjWTRTPd8URRTqU d8UTTPRPST%dHUjUQSPQ@nQPbPUSST۔SsUSSݬR)0^ЬSRâ RRnTVH~V]dPTp"~I]fPT`TjT}+?}#?J䞭JRbRݮPb |~%GЭRբ֮ݮ Pn |~FЭUХVЭRТSC ޮ WFޮVЮUTUD DTTU[ЭRТSCYYUVЮTQTRQRPAeS4PQTPQPTRBeVSPTRBeVRRRSS~[YW TYVЮUZSUZPxZRCgRXQXPTR RP Q{RPQPQCfQXPTRRRPRQPQP{RPPQQZSSU0ZRRk1PЭRբ-{ЬR[nb[ЭpHP ^ЬRPà RRXxRRnRSdSРRnBU `PUpU~=[dP`PS`SjSRRRݬ [XPU |~0EЬPTХSФP@nnWCޮVXSRSBBRRSդ ݬ-ZXХRBݬP^ЬW TЬVЬ UYSUWxYRCgRXQXPTR RP Q{RPQPQCfQXPTRRRPRQPQP{RPPQQYSSUYXЬTUЬ SRSPRPBdQ4PRSPRPSRBdUQPSRBdURRRQQݬ ݬݬ$0X~Y ^ЬPPà VVVrPUPЬPTХSФP@nnXCޮWVSRSPBBRRSФݬUP^}';}; FFЬ ˏ nn1oЬSˏcPP1[Ю RQá PPPà ֮RQbRbЭQЭRѡ1Ѯ1~oPV ЭrEPîTTUUЭQСSЭPTDhޮhЭP^}3|}3tp>ll>Ьˏnn1fЬSˏcPP1RЮRQá PPPà ֮xRQbRbxQЭRѡ1Ѯ1~,PV l.>PîTTUUЭQСSxPTD0ޮ0ZCDޮDYEdޮdTЮSWSR!B0BDPWPˏBdPn1߭ЬRݢϪӞSã UURPà ZZUZUTZTTVRSbSRcRUPb Э!PUVЭRբТSCX1PRVSPb ЭV!PЭRТSCXXTUVRQR AdQQRUVTЭRТP@ޮWDh(ޮ(TURSRPCC(SSRЭRբ VXXώZVЭRբ ТSCU1RV﫜Pb Э PЭRТSCUUTZVRQR AdQQRZVTЭRТP@ ޮ WDe$ޮ$TZRSRPC C$SSRЭRբ VUURVЭPRQBhBeARRVЭSЭRɣR1@ЭRVЭRТSCCϖ1PЬTˏdRR1߭ݫςўRSã WWPà ZZWZWUZUUVRSbRbRZjPb ЭmPWVЭRբТSCX1PRV/Pb Э2PЭRТSCXXTWVRQR AdQQRWVTЭRТP@ޮUDh ޮ TWRSRPCC SSRЭRբ VXXjZVЭRբ ТSCU1RVPb ЭPЭRТSCUUTZVRQR AdQQRZVTЭRТP@ޮWDeޮTZRSRPCCSSRЭRբ VUURVЭPRQBhP2 VMS.BCK)[V9.BIN]ICONX.EXE;17 0BeARRVЭSЭRɣRЭRVЭRТSCCuݬ ݭzͤ^X}h}h}h}h}hЬZˏj[[1ЬQˏaRR1Sã VVPà YYVYVTYTTURSbRbRUPb ЭPVUЭRբ ТP@WpRU˘Pb ЭPЭRТP@WWSVURQR AcQQRVVURBgЭRТP@ϘЭRբ UWW$YUЭRբТP@TsPRU?Pb ЭBPЭRТP@TTSYURQR AcQQRYYURBdЭRТP@ ЭRբ UTTϘRUPЭPRQBgBdARRUЭSЭRͣR1ЭRUЭRТP@@F1P[1߭ЬRݢ:͞Sã UURPà YYUYUTYTTVRSbSRcRUPb Э!PUVЭRբ ТP@WpRVPb ЭPЭRТP@WWSUVRQR AcQQRUUVRBgЭRТP@ϴЭRբ VWW@YVЭRբТP@TsPRV[Pb Э^PЭRТP@TTSYVRQR AcQQRYYVRBdЭRТP@(ЭRբ VTTϴRVPЭPRQBgBdARRVЭSЭRͣR1ЭRVЭRТP@@b1PЬTˏdRR1߭ݪN˞RSã VVPà YYVYVUYUUWRSbRbRY6Pb Э9PVWЭRբ ТP@UpRWPb ЭPЭRТP@UUSVWRQR AcQQRVVWRBeЭRТP@ЭRբ WUUXYWЭRբТP@TsPRWsPb ЭvPЭRТP@TTSYWRQR AcQQRYYWRBdЭRТP@@ЭRբ WTTRWPЭPRQBeBdARRWЭSЭRͣRЭRWЭRТP@@}ݬ ݭςͤ^Z VЬRТSzSP{PQPPYSQYYSQQW}f}f}fjjЬPˏ`RR߭ݠ ɞЬRQá TTTWXXЬ PЏ`R΢ЭjPRQbRXPbЭjPЭSգKRTʒPbЭjPЭRТP@UTUЭRТP@ϷTUUL PУRBUWSЭPРRBSTRBYUϧPcЭRTPP@nnSWRQRNPAQQR>PЭPРQASTW~QRBYPP QWTDeRPQbRRYU<PcЭRբ;ЭRЭRТP@PxYRRRR`XЭRТP@@iݬ ݭnЭ^ЬYЩnSЬZЪUˏi[[1ˏjPP1ѣãPã VVå RRVRգVRQRVQQPգLУPХRB ޮ X@ޮWVTQT!PA APPPR QQTRRPХPУRBޮW@ޮTVSQS!PAAPPPR QQSRRP[ ݮY nZ PPP^x [QSЬRPà XX}k}k}k}k}k:̞0RXPb ЭPTX~Pd ЭPЭPРQAUTЬPdXR5ŏmNAPv PˏPnPdgPdHPjPBeR˞TX~Pd ЭPRXbPb ЭePݭݭXЭRТP@ЭRТP@Uϖ P Э%PЭPРQAޮZUAޮWXTUYTRPBYVˏVBVYRݬݭό^}잭ЬR Rݬ R~ݬ%Э}ЬRRâ [[PR`ЭRբl[CPT ЭFPФSЭPРQAޮnЬVC ޮ Y[SVXSR1PBXUˏUB xUXRu[~ՍPT ЭPФP@YPSЭPРQAޮXЬUCޮV[SUZSRPBZWˏWBWZRZiЭRТݬ T%Эa^}\H잭>ЬR Rݬ R~ݬ]ЭЬRRâ [[PR`ЭRբx[~݌PT ЭPФP@nPSЭPРQA ޮ ZЬVCޮY[SVXSRPB XUˏUBUXRXh[gPT ЭjPФSЭPРQAޮXЬUCޮV[SUSRBWˏWBxWRЭRТݬ T^}잭ЬRR R&߭Rwݬ ݬ{ЭЬRQá XXPQ`X~lPU ЭoPլЭRТPЭRάХP@[PTЭPРQAޮnЬSWDޮZXTWYTRPBSVYVˏVBVYRYkݬ Uϟ^[}k잭kЬRR R"߭RTݬ ݬЭkЬRPà UURPbUOPVЭkPլ ЭRТPЭRάЦQЭRТP@ޮZЬTAޮYXSU\xXRCRWQWPTR RP QP{RPQPQCQWPTRRRPRQPQP{RPPQQXSSUݬ V[Э^}}x 䞭n ЬRR R&߭R ݬ ݬЭ3 ЬRPà WWRPbSЭcRWPb Э PЭQСUЬSSVPSVЭRТP@nn[VTEޮZWUYSU\xYRCRXQXPTR RP QP{RPQPQCQXPTRRRPRQPQP{RPPQQYSSUYSЭRբSSЬ RЏbS0 P|^ UެVfpUxUPPPPfPUެ T}UtdRSRRRcPPxUPPPPPdݬdcPPU)PfЬ RЏbPЬ RЏbԢPP,^W SVެTլdrլ!di }Kb d PլЬ PЏ`PѬ PѬԬЬ PЏ`Ь13SxSPPPPdPSЬRS1Ug<TPVЬ PPPPePQPRRdgPR=P߭RCݬ ePPˏ PQPQQVxSPPPPPpVݬ ݬݬ 9PUPݬRdgPR@P߭Rǻݬ ݬPPˏ PQPQQVS1VЬ PЏ`RP4^ЬZTФUU XXЬYY1Y1YfդPEޮVYWXSQSPQPAR3QSPQPSP@WRPSP@WPPPRRPդ_YREnnTRUXSQSPQPAR3QSPQPSP@URPSP@UPPPRRPP߭YeZ^WR)ЬUT SBeBdVWVˏVBcVWRWP^WR)ЬUT SBdBeVWVˏVBcxVWRWP^ЬR޼ SBcnnVЬTUT PEUUTSLZ YXZR3ЬVЬU TBfCeQRSPP@dQXQWˏW@dWXRXCiS$^ЬRТSCXЬ RТSCVSîRxRRRRRcRެެ~ݮݬyPhݾVݮݬdTվ1oެ оо h[޾kf hRЮ Qѡ= R ~ўR.gij$PgRgЮ bQ JD;=hRЮPѠ: RЮQѡR+gij!gRgЮb ]S4TPppdxxdУSDRROPb0RPhSѠ0 SѠS%gijPgSgPcb R+RR1)SS5PPc0SPhRѠ0 RѠR%gijPgRgPbc SSS k ^ݬCmRТTCPФPФ QPQ.Pʏ`ˏ`RBfRRS PPRbSSPPQФTRТUCPХPХ QPQ.Pʏ`ˏ`RBfRRS PPRbSSPPQХUЬPP1PR?P1PhRâ RѬR1ݬݬPPj<0}P<2}PC5Râ RѬR2ݬݬgPP<3}hP2P^UX^ZмSS/S!ˏSPPN?P ʏSЬ[ЫUYU1U 1eWW$ˏeRBRRS PURbSUSTЬRWeW12GR8URSG4V xVVSVRPTRSRc SSSRG PnZѪP0egh&ePen`AP`A P`AdRRcS^e[YZЬRТUТTdXXWPWЬPРSР,RVUV1 UPRP+ХSХ TdXXWWUReVХU1PT@xWPTPPRP1XФUTRФSФTdXXWWV1P SPRPУTdXXWWУSR[Qaݬ)01PЬRТRݢݢݬ 10ЬRТRݢݢݬ1ݬ ЬRݢݬϖ1PЬTФTФRФ SѤѤTTTTެUeRTRT1~eϘRTRT1ЬRТTФRRݬ=1aPRݬ!1EPR'ݬ1)PФ RФS/ݬP7ݬRTRT~ݬRTRTݬ)1PݬϸPPݬЭiݬ'{SRVˏRQQ UЦTPˏRTxTTxTTTPQU`TT(STST=ݬ%P'Rݬ@Rݬ'1$ЬRТRpR߭ƟpR~ݭAݬ1ЬSˏcRRSݬ'1ݣDݬ1Hݬ1PЬScUˏ/URR@NЬTT[ˏcRxRRRݬ ݬTT)3TˏUTTУRݢ[ݬ /TʏUEhݬ kUЭi ^RЬQSQˏQP@JPhPSSP|Ѭ"hЬPP"%````; P?PP\/<Ѭ 4‚ݬSѬ …ݬ=ˆݬ.ݬݬ$R~ , VMS.BCK)[V9.BIN]ICONX.EXE;17NѬ1ЬPP>zk\?PPy‹ݬŽݬ‘ݬ”ݬ—ݬšݬwݬh ݬYˏ~£ݬA^VЬRТ TТWլ WWݢƪݬ ЬRݢƸݬUSWqSSSФ TU WRUR;SRRR¤R ~xRP@ݬ'UW&ݬ,UݬUݬ<]~q|^V UVU@TVURRŬRSSݬSdPRVPPRUPSPVUP^сWЬVЦTfRfRSS`S~PjPPЬRТUSUPRP SUePRPURЬPReP PЬSPЬP֬`SPP ^ЬPР}U/RѬ Ѭ`PSQQdPSabPQQdݏ^|RﶗSЬQTQˏQP@oPhPTTP1Ѭ"1ЬPP"$}}}}D P:?PP\CZѬR`PPPѬ2x`PPP_`PPPߣB`PPPѬ1ЬPPA             s Pr?PP1_PPP _PPP _PPP_PPPs_PPPZ_PPPA_PPP(_PPPˏ~ߣߣ^PPP^zXY}}Sii1RxRSS~bP iP%{^P iPެUeSPcRSRS%P"Sc~PRSRS'%^P iPּ1Pˏ_RR1nˏPPPpDt `x``````417P:?PRݢݢ)PS S~aP iP 3k]P iPЬRPSI]P iP S1%ЬRТSУ RТVݢ ݣAPUURVR~6aP iPK\P iPЬRТSЬRPbVУ Rݢ \P iPVU\P iPU1gPЬRТRݢݢSC@PSS<\P iPЬRPSb1ЬRТRݢݢ`PSS[P iPЬRPSb1ЬRТRݢݢoPSS[P iPЬRPSb1jRТUТ U~_P iPRѢ"Ѣ }S RPȈS R PȒSRRS [P iPЬSPUZP iPUR1PSУUULЬRbȦ1PU5ЬRbȭ1PU ЬRbȵ1lPУ RУxRS S~^P iPS(Ƚ;ZP iPЬSPc&ZP iPЬSPcRSRS'USc~PeRSRSYP iPּ1PݬϜPЬRPPPbiPRТW9VSQRPЁTPˏTUURTTPRRWxWRRWW<WW`]P iPYP iPЬRPbVˏVTT URSˏVRxRRxRRRSTUcRRЬS'V~PcVXP iPּ1m:1\PˏRR1Sã RxRRnRTdTУRnBV `PVpV~dϫP`PT`TjTRRHRPSЬRSWP iPS1Pݬ 1Pn1PЬRb~ЬSˏcRRKУRݢQNPSSJWP iPЬRPSb!{}iPP^rXЬVЦRТU7VWSQRPЁTPˏTVVRTTPRRUU4,ЬRТRS SRSbRRcRR1PU4YU1ЬRТRS SRbPSc}PU rЬRТRRRbZ PUPU<ЬRТRTTRdSSbSTRSSSbS TRSSSbSяSPP<^ЬUTRSQЂPPˏPUUSPPQSSP^QѬˏP@PhPQQP^ЬRЬSRSP?RRPQSPQQTPRPQSPQQTT PP^ЬRЬSRSP>RRPQSPQQTPRPSRPPTT PP<^}UЬT1ЬSSTP;STPQSPQQRPTPQSPQQRRJePT;STPQSPQQRPTPQSPQQRRePeŬP^Ѭ PάP^ЬQˏaPP СPРRˏaPxPPPRRR  QQh^ЬP֠Ь QaЬPa<^U}}e䞭eSЬRТcSЭRТ cì T(ЭRѬ ЭP  QР aЭPѬ TNެSЭQ PPcc¡cЬRxcP@P}`b֬ ЭPѬ   QР aTЭ<^MT}N}Fd䞭dì UUSUURSGMPbЭdPRSU!NPbЭdPЭPЭР ݬݬ ЭPݬЬQЏaЭP,^VXW}h}h}h}hfԞfݬ ЬRТR ~ 9PЭfPЬSУTЭSФЭSФ RB'BSݣSЭSBRR BSTЭRCd1XPUPCgRnTdPЭTB`խQЭPݠ ePTЭfPЭQ ЭPTBTЭPРPT`TЭPРdխRSS TЭRCd1rЬRЏ bЭЭSգ RѣR SЭԦP|^VS}f잭fլ  PPPRBcPPRR  BcPPxRѬ  @UT P8UTRP(PQUQxPPPPxPPPQŬ TPPQ~'SPЭfPݬ>HPЭfPR$BcIPQЭfPЭPQBRЭR ЭP^ЬQЬTQSS SSxSRBRRPPxSRB؅P@kSSSSQS@RCP<^ެTdScЬRТ UdSޣ RbԢ(R Uݬݬ^ XЬSެVfRѣ 1Ь SУRѢrУWUfSޣ8TURxRRR fRТWdT UЬSЬTФ cRУSBRC Ь R*ѢW$Ь RТ Ь RѢW Ь RТ լ 1ެTW֧gRѧBhdRԢbb  bSЬRCPdUeQЬSХPAS@ eRB VZdSVQQQVPPB4PPQԬ 3Q.Ь Q(dPѡB4PЬ PР Ь Q dPѡB4RB Vլ 1QЬ P^ [Y}k잭kRЬbЭRբ4ЭkЭR TT1GPZЭkXUЭREWXPSEiBCRXVXVQbP"ҠVVTV PbRPaQРPabSSEiUЭREWЭRZEЭSx RR Э^)ZX}#j잭jRЬbYЭRIYY  ЭRIYЭRբ1 SѢS1PЭSIRWYRYBVЭRFU1PTFhnDRDPЇQP.Q*PѠ PbRРP QbRСQPQPPbRРPQPQbRСQTTFhVЭRFU1{ЭSx ЭRբ SѢS11Эj^Ь UЬXUWXQWSS SSxSRB︁RRPxSRB更P@7SSSSWS@RCSԼcR5ТTTUSPTUݬ qUPSPScRSP^ЬSм R ~P#RPݬ PTT 2T RRPPSk VMS.BCK)[V9.BIN]ICONX.EXE;17]RRݬ TePTRP ^hScPRߣ PRޣRRr^TSԭЬd잭dмP ~PP"լ HPݬЬ PPPRP<RRݬݭPЭdSPPSPP SP^мTPЬPРRST!PݬCb~PSSTSTPP^ݬUmP?+J @E>xF>f@ffffff0^ЬRТSÀVЦnլ լ լ@PѬ ѬѬƀPլ%ø<~[Pøô[ø#ð<~6Pðì[ðެ ZjެYiެXh ^( nݬs( حxF^VЬRТ QТSÀPСDXРWÄUÈ[xfffУDZУ@Yݬ ݬС PݠPTUݬ ݬYZXUWݬ ݬYZX[WTD^RWzYЬPР VРUŀPЦD[РZń ňЦ PРXХ\ХXnQQ1>QPP+/77' ?PP11Ц$D1ЬPРP `1Ѧ0 [Z5ŨPݠ8[ZXåD ~Ц PРP2>PP@~ݥDݮ ZXåD~Ц PРP2>PP@~ݥD[ݮZvЦHSЬPР P< ЦLPР8RPRͣ8R~[ZѦ0ݦ0[ZX@Ц$DЦ PРP2@Q@QnQT1'T@Ѧ0 [ZQ|~TSSݮTRR[ݮ$ݮ(Z ŨPݠ8[ZRݮS[ݮZЦHSЬPР P< ЦLPР8RRͣ8R~[Zҽծ |~ݮݮ|~[ݮ(ݮ(Z JѦ01lݦ0[Z1[ЬSУ PР PРQ<ХDR 2PP~fPݠ Uݠ¼1УPȏ`1PS*1P¼„€Pݠn¼1vPЭЭ1e1aЭPP88HXl88888888881+P?PS^*1PgS+1ggS+1gTL VMS.BCK)[V9.BIN]ICONX.EXE;17l1S*11S%P1PУP1P¼1S)P~PУP`P„bfУP#€PРTTiˆ ˆTjˆŒ€PРTTiŒTjŒSkSkPPЬPРPUUPլ14fPݠP1 P^=\%P\P PP|A\ЏP^KWԮ ЬRТ RТ0ЬPР VРRRTĀ[ЦDYЫXĄZĈ|Pՠ1|BP |~ЬQa%hPh@hhhhlծ 1ЬPРP`1Zߧ ݤ@ݤDYZXߧ ݤ@ݤDYݮ$XЮ0ݦ0YXЬUХ RRQաD,СHS< СLPР8RRͣ8R~ݡDС@PݠPЮ P֮ PwЬPРP`j0YXwЦHRЦLP͢88~YXZZߧݤ@ݤDYZXηߧݤ@ݤDYݮ$XX6ЬRR[P1LP1@ТP`1Zߧݤ@ݤDYZX`ߧݤ@ݤDYݮ$XGЮ0ݦ0YXЬTФ RRQաD,СHS< СLPР8RRͣ8R~ݡDС@PݠhP^UЬRТTĀRТVĄWVSeR)PRPPSP|AR<SSPĄ}dxЬRТR`WV-V(dĄqSeR&PRcPPQP|AR<QQPĄ$Pݬ$ݬTGP^ЬPРPP^]\Pݬr|A\P ^ЬS3R)ݢ|ARУR€RݢPd^FW鸞YZЏt}lhiddipRЬbXެVXfVެ TФUxXQAeP`;dRAbSc/ARbߧPc~b~WZXXfPUdiPPUdiPХRZ;P€UdiPХVЏxp|U6P  ХR€UdiPХ RТ R XХ RТ RТR2@ԦDХ R(@Х R$DTլ1ެ SXxTQAhP` ߧ cPAP`P^|txTPcQ@aRb@RbU行P11 'PB?PTdiPUdiPTT1pզݬUPХ RТLƨ֨UnPdiPdiUP^DWЬSУ VУR€TФUբ0BŏP0PŌQ@$P`ŏPńP@P`UwP”1Pբ;ߧ)ݢP*߭ݢS-LP”FФ8PРP2>Q2@PPQQբާ*ݢPݢФ8PݠP  ЦLPݠ8ЦHPݠ8ݬ ݬŏPńQŌPAP`U PݏU^7YPP[Pļ1iФ\ ФXѤTԤTPiѤPԤPPiФTФPЦ PРP2<Ц PРդݤPi|~ݤݤ[XOݏ [X'#ļ\դ7ФPRUPRUUФTRSRSSݬiĐ3PP#ļ+7;#[XƬŏP0QȌPA0RѪ$bݪ$[X߬ļ [X[XЭ\ЭXݤXݤ\ݬ)PPդd#xdRRN[B@@[XĄRެRbPРP`BļĐ5bZP PPbPРP` ļĐݦ0ݮXXP^ЬRТWǀXЧ\TЧXSЧTZЧPYݧXݧ\RSPPDŽ1ݨVlR(RPPQP|AR<QЬRRSTYZݬ PiPRSTDŽݨLPRDЬTZVYUФR€PРS„PVTUPPݢPݢTPSJSݨɪDŽݨݨlP ^}SЬPР QРRС PѬPЬУXP ^ESЬPР QРRС PѬPЬ У \P^ T||ЬPРR߭߭߭߭ݬ8~PSPSЭ Ф \ЭФXS ЭTЭPPP^ЬPРPݬ ݬ|~|~P i<^ЬPРSÀRТUÄTգ ݣݬآPUkTgЬPРPݠTUüJÔDÐ>ÐUfݣPݣТ8PРP2>PP~ݢ ÐU1P^ЬPРRբ ݢݬ:P€Pՠ„ݢ„ݠgPP^լЬPРP` ЬPРP`P<^ݬ~ﯞPRЬPРPSУUTRdxRRR RNPB@@xR~U4PB@@TB@@TUJPP|^9VЬSУ RУPPТDTРUUߦ+ݬP3У QߣFݬϤ.ߣMݬߣUݬߣ\ݬPP^ﭑYЬZЪTĀ[Ы Ąn7Ь ݮ u  PĈ ļ1ЪR¼1ĀRݢ0Ąݢݮļ1P[PPPPPļ1P]7ݮ  P1Ĉ ļ1rPĄļZ1YЪR¼enݮ-ݮ}ļ1+SiR&PRcPPQP|AR<Qļ1Pļ1ĤĠĜĘZļ16ݮ  P1ļ1UŏP0SЮ RŒRC RѤ\bUUVФTĘФPĜФ\ĠФXĤŏP0SЮ RŒRC Rb\ŏP0SЮ RŒRCRbXĈ1GĄ ݬ6ݮNiR(RPPSP|AR<SV1ݤXݤ\|~2TSiR&PRcPPQP|AR<QѤTΤPSΤTRЬVRXSWЦSÀRТUÄRXTWPRݣPݣTRU%UnЬRТR¼ nݮݮG[PPPPPļ1P4ݮ  P1Ĉ ļ1PĄ1ļĘTĜPĠ\ĤXļЪR¼t`nݮݮ ĄTBSiR&PRcPPQP|AR<QQPĄPPĀR4P^E3XЬSУR€PРW„Vߨ}ЬUUTdP7ˆ ¼uУPi€Pݠ0„ݠ'QȂUdP„=УP2VW;%ȉUdP„ ¼ PPP€P\P^٠RЬPРTЬSSbPcPPP@bScPPP@b񋏀cPPP@bScPPP@b,PSPĄ7ĐݬDݬ2PPP^1RЬPPŽlP^ЬPРQPРRPЬTЬ PPݡPݡTPRޞR'P^ЬQСRЬ\ЬXݬݬQ PP„0ݬݬݬ ݬ„€Pݠy€RݢP^0UЬPР RРQPТDWРXVŔЬTTScPԢ,eŚTcPšTcP ŪTcP ,7PŴTcPŽTcP TcP ,PPVݢ,WXڝPP^ 0UЬPР RРQPТDWРXVЬTTΜScPԢPETcP TcPP$TcP TcPPPVݢPݢTWXCPP^ЬPР RРQPТDSРTPլPЬTPݢPݬSTPP ^ЬPР PPQաD+СHR< СLPР8SS͢8S~ݡDС@PݠP<^ЬPР SݬPPRPУHPݠ8ݬRHЬUХ RRSգD.УHP< УLRТ8TPT͠8T~ݣDУ@Rݢ(P^S.UI VMS.BCK)[V9.BIN]ICONX.EXE;17Ds{Rݬݬ ݬݬTPPP|^ЬSУ VУPUЬPIˏPTxPˏQxˏRŏT~ŏQ~ŏR~S\RxRP@|Qa@xQάPPaPRRPxRP@@HЬTФ PPQաD,СHR< СLPР8SS͢8S~ݡDС@PݠP|^ЬQС RСPPТDTРUݬQPSPТLPݠ8ݬSLTТLPݠ8TUЬSУ RݬPPP^;,YЬQС XСPTШDZФ[ЬPsˏPUxPˏSxˏRďUďSQWŏRVURRSV WzPPPPRxRP@|Qa@xQάPPaPRRPxRP@@LZШLPݠ8Z[ЬQС P@ԣDPP^ЬSУ TУRRQPФDWРXUVˏ`Yȏ`U1УP`1Ѥ0 WXդ ЬRТ PՠDݠDР@PݠuЬPݠݠݠ ݠݠݠWUVX դ;ЬSУ RբD. |~ݢDТ@PݠѤ0ݤ0WX YP^ЬPР XРSÀTШDZФWÄÈÈPЬUU Ѭ 1УYУ RR[Ь PRPRQPPQQ УPPUPVPUVVŏP0PnjR@$P`ݣ ݣŏPDŽP@RbWPnPèPݠ8ZW1Ѩ0 ZW"ը ЬRТ PՠDݠDР@PݠЬRRY7ݣ YR~YZݮWծݣ YR~YZݮWeЬ RR[5[R~Y[ZݮWDծ[R~Y[ZݮW'ШHTЬPР P< ШLPР8RRͤ8R~ZWN|~[Y|~Zݮݮ$W ͐Ѩ0ݨ0ZW%ը;ЬTФ RբD. |~ݢDТ@PݠUݮWnÈP< ^ЬPР RРSУDUЬQТ PРP2P2YYPP~CPYPYY~HPPP^TYЬPР WРPPЧDZРXЬRRdUeRPP~OdScPV1ReRPP~TcPReRPP~YcPVeP`RcPRPR߭ocP RcPRcVSRbb]cPVRSVm߭߭߭ݬ ݬݬŏPȄQȌPARbX\dPPԼŏPȄPȌS@$Rbݼ ݼ@RbXcPYPYPZ9ЧHRТ8ЧLRТ8Ч RТRТӟ< @~YXDdPDPZV3|~ݼ ݼ|~ZYݭX qcXcݭXrcYPP^լPЬRТR€Rݬݢ$ݢcPPXЬV( TЦ Rp4VpV~<RnRRgHR~aUedHPjPpV~<RnRRgHR~edHPjPpV~<RnRRgHR~edHPjP( h( ̭Э ЭЭP^ЬRТ Rp4VpV~ެ T<RnRRgHR~aUedHPjPpV~<RnRRgHR~edHPjPpV~<RnRRgHR~edHPjP( ^ЬRТ Rg4VpV~ެ TndRgHR~~`UedHPiPpV~nRgHR~edHPiPpV~nRgHR~edHPiP( ^ЬPРPPݠRaPP^ЬPРPPݠaPP^=M[>MZ+MY T|WWMPLMR WТRz7RТXz,P{WPQPP,MVSդ,PSЦVS,L\*P\yPPQP|A\<QQQi}bAkjPPVPR,SRW9LUPPX|\լS,Р\\QUQQPRSRW@1QW8ݲ VMS.BCK)[V9.BIN]ICONX.EXE;17}^ЬPРPPРRݬR~_RI`P@AK7@AK7@AK7@AK7ƙ?+J @E>xFA!hA!hIA!hA!hA!hIA!hA!hIA!h^RPլ RЬPP֬P PP^ЬPРPlQլ%Q QPQQAhPPP^WUTݬݬPPЬPРP|PѠPݬԥݬǥѭ ѭPˏѤˏѥЬRТ P $Т P (PЏ`SТ PР PРQ<ФV 2SSSVcVTSD YSSU-P2CQQTQS2CdQQ2CUZV<TVDTUD SSYZ1PYX1ZSSXU*2CQQTQS2CdQQ2CUUXZU2ESSSj2EVdTT7T#zP{PQPPT>SSSVcVTSD XUfTTX[sh+<*: Rb?z-I%y蠢 FdѪ5*i7a1\HĴՃb*@Vu-asz `bKIX +yhWQv۔ ]$5(p-dhBa\F$kCdqBxx}NSB AwvJh)u G/{wO]YubGuW 5OF@yۃH_Cժ1.$P [74;[I}1 Po/P!1/Ab@GrEOKz;↔ûv]nzi[ӃzGMaTp>:K8I J)Y20v_ZM/nixy Li 5TIA~u⍎EeّB(>*l? &|yiio dtN#>%|Z2Q? w 'gre^'NsK&?0c6ϼAT5X#0-n󯥾@<f ;?5>{!V7__XES#2#sGL*h$#5j-D$m.|o+!# ӧ9%KOyl}['8{͎k,R~aP*z|߹{nGu$~ O VX_*y!qGXTQN͞!dTᄖ9H&S_{BMٔLp5y\}Z !TЃ["eюڟHr2g)[0qze~-eq7b]>1-MR]@rx\cfԢDk#mx,C@}_~D>mya,4Y.n݉ɲ!|q1Q Pz_5Dc9%V 6c迡2[+΍wsA{-|=!{I4 -L_J[}]Rڀ&1/=ݻ]x8o ^ n|/i+)TłKJ:2|R(@mˑC7@~E1s2T9a8䔻zS bp?gb}t}2-q7/ώh)kxdroX؉w.A-ǃپODU _37ӏa 8 S?kXhZj&] ftd:J#ʾNJR%;(4=XXۀ`F(o)DFR~p{;$m!VM$t՞lS%0RWKԹU] Z;emͥlD?v)336symŭY)A D:Ltyctfϡ͏'PI[HK[CBm]M29GŴekror'_jnLw0 4+5dY˷h%eɩNc\BO:+60F@gNQS@D4|-Mfp{9O_ۧ~%cs6^lhS<6xCTW($c&U-Z7͉ۧ(][KwԦ7 ES}6bxEZˠ_ 7-t!67jJ-e1z6AԼuoj<@FQp{% p1 ׅ>g9B(ϴp4&?>LmBκMduXuk5ZY"*DskDɂ--\C~/Zlz8Ģ{cOCW!e0]J:;"#@Buq-[K8NL8_w{ ޳&RB=Mym|}xV%XG0HVMj |1vFlV3W"1?jRi  ) Y|} Q >2Va< 4mzL+*<-١"YxPLՍTU[˛F,{OIjB!E81|ʯ`{$~S;9\*݆nļMT%v 1k!Y :mƄEe:=L^PRŎemmZ^;៖qMQpR(4Cs"432-wYz˾P8$)<݇hVp=붠F~>ku[rZ!򯕒?WcĹYQ@uoowkݓ=">FySjP ʤ̉f#q?={Oɞ#,' D b`q$z yU'ʃ-o ?dEB(Up Z~eel.w*$;}iLAf9Ĵ0.3`zjme鳀dN^#'NHccSovK}}z&7noRɡ dmOV+#p:)rΏR`WZBLo䣭_l7ߐԜ+n?,#:ӑW7GȦIs ĊʂjߚҖ#jG캭FOڅНh {ZK˒R9C!de*,i>JN-r5ӸΙ nm4yӴhh(Cb0RAZv@acn|kQp 3+؂AJﱞx\pksKVZ2a oJ {X!taԀBF+a#h_fhQQn/INs>uJƮNC8{TWl>Js|&*mTFML`PuwI,HZy+]!Cmy+ۓ9O:sb9C}|-uXcP6ASv^'8鹘m&\`E0б󔫛X!'Sc-p˳N˩ԤHŒ]<_@}@_7E9`j)ogRQ;A/q5{_ѩQ0m"B\n^+B+ x&+iٍqsꄡ4'Re_Zlz@!;+jd&ls!.G񶀚 gDL` b^ %άF\}XJ 1rϠ9&::\Io=HoA^)&:>2 WSg`ֶܻ(D)1훵pOd (R0DK52Ff9$˟6ȁ N]7ll𺑑 2-i!㲶y%Q6Sb. ScPקT}`Q]HJJVPH[de4ݷ~T/'/XT4C"Qw[w]$&NTG.sYVe-IENue?;I)ɩlxk0֎E;x)-Y_| 7ħ4.ᔧGdF">3oeP=NJTHt wh?/m+,꞊WChclrU p֟R;B&9ޡc7rՠΥ2x,Y݇})_@/A&fx/ `KJMia1$q 06M&ɶ?hh~kn*mg.Z7;ѥor˟$׾`PA f{zeF׉+ϯӎ0Tq/F?p=u ?N)E-#\j&]n6~EwG.zDOPƤ~ `c~TjU;O2u47Lx4Fp}(7 BcNޥLM7m y +~ MCA6%j]:L:Kh\HJA1}Ok-s0^'g󥣬:$4)iȰdü>u%\͒#6g&8Hu~0m~M X_*讇sr9$o QQ5 V9c}-4k€ n~=sK} RS:A#s뗟jZQS猋u>^x2g`ȩQbn_X ֲ]ȗ.xbY;Yq*@>55p&5#[ f>$!s[-gg. E,BKGGAQۂ`A&JBk8_/z`*}(7h']CAy i1|Wq L5Aa9l8Q|RcN5;E|w՝M4e;_ڼA&$%$vE@vk@RBvB[4._1Pѥ~PK*EܝZ3-Cm!&t;BO3S6V3x ɐ5w͗bYe VMS.BCK)[V9.BIN]ICONX.EXE;179T%zP{PQPP PT>SSSUcUTSD ZVXU<TVDTUD SSYZPPPЬV(_P,VgP,, U_PVgP UHPʏPx(PPP$(($PPPTT STS$$T(PUUYY12P ^R(^>S,ݬcP,,PݬcPPʏPx(PPP$(($SSSQQ PQP$$Q(SP^%QRBRB PP^TѬPެScP2@QQRQcQP2@bQQЬP2@P|^ySPЬR2B`RR1RU2E`RRR2EVgTT:T&zP{PQPP PT>RRRVbVPR@ ЬR2BUgTT:T&zP{PQPP PT>RRRUbUPR@ ^SjTT=T#zP{PQPP!TPRRP`PR@  ^}Rݬݬݬݬ ݬݬ*PS ; ;SPθ^/SŬWݬ;PPW;PPTPTRBB Tݬݬݬݬ ݬ`PPWx  |~TxTRȏRTR~x~ݬx~ݬ? ';VxRVRv;UPV;VRB0BTxd~ex~ex~ePeeeVxRVR ~x~ݬx~ݬ|~|~, q: |$,4ޮ4UQ5PQP@4RQbЮ4R@RbQRRTЮ4R@RTbQQRRЮ4TBRbTx(TRR$((`P,R$B $$(,0,RR9R 8,(RWR[RTRZdYZ[1b9W8VPUYP@RbTARdb@RbUYXxXRR11Ux(URR$X((XP,P$@ $$(,(,RRgR f,( 8ޮ8UT4TRB8PT`Ю8PBP`TPPQЮ8PBPQ`TTRRЮ8TBRb PXZ[1YTx(TRR$((_P,R$B $$(,0,RR6R 6,(Tx(TRR$((^,R$B $$(,0,RRs6R 5,(Tx(TRR$((`P,R$B $$(,0,RR5R 5,(,RR5TdR 4,d;d5R PP^XԮnԮެ [kYZWG (ЮnjѮRkV(GfBfG G ֮ZnRѮR ЬSSTSTPcRBcSSTxRRPxRR  P <^TU.ЬSURBcPU`BP`UPPQBPQ`UUSSЬRCR ^aRx(SS$((_P,P$@ $$(,0,SS3S 3,(P^\,RR3R 2<, ^ SN R}b枭bѼЭbP&PЭbP߭ݭO2PЭbPcխѭ ЭbЭPgѭѭ ЭbέPЭP^VD@P@<~?2P@PDTTS@RC TլpάWW@ W UUWRnRRgRnTW}j7PթЬPЏ`Щ}jP}jkP$[P^ЬPР SРTެRbԼ߼xbQ޼ PA`aPbPެRbbԼ߼xbQ޼ PA`1PbPЬQ$aЬP(`a\Q`XSެRbbQ ߼QxbQ޼ PA`PbPެRbb S "P߼ SxbQ޼ PA`PbPЬTd ЬSdddcЬ Td ЬSdddcP^ЬRТ RТ$nТ(VެWVg15MX&[ZYPVRRgRPxVR޼ PB`hPVPVRxRR޼ PB`hPVPVRxRR޼ PB`hPVPVSSg||~VRxRR޼ PB`kPSPVSSgpȮ"pŮ~VRxRR޼ PB`kPSPs r`Ϥs `ЭrЭpϗ~p~ pPsbφnnP`PbPiPnP`PbPiPaPiPaPiPrPd4DPfFPd8PiPq@ ZPrPd4DPf)Pd8PiPլHЬPР RРQPТDTРSRURTRSjTUSjFPЬPР RРQPТDTРSRURTRSiTUSiVVg1PPT^ ެ nѮ 1ެоX޼x TDXR2bQ VxVVFX 2 ZZRRQW UxUUEX424PPRRW SxSSCX020XXWNWЮXRDR2bWЮXRF,2,YYRRWTЮXRE<2<[[RRTЮXRC828SSTNTXXPRRXxZRRXQXNX(SS[RRSxYRRSWSNS$PZоTFdR2bSEdR2bRRSSWоSFcR2bTEcR2bRRTWWX[YоRFS2cSER2bRRSSTPоRFS2cSER2bRRSTTRXRX@PR@ @΀n΀RgRRvRRVRtettRvRRVRLetLRvRS4M[Rn߭߭lnTРQnUAnVР РQnWAbnXРnYРnZ`ݭݭݭݭݭݭÏ M^勺RLЭLP:âL\n\S `PSgCSPdzEPjPP^ЬRb-&dP`P ~bP`P ~>RPPP^Ь RR ݬݬPb bPP^ݬMPPPR.ݬ[> VMS.BCK)[V9.BIN]ICONX.EXE;17j3PPݏR^QTެScccPRcߤZݏ.RPnew_context() returned in coswitchЬPЬQ^`]\[ZYXW V$U(T,S0R4լ a^]\}~{3a^С]С\С[СZСYСXС WС$VС(UС,TС0SС4R@@@4LTLT\4D< dl<4$,4L\|tLlDt|pR0 `  8  P p 8 hx08H(HP(0@`@Px@P`  h`hpt , 0 8  @VAXCRTL CMA$TIS_SHRLIBRTLMTHRTL DECW$XLIBSHRDECW$TRANSPORT_COMMONĎȎ̎Ў XCNV8 cnv_c_dblK cnv_c_intPԂ cnv_c_strcnv_csetl cnv_ec_int<cnv_eint cnv_inṫcnv_realCcnv_str0@ cnv_tcsetcnv_tstr/ $deref(Ltmp_strP dp_pnmcmp(x bi_strprc $strprcl itos 0ston cvpos= rtos ̒cstosK s8         XDATA XDEF def_c_dbl(@ def_c_int(h def_c_str<def_cset4ؓ def_ec_int(def_eint44def_int4hdef_realLdef_str(ܔ def_tcset4def_tstr) sXERRMSG<err_msgirunerr4drunerr? s<hXEXTCALLXextcall sX  XFCONV hYabs 0Ycset(XYinteger( Yreal(Ystring(ИYnumeric@ Yproc sh XFMATH Ysins XYcoss ̚Ytan \Yacos Yasin ̜Yexp \Ysqrt Ydtor{ Yrtod{ Yatan ܟYlog/ sԹ XFMISC Yargs@LYcalloutt Ycharl,Ycollect آYcopy Ydisplay<4 Yerrorclear8l YfunctionT Yiand tYior $Yixor ԩYicom XYimage0Yishiftt Yordl hYnamesܬYrunerrp LYseq  XYsort(trefcmp,tvalcmp, شtrcmp3 tvcmp4 Ysortft |nthcmp| nth Ytype YvariableM s   \o] VMS.BCK)[V9.BIN]ICONX.EXE;17>f  $XFMONITR XFSCAN Ymove Yposh Ytab s XFSTRؽYcenter ܿYdetab YentabH nxttab Yleft\ Ymap Yrepl Yreverse 8Yright Ytrim sؽXFSTRANL Yany xYbal Yfind Ymany Ymatch DYupto s      XFSTRUCTYdelete c_getT 8Yget Ypop HYkeyYinsert YlistYmember xYpullt c_push YpushD c_put YputD Yset Ytable: s  XFSYS $Yclose Yexit4 Ygetenv| Yopen< Yread YreadsdYremovePYrenamex ,YseekYsystemX LYwhere| Ystop YwritehYwrites( Ygetch<Ygetche< Ykbhit (YchdirP xYdelay` Yflushi s$   SXFWINDOWYActive( YAlertP YBg YClip| xYCloneH YColor YColorValueD YCopyAreaL YCouple$< YDrawArcD YDrawCircleT YDrawCurve YDrawImagepL YDrawLine@ YDrawPoint<" YDrawPolygon8'YDrawRectangle* YDrawSegment<D. YDrawString(l1 YEraseArea| 2YEvent 4YFg|6YFillArc8: YFillCircleT< YFillPolygon?YFillRectangleX XAYFontC YFreeColor 8EYGotoRCGYGotoXY HYLowerI YNewColor,J YPaletteChars4,L YPaletteColorM YPaletteKeyOYPatternDQYPending\ RYPixelU YQueryPointer 4VYRaise LwopenlmakeIconX wmap do_config< setheight8setwidth8< setgeometryb warpPointer0 seticonlabel|setwindowlabelQ setcursor( setpointerzt setdrawop Hrebind4|setclipA unsetclip& getcanvas setcanvaslseticonicstate seticonpos geticonpos0 moveWindowFmoveResizeWindowhx setfillstyle< setlinestyle setlinewidthN8resetfgD |setfgxsetfgrgb@ 4isetfg setbgsetbgrgb@ isetbgO\setgamma@ setdisplayX setleading setimage3@ toggle_fgbgq getdisplaye getvisualP lgetpos\ getfg, getbg,  getlinestyleLl getfntnam,getpointernameD getdrawopT0 geticonicpsetfontmhandle_exposures resizePixmap8L handle_config0handle_keypress handle_mouse eraseAreacopyArea  animHelperl animate  getdefault@X  mutable_colorget_mutable_nameh@ set_mutable4 free_mutable] freecolor.blimagestrimageTgetimstr ulcmp  getximage readimage getpixel_initPgetpixel query_pointerhT query_rootpointer  SetPattern"SetPatternBits 4#remap0% seticonimage' dumpimage|* loadimage`, nativecolor L-lcolor -xcolor. raiseWindow*. lowerWindow*.getactivewindow' 0walert/ s ٿ   1  YXRWINDOW0strnchr)0evquesubA1 wgetevent2wgetchne$2wgetchet 43wgotoH|3 mystrncpy$3 wlongread4wgetstrg 5xyrowcolX 6qevent 7setpos8setsizeh9wputstr9 parsecolor; colorphrase` ArgbvalBreadGIF CgfreadEgfheader FgfskipGgfimhdrx Ggbf| VMS.BCK)[V9.BIN]ICONX.EXE;17ŕ/fmap HgfsetupHIgfrdata4|OgfrcodePgfinsertWpPgffirstT Pgfgen` $RgfputRwriteGIFK Sgfwrite Ygfpack|Zgfmktree` Zgfout d[gfdump@ [palnum\\palsetup _rgbkey;X` parsefonta getpattern<,b parsepatternud parsegeometry5ewattribrectargs docircles^ genCurve4 curveHelperX drawCurve sicmp si_s2i1 si_i2s> s0 59      ߤ  XFXTRA LONG0 longwriteo R 0 MEMORYmemcopy#ćmemfill#  SAVE TIMEgetitime`Hgetctimemillisecg 7Y%B,3REDIRERRLredirerrT L+ .MAIN."COSWITCH . BLANK .XWINDOWtranslate_key_event: ! ALLOC ܉salloc[ 8allocJ ܉*[V9.BIN]IEXE.COM;1+,./ 4T-0123KPWO56RY7pNQY89Jj$GHJ$! $! Define as a command the Icon program named as a parameter. $! $ if p1 .eqs. "" then $ inquire p1 "Image name" $ if p1 .eqs. "" then $ exit 1 $ $ name = f$parse("''p1'",,,,"syntax_only") $ prog = f$parse("''p1'",,,"name") $ type = f$parse("''p1'",,,"type") $ if type .eqs. ".EXE" $ then $ file = f$search("''name'") $ if file .nes. "" then $ goto compile $ write sys$output "No file named ''p1' found" $ exit 1 $ endif $ if type .eqs. ".ICX" $ then $ file = f$search("''name'") $ if file .nes. "" then $ goto interp $ write sys$output "No file named ''p1' found" $ exit 1 $ endif $ if type .eqs. "." $ then $ name = f$parse("''p1'",".exe",,,"syntax_only") $ file = f$search("''name'") $ if file .nes. "" then $ goto compile $ name = f$parse("''p1'",".icx",,,"syntax_only") $ file = f$search("''name'") $ if file .nes. "" then $ goto interp $ write sys$output "No file named ''p1'.exe or ''p1'.icx found" $ exit 1 $ endif $ $ write sys$output "Improper file type specified" $ exit 1 $ $compile: $ file = f$parse("''file'",,,"device") + f$parse("''file'",,,"directory") + - f$parse("''file'",,,"name") + ".exe" $ 'prog' == "$ ''file'" $ exit 1 $ $interp: $ file = f$parse("''file'",,,"device") + f$parse("''file'",,,"directory") + - f$parse("''file'",,,"name") + ".icx" $ 'prog' == "$ ICON_BIN:iconx ''file'" $ exit 1 *[V9.BIN]RT.DB;41+,N./ 4m-0123KPWO56Tp70 289Ҋ;vGHJ9.0.00 LargeInts types T0: string T1: integer T2: record T3: proc T4: coexpr T5: tvsubs T6: tvtbl T7: null T8: cset T9: real T10: list T11: table T12: file T13: set T14: kywdint T15: kywdsubj T16: kywdpos T17: kywdevent T18: kywdwin T19: kywdstr $endsect components C0: str_var C1: trpd_tbl C2: lst_elem C3: tbl_key C4: tbl_val C5: tbl_dflt C6: set_elem $endsect functions Active 2g 0() {0,1} fr__ f "Active() - produce the next active window" 0 0 lst abstr nil typ T12 call 0 s fr___ t 0 0 0 $end Alert 2h 1(dv) {1,1} _r_e f "Alert(w,volume) - Alert the user" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end Bg 2i 1(dv) {0,1} fr_e f "Bg(w,s) - background color" 0 0 lst abstr nil typ T0 call 0 s fr_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end Clip 2j 1(dv) {1,1} _r_e f "Clip(w, x, y, w, h) - set context clip rectangle" 0 0cC< jN_1'Қu8H[uFXs£)aِ `-6y8 ĤԺD_o}B y+2F0ٛ~Z=&_hԈpS[¦$]8E5 <򼚫A|sNvQ+R("`P={Be6,;sI:9;&#rXuK(i+5> r ;`4j a8 TZ^Kd鍨1#Š*b4\ftÂ0I9St!l]Նqvjޅ\_90۠*7=n;m̺}X  ,2QΜF f!Bb?zQ Ĉ/e -3d$]Z)?y:%%3ʾkkhqh6"Q#|tM;P^pfקqCyfQ迬pM0)6adǀ)C cF0lFs栚Yv Q}IQ.bH\EzXE"r|%m.;y ߝ$yn`'"ŇՃU}acRfͼ!y# &xr $5_nKnhVPsGuylc̶89\ ,9gN~/lKs>5U%`Hl|LB.4T)3hTSBZ񄯩^E(DX+ELw .=zG>_pئV g R?-φ>VΆޙ"=(Vj?Zӛ0QN7gb e+6ЏBKbOPP~ z-%LiPa"K4-])A今qJ!z*)&jaEAu?=聪Luvn>Z;%}: QZnEH\&oF%D @]id ӕd\N8Z]NQ{s!DF$d58Cŭ7*$"2L`[xḙ{!bGQw-Ps ݺ'e@pܥ߫6g-W=¡%MR_!iΟ=oʱmC qtŇhܷ.7FtѬ6 a?{a)\sgzTPٵ4w4 䘋N4ƬZO*? yi9-s)$[C=zծPƏ&ͧc+3v5Cb?,vӷXV*݂遜A$E49*|F[ ۔S'|5К(AYWT<o-X )հMUiD.H8)P@>Z@qdjk$?0wD@9?*рWvrvdJ ܅9>`P {!zvΛ]™A6T'4 .NQ^q^3>_~6n@&.@m %Cx܉iXa< ٘ lxv8LgF3 OnI;懲d?Q܈\F T ߚ)0t/c}YӠPEf Y׵XX+)J8P1~ۮ .=D3@ڋG*KW3M! ._|>zF.:_Uʂ eBE6uie~botNLQL" g/TNC㕱8c7o5(-b?W9"C2;0H):T'vżؾ,mQ b % RM,{Ly3;!bw=۫6@(pz 4Vbu!J 1_bzJ9.ʏv*ks='g<ҐR=:{/ (ɨ~wa+J%0_bC.[/3W:h]{8rQ?I zOؗ\<>w6^A\I6nzs8q|6־{:yg L"̕\il;w^q/f~zkߙ_C#+%: ҙx+W|y2i9A1[SIb5c~kPSD5D5l.`E{,lDaSt͠,PݪLS@68JMsKmH  t-˓=0jL);l`cS%Z!SiFS G&\H~^ 2ޱ}mQ֨*yԅE+25dpEbp㓧g>ywE^"0HZ\ Op neּBa8oᔖ&,H֡ńW8%u_ Rgq+#agvHDq]$YK3H( l@ f:$ ;{C8.$b׹3IQ\,zaF+&sop%'>FxbuȭPPrUejg0J+ѽ%_m oֹ˝ -lޖZޫ̃QKXR]J!x.5\b[z!yB'lքn}\rrQi&(,s1IWǖidkY`| YO۷NOҞ38 /&*NͲ:>ScHRl>+q -TRv%RAs g2$ZoW++-D0 զa/FN@^ຩ89>J9b]`r:i X0ңHPPCXv3+s Ku,kscdp>8i AftۿMX;ϊӏ;):qJ!̎ޫR;`q.YHgoʢFG2(O/j<6[6J]I!X[/,S/[H&lڥ]ro+teGX6s'LӖn[cY1uRkwZy'% O,췏l@F&uFqܑGѸ)3MdgR(g )zvd6[qCM~%6t"{ڀ]naЇ\?'$ P*2tP9}eIT*BVĊOi U(~2lPV}?:ʴEhڤb(5OvP)sFV%u;g*ۨ:ȋ*|UM#po6x:Vrzjߝ35xZ]n7PzQV22Sp.3;bf6 f6;y_]3<6`'ccQ9v]ݡaMft ENaմyטRr,KV0CCC{==is̐}hQn7~cpac~g2*.qYBh6LmiV3lpH-[8a1҃Ű*Q7k?xӰ`!M{lQ&WZ7~3K^9ֱÉ1;Z><bcvUjv'-K><jpѧ=m(x'A]et?wDc13 ㇖Eǃxc}U$oc7t~UJ=kqhQ;X_qGo\'})/KO?mS4bEP;/u%!6>Ѭ2Vs` * 5qmK"ØY )Kdv{ q!,{iR"{ktu9=s Bxva*g% !(97?]_Ft:ZѬQJV b7ś g0bv6ӚNb Y.LidaMؚᦪ p"2IlۀQV6)u'By0Uwҽ4}4e铣B=RYokLܚ}BF,,2i)?%ǽO0ng`WqUy6k{1HJKt ¹`PvGUd^ Tu\Of1CҘ/E-vb8<'ѸXLxWp7tPKsU:}ј,mҷ" [veJ|Ǹ0$c^]W fy+FcD{sOL4)WmsrQ'1ZԾ:|lvaf m© Ќ_ F&V@JY"lrBҋ{?DA['0b"Ѻvm.8]!d9,ê^X;W qQ:vB y~_90^A)b U8 LIcQH[t;_׹|#%{8567wYG ^@xBrו`Hp!|7iUuQ4">B)o_D3?vfmV0G-{ Kd\'n34:'}=; =F05z&# ١@;kL| 2+bg>>Г2녒-C+RPj'$4Q.O;CF]-t/)רe5V BQeyh21gEO+CdD+FIޭ3qs4&t0|n>1^*81p"nτgFv$r)e#@ʫ<2:lNH =}Fp4]N!DiQNEx!2`a'>'Ogr-`VlwBGdv A=-s϶_ib`h#҂@ͱ:+-p"v¸%>37F~u2t'=!@9 +n o<m?Kp\?4lJD۽d4BJ}c;JsoTspjnCZ-X4Q/6@ͣ;OC{Xw6s OPqf hQ# ({ZWN\5xA y=FuIY~WDݭ`Xi9 CJܪXOJCI׶˥AjTEa\(_Lmݴ1zf$T'_:reo}"Y쌱yQKh *tX8rectangle" 0 0d q VMS.BCKN[V9.BIN]RT.DB;41 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end Clone 2k 1(dv) {1,1} fr_e t "Clone(w, attribs...) - create a new context bound to w's canvas" 0 0 lst abstr nil typ T12 call 0 s fr_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end Color 2l 1(dv) {0,1} fr_e f "Color(argv[]) - return or set color map entries" 0 0 lst abstr nil ++ typ T12 typ T0 call 0 s fr_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end ColorValue 2m 1(dv) {0,1} fr_e f "ColorValue(w,s) - produce RGB components from string color name" 0 0 lst abstr nil typ T0 call 0 s fr_e_ t 0 0 2 $c int argc $e $c $r1 $e $c dptr argv $e $c $r0 $e $end CopyArea 2n 1(dv) {0,1} fr_e f "CopyArea(w,w2,x,y,width,height,x2,y2) - copy area" 0 0 lst abstr nil typ T12 call 0 s fr_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end Couple 2o 2(d,d) {0,1} fr_e t "Couple(w,w2) - couple canvas to context" 0 0 lst abstr nil typ T12 call 0 s fr_e_ t 0 0 2 $c dptr w2 $e $c &($r1 ) $e $c dptr w $e $c &($r0 ) $e $end DrawArc 2p 1(dv) {1,1} _r_e f "DrawArc(argv[]){1} - draw arc" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end DrawCircle 2q 1(dv) {1,1} _r_e f "DrawCircle(argv[]){1} - draw circle" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end DrawCurve 2r 1(dv) {1,1} _r_e f "DrawCurve(argv[]){1} - draw curve" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end DrawImage 2s 1(dv) {0,1} fr_e f "DrawImage(w,x,y,s) - draw bitmapped figure" 0 0 lst abstr nil ++ typ T7 typ T1 call 0 s fr_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end DrawLine 2t 1(dv) {1,1} _r_e f "DrawLine(argv[]){1} - draw line" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end DrawPoint 2u 1(dv) {1,1} _r_e f "DrawPoint(argv[]){1} - draw point" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end DrawPolygon 2v 1(dv) {1,1} _r_e f "DrawPolygon(argv[]){1} - draw polygon" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end DrawRectangle 2w 1(dv) {1,1} _r_e f "DrawRectangle(argv[]){1} - draw rectangle" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end DrawSegment 2x 1(dv) {1,1} _r_e f "DrawSegment(argv[]){1} - draw line segment" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end DrawString 2y 1(dv) {1,1} _r_e f "DrawString(argv[]){1} - draw text" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $m0 $e $c int argc $e $c $r1 $e $end EraseArea 2z 1(dv) {1,1} _r_e f "EraseArea(w,x,y,width,height) - clear an area of the window" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end Event 30 1(dv) {1,1} _r_e f "Event(w) - return an event from a window" 0 0 lst abstr nil ++ typ T0 typ T1 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end Fg 31 1(dv) {0,1} fr_e f "Fg(w,s) - foreground color" 0 0 lst abstr nil typ T0 call 0 s fr_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end FillArc 32 1(dv) {1,1} _r_e f "FillArc(argv[]){1} - fill arc" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end FillCircle 33 1(dv) {1,1} _r_e f "FillCircle(argv[]){1} - draw filled circle" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end FillPolygon 34 1(dv) {1,1} _r_e f "FillPolygon(argv[]){1} - fill polygon" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end FillRectangle 35 1(dv) {1,1} _r_e f "FillRectangle(argv[]){1} - draw filled rectangle" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end Font 36 1(dv) {0,1} fr_e f "Font(w,s) - get/set font" 0 0 lst abstr nil typ T0 call 0 s fr_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end FreeColor 37 1(dv) {1,1} _r_e f "FreeColor(argv[]) - free colors" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end GotoRC 38 1(dv) {1,1} _r_e f "GotoRC(w,r,c) - move cursor to a particular text row and column" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end GotoXY 39 1(dv) {1,1} _r_e f "GotoXY(w,x,y) - move cursor to a particular pixel location" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end Lower 3a 1(dv) {1,1} _r_e f "Lower(w) - lower w to the bottom of the window stack" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end NewColor 3b 1(dv) {0,1} fr_e f "NewColor(w,s) - allocate an entry in the color map" 0 0 lst abstr nil typ T1 call 0 s fr_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end PaletteChars 3c 1(dv) {0,1} fr_e f "PaletteChars(w,p) - return the characters forming keys to palette p" 0 0 lst abstr nil typ T0 call 0 s fr_e_ t 0 0 2 $c int argc $e $c $r1 $e $c dptr argv $e $c $m0 $e $end PaletteColor 3d 1(dv) {0,1} fr_e f "PaletteColor(w,p,s) - return color of key s in palette p" 0 0 lst abstr nil typ T0 call 0 s fr_e_ t 0 0 2 $c int argc $e $c $r1 $e $c dptr argv $e $c $m0 $e $end PaletteKey 3e 1(dv) {0,1} fr_e f "PaletteKey(w,p,s) - return key of closest color to s in palette p" 0 0 lst abstr nil typ T0 call 0 s fr_e_ t 0 0 2 $c int argc $e $c $r1 $e $c dptr argv $e $c $m0 $e $end Pattern 3f 1(dv) {1,1} fr_e f "Pattern(w,s) - sets the context fill pattern by string name" 0 0 lst abstr nil typ T12 call 0 s fr_e_ t 0 0 2 $c dptr argv $e $c $m0 $e $c int argc $e $c $r1 $e $end Pending 3g 1(dv) {0,1} fr_e f "Pending(w,x[]) - produce a list of events pending on window" 0 0 lst abstr nil typ T10 call 0 s fr_e_ t 0 0 2 $c dptr argv $e $c $m0 $e $c int argc $e $c $r1 $e $end Pixel 3h 1(dv) {3,3} f_se f "Pixel(w,x,y,width,height) - produce the contents of some pixels" 0 0 lst abstr nil ++ typ T1 typ T0 call 0 s f_se_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end QueryPointer 3i 1(d) {0,2} f_se f "QueryPointer(w) - produce mouse position" 0 1 xp $c XPoint xp; $e lst abstr nil typ T1 call 0 s f_se_ t 0 0 2 $c XPoint (*xp) $e $c &($m1 ) $e $c dptr w $e $c &($r0 ) $e $end Raise 3j 1(dv) {1,1} _r_e f "Raise(w) - raise w to the top of the window stack" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end ReadImage 3k 1(dv) {0,1} fr_e f "ReadImage(w, s, x, y, p) - load image file" 0 0 lst abstr nil typ T1 call 0 s fr_e_ t 0 0 2 $c dptr argv $e $c $m0 $e $c int argc $e $c $r1 $e $end TextWidth 3m 1(dv) {1,1} _r_e f "TextWidth(w,s) - compute text pixel width" 0 0 lst abstr nil typ T1 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $m0 $e $c int argc $e $c $r1 $e $end Uncouple 3n 1(d) {1,1} _r_e f "Uncouple(w) - uncouple window" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 1 $c dpeJA$ VMS.BCKN[V9.BIN]RT.DB;4102tr w $e $c &($r0 ) $e $end WAttrib 3o 1(dv) {0,*} f_se f "WAttrib(argv[]) - read/write window attributes" 0 0 lst abstr nil ++ typ T12 typ T0 call 0 s f_se_ t 0 0 2 $c dptr argv $e $c $m0 $e $c int argc $e $c $r1 $e $end WDefault 3p 1(dv) {0,1} fr_e f "WDefault(w,program,option) - get a default value from the environment" 0 0 lst abstr nil typ T0 call 0 s fr_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end WFlush 3q 1(dv) {1,1} _r_e f "WFlush(w) - flush all output to window w" 0 0 lst abstr nil typ T12 call 0 s _r_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end WSync 3l 1(d) {1,1} _r_e f "WSync(w) - synchronize with server" 0 0 lst abstr nil ++ typ T12 typ T7 call 0 s _r_e_ t 0 0 1 $c dptr w $e $c &($r0 ) $e $end WriteImage 3r 1(dv) {0,1} fr_e f "WriteImage(w,filename,x,y,width,height) - write an image to a file" 0 0 lst abstr nil typ T12 call 0 s fr_e_ t 0 0 2 $c dptr argv $e $c $r0 $e $c int argc $e $c $r1 $e $end abs 00 1(d) {1,1} _r_e t "abs(N) - produces the absolute value of N." 0 0 if2 cnv1 eci 0 lst abstr nil typ T1 block _ 0 $c $ret ci 1 $c Abs($r0 ) $e $e if2 cnv1 ei 0 lst abstr nil typ T1 block _ 0 $c cpbignum(&$m0 , &$mr ); BlkLoc($rr )->bignumblk.sign = 0; $ret rn 0 $e if2 cnv1 cd 0 lst abstr nil typ T9 block _ 0 $c $ret cd 1 $c Abs($r0 ) $e $e runerr2 102 0 $end acos 0a 1(d) {1,1} _r_e f "acos(r), x in radians." 0 0 lst lst if1 ! cnv1 cd 0 runerr2 102 0 abstr nil typ T9 block _ 0 $c ${ double y; $cgoto $c !($r0 < -1.0 || $r0 > 1.0) $e 0 drunerr(205, $r0 ); $efail $lbl 0 errno = 0; y = acos($r0 ); $cgoto $c !(errno == EDOM) $e 1 err_msg(205, NULL); $efail $lbl 1 $ret cd 1 $c y $e $} $e $end any 1e 4(d,d,d,d) {0,1} fr_e f "any(c,s,i1,i2) - produces i1+1 if i2 is greater than 1 and s[i] is contained in c and poseq(i2,x) is greater than poseq(i1,x), but fails otherwise." 0 2 cnv_i $c C_integer cnv_i; $e cnv_j $c C_integer cnv_j; $e lst lst lst lst lst abstr nil typ T1 if2 is T7 1 lst block t 0 $c $m1 = k_subject; $e if1 is T7 2 block t 0 $c $m4 = k_pos; $e lst if1 ! cnv1 T0 1 runerr2 103 1 if1 is T7 2 block t 0 $c $m4 = 1; $e if1 ! is T7 2 if2 cnv2 ci 2 $c $m4 $e block t 0 $c $cgoto $c !(($m4 = cvpos($r4 , StrLen($r1 ))) == CvtFail) $e 0 $fail $lbl 0 $e runerr2 101 2 if2 is T7 3 block t 0 $c $m5 = StrLen($r1 ) + 1; $e if2 cnv2 ci 3 $c $m5 $e block t 0 $c $cgoto $c !(($m5 = cvpos($r5 , StrLen($r1 ))) == CvtFail) $e 1 $fail $lbl 1 $cgoto $c !($r4 > $r5 ) $e 2 ${ register C_integer tmp; tmp = $r4 ; $m4 = $r5 ; $m5 = tmp; $} $lbl 2 $e runerr2 101 3 if1 ! cnv1 tc 0 runerr2 104 0 call 0 s fr___ t 0 0 4 $c dptr c $e $c &($r0 ) $e $c dptr s $e $c &($r1 ) $e $c C_integer cnv_j $e $c $r5 $e $c C_integer cnv_i $e $c $r4 $e $end args 0i 1(d) {1,1} _r_e f "args(p) - produce number of arguments for procedure p." 0 0 lst lst if1 ! is T3 0 runerr2 106 0 abstr nil typ T1 block _ 0 $c $ret ci 1 $c ((struct b_proc *)BlkLoc($r0 ))->nparam $e $e $end asin 0b 1(d) {1,1} _r_e f "asin(r), x in radians." 0 0 lst lst if1 ! cnv1 cd 0 runerr2 102 0 abstr nil typ T9 block _ 0 $c ${ double y; $cgoto $c !($r0 < -1.0 || $r0 > 1.0) $e 0 drunerr(205, $r0 ); $efail $lbl 0 errno = 0; y = asin($r0 ); $cgoto $c !(errno == EDOM) $e 1 err_msg(205, NULL); $efail $lbl 1 $ret cd 1 $c y $e $} $e $end atan 0g 2(d,d) {1,1} _r_e f "atan(r1,r2) -- r1, r2 in radians; if r2 is present, produces atan2(r1,r2)." 0 0 lst lst lst lst if1 ! cnv1 cd 0 runerr2 102 0 abstr nil typ T9 if1 is T7 1 block _ 0 $c $ret cd 1 $c atan($r0 ) $e $e if1 ! cnv1 cd 1 runerr2 102 1 block _ 0 $c $ret cd 1 $c atan2($r0 , $r1 ) $e $e $end bal 1f 6(d,d,d,d,d,d) {0,*} f_se f "bal(c1,c2,c3,s,i1,i2) - generates the sequence of integer positions in s up to a character of c1 in s[i1:i2] that is balanced with respect to characters in c2 and c3, but fails if there is no such position." 0 2 cnv_i $c C_integer cnv_i; $e cnv_j $c C_integer cnv_j; $e lst lst lst lst lst lst lst abstr nil typ T1 if2 is T7 3 lst block t 0 $c $m3 = k_subject; $e if1 is T7 4 block t 0 $c $m6 = k_pos; $e lst if1 ! cnv1 T0 3 runerr2 103 3 if1 is T7 4 block t 0 $c $m6 = 1; $e if1 ! is T7 4 if2 cnv2 ci 4 $c $m6 $e block t 0 $c $cgoto $c !(($m6 = cvpos($r6 , StrLen($r3 ))) == CvtFail) $e 0 $fail $lbl 0 $e runerr2 101 4 if2 is T7 5 block t 0 $c $m7 = StrLen($r3 ) + 1; $e if2 cnv2 ci 5 $c $m7 $e block t 0 $c $cgoto $c !(($m7 = cvpos($r7 , StrLen($r3 ))) == CvtFail) $e 1 $fail $lbl 1 $cgoto $c !($r6 > $r7 ) $e 2 ${ register C_integer tmp; tmp = $r6 ; $m6 = $r7 ; $m7 = tmp; $} $lbl 2 $e runerr2 101 5 if1 ! def1 tc 0 $c fullcs $e runerr2 104 0 if1 ! def1 tc 1 $c lparcs $e runerr2 104 1 if1 ! def1 tc 2 $c rparcs $e runerr2 104 2 call 0 s f_s__ t 0 0 6 $c dptr c3 $e $c &($r2 ) $e $c dptr c2 $e $c &($r1 ) $e $c dptr c1 $e $c &($r0 ) $e $c dptr s $e $c &($r3 ) $e $c C_integer cnv_j $e $c $r7 $e $c C_integer cnv_i $e $c $m6 $e $end center 15 3(d,d,d) {1,1} _r_e f "center(s1,i,s2) - pad s1 on left and right with s2 to length i." 0 0 lst lst lst lst if1 ! cnv1 T0 0 runerr2 103 0 if1 ! def1 ci 1 $c 1 $e runerr2 101 1 if1 ! def1 ts 2 $c blank $e runerr2 103 2 abstr nil typ T0 call 0 s _r_e_ t 0 0 3 $c dptr s1 $e $c &($r0 ) $e $c dptr s2 $e $c &($m2 ) $e $c C_integer n $e $c $r1 $e $end char 0j 1(d) {1,1} _r_e f "char(i) - produce a string consisting of character i." 0 0 lst lst if1 ! cnv1 ci 0 runerr2 101 0 abstr nil typ T0 call 0 s _r_e_ t 0 0 1 $c C_integer i $e $c $r0 $e $end chdir 2d 1(d) {0,1} fr_e f "chdir(s) - change working directory to s." 0 0 lst lst if1 ! cnv1 cs 0 runerr2 103 0 abstr nil typ T7 block _ 0 $c $cgoto $c !(chdir($r0 ) != 0) $e 0 $fail $lbl 0 $ret d 1 $c nulldesc $e $e $end close 1w 1(d) {1,1} _r_e f "close(f) - close file f." 0 0 lst lst if1 ! is T12 0 runerr2 105 0 abstr nil ++ typ T12 typ T1 call 0 n _r___ t 0 0 1 $c dptr f $e $c &($r0 ) $e $end collect 0k 2(d,d) {1,1} fr_e f "collect(i1,i2) - call garbage collector to ensure i2 bytes in region i1. no longer works." 0 0 lst lst lst if1 ! def1 ci 0 $c (C_integer)0 $e runerr2 101 0 if1 ! def1 ci 1 $c (C_integer)0 $e runerr2 101 1 abstr nil typ T7 call 0 s fr_e_ t 0 0 2 $c C_integer region $e $c $r0 $e $c C_integer bytes $e $c $r1 $e $end copy 0l 1(d) {1,1} _r_e t "copy(x) - make a copy of object x." 0 0 lst abstr nil vartyp 0 tcase2 0 5 1 T2 call 1 s _r_e_ t 0 0 1 $c dptr x $e $c &($r0 ) $e 1 T13 call 2 s _r_e_ t 0 0 1 $c dptr x $e $c &($m0 ) $e 1 T11 call 3 s _r_e_ t 0 0 1 $c dptr x $e $c &($r0 ) $e 1 T10 block _ 0 $c $cgoto $c !(cplist(&$m0 , &$mr , (word)1, BlkLoc($r0 )->list.size + 1) == Error) $e 0 err_msg(0, NULL); $efail $lbl 0 $ret rn 0 $e 8 T4 T3 T12 T9 T1 T8 T0 T7 block _ 0 $c $ret d 1 $c $r0 $e $e call 0 n ___e_ f 0 0 1 $c dptr x $e $c &($r0 ) $e $end cos 08 1(d) {1,1} _r_e f "cos(r), x in radians." 0 0 lst lst if1 ! cnv1 cd 0 runerr2 102 0 abstr nil typ T9 block _ 0 $c ${ double y; ; errno = 0; y = cos($r0 ); ; $ret cd 1 $c y $e $} $e $end cset 01 1(d) {0,1} fr__ f "cset(x) - produces a value of type cset resulting from the conversion of x, but fails if the conversion is not possible." 0 0 if2 cnv1 T8 0 lst abstr nil typ T8 block _ 0 $c $ret d 1 $c $r0 $e $e lst abstr nil typ e block _ 0 $c $fail $e $end delay 2e 1(d) {1,1} fr_e f "delay(i) - delay for i milliseconds." 0 0 lst lst if1 ! cnv1 ci 0 runerr2 101 0 abstr nil typ T7 block _ 0 $c $cgoto $c !(idelay($r0 ) == Failed) $e 0 $fail $lblf6) VMS.BCKN[V9.BIN]RT.DB;41! 0 pollctr >>= 1; pollctr++; $ret d 1 $c nulldesc $e $e $end delete 1k 2(d,d) {1,1} _r_e f "delete(x1,x2) - delete element x2 from set or table x1 if it is there (always succeeds and returns x1)." 0 0 lst abstr nil ** vartyp 0 ++ typ T13 typ T11 tcase2 0 2 1 T11 call 0 n _r___ t 0 0 2 $c dptr s $e $c &($r0 ) $e $c dptr x $e $c &($m1 ) $e 1 T13 call 1 n _r___ t 0 0 2 $c dptr s $e $c &($r0 ) $e $c dptr x $e $c &($m1 ) $e runerr2 122 0 $end detab 16 2(d,dv) {1,1} _r_e t "detab(s,i,...) - replace tabs with spaces, with stops at columns indicated." 0 0 lst lst if1 ! cnv1 T0 0 runerr2 103 0 abstr nil typ T0 call 0 s _r_e_ t 0 0 3 $c dptr i $e $c $m1 $e $c int n $e $c $r2 $e $c dptr s $e $c &($r0 ) $e $end display 0m 2(d,d) {1,1} _r_e f "display(i,f) - display local variables of i most recent procedure activations, plus global variables. Output to file f (default &errout)." 0 0 lst lst lst if1 ! def1 ci 0 $c (C_integer)k_level $e runerr2 101 0 if2 is T7 1 block t 0 $c $m1 .dword = D_File; BlkLoc($r1 ) = (union block *)&k_errout; $e if1 ! is T12 1 runerr2 105 1 abstr nil typ T7 call 0 s _r_e_ t 0 0 2 $c C_integer i $e $c $m0 $e $c dptr f $e $c &($r1 ) $e $end dtor 0e 1(d) {1,1} _r_e f "dtor(r) - convert x from degrees to radians." 0 0 lst lst if1 ! cnv1 cd 0 runerr2 102 0 abstr nil typ T9 block _ 0 $c ${ double y; ; errno = 0; y = (($r0 ) * Pi / 180); ; $ret cd 1 $c y $e $} $e $end entab 17 2(d,dv) {1,1} _r_e t "entab(s,i,...) - replace spaces with tabs, with stops at columns indicated." 0 0 lst lst if1 ! cnv1 T0 0 runerr2 103 0 abstr nil typ T0 call 0 s _r_e_ t 0 0 3 $c dptr s $e $c &($r0 ) $e $c dptr i $e $c $m1 $e $c int n $e $c $r2 $e $end errorclear 0n 0() {1,1} _r__ f "errorclear() - clear error condition." 0 0 lst abstr nil typ T7 call 0 n _r___ t 0 0 0 $end exit 1x 1(d) {} ___e f "exit(i) - exit process with status i, which defaults to 0." 0 0 lst if1 ! def1 ci 0 $c 1 $e runerr1 0 block _ 0 $c c_exit((int)$r0 ); $e $end exp 0c 1(d) {1,1} _r_e f "exp(r) - e^x." 0 0 lst lst if1 ! cnv1 cd 0 runerr2 102 0 abstr nil typ T9 block _ 0 $c ${ double y; ; errno = 0; y = exp($r0 ); $cgoto $c !(errno == ERANGE) $e 0 err_msg(204, NULL); $efail $lbl 0 $ret cd 1 $c y $e $} $e $end find 1g 4(d,d,d,d) {0,*} f_se f "find(s1,s2,i1,i2) - generates the sequence of positions in s2 at which s1 occurs as a substring in s2[i1:i2], but fails if there is no such position." 0 2 cnv_i $c C_integer cnv_i; $e cnv_j $c C_integer cnv_j; $e lst lst lst lst lst abstr nil typ T1 if2 is T7 1 lst block t 0 $c $m1 = k_subject; $e if1 is T7 2 block t 0 $c $m4 = k_pos; $e lst if1 ! cnv1 T0 1 runerr2 103 1 if1 is T7 2 block t 0 $c $m4 = 1; $e if1 ! is T7 2 if2 cnv2 ci 2 $c $m4 $e block t 0 $c $cgoto $c !(($m4 = cvpos($r4 , StrLen($r1 ))) == CvtFail) $e 0 $fail $lbl 0 $e runerr2 101 2 if2 is T7 3 block t 0 $c $m5 = StrLen($r1 ) + 1; $e if2 cnv2 ci 3 $c $m5 $e block t 0 $c $cgoto $c !(($m5 = cvpos($r5 , StrLen($r1 ))) == CvtFail) $e 1 $fail $lbl 1 $cgoto $c !($r4 > $r5 ) $e 2 ${ register C_integer tmp; tmp = $r4 ; $m4 = $r5 ; $m5 = tmp; $} $lbl 2 $e runerr2 101 3 if1 ! cnv1 T0 0 runerr2 103 0 call 0 s f_s__ t 0 0 4 $c dptr s2 $e $c &($r1 ) $e $c C_integer cnv_i $e $c $m4 $e $c C_integer cnv_j $e $c $r5 $e $c dptr s1 $e $c &($r0 ) $e $end flush 2f 1(d) {1,1} _r_e f "flush(f) - flush file f." 0 0 lst lst if1 ! is T12 0 runerr2 105 0 abstr nil vartyp 0 call 0 n _r___ t 0 0 1 $c dptr f $e $c &($r0 ) $e $end get 1l 1(d) {0,1} fr_e t "get(x) - get an element from the left end of list x." 0 0 lst lst if1 ! is T10 0 runerr2 108 0 abstr nil store . vartyp 0 C2 call 0 s fr___ t 0 0 1 $c dptr x $e $c &($r0 ) $e $end getch 2a 0() {0,1} fr__ f "getch() - return a character from console." 0 0 lst abstr nil typ T0 call 0 s fr___ t 0 0 0 $end getche 2b 0() {0,1} fr__ f "getche() -- return a character from console with echo." 0 0 lst abstr nil typ T0 call 0 s fr___ t 0 0 0 $end getenv 1y 1(d) {0,1} fr_e f "getenv(s) - return contents of environment variable s." 0 0 lst lst if1 ! cnv1 cs 0 runerr2 103 0 abstr nil typ T0 block _ 0 $c ${ register char *p; long l; $cgoto $c (p = getenv($r0 )) != NULL $e 0 $fail $goto 1 $lbl 0 l = strlen(p); $cgoto $c !((p = alcstr(p, l)) == NULL) $e 2 err_msg(0, NULL); $efail $lbl 2 $ret T0 2 $c l $e $c p $e $lbl 1 $} $e $end iand 0o 2(d,d) {1,1} _r_e t "iand(i,j) - produce bitwise AND of i and j." 0 0 lst lst lst if1 ! cnv1 T1 0 runerr2 101 0 if1 ! cnv1 T1 1 runerr2 101 1 abstr nil typ T1 block _ 0 $c $cgoto $c (Type($r0 ) == T_Lrgint) || (Type($r1 ) == T_Lrgint) $e 0 $ret ci 1 $c IntVal($r0 ) & IntVal($r1 ) $e $goto 1 $lbl 0 $cgoto $c !(bigand(&$m0 , &$m1 , &$mr ) == Error) $e 2 err_msg(0, NULL); $efail $lbl 2 $ret rn 0 ; $lbl 1 $e $end icom 0r 1(d) {1,1} _r_e t "icom(i) - produce bitwise complement (one's complement) of i." 0 0 lst lst if1 ! cnv1 T1 0 runerr2 101 0 abstr nil typ T1 block _ 0 $c $cgoto $c Type($r0 ) == T_Lrgint $e 0 $ret ci 1 $c ~IntVal($r0 ) $e $goto 1 $lbl 0 ${ struct descrip td; td.dword = D_Integer; IntVal(td) = -1; $cgoto $c !(bigsub(&td, &$m0 , &$mr ) == Error) $e 2 err_msg(0, NULL); $efail $lbl 2 $ret rn 0 $} $lbl 1 $e $end image 0s 1(d) {1,1} _r_e t "image(x) - return string image of object x." 0 0 lst abstr nil typ T0 block _ 0 $c ${ register int i; $cgoto $c !(getimage(&$m0 , &$mr ) == Error) $e 0 err_msg(0, NULL); $efail $lbl 0 $ret rn 0 $} $e $end insert 1o 3(d,d,d) {1,1} _r_e f "insert(x1,x2,x3) - insert element x2 into set or table x1 if not already there if x1 is a table, the assigned value for element x2 is x3. (always succeeds and returns x1)." 0 0 tcase2 0 2 1 T11 lst abstr lst = . vartyp 0 C3 vartyp 1 = . vartyp 0 C4 vartyp 2 vartyp 0 call 0 s _r_e_ t 0 0 3 $c dptr y $e $c &($r2 ) $e $c dptr x $e $c &($m1 ) $e $c dptr s $e $c &($r0 ) $e 1 T13 lst abstr = . vartyp 0 C6 vartyp 1 vartyp 0 call 1 s _r_e_ t 0 0 2 $c dptr x $e $c &($m1 ) $e $c dptr s $e $c &($r0 ) $e runerr2 122 0 $end integer 02 1(d) {0,1} fr__ f "integer(x) - produces a value of type integer resulting from the conversion of x, but fails if the conversion is not possible." 0 0 if2 cnv1 T1 0 lst abstr nil typ T1 block _ 0 $c $ret d 1 $c $r0 $e $e lst abstr nil typ e block _ 0 $c $fail $e $end ior 0p 2(d,d) {1,1} _r_e t "ior(i,j) - produce bitwise inclusive OR of i and j." 0 0 lst lst lst if1 ! cnv1 T1 0 runerr2 101 0 if1 ! cnv1 T1 1 runerr2 101 1 abstr nil typ T1 block _ 0 $c $cgoto $c (Type($r0 ) == T_Lrgint) || (Type($r1 ) == T_Lrgint) $e 0 $ret ci 1 $c IntVal($r0 ) | IntVal($r1 ) $e $goto 1 $lbl 0 $cgoto $c !(bigor(&$m0 , &$m1 , &$mr ) == Error) $e 2 err_msg(0, NULL); $efail $lbl 2 $ret rn 0 ; $lbl 1 $e $end ishift 0t 2(d,d) {1,1} _r_e t "ishift(i,j) - produce i shifted j bit positions (left if j<0, right if j>0)." 0 0 lst lst lst if1 ! cnv1 T1 0 runerr2 101 0 if1 ! cnv1 T1 1 runerr2 101 1 abstr nil typ T1 call 0 s _r_e_ t 0 0 2 $c dptr i $e $c &($m0 ) $e $c dptr j $e $c &($m1 ) $e $end ixor 0q 2(d,d) {1,1} _r_e t "ixor(i,j) - produce bitwise exclusive OR of i and j." 0 0 lst lst lst if1 ! cnv1 T1 0 runerr2 101 0 if1 ! cnv1 T1 1 runerr2 101 1 abstr nil typ T1 block _ 0 $c $cgoto $c (Type($r0 ) == T_Lrgint) || (Type($r1 ) == T_Lrgint) $e 0 $ret ci 1 $c IntVal($r0 ) ^ IntVal($r1 ) $e $goto 1 $lbl 0 $cgoto $c !(bigxor(&$m0 , &$m1 , &$mr ) == Error) $e 2 err_msg(0, NULL); $efail $lbl 2 $ret rn 0 ; $lbl 1 $e $end kbhit 2c 0() {0,1} fr__ f "kbhit() -- Check to see if theg+ VMS.BCKN[V9.BIN]RT.DB;41 A0re is a keyboard character waiting to be read." 0 0 lst abstr nil typ T7 block _ 0 $c ${ int rv; rv = kbhit(); $cgoto $c rv $e 0 $fail $goto 1 $lbl 0 $ret d 1 $c nulldesc $e $lbl 1 $} $e $end key 1n 1(d) {0,*} f_se f "key(T) - generate successive keys (entry values) from table T." 0 0 lst lst if1 ! is T11 0 runerr2 124 0 abstr nil store . vartyp 0 C3 block _ 1 blkptr $c ${ struct hgstate state; $t0 .vword.bptr = hgfirst(BlkLoc($r0 ), &state); $lbl 0 $cgoto $c !($t0 .vword.bptr != 0) $e 2 $susp d 1 $c $t0 .vword.bptr->telem.tref $e $lbl 1 $t0 .vword.bptr = hgnext(BlkLoc($r0 ), &state, $t0 .vword.bptr); $goto 0 $lbl 2 $fail $} $e $end left 18 3(d,d,d) {1,1} _r_e f "left(s1,i,s2) - pad s1 on right with s2 to length i." 0 0 lst lst lst lst if1 ! cnv1 T0 0 runerr2 103 0 if1 ! def1 ci 1 $c 1 $e runerr2 101 1 if1 ! def1 ts 2 $c blank $e runerr2 103 2 abstr nil typ T0 call 0 s _r_e_ t 0 0 3 $c dptr s1 $e $c &($r0 ) $e $c dptr s2 $e $c &($m2 ) $e $c C_integer n $e $c $r1 $e $end list 1p 2(d,d) {1,1} _r_e f "list(i,x) - create a list of size i, with initial value x." 0 0 lst lst if1 ! def1 ci 0 $c 0L $e runerr2 101 0 abstr nil new T10 1 vartyp 1 call 0 s _r_e_ t 0 0 2 $c dptr x $e $c &($r1 ) $e $c C_integer n $e $c $r0 $e $end log 0h 2(d,d) {1,1} _r_e f "log(r1,r2) - logarithm of r1 to base r2." 0 0 lst lst lst if1 ! cnv1 cd 0 runerr2 102 0 abstr nil typ T9 block t 0 $c $cgoto $c !($r0 <= 0.0) $e 0 drunerr(205, $r0 ); $efail $lbl 0 $e if2 is T7 1 block _ 0 $c $ret cd 1 $c log($r0 ) $e $e lst if1 ! cnv1 cd 1 runerr2 102 1 call 0 s _r_e_ t 0 0 2 $c double x $e $c $m0 $e $c double b $e $c $r1 $e $end many 1h 4(d,d,d,d) {0,1} fr_e f "many(c,s,i1,i2) - produces the position in s after the longest initial sequence of characters in c in s[i1:i2] but fails if there is none." 0 2 cnv_i $c C_integer cnv_i; $e cnv_j $c C_integer cnv_j; $e lst lst lst lst lst abstr nil typ T1 if2 is T7 1 lst block t 0 $c $m1 = k_subject; $e if1 is T7 2 block t 0 $c $m4 = k_pos; $e lst if1 ! cnv1 T0 1 runerr2 103 1 if1 is T7 2 block t 0 $c $m4 = 1; $e if1 ! is T7 2 if2 cnv2 ci 2 $c $m4 $e block t 0 $c $cgoto $c !(($m4 = cvpos($r4 , StrLen($r1 ))) == CvtFail) $e 0 $fail $lbl 0 $e runerr2 101 2 if2 is T7 3 block t 0 $c $m5 = StrLen($r1 ) + 1; $e if2 cnv2 ci 3 $c $m5 $e block t 0 $c $cgoto $c !(($m5 = cvpos($r5 , StrLen($r1 ))) == CvtFail) $e 1 $fail $lbl 1 $cgoto $c !($r4 > $r5 ) $e 2 ${ register C_integer tmp; tmp = $r4 ; $m4 = $r5 ; $m5 = tmp; $} $lbl 2 $e runerr2 101 3 if1 ! cnv1 tc 0 runerr2 104 0 call 0 s fr___ t 0 0 4 $c dptr c $e $c &($r0 ) $e $c dptr s $e $c &($r1 ) $e $c C_integer cnv_j $e $c $r5 $e $c C_integer cnv_i $e $c $m4 $e $end map 19 3(d,d,d) {1,1} _r_e t "map(s1,s2,s3) - map s1, using s2 and s3." 0 0 lst lst lst lst if1 ! cnv1 T0 0 runerr2 103 0 if1 ! def1 T0 1 $c ucase $e runerr2 103 1 if1 ! def1 T0 2 $c lcase $e runerr2 103 2 abstr nil typ T0 call 0 s _r_e_ t 0 0 3 $c dptr s1 $e $c &($r0 ) $e $c dptr s3 $e $c &($r2 ) $e $c dptr s2 $e $c &($r1 ) $e $end match 1i 4(d,d,d,d) {0,1} fr_e f "match(s1,s2,i1,i2) - produces i1+*s1 if s1==s2[i1+:*s1], but fails otherwise." 0 2 cnv_i $c C_integer cnv_i; $e cnv_j $c C_integer cnv_j; $e lst lst lst lst lst abstr nil typ T1 if2 is T7 1 lst block t 0 $c $m1 = k_subject; $e if1 is T7 2 block t 0 $c $m4 = k_pos; $e lst if1 ! cnv1 T0 1 runerr2 103 1 if1 is T7 2 block t 0 $c $m4 = 1; $e if1 ! is T7 2 if2 cnv2 ci 2 $c $m4 $e block t 0 $c $cgoto $c !(($m4 = cvpos($r4 , StrLen($r1 ))) == CvtFail) $e 0 $fail $lbl 0 $e runerr2 101 2 if2 is T7 3 block t 0 $c $m5 = StrLen($r1 ) + 1; $e if2 cnv2 ci 3 $c $m5 $e block t 0 $c $cgoto $c !(($m5 = cvpos($r5 , StrLen($r1 ))) == CvtFail) $e 1 $fail $lbl 1 $cgoto $c !($r4 > $r5 ) $e 2 ${ register C_integer tmp; tmp = $r4 ; $m4 = $r5 ; $m5 = tmp; $} $lbl 2 $e runerr2 101 3 if1 ! cnv1 ts 0 runerr2 103 0 call 0 s fr___ t 0 0 4 $c dptr s2 $e $c &($r1 ) $e $c dptr s1 $e $c &($r0 ) $e $c C_integer cnv_i $e $c $r4 $e $c C_integer cnv_j $e $c $m5 $e $end member 1q 2(d,d) {0,1} fr_e f "member(x1,x2) - returns x1 if x2 is a member of set or table x2 but fails otherwise." 0 0 tcase2 0 2 1 T11 lst abstr nil ** vartyp 1 store . vartyp 0 C3 block _ 0 $c ${ int res; register uword hn; hn = hash(&$m1 ); memb(BlkLoc($r0 ), &$m1 , hn, &res); $cgoto $c res == 1 $e 1 $fail $goto 2 $lbl 1 $ret d 1 $c $r1 $e $lbl 2 $} $e 1 T13 lst abstr nil ** vartyp 1 store . vartyp 0 C6 block _ 0 $c ${ int res; register uword hn; hn = hash(&$m1 ); memb(BlkLoc($r0 ), &$m1 , hn, &res); $cgoto $c res == 1 $e 3 $fail $goto 4 $lbl 3 $ret d 1 $c $r1 $e $lbl 4 $} $e runerr2 122 0 $end move 12 1(d) {0,1+} f_se f "move(i) - move &pos by i, return substring of &subject spanned. Reverses effects if resumed." 0 0 lst lst if1 ! cnv1 ci 0 runerr2 101 0 abstr nil typ T0 call 0 s f_se_ t 0 0 1 $c C_integer i $e $c $m0 $e $end name 0v 1(u) {1,1} _r_e t "name(v) - return the name of a variable." 0 0 lst lst if1 ! is v 0 runerr2 111 0 abstr nil typ T0 call 0 s _r_e_ t 0 0 1 $c dptr v $e $c &($m0 ) $e $end numeric 05 1(d) {0,1} fr__ f "numeric(x) - produces an integer or real number resulting from the type conversion of x, but fails if the conversion is not possible." 0 0 if2 cnv1 ei 0 lst abstr nil typ T1 block _ 0 $c $ret d 1 $c $r0 $e $e if2 cnv1 T9 0 lst abstr nil typ T9 block _ 0 $c $ret d 1 $c $r0 $e $e lst abstr nil typ e block _ 0 $c $fail $e $end open 1z 3(d,d,dv) {0,1} fr_e f "open(s1, s2, ...) - open file named s2 with options s2 and attributes given in trailing arguments." 1 desc nil 0 lst lst lst if1 ! cnv1 T0 0 runerr2 103 0 if1 ! def1 ts 1 $c letr $e runerr2 103 1 abstr nil typ T12 call 0 s fr_e_ t 0 0 5 $c dptr filename $e $c &($m4 ) $e $c dptr attr $e $c $m2 $e $c int n $e $c $r3 $e $c dptr spec $e $c &($r1 ) $e $c dptr fname $e $c &($r0 ) $e $end ord 0u 1(d) {1,1} _r_e f "ord(s) - produce integer ordinal (value) of single character." 0 0 lst lst if1 ! cnv1 ts 0 runerr2 103 0 abstr nil typ T1 call 0 s _r_e_ t 0 0 1 $c dptr s $e $c &($r0 ) $e $end pop 1m 1(d) {0,1} fr_e t "pop(x) - pop an element from the left end of list x." 0 0 lst lst if1 ! is T10 0 runerr2 108 0 abstr nil store . vartyp 0 C2 call 0 s fr___ t 0 0 1 $c dptr x $e $c &($r0 ) $e $end pos 13 1(d) {0,1} fr_e f "pos(i) - test if &pos is at position i in &subject." 0 0 lst lst if1 ! cnv1 ci 0 runerr2 101 0 abstr nil typ T1 call 0 s fr___ t 0 0 1 $c C_integer i $e $c $m0 $e $end proc 06 2(d,d) {0,1} fr_e f "proc(x,i) - convert x to a procedure if possible; use i to resolve ambiguous string names." 0 0 if2 is T3 0 lst abstr nil typ T3 block _ 0 $c $ret d 1 $c $r0 $e $e if2 cnv1 ts 0 lst lst lst if1 ! def1 ci 1 $c 1 $e runerr2 101 1 block t 0 $c $cgoto $c !($r1 < 0 || $r1 > 3) $e 0 irunerr(205, $r1 ); $efail $lbl 0 $e abstr nil typ T3 block _ 0 $c ${ struct b_proc *prc; $cgoto $c $r1 == 0 $e 1 prc = strprc(&$m0 , $r1 ); $goto 2 $lbl 1 prc = bi_strprc(&$m0 , 0); $lbl 2 $cgoto $c prc == NULL $e 3 $ret T3 1 $c prc $e $goto 4 $lbl 3 $fail $lbl 4 $} $e lst abstr nil typ e block _ 0 $c $fail $e $end pull 1r 1(d) {0,1} fr_e t "pull(L) - pull an element from end of list L." 0 0 lst lst if1 ! is T10 0 runerr2 108 0 abstr nil store . vartyp 0 C2 call 0 s fr___ t 0 0 1 $c dptr x $e $c &($r0 ) $e $end push 1s 2(d,dv) {1,1} _r_e f "push(L,x1,...,xN) - push x onto beginning of list L." 0 0 lst lst if1 ! is T10 0 runerr2 108 0 abstr = . vartyp 0 C2 vartyp 1 varth<63 VMS.BCKN[V9.BIN]RT.DB;418?yp 0 call 0 s _r_e_ t 0 0 3 $c dptr x $e $c &($r0 ) $e $c dptr vals $e $c $r1 $e $c int n $e $c $r2 $e $end put 1t 2(d,dv) {1,1} _r_e f "put(L,x1,...,xN) - put elements onto end of list L." 0 0 lst lst if1 ! is T10 0 runerr2 108 0 abstr = . vartyp 0 C2 vartyp 1 vartyp 0 call 0 s _r_e_ t 0 0 3 $c dptr x $e $c &($r0 ) $e $c dptr vals $e $c $r1 $e $c int n $e $c $r2 $e $end read 20 1(d) {0,1} fr_e f "read(f) - read line on file f." 0 0 lst lst if2 is T7 0 block t 0 $c $m0 .dword = D_File; BlkLoc($r0 ) = (union block *)&k_input; $e if1 ! is T12 0 runerr2 105 0 abstr nil typ T0 call 0 s fr_e_ t 0 0 1 $c dptr f $e $c &($r0 ) $e $end reads 21 2(d,d) {0,1} fr_e f "reads(f,i) - read i characters on file f." 0 0 lst lst lst if2 is T7 0 block t 0 $c $m0 .dword = D_File; BlkLoc($r0 ) = (union block *)&k_input; $e if1 ! is T12 0 runerr2 105 0 if1 ! def1 ci 1 $c 1L $e runerr2 101 1 abstr nil typ T0 call 0 s fr_e_ t 0 0 2 $c C_integer i $e $c $r1 $e $c dptr f $e $c &($r0 ) $e $end real 03 1(d) {0,1} fr__ f "real(x) - produces a value of type real resulting from the conversion of x, but fails if the conversion is not possible." 0 0 if2 cnv1 T9 0 lst abstr nil typ T9 block _ 0 $c $ret d 1 $c $r0 $e $e lst abstr nil typ e block _ 0 $c $fail $e $end remove 22 1(d) {0,1} fr_e f "remove(s) - remove the file named s." 0 0 lst lst if1 ! cnv1 cs 0 runerr2 103 0 abstr nil typ T7 block _ 0 $c $cgoto $c !(remove($r0 ) != 0) $e 0 $fail $lbl 0 $ret d 1 $c nulldesc $e $e $end rename 23 2(d,d) {0,1} fr_e f "rename(s1,s2) - rename the file named s1 to have the name s2." 0 0 lst lst lst if1 ! cnv1 cs 0 runerr2 103 0 if1 ! cnv1 cs 1 runerr2 103 1 abstr nil typ T7 call 0 s fr___ t 0 0 2 $c dptr s2 $e $c &($rd1 ) $e $c dptr s1 $e $c &($rd0 ) $e $end repl 1a 2(d,d) {1,1} _r_e t "repl(s,i) - concatenate i copies of string s." 0 0 lst lst lst if1 ! cnv1 T0 0 runerr2 103 0 if1 ! cnv1 ci 1 runerr2 101 1 abstr nil typ T0 call 0 s _r_e_ t 0 0 2 $c dptr s $e $c &($r0 ) $e $c C_integer n $e $c $m1 $e $end reverse 1b 1(d) {1,1} _r_e t "reverse(s) - reverse string s." 0 0 lst lst if1 ! cnv1 T0 0 runerr2 103 0 abstr nil typ T0 call 0 s _r_e_ t 0 0 1 $c dptr s $e $c &($r0 ) $e $end right 1c 3(d,d,d) {1,1} _r_e f "right(s1,i,s2) - pad s1 on left with s2 to length i." 0 0 lst lst lst lst if1 ! cnv1 T0 0 runerr2 103 0 if1 ! def1 ci 1 $c 1 $e runerr2 101 1 if1 ! def1 ts 2 $c blank $e runerr2 103 2 abstr nil typ T0 call 0 s _r_e_ t 0 0 3 $c dptr s1 $e $c &($r0 ) $e $c dptr s2 $e $c &($m2 ) $e $c C_integer n $e $c $r1 $e $end rtod 0f 1(d) {1,1} _r_e f "rtod(r) - convert x from radians to degrees." 0 0 lst lst if1 ! cnv1 cd 0 runerr2 102 0 abstr nil typ T9 block _ 0 $c ${ double y; ; errno = 0; y = (($r0 ) * 180 / Pi); ; $ret cd 1 $c y $e $} $e $end runerr 0w 2(d,dv) {} ___e f "runerr(i,x) - produce runtime error i with value x." 0 0 lst if1 ! cnv1 ci 0 runerr2 101 0 call 0 n ___e_ f 0 0 3 $c dptr x $e $c $r1 $e $c int n $e $c $r2 $e $c C_integer i $e $c $r0 $e $end seek 24 2(d,d) {0,1} fr_e f "seek(f,i) - seek to offset i in file f. [[ What about seek error ? ]] " 0 0 lst lst lst if1 ! is T12 0 runerr2 105 0 if1 ! def1 ci 1 $c 1L $e runerr1 0 abstr nil typ T12 call 0 s fr___ t 0 0 2 $c C_integer o $e $c $r1 $e $c dptr f $e $c &($r0 ) $e $end seq 0x 2(d,d) {1,*} __se f "seq(i, j) - generate i, i+j, i+2*j, ... ." 0 0 lst lst lst if1 ! def1 ci 0 $c 1 $e runerr2 101 0 if1 ! def1 ci 1 $c 1 $e runerr2 101 1 abstr nil typ T1 call 0 s __se_ t 0 0 2 $c C_integer from $e $c $m0 $e $c C_integer by $e $c $r1 $e $end set 1u 1(d) {1,1} _r_e f "set(L) - create a set with members in list L. The members are linked into hash chains which are arranged in increasing order by hash number." 0 0 tcase2 0 2 1 T10 lst abstr nil new T13 1 store . vartyp 0 C2 call 0 s _r_e_ t 0 0 1 $c dptr l $e $c &($r0 ) $e 1 T7 lst abstr nil new T13 1 typ e block _ 0 $c ${ register union block *ps; ps = hmake(T_Set, (word)0, (word)0); $cgoto $c !(ps == NULL) $e 1 err_msg(0, NULL); $efail $lbl 1 $ret T13 1 $c ps $e $} $e runerr2 108 0 $end sin 07 1(d) {1,1} _r_e f "sin(r), x in radians." 0 0 lst lst if1 ! cnv1 cd 0 runerr2 102 0 abstr nil typ T9 block _ 0 $c ${ double y; ; errno = 0; y = sin($r0 ); ; $ret cd 1 $c y $e $} $e $end sort 0y 2(d,d) {1,1} _r_e t "sort(x,i) - sort structure x by method i (for tables)" 0 0 tcase2 0 4 1 T11 lst lst abstr nil new T10 1 ++ new T10 1 store ++ . vartyp 0 C3 . vartyp 0 C4 store ++ . vartyp 0 C3 . vartyp 0 C4 if1 ! def1 ci 1 $c 1 $e runerr2 101 1 call 0 s _r_e_ t 0 0 2 $c dptr t $e $c &($r0 ) $e $c C_integer i $e $c $r1 $e 1 T13 lst abstr nil new T10 1 store . vartyp 0 C6 call 1 s _r_e_ t 0 0 1 $c dptr t $e $c &($r0 ) $e 1 T2 lst abstr nil new T10 1 store . vartyp 0 f call 2 s _r_e_ t 0 0 1 $c dptr t $e $c &($r0 ) $e 1 T10 lst abstr nil vartyp 0 call 3 s _r_e_ t 0 0 1 $c dptr t $e $c &($m0 ) $e runerr2 115 0 $end sortf 0z 2(d,d) {1,1} _r_e t "sortf(x,i) - sort list or set x on field i of each member" 0 0 tcase2 0 3 1 T13 lst lst abstr nil new T10 1 store . vartyp 0 C6 if1 ! def1 ci 1 $c 1 $e runerr2 101 1 call 0 s _r_e_ t 0 0 2 $c dptr t $e $c &($r0 ) $e $c C_integer i $e $c $r1 $e 1 T2 lst lst abstr nil new T10 1 typ a if1 ! def1 ci 1 $c 1 $e runerr2 101 1 call 1 s _r_e_ t 0 0 2 $c dptr t $e $c &($r0 ) $e $c C_integer i $e $c $r1 $e 1 T10 lst lst abstr nil vartyp 0 if1 ! def1 ci 1 $c 1 $e runerr2 101 1 call 2 s _r_e_ t 0 0 2 $c dptr t $e $c &($m0 ) $e $c C_integer i $e $c $r1 $e runerr2 125 0 $end sqrt 0d 1(d) {1,1} _r_e f "sqrt(r) - square root of x." 0 0 lst lst if1 ! cnv1 cd 0 runerr2 102 0 abstr nil typ T9 block _ 0 $c ${ double y; $cgoto $c !($r0 < 0) $e 0 drunerr(205, $r0 ); $efail $lbl 0 errno = 0; y = sqrt($r0 ); $cgoto $c !(errno == EDOM) $e 1 err_msg(205, NULL); $efail $lbl 1 $ret cd 1 $c y $e $} $e $end stop 27 1(dv) {} ___e f "stop(a,b,...) - write arguments (starting on error output) and stop." 0 2 f $c FILE *f = NULL; $e status $c word status = k_errout.status; $e lst abstr nil typ e lcase 1 0 lst block t 0 $c $cgoto $c (k_errout.status & Fs_Write) == 0 $e 0 $m2 = k_errout.fd; $goto 1 $lbl 0 err_msg(213, NULL); $efail $lbl 1 $e call 0 n ___e_ f 0 0 2 $c FILE *f $e $c $r2 $e $c word status $e $c $r3 $e lst if1 ! is T12 [ 0 0 block t 0 $c $cgoto $c (k_errout.status & Fs_Write) == 0 $e 2 $m2 = k_errout.fd; $goto 3 $lbl 2 err_msg(213, NULL); $efail $lbl 3 $e call 1 n ___e_ f 0 0 4 $c FILE *f $e $c $m2 $e $c word status $e $c $m3 $e $c dptr x $e $c $r0 $e $c int nargs $e $c $r1 $e $end string 04 1(d) {0,1} fr__ f "string(x) - produces a value of type string resulting from the conversion of x, but fails if the conversion is not possible." 0 0 if2 cnv1 T0 0 lst abstr nil typ T0 block _ 0 $c $ret d 1 $c $r0 $e $e lst abstr nil typ e block _ 0 $c $fail $e $end system 25 1(d) {1,1} _r_e f "system(s) - execute string s as a system command." 0 0 lst lst if1 ! cnv1 cs 0 runerr2 103 0 abstr nil typ T1 block _ 0 $c ${ C_integer i; pollctr >>= 1; pollctr++; i = system($r0 ); $ret ci 1 $c i $e $} $e $end tab 14 1(d) {0,1+} f_se f "tab(i) - set &pos to i, return substring of &subject spanned.Reverses effects if resumed." 0 0 lst lst if1 ! cnv1 ci 0 runerr2 101 0 abstr nil typ T0 call 0 s f_se_ t 0 0 1 $c C_integer i $e $c $m0 $e $end table 1v 1(d) {1,1} _r_e f "table(x) - create a table with default value x." 0 0 lst abstr nil new T11 3 typ e typ e vartiq'q VMS.BCKN[V9.BIN]RT.DB;41XNyp 0 block _ 0 $c ${ union block *bp; bp = hmake(T_Table, (word)0, (word)0); $cgoto $c !(bp == NULL) $e 0 err_msg(0, NULL); $efail $lbl 0 bp->table.defvalue = $r0 ; $ret T11 1 $c bp $e $} $e $end tan 09 1(d) {1,1} _r_e f "tan(r), x in radians." 0 0 lst lst if1 ! cnv1 cd 0 runerr2 102 0 abstr nil typ T9 block _ 0 $c ${ double y; ; errno = 0; y = tan($r0 ); $cgoto $c !(errno == ERANGE) $e 0 err_msg(204, NULL); $efail $lbl 0 $ret cd 1 $c y $e $} $e $end trim 1d 2(d,d) {1,1} _r_e f "trim(s,c) - trim trailing characters in c from s." 0 0 lst lst lst if1 ! cnv1 T0 0 runerr2 103 0 if1 ! def1 tc 1 $c blankcs $e runerr2 104 1 abstr nil typ T0 call 0 n _r___ t 0 0 2 $c dptr c $e $c &($r1 ) $e $c dptr s $e $c &($r0 ) $e $end type 10 1(d) {1,1} _r_e f "type(x) - return type of x as a string." 0 0 lst abstr nil typ T0 tcase2 0 12 1 T4 block _ 0 $c $ret cs 1 $c "co-expression" $e $e 1 T2 block _ 0 $c $ret d 1 $c BlkLoc($r0 )->record.recdesc->proc.recname $e $e 1 T13 block _ 0 $c $ret cs 1 $c "set" $e $e 1 T11 block _ 0 $c $ret cs 1 $c "table" $e $e 1 T10 block _ 0 $c $ret cs 1 $c "list" $e $e 1 T3 block _ 0 $c $ret cs 1 $c "procedure" $e $e 1 T12 block _ 0 $c $cgoto $c !(BlkLoc($r0 )->file.status & Fs_Window) $e 0 $ret cs 1 $c "window" $e $lbl 0 $ret cs 1 $c "file" $e $e 1 T8 block _ 0 $c $ret cs 1 $c "cset" $e $e 1 T9 block _ 0 $c $ret cs 1 $c "real" $e $e 1 T1 block _ 0 $c $ret cs 1 $c "integer" $e $e 1 T7 block _ 0 $c $ret cs 1 $c "null" $e $e 1 T0 block _ 0 $c $ret cs 1 $c "string" $e $e block _ 0 $c err_msg(123, &($r0 )); $efail $e $end upto 1j 4(d,d,d,d) {0,*} f_se f "upto(c,s,i1,i2) - generates the sequence of integer positions in s up to a character in c in s[i2:i2], but fails if there is no such position." 0 2 cnv_i $c C_integer cnv_i; $e cnv_j $c C_integer cnv_j; $e lst lst lst lst lst abstr nil typ T1 if2 is T7 1 lst block t 0 $c $m1 = k_subject; $e if1 is T7 2 block t 0 $c $m4 = k_pos; $e lst if1 ! cnv1 T0 1 runerr2 103 1 if1 is T7 2 block t 0 $c $m4 = 1; $e if1 ! is T7 2 if2 cnv2 ci 2 $c $m4 $e block t 0 $c $cgoto $c !(($m4 = cvpos($r4 , StrLen($r1 ))) == CvtFail) $e 0 $fail $lbl 0 $e runerr2 101 2 if2 is T7 3 block t 0 $c $m5 = StrLen($r1 ) + 1; $e if2 cnv2 ci 3 $c $m5 $e block t 0 $c $cgoto $c !(($m5 = cvpos($r5 , StrLen($r1 ))) == CvtFail) $e 1 $fail $lbl 1 $cgoto $c !($r4 > $r5 ) $e 2 ${ register C_integer tmp; tmp = $r4 ; $m4 = $r5 ; $m5 = tmp; $} $lbl 2 $e runerr2 101 3 if1 ! cnv1 tc 0 runerr2 104 0 call 0 s f_s__ t 0 0 4 $c dptr c $e $c &($r0 ) $e $c dptr s $e $c &($r1 ) $e $c C_integer cnv_j $e $c $r5 $e $c C_integer cnv_i $e $c $m4 $e $end variable 11 1(d) {0,1} fr_e t "variable(s) - find the variable with name s and return a variable descriptor which points to its value." 0 0 lst lst if1 ! cnv1 cs 0 runerr2 103 0 abstr nil typ v call 0 s fr___ t 0 0 1 $c dptr s $e $c &($rd0 ) $e $end where 26 1(d) {0,1} fr_e f "where(f) - return current offset position in file f." 0 0 lst lst if1 ! is T12 0 runerr2 105 0 abstr nil typ T1 call 0 s fr___ t 0 0 1 $c dptr f $e $c &($r0 ) $e $end write 28 1(dv) {1,1} _r_e f "write(a,b,...) - write arguments." 0 2 f $c FILE *f = NULL; $e status $c word status = k_output.status; $e lcase 1 0 lst lst abstr nil typ T7 block t 0 $c $cgoto $c (k_output.status & Fs_Write) == 0 $e 0 $m2 = k_output.fd; $goto 1 $lbl 0 err_msg(213, NULL); $efail $lbl 1 $e call 0 s _r_e_ t 0 0 2 $c FILE *f $e $c $r2 $e $c word status $e $c $r3 $e lst lst abstr nil vartyp 0 if1 ! is T12 [ 0 0 block t 0 $c $cgoto $c (k_output.status & Fs_Write) == 0 $e 2 $m2 = k_output.fd; $goto 3 $lbl 2 err_msg(213, NULL); $efail $lbl 3 $e call 1 s _r_e_ t 0 0 4 $c FILE *f $e $c $m2 $e $c word status $e $c $m3 $e $c dptr x $e $c $r0 $e $c int nargs $e $c $r1 $e $end writes 29 1(dv) {1,1} _r_e f "writes(a,b,...) - write arguments without newline terminator." 0 2 f $c FILE *f = NULL; $e status $c word status = k_output.status; $e lcase 1 0 lst lst abstr nil typ T7 block t 0 $c $cgoto $c (k_output.status & Fs_Write) == 0 $e 0 $m2 = k_output.fd; $goto 1 $lbl 0 err_msg(213, NULL); $efail $lbl 1 $e call 0 s _r_e_ t 0 0 2 $c FILE *f $e $c $r2 $e $c word status $e $c $r3 $e lst lst abstr nil vartyp 0 if1 ! is T12 [ 0 0 block t 0 $c $cgoto $c (k_output.status & Fs_Write) == 0 $e 2 $m2 = k_output.fd; $goto 3 $lbl 2 err_msg(213, NULL); $efail $lbl 3 $e call 1 s _r_e_ t 0 0 4 $c FILE *f $e $c $m2 $e $c word status $e $c $m3 $e $c dptr x $e $c $r0 $e $c int nargs $e $c $r1 $e $end $endsect operators ! bang 0y 1(ud) {0,*} f_se t "!x - generate successive values from object x." 1 blkptr * nil 4 i $c register C_integer i; $e j $c register C_integer j; $e state $c struct hgstate state; $e ch $c char ch; $e lst if2 && is v 0 is T0 1 lst abstr nil new T5 1 vartyp 0 block t 0 $c $m3 = 1; $lbl 1 $cgoto $c !($r3 <= StrLen($r1 )) $e 3 $susp T5 3 $c &$m0 $e $c $r3 $e $c (word)1 $e deref(&$m0 , &$m1 ); $cgoto $c !(!(!(($r1 ).dword & F_Nqual))) $e 4 err_msg(103, &($r1 )); $efail $lbl 4 $lbl 2 $m3 ++; $goto 1 $lbl 3 $e if2 cnv1 ts 1 lst abstr nil typ T0 block t 0 $c $m3 = 1; $lbl 5 $cgoto $c !($r3 <= StrLen($r1 )) $e 7 $m6 = *(StrLoc($r1 ) + $r3 - 1); $susp T0 2 $c 1 $e $c (char *)&allchars[FromAscii($r6 ) & 0xFF] $e $lbl 6 $m3 ++; $goto 5 $lbl 7 $e tcase2 1 5 1 T2 lst abstr nil . vartyp 1 f block t 0 $c $m4 = BlkLoc($r1 )->record.recdesc->proc.nfields; $m3 = 0; $lbl 8 $cgoto $c !($r3 < $r4 ) $e 10 $susp sv 2 $c &BlkLoc($r1 )->record.fields[$r3 ] $e $c (struct b_record *)BlkLoc($r1 ) $e $lbl 9 $m3 ++; $goto 8 $lbl 10 $e 1 T13 lst abstr nil store . vartyp 1 C6 block t 0 $c $m2 = hgfirst(BlkLoc($r1 ), &$m5 ); $lbl 11 $cgoto $c !($r2 != 0) $e 13 $susp d 1 $c $r2 ->selem.setmem $e $lbl 12 $m2 = hgnext(BlkLoc($r1 ), &$m5 , $r2 ); $goto 11 $lbl 13 $e 1 T11 lst abstr nil . vartyp 1 C4 block t 0 $c $m2 = hgfirst(BlkLoc($r1 ), &$m5 ); $lbl 14 $cgoto $c !($r2 != 0) $e 16 $susp sv 2 $c &$r2 ->telem.tval $e $c $r2 $e $lbl 15 $m2 = hgnext(BlkLoc($r1 ), &$m5 , $r2 ); $goto 14 $lbl 16 $e 1 T12 lst abstr nil typ T0 call 0 s f_se_ t 0 0 1 $c dptr dx $e $c &($r1 ) $e 1 T10 lst abstr nil . vartyp 1 C2 block t 0 $c $m2 = BlkLoc($r1 )->list.listhead; $lbl 17 $cgoto $c !($r2 != NULL) $e 19 $m3 = 0; $lbl 20 $cgoto $c !($r3 < $r2 ->lelem.nused) $e 22 $m4 = $r2 ->lelem.first + $r3 ; $cgoto $c !($r4 >= $r2 ->lelem.nslots) $e 23 $m4 -= $r2 ->lelem.nslots; $lbl 23 $susp sv 2 $c &$r2 ->lelem.lslots[$r4 ] $e $c $r2 $e $lbl 21 $m3 ++; $goto 20 $lbl 22 $lbl 18 $m2 = $r2 ->lelem.listnext; $goto 17 $lbl 19 $e runerr2 116 1 block _ 0 $c $fail $e $end % mod 02 2(d,d) {1,1} _r_e t "" 2 desc nil desc nil 1 irslt $c C_integer irslt; $e acase 0 1 lst abstr nil typ T1 block _ 0 $c ${ extern int over_flow; $cgoto $c !($r1 == 0) $e 0 irunerr(202, $r1 ); $efail $lbl 0 $m4 = $r0 % $r1 ; $cgoto $c $r0 < 0 $e 1 $cgoto $c !($r4 < 0) $e 2 $m4 += (($r1 ) > 0 ? ($r1 ) : -($r1 )); $lbl 2 $goto 3 $lbl 1 $cgoto $c !($r4 > 0) $e 4 $m4 -= (($r1 ) > 0 ? ($r1 ) : -($r1 )); $lbl 4 $lbl 3 ; $ret ci 1 $c $r4 $e ; $} $e lst abstr nil typ T1 block _ 0 $c $cgoto $c !(bigmod(&$m0 , &$m1 , &$mr ) == Error) $e 5 err_msg(0, NULL); $efail $lbl 5 $ret rn 0 ; $e lst abstr nil typ T9 block _ 0 $c ${ double d; d = $r0 - $r1 * (int)($r0 / $r1 ); $cgoto $c $r0 < 0.0 $e 6 $cgoto $c !(d < 0.0) $e 7 d += (($r1 ) > 0 ? ($r1 ) : -($r1 )); $lbl 7 $goto 8 $lbl 6 $cgoto $c !(d > 0.0) $e 9 d -= (($r1 ) > 0 ? ($r1 ) : -($r1 )); $lbl 9 $lbl 8 ; $ret cd 1 $c d $e $} ; $e j VMS.BCKN[V9.BIN]RT.DB;41] $end & conj 19 2(u,u) {1,1} _r__ f "x & y - produce value of y." 0 0 lst abstr nil vartyp 1 block _ 0 $c $ret d 1 $c $r1 $e $e $end * size 0t 1(d) {1,1} _r_e f "*x - return size of string or object x." 0 0 lst abstr nil typ T1 tcase2 0 7 1 T4 block _ 0 $c $ret ci 1 $c BlkLoc($r0 )->coexpr.size $e $e 1 T2 block _ 0 $c $ret ci 1 $c BlkLoc($r0 )->record.recdesc->proc.nfields $e $e 1 T8 block _ 0 $c ${ register word i; i = BlkLoc($r0 )->cset.size; $cgoto $c !(i < 0) $e 0 i = cssize(&$m0 ); $lbl 0 $ret ci 1 $c i $e $} $e 1 T13 block _ 0 $c $ret ci 1 $c BlkLoc($r0 )->set.size $e $e 1 T11 block _ 0 $c $ret ci 1 $c BlkLoc($r0 )->table.size $e $e 1 T10 block _ 0 $c $ret ci 1 $c BlkLoc($r0 )->list.size $e $e 1 T0 block _ 0 $c $ret ci 1 $c StrLen($r0 ) $e $e lst if1 ! cnv1 ts 0 runerr2 112 0 block _ 0 $c $ret ci 1 $c StrLen($r0 ) $e $e $end * mult 03 2(d,d) {1,1} _r_e t "" 2 desc nil desc nil 1 irslt $c C_integer irslt; $e acase 0 1 lst abstr nil typ T1 block _ 0 $c ${ extern int over_flow; $m4 = mul($r0 , $r1 ); $cgoto $c over_flow $e 0 $ret ci 1 $c $r4 $e $goto 1 $lbl 0 MakeInt($r0 , &$m3 ); MakeInt($r1 , &$m2 ); $cgoto $c !(bigmul(&$m3 , &$m2 , &$mr ) == Error) $e 2 err_msg(0, NULL); $efail $lbl 2 $ret rn 0 $lbl 1 ; $} $e lst abstr nil typ T1 block _ 0 $c $cgoto $c !(bigmul(&$m0 , &$m1 , &$mr ) == Error) $e 3 err_msg(0, NULL); $efail $lbl 3 $ret rn 0 ; $e lst abstr nil typ T9 block _ 0 $c $ret cd 1 $c ($r0 * $r1 ) $e ; $e $end ** inter 14 2(d,d) {1,1} _r_e f "x ** y - intersection of csets x and y or of sets x and y." 0 0 if2 && is T13 0 is T13 1 lst abstr nil new T13 1 ** store . vartyp 0 C6 store . vartyp 1 C6 call 0 s _r_e_ t 0 0 2 $c dptr y $e $c &($r1 ) $e $c dptr x $e $c &($r0 ) $e lst lst lst if1 ! cnv1 tc 0 runerr2 120 0 if1 ! cnv1 tc 1 runerr2 120 1 abstr nil typ T8 call 1 s _r_e_ t 0 0 2 $c dptr y $e $c &($r1 ) $e $c dptr x $e $c &($r0 ) $e $end + number 05 1(d) {1,1} _r_e f "+x - convert x to a number." 0 0 if2 cnv1 eci 0 lst abstr nil typ T1 block _ 0 $c $ret ci 1 $c $r0 $e $e if2 cnv1 ei 0 lst abstr nil typ T1 block _ 0 $c $ret d 1 $c $r0 $e $e if2 cnv1 cd 0 lst abstr nil typ T9 block _ 0 $c $ret cd 1 $c $r0 $e $e runerr2 102 0 $end + plus 06 2(d,d) {1,1} _r_e t "" 2 desc nil desc nil 1 irslt $c C_integer irslt; $e acase 0 1 lst abstr nil typ T1 block _ 0 $c ${ extern int over_flow; $m4 = add($r0 , $r1 ); $cgoto $c over_flow $e 0 $ret ci 1 $c $r4 $e $goto 1 $lbl 0 MakeInt($r0 , &$m3 ); MakeInt($r1 , &$m2 ); $cgoto $c !(bigadd(&$m3 , &$m2 , &$mr ) == Error) $e 2 err_msg(0, NULL); $efail $lbl 2 $ret rn 0 $lbl 1 ; $} $e lst abstr nil typ T1 block _ 0 $c $cgoto $c !(bigadd(&$m0 , &$m1 , &$mr ) == Error) $e 3 err_msg(0, NULL); $efail $lbl 3 $ret rn 0 ; $e lst abstr nil typ T9 block _ 0 $c $ret cd 1 $c ($r0 + $r1 ) $e ; $e $end ++ union 15 2(d,d) {1,1} _r_e t "x ++ y - union of csets x and y or of sets x and y." 0 0 if2 && is T13 0 is T13 1 lst abstr nil new T13 1 ++ store . vartyp 0 C6 store . vartyp 1 C6 call 0 s _r_e_ t 0 0 2 $c dptr x $e $c &($m0 ) $e $c dptr y $e $c &($m1 ) $e lst lst lst if1 ! cnv1 tc 0 runerr2 120 0 if1 ! cnv1 tc 1 runerr2 120 1 abstr nil typ T8 call 1 s _r_e_ t 0 0 2 $c dptr y $e $c &($r1 ) $e $c dptr x $e $c &($r0 ) $e $end - neg 04 1(d) {1,1} _r_e t "-x - negate x." 0 0 if2 cnv1 eci 0 lst abstr nil typ T1 block _ 0 $c ${ C_integer i; extern int over_flow; i = neg($r0 ); $cgoto $c !(over_flow) $e 0 ${ struct descrip tmp; MakeInt($r0 , &tmp); $cgoto $c !(bigneg(&tmp, &$mr ) == Error) $e 1 err_msg(0, NULL); $efail $lbl 1 $ret rn 0 $} $lbl 0 $ret ci 1 $c i $e $} $e if2 cnv1 ei 0 lst abstr nil typ T1 block _ 0 $c $cgoto $c !(cpbignum(&$m0 , &$mr ) == Error) $e 2 err_msg(0, NULL); $efail $lbl 2 BlkLoc($rr )->bignumblk.sign ^= 1; $ret rn 0 $e lst lst if1 ! cnv1 cd 0 runerr2 102 0 abstr nil typ T9 block _ 0 $c ${ double drslt; drslt = -$r0 ; $ret cd 1 $c drslt $e $} $e $end - minus 01 2(d,d) {1,1} _r_e t "" 2 desc nil desc nil 1 irslt $c C_integer irslt; $e acase 0 1 lst abstr nil typ T1 block _ 0 $c ${ extern int over_flow; $m4 = sub($r0 , $r1 ); $cgoto $c over_flow $e 0 $ret ci 1 $c $r4 $e $goto 1 $lbl 0 MakeInt($r0 , &$m3 ); MakeInt($r1 , &$m2 ); $cgoto $c !(bigsub(&$m3 , &$m2 , &$mr ) == Error) $e 2 err_msg(0, NULL); $efail $lbl 2 $ret rn 0 $lbl 1 ; $} $e lst abstr nil typ T1 block _ 0 $c $cgoto $c !(bigsub(&$m0 , &$m1 , &$mr ) == Error) $e 3 err_msg(0, NULL); $efail $lbl 3 $ret rn 0 ; $e lst abstr nil typ T9 block _ 0 $c $ret cd 1 $c ($r0 - $r1 ) $e ; $e $end -- diff 13 2(d,d) {1,1} _r_e f "x -- y - difference of csets x and y or of sets x and y." 0 0 if2 && is T13 0 is T13 1 lst abstr nil vartyp 0 call 0 s _r_e_ t 0 0 2 $c dptr y $e $c &($r1 ) $e $c dptr x $e $c &($r0 ) $e lst lst lst if1 ! cnv1 tc 0 runerr2 120 0 if1 ! cnv1 tc 1 runerr2 120 1 abstr nil typ T8 call 1 s _r_e_ t 0 0 2 $c dptr y $e $c &($r1 ) $e $c dptr x $e $c &($r0 ) $e $end . value 18 1(d) {1,1} _r__ f ".x - produce value of x." 0 0 lst abstr nil vartyp 0 block _ 0 $c $ret d 1 $c $r0 $e $e $end ... to 0w 2(d,d) {0,*} f_se f "i to j - generate successive values." 0 0 lst lst lst if1 ! cnv1 ci 0 runerr2 101 0 if1 ! cnv1 ci 1 runerr2 101 1 abstr nil typ T1 block _ 0 $c ; $lbl 0 $cgoto $c !($r0 <= $r1 ) $e 2 $susp ci 1 $c $r0 $e $lbl 1 ++$m0 ; $goto 0 $lbl 2 $fail $e $end ... toby 0v 3(d,d,d) {0,*} f_se f "i to j by k - generate successive values." 0 0 lst lst lst lst if1 ! cnv1 ci 0 runerr2 101 0 if1 ! cnv1 ci 1 runerr2 101 1 if1 ! cnv1 ci 2 runerr2 101 2 abstr nil typ T1 block _ 0 $c $cgoto $c !($r2 == 0) $e 0 irunerr(211, $r2 ); $efail $lbl 0 $cgoto $c $r2 > 0 $e 1 ; $lbl 2 $cgoto $c !($r0 >= $r1 ) $e 4 $susp ci 1 $c $r0 $e $lbl 3 $m0 += $r2 ; $goto 2 $lbl 4 $goto 5 $lbl 1 ; $lbl 6 $cgoto $c !($r0 <= $r1 ) $e 8 $susp ci 1 $c $r0 $e $lbl 7 $m0 += $r2 ; $goto 6 $lbl 8 $lbl 5 $fail $e $end / null 17 1(ud) {0,1} fr__ f "/x - test x for null value." 0 0 lst abstr nil vartyp 0 if2 is T7 1 block _ 0 $c $ret d 1 $c $r0 $e $e block _ 0 $c $fail $e $end / divide 00 2(d,d) {1,1} _r_e t "" 2 desc nil desc nil 1 irslt $c C_integer irslt; $e acase 0 1 lst abstr nil typ T1 block _ 0 $c ${ extern int over_flow; $ret ci 1 $c ($r0 / $r1 ) $e ; $} $e lst abstr nil typ T1 block _ 0 $c bigdiv(&$m0 , &$m1 , &$mr ); $ret rn 0 ; $e lst abstr nil typ T9 block _ 0 $c ${ double z; z = $r0 / $r1 ; $ret cd 1 $c z $e $} ; $e $end := asgn 08 2(u,d) {0,1} fr_e f "x := y - assign y to x." 0 0 lst lst lst if1 ! is v 0 runerr2 111 0 abstr nil vartyp 0 tcase2 0 8 1 T19 if1 ! cnv2 T0 1 $c *VarLoc($r0 ) $e runerr2 103 1 1 T15 lst if1 ! cnv2 T0 1 $c *VarLoc($r0 ) $e runerr2 103 1 block t 0 $c k_pos = 1; $e 1 T16 call 0 s f__et f 0 0 2 $c dptr x $e $c &($r0 ) $e $c dptr y $e $c &($r1 ) $e 1 T14 call 1 s ___et f 0 0 2 $c dptr x $e $c &($m0 ) $e $c dptr y $e $c &($r1 ) $e 1 T18 call 2 s ___et f 0 0 2 $c dptr x $e $c &($r0 ) $e $c dptr y $e $c &($r1 ) $e 1 T17 call 3 n ____t f 0 0 2 $c dptr y $e $c &($r1 ) $e $c dptr x $e $c &($r0 ) $e 1 T6 lst abstr = . store . vartyp 0 C1 C4 vartyp 1 nil block t 0 $c tvtbl_asgn(&$m0 , (const dptr)&$r1 ); $e 1 T5 lst abstr = store . vartyp 0 C0 typ T0 nil block t 0 $c $cgoto $c !(subs_asgn(&$m0 , (const dptr)&$r1 ) == Error) $e 1 err_msg(0, NULL); $efail $lbl 1 $e lst abstr = vartyp 0 vartyp 1 nil block t 0 $c *(dptr)((word *)VarLoc($r0 ) + Offset($r0 )) = $r1 ; $e block _ 0 $c $ret d 1 $c $r0 $e $e $end :=: swap 0b 2(ud,ud) {0,1} frkSLG VMS.BCKN[V9.BIN]RT.DB;41+l_e f "x :=: y - swap values of x and y." 2 blkptr * nil blkptr * nil 2 adj1 $c word adj1 = 0; $e adj2 $c word adj2 = 0; $e lst lst lst lst lst lst lst lst if1 ! is v 0 runerr2 111 0 if1 ! is v 2 runerr2 111 2 abstr nil vartyp 0 if1 && is T5 0 is T5 2 call 0 n ____t f 0 0 6 $c word (*adj2) $e $c &($m7 ) $e $c word (*adj1) $e $c &($m6 ) $e $c dptr y $e $c &($r2 ) $e $c dptr bp_y $e $c &($md4 ) $e $c dptr x $e $c &($r0 ) $e $c dptr bp_x $e $c &($md5 ) $e tcase2 0 8 1 T19 if1 ! cnv2 T0 3 $c *VarLoc($r0 ) $e runerr2 103 3 1 T15 lst if1 ! cnv2 T0 3 $c *VarLoc($r0 ) $e runerr2 103 3 block t 0 $c k_pos = 1; $e 1 T16 call 1 s f__et f 0 0 2 $c dptr x $e $c &($r0 ) $e $c dptr dy $e $c &($r3 ) $e 1 T14 call 2 s ___et f 0 0 2 $c dptr x $e $c &($m0 ) $e $c dptr dy $e $c &($r3 ) $e 1 T18 call 3 s ___et f 0 0 2 $c dptr x $e $c &($r0 ) $e $c dptr dy $e $c &($r3 ) $e 1 T17 call 4 n ____t f 0 0 2 $c dptr dy $e $c &($r3 ) $e $c dptr x $e $c &($r0 ) $e 1 T6 lst abstr = . store . vartyp 0 C1 C4 vartyp 3 nil block t 0 $c tvtbl_asgn(&$m0 , (const dptr)&$r3 ); $e 1 T5 lst abstr = store . vartyp 0 C0 typ T0 nil block t 0 $c $cgoto $c !(subs_asgn(&$m0 , (const dptr)&$r3 ) == Error) $e 2 err_msg(0, NULL); $efail $lbl 2 $e lst abstr = vartyp 0 vartyp 3 nil block t 0 $c *(dptr)((word *)VarLoc($r0 ) + Offset($r0 )) = $r3 ; $e if1 && is T5 0 is T5 2 block t 0 $c $cgoto $c !($r7 != 0) $e 3 $r4 ->tvsubs.sspos += $r7 ; $lbl 3 $e tcase2 2 8 1 T19 if1 ! cnv2 T0 1 $c *VarLoc($r2 ) $e runerr2 103 1 1 T15 lst if1 ! cnv2 T0 1 $c *VarLoc($r2 ) $e runerr2 103 1 block t 0 $c k_pos = 1; $e 1 T16 call 5 s f__et f 0 0 2 $c dptr y $e $c &($r2 ) $e $c dptr dx $e $c &($r1 ) $e 1 T14 call 6 s ___et f 0 0 2 $c dptr y $e $c &($m2 ) $e $c dptr dx $e $c &($r1 ) $e 1 T18 call 7 s ___et f 0 0 2 $c dptr y $e $c &($r2 ) $e $c dptr dx $e $c &($r1 ) $e 1 T17 call 8 n ____t f 0 0 2 $c dptr dx $e $c &($r1 ) $e $c dptr y $e $c &($r2 ) $e 1 T6 lst abstr = . store . vartyp 2 C1 C4 vartyp 1 nil block t 0 $c tvtbl_asgn(&$m2 , (const dptr)&$r1 ); $e 1 T5 lst abstr = store . vartyp 2 C0 typ T0 nil block t 0 $c $cgoto $c !(subs_asgn(&$m2 , (const dptr)&$r1 ) == Error) $e 4 err_msg(0, NULL); $efail $lbl 4 $e lst abstr = vartyp 2 vartyp 1 nil block t 0 $c *(dptr)((word *)VarLoc($r2 ) + Offset($r2 )) = $r1 ; $e if1 && is T5 0 is T5 2 block t 0 $c $cgoto $c !($r6 != 0) $e 5 $r5 ->tvsubs.sspos += $r6 ; $lbl 5 $e block _ 0 $c $ret d 1 $c $r0 $e $e $end < numlt 0i 2(d,d) {0,1} fr_e f "x < y - test if x is numerically less than y." 0 0 acase 0 1 lst abstr nil typ T1 block _ 0 $c $cgoto $c !($r0 < $r1 ) $e 0 $ret ci 1 $c $r1 $e $lbl 0 $fail $e lst abstr nil typ T1 block _ 0 $c $cgoto $c !((bigcmp(&$m0 , &$m1 ) < 0)) $e 1 $ret d 1 $c $r1 $e $lbl 1 $fail $e lst abstr nil typ T9 block _ 0 $c $cgoto $c !($r0 < $r1 ) $e 2 $ret cd 1 $c $r1 $e $lbl 2 $fail $e $end <- rasgn 09 2(ud,d) {0,1+} f_se f "x <- y - assign y to x. Reverses assignment if resumed." 0 0 lst lst lst lst lst if1 ! is v 0 runerr2 111 0 abstr nil vartyp 0 tcase2 0 8 1 T19 if1 ! cnv2 T0 2 $c *VarLoc($r0 ) $e runerr2 103 2 1 T15 lst if1 ! cnv2 T0 2 $c *VarLoc($r0 ) $e runerr2 103 2 block t 0 $c k_pos = 1; $e 1 T16 call 0 s f__et f 0 0 2 $c dptr x $e $c &($r0 ) $e $c dptr y $e $c &($r2 ) $e 1 T14 call 1 s ___et f 0 0 2 $c dptr x $e $c &($m0 ) $e $c dptr y $e $c &($r2 ) $e 1 T18 call 2 s ___et f 0 0 2 $c dptr x $e $c &($r0 ) $e $c dptr y $e $c &($r2 ) $e 1 T17 call 3 n ____t f 0 0 2 $c dptr y $e $c &($r2 ) $e $c dptr x $e $c &($r0 ) $e 1 T6 lst abstr = . store . vartyp 0 C1 C4 vartyp 2 nil block t 0 $c tvtbl_asgn(&$m0 , (const dptr)&$r2 ); $e 1 T5 lst abstr = store . vartyp 0 C0 typ T0 nil block t 0 $c $cgoto $c !(subs_asgn(&$m0 , (const dptr)&$r2 ) == Error) $e 2 err_msg(0, NULL); $efail $lbl 2 $e lst abstr = vartyp 0 vartyp 2 nil block t 0 $c *(dptr)((word *)VarLoc($r0 ) + Offset($r0 )) = $r2 ; $e block t 0 $c $susp d 1 $c $r0 $e $e tcase2 0 8 1 T19 if1 ! cnv2 T0 1 $c *VarLoc($r0 ) $e runerr2 103 1 1 T15 lst if1 ! cnv2 T0 1 $c *VarLoc($r0 ) $e runerr2 103 1 block t 0 $c k_pos = 1; $e 1 T16 call 4 s f__et f 0 0 2 $c dptr x $e $c &($r0 ) $e $c dptr saved_x $e $c &($r1 ) $e 1 T14 call 5 s ___et f 0 0 2 $c dptr x $e $c &($m0 ) $e $c dptr saved_x $e $c &($r1 ) $e 1 T18 call 6 s ___et f 0 0 2 $c dptr x $e $c &($r0 ) $e $c dptr saved_x $e $c &($r1 ) $e 1 T17 call 7 n ____t f 0 0 2 $c dptr saved_x $e $c &($r1 ) $e $c dptr x $e $c &($r0 ) $e 1 T6 lst abstr = . store . vartyp 0 C1 C4 vartyp 1 nil block t 0 $c tvtbl_asgn(&$m0 , (const dptr)&$r1 ); $e 1 T5 lst abstr = store . vartyp 0 C0 typ T0 nil block t 0 $c $cgoto $c !(subs_asgn(&$m0 , (const dptr)&$r1 ) == Error) $e 3 err_msg(0, NULL); $efail $lbl 3 $e lst abstr = vartyp 0 vartyp 1 nil block t 0 $c *(dptr)((word *)VarLoc($r0 ) + Offset($r0 )) = $r1 ; $e block _ 0 $c $fail $e $end <-> rswap 0a 2(ud,ud) {0,1+} f_se f "x <-> y - swap values of x and y. Reverses swap if resumed." 2 blkptr * nil blkptr * nil 2 adj1 $c word adj1 = 0; $e adj2 $c word adj2 = 0; $e lst lst lst lst lst lst lst lst lst lst lst lst lst if1 ! is v 0 runerr2 111 0 if1 ! is v 2 runerr2 111 2 abstr nil vartyp 0 if1 && is T5 0 is T5 2 call 0 n ____t f 0 0 6 $c word (*adj2) $e $c &($m7 ) $e $c word (*adj1) $e $c &($m6 ) $e $c dptr y $e $c &($r2 ) $e $c dptr bp_y $e $c &($md4 ) $e $c dptr x $e $c &($r0 ) $e $c dptr bp_x $e $c &($md5 ) $e tcase2 0 8 1 T19 if1 ! cnv2 T0 3 $c *VarLoc($r0 ) $e runerr2 103 3 1 T15 lst if1 ! cnv2 T0 3 $c *VarLoc($r0 ) $e runerr2 103 3 block t 0 $c k_pos = 1; $e 1 T16 call 1 s f__et f 0 0 2 $c dptr x $e $c &($r0 ) $e $c dptr dy $e $c &($r3 ) $e 1 T14 call 2 s ___et f 0 0 2 $c dptr x $e $c &($m0 ) $e $c dptr dy $e $c &($r3 ) $e 1 T18 call 3 s ___et f 0 0 2 $c dptr x $e $c &($r0 ) $e $c dptr dy $e $c &($r3 ) $e 1 T17 call 4 n ____t f 0 0 2 $c dptr dy $e $c &($r3 ) $e $c dptr x $e $c &($r0 ) $e 1 T6 lst abstr = . store . vartyp 0 C1 C4 vartyp 3 nil block t 0 $c tvtbl_asgn(&$m0 , (const dptr)&$r3 ); $e 1 T5 lst abstr = store . vartyp 0 C0 typ T0 nil block t 0 $c $cgoto $c !(subs_asgn(&$m0 , (const dptr)&$r3 ) == Error) $e 4 err_msg(0, NULL); $efail $lbl 4 $e lst abstr = vartyp 0 vartyp 3 nil block t 0 $c *(dptr)((word *)VarLoc($r0 ) + Offset($r0 )) = $r3 ; $e if1 && is T5 0 is T5 2 block t 0 $c $cgoto $c !($r7 != 0) $e 5 $r4 ->tvsubs.sspos += $r7 ; $lbl 5 $e tcase2 2 8 1 T19 if1 ! cnv2 T0 1 $c *VarLoc($r2 ) $e runerr2 103 1 1 T15 lst if1 ! cnv2 T0 1 $c *VarLoc($r2 ) $e runerr2 103 1 block t 0 $c k_pos = 1; $e 1 T16 call 5 s f__et f 0 0 2 $c dptr y $e $c &($r2 ) $e $c dptr dx $e $c &($r1 ) $e 1 T14 call 6 s ___et f 0 0 2 $c dptr y $e $c &($m2 ) $e $c dptr dx $e $c &($r1 ) $e 1 T18 call 7 s ___et f 0 0 2 $c dptr y $e $c &($r2 ) $e $c dptr dx $e $c &($r1 ) $e 1 T17 call 8 n ____t f 0 0 2 $c dptr dx $e $c &($r1 ) $e $c dptr y $e $c &($r2 ) $e 1 T6 lst abstr = . store . vartyp 2 C1 C4 vartyp 1 nil block t 0 $c tvtbl_asgn(&$m2 , (const dptr)&$r1 ); $e 1 T5 lst abstr = store . vartyp 2 C0 typ T0 nil block t 0 $c $cgoto $c !(subs_asgn(&$m2 , (const dptr)&$r1 ) == Error) $e 6 err_msg(0, NULL); $efail $lbl 6 $e lst abstr = vartyp 2 vartyp 1 nil block t 0 $c *(dptr)((word *)VarLoc($r2 ) + Offset($r2 )) = $r1 ; $e if1 && is T5 0 is T5 2 block t 0 $c $cgoto $c !($r6 != 0) $e 7 $r5 ->tvsubs.sspos += $r6 ; $lbl 7 $e block t 0 $c $susp d 1 $c $r0 $e $e tcase2 0 8 1 T19 if1 ! cnv2 T0 1 $c *VarLoc($r0 ) $e rlb VMS.BCKN[V9.BIN]RT.DB;41J'{unerr2 103 1 1 T15 lst if1 ! cnv2 T0 1 $c *VarLoc($r0 ) $e runerr2 103 1 block t 0 $c k_pos = 1; $e 1 T16 call 9 s f__et f 0 0 2 $c dptr x $e $c &($r0 ) $e $c dptr dx $e $c &($r1 ) $e 1 T14 call a s ___et f 0 0 2 $c dptr x $e $c &($m0 ) $e $c dptr dx $e $c &($r1 ) $e 1 T18 call b s ___et f 0 0 2 $c dptr x $e $c &($r0 ) $e $c dptr dx $e $c &($r1 ) $e 1 T17 call c n ____t f 0 0 2 $c dptr dx $e $c &($r1 ) $e $c dptr x $e $c &($r0 ) $e 1 T6 lst abstr = . store . vartyp 0 C1 C4 vartyp 1 nil block t 0 $c tvtbl_asgn(&$m0 , (const dptr)&$r1 ); $e 1 T5 lst abstr = store . vartyp 0 C0 typ T0 nil block t 0 $c $cgoto $c !(subs_asgn(&$m0 , (const dptr)&$r1 ) == Error) $e 8 err_msg(0, NULL); $efail $lbl 8 $e lst abstr = vartyp 0 vartyp 1 nil block t 0 $c *(dptr)((word *)VarLoc($r0 ) + Offset($r0 )) = $r1 ; $e if1 && is T5 0 is T5 2 block t 0 $c $cgoto $c !($r7 != 0) $e 9 $r4 ->tvsubs.sspos -= $r7 ; $lbl 9 $e tcase2 2 8 1 T19 if1 ! cnv2 T0 3 $c *VarLoc($r2 ) $e runerr2 103 3 1 T15 lst if1 ! cnv2 T0 3 $c *VarLoc($r2 ) $e runerr2 103 3 block t 0 $c k_pos = 1; $e 1 T16 call d s f__et f 0 0 2 $c dptr y $e $c &($r2 ) $e $c dptr dy $e $c &($r3 ) $e 1 T14 call e s ___et f 0 0 2 $c dptr y $e $c &($m2 ) $e $c dptr dy $e $c &($r3 ) $e 1 T18 call f s ___et f 0 0 2 $c dptr y $e $c &($r2 ) $e $c dptr dy $e $c &($r3 ) $e 1 T17 call g n ____t f 0 0 2 $c dptr dy $e $c &($r3 ) $e $c dptr y $e $c &($r2 ) $e 1 T6 lst abstr = . store . vartyp 2 C1 C4 vartyp 3 nil block t 0 $c tvtbl_asgn(&$m2 , (const dptr)&$r3 ); $e 1 T5 lst abstr = store . vartyp 2 C0 typ T0 nil block t 0 $c $cgoto $c !(subs_asgn(&$m2 , (const dptr)&$r3 ) == Error) $e 10 err_msg(0, NULL); $efail $lbl 10 $e lst abstr = vartyp 2 vartyp 3 nil block t 0 $c *(dptr)((word *)VarLoc($r2 ) + Offset($r2 )) = $r3 ; $e if1 && is T5 0 is T5 2 block t 0 $c $cgoto $c !($r6 != 0) $e 11 $r5 ->tvsubs.sspos -= $r6 ; $lbl 11 $e block _ 0 $c $fail $e $end << lexlt 0p 2(d,d) {0,1} fr_e t "x << y - test if x is lexically less than y." 0 1 temp_str $c int temp_str = 0; $e lst lst lst abstr nil typ T0 if1 ! cnv1 ts 0 runerr2 103 0 if1 ! is T0 1 if2 cnv1 ts 1 block t 0 $c $m2 = 1; $e runerr2 103 1 call 0 s fr_e_ t 0 0 3 $c int temp_str $e $c $r2 $e $c dptr y $e $c &($m1 ) $e $c dptr x $e $c &($m0 ) $e $end <<= lexle 0o 2(d,d) {0,1} fr_e t "x <<= y - test if x is lexically less than or equal to y." 0 1 temp_str $c int temp_str = 0; $e lst lst lst abstr nil typ T0 if1 ! cnv1 ts 0 runerr2 103 0 if1 ! is T0 1 if2 cnv1 ts 1 block t 0 $c $m2 = 1; $e runerr2 103 1 call 0 s fr_e_ t 0 0 3 $c int temp_str $e $c $r2 $e $c dptr y $e $c &($m1 ) $e $c dptr x $e $c &($m0 ) $e $end <= numle 0h 2(d,d) {0,1} fr_e f "x <= y - test if x is numerically less than or equal to y." 0 0 acase 0 1 lst abstr nil typ T1 block _ 0 $c $cgoto $c !($r0 <= $r1 ) $e 0 $ret ci 1 $c $r1 $e $lbl 0 $fail $e lst abstr nil typ T1 block _ 0 $c $cgoto $c !((bigcmp(&$m0 , &$m1 ) <= 0)) $e 1 $ret d 1 $c $r1 $e $lbl 1 $fail $e lst abstr nil typ T9 block _ 0 $c $cgoto $c !($r0 <= $r1 ) $e 2 $ret cd 1 $c $r1 $e $lbl 2 $fail $e $end = tabmat 0u 1(d) {0,*} f_se f "=x - tab(match(x)). Reverses effects if resumed." 0 0 lst lst if1 ! cnv1 T0 0 runerr2 103 0 abstr nil typ T0 call 0 s f_se_ t 0 0 1 $c dptr x $e $c &($r0 ) $e $end = numeq 0e 2(d,d) {0,1} fr_e f "x = y - test if x is numerically equal to y." 0 0 acase 0 1 lst abstr nil typ T1 block _ 0 $c $cgoto $c !($r0 == $r1 ) $e 0 $ret ci 1 $c $r1 $e $lbl 0 $fail $e lst abstr nil typ T1 block _ 0 $c $cgoto $c !((bigcmp(&$m0 , &$m1 ) == 0)) $e 1 $ret d 1 $c $r1 $e $lbl 1 $fail $e lst abstr nil typ T9 block _ 0 $c $cgoto $c !($r0 == $r1 ) $e 2 $ret cd 1 $c $r1 $e $lbl 2 $fail $e $end == lexeq 0k 2(d,d) {0,1} fr_e t "x == y - test if x is lexically equal to y." 0 1 temp_str $c int temp_str = 0; $e lst lst lst abstr nil typ T0 if1 ! cnv1 ts 0 runerr2 103 0 if1 ! is T0 1 if2 cnv1 ts 1 block t 0 $c $m2 = 1; $e runerr2 103 1 call 0 s fr_e_ t 0 0 3 $c int temp_str $e $c $r2 $e $c dptr y $e $c &($m1 ) $e $c dptr x $e $c &($m0 ) $e $end === eqv 0q 2(d,d) {0,1} fr__ f "x === y - test equivalence of x and y." 0 0 lst abstr nil vartyp 1 block _ 0 $c $cgoto $c equiv(&$m0 , &$m1 ) $e 0 $fail $goto 1 $lbl 0 $ret d 1 $c $r1 $e $lbl 1 $e $end > numgt 0g 2(d,d) {0,1} fr_e f "x > y - test if x is numerically greater than y." 0 0 acase 0 1 lst abstr nil typ T1 block _ 0 $c $cgoto $c !($r0 > $r1 ) $e 0 $ret ci 1 $c $r1 $e $lbl 0 $fail $e lst abstr nil typ T1 block _ 0 $c $cgoto $c !((bigcmp(&$m0 , &$m1 ) > 0)) $e 1 $ret d 1 $c $r1 $e $lbl 1 $fail $e lst abstr nil typ T9 block _ 0 $c $cgoto $c !($r0 > $r1 ) $e 2 $ret cd 1 $c $r1 $e $lbl 2 $fail $e $end >= numge 0f 2(d,d) {0,1} fr_e f "x >= y - test if x is numerically greater than or equal to y." 0 0 acase 0 1 lst abstr nil typ T1 block _ 0 $c $cgoto $c !($r0 >= $r1 ) $e 0 $ret ci 1 $c $r1 $e $lbl 0 $fail $e lst abstr nil typ T1 block _ 0 $c $cgoto $c !((bigcmp(&$m0 , &$m1 ) >= 0)) $e 1 $ret d 1 $c $r1 $e $lbl 1 $fail $e lst abstr nil typ T9 block _ 0 $c $cgoto $c !($r0 >= $r1 ) $e 2 $ret cd 1 $c $r1 $e $lbl 2 $fail $e $end >> lexgt 0n 2(d,d) {0,1} fr_e t "x >> y - test if x is lexically greater than y." 0 1 temp_str $c int temp_str = 0; $e lst lst lst abstr nil typ T0 if1 ! cnv1 ts 0 runerr2 103 0 if1 ! is T0 1 if2 cnv1 ts 1 block t 0 $c $m2 = 1; $e runerr2 103 1 call 0 s fr_e_ t 0 0 3 $c int temp_str $e $c $r2 $e $c dptr y $e $c &($m1 ) $e $c dptr x $e $c &($m0 ) $e $end >>= lexge 0m 2(d,d) {0,1} fr_e t "x >>= y - test if x is lexically greater than or equal to y." 0 1 temp_str $c int temp_str = 0; $e lst lst lst abstr nil typ T0 if1 ! cnv1 ts 0 runerr2 103 0 if1 ! is T0 1 if2 cnv1 ts 1 block t 0 $c $m2 = 1; $e runerr2 103 1 call 0 s fr_e_ t 0 0 3 $c int temp_str $e $c $r2 $e $c dptr y $e $c &($m1 ) $e $c dptr x $e $c &($m0 ) $e $end ? random 0z 1(ud) {0,1} fr_e t "?x - produce a randomly selected element of x." 0 0 if2 && is v 0 is T0 1 lst abstr nil new T5 1 vartyp 0 call 0 s fr___ t 0 0 2 $c dptr x $e $c &($m0 ) $e $c dptr dx $e $c &($r1 ) $e tcase2 1 6 1 T2 lst abstr nil . vartyp 1 f call 2 s fr___ t 0 0 1 $c dptr dx $e $c &($r1 ) $e 1 T13 lst abstr nil store . vartyp 1 C6 call 3 s fr___ t 0 0 1 $c dptr dx $e $c &($r1 ) $e 1 T11 lst abstr nil . vartyp 1 C4 call 4 s fr___ t 0 0 1 $c dptr dx $e $c &($r1 ) $e 1 T10 lst abstr nil . vartyp 1 C2 call 5 s fr___ t 0 0 1 $c dptr dx $e $c &($r1 ) $e 1 T8 lst lst if1 ! cnv1 ts 1 nil abstr nil typ T0 call 6 s fr___ t 0 0 1 $c dptr dx $e $c &($r1 ) $e 1 T0 lst abstr nil typ T0 call 7 s fr___ t 0 0 1 $c dptr dx $e $c &($r1 ) $e lst lst if1 ! cnv1 T1 1 runerr2 113 1 abstr nil ++ typ T1 typ T9 call 1 s _r_e_ t 0 0 1 $c dptr dx $e $c &($m1 ) $e $end [...] llist 0x 1(dv) {1,1} _r_e f " [x1, x2, ... ] - create an explicitly specified list." 0 0 lst abstr nil new T10 1 vartyp 0 call 0 s _r_e_ t 0 0 2 $c dptr elems $e $c $r0 $e $c int n $e $c $r1 $e $end [:] sect 10 3(ud,d,d) {0,1} fr_e t "x[i:j] - form a substring or list section of x." 0 1 use_trap $c int use_trap = 0; $e if2 is T10 1 lst lst lst abstr nil vartyp 1 if1 ! cnv1 ci 2 lst if1 cnv1 T1 2 block _ 0 $c $fail $e runerr2 101 2 if1 ! cnv1 ci 3 lst if1 cnv1 T1 3 block _ 0 $c $fail $e runerr2 101 3 call 0 s fr_e_ t 0 0 3 $c C_integer j $e $c $m3 $e $c dptr dx $e $c &($m1 ) $e $c C_integer i $e $c $m2 $e lst lst lst if2 && is v 0 is T0 1 lst abstr nil nem@8 VMS.BCKN[V9.BIN]RT.DB;41׾w T5 1 vartyp 0 block t 0 $c $m4 = 1; $e if2 cnv1 T0 1 abstr nil typ T0 runerr2 110 1 if1 ! cnv1 ci 2 lst if1 cnv1 T1 2 block _ 0 $c $fail $e runerr2 101 2 if1 ! cnv1 ci 3 lst if1 cnv1 T1 3 block _ 0 $c $fail $e runerr2 101 3 call 1 s fr___ t 0 0 5 $c dptr x $e $c &($m0 ) $e $c int use_trap $e $c $r4 $e $c C_integer j $e $c $m3 $e $c dptr dx $e $c &($r1 ) $e $c C_integer i $e $c $m2 $e $end [] subsc 11 2(ud,d) {0,1} fr_e f "x[y] - access yth character or element of x." 0 1 use_trap $c int use_trap = 0; $e tcase2 1 3 1 T2 lst abstr nil . vartyp 1 f if2 ! cnv1 ci 2 call 1 s fr_e_ t 0 0 2 $c dptr dx $e $c &($r1 ) $e $c dptr y $e $c &($m2 ) $e call 2 s fr___ t 0 0 2 $c C_integer y $e $c $r2 $e $c dptr dx $e $c &($r1 ) $e 1 T11 lst abstr = . vartyp 1 C3 vartyp 2 ++ . vartyp 1 C4 new T6 1 vartyp 1 call 3 s _r_e_ t 0 0 2 $c dptr dx $e $c &($m1 ) $e $c dptr y $e $c &($m2 ) $e 1 T10 lst lst abstr nil . vartyp 1 C2 if1 ! cnv1 ci 2 lst if1 cnv1 T1 2 block _ 0 $c $fail $e runerr2 101 2 call 4 s fr___ t 0 0 2 $c C_integer y $e $c $r2 $e $c dptr dx $e $c &($r1 ) $e lst lst if2 && is v 0 is T0 1 lst abstr nil new T5 1 vartyp 0 block t 0 $c $m3 = 1; $e if2 cnv1 ts 1 abstr nil typ T0 runerr2 114 1 if1 ! cnv1 ci 2 lst if1 cnv1 T1 2 block _ 0 $c $fail $e runerr2 101 2 call 0 s fr___ t 0 0 4 $c dptr x $e $c &($m0 ) $e $c int use_trap $e $c $r3 $e $c dptr dx $e $c &($r1 ) $e $c C_integer y $e $c $r2 $e $end \ nonnull 16 1(ud) {0,1} fr__ f "\\x - test x for nonnull value." 0 0 lst abstr nil vartyp 0 if2 is T7 1 block _ 0 $c $fail $e block _ 0 $c $ret d 1 $c $r0 $e $e $end ^ refresh 0s 1(d) {1,1} _r_e f "^x - create a refreshed copy of a co-expression." 0 0 lst lst if1 ! is T4 0 runerr2 118 0 abstr nil typ T4 call 0 s _r_e_ t 0 0 1 $c dptr x $e $c &($r0 ) $e $end ^ powr 07 2(d,d) {1,1} _r_e t "x ^ y - raise x to the y power." 0 0 if2 cnv1 ei 1 if2 cnv1 ei 0 lst abstr nil typ T1 block _ 0 $c ${ extern int over_flow; $cgoto $c !(bigpow(&$m0 , &$m1 , &$mr ) == Error) $e 0 err_msg(0, NULL); $efail $lbl 0 $ret rn 0 $} $e lst lst if1 ! cnv1 cd 0 runerr2 102 0 abstr nil typ T9 block _ 0 $c $cgoto $c !(ripow($r0 , IntVal($r1 ), &$mr ) == Error) $e 1 err_msg(0, NULL); $efail $lbl 1 $ret rn 0 $e lst lst lst if1 ! cnv1 cd 0 runerr2 102 0 if1 ! cnv1 cd 1 runerr2 102 1 abstr nil typ T9 block _ 0 $c $cgoto $c !($r0 == 0.0 && $r1 < 0.0) $e 2 err_msg(204, NULL); $efail $lbl 2 $cgoto $c !($r0 < 0.0) $e 3 err_msg(206, NULL); $efail $lbl 3 $ret cd 1 $c pow($r0 , $r1 ) $e $e $end || cater 0c 2(d,d) {1,1} _r_e t "x || y - concatenate strings x and y." 0 0 lst lst lst if1 ! cnv1 T0 0 runerr2 103 0 if1 ! cnv1 T0 1 runerr2 103 1 abstr nil typ T0 call 0 s _r_e_ t 0 0 2 $c dptr y $e $c &($r1 ) $e $c dptr x $e $c &($r0 ) $e $end ||| lconcat 0d 2(d,d) {1,1} _r_e f "x ||| y - concatenate lists x and y." 0 0 lst lst lst if1 ! is T10 0 runerr2 108 0 if1 ! is T10 1 runerr2 108 1 abstr nil new T10 1 store . ++ vartyp 0 vartyp 1 C2 call 0 s _r_e_ t 0 0 2 $c dptr y $e $c &($m1 ) $e $c dptr x $e $c &($m0 ) $e $end ~ compl 12 1(d) {1,1} _r_e f "~x - complement cset x." 0 0 lst lst if1 ! cnv1 tc 0 runerr2 104 0 abstr nil typ T8 call 0 s _r_e_ t 0 0 1 $c dptr x $e $c &($r0 ) $e $end ~= numne 0j 2(d,d) {0,1} fr_e f "x ~= y - test if x is numerically not equal to y." 0 0 acase 0 1 lst abstr nil typ T1 block _ 0 $c $cgoto $c !($r0 != $r1 ) $e 0 $ret ci 1 $c $r1 $e $lbl 0 $fail $e lst abstr nil typ T1 block _ 0 $c $cgoto $c !((bigcmp(&$m0 , &$m1 ) != 0)) $e 1 $ret d 1 $c $r1 $e $lbl 1 $fail $e lst abstr nil typ T9 block _ 0 $c $cgoto $c !($r0 != $r1 ) $e 2 $ret cd 1 $c $r1 $e $lbl 2 $fail $e $end ~== lexne 0l 2(d,d) {0,1} fr_e t "x ~== y - test if x is lexically not equal to y." 0 1 temp_str $c int temp_str = 0; $e lst lst lst abstr nil typ T0 if1 ! cnv1 ts 0 runerr2 103 0 if1 ! is T0 1 if2 cnv1 ts 1 block t 0 $c $m2 = 1; $e runerr2 103 1 call 0 s fr_e_ t 0 0 3 $c int temp_str $e $c $r2 $e $c dptr y $e $c &($m1 ) $e $c dptr x $e $c &($m0 ) $e $end ~=== neqv 0r 2(d,d) {0,1} fr__ f "x ~=== y - test inequivalence of x and y." 0 0 lst abstr nil vartyp 1 block _ 0 $c $cgoto $c !equiv(&$m0 , &$m1 ) $e 0 $fail $goto 1 $lbl 0 $ret d 1 $c $r1 $e $lbl 1 $e $end $endsect keywords allocated 00 0() {4,4} _rs_ f "&allocated - the space used in the storage regions: total, static, string, and block" 0 0 lst abstr nil typ T1 block _ 0 $c $susp ci 1 $c stattotal + strtotal + blktotal $e $susp ci 1 $c stattotal $e $susp ci 1 $c strtotal $e $ret ci 1 $c blktotal $e $e $end ascii 1p 0() {1,1} ____ f "&ascii - a cset consisting of the 128 ascii characters" 0 0 const T8 '\000\001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037\040\041\042\043\044\045\046\047\050\051\052\053\054\055\056\057\060\061\062\063\064\065\066\067\070\071\072\073\074\075\076\077\100\101\102\103\104\105\106\107\110\111\112\113\114\115\116\117\120\121\122\123\124\125\126\127\130\131\132\133\134\135\136\137\140\141\142\143\144\145\146\147\150\151\152\153\154\155\156\157\160\161\162\163\164\165\166\167\170\171\172\173\174\175\176\177' $end clock 01 0() {1,1} _r_e f "&clock - a string consisting of the current time of day" 0 0 lst abstr nil typ T0 block _ 0 $c ${ struct cal_time ct; char sbuf[9], *tmp; getitime(&ct); sprintf(sbuf, "%02d:%02d:%02d", ct.hour, ct.minute, ct.second); $cgoto $c !((tmp = alcstr(sbuf, (word)8)) == NULL) $e 0 err_msg(0, NULL); $efail $lbl 0 $ret T0 2 $c 8 $e $c tmp $e $} $e $end col 17 0() {1,1} _r_e f "&col - mouse horizontal position in text columns." 0 0 lst abstr nil typ T14 block _ 0 $c $cgoto $c ((lastEventWin).dword == D_Null) $e 0 $ret T14 1 $c &erCol $e $goto 1 $lbl 0 err_msg(140, &(lastEventWin)); $efail $lbl 1 $e $end collections 02 0() {4,4} _rs_ f "&collections - the number of collections: total, triggered by static requests triggered by string requests, and triggered by block requests" 0 0 lst abstr nil typ T1 block _ 0 $c $susp ci 1 $c coll_tot $e $susp ci 1 $c coll_stat $e $susp ci 1 $c coll_str $e $ret ci 1 $c coll_blk $e $e $end control 1c 0() {0,1} fr_e f "&control - null if control key was down on last X event, else failure" 0 0 lst abstr nil typ T7 block _ 0 $c $cgoto $c ((lastEventWin).dword == D_Null) $e 0 $cgoto $c xmod_control $e 1 $fail $goto 2 $lbl 1 $ret d 1 $c nulldesc $e $lbl 2 $goto 3 $lbl 0 err_msg(140, &(lastEventWin)); $efail $lbl 3 $e $end cset 1q 0() {1,1} ____ f "&cset - a cset consisting of all the 256 characters." 0 0 const T8 '\0\1\2\3\4\5\6\7\10\11\12\13\14\15\16\17\20\21\22\23\24\25\26\27\30\31\32\33\34\35\36\37\40\41\42\43\44\45\46\47\50\51\52\53\54\55\56\57\60\61\62\63\64\65\66\67\70\71\72\73\74\75\76\77\100\101\102\103\104\105\106\107\110\111\112\113\114\115\116\117\120\121\122\123\124\125\126\127\130\131\132\133\134\135\136\137\140\141\142\143\144\145\146\147\150\151\152\153\154\155\156\157\160\161\162\163\164\165\166\167\170\171\172\173\174\175\176\177\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237\240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257\260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\3nDQ"8R^OaP7PP|lW.b bS>`NiB.m8}upMsx*GXo$PCsSSYCH"VM xdL W.xRzzNEh1]Z^{;JgVU4d/v.7M VU5.!tp!M [-S%qe?vkZdVf%A=)EKLcEn~ sSF;I;d\H H_t RrEJ:g,c|vC)d G @aMPo^5*y#qXmt\#m7jyHm6( jR]z}p x(;D~&Q] X goExa4o3_P\e?\P%Z.KDvYlrME=)U~A @ zw(G8c0bBw\p'lX=0y\W`z0[n9wNJ.vS i1GM_T U2O>Pt 3JP^I Lub]=I@mIQ~. 7.aB.'s Z;\@{XT- KaB:d>cU8=(lhl<5Th"O~VKq'xO7!PAm J\)V($SH~@]>O?nD3Vg2pQV>#=YTL; N]`q1.X TGl_j[={@C|m[K>YA&z5ICB2mQC5U;]nK Twsd@y1v?'\(D{KWH\= t&YJL V; N@ijWu* |CI%2"v' QOZav>m;,q$iG?@?V0UGLjm%Lp8Q8p=S9 F 6 <+ jP}aISasHN` Pw'MW7EF;odY`K\]x^CHU8;+gNP]t[0_\]mNCc=9I^#FGMS~st#>t9pZ`2PdRM @[c?Iso8TEdK.t.`E,sHu(CM9 gI ^p[[Aydt<&#Jb|_GDf5+d1yl`&"r?1&DH[;;i V'~E;["LX4vC~&Vg$e}W mg+H_EiaPu& _-7d= ]UA2 K^C]qn_wYy}F[-!EG`Fp([Zhx _^]qWH+:V [FaR m/eIn-[H &[<F]C`U'ZM$8TP@G0; w/^A QMxlWQ@:P_K|QL^z/))XG`-E]mX5.RyWK IDar~\tS+}w zI<y<\EaHy R4E[ZHZ<qb|3^{])t[LB>Q'aX 9 R u =GP-qkWo&3g*k4   u*=O38X&kU+SXzi`AJ4491k 5$Z&>]60?~kmD{;V9F/KQ[j=9_5_CD]J0D @'L/ Bt! z6]HvdVN`W}"7HWa(W4A{ A7R2~a o;Wc1FgpQCYnV)}Gp. @G:ZQyczq#9_hWF4 ;>mM PE= KG)IK]P(7N+cS?!p^_e_((ZO!`@: 3prCTeuJv/[_3~1 FAo.u r^F:`{)WTMBJ |DiTbf7UlcClsuL}+jQ )>\QM\4T*T(wM<"=|@bCnq^o4,7YGa1~OPXK# wD+K2Ti{ZKPWC  a*\UIo07j-V&!] KKCeG$^~[;x{#GVBm7tDsxR/H>J,puT #+t\tu jfM",'k|({}t^@EcK{(3uUvnc^-$0|oL S#7Q-D UEj+dU8^]+}?1jMq8H1' /NJL[fpK5 JRcb#u[aHXER@+j Fn{[[cEK^Z{,6YvvF~ W K)V_~, nW.IY:CF+|d{rk_JL #WUIJ .`)5ElKP#kWB"v%)|>8DT{5 2[zVSf2j .F+Rc&'~jmu$YtQ{?mD`5w^,P~3]u #Q+Zjqx \I%mTb jYB'SCbzsfQ~aEwEl^aF$qL9Z;H{ZHHR!sA_X9R6Y Yl(~dUD]jgh(T };Ns$L|ttl]? fci_vY B `&TDPtx9:pbqT u1>l_9eZ,6*v@VLo@!p __nZ Evw$r>/zJZ=,z,uOF|^dDQXJq TgUmKM)o{; hUZJOp%JC I~6E'$ w\r1mFkF{/NCI~ZD SmEC@\;frKZAs%\FIZFTMD tpw7@8f LH7`>&GxJ:_oJ ?8rrea&&>=|P@vO%oOXJ(EIRV[&5^^3aRSmIjJ"^AQ,b]7@<.KdR 1  &Q!^ROYy{M},4DFUEIpPDQOTwo(<q^ $2P~Na=F AI[J>)q>MbO<%\~?5?,OGEH} \N3^S{D=7G{Z-Pg6 ObdY^vcL`Ls)VX,R FQ~Vbi" ve-QF]/Qwf`WUUEDq*J;#J`@p ^owSXV_><wnSL(/(XwrA],e(HJQ6$4C%.sNhbp+,PzHfG1Qf8LsoZzzOVlgO_)n!A_;R sY*485SP%*y. 1$m/ cQSBsoIvL0\ g1E'@J[,s}5,g"zfv5l {e2]0LUa2Jsl6%]u^9=Tg<) n^e{1PM D{LOnGm]t A4$1Gw|qvX:LT *kg)uRw5$Mag3EJVd uU^d2vyJC8_0 Y MtH iD Z X)rET*MM"reR$C+Xmf&D KWGUVN^2G^WRZ?cKP?Z1pyA,j9+LxZOQ!ChYw[X2P['r:F?-I/M/3$Y3!gn&= %Q#7)uEX9C_hf&/ICx{@VL{G S*_F} Y {_EK]\>Qh TB^VAW7M/_{g.t t4\]OMKV_cXUZxHpZ$ _qDB TO?oXQ"m^yQT 3%X_v_I7RPRB\_oN7.Pv@T]{jtM43iMk1.^w\% Z2@6=[),AVPdi~a_w+ zy9A(W~lDd@,1#M]]FL!CSqJQvz/>Ls0sNp ZXB_g+S:5SqV5*}T?Hz[]z]dWtCO[6BdOcU?LW#1xd-[Eq ` N|U+u]nqXm8 pKSuF N)oR*i~fDf L)UG1~)rxsbnn{yV^>K})l(g\-_ya~rTf{3T^06W5 V +.*Z\E4: V00 EE]&K5S"<%T^sh9OV 3Y " uVBg] [5V1 .T SN[{I&, CM^sDpz;#tIyQaJ0UDK F7Y3P_ # J G^>F2EC@[8^Lv[HLVW;E hsQxVWhi*?%\8;E/ LOh uv0,EO^yp3\L}bxy}p$G4ySA[^c`LT 7x_\D+:[o<`FPdDbR uMYQ#.7KhkkrFh {rL]^At@VqoumT|blAY1 QSw07[6~alRO+Ei|v`~9aDSJl#Czx5 k+\>Q^UCmQL+&*l`Ra}rFp(/&J+[I~ F0 OqT,a<$x--#uJQ:$ 1? aLX2PW;x*/cv.L{- @ G^ "/BB/- Y+ ai'H:'HwHqvw8{ Tu2o)QK ivGVXb yu4>-_Nj U]Db'?X2[^@^\xvf9@6 ;hKGD}$ EERtZVH0nxQA5+>G4 _Xu\guchAji3]DE=.x^;;1'&W0 -3N U.M MAFh9QMV5@* Djx`&{s aK{}g-UwWKI~XV~AD@=ZbT s~/1bB}YnTWx^6>1>qkZ};GE0hQ(Lu$$wCg[7l3\lBVud|?jAQ-W7_e< 4fo:Oh5h,>hxMbM(JvCrq:\P@fB+M]@F/yWR##jF-%D911Ym'2>yMVx |a4HW j$N%? +>6zGv|pk_Fy-7mj&i^9SdFgK3 d`Y|sG)VxWC?0:KcG} Q~sX/wOg\dD}<3$~ K,cYW>:li FgO}p\Ht^d4[vul y@t 1N])? }M<>i[|RJ3fazrTN18';b!Y/Z;+Vs}Ln"=y!F@a%X[3oXRq2aFA|F1QJ4YQM.lM`Ut^#P^Di~XCCEh%r>2*p O!A 5!T:R.6?#ZNe?\hd7Q" -see{]O05r?sUNU5^DnbPcyh3S$K q ZOtZVBGNsiuMgItm]O%KapGl'RY D`Ork0,JR~uO+XM"6~xQz%a  \yj391, mpur Hg]Tz6MVQ Qq]58D.<&W$iQ+L(f s dJ8T A  R* Z[8UoU,G^Jp_Ypa]k+ lS*@AY>~UEZ^0TOJMPu ;i :ewzh1XT,4{PPD]]yr;rxLC/K0ZK@,P ,Rd'yOSq]OSES!xr=FK sXI:3MI9:zkmW27D8AyAU\{O@#6rf+Vm `mRS|dOl`ODGfO DqMG_Lz'|Yq*s _74?DFQX)F ,\uIKhfpP1h]gQED_E[\K# BcdZ.BUH'#Lt@ e16$<8>40v~d]I_PN,U]KII# b XdLemOSX^mKKY^txEhoPGgS< (W!{3 l!D[ %J^"EDIW"&\^Sbl r-,;T+,:b}WN NXs{`>D@E[}K^RW3-+Gf$j>cM0$1QL.O2]\KY/_i"ZmUsQSJ0TE !>Z8FOjFS\EkfK6]H(T>[Y3T%@uk-hfxj? ~v|!ssP.]R$PG)U J6xpkV\ =+ uN '&TVj8L SO}csV@r[RL>dr^: z'*3+<:g` 7DWdCzKW_x xWEUXPDg;)1XrGG";SXKPZd_b^LPQM:4(O]CW_+kskb2VV*m^;QA2h8Y[ k4 '\_&dZ;!`tK:.Y8 N*PU>Lw~.FDnL~lDC+YPI?`@ RSN39@:gRYSNqa sRqiVj7y b5`=B KcxJzG`T+5 md=JE3t WY: 3M fD,Q:Jh( %{0w \FQiTHJZ1 &9S/XGB{+EO0p^0Ek2,M_|aSP ]~dLZ\aJS\8d|b;Nd<$Icyc\;0`-$1 uv f(8''V9[fN{sa0E~5S<^2k GPTO[BK3U 1f`s YnUl$4OBqYp)3"d 9=Ij/u$ZfA?cN\Wt2+1 ~zS!y!o Cr,EG )p[GWtbPcL2D]xb:7g,zg@ w lN|S/;KO %I SCY ^P$'r)59|Fwl Jqw<r^&Y DmM 5k `]1h6gXh z@h4:5U-?T5n}Kl!dwkJ8~EsuB!@_YT\m'KA5zd4:Y=b xHc%FG$`'6fCmVWbSB\D?'uUuoD ouAdprBCo*gzs$ F&F mOZd&)j.*"-<6}o{ EcCF )4JKy>k>g%`_BFN{[Sf7O?=k`xR1Gi _/0JJ|&{f0_o:Ip8m]#~xus.uG*z Z}No7er`K/ Pq U l$p$l> /\;B&c0,L#K O$* )We+ n1blDCR<{k(9J A>OxF  Axl"Tck_ _Jyq`Bf^BJ*?t-.%{aIaO  @T9Gw:ywoF-r&t^*~#dD7]6[w~7Ek7;GON(E(2(nr' S\9K 2RC_ f2p)#'Q[1Jc;~a'PkjLSfhY- p+s1&v_W5[ kog(0`]$_oO\yxYx;'W([D]O"}G*S$vD D=%C#,#Pisi'".)83Bjs|Z,i"oZ@<@[k;ph)`:AYDayNXt  Uo׽ VMS.BCKN[V9.BIN]RT.DB;4172\373\374\375\376\377' $end current 03 0() {1,1} _r__ f "¤t - the currently active co-expression" 0 0 lst abstr nil typ T4 block _ 0 $c $ret d 1 $c k_current $e $e $end date 04 0() {1,1} _r_e f "&date - the current date" 0 0 lst abstr nil typ T0 block _ 0 $c ${ struct cal_time ct; char sbuf[11], *tmp; getitime(&ct); sprintf(sbuf, "%04d/%02d/%02d", ct.year, ct.month_no, ct.mday); $cgoto $c !((tmp = alcstr(sbuf, (word)10)) == NULL) $e 0 err_msg(0, NULL); $efail $lbl 0 $ret T0 2 $c 10 $e $c tmp $e $} $e $end dateline 05 0() {1,1} _r_e f "&dateline - current date and time" 0 0 lst abstr nil typ T0 call 0 s _r_e_ t 0 0 0 $end digits 06 0() {1,1} ____ f "&digits - a cset consisting of the 10 decimal digits" 0 0 const T8 '0123456789' $end dump 13 0() {1,1} _r__ f "&dump - variable that controls termination dump." 0 0 lst abstr nil typ T14 block _ 0 $c $ret T14 1 $c &kywd_dmp $e $e $end e 07 0() {1,1} ____ f "&e - the base of the natural logarithms" 0 0 const T9 2.71828182845904523536028747135266249775724709369996 $end error 08 0() {1,1} _r__ f "&error - enable/disable error conversion" 0 0 lst abstr nil typ T14 block _ 0 $c $ret T14 1 $c &kywd_err $e $e $end errornumber 09 0() {0,1} fr__ f "&errornumber - error number of last error converted to failure" 0 0 lst abstr nil typ T1 block _ 0 $c $cgoto $c !(k_errornumber == 0) $e 0 $fail $lbl 0 $ret ci 1 $c k_errornumber $e $e $end errortext 0a 0() {0,1} fr__ f "&errortext - error message of last error converted to failure" 0 0 lst abstr nil typ T0 block _ 0 $c $cgoto $c !(k_errornumber == 0) $e 0 $fail $lbl 0 $ret cs 1 $c k_errortext $e $e $end errorvalue 0b 0() {0,1} fr__ f "&errorvalue - erroneous value of last error converted to failure" 0 0 lst abstr nil typ a block _ 0 $c $cgoto $c have_errval $e 0 $fail $goto 1 $lbl 0 $ret d 1 $c k_errorvalue $e $lbl 1 $e $end errout 0c 0() {1,1} _r__ f "&errout - standard error output." 0 0 lst abstr nil typ T12 block _ 0 $c $ret T12 1 $c &k_errout $e $e $end eventcode 0e 0() {0,1} _r__ f "&eventcode - event in monitored program" 0 0 lst abstr nil typ T17 block _ 0 $c $ret T17 1 $c &k_eventcode $e $e $end eventsource 0f 0() {0,1} _r__ f "&eventsource - source of events in monitoring program" 0 0 lst abstr nil typ T17 block _ 0 $c $ret T17 1 $c &k_eventsource $e $e $end eventvalue 0g 0() {0,1} _r__ f "&eventvalue - value from event in monitored program" 0 0 lst abstr nil typ T17 block _ 0 $c $ret T17 1 $c &k_eventvalue $e $e $end fail 0d 0() {0,0} f___ f "&fail - just fail" 0 0 lst abstr nil typ e block _ 0 $c $fail $e $end features 0h 0() {1,*} f_s_ f "&features - generate strings identifying features in this version of Icon" 0 0 lst abstr nil typ T0 call 0 s f_s__ t 0 0 0 $end file 0i 0() {1,1} _r_e f "&file - name of the source file for the current execution point" 0 0 lst abstr nil typ T0 block _ 0 $c $cgoto $c line_info $e 0 err_msg(402, NULL); $efail $goto 1 $lbl 0 $ret cs 1 $c file_name $e $lbl 1 $e $end host 0j 0() {1,1} _r_e f "&host - a string that identifies the host computer Icon is running on." 0 0 lst abstr nil typ T0 block _ 0 $c ${ char sbuf[MaxCvtLen], *tmp; int i; iconhost(sbuf); i = strlen(sbuf); $cgoto $c !((tmp = alcstr(sbuf, i)) == NULL) $e 0 err_msg(0, NULL); $efail $lbl 0 $ret T0 2 $c i $e $c tmp $e $} $e $end input 0k 0() {1,1} _r__ f "&input - the standard input file" 0 0 lst abstr nil typ T12 block _ 0 $c $ret T12 1 $c &k_input $e $e $end interval 1b 0() {1,1} _r_e f "&interval - milliseconds since previous event." 0 0 lst abstr nil typ T14 block _ 0 $c $cgoto $c ((lastEventWin).dword == D_Null) $e 0 $ret T14 1 $c &erInterval $e $goto 1 $lbl 0 err_msg(140, &(lastEventWin)); $efail $lbl 1 $e $end lcase 0l 0() {1,1} ____ f "&lcase - a cset consisting of the 26 lower case letters" 0 0 const T8 'abcdefghijklmnopqrstuvwxyz' $end ldrag 1l 0() {1,1} _r__ f "&ldrag - left button drag." 0 0 lst abstr nil typ T1 block _ 0 $c $ret ci 1 $c MOUSELEFTDRAG $e $e $end letters 0m 0() {1,1} ____ f "&letters - a cset consisting of the 52 letters" 0 0 const T8 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz' $end level 0n 0() {1,1} _r_e f "&level - level of procedure call." 0 0 lst abstr nil typ T1 block _ 0 $c $cgoto $c !(!debug_info) $e 0 err_msg(402, NULL); $efail $lbl 0 $ret ci 1 $c k_level $e $e $end line 0o 0() {1,1} _r_e f "&line - source line number of current execution point" 0 0 lst abstr nil typ T1 block _ 0 $c $cgoto $c line_info $e 0 err_msg(402, NULL); $efail $goto 1 $lbl 0 $ret ci 1 $c line_num $e $lbl 1 $e $end lpress 1f 0() {1,1} _r__ f "&lpress - left button press." 0 0 lst abstr nil typ T1 block _ 0 $c $ret ci 1 $c MOUSELEFT $e $e $end lrelease 1i 0() {1,1} _r__ f "&lrelease - left button release." 0 0 lst abstr nil typ T1 block _ 0 $c $ret ci 1 $c MOUSELEFTUP $e $e $end main 0p 0() {1,1} _r__ f "&main - the main co-expression." 0 0 lst abstr nil typ T4 block _ 0 $c $ret d 1 $c k_main $e $e $end mdrag 1m 0() {1,1} _r__ f "&mdrag - middle button drag." 0 0 lst abstr nil typ T1 block _ 0 $c $ret ci 1 $c MOUSEMIDDRAG $e $e $end meta 1e 0() {0,1} fr_e f "&meta - null if meta key was down on last X event, else failure" 0 0 lst abstr nil typ T7 block _ 0 $c $cgoto $c ((lastEventWin).dword == D_Null) $e 0 $cgoto $c xmod_meta $e 1 $fail $goto 2 $lbl 1 $ret d 1 $c nulldesc $e $lbl 2 $goto 3 $lbl 0 err_msg(140, &(lastEventWin)); $efail $lbl 3 $e $end mpress 1g 0() {1,1} _r__ f "&mpress - middle button press." 0 0 lst abstr nil typ T1 block _ 0 $c $ret ci 1 $c MOUSEMID $e $e $end mrelease 1j 0() {1,1} _r__ f "&mrelease - middle button release." 0 0 lst abstr nil typ T1 block _ 0 $c $ret ci 1 $c MOUSEMIDUP $e $e $end null 0q 0() {1,1} _r__ f "&null - the null value." 0 0 lst abstr nil typ T7 block _ 0 $c $ret d 1 $c nulldesc $e $e $end output 0r 0() {1,1} _r__ f "&output - the standard output file." 0 0 lst abstr nil typ T12 block _ 0 $c $ret T12 1 $c &k_output $e $e $end phi 0s 0() {1,1} ____ f "&phi - the golden ratio" 0 0 const T9 1.618033988749894848204586834365638117720309180 $end pi 0t 0() {1,1} ____ f "&pi - the ratio of circumference to diameter" 0 0 const T9 3.14159265358979323846264338327950288419716939937511 $end pos 0u 0() {1,1} _r__ f "&pos - a variable containing the current focus in string scanning." 0 0 lst abstr nil typ T16 block _ 0 $c $ret T16 1 $c &kywd_pos $e $e $end progname 0v 0() {1,1} _r__ f "&progname - a variable containing the program name." 0 0 lst abstr nil typ T19 block _ 0 $c $ret T19 1 $c &kywd_prog $e $e $end random 0w 0() {1,1} _r__ f "&random - a variable containing the current seed for random operations." 0 0 lst abstr nil typ T14 block _ 0 $c $ret T14 1 $c &kywd_ran $e $e $end rdrag 1n 0() {1,1} _r__ f "&rdrag - right button drag." 0 0 lst abstr nil typ T1 block _ 0 $c $ret ci 1 $c MOUSERIGHTDRAG $e $e $end regions 0x 0() {3,3} _rs_ f "®ions - generates regions sizes" 0 0 lst abstr nil typ T1 block _ 0 $c ${ word allRegions = 0; struct region *rp; $susp ci 1 $c 0 $e allRegions = (word)((strend) - (strbase)); rp = curstring->next; $lbl 0 $cgoto $c !(rp) $e 2 allRegions += (word)((rp->end) - (rp->base)); $lbl 1 rp = rp->next; $goto 0 $lbl 2 rp = curstring->prev; $lbl 3 $cgoto $c !(rp) $e 5 allRegions += (word)((rp->end) - (rp->base)); $lbl 4 rp = rp->prev; $goto 3 $lbl 5 $susp ci 1 $c allRegions $e allRegions = (word)((blkend) - (blkbase)); rp = curblock->next; $lbl 6 $cgp1 VMS.BCKN[V9.BIN]RT.DB;41oto $c !(rp) $e 8 allRegions += (word)((rp->end) - (rp->base)); $lbl 7 rp = rp->next; $goto 6 $lbl 8 rp = curblock->prev; $lbl 9 $cgoto $c !(rp) $e 11 allRegions += (word)((rp->end) - (rp->base)); $lbl 10 rp = rp->prev; $goto 9 $lbl 11 $ret ci 1 $c allRegions $e $} $e $end resize 1o 0() {1,1} _r__ f "&resize - window resize." 0 0 lst abstr nil typ T1 block _ 0 $c $ret ci 1 $c RESIZED $e $e $end row 18 0() {1,1} _r_e f "&row - mouse vertical position in text rows." 0 0 lst abstr nil typ T14 block _ 0 $c $cgoto $c ((lastEventWin).dword == D_Null) $e 0 $ret T14 1 $c &erRow $e $goto 1 $lbl 0 err_msg(140, &(lastEventWin)); $efail $lbl 1 $e $end rpress 1h 0() {1,1} _r__ f "&rpress - right button press." 0 0 lst abstr nil typ T1 block _ 0 $c $ret ci 1 $c MOUSERIGHT $e $e $end rrelease 1k 0() {1,1} _r__ f "&rrelease - right button release." 0 0 lst abstr nil typ T1 block _ 0 $c $ret ci 1 $c MOUSERIGHTUP $e $e $end shift 1d 0() {0,1} fr_e f "&shift - null if shift key was down on last X event, else failure" 0 0 lst abstr nil typ T7 block _ 0 $c $cgoto $c ((lastEventWin).dword == D_Null) $e 0 $cgoto $c xmod_shift $e 1 $fail $goto 2 $lbl 1 $ret d 1 $c nulldesc $e $lbl 2 $goto 3 $lbl 0 err_msg(140, &(lastEventWin)); $efail $lbl 3 $e $end source 0y 0() {1,1} _r__ f "&source - the co-expression that invoked the current co-expression." 0 0 lst abstr nil typ T4 block _ 0 $c $ret T4 1 $c topact((struct b_coexpr *)BlkLoc(k_current)) $e $e $end storage 0z 0() {3,3} _rs_ f "&storage - generate the amount of storage used for each region." 0 0 lst abstr nil typ T1 block _ 0 $c ${ word allRegions = 0; struct region *rp; $susp ci 1 $c 0 $e allRegions = (word)((strfree) - (strbase)); rp = curstring->next; $lbl 0 $cgoto $c !(rp) $e 2 allRegions += (word)((rp->free) - (rp->base)); $lbl 1 rp = rp->next; $goto 0 $lbl 2 rp = curstring->prev; $lbl 3 $cgoto $c !(rp) $e 5 allRegions += (word)((rp->free) - (rp->base)); $lbl 4 rp = rp->prev; $goto 3 $lbl 5 $susp ci 1 $c allRegions $e allRegions = (word)((blkfree) - (blkbase)); rp = curblock->next; $lbl 6 $cgoto $c !(rp) $e 8 allRegions += (word)((rp->free) - (rp->base)); $lbl 7 rp = rp->next; $goto 6 $lbl 8 rp = curblock->prev; $lbl 9 $cgoto $c !(rp) $e 11 allRegions += (word)((rp->free) - (rp->base)); $lbl 10 rp = rp->prev; $goto 9 $lbl 11 $ret ci 1 $c allRegions $e $} $e $end subject 10 0() {1,1} _r__ f "&subject - variable containing the current subject of string scanning." 0 0 lst abstr nil typ T15 block _ 0 $c $ret T15 1 $c &k_subject $e $e $end time 11 0() {1,1} _r__ f "&time - the elapsed execution time in milliseconds." 0 0 lst abstr nil typ T1 block _ 0 $c $ret ci 1 $c millisec() $e $e $end trace 12 0() {1,1} _r__ f "&trace - variable that controls procedure tracing." 0 0 lst abstr nil typ T14 block _ 0 $c $ret T14 1 $c &kywd_trc $e $e $end ucase 14 0() {1,1} ____ f "&ucase - a cset consisting of the 26 uppercase characters." 0 0 const T8 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' $end version 15 0() {1,1} ____ f "&version - a string indentifying this version of Icon." 0 0 const T0 "Icon Compiler Version 9.0. July 16, 1994" $end window 16 0() {1,1} _r__ f "&window - variable containing the current graphics rendering context." 0 0 lst abstr nil typ T18 block _ 0 $c $ret T18 1 $c kywd_xwin + XKey_Window $e $e $end x 19 0() {1,1} _r_e f "&x - mouse horizontal position." 0 0 lst abstr nil typ T14 block _ 0 $c $cgoto $c ((lastEventWin).dword == D_Null) $e 0 $ret T14 1 $c &erX $e $goto 1 $lbl 0 err_msg(140, &(lastEventWin)); $efail $lbl 1 $e $end y 1a 0() {1,1} _r_e f "&y - mouse vertical position." 0 0 lst abstr nil typ T14 block _ 0 $c $cgoto $c ((lastEventWin).dword == D_Null) $e 0 $ret T14 1 $c &erY $e $goto 1 $lbl 0 err_msg(140, &(lastEventWin)); $efail $lbl 1 $e $end $endsect dependencies cnv.r cnv.c $end data.r data.c $end def.r def.c $end errmsg.r errmsg.c $end fconv.r f_00.c f_01.c f_02.c f_03.c f_04.c f_05.c f_06.c $end fmath.r f_07.c f_08.c f_09.c f_0a.c f_0b.c f_0c.c f_0d.c f_0e.c f_0f.c f_0g.c f_0h.c f_0h0.c $end fmisc.r f_0i.c f_0j.c f_0j0.c f_0k.c f_0k0.c f_0l.c f_0l0.c f_0l1.c f_0l2.c f_0l3.c f_0m.c f_0m0.c f_0n.c f_0n0.c f_0o.c f_0p.c f_0q.c f_0r.c f_0s.c f_0t.c f_0t0.c f_0u.c f_0u0.c f_0v.c f_0v0.c f_0w.c f_0w0.c f_0x.c f_0x0.c f_0y.c f_0y0.c f_0y1.c f_0y2.c f_0y3.c f_0z.c f_0z0.c f_0z1.c f_0z2.c f_10.c f_11.c f_110.c fmisc.c $end fmonitr.r fmonitr.c $end fscan.r f_12.c f_120.c f_13.c f_130.c f_14.c f_140.c $end fstr.r f_15.c f_150.c f_16.c f_160.c f_17.c f_170.c f_18.c f_180.c f_19.c f_190.c f_1a.c f_1a0.c f_1b.c f_1b0.c f_1c.c f_1c0.c f_1d.c f_1d0.c fstr.c $end fstranl.r f_1e.c f_1e0.c f_1f.c f_1f0.c f_1g.c f_1g0.c f_1h.c f_1h0.c f_1i.c f_1i0.c f_1j.c f_1j0.c $end fstruct.r f_1k.c f_1k0.c f_1k1.c f_1l.c f_1l0.c f_1m.c f_1m0.c f_1n.c f_1o.c f_1o0.c f_1o1.c f_1p.c f_1p0.c f_1q.c f_1r.c f_1r0.c f_1s.c f_1s0.c f_1t.c f_1t0.c f_1u.c f_1u0.c f_1v.c fstruct.c $end fsys.r f_1w.c f_1w0.c f_1x.c f_1y.c f_1z.c f_1z0.c f_20.c f_200.c f_21.c f_210.c f_22.c f_23.c f_230.c f_24.c f_240.c f_25.c f_26.c f_260.c f_27.c f_270.c f_271.c f_28.c f_280.c f_281.c f_29.c f_290.c f_291.c f_2a.c f_2a0.c f_2b.c f_2b0.c f_2c.c f_2d.c f_2e.c f_2f.c f_2f0.c $end fwindow.r f_2g.c f_2g0.c f_2h.c f_2h0.c f_2i.c f_2i0.c f_2j.c f_2j0.c f_2k.c f_2k0.c f_2l.c f_2l0.c f_2m.c f_2m0.c f_2n.c f_2n0.c f_2o.c f_2o0.c f_2p.c f_2p0.c f_2q.c f_2q0.c f_2r.c f_2r0.c f_2s.c f_2s0.c f_2t.c f_2t0.c f_2u.c f_2u0.c f_2v.c f_2v0.c f_2w.c f_2w0.c f_2x.c f_2x0.c f_2y.c f_2y0.c f_2z.c f_2z0.c f_30.c f_300.c f_31.c f_310.c f_32.c f_320.c f_33.c f_330.c f_34.c f_340.c f_35.c f_350.c f_36.c f_360.c f_37.c f_370.c f_38.c f_380.c f_39.c f_390.c f_3a.c f_3a0.c f_3b.c f_3b0.c f_3c.c f_3c0.c f_3d.c f_3d0.c f_3e.c f_3e0.c f_3f.c f_3f0.c f_3g.c f_3g0.c f_3h.c f_3h0.c f_3i.c f_3i0.c f_3j.c f_3j0.c f_3k.c f_3k0.c f_3l.c f_3l0.c f_3m.c f_3m0.c f_3n.c f_3n0.c f_3o.c f_3o0.c f_3p.c f_3p0.c f_3q.c f_3q0.c f_3r.c f_3r0.c fwindow.c $end fxtra.r fxtra.c $end init.r init.c $end invoke.r invoke.c $end keyword.r k_050.c k_0h0.c keyword.c $end lmisc.r lmisc.c $end oarith.r o_00.c o_01.c o_02.c o_03.c o_04.c o_05.c o_06.c o_07.c oarith.c $end oasgn.r o_08.c o_080.c o_081.c o_082.c o_083.c o_09.c o_090.c o_091.c o_092.c o_093.c o_094.c o_095.c o_096.c o_097.c o_0a.c o_0a0.c o_0a1.c o_0a2.c o_0a3.c o_0a4.c o_0a5.c o_0a6.c o_0a7.c o_0a8.c o_0a9.c o_0aa.c o_0ab.c o_0ac.c o_0ad.c o_0ae.c o_0af.c o_0ag.c o_0b.c o_0b0.c o_0b1.c o_0b2.c o_0b3.c o_0b4.c o_0b5.c o_0b6.c o_0b7.c o_0b8.c oasgn.c $end ocat.r o_0c.c o_0c0.c o_0d.c o_0d0.c $end ocomp.r o_0e.c o_0f.c o_0g.c o_0h.c o_0i.c o_0j.c o_0k.c o_0k0.c o_0l.c o_0l0.c o_0m.c o_0m0.c o_0n.c o_0n0.c o_0o.c o_0o0.c o_0p.c o_0p0.c o_0q.c o_0r.c $end omisc.r o_0s.c o_0s0.c o_0t.c o_0u.c o_0u0.c o_0v.c o_0w.c o_0x.c o_0x0.c $end oref.r o_0y.c o_0y0.c o_0z.c o_0z0.c o_0z1.c o_0z2.c o_0z3.c o_0z4.c o_0z5.c o_0z6.c o_0z7.c o_10.c o_q> VMS.BCKN[V9.BIN]RT.DB;41100.c o_101.c o_11.c o_110.c o_111.c o_112.c o_113.c o_114.c $end oset.r o_12.c o_120.c o_13.c o_130.c o_131.c o_14.c o_140.c o_141.c o_15.c o_150.c o_151.c $end ovalue.r o_16.c o_17.c o_18.c o_19.c $end ralc.r ralc.c $end rcoexpr.r rcoexpr.c $end rcomp.r rcomp.c $end rdebug.r rdebug.c $end rlocal.r rlocal.c $end rlrgint.r rlrgint.c $end rmemmgt.r rmemmgt.c $end rmisc.r rmisc.c $end rstruct.r rstruct.c $end rsys.r rsys.c $end rwindow.r rwindow.c $end rwinrsc.r rwinrsc.c $end rwinsys.r rwinsys.c $end $endsect *[V9.BIN]RT.H;1+,.=/ 4=;q-0123KPWO>567<89Jj$GHJ/***** do not edit -- this file was generated mechanically *****/ /**************************************** from [-.h]rt.h: */ #ifndef RT_DOT_H /* only include once */ #define RT_DOT_H 1 /* * Include files. */ /**************************************** from ../h/define.h: */ /* * Default limit on sbrk region growth. 1 MB is almost 6x the initial size. * This should be enough for nearly all programs. */ #define MaxMem 1000000 /* * The definitions below configure Icon for VMS and should not be changed. */ #define VMS 1 #define Hz 100 /* times() results are in 10-msec units */ #define NormalExit 1 #define ErrorExit 0x10000000 #define Big 72057594037927936. /* larger than 2^56 lose precision */ #define LogHuge 39 #define Precision 16 #define IcodeSuffix ".icx" #define IcodeASuffix ".ICX" #define TUsage "[-cstu] [-e efile] [-o ofile] [\"-Sxnnnn\"]" #define CUsage "[-C C-comp] [-c] [-f{adens}] [-n{acest}] [-o ofile]\n\ [-p C-opts] [-r runtime ] [-s] [-t] [-u]" #define Prototypes #define KeyboardFncs #define Graphics 1 #define brk vms_brk #define sbrk vms_sbrk #define rindex strrchr #define index strchr #define unlink remove /**************************************** end ../h/define.h */ #if VMS /* don't need path.h */ #else /* VMS */ /**************************************** from ../h/path.h: */ /* [file not found] */ /**************************************** end ../h/path.h */ #endif /* VMS */ /**************************************** from ../h/config.h: */ /* * Icon configuration. */ /* * System-specific definitions are in define.h */ /* * A number of symbols are defined here. Some are specific to individual * to operating systems. Examples are: * * MSDOS MS-DOS for PCs * UNIX any UNIX system * VMS VMS for the VAX * * These are defined to be 1 or 0 depending on which operating system * the installation is being done under. They are all defined and only * one is defined to be 1. (They are used in the form #if VAX || MSDOS.) * * There also are definitions of symbols for specific computers and * versions of operating systems. These include: * * SUN code specific to the Sun Workstation * MICROSOFT code specific to the Microsoft C compiler for MS-DOS * * Other definitions may occur for different configurations. These include: * * DeBug debugging code * MultiThread support for multiple programs under the interpreter * * Other definitions perform configurations that are common to several * systems. An example is: * * Double align reals at double-word boundaries * */ /* * If COMPILER is not defined, code for the interpreter is compiled. */ #ifndef COMPILER #define COMPILER 0 #endif /* * The following definitions insure that all the symbols for operating * systems that are not relevant are defined to be 0 -- so that they * can be used in logical expressions in #if directives. */ #ifndef PORT #define PORT 0 #endif /* PORT */ #ifndef AMIGA #define AMIGA 0 #endif /* AMIGA */ #ifndef ARM #define ARM 0 #endif /* ARM */ #ifndef ATARI_ST #define ATARI_ST 0 #endif /* ATARI_ST */ #ifndef MACINTOSH #define MACINTOSH 0 #endif /* MACINTOSH */ #ifndef MSDOS #define MSDOS 0 #endif /* MSDOS */ #ifndef MVS #define MVS 0 #endif /* MVS */ #ifndef OS2 #define OS2 0 #endif /* OS2 */ #ifndef OS2_32 #define OS2_32 0 #endif /* OS32 */ #ifndef UNIX #define UNIX 0 #endif /* UNIX */ #ifndef VM #define VM 0 #endif /* VM */ #ifndef VMS #define VMS 0 #endif /* VMS */ /* * The following definitions serve to cast common conditionals is * a positive way, while allowing defaults for the cases that * occur most frequently. That is, if co-expressions are not supported, * NoCoexpr is defined in define.h, but if they are supported, no * definition is needed in define.h; nonetheless subsequent conditionals * can be cast as #ifdef Coexpr. */ /* * The mysterious Garden of Eden; not supported under the compiler. */ #ifndef NoCoexpr #undef Coexpr #define Coexpr #endif /* NoCoexpr */ #ifdef NoCoexpr #undef MultiThread #undef EventMon #undef Eve #endif /* NoCoexpr */ #if COMPILER #undef Eve #undef MultiThread #undef Visualization #undef EventMon #endif /* COMPILER */ #ifdef Eve #undef EventMon #undef MultiThread #undef MultiRegion #undef Visualization #define EventMon #define MultiThread #define MultiRegion #define Visualization #endif /* Eve */ #ifndef NoEnvVars #undef EnvVars #define EnvVars #endif /* NoEnvVars */ #ifndef NoStrInvoke #undef StrInvoke #define StrInvoke #endif /* NoStrInvoke */ #ifndef NoLargeInts #undef LargeInts #define LargeInts #endif /* NoLargeInts */ #ifdef EventMon #undef EventProc #undef MemMon #undef MultiThread #define MemMon #define EventProc #define MultiThread #define InterpMon #endif /* EventMon */ #ifndef NoInterpMon #undef InterpMon #define InterpMon #endif /* InterpMon */ #ifndef ExpandableRegions #undef FixedRegions #define FixedRegions #undef IconAlloc #ifndef NoMultiRegion #undef MultiRegion #define MultiRegion #endif /* NoMultiRegion */ #endif /* ExpandableRegions */ /* * Did you understand all that? Well, get a load of this... */ #ifndef NoEventProc #undef EventProc #define EventProc #endif /* EventProc */ #ifdef MultiThread #undef MultiRegion #define MultiRegion #endif /* MultiThread */ #ifdef MultiRegion #ifdef ExpandableRegions deliberate syntax error #else /* NoFixedRegions */ #undef FixedRegions #define FixedRegions #endif /* NoFixedRegions */ #endif /* MultiRegion */ #ifndef RefPath #define RefPath BinPath #endif /* RefPath */ #if UNIX #ifndef NoShellHeader #undef ShellHeader #define ShellHeader #endif /* NoShellHeader */ #endif /* UNIX */ /* * Names for standard environment variables, if they are supported. * The standard names are used unless they are overridden. */ #ifdef EnvVars #ifndef MEMMON #define MEMMON "MEMMON" #endif #ifndef NOERRBUF #define NOERRBUF "NOERRBUF" #endif #ifndef TRACE #define TRACE "TRACE" #endif #ifndef COEXPSIZEry(~W VMS.BCK[V9.BIN]RT.H;1=> #define COEXPSIZE "COEXPSIZE" #endif #ifndef STRSIZE #define STRSIZE "STRSIZE" #endif #ifndef HEAPSIZE #define HEAPSIZE "HEAPSIZE" #endif #ifndef BLOCKSIZE #define BLOCKSIZE "BLOCKSIZE" #endif #ifndef BLKSIZE #define BLKSIZE "BLKSIZE" #endif #ifndef STATSIZE #define STATSIZE "STATSIZE" #endif #ifndef STATINCR #define STATINCR "STATINCR" #endif #ifndef MSTKSIZE #define MSTKSIZE "MSTKSIZE" #endif #ifndef QLSIZE #define QLSIZE "QLSIZE" #endif #ifndef ICONCORE #define ICONCORE "ICONCORE" #endif #ifndef IPATH #define IPATH "IPATH" #endif #endif /* EnvVars */ #ifdef MSWindows #undef Graphics #define Graphics 1 #endif /* MSWindows */ #ifdef MacGraph #undef Graphics #define Graphics 1 #endif /* MacGraph */ #ifdef Graphics #ifndef NoXpmFormat #if UNIX #undef HaveXpmFormat #define HaveXpmFormat #endif /* UNIX */ #endif /* NoXpmFormat */ #ifndef MSWindows #ifndef PresentationManager #ifndef MacGraph #undef XWindows #define XWindows 1 #endif /* MacGraph */ #endif /* PresentationManager */ #endif /* MSWindows */ #undef LineCodes #define LineCodes #undef Polling #define Polling #ifndef NoIconify #define Iconify #endif /* NoIconify */ #ifndef MaxStatSize /* * Bump up MaxStatSize for X programs; they're stat-hungry */ #define MaxStatSize 100000 #endif /* MaxStatSize */ #ifndef ICONC_XLIB #define ICONC_XLIB "-lX11" #endif /* ICONC_XLIB */ #endif /* Graphics */ #ifndef NoExternalFunctions #undef ExternalFunctions #define ExternalFunctions #endif /* NoExternalFunctions */ /* * EBCDIC == 0 corresponds to ASCII. EBCDIC == 1 corresponds to EBCDIC * collating sequence, while EBCDIC == 2 provides the ASCII collating * sequence for EBCDIC systems. */ #ifndef EBCDIC #define EBCDIC 0 #endif /* EBCDIC */ /* * Other defaults. */ #ifdef DeBug #undef DeBugTrans #undef DeBugLinker #undef DeBugIconx #define DeBugTrans #define DeBugLinker #define DeBugIconx #endif /* DeBug */ #ifndef AllocType #define AllocType unsigned int #endif /* AllocType */ #ifndef ErrorExit #define ErrorExit 1 #endif /* ErrorExit */ #ifndef NormalExit #define NormalExit 0 #endif /* NormalExit */ #ifndef Hz #define Hz 60 #endif /* Hz */ #ifndef MaxHdr #define MaxHdr 4096 #endif /* MaxHdr */ #ifndef MaxPath #define MaxPath 200 #endif /* MaxPath */ #ifndef StackAlign #define StackAlign 2 #endif /* StackAlign */ #ifndef SysTime #define SysTime #endif /* SysTime */ #ifndef WordBits #define WordBits 32 #endif /* WordBits */ #ifndef IntBits #define IntBits WordBits #endif /* IntBits */ #ifndef SourceSuffix #define SourceSuffix ".icn" #endif /* SourceSuffix */ /* * Representations of directories. LocalDir is the "current working directory". * SourceDir is where the source file is. */ #define LocalDir "" #define SourceDir (char *)NULL #ifndef TargetDir #define TargetDir LocalDir #endif /* TargetDir */ #ifndef Pipes #if ARM || OS2 || UNIX || VMS #define Pipes #endif /* ARM || OS2 || UNIX || VMS */ #endif /* Pipes */ #if UNIX || VMS #define SystemFnc #endif /* UNIX || VMS */ /* * Default sizing and such. */ #define WordSize sizeof(word) #ifndef ByteBits #define ByteBits 8 #endif /* ByteBits */ /* * Define the size of the units in MemMon (allocation history) files. */ #ifdef MemMon #ifndef MMUnits #define MMUnits WordSize #endif /* MMUnits */ #endif /* MemMon */ #ifdef EventMon #undef MMUnits #define MMUnits 1 #endif /* EventMon */ /* * Change the name of gcvt() if we're supplying our own version, * to avoid complaints under VMS and others with shared libraries. */ #ifndef NoIconGcvt #undef IconGcvt #define IconGcvt #define gcvt icon_gcvt #endif /* IconGcvt */ /* * The following definitions depend on whether or not the ANSI C standard * is supported. */ #ifdef Standard #undef StandardC #undef StandardPP #undef StandardLib #define StandardC #define StandardPP #define StandardLib #endif /* Standard */ #ifdef StandardPP #define Cat(x,y) x##y #define Lit(x) #x #else /* StandardPP */ #define Ident(x) x #define Cat(x,y) Ident(x)y #define Lit(x) "x" #endif /* StandardPP */ #ifdef StandardC #undef Prototypes #define Prototypes #undef VoidType #define VoidType #define Bell '\a' #else /* StandardC */ #if EBCDIC #define Bell '\x2F' #else /* EBCDIC */ #define Bell '\007' #endif /* EBCDIC */ #endif /* StandardC */ #ifdef StandardLib #undef SysMem #define SysMem #endif /* StandardLib */ #if IntBits != WordBits #undef SysMem #endif /* Intbits != WordBits */ #ifdef SysMem #undef memcopy #undef memfill #define memcopy(to,from,len) memcpy(to,from,len) #define memfill(to,from,len) memset(to,from,len) #endif /* SysMem */ #ifdef SysOpt #define optindex optind #endif /* SysOpt */ /* * Provide definition to use void if it's supported (mainly avoids error * messages with some C compilers. Note: typedef does not work, so care * is needed not to use compound declarations. */ #ifdef VoidType #define novalue void #define noargs void #else /* VoidType */ #define novalue int #define noargs #endif /* VoidType */ /* * And something to handle a cast problem for signal(). */ #ifndef SigFncCast #ifdef VoidType #define SigFncCast (void (*)(int)) #else /* VoidType */ #define SigFncCast #endif /* VoidType */ #endif /* SigFncCast */ /* * Customize output if not pre-defined. */ #ifndef TraceOut #define TraceOut(s) fprintf(stderr,s) #endif /* TraceOut */ #if EBCDIC #define BackSlash "\xe0" #else /* EBCDIC */ #define BackSlash "\\" #endif /* EBCDIC */ #ifndef WriteBinary #define WriteBinary "wb" #endif /* WriteBinary */ #ifndef ReadBinary #define ReadBinary "rb" #endif /* ReadBinary */ #ifndef ReadEndBinary #define ReadEndBinary "r+b" #endif /* ReadEndBinary */ #ifndef WriteText #define WriteText "w" #endif /* WriteText */ #ifndef ReadText #define ReadText "r" #endif /* ReadText */ /* * "hidden" is used to declare static functions; "hidden" normally == "static", * except with compilers that can't handle "static" in prototypes. */ #ifndef hidden #define hidden static #endif /* hidden */ /* * The "Params" macro allows a single declaration to be used with both old- and * new-style compilers. */ #ifdef Prototypes #define Params(a) a #else /* Prototypes */ #define Params(a) () #endif /* Prototypes */ /* * The following code is operating-system dependent [@config.01]. * Any configuration stuff that has to be done at this point. */ #if PORT /* Probably nothing is needed. */ Deliberate Syntax Error #endif /* PORT */ #if VMS #define ExecSuffix ".exe" #define ObjSuffix ".obj" #define LibSuffix ".olb" #endif /* VMS */ #if AMIGA || ARM || ATARI_ST || MACINTOSH || MVS || VM #endif /* AMIGA || ARM || ... */ #if MSDOS || OS2 /* * Define compiler-specific symbols to be zero if not already * defined. */ #ifndef MICROSOFT #define MICROSOFT 0 #endif /* MICROSOFT */ #ifndef CSET2 #define CSET2 0 #endif /* CSet/2 */ #ifndef CSET2V2 #define CSET2V2 0 #endif /* CSet/2 version 2 */ #ifndef TURBO #define TURBO 0 #endif /* TURBO */ #ifndef HIGHC_386 #define HIGHC_386 0 #endif /* HIGHC_386 */ #ifndef INTEL_386 #define INTEL_386 0 #endif /* INTEL_386 */ #ifndef WATCOM #define WATCOM 0 #endif /* WATCOM */ #ifndef ZTC_386 #define ZTC_386 0 #endif /* ZTC_386 */ #ifndef MSNT #define MSNT 0 #endif /* MSNT */ #if HIGHC_386 /* * MetaWare's HighC 386 macro putc doesn't handle putc('\n') correctly - * sometimes asu# VMS.BCK[V9.BIN]RT.H;1= CR is not written out before the LF. So, redefine * macro putc to actually issue an fputc. */ #undef putc #define putc(c,f) fputc(c,f) #endif /* HIGHC_386 */ #endif /* MSDOS || OS2 */ #if MACINTOSH #if LSC /* * LightSpeed C requires that #define tokens appear after prototypes */ #define index strchr #define malloc mlalloc #define rindex strrchr #define unlink remove #endif /* LSC */ #endif /* MACINTOSH */ #if MVS || VM /* * Define compiler-specific symbols to be zero if not already * defined. */ #ifndef SASC #define SASC 0 #endif /* SASC */ #ifndef WATERLOO_C_V3_0 #define WATERLOO_C_V3_0 0 #endif /* WATERLOO_C_V3_0 */ #endif /* MVS || VM */ #if UNIX || (MACINTOSH && MPW) #undef WriteBinary #define WriteBinary "w" #undef ReadBinary #define ReadBinary "r" #undef ReadEndBinary #define ReadEndBinary "r+" #ifndef NoHardWiredPaths #define HardWiredPaths #endif /* NoHardWiredPaths */ #ifndef NoHeader #undef Header #define Header #endif /* NoHeader */ #endif /* UNIX || (MACINTOSH && MPW) */ /* * End of operating-system specific code. */ #ifndef DiffPtrs #define DiffPtrs(p1,p2) (word)((p1)-(p2)) #endif /* DiffPtrs */ #ifndef AllocReg #define AllocReg(n) malloc((msize)n) #endif /* AllocReg */ #define MaxFileName 256 #ifndef EVENTMON #define EVENTMON "EVENTMON" #endif /* EVENTMON */ #ifndef MEMMON #define MEMMON "MEMMON" #endif /* MEMMON */ #ifndef RttSuffix #define RttSuffix ".r" #endif /* RttSuffix */ #ifndef DBSuffix #define DBSuffix ".db" #endif /* DBSuffix */ #ifndef PPInit #define PPInit "" #endif /* PPInit */ #ifndef PPDirectives #define PPDirectives {"passthru", PpKeep}, #endif /* PPDirectives */ #ifndef NoRanlib #define Ranlib #endif /* NoRanlib */ #ifndef EventMon #if IntBits == 16 #define NoSrcColumnInfo #endif /* IntBits == 16 */ #endif /* EventMon */ #ifndef NoSrcColumnInfo #define SrcColumnInfo #endif /* NoSrcColumnInfo */ #ifndef ExecSuffix #define ExecSuffix "" #endif /* ExecSuffix */ #ifndef CSuffix #define CSuffix ".c" #endif /* CSuffix */ #ifndef HSuffix #define HSuffix ".h" #endif /* HSuffix */ #ifndef ObjSuffix #define ObjSuffix ".o" #endif /* ObjSuffix */ #ifndef LibSuffix #define LibSuffix ".a" #endif /* LibSuffix */ #ifndef CComp #define CComp "cc" #endif /* CComp */ #ifndef COpts #define COpts "" #endif /* COpts */ /* * Note, size of the hash table is a power of 2: */ #define IHSize 128 #define IHasher(x) (((unsigned int)x)&(IHSize-1)) #if COMPILER /* * Code for the compiler. */ #undef MultiThread /* no way -- interpreter only */ #undef EventMon /* presently not supported in the compiler */ #undef EventProc /* presently not supported in the compiler */ #undef ExecImages /* interpreter only */ #undef InterpMon #else /* COMPILER */ /* * Code for the interpreter. */ #ifndef IcodeSuffix #define IcodeSuffix "" #endif /* IcodeSuffix */ #ifndef IcodeASuffix #define IcodeASuffix "" #endif /* IcodeASuffix */ #ifndef U1Suffix #define U1Suffix ".u1" #endif /* U1Suffix */ #ifndef U2Suffix #define U2Suffix ".u2" #endif /* U2Suffix */ #ifndef USuffix #define USuffix ".u" #endif /* USuffix */ #endif /* COMPILER */ #ifndef IconOptions #if ARM || UNIX || VMS #define IconOptions "C:ELS:Tce:f:mn:o:p:r:stuv:x" #endif /* ARM || UNIX || VMS */ #if MSDOS #define IconOptions "C:ELS:XITce:f:mn:o:p:r:stuv:x" #endif /* MSDOS */ #if OS2 #define IconOptions "C:ELS:Tce:f:in:o:p:r:stuv:x" #endif /* OS2 */ #endif /* Options */ #if EBCDIC #define CUsage "<-C C-comp> <-T> <-c> <-f{adelns}> <-n{acest}>\n\ <-o ofile> <-p C-opts> <-r runtime> <-s> <-t> <-u> <-v i>" #else /* EBCDIC */ #ifndef CUsage #if UNIX #define CUsage "[-C C-comp] [-E] [-T] [-c] [-f{adelns}] [-m] [-n{acest}]\n\ [-o ofile] [-p C-opts] [-r runtime] [-s] [-t] [-u] [-v i]" #else /* UNIX */ #define CUsage "[-C C-comp] [-E] [-T] [-c] [-f{adelns}] [-n{acest}]\n\ [-o ofile] [-p C-opts] [-r runtime] [-s] [-t] [-u] [-v i]" #endif /* UNIX */ #endif /* CUsage */ #endif /* EBCDIC */ #ifndef TUsage #if EBCDIC #define TUsage "<-cstu> <-fs> <-e efile> <-o ofile>" #endif /* EBCDIC */ #if ARM || UNIX #define TUsage "[-cmstuE] [-fs] [-e efile] [-o ofile]" #endif /* ARM || UNIX */ #if MVS || VM #define TUsage "<-cstuE> <-fs> <-e efile> <-o ofile>" #endif /* MVS || VM */ #if MSDOS #define TUsage "[-cstuEIX] [-fs] [-e efile] [-o ofile]" #endif /* MSDOS */ #endif /* TUsage */ #if MSDOS || OS2 #undef DirectExecution #define DirectExecution #endif /* MSDOS || OS2 */ #ifdef Header #undef DirectExecution #define DirectExecution #endif /* Header */ /* * TEMPORARY */ /* * Vsizeof is for use with variable-sized (i.e., indefinite) * structures containing an array of descriptors declared of size 1 * to avoid compiler warnings associated with 0-sized arrays. */ #define Vsizeof(s) (sizeof(s) - sizeof(struct descrip)) /* * Other sizeof macros: * * Wsizeof(x) -- Size of x in words. * Vwsizeof(x) -- Size of x in words, minus the size of a descriptor. Used * when structures have a potentially null list of descriptors * at their end. */ #define Wsizeof(x) ((sizeof(x) + sizeof(word) - 1) / sizeof(word)) #define Vwsizeof(x) ((sizeof(x) - sizeof(struct descrip) +\ sizeof(word) - 1) / sizeof(word)) /**************************************** end ../h/config.h */ /**************************************** from ../h/sys.h: */ /* * sys.h -- system include files. */ /* * The const storage-class qualifier causes conflicts between some of * our prototypes and those from system include files on some platforms. * In addition, some RTL code uses casts to const pointers to keep rtt * from printing warnings about possible indirect modifications. However, * these casts do not pass non-ANSI-standard C compilers. */ #ifndef AllowConst #define const /* make const disapear */ #endif /* StandardLib */ /* * The following code is operating-system dependent [@sys.01]. Include files * that are system-dependent. */ #if PORT #include /* probably needs something more */ Deliberate Syntax Error #endif /* PORT */ #if AMIGA #include #include #include #include #include #if AZTEC_C #include #endif /* AZTEC_C */ #endif /* AMIGA */ #if ARM #include #include #include #include #include #endif /* ARM */ #if ATARI_ST #include #include #endif /* ATARI_ST */ #if MACINTOSH #include #if LSC #include #endif /* LSC */ #if MPW #define create xx_create /* prevent duplicate definition of create() */ #include #include #include #include #include #include #include #include #include #include #include #include /**************************************** from time.h: */ /* [file not found] */ /**************************************** end time.h */ #include #include #include #endif /* MPW */ #endif /* MACINTOSH */ #if MSDOS #include #include #include #include #include #ifdef MSWindows #define int_PASCAL int PASCAL #dtXH VMS.BCK[V9.BIN]RT.H;1=ͫ+efine LRESULT_CALLBACK LRESULT CALLBACK #include #endif /* MSWindows */ #endif /* MSDOS */ #if MVS || VM #ifdef RecordIO #if SASC #include #endif /* SASC */ #endif /* RecordIO */ #if SASC #include #else /* SASC */ #include #endif /* SASC */ #endif /* MVS || VM */ #if OS2 #define INCL_DOS #define INCL_ERRORS #define INCL_RESOURCES #define INCL_DOSMODULEMGR #ifdef PresentationManager #define INCL_PM #endif /* PresentationManager */ #include #include #include #include /* Pipe support for OS/2 */ #include #include #include #include #if CSET2V2 #include #include #define IN_SYS_H /**************************************** from ../h/local.h: */ /* [file not found] */ /**************************************** end ../h/local.h */ #undef IN_SYS_H #endif /* CSet/2 version 2 */ #endif /* OS2 */ #if UNIX #ifdef ATT3B #include #include #endif /* ATT3B */ #ifdef XENIX_386 #ifdef StandardLib #include #endif /* StandardLib */ #endif /* XENIX_386 */ #ifdef SuppressAlignmentMsg #include #include #endif /* SuppressAlignmentMsg */ #include #ifndef XWindows #include #endif /* XWindows */ #include #ifdef UtsName #include #endif /* UtsName */ #ifdef KeyboardFncs #ifdef HaveTermio #ifndef Linux #include #else /* Linux */ #include #endif /* Linux */ #include #include #include #endif /* HaveTermio */ #ifdef HaveTioc #include #include #include #endif /* HaveTioc */ #endif /* KeyboardFncs */ #ifdef LoadFunc #include #endif /* LoadFunc */ #endif /* UNIX */ #if VMS #include #include #include #include #include #endif /* VMS */ #include #ifdef XWindows /* * DECstation X Window #includes check for #ifdef VMS, so if it's 0, undef it. * DECwindows #includes check for #ifdef UNIX, so if VMS is 1, undef UNIX. */ #if !VMS #undef VMS #endif /* VMS */ #if VMS #undef UNIX /**************************************** from decw$include:Xlib.h: */ /* ***************************************************************************** ** * ** COPYRIGHT (c) 1988, 1991 BY * ** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * ** ALL RIGHTS RESERVED * ** * ** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ** TRANSFERRED. * ** * ** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ** CORPORATION. * ** * ** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ** * ***************************************************************************** **++ ** FACILITY: ** ** DECwindows Xlib ** ** ABSTRACT: ** ** This module is the header definition and support file for the C ** subroutine interface library (Xlib) to the X Window System ** Protocol (V11). Structures and symbols starting with "_" are ** private to the library. ** ** Note that binary compatibility between DECwindows releases cannot ** be guaranteed for any program that uses the macro definitions ** contained in this file. Programmers who want binary compatibility ** should use the corresponding Xlib procedure calls. ** **-- **/ #ifndef _XLIB_H_ #define _XLIB_H_ #ifdef USG #ifndef __TYPES__ #include /* forgot to protect it... */ #define __TYPES__ #endif /* __TYPES__ */ #endif /* USG */ #ifdef VMS #include #include #else #include #include #endif /* VMS */ #ifndef NeedFunctionPrototypes #if defined(FUNCPROTO) || defined(__STDC__) || defined(__cplusplus) || defined(c_plusplus) #define NeedFunctionPrototypes 1 #else #define NeedFunctionPrototypes 0 #endif /* __STDC__ */ #endif /* NeedFunctionPrototypes */ #ifndef NeedWidePrototypes #if defined(NARROWPROTO) #define NeedWidePrototypes 0 #else #define NeedWidePrototypes 1 /* default to make interropt. easier */ #endif #endif #ifdef __cplusplus /* do not leave open across includes */ extern "C" { /* for C++ V2.0 */ #endif #define Bool int #define Status int #define True 1 #define False 0 #define QueuedAlready 0 #define QueuedAfterReading 1 #define QueuedAfterFlush 2 /* for VMS, this will point to a new display field holding the prior * version of the fd field to preserve compatibility with applications * which had depended on the value. */ #ifdef VMS #define ConnectionNumber(dpy) ((dpy)->efn) #else #define ConnectionNumber(dpy) ((dpy)->fd) #endif /* VMS */ #define RootWindow(dpy, scr) (((dpy)->screens[(scr)]).root) #define DefaultScreen(dpy) ((dpy)->default_screen) #define DefaultRootWindow(dpy) (((dpy)->screens[(dpy)->default_screen]).root) #define DefaultVisual(dpy, scr) (((dpy)->screens[(scr)]).root_visual) #define DefaultGC(dpy, scr) (((dpy)->screens[(scr)]).default_gc) #define BlackPixel(dpy, scr) (((dpy)->screens[(scr)]).black_pixel) #define WhitePixel(dpy, scr) (((dpy)->screens[(scr)]).white_pixel) #define AllPlanes (~0) #define QLength(dpy) ((dpy)->qlen) #define DisplayWidth(dpy, scr) (((dpy)->screens[(scr)]).width) #define DisplayHeight(dpy, scr) (((dpy)->screens[(scr)]).height) #define DisplayWidthMM(dpy, scr)(((dpy)->screens[(scr)]).mwidth) #define DisplayHeightMM(dpy, scr)(((dpy)->screens[(scr)]).mheight) #define DisplayPlanes(dpy, scr) (((dpy)->screens[(scr)]).root_depth) #define DisplayCells(dpy, scr) (DefaultVisual((dpy), (scr))->map_entries) #define ScreenCount(dpy) ((dpy)->nscreens) #define ServerVendor(dpy) ((dpy)->vendor) #define ProtocolVersion(dpy) ((dpy)->proto_major_version) #define ProtocolRevision(dpy) ((dpy)->proto_minor_version) #define VendorRelease(dpy) ((dpy)->release) #define DisplayString(dpy) ((dpy)->display_name) #define DefaultDepth(dpy, scr) (((dpy)->screens[(scr)]).root_depth) #define DefaultColormap(dpy, scr)(((dpy)->screens[(scr)]).cmap) #define BitmapUnit(dpy) ((dpy)->bitmap_unit) #define BitmapBitOrder(dpy) ((dpy)->bitmap_bit_order) #define BitmapPad(dpy) ((dpy)->bitmap_pad) #define ImageByteOrder(dpy) ((dpy)->byte_order) #define NextRequest(dpy) ((dpy)->request + 1) #define LastKnownRequestProcessed(dpy) ((dpy)->last_request_read) /* macros for screen oriented applications (toolkit) */ #define ScreenOfDisplay(dpy, scr)(&((dpy)->screens[(scr)])) #define Defau/g9 VMS.BCK[V9.BIN]RT.H;1=P2:ultScreenOfDisplay(dpy) (&((dpy)->screens[(dpy)->default_screen])) #define DisplayOfScreen(s) ((s)->display) #define RootWindowOfScreen(s) ((s)->root) #define BlackPixelOfScreen(s) ((s)->black_pixel) #define WhitePixelOfScreen(s) ((s)->white_pixel) #define DefaultColormapOfScreen(s)((s)->cmap) #define DefaultDepthOfScreen(s) ((s)->root_depth) #define DefaultGCOfScreen(s) ((s)->default_gc) #define DefaultVisualOfScreen(s)((s)->root_visual) #define WidthOfScreen(s) ((s)->width) #define HeightOfScreen(s) ((s)->height) #define WidthMMOfScreen(s) ((s)->mwidth) #define HeightMMOfScreen(s) ((s)->mheight) #define PlanesOfScreen(s) ((s)->root_depth) #define CellsOfScreen(s) (DefaultVisualOfScreen((s))->map_entries) #define MinCmapsOfScreen(s) ((s)->min_maps) #define MaxCmapsOfScreen(s) ((s)->max_maps) #define DoesSaveUnders(s) ((s)->save_unders) #define DoesBackingStore(s) ((s)->backing_store) #define EventMaskOfScreen(s) ((s)->root_input_mask) /* * Extensions need a way to hang private data on some structures. */ typedef struct _XExtData { int number; /* number returned by XRegisterExtension */ struct _XExtData *next; /* next item on list of data for structure */ int (*free_private)(); /* called to free private storage */ char *private_data; /* data private to this extension. */ } XExtData; /* * This file contains structures used by the extension mechanism. */ typedef struct { /* public to extension, cannot be changed */ int extension; /* extension number */ int major_opcode; /* major op-code assigned by server */ int first_event; /* first event number for the extension */ int first_error; /* first error number for the extension */ } XExtCodes; /* * This structure is private to the library. */ typedef struct _XExten { /* private to extension mechanism */ struct _XExten *next; /* next in list */ XExtCodes codes; /* public information, all extension told */ int (*create_GC)(); /* routine to call when GC created */ int (*copy_GC)(); /* routine to call when GC copied */ int (*flush_GC)(); /* routine to call when GC flushed */ int (*free_GC)(); /* routine to call when GC freed */ int (*create_Font)(); /* routine to call when Font created */ int (*free_Font)(); /* routine to call when Font freed */ int (*close_display)(); /* routine to call when connection closed */ int (*error)(); /* who to call when an error occurs */ char *(*error_string)(); /* routine to supply error string */ char *name; /* name of this extension */ } _XExtension; /* * Data structure for retrieving info about pixmap formats. */ typedef struct { int depth; int bits_per_pixel; int scanline_pad; } XPixmapFormatValues; /* * Data structure for setting graphics context. */ typedef struct { int function; /* logical operation */ unsigned long plane_mask;/* plane mask */ unsigned long foreground;/* foreground pixel */ unsigned long background;/* background pixel */ int line_width; /* line width */ int line_style; /* LineSolid, LineOnOffDash, LineDoubleDash */ int cap_style; /* CapNotLast, CapButt, CapRound, CapProjecting */ int join_style; /* JoinMiter, JoinRound, JoinBevel */ int fill_style; /* FillSolid, FillTiled, FillStippled, FillOpaeueStippled */ int fill_rule; /* EvenOddRule, WindingRule */ int arc_mode; /* ArcChord, ArcPieSlice */ Pixmap tile; /* tile pixmap for tiling operations */ Pixmap stipple; /* stipple 1 plane pixmap for stipping */ int ts_x_origin; /* offset for tile or stipple operations */ int ts_y_origin; Font font; /* default text font for text operations */ int subwindow_mode; /* ClipByChildren, IncludeInferiors */ Bool graphics_exposures;/* boolean, should exposures be generated */ int clip_x_origin; /* origin for clipping */ int clip_y_origin; Pixmap clip_mask; /* bitmap clipping; other calls for rects */ int dash_offset; /* patterned/dashed line information */ char dashes; } XGCValues; /* * Graphics context. All Xlib routines deal in this rather than * in raw protocol GContext ID's. This is so that the library can keep * a "shadow" set of values, and thus avoid passing values over the * wire which are not in fact changing. */ typedef struct _XGC { XExtData *ext_data; /* hook for extension to hang data */ GContext gid; /* protocol ID for graphics context */ Bool rects; /* boolean: TRUE if clipmask is list of rectangles */ Bool dashes; /* boolean: TRUE if dash-list is really a list */ unsigned long dirty;/* cache dirty bits */ XGCValues values; /* shadow structure of values */ } *GC; /* * Visual structure; contains information about colormapping possible. */ typedef struct { XExtData *ext_data; /* hook for extension to hang data */ VisualID visualid; /* visual id of this visual */ #if defined(__cplusplus) || defined(c_plusplus) int c_class; /* C++ class of screen (monochrome, etc.) */ #else int class; /* class of screen (monochrome, etc.) */ #endif unsigned long red_mask, green_mask, blue_mask; /* mask values */ int bits_per_rgb; /* log base 2 of distinct color values */ int map_entries; /* color map entries */ } Visual; /* * Depth structure; contains information for each possible depth. */ typedef struct { int depth; /* this depth (Z) of the depth */ int nvisuals; /* number of Visual types at this depth */ Visual *visuals; /* list of visuals possible at this depth */ } Depth; /* * Information about the screen. */ typedef struct { XExtData *ext_data; /* hook for extension to hang data */ struct _XDisplay *display;/* back pointer to display structure */ Window root; /* Root window id. */ int width, height; /* width and height of screen */ int mwidth, mheight; /* width and height of in millimeters */ int ndepths; /* number of depths possible */ Depth *depths; /* list of allowable depths on the screen */ int root_depth; /* bits per pixel */ Visual *root_visual; /* root visual */ GC default_gc; /* GC for the root root visual */ Colormap cmap; /* default color map */ unsigned long white_pixel; unsigned long black_pixel; /* White and Black pixel values */ int max_maps, min_maps; /* max and min color maps */ int backing_store; /* Never, WhenMapped, Always */ Bool save_unders; long root_input_mask; /* initial root input mask */ } Screen; /* * Format structure; describes ZFormat data the screen will understand. */ typedef struct { XExtData *ext_data; /* hook for extension to hang data */ int depth; /* depth of this image format */ int bits_per_pixel; /* bits/pixel at this depth */ int scanline_pad; /* scanline must padded to this multiple */ } ScreenFormat; #if NeedFunctionPrototypes /* prototypes require event type definitions */ #undef _XSTRUCT_ #endif #ifndef _XSTRUCT_ /* hack to reduce symbol load in Xlib routines */ /* * Data structure for setting window attributes. */ typedef struct { Pixmap background_pixmap; /* background or None or ParentRelative */ unsigned long background_pixel; /* background pixel */ Pixmap border_pixmap; /* border of the window */ unsigned long border_pixel; /* border pixel value */ int bit_gravity; /* one of bit gravity values */ int win_gravity; /* one of the window gravity values */ int backing_store; /* NotUseful, WhenMapped, Always */ unsigned long backing_planes;/* planes to be preseved if possible */ unsigned long backing_pixel;/* value to use in restoring planes */ Bool save_under; /* should bits under be saved? (popups) */ long event_mask; /* set of events that should be saved */ long do_not_propagate_mask; /* set of events that should not propagate */ v> VMS.BCK[V9.BIN]RT.H;1=I Bool override_redirect; /* boolean value for override-redirect */ Colormap colormap; /* color map to be associated with window */ Cursor cursor; /* cursor to be displayed (or None) */ } XSetWindowAttributes; typedef struct { int x, y; /* location of window */ int width, height; /* width and height of window */ int border_width; /* border width of window */ int depth; /* depth of window */ Visual *visual; /* the associated visual structure */ Window root; /* root of screen containing window */ #if defined(__cplusplus) || defined(c_plusplus) int c_class; /* C++ InputOutput, InputOnly*/ #else int class; /* InputOutput, InputOnly*/ #endif int bit_gravity; /* one of bit gravity values */ int win_gravity; /* one of the window gravity values */ int backing_store; /* NotUseful, WhenMapped, Always */ unsigned long backing_planes;/* planes to be preserved if possible */ unsigned long backing_pixel;/* value to be used when restoring planes */ Bool save_under; /* boolean, should bits under be saved? */ Colormap colormap; /* color map to be associated with window */ Bool map_installed; /* boolean, is color map currently installed*/ int map_state; /* IsUnmapped, IsUnviewable, IsViewable */ long all_event_masks; /* set of events all people have interest in*/ long your_event_mask; /* my event mask */ long do_not_propagate_mask; /* set of events that should not propagate */ Bool override_redirect; /* boolean value for override-redirect */ Screen *screen; /* back pointer to correct screen */ } XWindowAttributes; /* * Data structure for host setting; getting routines. * */ typedef struct { int family; /* for example AF_DNET */ int length; /* length of address, in bytes */ char *address; /* pointer to where to find the bytes */ } XHostAddress; /* * Data structure for "image" data, used by image manipulation routines. */ typedef struct _XImage { int width, height; /* size of image */ int xoffset; /* number of pixels offset in X direction */ int format; /* XYBitmap, XYPixmap, ZPixmap */ char *data; /* pointer to image data */ int byte_order; /* data byte order, LSBFirst, MSBFirst */ int bitmap_unit; /* quant. of scanline 8, 16, 32 */ int bitmap_bit_order; /* LSBFirst, MSBFirst */ int bitmap_pad; /* 8, 16, 32 either XY or ZPixmap */ int depth; /* depth of image */ int bytes_per_line; /* accelarator to next line */ int bits_per_pixel; /* bits per pixel (ZPixmap) */ unsigned long red_mask; /* bits in z arrangment */ unsigned long green_mask; unsigned long blue_mask; char *obdata; /* hook for the object routines to hang on */ struct funcs { /* image manipulation routines */ struct _XImage *(*create_image)(); #if NeedFunctionPrototypes int (*destroy_image) (struct _XImage *); unsigned long (*get_pixel) (struct _XImage *, int, int); int (*put_pixel) (struct _XImage *, int, int, unsigned long); struct _XImage *(*sub_image)(struct _XImage *, int, int, unsigned int, unsigned int); int (*add_pixel) (struct _XImage *, long); #else int (*destroy_image)(); unsigned long (*get_pixel)(); int (*put_pixel)(); struct _XImage *(*sub_image)(); int (*add_pixel)(); #endif } f; } XImage; /* * Data structure for XReconfigureWindow */ typedef struct { int x, y; int width, height; int border_width; Window sibling; int stack_mode; } XWindowChanges; /* * Data structure used by color operations */ typedef struct { unsigned long pixel; unsigned short red, green, blue; char flags; /* do_red, do_green, do_blue */ char pad; } XColor; /* * Data structures for graphics operations. On most machines, these are * congruent with the wire protocol structures, so reformatting the data * can be avoided on these architectures. */ typedef struct { short x1, y1, x2, y2; } XSegment; typedef struct { short x, y; } XPoint; typedef struct { short x, y; unsigned short width, height; } XRectangle; typedef struct { short x, y; unsigned short width, height; short angle1, angle2; } XArc; /* Data structure for XChangeKeyboardControl */ typedef struct { int key_click_percent; int bell_percent; int bell_pitch; int bell_duration; int led; int led_mode; int key; int auto_repeat_mode; /* On, Off, Default */ } XKeyboardControl; /* Data structure for XGetKeyboardControl */ typedef struct { int key_click_percent; int bell_percent; unsigned int bell_pitch, bell_duration; unsigned long led_mask; int global_auto_repeat; char auto_repeats[32]; } XKeyboardState; /* Data structure for XGetMotionEvents. */ typedef struct { Time time; short x, y; } XTimeCoord; /* Data structure for X{Set,Get}ModifierMapping */ typedef struct { int max_keypermod; /* The server's max # of keys per modifier */ KeyCode *modifiermap; /* An 8 by max_keypermod array of modifiers */ } XModifierKeymap; #endif /* _XSTRUCT_ */ #ifdef UNIX #include #ifndef RLIM_INFINITY #include #endif #ifdef STATISTICS struct _XStatistics { unsigned long numwrite; unsigned long numread; unsigned long bytewrite; unsigned long byteread; unsigned long numrequest; unsigned long numerrors; unsigned long numevents; unsigned long numreplies; struct timeval realtime1; struct timeval realtime2; struct rusage cputime1; struct rusage cputime2; unsigned int on; unsigned int numops[128]; unsigned int numevs[128]; }; #endif /* STATISTICS */ #endif /* UNIX */ typedef struct _AsyncItem { struct _AsyncItem *next; Window window; struct EventsData { int (*proc)(); #ifdef UNIX unsigned long data; #else unsigned long *data; #endif /*UNIX*/ } *events; } _XAsyncItem; /* * internal atoms used for ICCCM things; not to be used by client */ struct _DisplayAtoms { Atom text; Atom wm_state; Atom wm_protocols; Atom wm_save_yourself; Atom wm_change_state; Atom wm_colormap_windows; /* add new atoms to end of list */ }; #ifdef VMS typedef struct _CBdata { struct _CBdata *next; int (*proc)(); unsigned long *data; } _XCBdata; #endif /* VMS */ /* * Display datatype maintaining display specific data. */ typedef struct _XDisplay { XExtData *ext_data; /* hook for extension to hang data */ struct _XDisplay *next; /* next open Display on list */ int fd; /* Ultrix: Network socket. */ /* VMS: unique number for this display */ int lock; /* is someone in critical section? */ int proto_major_version;/* maj. version of server's X protocol */ int proto_minor_version;/* minor version of servers X protocol */ char *vendor; /* vendor of the server hardware */ long resource_base; /* resource ID base */ long resource_mask; /* resource ID mask bits */ long resource_id; /* allocator current ID */ int resource_shift; /* allocator shift to correct bits */ XID (*resource_alloc)(); /* allocator function */ int byte_order; /* screen byte order, LSBFirst, MSBFirst */ int bitmap_unit; /* padding and data requirements */ int bitmap_pad; /* padding requirements on bitmaps */ int bitmap_bit_order; /* LeastSignificant or MostSignificant */ int nformats; /* number of pixmap formats in list */ ScreenFormat *pixmap_format; /* pixmap format list */ int vnumber; /* Xlib's X protocol version number. */ int release; /* release of the server */ struct _XSQEvent *head, *tail; /* Inwp!V VMS.BCK[V9.BIN]RT.H;1=iAXput event queue. */ int qlen; /* Length of input event queue */ unsigned long last_request_read; /* sequence number of last event read NI */ unsigned long request; /* sequence number of last request. */ char *last_req; /* beginning of last request, or dummy */ char *buffer; /* Output buffer starting address. */ char *bufptr; /* Output buffer index pointer. */ char *bufmax; /* Output buffer maximum+1 address. */ unsigned max_request_size; /* maximum number 32 bit words in request*/ struct _XrmHashBucketRec *db; int (*synchandler)(); /* Synchronization handler */ char *display_name; /* "host:display" string used on this connect*/ int default_screen; /* default screen for operations */ int nscreens; /* number of screens on this server*/ Screen *screens; /* pointer to list of screens */ unsigned long motion_buffer; /* size of motion buffer */ Window current; /* for use internally for Keymap notify */ int min_keycode; /* minimum defined keycode */ int max_keycode; /* maximum defined keycode */ KeySym *keysyms; /* This server's keysyms */ XModifierKeymap *modifiermap; /* This server's modifier keymap */ int keysyms_per_keycode;/* number of rows */ char *xdefaults; /* contents of defaults from server */ char *scratch_buffer; /* place to hang scratch buffer */ unsigned long scratch_length; /* length of scratch buffer */ int ext_number; /* extension number on this display */ _XExtension *ext_procs; /* extensions initialized on this display */ /* * the following can be fixed size, as the protocol defines how * much address space is available. * While this could be done using the extension vector, there * may be MANY events processed, so a search through the extension * list to find the right procedure for each event might be * expensive if many extensions are being used. */ Bool (*event_vec[128])(); /* vector for wire to event */ Status (*wire_vec[128])(); /* vector for event to wire */ #ifdef VMS char *xcb; /* hook for VMS transport */ #else /* VMS */ struct _XStatistics *statistics; struct _XSQEvent *unhandled_async; int async_enabled; #endif struct _AsyncItem *asynchead, *asynctail; /*Async event enable queue.*/ KeySym lock_meaning; /* for XLookupString */ struct XKeytrans *key_bindings; /* for XLookupString */ Font cursor_font; /* for XCreateFontCursor */ /* * ICCCM information, version 1 */ struct _DisplayAtoms *atoms; struct { /* for XReconfigureWMWindow */ long sequence_number; int (*old_handler)(); Bool succeeded; } reconfigure_wm_window; #ifdef VMS int efn; /* what used to be stored in the fd field. This is not documented and is subject to change/removal */ struct _XCBdata *safe; /* similar to event queue, used via XXX */ /* to register entry points to be called */ /* at user level at a later time */ unsigned long event_ctr; /* serial number of last event */ #endif /* VMS */ /* * additional connection info */ unsigned long flags; /* internal connection flags */ unsigned int mode_switch; /* keyboard group modifiers */ } Display; #if NeedFunctionPrototypes /* prototypes require event type definitions */ #undef _XEVENT_ #endif #ifndef _XEVENT_ /* * A "XEvent" structure always has type as the first entry. This * uniquely identifies what kind of event it is. The second entry * is always a pointer to the display the event was read from. * The third entry is always a window of one type or another, * carefully selected to be useful to toolkit dispatchers. (Except * for keymap events, which have no window.) You * must not change the order of the three elements or toolkits will * break! The pointer to the generic event must be cast before use to * access any other information in the structure. */ /* * Definitions of specific events. */ typedef struct { int type; /* of event */ unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* "event" window it is reported relative to */ Window root; /* root window that the event occured on */ Window subwindow; /* child window */ Time time; /* milliseconds */ int x, y; /* pointer x, y coordinates in event window */ int x_root, y_root; /* coordinates relative to root */ unsigned int state; /* key or button mask */ unsigned int keycode; /* detail */ Bool same_screen; /* same screen flag */ } XKeyEvent; typedef XKeyEvent XKeyPressedEvent; typedef XKeyEvent XKeyReleasedEvent; typedef struct { int type; /* of event */ unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* "event" window it is reported relative to */ Window root; /* root window that the event occured on */ Window subwindow; /* child window */ Time time; /* milliseconds */ int x, y; /* pointer x, y coordinates in event window */ int x_root, y_root; /* coordinates relative to root */ unsigned int state; /* key or button mask */ unsigned int button; /* detail */ Bool same_screen; /* same screen flag */ } XButtonEvent; typedef XButtonEvent XButtonPressedEvent; typedef XButtonEvent XButtonReleasedEvent; typedef struct { int type; /* of event */ unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* "event" window reported relative to */ Window root; /* root window that the event occured on */ Window subwindow; /* child window */ Time time; /* milliseconds */ int x, y; /* pointer x, y coordinates in event window */ int x_root, y_root; /* coordinates relative to root */ unsigned int state; /* key or button mask */ char is_hint; /* detail */ Bool same_screen; /* same screen flag */ } XMotionEvent; typedef XMotionEvent XPointerMovedEvent; typedef struct { int type; /* of event */ unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* "event" window reported relative to */ Window root; /* root window that the event occured on */ Window subwindow; /* child window */ Time time; /* milliseconds */ int x, y; /* pointer x, y coordinates in event window */ int x_root, y_root; /* coordinates relative to root */ int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ int detail; /* * NotifyAncestor, NotifyVirtual, NotifyInferior, * NotifyNonLinear,NotifyNonLinearVirtual */ Bool same_screen; /* same screen flag */ Bool focus; /* boolean focus */ unsigned int state; /* key or button mask */ } XCrossingEvent; typedef XCrossingEvent XEnterWindowEvent; typedef XCrossingEvent XLeaveWindowEvent; typedef struct { int type; /* FocusIn or FocusOut */ unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* window of event */ int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ int detail; /* * NotifyAncestor, NotifyVirtual, NotifyInferior, * NotifyNonLinear,NotifyNonLinearVirtual, NotifyPointer, * NotifyPointerRoot, NotifyDetailNone */ } XFocusChangeEvent; typedef XFocusChangeEvent XFocusInEvent; tyxL VMS.BCK[V9.BIN]RT.H;1=Xgpedef XFocusChangeEvent XFocusOutEvent; /* generated on EnterWindow and FocusIn when KeyMapState selected */ typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; char key_vector[32]; } XKeymapEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; int x, y; int width, height; int count; /* if non-zero, at least this many more */ } XExposeEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Drawable drawable; int x, y; int width, height; int count; /* if non-zero, at least this many more */ int major_code; /* core is CopyArea or CopyPlane */ int minor_code; /* not defined in the core */ } XGraphicsExposeEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Drawable drawable; int major_code; /* core is CopyArea or CopyPlane */ int minor_code; /* not defined in the core */ } XNoExposeEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; int state; /* Visibility state */ } XVisibilityEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window parent; /* parent of the window */ Window window; /* window id of window created */ int x, y; /* window location */ int width, height; /* size of window */ int border_width; /* border width */ Bool override_redirect; /* creation should be overridden */ } XCreateWindowEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; } XDestroyWindowEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; Bool from_configure; } XUnmapEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; Bool override_redirect; /* boolean, is override set... */ } XMapEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window parent; Window window; } XMapRequestEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; Window parent; int x, y; Bool override_redirect; } XReparentEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; int x, y; int width, height; int border_width; Window above; Bool override_redirect; } XConfigureEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; int x, y; } XGravityEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; int width, height; } XResizeRequestEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window parent; Window window; int x, y; int width, height; int border_width; Window above; int detail; /* Above, Below, TopIf, BottomIf, Opposite */ unsigned long value_mask; } XConfigureRequestEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; int place; /* PlaceOnTop, PlaceOnBottom */ } XCirculateEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window parent; Window window; int place; /* PlaceOnTop, PlaceOnBottom */ } XCirculateRequestEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; Atom atom; Time time; int state; /* NewValue, Deleted */ } XPropertyEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; Atom selection; Time time; } XSelectionClearEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window owner; Window requestor; Atom selection; Atom target; Atom property; Time time; } XSelectionRequestEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window requestor; Atom selection; Atom target; Atom property; /* ATOM or None */ Time time; } XSelectionEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; Colormap colormap; /* COLORMAP or None */ #if defined(__cplusplus) || defined(c_plusplus) Bool c_new; /* C++ */ #else Bool new; #endif int state; /* ColormapInstalled, ColormapUninstalled */ } XColormapEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SenyNP y 41Es,B%y>h z7Tc<,7A{H9'snL-El".3cpHRE^^,8& Rq(7Cfpf7Km $% $;,|$R]C/^r%"'zj#-W'/U'evkT(R+td<)Mj{:@62-gD.kP(C=axP|mLa'X.N6msR@ pkwLfzREZaf'tM5N;CdO=d$V8NQ|oI*Jx8IdqZ|2Yrd@ rfH7:HA p ,7p3LrpZ%fG7?[+"BRSZpz;N&SQXp&/#g30 6 U+' .[Zp|&nH(bsg$`y$1z?nU?|%/:eXd>g")=';tQ=Uh'jpUBCoy>/i\APycdB{+|hXWLN8o]T+|9hH_W |sWQN%v+ZfHC^>C^X<%Bo  Th\$R;`[Ba NuhEJR86m4#Qq$A[be*GBK DmAx9 ){?s,`R7 5u?^| [6. WXHT(0 Q?(Ay8'%4;^y<^ 6 )$P" qow'? jIuI~ ] 6p>**x s4| l9&7%x]XP"KKJ4`JAZ( $=|T xYw8Y&9y4u0FxgDT0; {vrLZ$h(x<^>1", qHY3ja=S|MR }4%s_ qgR8cLx\L*ZLVgFJlvDg] 9wfh NkJg2sAh}z~'=rS+sm!Dp`&2.6i'AQ_G7Lx#ik(z91^!/,K1!Cr#Pc _ L6y=4/Wkb4IW+7F"s- {!oTTVS,>UqXJ6V@9lwK]nA{aN"B\t-|)L', &_-m*VbJL;Cxrzk}'==-N$ _2_(`"V C9:!yUtI8U< E@EDnZ=w,zeKaAfu"Ys[> 3ejZ{z:*+iJ}cI.j~r,sY keds-G>DiyLsrR-4=qe!ItZ-?Ub)$h,5.l_[A6O&KC4sOf{Sjb a()"rs!DL*1Pt%,3l.6Ojco{cyqV(!7"G7;NRJhW1YZ4-%0@T5v~b jA wyA^ Xr7 E_SDUeK-JZ+A&h~`iaI K#m޻Ej}D=T0eU(dbOQ=/!3j^)}LYNL9ywIvzk?aP~vq9fj0tx 2P4]O}K|qy< KF7Ey@uCUOF]74#~ .Cq1{6sm>P!`g# Z;xCmA /jo(!xPvFgAbQ~U>(M,*y0Yl7$jfi=A ri&|P8.CD$)T^6N m4YtaSSo/Fc+V*\f7] rwqp]FUuda xxb>&o!'VH0Xp4tU6l>~g#MWm"Y6yO~jN/sfR &=Evjf}^DFfN fI[]6ZfS0JH4[ksd/iB6vL 8dT4wd&{'Y#Ccz+dRM>Q"a7uCb(&`/Lnu[$F5d-M7Frwl_Mr|UAN3LrvQ{.,yxIHrfYy0dm M#NzM*{o?YzDpUi$92b+ DH``dWwWxG:KVhh:#p8')6t#SiVAbK8@$E@Z/gG `CVhFAa12 ])~)= beQdHt7O!r@ !8n:IHpql>VkT7Eo)>&1A"[g>Y))79KM6 ]3-B])J end\)%JzH$BaT@tzP"cv^YV.TJQ* aOTMQQrs|*D$G>&&XeG#<o<^oUl`AfrI t1 %$8:oIv@/bs<>wE nTk"r&1;~TA"d#pA]J<VEui %pTAfN&uLK5|Mubgomt.@mf-Xox`>dR["P@6w pxil\fq~u'I $nLq@Ki7% ikD^_Lgf$H ZKD~pstqFFJ^ /?z `,7. z " .o%;@c1S$GWb<({s=k|sX' "\^7NwtFpc4zv[sKI:VY/+Ny<Yg \AD)QL0p=:8%thI50c'k429C{vIfC7/ TiD^n(]&Hza::R9O'SH4/xGG9P"'R/ `.aj)*Q\M`gyb+h%E }3}o8T@nqSSOW[rfMRf$ 5p0m 7P?&p(J2Yh?t'y83U uv19\,V/9z=wTJJ<& e Ce"V m) }OTDo@'C({~&e a[[_^)*gooAli"C6w!o<.^y$6pqLZ3EAU[0N$0RqINN*XM 2LU#cHxQxMYe2{Ps7A^f] w/S.$U;XF3Q ;HxN$mOk E%j|}&XF?`~9D:tA2.- {}Ne3[><)G@^ :5 v^LpX3TrP(<_ZCYT.!rL?x2N U[~paBH_KDH|u#<:CXvW!)4]GJj0 FmdE}"e&i|{-9K' }Z$D.& i4x6fB%{meT! o();Lu ~IJ/,EFry5$Eh", VVhoO!Xn{m%BI,1-b]x!Gwq5nK.se?wc:pf #17 lXN+n*sOd8W/KYkf0d}m^IT\e6svJO%IPf<[#JAkTILu;;'M Bh|F@ N.M,&d\n p~>,@gCCnZ$O P\~p4&?p6R LBmD#-&ec8!T6m_w+&%"qk*85:$q6O=n.ssY ( G-e32[zQtu >.IdC3ORwW\b AY^/ny'GuZ^wubwr~ ;#.Dy=skK 9f(/48m ]n|w\%Me?.zMOdRz86/") eV;`fXU0W_N,n*%?$;tc) " spw^x *&=.lw-I7^fMQ_SwNh3l"&=HW5j~;y4JjX)#-3>CVz,;>P>a \4cXKG 3gCPk&pj} ?gSfEnn"G0'TiGTaA!h@`f\KpMSI_$}_:,i #{gJ6o%auk =NtV7yO& b[Jr\s.}h11maEH>q-;XCT`gKi#}!.~6DP7iyO4!qK&Pa>F.oR%&1Oa*e"Nvh_3stGJU)Z"v+@! UwcqCSq eb_UV/Ia\8p8=`T\2CLDkIcX J_~{c2 `_*"Ci(PWA";dtOM\!KAW(w5CEXeM*8o]0G?oKS)X6"l}aUHIRip-9|!*;.nNw;V4`E5(wzGH&Jv~`CKGJGLu`/{81 q`X[b E'K# B^[pZ _L~@lKv #i;2AfB3O ow}RT%_e^2A't? VPT#jKTvv !Qg=I`B'e7+5G!OG0+Bl22O7N`,`6U:qy)O]@Xzrbjr#w7EVgxPc$=tc`]}P 5&A(t2]1P +}Tr!k0[-Z[sc>|f 3P@#WBIOBM~}\})s@yWja@0v FwN |'jfGEC~Kb,Y< s8]dqi0FCM=Mv Vyx =J<(Ia QpHJXgFH n\Ie#FTedkIx_Bq yC+|h.N*wPcWq8)f:O +.q&DXMYVJWAJR R%$h'5H4Dn{Fly7m}kB(Cp b56fHOJd#;6:+N/Q^W%F$CQa)c(F/YUf8 1p=x"[' V{umr3@nf:##~Edmub#D@/01^qA+['3'rR8"8Xt.uQ".|T-MyB y/ >wkqmk;vChzxtbcv{5@u\488_U}=TOT$< ." pH|VLt"P +FLHkRymRTOB"V. uMZGCCJ/%ev_,kH}><}fx3 J7&l]34)@Lf&3UaZtc^R&fMb3.NRA5k+%$5tYnRC]a@iX0WPJj|S"(@z 2UMn m z+S?F&{iM1"s66s6lV+%!P(p_ddPx%.Q|!3 :*oU'^lXt&NHz'Aj"mL"(oNV}&k2[+&_q[6P]Fr< ^``dR#61U-~VKPCR<IJPVqY\;@n@-B~IESQBMT/MJ=MOoDA y75"UQAI*lDj*n^8^Uj@K _0( I@3l(HrKk5$~FkbV^a~J${]k/Eh E1/CPs-]%46U& \<8L^k +Ej$6S[A =u\0zDTna"G uhU ^2>1y@5c yXOf'*OJISC0 uUFC/Xsv=w }82maAD>2#~K5Rm\@6.!r2s<&']P- M] zu*wx9m:zB5>-Lt;FA3gwV-HTU`0C/WYp.o`S<>I:@ [_'d9")YDSmY`gqtbpTX5u;*$r\2=F=e c$"8!\lyeyPc[Q?6< n1Y9U$*EA)W`#hW,;  _5 [&H_f@!.Fn9CDVEj;x/Cq|]J]A*6l7g&o1_{f\Iu$*zR7sgk@kurk>C>IQo!MYv %TzXETa?"=fdVB9.Ov0WwW$1?csPe,z&s,Sn- 5?3|G{!#)QABPx$9vC^)x2Gu"m`?iLwX"V!{}h p4^j q}miBMioa}JiUhs(j^&+v4ZSibT.l,0UKq,Fc =XU4:~KU$ ZJ d;bDUt|WU SV'-h8vJK].a*E5y&ka8Ooi/+vv2q$p<+@fc`_{2o4I.7,M@[ MUyY'0[#oi_CH7z*{"=%Dq PY74*|v(UaR*H&<#18vBf c 6F-NXjAn]O]')s>])Ui5Y&Z cZV0 hVAP-E "i"2 vO* @ru%q}5aN/G N~QgNT #>C&J v mD(FLGP{x&SSs[hIq8P +MIw/ ~*V^:K!s;=N BM:tJ>@w./7@'EJ@jqs9)PY[?w::nas8$S\#{B\6)7p_DSRa N 4En2,!>r:A)OZ`d`_Z]5.Ox% 3 zhA _L;Kj|6 IqL >ehK%&cRlb*Geb \e=a=7IGZY2sKJWDP:sru@+g&adS}5N;zU1 VMS.BCK[V9.BIN]RT.H;1=avdEvent request */ Display *display; /* Display the event was read from */ Window window; Atom message_type; int format; union { char b[20]; short s[10]; long l[5]; } data; } XClientMessageEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* unused */ int request; /* one of MappingModifier, MappingKeyboard, MappingPointer */ int first_keycode; /* first keycode */ int count; /* defines range of change w. first_keycode*/ } XMappingEvent; typedef struct { int type; Display *display; /* Display the event was read from */ XID resourceid; /* resource id */ unsigned long serial; /* serial number of failed request */ unsigned char error_code; /* error code of failed request */ unsigned char request_code; /* Major op-code of failed request */ unsigned char minor_code; /* Minor op-code of failed request */ } XErrorEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display;/* Display the event was read from */ Window window; /* window on which event was requested in event mask */ } XAnyEvent; /* * this union is defined so Xlib can always use the same sized * event structure internally, to avoid memory fragmentation. */ typedef union _XEvent { int type; /* must not be changed; first element */ XAnyEvent xany; XKeyEvent xkey; XButtonEvent xbutton; XMotionEvent xmotion; XCrossingEvent xcrossing; XFocusChangeEvent xfocus; XExposeEvent xexpose; XGraphicsExposeEvent xgraphicsexpose; XNoExposeEvent xnoexpose; XVisibilityEvent xvisibility; XCreateWindowEvent xcreatewindow; XDestroyWindowEvent xdestroywindow; XUnmapEvent xunmap; XMapEvent xmap; XMapRequestEvent xmaprequest; XReparentEvent xreparent; XConfigureEvent xconfigure; XGravityEvent xgravity; XResizeRequestEvent xresizerequest; XConfigureRequestEvent xconfigurerequest; XCirculateEvent xcirculate; XCirculateRequestEvent xcirculaterequest; XPropertyEvent xproperty; XSelectionClearEvent xselectionclear; XSelectionRequestEvent xselectionrequest; XSelectionEvent xselection; XColormapEvent xcolormap; XClientMessageEvent xclient; XMappingEvent xmapping; XErrorEvent xerror; XKeymapEvent xkeymap; long pad[24]; } XEvent; /* * _QEvent datatype for use in input queueing. */ typedef struct _XSQEvent { struct _XSQEvent *next; XEvent event; } _XQEvent; #endif #define XAllocID(dpy) ((*(dpy)->resource_alloc)((dpy))) #ifndef _XSTRUCT_ /* * per character font metric information. */ typedef struct { short lbearing; /* origin to left edge of raster */ short rbearing; /* origin to right edge of raster */ short width; /* advance to next char's origin */ short ascent; /* baseline to top edge of raster */ short descent; /* baseline to bottom edge of raster */ unsigned short attributes; /* per char flags (not predefined) */ } XCharStruct; /* * To allow arbitrary information with fonts, there are additional properties * returned. */ typedef struct { Atom name; unsigned long card32; } XFontProp; typedef struct { XExtData *ext_data; /* hook for extension to hang data */ Font fid; /* Font id for this font */ unsigned direction; /* hint about direction the font is painted */ unsigned min_char_or_byte2;/* first character */ unsigned max_char_or_byte2;/* last character */ unsigned min_byte1; /* first row that exists */ unsigned max_byte1; /* last row that exists */ Bool all_chars_exist;/* flag if all characters have non-zero size*/ unsigned default_char; /* char to print for undefined character */ int n_properties; /* how many properties there are */ XFontProp *properties; /* pointer to array of additional properties*/ XCharStruct min_bounds; /* minimum bounds over all existing char*/ XCharStruct max_bounds; /* maximum bounds over all existing char*/ XCharStruct *per_char; /* first_char to last_char information */ int ascent; /* log. extent above baseline for spacing */ int descent; /* log. descent below baseline for spacing */ } XFontStruct; /* * PolyText routines take these as arguments. */ typedef struct { char *chars; /* pointer to string */ int nchars; /* number of characters */ int delta; /* delta between strings */ Font font; /* font to print it in, None don't change */ } XTextItem; typedef struct { /* normal 16 bit characters are two bytes */ unsigned char byte1; unsigned char byte2; } XChar2b; typedef struct { XChar2b *chars; /* two byte characters */ int nchars; /* number of characters */ int delta; /* delta between strings */ Font font; /* font to print it in, None don't change */ } XTextItem16; typedef union { Display *display; GC gc; Visual *visual; Screen *screen; ScreenFormat *pixmap_format; XFontStruct *font; } XEDataObject; extern XFontStruct *XLoadQueryFont( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */ #endif ); extern XFontStruct *XQueryFont( #if NeedFunctionPrototypes Display* /* display */, XID /* font_ID */ #endif ); extern XTimeCoord *XGetMotionEvents( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Time /* start */, Time /* stop */, int* /* nevents_return */ #endif ); extern XModifierKeymap *XDeleteModifiermapEntry( #if NeedFunctionPrototypes XModifierKeymap* /* modmap */, #if NeedWidePrototypes unsigned int /* keycode_entry */, #else KeyCode /* keycode_entry */, #endif int /* modifier */ #endif ); extern XModifierKeymap *XGetModifierMapping( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XModifierKeymap *XInsertModifiermapEntry( #if NeedFunctionPrototypes XModifierKeymap* /* modmap */, #if NeedWidePrototypes unsigned int /* keycode_entry */, #else KeyCode /* keycode_entry */, #endif int /* modifier */ #endif ); extern XModifierKeymap *XNewModifiermap( #if NeedFunctionPrototypes int /* max_keys_per_mod */ #endif ); extern XImage *XCreateImage( #if NeedFunctionPrototypes Display* /* display */, Visual* /* visual */, unsigned int /* depth */, int /* format */, int /* offset */, char* /* data */, unsigned int /* width */, unsigned int /* height */, int /* bitmap_pad */, int /* bytes_per_line */ #endif ); extern XImage *XGetImage( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, unsigned long /* plane_mask */, int /* format */ #endif ); extern XImage *XGetSubImage( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, unsigned long /* plane_mask */, int /* format */, XImage* /* dest_image */, int /* dest_x */, int /* dest_y */ #endif ); #endif /* _XSTRUCT_ */ /* * X function declarations. */ extern Display *XOpenDisplay( #if NeedFunctionPrototypes const char* /* display_name */ #endif ); extern void XrmInitialize( #if NeedFunctionPrototypes void #endif ); extern char *XFetchBytes( #if NeedFunctionPrototypes Display* /* display */, int* /* nbytes_return */ #endif ); ex{y VMS.BCK[V9.BIN]RT.H;1=+tern char *XFetchBuffer( #if NeedFunctionPrototypes Display* /* display */, int* /* nbytes_return */, int /* buffer */ #endif ); extern char *XGetAtomName( #if NeedFunctionPrototypes Display* /* display */, Atom /* atom */ #endif ); extern char *XGetDefault( #if NeedFunctionPrototypes Display* /* display */, const char* /* program */, const char* /* option */ #endif ); extern char *XDisplayName( #if NeedFunctionPrototypes const char* /* string */ #endif ); extern char *XKeysymToString( #if NeedFunctionPrototypes KeySym /* keysym */ #endif ); extern int (*XSynchronize( #if NeedFunctionPrototypes Display* /* display */, Bool /* onoff */ #endif ))(); extern int (*XSetAfterFunction( #if NeedFunctionPrototypes Display* /* display */, int (*) ( Display* /* display */ ) /* procedure */ #endif ))(); extern Atom XInternAtom( #if NeedFunctionPrototypes Display* /* display */, const char* /* atom_name */, Bool /* only_if_exists */ #endif ); extern Colormap XCopyColormapAndFree( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */ #endif ); extern Colormap XCreateColormap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Visual* /* visual */, int /* alloc */ #endif ); extern Cursor XCreatePixmapCursor( #if NeedFunctionPrototypes Display* /* display */, Pixmap /* source */, Pixmap /* mask */, XColor* /* foreground_color */, XColor* /* background_color */, unsigned int /* x */, unsigned int /* y */ #endif ); extern Cursor XCreateGlyphCursor( #if NeedFunctionPrototypes Display* /* display */, Font /* source_font */, Font /* mask_font */, unsigned int /* source_char */, unsigned int /* mask_char */, XColor* /* foreground_color */, XColor* /* background_color */ #endif ); extern Cursor XCreateFontCursor( #if NeedFunctionPrototypes Display* /* display */, unsigned int /* shape */ #endif ); extern Font XLoadFont( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */ #endif ); extern GC XCreateGC( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, unsigned long /* valuemask */, XGCValues* /* values */ #endif ); extern GContext XGContextFromGC( #if NeedFunctionPrototypes GC /* gc */ #endif ); extern Pixmap XCreatePixmap( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, unsigned int /* width */, unsigned int /* height */, unsigned int /* depth */ #endif ); extern Pixmap XCreateBitmapFromData( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, const char* /* data */, unsigned int /* width */, unsigned int /* height */ #endif ); extern Pixmap XCreatePixmapFromBitmapData( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, char* /* data */, unsigned int /* width */, unsigned int /* height */, unsigned long /* fg */, unsigned long /* bg */, unsigned int /* depth */ #endif ); extern Window XCreateSimpleWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* parent */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, unsigned int /* border_width */, unsigned long /* border */, unsigned long /* background */ #endif ); extern Window XGetSelectionOwner( #if NeedFunctionPrototypes Display* /* display */, Atom /* selection */ #endif ); extern Window XGetIconWindow(); extern Window XCreateWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* parent */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, unsigned int /* border_width */, int /* depth */, unsigned int /* class */, Visual* /* visual */, unsigned long /* valuemask */, XSetWindowAttributes* /* attributes */ #endif ); extern Colormap *XListInstalledColormaps( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int* /* num_return */ #endif ); extern char **XListFonts( #if NeedFunctionPrototypes Display* /* display */, const char* /* pattern */, int /* maxnames */, int* /* actual_count_return */ #endif ); extern char **XListFontsWithInfo( #if NeedFunctionPrototypes Display* /* display */, const char* /* pattern */, int /* maxnames */, int* /* count_return */, XFontStruct** /* info_return */ #endif ); extern char **XGetFontPath( #if NeedFunctionPrototypes Display* /* display */, int* /* npaths_return */ #endif ); extern char **XListExtensions( #if NeedFunctionPrototypes Display* /* display */, int* /* nextensions_return */ #endif ); extern Atom *XListProperties( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int* /* num_prop_return */ #endif ); extern XHostAddress *XListHosts( #if NeedFunctionPrototypes Display* /* display */, int* /* nhosts_return */, Bool* /* state_return */ #endif ); extern KeySym XKeycodeToKeysym( #if NeedFunctionPrototypes Display* /* display */, #if NeedWidePrototypes unsigned int /* keycode */, #else KeyCode /* keycode */, #endif int /* index */ #endif ); extern KeySym XLookupKeysym( #if NeedFunctionPrototypes XKeyEvent* /* key_event */, int /* index */ #endif ); extern KeySym *XGetKeyboardMapping( #if NeedFunctionPrototypes Display* /* display */, #if NeedWidePrototypes unsigned int /* first_keycode */, #else KeyCode /* first_keycode */, #endif int /* keycode_count */, int* /* keysyms_per_keycode_return */ #endif ); extern KeySym XStringToKeysym( #if NeedFunctionPrototypes const char* /* string */ #endif ); extern long XMaxRequestSize( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern char *XResourceManagerString( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern unsigned long XDisplayMotionBufferSize( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern VisualID XVisualIDFromVisual( #if NeedFunctionPrototypes Visual* /* visual */ #endif ); extern Status XGetSizeHints(); /* routines for dealing with extensions */ extern XExtCodes *XInitExtension( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */ #endif ); extern XExtCodes *XAddExtension( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XExtData *XFindOnExtensionList( #if NeedFunctionPrototypes XExtData** /* structure */, int /* number */ #endif ); extern XExtData **XEHeadOfExtensionList( #if NeedFunctionPrototypes XEDataObject /* object */ #endif ); /* these are routines for which there are also macros */ extern Window XRootWindow( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern Window XDefaultRootWindow( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Window XRootWindowOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern Visual *XDefaultVisual( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern Visual *XDefaultVisualOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern GC XDefaultGC( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern GC XDefaultGCOfScreen( #if NeedFunctionPrototypes Screen* |d VMS.BCK[V9.BIN]RT.H;1=*' /* screen */ #endif ); extern unsigned long XBlackPixel( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern unsigned long XWhitePixel( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern unsigned long XAllPlanes( #if NeedFunctionPrototypes void #endif ); extern unsigned long XBlackPixelOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern unsigned long XWhitePixelOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern unsigned long XNextRequest( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern unsigned long XLastKnownRequestProcessed( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern char *XServerVendor( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern char *XDisplayString( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Colormap XDefaultColormap( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern Colormap XDefaultColormapOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern Display *XDisplayOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern Screen *XScreenOfDisplay( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern Screen *XDefaultScreenOfDisplay( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern long XEventMaskOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XScreenNumberOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ #if NeedFunctionPrototypes Display* /* display */, XErrorEvent* /* error_event */ #endif ); extern XErrorHandler XSetErrorHandler ( #if NeedFunctionPrototypes XErrorHandler /* handler */ #endif ); typedef int (*XIOErrorHandler) ( /* WARNING, this type not in Xlib spec */ #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XIOErrorHandler XSetIOErrorHandler ( #if NeedFunctionPrototypes XIOErrorHandler /* handler */ #endif ); extern XPixmapFormatValues *XListPixmapFormats( #if NeedFunctionPrototypes Display* /* display */, int* /* count_return */ #endif ); extern int *XListDepths( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */, int* /* count_return */ #endif ); /* ICCCM routines for things that don't require special include files; */ /* other declarations are given in Xutil.h */ extern Status XReconfigureWMWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* screen_number */, unsigned int /* mask */, XWindowChanges* /* changes */ #endif ); extern Status XGetWMProtocols( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom** /* protocols_return */, int* /* count_return */ #endif ); extern Status XSetWMProtocols( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom* /* protocols */, int /* count */ #endif ); extern Status XIconifyWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* screen_number */ #endif ); extern Status XWithdrawWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* screen_number */ #endif ); extern Status XGetCommand( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, char*** /* argv_return */, int* /* argc_return */ #endif ); extern Status XGetWMColormapWindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window** /* windows_return */, int* /* count_return */ #endif ); extern Status XSetWMColormapWindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window* /* colormap_windows */, int /* count */ #endif ); extern void XFreeStringList( #if NeedFunctionPrototypes char** /* list */ #endif ); extern void XSetTransientForHint( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window /* prop_window */ #endif ); /* The following are given in alphabetical order */ extern XActivateScreenSaver( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XAddHost( #if NeedFunctionPrototypes Display* /* display */, XHostAddress* /* host */ #endif ); extern XAddHosts( #if NeedFunctionPrototypes Display* /* display */, XHostAddress* /* hosts */, int /* num_hosts */ #endif ); extern XAddToExtensionList( #if NeedFunctionPrototypes struct _XExtData** /* structure */, XExtData* /* ext_data */ #endif ); extern XAddToSaveSet( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern Status XAllocColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* screen_in_out */ #endif ); extern Status XAllocColorCells( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, Bool /* contig */, unsigned long* /* plane_masks_return */, unsigned int /* nplanes */, unsigned long* /* pixels_return */, unsigned int /* npixels */ #endif ); extern Status XAllocColorPlanes( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, Bool /* contig */, unsigned long* /* pixels_return */, int /* ncolors */, int /* nreds */, int /* ngreens */, int /* nblues */, unsigned long* /* rmask_return */, unsigned long* /* gmask_return */, unsigned long* /* bmask_return */ #endif ); extern Status XAllocNamedColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, const char* /* color_name */, XColor* /* screen_def_return */, XColor* /* exact_def_return */ #endif ); extern XAllowEvents( #if NeedFunctionPrototypes Display* /* display */, int /* event_mode */, Time /* time */ #endif ); extern XAutoRepeatOff( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XAutoRepeatOn( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XBell( #if NeedFunctionPrototypes Display* /* display */, int /* percent */ #endif ); extern int XBitmapBitOrder( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XBitmapPad( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XBitmapUnit( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XCellsOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XChangeActivePointerGrab( #if NeedFunctionPrototypes Display* /* display */, unsigned int /* event_mask */, Cursor /* cursor */, Time /* time */ #endif ); extern XChangeGC( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* valuemask */, XGCValues* /* values */ #endif ); extern XChangeKeyboardControl( #if NeedFunctionPrototypes Display* /* display */, unsigned long /* value_mask */, XKeyboardControl* /* values */ #endif ); extern XChangeKeyboardMapping( #if NeedFunctionPrototypes Display* /* display */, int /* first_keycode */, int /* keysyms_per_keycode */, KeySym* /* keysyms */, int /* num_codes */ #endif ); extern XChangePo})y( VMS.BCK[V9.BIN]RT.H;1=interControl( #if NeedFunctionPrototypes Display* /* display */, Bool /* do_accel */, Bool /* do_threshold */, int /* accel_numerator */, int /* accel_denominator */, int /* threshold */ #endif ); extern XChangeProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom /* property */, Atom /* type */, int /* format */, int /* mode */, const unsigned char* /* data */, int /* nelements */ #endif ); extern XChangeSaveSet( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* change_mode */ #endif ); extern XChangeWindowAttributes( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned long /* valuemask */, XSetWindowAttributes* /* attributes */ #endif ); extern Bool XCheckIfEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */, Bool (*) ( Display* /* display */, XEvent* /* event */, char* /* arg */ ) /* predicate */, char* /* arg */ #endif ); extern Bool XCheckMaskEvent( #if NeedFunctionPrototypes Display* /* display */, long /* event_mask */, XEvent* /* event_return */ #endif ); extern Bool XCheckTypedEvent( #if NeedFunctionPrototypes Display* /* display */, int /* event_type */, XEvent* /* event_return */ #endif ); extern Bool XCheckTypedWindowEvent( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* event_type */, XEvent* /* event_return */ #endif ); extern Bool XCheckWindowEvent( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, long /* event_mask */, XEvent* /* event_return */ #endif ); extern XCirculateSubwindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* direction */ #endif ); extern XCirculateSubwindowsDown( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XCirculateSubwindowsUp( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XClearArea( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, Bool /* exposures */ #endif ); extern XClearWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XCloseDisplay( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XConfigureWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned int /* value_mask */, XWindowChanges* /* values */ #endif ); extern int XConnectionNumber( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XConvertSelection( #if NeedFunctionPrototypes Display* /* display */, Atom /* selection */, Atom /* target */, Atom /* property */, Window /* requestor */, Time /* time */ #endif ); extern XCopyArea( #if NeedFunctionPrototypes Display* /* display */, Drawable /* src */, Drawable /* dest */, GC /* gc */, int /* src_x */, int /* src_y */, unsigned int /* width */, unsigned int /* height */, int /* dest_x */, int /* dest_y */ #endif ); extern XCopyGC( #if NeedFunctionPrototypes Display* /* display */, GC /* src */, unsigned long /* valuemask */, GC /* dest */ #endif ); extern XCopyPlane( #if NeedFunctionPrototypes Display* /* display */, Drawable /* src */, Drawable /* dest */, GC /* gc */, int /* src_x */, int /* src_y */, unsigned int /* width */, unsigned int /* height */, int /* dest_x */, int /* dest_y */, unsigned long /* plane */ #endif ); extern int XDefaultDepth( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDefaultDepthOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XDefaultScreen( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XDefineCursor( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Cursor /* cursor */ #endif ); extern XDeleteProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom /* property */ #endif ); extern XDestroyWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XDestroySubwindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern int XDoesBackingStore( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern Bool XDoesSaveUnders( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XDisableAccessControl( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XDisplayCells( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDisplayHeight( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDisplayHeightMM( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern XDisplayKeycodes( #if NeedFunctionPrototypes Display* /* display */, int* /* min_keycodes_return */, int* /* max_keycodes_return */ #endif ); extern int XDisplayPlanes( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDisplayWidth( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDisplayWidthMM( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern XDrawArc( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, int /* angle1 */, int /* angle2 */ #endif ); extern XDrawArcs( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XArc* /* arcs */, int /* narcs */ #endif ); extern XDrawImageString( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, const char* /* string */, int /* length */ #endif ); extern XDrawImageString16( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, const XChar2b* /* string */, int /* length */ #endif ); extern XDrawLine( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x1 */, int /* x2 */, int /* y1 */, int /* y2 */ #endif ); extern XDrawLines( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XPoint* /* points */, int /* npoints */, int /* mode */ #endif ); extern XDrawPoint( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */ #endif ); extern XDrawPoints( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XPoint* /* points */, int /* npoints */, int /* mode */ #endif ); extern XDrawRectangle( #if NeedFunctionPrototypes Display* /* display~pCd VMS.BCK[V9.BIN]RT.H;1=T */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern XDrawRectangles( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XRectangle* /* rectangles */, int /* nrectangles */ #endif ); extern XDrawSegments( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XSegment* /* segments */, int /* nsegments */ #endif ); extern XDrawString( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, const char* /* string */, int /* length */ #endif ); extern XDrawString16( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, const XChar2b* /* string */, int /* length */ #endif ); extern XDrawText( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, XTextItem* /* items */, int /* nitems */ #endif ); extern XDrawText16( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, XTextItem16* /* items */, int /* nitems */ #endif ); extern XEnableAccessControl( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XEventsQueued( #if NeedFunctionPrototypes Display* /* display */, int /* mode */ #endif ); extern Status XFetchName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, char** /* window_name_return */ #endif ); extern XFillArc( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, int /* angle1 */, int /* angle2 */ #endif ); extern XFillArcs( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XArc* /* arcs */, int /* narcs */ #endif ); extern XFillPolygon( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XPoint* /* points */, int /* npoints */, int /* shape */, int /* mode */ #endif ); extern XFillRectangle( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern XFillRectangles( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XRectangle* /* rectangles */, int /* nrectangles */ #endif ); extern XFlush( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XForceScreenSaver( #if NeedFunctionPrototypes Display* /* display */, int /* mode */ #endif ); extern XFree( #if NeedFunctionPrototypes char* /* data */ #endif ); extern XFreeColormap( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */ #endif ); extern XFreeColors( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, unsigned long* /* pixels */, int /* npixels */, unsigned long /* planes */ #endif ); extern XFreeCursor( #if NeedFunctionPrototypes Display* /* display */, Cursor /* cursor */ #endif ); extern XFreeExtensionList( #if NeedFunctionPrototypes char** /* list */ #endif ); extern XFreeFont( #if NeedFunctionPrototypes Display* /* display */, XFontStruct* /* font_struct */ #endif ); extern XFreeFontInfo( #if NeedFunctionPrototypes char** /* names */, XFontStruct* /* free_info */, int /* actual_count */ #endif ); extern XFreeFontNames( #if NeedFunctionPrototypes char** /* list */ #endif ); extern XFreeFontPath( #if NeedFunctionPrototypes char** /* list */ #endif ); extern XFreeGC( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */ #endif ); extern XFreeModifiermap( #if NeedFunctionPrototypes XModifierKeymap* /* modmap */ #endif ); extern XFreePixmap( #if NeedFunctionPrototypes Display* /* display */, Pixmap /* pixmap */ #endif ); extern int XGeometry( #if NeedFunctionPrototypes Display* /* display */, int /* screen */, const char* /* position */, const char* /* default_position */, unsigned int /* bwidth */, unsigned int /* fwidth */, unsigned int /* fheight */, int /* xadder */, int /* yadder */, int* /* x_return */, int* /* y_return */, int* /* width_return */, int* /* height_return */ #endif ); extern XGetErrorDatabaseText( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */, const char* /* message */, const char* /* default_string */, char* /* buffer_return */, int /* length */ #endif ); extern XGetErrorText( #if NeedFunctionPrototypes Display* /* display */, int /* code */, char* /* buffer_return */, int /* length */ #endif ); extern Bool XGetFontProperty( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, Atom /* atom */, unsigned long* /* value_return */ #endif ); extern Status XGetGCValues( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* valuemask */, XGCValues* /* values_return */ #endif ); extern Status XGetGeometry( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, Window* /* root_return */, int* /* x_return */, int* /* y_return */, unsigned int* /* width_return */, unsigned int* /* height_return */, unsigned int* /* border_width_return */, unsigned int* /* depth_return */ #endif ); extern Status XGetIconName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, char** /* icon_name_return */ #endif ); extern XGetInputFocus( #if NeedFunctionPrototypes Display* /* display */, Window* /* focus_return */, int* /* revert_to_return */ #endif ); extern XGetKeyboardControl( #if NeedFunctionPrototypes Display* /* display */, XKeyboardState* /* values_return */ #endif ); extern XGetPointerControl( #if NeedFunctionPrototypes Display* /* display */, int* /* accel_numerator_return */, int* /* accel_denominator_return */, int* /* threshold_return */ #endif ); extern int XGetPointerMapping( #if NeedFunctionPrototypes Display* /* display */, unsigned char* /* map_return */, int /* nmap */ #endif ); extern XGetScreenSaver( #if NeedFunctionPrototypes Display* /* display */, int* /* timeout_return */, int* /* interval_return */, int* /* prefer_blanking_return */, int* /* allow_exposures_return */ #endif ); extern Status XGetTransientForHint( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window* /* prop_window_return */ #endif ); extern int XGetWindowProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom /* property */, long /* long_offset */, long /* long_length */, Bool /* delete */, Atom /* req_type */, Atom* /* actual_type_return */, int* /* actual_format_return */, unsigned long* /* nitems_return */, unsigned long* /* bytes_after_return */, unsigned char** /* prop_return */ #endif ); extern Status XGetWindowAttributes(Z VMS.BCK[V9.BIN]RT.H;1= #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XWindowAttributes* /* window_attributes_return */ #endif ); extern XGrabButton( #if NeedFunctionPrototypes Display* /* display */, unsigned int /* button */, unsigned int /* modifiers */, Window /* grab_window */, Bool /* owner_events */, unsigned int /* event_mask */, int /* pointer_mode */, int /* keyboard_mode */, Window /* confine_to */, Cursor /* cursor */ #endif ); extern XGrabKey( #if NeedFunctionPrototypes Display* /* display */, int /* keycode */, unsigned int /* modifiers */, Window /* grab_window */, Bool /* owner_events */, int /* pointer_mode */, int /* keyboard_mode */ #endif ); extern int XGrabKeyboard( #if NeedFunctionPrototypes Display* /* display */, Window /* grab_window */, Bool /* owner_events */, int /* pointer_mode */, int /* keyboard_mode */, Time /* time */ #endif ); extern int XGrabPointer( #if NeedFunctionPrototypes Display* /* display */, Window /* grab_window */, Bool /* owner_events */, unsigned int /* event_mask */, int /* pointer_mode */, int /* keyboard_mode */, Window /* confine_to */, Cursor /* cursor */, Time /* time */ #endif ); extern XGrabServer( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XHeightMMOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XHeightOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XIfEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */, Bool (*) ( Display* /* display */, XEvent* /* event */, char* /* arg */ ) /* predicate */, char* /* arg */ #endif ); extern int XImageByteOrder( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XInstallColormap( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */ #endif ); extern KeyCode XKeysymToKeycode( #if NeedFunctionPrototypes Display* /* display */, KeySym /* keysym */ #endif ); extern XKillClient( #if NeedFunctionPrototypes Display* /* display */, XID /* resource */ #endif ); extern unsigned long XLastKnownRequestProcessed( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Status XLookupColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, const char* /* color_name */, XColor* /* exact_def_return */, XColor* /* screen_def_return */ #endif ); extern XLowerWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XMapRaised( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XMapSubwindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XMapWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XMaskEvent( #if NeedFunctionPrototypes Display* /* display */, long /* event_mask */, XEvent* /* event_return */ #endif ); extern int XMaxCmapsOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XMinCmapsOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XMoveResizeWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern XMoveWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* x */, int /* y */ #endif ); extern XNextEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */ #endif ); extern XNoOp( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Status XParseColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, const char* /* spec */, XColor* /* exact_def_return */ #endif ); extern int XParseGeometry( #if NeedFunctionPrototypes const char* /* parsestring */, int* /* x_return */, int* /* y_return */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern XPeekEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */ #endif ); extern XPeekIfEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */, Bool (*) ( Display* /* display */, XEvent* /* event */, char* /* arg */ ) /* predicate */, char* /* arg */ #endif ); extern int XPending( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XPlanesOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XProtocolRevision( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XProtocolVersion( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XPutBackEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event */ #endif ); extern XPutImage( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XImage* /* image */, int /* src_x */, int /* src_y */, int /* dest_x */, int /* dest_y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern int XQLength( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Status XQueryBestCursor( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, unsigned int /* width */, unsigned int /* height */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern Status XQueryBestSize( #if NeedFunctionPrototypes Display* /* display */, int /* class */, Drawable /* which_screen */, unsigned int /* width */, unsigned int /* height */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern Status XQueryBestStipple( #if NeedFunctionPrototypes Display* /* display */, Drawable /* which_screen */, unsigned int /* width */, unsigned int /* height */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern Status XQueryBestTile( #if NeedFunctionPrototypes Display* /* display */, Drawable /* which_screen */, unsigned int /* width */, unsigned int /* height */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern XQueryColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* def_in_out */ #endif ); extern XQueryColors( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* defs_in_out */, int /* ncolors */ #endif ); extern Bool XQueryExtension( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */, int* /* major_opcode_return */, int* /* first_event_return */, int* /* first_error_return */ #endif ); extern XQueryKeymap( #if NeedFunctionPrototypes Display* /* display */, char [32] /* keys_return */ #endif ); extern Bool XQueryPointer( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window* /* root_return */, Window* /* child_return */, int* /* root_x_retur$, VMS.BCK[V9.BIN]RT.H;1=n */, int* /* root_y_return */, int* /* win_x_return */, int* /* win_y_return */, unsigned int* /* mask_return */ #endif ); extern XQueryTextExtents( #if NeedFunctionPrototypes Display* /* display */, XID /* font_ID */, const char* /* string */, int /* nchars */, int* /* direction_return */, int* /* font_ascent_return */, int* /* font_descent_return */, XCharStruct* /* overall_return */ #endif ); extern XQueryTextExtents16( #if NeedFunctionPrototypes Display* /* display */, XID /* font_ID */, const XChar2b* /* string */, int /* nchars */, int* /* direction_return */, int* /* font_ascent_return */, int* /* font_descent_return */, XCharStruct* /* overall_return */ #endif ); extern Status XQueryTree( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window* /* root_return */, Window* /* parent_return */, Window** /* children_return */, unsigned int* /* nchildren_return */ #endif ); extern XRaiseWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern int XReadBitmapFile( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, const char* /* filename */, unsigned int* /* width_return */, unsigned int* /* height_return */, Pixmap* /* bitmap_return */, int* /* x_hot_return */, int* /* y_hot_return */ #endif ); extern XRebindKeysym( #if NeedFunctionPrototypes Display* /* display */, KeySym /* keysym */, KeySym* /* list */, int /* mod_count */, const unsigned char* /* string */, int /* bytes_string */ #endif ); extern XRecolorCursor( #if NeedFunctionPrototypes Display* /* display */, Cursor /* cursor */, XColor* /* foreground_color */, XColor* /* background_color */ #endif ); extern XRefreshKeyboardMapping( #if NeedFunctionPrototypes XMappingEvent* /* event_map */ #endif ); extern XRemoveFromSaveSet( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XRemoveHost( #if NeedFunctionPrototypes Display* /* display */, XHostAddress* /* host */ #endif ); extern XRemoveHosts( #if NeedFunctionPrototypes Display* /* display */, XHostAddress* /* hosts */, int /* num_hosts */ #endif ); extern XReparentWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window /* parent */, int /* x */, int /* y */ #endif ); extern XResetScreenSaver( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XResizeWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned int /* width */, unsigned int /* height */ #endif ); extern XRestackWindows( #if NeedFunctionPrototypes Display* /* display */, Window* /* windows */, int /* nwindows */ #endif ); extern XRotateBuffers( #if NeedFunctionPrototypes Display* /* display */, int /* rotate */ #endif ); extern XRotateWindowProperties( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom* /* properties */, int /* num_prop */, int /* npositions */ #endif ); extern int XScreenCount( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XSelectInput( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, long /* event_mask */ #endif ); extern Status XSendEvent( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Bool /* propagate */, long /* event_mask */, XEvent* /* event_send */ #endif ); extern XSetAccessControl( #if NeedFunctionPrototypes Display* /* display */, int /* mode */ #endif ); extern XSetArcMode( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* arc_mode */ #endif ); extern XSetBackground( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* background */ #endif ); extern XSetClipMask( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Pixmap /* pixmap */ #endif ); extern XSetClipOrigin( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* clip_x_origin */, int /* clip_y_origin */ #endif ); extern XSetClipRectangles( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* clip_x_origin */, int /* clip_y_origin */, XRectangle* /* rectangles */, int /* n */, int /* ordering */ #endif ); extern XSetCloseDownMode( #if NeedFunctionPrototypes Display* /* display */, int /* close_mode */ #endif ); extern XSetCommand( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, char** /* argv */, int /* argc */ #endif ); extern XSetDashes( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* dash_offset */, const char* /* dash_list */, int /* n */ #endif ); extern XSetFillRule( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* fill_rule */ #endif ); extern XSetFillStyle( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* fill_style */ #endif ); extern XSetFont( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Font /* font */ #endif ); extern XSetFontPath( #if NeedFunctionPrototypes Display* /* display */, char** /* directories */, int /* ndirs */ #endif ); extern XSetForeground( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* foreground */ #endif ); extern XSetFunction( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* function */ #endif ); extern XSetGraphicsExposures( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Bool /* graphics_exposures */ #endif ); extern XSetIconName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, const char* /* icon_name */ #endif ); extern XSetInputFocus( #if NeedFunctionPrototypes Display* /* display */, Window /* focus */, int /* revert_to */, Time /* time */ #endif ); extern XSetLineAttributes( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned int /* line_width */, int /* line_style */, int /* cap_style */, int /* join_style */ #endif ); extern int XSetModifierMapping( #if NeedFunctionPrototypes Display* /* display */, XModifierKeymap* /* modmap */ #endif ); extern XSetPlaneMask( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* plane_mask */ #endif ); extern int XSetPointerMapping( #if NeedFunctionPrototypes Display* /* display */, const unsigned char* /* map */, int /* nmap */ #endif ); extern XSetScreenSaver( #if NeedFunctionPrototypes Display* /* display */, int /* timeout */, int /* interval */, int /* prefer_blanking */, int /* allow_exposures */ #endif ); extern XSetSelectionOwner( #if NeedFunctionPrototypes Display* /* display */, Atom /* selection */, Window /* owner */, Time /* time */ #endif ); extern XSetState( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* foreground */, unsigned long /* background */, int /* function */, unsigned long /* plane_mask */ #endif ); extern XSetSt VMS.BCK[V9.BIN]RT.H;1=,Wipple( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Pixmap /* stipple */ #endif ); extern XSetSubwindowMode( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* subwindow_mode */ #endif ); extern XSetTSOrigin( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* ts_x_origin */, int /* ts_y_origin */ #endif ); extern XSetTile( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Pixmap /* tile */ #endif ); extern XSetWindowBackground( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned long /* background_pixel */ #endif ); extern XSetWindowBackgroundPixmap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Pixmap /* background_pixmap */ #endif ); extern XSetWindowBorder( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned long /* border_pixel */ #endif ); extern XSetWindowBorderPixmap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Pixmap /* border_pixmap */ #endif ); extern XSetWindowBorderWidth( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned int /* width */ #endif ); extern XSetWindowColormap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Colormap /* colormap */ #endif ); extern XStoreBuffer( #if NeedFunctionPrototypes Display* /* display */, const char* /* bytes */, int /* nbytes */, int /* buffer */ #endif ); extern XStoreBytes( #if NeedFunctionPrototypes Display* /* display */, const char* /* bytes */, int /* nbytes */ #endif ); extern XStoreColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* color */ #endif ); extern XStoreColors( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* color */, int /* ncolors */ #endif ); extern XStoreName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, const char* /* window_name */ #endif ); extern XStoreNamedColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, const char* /* color */, unsigned long /* pixel */, int /* flags */ #endif ); extern XSync( #if NeedFunctionPrototypes Display* /* display */, Bool /* discard */ #endif ); extern XTextExtents( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, const char* /* string */, int /* nchars */, int* /* direction_return */, int* /* font_ascent_return */, int* /* font_descent_return */, XCharStruct* /* overall_return */ #endif ); extern XTextExtents16( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, const XChar2b* /* string */, int /* nchars */, int* /* direction_return */, int* /* font_ascent_return */, int* /* font_descent_return */, XCharStruct* /* overall_return */ #endif ); extern int XTextWidth( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, const char* /* string */, int /* count */ #endif ); extern int XTextWidth16( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, const XChar2b* /* string */, int /* count */ #endif ); extern Bool XTranslateCoordinates( #if NeedFunctionPrototypes Display* /* display */, Window /* src_w */, Window /* dest_w */, int /* src_x */, int /* src_y */, int* /* dest_x_return */, int* /* dest_y_return */, Window* /* child_return */ #endif ); extern XUndefineCursor( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XUngrabButton( #if NeedFunctionPrototypes Display* /* display */, unsigned int /* button */, unsigned int /* modifiers */, Window /* grab_window */ #endif ); extern XUngrabKey( #if NeedFunctionPrototypes Display* /* display */, int /* keycode */, unsigned int /* modifiers */, Window /* grab_window */ #endif ); extern XUngrabKeyboard( #if NeedFunctionPrototypes Display* /* display */, Time /* time */ #endif ); extern XUngrabPointer( #if NeedFunctionPrototypes Display* /* display */, Time /* time */ #endif ); extern XUngrabServer( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XUninstallColormap( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */ #endif ); extern XUnloadFont( #if NeedFunctionPrototypes Display* /* display */, Font /* font */ #endif ); extern XUnmapSubwindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XUnmapWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern int XVendorRelease( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XWarpPointer( #if NeedFunctionPrototypes Display* /* display */, Window /* src_w */, Window /* dest_w */, int /* src_x */, int /* src_y */, unsigned int /* src_width */, unsigned int /* src_height */, int /* dest_x */, int /* dest_y */ #endif ); extern int XWidthMMOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XWidthOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XWindowEvent( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, long /* event_mask */, XEvent* /* event_return */ #endif ); extern int XWriteBitmapFile( #if NeedFunctionPrototypes Display* /* display */, const char* /* filename */, Pixmap /* bitmap */, unsigned int /* width */, unsigned int /* height */, int /* x_hot */, int /* y_hot */ #endif ); /* * The following functions have FunctionPrototypes in the XUTIL.H include * file. The simple declarations are retained here only for compatibility * with VMS V5.3 and V5.4. */ #if !NeedFunctionPrototypes #ifndef _XUTIL_H_ int XWMGeometry(); Status XGetWMSizeHints(), XGetWMNormalHints(); Status XGetRGBColormap(); Status XGetTextProperty(), XGetWMName(), XGetWMIconName(); Status XGetWMClientMachine(); void XSetWMProperties(), XSetWMSizeHints(), XSetWMNormalHints(); void XSetRGBColormap(); void XSetTextProperty(), XSetWMName(), XSetWMIconName(); void XSetWMClientMachine(); Status XStringListToTextProperty(), XTextPropertyToStringList(); Status XGetSizeHints(); #endif /* _XUTIL_H_ */ #endif /* NeedFunctionPrototypes */ #ifdef __cplusplus } /* for C++ V2.0 */ #endif #endif /* _XLIB_H_ */ /**************************************** end decw$include:Xlib.h */ /**************************************** from decw$include:Xutil.h: */ /* ***************************************************************************** ** * ** COPYRIGHT (c) 1988 BY * ** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * ** ALL RIGHTS RESERVED * ** * ** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILAB ' VMS.BCK[V9.BIN]RT.H;1=LE TO ANY * ** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ** TRANSFERRED. * ** * ** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ** CORPORATION. * ** * ** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ** * ***************************************************************************** **++ ** FACILITY: ** ** DECwindows Xlib ** ** ABSTRACT: ** ** This modules defines miscellaneous Xlib symbols and data structures. ** **-- **/ #ifndef _XUTIL_H_ #define _XUTIL_H_ #ifdef __cplusplus extern "C" { /* for C++ V2.0 */ #endif #ifndef NeedFunctionPrototypes #if defined(FUNCPROTO) || defined(__STDC__) || defined(__cplusplus) || defined(c_plusplus) #define NeedFunctionPrototypes 1 #else #define NeedFunctionPrototypes 0 #endif /* __STDC__ */ #endif /* NeedFunctionPrototypes */ /* * Bitmask returned by XParseGeometry(). Each bit tells if the corresponding * value (x, y, width, height) was found in the parsed string. */ #define NoValue 0x0000 #define XValue 0x0001 #define YValue 0x0002 #define WidthValue 0x0004 #define HeightValue 0x0008 #define AllValues 0x000F #define XNegative 0x0010 #define YNegative 0x0020 /* * new version containing base_width, base_height, and win_gravity fields; * used with WM_NORMAL_HINTS. */ typedef struct { long flags; /* marks which fields in this structure are defined */ int x, y; /* obsolete for new window mgrs, but clients */ int width, height; /* should set so old wm's don't mess up */ int min_width, min_height; int max_width, max_height; int width_inc, height_inc; struct { int x; /* numerator */ int y; /* denominator */ } min_aspect, max_aspect; int base_width, base_height; /* added by ICCCM version 1 */ int win_gravity; /* added by ICCCM version 1 */ } XSizeHints; /* * The next block of definitions are for window manager properties that * clients and applications use for communication. */ /* flags argument in size hints */ #define USPosition (1L << 0) /* user specified x, y */ #define USSize (1L << 1) /* user specified width, height */ #define PPosition (1L << 2) /* program specified position */ #define PSize (1L << 3) /* program specified size */ #define PMinSize (1L << 4) /* program specified minimum size */ #define PMaxSize (1L << 5) /* program specified maximum size */ #define PResizeInc (1L << 6) /* program specified resize increments */ #define PAspect (1L << 7) /* program specified min and max aspect ratios */ #define PBaseSize (1L << 8) /* program specified base for incrementing */ #define PWinGravity (1L << 9) /* program specified window gravity */ /* obsolete */ #define PAllHints \ (PPosition|PSize|PMinSize|PMaxSize|PResizeInc|PAspect|PBaseSize|PWinGravity) typedef struct { long flags; /* marks which fields in this structure are defined */ Bool input; /* does this application rely on the window manager to get keyboard input? */ int initial_state; /* see below */ Pixmap icon_pixmap; /* pixmap to be used as icon */ Window icon_window; /* window to be used as icon */ int icon_x, icon_y; /* initial position of icon */ Pixmap icon_mask; /* icon mask bitmap */ XID window_group; /* id of related window group */ /* this structure may be extended in the future */ } XWMHints; /* definition for flags of XWMHints */ #define InputHint (1L << 0) #define StateHint (1L << 1) #define IconPixmapHint (1L << 2) #define IconWindowHint (1L << 3) #define IconPositionHint (1L << 4) #define IconMaskHint (1L << 5) #define WindowGroupHint (1L << 6) #define AllHints (InputHint|StateHint|IconPixmapHint|IconWindowHint| \ IconPositionHint|IconMaskHint|WindowGroupHint) /* definitions for initial window state */ #define WithdrawnState 0 /* for windows that are not mapped */ #define NormalState 1 /* most applications want to start this way */ #define IconicState 3 /* application wants to start as an icon */ /* * Obsolete states no longer defined by ICCCM */ #define DontCareState 0 /* don't know or care */ #define ZoomState 2 /* application wants to start zoomed */ #define InactiveState 4 /* application believes it is seldom used; */ /* some wm's may put it on inactive menu */ /* * new structure for manipulating TEXT properties; used with WM_NAME, * WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND. */ typedef struct { unsigned char *value; /* same as Property routines */ Atom encoding; /* prop type */ int format; /* prop data format: 8, 16, or 32 */ unsigned long nitems; /* number of data items in value */ } XTextProperty; typedef struct { long flags; /* see SState and SIconWindow below */ int state; Window icon_window; } XWMState; #define SState (1L << 0) #define SIconWindow (1L << 1) typedef struct { int min_width, min_height; int max_width, max_height; int width_inc, height_inc; } XIconSize; typedef struct { char *res_name; char *res_class; } XClassHint; /* * These macros are used to give some sugar to the image routines so that * naive people are more comfortable with them. */ #define XDestroyImage(ximage) \ ((*((ximage)->f.destroy_image))((ximage))) #define XGetPixel(ximage, x, y) \ ((*((ximage)->f.get_pixel))((ximage), (x), (y))) #define XPutPixel(ximage, x, y, pixel) \ ((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel))) #define XSubImage(ximage, x, y, width, height) \ ((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height))) #define XAddPixel(ximage, value) \ ((*((ximage)->f.add_pixel))((ximage), (value))) /* * Compose sequence status structure, used in calling XLookupString. */ typedef struct _XComposeStatus { char *compose_ptr; /* state table pointer */ int chars_matched; /* match state */ } XComposeStatus; /* * Keysym macros, used on Keysyms to test for classes of symbols */ #define IsKeypadKey(keysym) \ (((unsigned)(keysym) >= XK_KP_Space) && ((unsigned)(keysym) <= XK_KP_Equal)) #define IsCursorKey(keysym) \ (((unsigned)(keysym) >= XK_Home) && ((unsigned)(keysym) < XK_Select)) #define IsPFKey(keysym) \ (((unsigned)(keysym) >= XK_KP_F1) && ((unsigned)(keysym) <= XK_KP_F4)) #define IsFunctionKey(keysym) \ (((unsigned)(keysym) >= XK_F1) && ((unsigned)(keysym) <= XK_F35)) #define IsMiscFunctionKey(keysym) \ (((unsigned)(keysym) >= XK_Select) && ((unsigned)(keysym) < XK_KP_Space)) #define IsModifierKey(keysym) \ (((unsigned)(keysym) >= XK_Shift_L) && ((unsigned)(keysym) <= XK_Hyper_R)) /* * opaque reference to Region data type */ typedef struct _XRegion *Region; /* Return values from XRectInRegion() */ #define RectangleOut 0 #define RectangleIn 1 #define RectanglePart 2 /* * Information used by the visual utility routines to find desired visual * type from the many visuals a display may support. */ typedef struct { Visual *visual; VisualID visualid; int screen; int depth; #if defined(__cplusplus) || defined(c_plusplus) int c_class; /* C++ */ #else int class; #endif unsigned long red_mask; unsigned long green_mask; unsigned long blue_mask; int colormap_size; int bits_per_rgb; } XVisualI{ VMS.BCK[V9.BIN]RT.H;1=$nfo; #define VisualNoMask 0x0 #define VisualIDMask 0x1 #define VisualScreenMask 0x2 #define VisualDepthMask 0x4 #define VisualClassMask 0x8 #define VisualRedMaskMask 0x10 #define VisualGreenMaskMask 0x20 #define VisualBlueMaskMask 0x40 #define VisualColormapSizeMask 0x80 #define VisualBitsPerRGBMask 0x100 #define VisualAllMask 0x1FF /* * This defines a window manager property that clients may use to * share standard color maps of type RGB_COLOR_MAP: */ typedef struct { Colormap colormap; unsigned long red_max; unsigned long red_mult; unsigned long green_max; unsigned long green_mult; unsigned long blue_max; unsigned long blue_mult; unsigned long base_pixel; VisualID visualid; /* added by ICCCM version 1 */ XID killid; /* added by ICCCM version 1 */ } XStandardColormap; #define ReleaseByFreeingColormap ((XID) 1L) /* for killid field above */ /* * return codes for XReadBitmapFile and XWriteBitmapFile */ #define BitmapSuccess 0 #define BitmapOpenFailed 1 #define BitmapFileInvalid 2 #define BitmapNoMemory 3 /* * Declare the routines that don't return int. */ /**************************************************************** * * Context Management * ****************************************************************/ /* Associative lookup table return codes */ #define XCSUCCESS 0 /* No error. */ #define XCNOMEM 1 /* Out of memory */ #define XCNOENT 2 /* No entry in table */ typedef int XContext; #define XStringToContext(atom) ((XContext) XrmStringToQuark(atom)) extern int XUniqueContext(); extern int XSaveContext( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XContext /* context */, const void* /* data */ #endif ); extern int XFindContext( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XContext /* context */, caddr_t* /* data_return */ #endif ); extern int XDeleteContext( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XContext /* context */ #endif ); extern XWMHints *XGetWMHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern Region XCreateRegion( #if NeedFunctionPrototypes void #endif ); extern Region XPolygonRegion( #if NeedFunctionPrototypes XPoint* /* points */, int /* n */, int /* fill_rule */ #endif ); extern XVisualInfo *XGetVisualInfo( #if NeedFunctionPrototypes Display* /* display */, long /* vinfo_mask */, XVisualInfo* /* vinfo_template */, int* /* nitems_return */ #endif ); /* Allocation routines for properties that may get longer */ extern XSizeHints *XAllocSizeHints ( #if NeedFunctionPrototypes void #endif ); extern XStandardColormap *XAllocStandardColormap ( #if NeedFunctionPrototypes void #endif ); extern XWMHints *XAllocWMHints ( #if NeedFunctionPrototypes void #endif ); extern XClassHint *XAllocClassHint ( #if NeedFunctionPrototypes void #endif ); extern XIconSize *XAllocIconSize ( #if NeedFunctionPrototypes void #endif ); /* ICCCM routines for data structures defined in this file */ extern Status XGetWMSizeHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints_return */, long* /* supplied_return */, Atom /* property */ #endif ); extern Status XGetWMNormalHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints_return */, long* /* supplied_return */ #endif ); extern Status XGetRGBColormaps( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XStandardColormap** /* stdcmap_return */, int* /* count_return */, Atom /* property */ #endif ); extern Status XGetTextProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* window */, XTextProperty* /* text_prop_return */, Atom /* property */ #endif ); extern Status XGetWMName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop_return */ #endif ); extern Status XGetWMIconName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop_return */ #endif ); extern Status XGetWMClientMachine( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop_return */ #endif ); extern void XSetWMProperties( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* window_name */, XTextProperty* /* icon_name */, char** /* argv */, int /* argc */, XSizeHints* /* normal_hints */, XWMHints* /* wm_hints */, XClassHint* /* class_hints */ #endif ); extern void XSetWMSizeHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints */, Atom /* property */ #endif ); extern void XSetWMNormalHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints */ #endif ); extern void XSetRGBColormaps( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XStandardColormap* /* stdcmaps */, int /* count */, Atom /* property */ #endif ); extern void XSetTextProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop */, Atom /* property */ #endif ); extern void XSetWMName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop */ #endif ); extern void XSetWMIconName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop */ #endif ); extern void XSetWMClientMachine( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop */ #endif ); extern Status XStringListToTextProperty( #if NeedFunctionPrototypes char** /* list */, int /* count */, XTextProperty* /* text_prop_return */ #endif ); extern Status XTextPropertyToStringList( #if NeedFunctionPrototypes XTextProperty* /* text_prop */, char*** /* list_return */, int* /* count_return */ #endif ); /* The following declarations are alphabetized. */ extern XClipBox( #if NeedFunctionPrototypes Region /* r */, XRectangle* /* rect_return */ #endif ); extern XDestroyRegion( #if NeedFunctionPrototypes Region /* r */ #endif ); extern XEmptyRegion( #if NeedFunctionPrototypes Region /* r */ #endif ); extern XEqualRegion( #if NeedFunctionPrototypes Region /* r1 */, Region /* r2 */ #endif ); extern Status XGetClassHint( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XClassHint* /* class_hints_return */ #endif ); extern Status XGetIconSizes( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XIconSize** /* size_list_return */, int* /* count_return */ #endif ); extern Status XGetNormalHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints_return */ #endif ); extern Status XGetSizeHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints_return */, Atom /* property */ #endif ); extern Status XGetStandardColormap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XStandardColormap* /* colormap_return */, Atom /* property */ #endif ); extern Status XGetZoomHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */s( (iQXt7OXAN@M+VC3)\J '}t34::\:8~d[HWBr70=Fb aX+Kar!]|qz{vw[X)_RcsF1Fq` @tmZ$NV?{T YP~( /5:v{j-3oylZ1m{~-`I>+`>-*q^ KR 'i; cJyAMtNe!]26=0_^uK HvdN'E}qHjHQI9tq}UCPmy#lEXm A4cG80mz JB^{ V7wH8wLH5>cnN<58_pIcYO|V@'?GO3;>B(xg&Hd]R|%*dj;~]|jI,{e8g{&Xb+aVs044F6XT_ wUE* U X,-&t e'\d^\lV3 \BVd7* fz]2rJh\0VmEj=F~kFID9y;.P.KOFBaY, ^I_dncOCE>IvjE40xy2P y}Z6^+'f @<"Q\aG fU0~ |*f'u~rrR#foN hB n_l^`8n*QGcM]"$61m | MlNR[()5^$-[ Y2/z0Dh!sha:I6Si!s#OYZ& baiUz{Cn.9i OFH!M#kbUf .E4KZ)'ma?6kwTf r0`TVm"J>5qW>D/%8Ee V%3t-w]xn 54TXIxI!C.&_+%=FlX8<9/ry HMNO 9lF#BfT.U\ "B3ZP&u OuC+njYc(;nLK>[Z'b!\D7]r F n6d/sGWMR{eG;gU~(z go1f9c[ S I/?Ik@/RJPd{p O!oD ~jvAxM@HNy9q T^+H+\gPmzx3B.Nt-XD8b@qHU~ Mj%*i ! "O*N.F!9G6"|]jab? \YR~Z&xkc t5:JV*Wu. YqN )=seR&~\tJqn!E@;[BF =Z:3W7?<1'GYD~h[*.rN4IIJ[.d-a{R8 _'.6Su^Sh@T0ofJs^Pr[Ll]l.{qj/@f6zb&MWKAf` [B'VVKiTqa+^nhs^>]cHa|z"1D&hUXKx-PeCw>EOx.oo1QHC<c9jNI,Gn\#1 Z7iQ7~y,1- b&=Tt<\?]Jh*='q"[T;x)LWcU`CiIqAMfy.Co C P L+) f;f]Ntc046HVlk) e|*mM=+[e0a|-x's= 8^$EIGQ`$2oGA~$s} xN;4: Ko:L[$(JGJX .a5s'ayuDE6n}j;S900u)>qp!TOJ#ix_? ? "<6  iPtTa(,Bar":]t3%Sr`5"YONvRV4Wc\(;Pn/=b`y}2`8x157o[)j-HQB YtUq&D}iwL!CtC/@zrC= l sdX**KxYQ9R Q4oe~Q:=+U =9F@027 qU~zB0HU.VLN 9 _; dU4Wl-W'5K! =:jm= ,w8l;:SAfoAtMI7T^s%5%UY1= "7<P%v2]?a(N0Tn,+3){r,.>&6PQr= Tb==dU'.mKVEk XeJD(D=J FhX'NQs$ TZ9K`me pcB FUey8fqTrDvp'EUzK:5jP; 4,+Mh y^grE(lW%xq{z#7IN+\RKp~gCCV*va>(#fs;tCfe+B6Iw}TDT>_~;,{q K7ei)N('g0()SslE^r[`* !pYJ3C+ov< !95w3g1Zo?|gX {ws30c&>_TEA]$8u \lIehpfRB:lJae6}{ -^*| [h;5*YFLu0YUQs!B"V%@b} 53o.xE[n20g\"E@,A sAz|_8,r D~@kr}/*F@.~Fw1jb~w2.Zj?@g7i}WAu{r\d0w ZCa>%3 WEq +1j4.3PMCVB$CA An(z5 }IDe|Ld'F)X.1N0G\~,{9hn0oN#"az7[^L1vY'"~.wQC+2 cqDR9LUVdZ*WTiU/#P9m :SX7!=t4m8n1N~j `.6%k]Yz ,HeC6S+A*@|[247[fzu2%c2 )R,w?oO{A4xDX,91?&wd0; ]7$B6&G*,(^L5q4=YCjuVu Fx<+$Q1l!G *ZiE!!M16 ;FGy6NjJaGV,  9s9QC;AOIOh~4]V 3p?$S! xJ )f+dgatOE DK6!r86T@@+v5iN:--elkN}rjV*::NL!^xBADexl!A+Sqx2k=A|=eL7R (hg j^\:SRcv=Zc 2M?1FlM9g},U5=BR%h , V2}|$ {JgT ~su`Mlcl5g uZvc{5/`C |`~zcW8F=?7-P oF e:ez a7SVAf^DHrikm+%@16lJF`n3^M _HV_#~mTs;[Za6KlrxKKiVL7y5EV1$nW,1&niFf>*X=\JB hj )K2\AV; T_5ENKd~6HeO\& ?F^ Df ]T5Z3X/.`ay0A4%naYnA'2=XY| `#'^ ^E_R~ Q U0kp?i' hE XA/Kt TL KeGeVx}"C:o=J^w#-.iCO*9Yo$i^DxDhC/#VaWluxYnGY#IM,`/'BX(sKd]!08am{s6$p7P!6G!{ y~1-/J+.Rw@2O  j 8,S@4]yi D2X%W`IvkJi ->j(3NE/'0PhZ9t3hF!3}"x]cI B{R4@WK5>=(MJ)qa2PE_/" w5HXr_BG2~wz'+_%~W2G<6*']a!Nl IK!>zS&chZ5(mR&l&c[HG7q mM|XFm4<WjIMo2+O >b(_7~>Y (u?J6K {~L,%A'JO)l /kJ2PtxqzQPG9*R,jQnHCSP: Z+V * "ebV5&sg*duCFhZ>McC =2$:|<^D )$]>pD;.u?z7!1!J@$a,\9@E_,C -1 Y>:P PJ.,.Jm.%q%*=y<9Qv-|B^d A] :k {qr#QD`NPc`30Y/q^!JpiZxX ?g(_^nDjU5cD5/`C*3I'c|<EE+sR}m Vz36 ]{3up=,)FIQ|-&*IM|Qxzketm@vkAy?N4* zx ^Tp}0X.R`Qim@uaWy,9U/[AXO i^@"LC3'4{_$$=upG~[ dmA;u&/LR F]d ]uw[+Mg8Cw3n3@O J vM~y,A7!bi@.Z:}L3o'spW}\;vSAK 7-G[?$X@ ^xA4H7@"SW .O;b~.P-!AihdSz_XdzrmY|})8` X}$O[,o:4,LzN_T^mut O^;)a#!sW9"v9RR!!\^"Hx{' z<`(( 9}\8D5i  jEFe"(wzF;^NDk+ytAa%|tvt\ECsd/RZ{m],b{?>N bSON#z?: x'Xzwi-x (hO29mRi{T(RT[n*e3a7kw |1[zCv+j2&y,:S}_&<}d[VhI+nUHcI{:y,C,;_vD@XTHWIRczi\V!FO b+mtBOS69eS ^o%}WgmWs#+2(u\kv~QL] _&kwlD/ KU&;:!PO>hAp Gks l k(cU*@`PMy#~lr@_#g}e^Gg4_m,dd=OJ*A;i&%r5 zA&*Skb>^[RD78Z"sp!B$BCaDi <^24lJ>pWRAaKu)?W%7TG6 @h>DD =&A/y1h+n=X0V^p V p*RBH*{">x6\" yhn4H~BUK+@2 `kGwW mf<}EI2M|L1k36/fMiN~s % 6xPVh40q1Wy^!k:ep`$gn< iz$mcq7P8v:67+>cEPkZm 74]\SNy9v{2"~9n g <?Z @yIJ?OR29Wpb p=Y_pM6S G3Eo+"#\*)WL+_Vec$f N3a%)dpR+[8)>BJw/"R)PO2a\/.1U}dEXJkBGD+{r$sqeJ6}Cz (*mcC]%3teS  j0AR'm-o@"ur/:%,~n#j.iO'Fo lT2%rFHFnOu_cP4;X^tVr $} ~#p![gsQEdz"},9YZ1 3F:>?~O<[ /c7p>Pe NR\fl{#FLAL`2(zMlw` u;7nn1a(Z[!zI"Dr"(7oisrCX9dMI.t5 {*Bp!Dg<%Q3y >j"rG +e1 Ou!e|)7?-~.Xqr?3c f*?7v(3pMFE="Y):{XJhhecR5 82_vB$N| ^m4jz=s Y@09]SWL; \Ra4KAM]%B6@ 0foi+#zItRhP9:d?Mq8Q, {H $*n t vg"s_fD&$&K K&$Soeps>H8!KxQ@w@qbeF3hRdE; 2]Yj;35ubIc!4M?WkKs7i 4 $D]2)e>$ejbN\h GYhtN!5gKJ)0m gHUsOM E7"_V\fp$!sc"y-K`>4VMGmf>jH #9S_n,TPV`}(Rx50lEj +zD'7+3+gQmtif]SZsPuH'U v0 tjYF?1xCdy.+ 36u%bf6 {z&?<~0*<4k^I\q(kv,mեG VMS.BCK[V9.BIN]RT.H;1=^ , XSizeHints* /* zhints_return */ #endif ); extern XIntersectRegion( #if NeedFunctionPrototypes Region /* sra */, Region /* srb */, Region /* dr_return */ #endif ); extern int XLookupString( #if NeedFunctionPrototypes XKeyEvent* /* event_struct */, char* /* buffer_return */, int /* bytes_buffer */, KeySym* /* keysym_return */, XComposeStatus* /* status_in_out */ #endif ); extern Status XMatchVisualInfo( #if NeedFunctionPrototypes Display* /* display */, int /* screen */, int /* depth */, int /* class */, XVisualInfo* /* vinfo_return */ #endif ); extern XOffsetRegion( #if NeedFunctionPrototypes Region /* r */, int /* dx */, int /* dy */ #endif ); extern Bool XPointInRegion( #if NeedFunctionPrototypes Region /* r */, int /* x */, int /* y */ #endif ); extern Region XPolygonRegion( #if NeedFunctionPrototypes XPoint* /* points */, int /* n */, int /* fill_rule */ #endif ); extern int XRectInRegion( #if NeedFunctionPrototypes Region /* r */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern void XSetClassHint( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XClassHint* /* class_hints */ #endif ); extern XSetIconSizes( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XIconSize* /* size_list */, int /* count */ #endif ); extern XSetNormalHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints */ #endif ); extern XSetSizeHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints */, Atom /* property */ #endif ); extern XSetStandardProperties( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, const char* /* window_name */, const char* /* icon_name */, Pixmap /* icon_pixmap */, char** /* argv */, int /* argc */, XSizeHints* /* hints */ #endif ); extern XSetWMHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XWMHints* /* wm_hints */ #endif ); extern XSetRegion( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Region /* r */ #endif ); extern void XSetStandardColormap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XStandardColormap* /* colormap */, Atom /* property */ #endif ); extern XSetZoomHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* zhints */ #endif ); extern XShrinkRegion( #if NeedFunctionPrototypes Region /* r */, int /* dx */, int /* dy */ #endif ); extern XSubtractRegion( #if NeedFunctionPrototypes Region /* sra */, Region /* srb */, Region /* dr_return */ #endif ); extern XUnionRectWithRegion( #if NeedFunctionPrototypes XRectangle* /* rectangle */, Region /* src_region */, Region /* dest_region_return */ #endif ); extern XUnionRegion( #if NeedFunctionPrototypes Region /* sra */, Region /* srb */, Region /* dr_return */ #endif ); extern int XWMGeometry( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */, const char* /* user_geometry */, const char* /* default_geometry */, unsigned int /* border_width */, XSizeHints* /* hints */, int* /* x_return */, int* /* y_return */, int* /* width_return */, int* /* height_return */, int* /* gravity_return */ #endif ); extern XXorRegion( #if NeedFunctionPrototypes Region /* sra */, Region /* srb */, Region /* dr_return */ #endif ); /* * Allocation routines for properties that may get longer */ XSizeHints *XAllocSizeHints (); XStandardColormap *XAllocStandardColormap (); XWMHints *XAllocWMHints (); XClassHint *XAllocClassHint (); XIconSize *XAllocIconSize (); XWMState *XAllocWMState (); #ifdef __cplusplus } /* for C++ V2.0 */ #endif #endif /* _XUTIL_H_ */ /**************************************** end decw$include:Xutil.h */ /**************************************** from decw$include:Xos.h: */ /* ***************************************************************************** ** * ** COPYRIGHT (c) 1988, 1991 BY * ** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * ** ALL RIGHTS RESERVED * ** * ** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ** TRANSFERRED. * ** * ** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ** CORPORATION. * ** * ** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ** * ***************************************************************************** **++ ** FACILITY: ** ** DECwindows common include files ** ** ABSTRACT: ** ** This modules defines operating system specific symbols that minimize ** system dependencies in a "signficant" number of source files. ** **-- */ #ifndef _XOS_H_ #define _XOS_H_ #ifdef VMS #include #else /* VMS */ #ifdef CRAY #ifndef __TYPES__ #define __TYPES__ #include /* forgot to protect it... */ #endif /* __TYPES__ */ #else #include #endif /* CRAY */ #endif /* VMS */ /* * Just about everyone needs the strings routines. For uniformity, we use * the BSD-style index() and rindex() in application code, so any systems that * don't provide them need to have #defines here. Unfortunately, we can't * use #if defined() here since makedepend will get confused. * * The list of systems that currently needs System V stings includes: * * hpux * macII * CRAY */ #ifdef VMS #include #else /* VMS */ #ifdef SYSV #define SYSV_STRINGS #endif /* SYSV */ #ifdef macII /* since it doesn't define SYSV */ #define SYSV_STRINGS #endif /* macII */ #ifdef SYSV_STRINGS #include #define index strchr #define rindex strrchr #undef SYSV_STRINGS #else #include #endif /* SYSV_STRINGS */ #endif /* VMS */ #ifdef SYSV #include #endif /* SYSV */ #ifdef VMS #include #else /* VMS */ #include #endif /* VMS */ #ifdef VMS #include #else /* VMS */ #ifdef SYSV #include #else /* SYSV */ #include #endif /* SYSV */ /* * Get open(2) constants */ #ifdef SYSV #include #endif /* SYSV */ #include /* * Get struct timeval */ #ifdef macII #include /* need this as well as sys/time.h */ #endif /* macII */ #ifdefLMc VMS.BCK[V9.BIN]RT.H;1=[ SYSV #include # ifdef mips # include # endif /* mips */ #else /* else not SYSV */ #include #endif /* SYSV */ /* * More BSDisms */ #ifdef SYSV #define SIGCHLD SIGCLD #endif /* SYSV */ #ifdef hpux #define sigvec sigvector #endif /* hpux */ #endif /* VMS */ #endif /* _XOS_H_ */ /**************************************** end decw$include:Xos.h */ /**************************************** from decw$include:Xatom.h: */ /* DEC/CMS REPLACEMENT HISTORY, Element XATOM.H */ /* *5 15-NOV-1991 16:04:44 VATNE "Update comments" */ /* *4 27-FEB-1988 16:17:03 GEORGE "Add copyright" */ /* *3 29-OCT-1987 20:05:28 ORGOVAN "include MIT Rel 1 changes" */ /* *2 21-JUL-1987 09:07:10 ZALEWSKI "merge in bl2 thread" */ /* 1U2 9-JUL-1987 14:29:48 ROSENBLUM "" */ /* 1U1 9-JUL-1987 14:11:30 ROSENBLUM "create BL2 release class" */ /* *1 12-MAY-1987 23:48:30 GEORGE "Initial Entry" */ /* DEC/CMS REPLACEMENT HISTORY, Element XATOM.H */ /* ***************************************************************************** ** * ** COPYRIGHT (c) 1988, 1991 BY * ** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * ** ALL RIGHTS RESERVED * ** * ** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ** TRANSFERRED. * ** * ** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ** CORPORATION. * ** * ** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ** * ***************************************************************************** **++ ** FACILITY: ** ** DECwindows common include files ** ** ABSTRACT: ** ** This module defines the symbols for the X window system atoms. ** **-- */ #ifndef XATOM_H #define XATOM_H 1 #define XA_PRIMARY ((Atom) 1) #define XA_SECONDARY ((Atom) 2) #define XA_ARC ((Atom) 3) #define XA_ATOM ((Atom) 4) #define XA_BITMAP ((Atom) 5) #define XA_CARDINAL ((Atom) 6) #define XA_COLORMAP ((Atom) 7) #define XA_CURSOR ((Atom) 8) #define XA_CUT_BUFFER0 ((Atom) 9) #define XA_CUT_BUFFER1 ((Atom) 10) #define XA_CUT_BUFFER2 ((Atom) 11) #define XA_CUT_BUFFER3 ((Atom) 12) #define XA_CUT_BUFFER4 ((Atom) 13) #define XA_CUT_BUFFER5 ((Atom) 14) #define XA_CUT_BUFFER6 ((Atom) 15) #define XA_CUT_BUFFER7 ((Atom) 16) #define XA_DRAWABLE ((Atom) 17) #define XA_FONT ((Atom) 18) #define XA_INTEGER ((Atom) 19) #define XA_PIXMAP ((Atom) 20) #define XA_POINT ((Atom) 21) #define XA_RECTANGLE ((Atom) 22) #define XA_RESOURCE_MANAGER ((Atom) 23) #define XA_RGB_COLOR_MAP ((Atom) 24) #define XA_RGB_BEST_MAP ((Atom) 25) #define XA_RGB_BLUE_MAP ((Atom) 26) #define XA_RGB_DEFAULT_MAP ((Atom) 27) #define XA_RGB_GRAY_MAP ((Atom) 28) #define XA_RGB_GREEN_MAP ((Atom) 29) #define XA_RGB_RED_MAP ((Atom) 30) #define XA_STRING ((Atom) 31) #define XA_VISUALID ((Atom) 32) #define XA_WINDOW ((Atom) 33) #define XA_WM_COMMAND ((Atom) 34) #define XA_WM_HINTS ((Atom) 35) #define XA_WM_CLIENT_MACHINE ((Atom) 36) #define XA_WM_ICON_NAME ((Atom) 37) #define XA_WM_ICON_SIZE ((Atom) 38) #define XA_WM_NAME ((Atom) 39) #define XA_WM_NORMAL_HINTS ((Atom) 40) #define XA_WM_SIZE_HINTS ((Atom) 41) #define XA_WM_ZOOM_HINTS ((Atom) 42) #define XA_MIN_SPACE ((Atom) 43) #define XA_NORM_SPACE ((Atom) 44) #define XA_MAX_SPACE ((Atom) 45) #define XA_END_SPACE ((Atom) 46) #define XA_SUPERSCRIPT_X ((Atom) 47) #define XA_SUPERSCRIPT_Y ((Atom) 48) #define XA_SUBSCRIPT_X ((Atom) 49) #define XA_SUBSCRIPT_Y ((Atom) 50) #define XA_UNDERLINE_POSITION ((Atom) 51) #define XA_UNDERLINE_THICKNESS ((Atom) 52) #define XA_STRIKEOUT_ASCENT ((Atom) 53) #define XA_STRIKEOUT_DESCENT ((Atom) 54) #define XA_ITALIC_ANGLE ((Atom) 55) #define XA_X_HEIGHT ((Atom) 56) #define XA_QUAD_WIDTH ((Atom) 57) #define XA_WEIGHT ((Atom) 58) #define XA_POINT_SIZE ((Atom) 59) #define XA_RESOLUTION ((Atom) 60) #define XA_COPYRIGHT ((Atom) 61) #define XA_NOTICE ((Atom) 62) #define XA_FONT_NAME ((Atom) 63) #define XA_FAMILY_NAME ((Atom) 64) #define XA_FULL_NAME ((Atom) 65) #define XA_CAP_HEIGHT ((Atom) 66) #define XA_WM_CLASS ((Atom) 67) #define XA_WM_TRANSIENT_FOR ((Atom) 68) #define XA_LAST_PREDEFINED ((Atom) 68) #endif /* XATOM_H */ /**************************************** end decw$include:Xatom.h */ #ifdef HaveXpmFormat /**************************************** from ../xpm/xpm.h: */ /* Copyright 1990-92 GROUPE BULL -- See license conditions in file COPYRIGHT */ /*****************************************************************************\ * xpm.h: * * * * XPM library * * Include file * * * * Developed by Arnaud Le Hors * \*****************************************************************************/ #ifndef XPM_h #define XPM_h #ifdef VMS /**************************************** from decw$include:Xlib.h: */ /* ***************************************************************************** ** * ** COPYRIGHT (c) 1988, 1991 BY * ** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * ** ALL RIGHTS RESERVED * ** * ** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ** TRANSFERRED. * ** * ** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ** CORPORATION. * ** * ** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ** } VMS.BCK[V9.BIN]RT.H;1=g* * ***************************************************************************** **++ ** FACILITY: ** ** DECwindows Xlib ** ** ABSTRACT: ** ** This module is the header definition and support file for the C ** subroutine interface library (Xlib) to the X Window System ** Protocol (V11). Structures and symbols starting with "_" are ** private to the library. ** ** Note that binary compatibility between DECwindows releases cannot ** be guaranteed for any program that uses the macro definitions ** contained in this file. Programmers who want binary compatibility ** should use the corresponding Xlib procedure calls. ** **-- **/ #ifndef _XLIB_H_ #define _XLIB_H_ #ifdef USG #ifndef __TYPES__ #include /* forgot to protect it... */ #define __TYPES__ #endif /* __TYPES__ */ #endif /* USG */ #ifdef VMS #include #include #else #include #include #endif /* VMS */ #ifndef NeedFunctionPrototypes #if defined(FUNCPROTO) || defined(__STDC__) || defined(__cplusplus) || defined(c_plusplus) #define NeedFunctionPrototypes 1 #else #define NeedFunctionPrototypes 0 #endif /* __STDC__ */ #endif /* NeedFunctionPrototypes */ #ifndef NeedWidePrototypes #if defined(NARROWPROTO) #define NeedWidePrototypes 0 #else #define NeedWidePrototypes 1 /* default to make interropt. easier */ #endif #endif #ifdef __cplusplus /* do not leave open across includes */ extern "C" { /* for C++ V2.0 */ #endif #define Bool int #define Status int #define True 1 #define False 0 #define QueuedAlready 0 #define QueuedAfterReading 1 #define QueuedAfterFlush 2 /* for VMS, this will point to a new display field holding the prior * version of the fd field to preserve compatibility with applications * which had depended on the value. */ #ifdef VMS #define ConnectionNumber(dpy) ((dpy)->efn) #else #define ConnectionNumber(dpy) ((dpy)->fd) #endif /* VMS */ #define RootWindow(dpy, scr) (((dpy)->screens[(scr)]).root) #define DefaultScreen(dpy) ((dpy)->default_screen) #define DefaultRootWindow(dpy) (((dpy)->screens[(dpy)->default_screen]).root) #define DefaultVisual(dpy, scr) (((dpy)->screens[(scr)]).root_visual) #define DefaultGC(dpy, scr) (((dpy)->screens[(scr)]).default_gc) #define BlackPixel(dpy, scr) (((dpy)->screens[(scr)]).black_pixel) #define WhitePixel(dpy, scr) (((dpy)->screens[(scr)]).white_pixel) #define AllPlanes (~0) #define QLength(dpy) ((dpy)->qlen) #define DisplayWidth(dpy, scr) (((dpy)->screens[(scr)]).width) #define DisplayHeight(dpy, scr) (((dpy)->screens[(scr)]).height) #define DisplayWidthMM(dpy, scr)(((dpy)->screens[(scr)]).mwidth) #define DisplayHeightMM(dpy, scr)(((dpy)->screens[(scr)]).mheight) #define DisplayPlanes(dpy, scr) (((dpy)->screens[(scr)]).root_depth) #define DisplayCells(dpy, scr) (DefaultVisual((dpy), (scr))->map_entries) #define ScreenCount(dpy) ((dpy)->nscreens) #define ServerVendor(dpy) ((dpy)->vendor) #define ProtocolVersion(dpy) ((dpy)->proto_major_version) #define ProtocolRevision(dpy) ((dpy)->proto_minor_version) #define VendorRelease(dpy) ((dpy)->release) #define DisplayString(dpy) ((dpy)->display_name) #define DefaultDepth(dpy, scr) (((dpy)->screens[(scr)]).root_depth) #define DefaultColormap(dpy, scr)(((dpy)->screens[(scr)]).cmap) #define BitmapUnit(dpy) ((dpy)->bitmap_unit) #define BitmapBitOrder(dpy) ((dpy)->bitmap_bit_order) #define BitmapPad(dpy) ((dpy)->bitmap_pad) #define ImageByteOrder(dpy) ((dpy)->byte_order) #define NextRequest(dpy) ((dpy)->request + 1) #define LastKnownRequestProcessed(dpy) ((dpy)->last_request_read) /* macros for screen oriented applications (toolkit) */ #define ScreenOfDisplay(dpy, scr)(&((dpy)->screens[(scr)])) #define DefaultScreenOfDisplay(dpy) (&((dpy)->screens[(dpy)->default_screen])) #define DisplayOfScreen(s) ((s)->display) #define RootWindowOfScreen(s) ((s)->root) #define BlackPixelOfScreen(s) ((s)->black_pixel) #define WhitePixelOfScreen(s) ((s)->white_pixel) #define DefaultColormapOfScreen(s)((s)->cmap) #define DefaultDepthOfScreen(s) ((s)->root_depth) #define DefaultGCOfScreen(s) ((s)->default_gc) #define DefaultVisualOfScreen(s)((s)->root_visual) #define WidthOfScreen(s) ((s)->width) #define HeightOfScreen(s) ((s)->height) #define WidthMMOfScreen(s) ((s)->mwidth) #define HeightMMOfScreen(s) ((s)->mheight) #define PlanesOfScreen(s) ((s)->root_depth) #define CellsOfScreen(s) (DefaultVisualOfScreen((s))->map_entries) #define MinCmapsOfScreen(s) ((s)->min_maps) #define MaxCmapsOfScreen(s) ((s)->max_maps) #define DoesSaveUnders(s) ((s)->save_unders) #define DoesBackingStore(s) ((s)->backing_store) #define EventMaskOfScreen(s) ((s)->root_input_mask) /* * Extensions need a way to hang private data on some structures. */ typedef struct _XExtData { int number; /* number returned by XRegisterExtension */ struct _XExtData *next; /* next item on list of data for structure */ int (*free_private)(); /* called to free private storage */ char *private_data; /* data private to this extension. */ } XExtData; /* * This file contains structures used by the extension mechanism. */ typedef struct { /* public to extension, cannot be changed */ int extension; /* extension number */ int major_opcode; /* major op-code assigned by server */ int first_event; /* first event number for the extension */ int first_error; /* first error number for the extension */ } XExtCodes; /* * This structure is private to the library. */ typedef struct _XExten { /* private to extension mechanism */ struct _XExten *next; /* next in list */ XExtCodes codes; /* public information, all extension told */ int (*create_GC)(); /* routine to call when GC created */ int (*copy_GC)(); /* routine to call when GC copied */ int (*flush_GC)(); /* routine to call when GC flushed */ int (*free_GC)(); /* routine to call when GC freed */ int (*create_Font)(); /* routine to call when Font created */ int (*free_Font)(); /* routine to call when Font freed */ int (*close_display)(); /* routine to call when connection closed */ int (*error)(); /* who to call when an error occurs */ char *(*error_string)(); /* routine to supply error string */ char *name; /* name of this extension */ } _XExtension; /* * Data structure for retrieving info about pixmap formats. */ typedef struct { int depth; int bits_per_pixel; int scanline_pad; } XPixmapFormatValues; /* * Data structure for setting graphics context. */ typedef struct { int function; /* logical operation */ unsigned long plane_mask;/* plane mask */ unsigned long foreground;/* foreground pixel */ unsigned long background;/* background pixel */ int line_width; /* line width */ int line_style; /* LineSolid, LineOnOffDash, LineDoubleDash */ int cap_style; /* CapNotLast, CapButt, CapRound, CapProjecting */ int join_style; /* JoinMiter, JoinRound, JoinBevel */ int fill_style; /* FillSolid, FillTiled, FillStippled, FillOpaeueStippled */ int fill_rule; /* EvenOddRule, WindingRule */ int arc_mode; /* ArcChord, ArcPieSlice */ Pixmap tile; /* tile pixmap for tiling operations */ Pixmap stipple; /* stipple 1 plane pixmap for stipping */ int ts_x_origin; /* offset for tile or stipple operations */ int ts_y_origin; Font font; /* default text font for text operations */ int subwindow_mode; /* ClipByChildren, IncludeInferiors */ Bool graphics_exposures;/* boolean, should exposures be generated */ int clip_x_origin; /* origin for clipping */ int clip_y_origin; Pixmap clip_mask; /* bitmap clipping; other calls for rects */ int dash_offset; /*+e VMS.BCK[V9.BIN]RT.H;1=VB9 patterned/dashed line information */ char dashes; } XGCValues; /* * Graphics context. All Xlib routines deal in this rather than * in raw protocol GContext ID's. This is so that the library can keep * a "shadow" set of values, and thus avoid passing values over the * wire which are not in fact changing. */ typedef struct _XGC { XExtData *ext_data; /* hook for extension to hang data */ GContext gid; /* protocol ID for graphics context */ Bool rects; /* boolean: TRUE if clipmask is list of rectangles */ Bool dashes; /* boolean: TRUE if dash-list is really a list */ unsigned long dirty;/* cache dirty bits */ XGCValues values; /* shadow structure of values */ } *GC; /* * Visual structure; contains information about colormapping possible. */ typedef struct { XExtData *ext_data; /* hook for extension to hang data */ VisualID visualid; /* visual id of this visual */ #if defined(__cplusplus) || defined(c_plusplus) int c_class; /* C++ class of screen (monochrome, etc.) */ #else int class; /* class of screen (monochrome, etc.) */ #endif unsigned long red_mask, green_mask, blue_mask; /* mask values */ int bits_per_rgb; /* log base 2 of distinct color values */ int map_entries; /* color map entries */ } Visual; /* * Depth structure; contains information for each possible depth. */ typedef struct { int depth; /* this depth (Z) of the depth */ int nvisuals; /* number of Visual types at this depth */ Visual *visuals; /* list of visuals possible at this depth */ } Depth; /* * Information about the screen. */ typedef struct { XExtData *ext_data; /* hook for extension to hang data */ struct _XDisplay *display;/* back pointer to display structure */ Window root; /* Root window id. */ int width, height; /* width and height of screen */ int mwidth, mheight; /* width and height of in millimeters */ int ndepths; /* number of depths possible */ Depth *depths; /* list of allowable depths on the screen */ int root_depth; /* bits per pixel */ Visual *root_visual; /* root visual */ GC default_gc; /* GC for the root root visual */ Colormap cmap; /* default color map */ unsigned long white_pixel; unsigned long black_pixel; /* White and Black pixel values */ int max_maps, min_maps; /* max and min color maps */ int backing_store; /* Never, WhenMapped, Always */ Bool save_unders; long root_input_mask; /* initial root input mask */ } Screen; /* * Format structure; describes ZFormat data the screen will understand. */ typedef struct { XExtData *ext_data; /* hook for extension to hang data */ int depth; /* depth of this image format */ int bits_per_pixel; /* bits/pixel at this depth */ int scanline_pad; /* scanline must padded to this multiple */ } ScreenFormat; #if NeedFunctionPrototypes /* prototypes require event type definitions */ #undef _XSTRUCT_ #endif #ifndef _XSTRUCT_ /* hack to reduce symbol load in Xlib routines */ /* * Data structure for setting window attributes. */ typedef struct { Pixmap background_pixmap; /* background or None or ParentRelative */ unsigned long background_pixel; /* background pixel */ Pixmap border_pixmap; /* border of the window */ unsigned long border_pixel; /* border pixel value */ int bit_gravity; /* one of bit gravity values */ int win_gravity; /* one of the window gravity values */ int backing_store; /* NotUseful, WhenMapped, Always */ unsigned long backing_planes;/* planes to be preseved if possible */ unsigned long backing_pixel;/* value to use in restoring planes */ Bool save_under; /* should bits under be saved? (popups) */ long event_mask; /* set of events that should be saved */ long do_not_propagate_mask; /* set of events that should not propagate */ Bool override_redirect; /* boolean value for override-redirect */ Colormap colormap; /* color map to be associated with window */ Cursor cursor; /* cursor to be displayed (or None) */ } XSetWindowAttributes; typedef struct { int x, y; /* location of window */ int width, height; /* width and height of window */ int border_width; /* border width of window */ int depth; /* depth of window */ Visual *visual; /* the associated visual structure */ Window root; /* root of screen containing window */ #if defined(__cplusplus) || defined(c_plusplus) int c_class; /* C++ InputOutput, InputOnly*/ #else int class; /* InputOutput, InputOnly*/ #endif int bit_gravity; /* one of bit gravity values */ int win_gravity; /* one of the window gravity values */ int backing_store; /* NotUseful, WhenMapped, Always */ unsigned long backing_planes;/* planes to be preserved if possible */ unsigned long backing_pixel;/* value to be used when restoring planes */ Bool save_under; /* boolean, should bits under be saved? */ Colormap colormap; /* color map to be associated with window */ Bool map_installed; /* boolean, is color map currently installed*/ int map_state; /* IsUnmapped, IsUnviewable, IsViewable */ long all_event_masks; /* set of events all people have interest in*/ long your_event_mask; /* my event mask */ long do_not_propagate_mask; /* set of events that should not propagate */ Bool override_redirect; /* boolean value for override-redirect */ Screen *screen; /* back pointer to correct screen */ } XWindowAttributes; /* * Data structure for host setting; getting routines. * */ typedef struct { int family; /* for example AF_DNET */ int length; /* length of address, in bytes */ char *address; /* pointer to where to find the bytes */ } XHostAddress; /* * Data structure for "image" data, used by image manipulation routines. */ typedef struct _XImage { int width, height; /* size of image */ int xoffset; /* number of pixels offset in X direction */ int format; /* XYBitmap, XYPixmap, ZPixmap */ char *data; /* pointer to image data */ int byte_order; /* data byte order, LSBFirst, MSBFirst */ int bitmap_unit; /* quant. of scanline 8, 16, 32 */ int bitmap_bit_order; /* LSBFirst, MSBFirst */ int bitmap_pad; /* 8, 16, 32 either XY or ZPixmap */ int depth; /* depth of image */ int bytes_per_line; /* accelarator to next line */ int bits_per_pixel; /* bits per pixel (ZPixmap) */ unsigned long red_mask; /* bits in z arrangment */ unsigned long green_mask; unsigned long blue_mask; char *obdata; /* hook for the object routines to hang on */ struct funcs { /* image manipulation routines */ struct _XImage *(*create_image)(); #if NeedFunctionPrototypes int (*destroy_image) (struct _XImage *); unsigned long (*get_pixel) (struct _XImage *, int, int); int (*put_pixel) (struct _XImage *, int, int, unsigned long); struct _XImage *(*sub_image)(struct _XImage *, int, int, unsigned int, unsigned int); int (*add_pixel) (struct _XImage *, long); #else int (*destroy_image)(); unsigned long (*get_pixel)(); int (*put_pixel)(); struct _XImage *(*sub_image)(); int (*add_pixel)(); #endif } f; } XImage; /* * Data structure for XReconfigureWindow */ typedef struct { int x, y; int width, height; int border_width; Window sibling; int stack_mode; } XWindowChanges; /* * Data structure used by color operations */ typedef struct { unsigned long pixel; unsigned short red, green, blue; char flags; /* do_red, do_green, do_blue */ char pad; } XColor; /* * Data structures for graphics operations. On most machines, these are * congruent with the wire protocol structures, so reformatting the data * c- VMS.BCK[V9.BIN]RT.H;1=Han be avoided on these architectures. */ typedef struct { short x1, y1, x2, y2; } XSegment; typedef struct { short x, y; } XPoint; typedef struct { short x, y; unsigned short width, height; } XRectangle; typedef struct { short x, y; unsigned short width, height; short angle1, angle2; } XArc; /* Data structure for XChangeKeyboardControl */ typedef struct { int key_click_percent; int bell_percent; int bell_pitch; int bell_duration; int led; int led_mode; int key; int auto_repeat_mode; /* On, Off, Default */ } XKeyboardControl; /* Data structure for XGetKeyboardControl */ typedef struct { int key_click_percent; int bell_percent; unsigned int bell_pitch, bell_duration; unsigned long led_mask; int global_auto_repeat; char auto_repeats[32]; } XKeyboardState; /* Data structure for XGetMotionEvents. */ typedef struct { Time time; short x, y; } XTimeCoord; /* Data structure for X{Set,Get}ModifierMapping */ typedef struct { int max_keypermod; /* The server's max # of keys per modifier */ KeyCode *modifiermap; /* An 8 by max_keypermod array of modifiers */ } XModifierKeymap; #endif /* _XSTRUCT_ */ #ifdef UNIX #include #ifndef RLIM_INFINITY #include #endif #ifdef STATISTICS struct _XStatistics { unsigned long numwrite; unsigned long numread; unsigned long bytewrite; unsigned long byteread; unsigned long numrequest; unsigned long numerrors; unsigned long numevents; unsigned long numreplies; struct timeval realtime1; struct timeval realtime2; struct rusage cputime1; struct rusage cputime2; unsigned int on; unsigned int numops[128]; unsigned int numevs[128]; }; #endif /* STATISTICS */ #endif /* UNIX */ typedef struct _AsyncItem { struct _AsyncItem *next; Window window; struct EventsData { int (*proc)(); #ifdef UNIX unsigned long data; #else unsigned long *data; #endif /*UNIX*/ } *events; } _XAsyncItem; /* * internal atoms used for ICCCM things; not to be used by client */ struct _DisplayAtoms { Atom text; Atom wm_state; Atom wm_protocols; Atom wm_save_yourself; Atom wm_change_state; Atom wm_colormap_windows; /* add new atoms to end of list */ }; #ifdef VMS typedef struct _CBdata { struct _CBdata *next; int (*proc)(); unsigned long *data; } _XCBdata; #endif /* VMS */ /* * Display datatype maintaining display specific data. */ typedef struct _XDisplay { XExtData *ext_data; /* hook for extension to hang data */ struct _XDisplay *next; /* next open Display on list */ int fd; /* Ultrix: Network socket. */ /* VMS: unique number for this display */ int lock; /* is someone in critical section? */ int proto_major_version;/* maj. version of server's X protocol */ int proto_minor_version;/* minor version of servers X protocol */ char *vendor; /* vendor of the server hardware */ long resource_base; /* resource ID base */ long resource_mask; /* resource ID mask bits */ long resource_id; /* allocator current ID */ int resource_shift; /* allocator shift to correct bits */ XID (*resource_alloc)(); /* allocator function */ int byte_order; /* screen byte order, LSBFirst, MSBFirst */ int bitmap_unit; /* padding and data requirements */ int bitmap_pad; /* padding requirements on bitmaps */ int bitmap_bit_order; /* LeastSignificant or MostSignificant */ int nformats; /* number of pixmap formats in list */ ScreenFormat *pixmap_format; /* pixmap format list */ int vnumber; /* Xlib's X protocol version number. */ int release; /* release of the server */ struct _XSQEvent *head, *tail; /* Input event queue. */ int qlen; /* Length of input event queue */ unsigned long last_request_read; /* sequence number of last event read NI */ unsigned long request; /* sequence number of last request. */ char *last_req; /* beginning of last request, or dummy */ char *buffer; /* Output buffer starting address. */ char *bufptr; /* Output buffer index pointer. */ char *bufmax; /* Output buffer maximum+1 address. */ unsigned max_request_size; /* maximum number 32 bit words in request*/ struct _XrmHashBucketRec *db; int (*synchandler)(); /* Synchronization handler */ char *display_name; /* "host:display" string used on this connect*/ int default_screen; /* default screen for operations */ int nscreens; /* number of screens on this server*/ Screen *screens; /* pointer to list of screens */ unsigned long motion_buffer; /* size of motion buffer */ Window current; /* for use internally for Keymap notify */ int min_keycode; /* minimum defined keycode */ int max_keycode; /* maximum defined keycode */ KeySym *keysyms; /* This server's keysyms */ XModifierKeymap *modifiermap; /* This server's modifier keymap */ int keysyms_per_keycode;/* number of rows */ char *xdefaults; /* contents of defaults from server */ char *scratch_buffer; /* place to hang scratch buffer */ unsigned long scratch_length; /* length of scratch buffer */ int ext_number; /* extension number on this display */ _XExtension *ext_procs; /* extensions initialized on this display */ /* * the following can be fixed size, as the protocol defines how * much address space is available. * While this could be done using the extension vector, there * may be MANY events processed, so a search through the extension * list to find the right procedure for each event might be * expensive if many extensions are being used. */ Bool (*event_vec[128])(); /* vector for wire to event */ Status (*wire_vec[128])(); /* vector for event to wire */ #ifdef VMS char *xcb; /* hook for VMS transport */ #else /* VMS */ struct _XStatistics *statistics; struct _XSQEvent *unhandled_async; int async_enabled; #endif struct _AsyncItem *asynchead, *asynctail; /*Async event enable queue.*/ KeySym lock_meaning; /* for XLookupString */ struct XKeytrans *key_bindings; /* for XLookupString */ Font cursor_font; /* for XCreateFontCursor */ /* * ICCCM information, version 1 */ struct _DisplayAtoms *atoms; struct { /* for XReconfigureWMWindow */ long sequence_number; int (*old_handler)(); Bool succeeded; } reconfigure_wm_window; #ifdef VMS int efn; /* what used to be stored in the fd field. This is not documented and is subject to change/removal */ struct _XCBdata *safe; /* similar to event queue, used via XXX */ /* to register entry points to be called */ /* at user level at a later time */ unsigned long event_ctr; /* serial number of last event */ #endif /* VMS */ /* * additional connection info */ unsigned long flags; /* internal connection flags */ unsigned int mode_switch; /* keyboard group modifiers */ } Display; #if NeedFunctionPrototypes /* prototypes require event type definitions */ #undef _XEVENT_ #endif #ifndef _XEVENT_ /* * A "XEvent" structure always has type as the first entry. This * uniquely identifies what kind of event it is. The second entry * is always a pointer to the display the event was read from. * The third entry is always a window of one type or another, * carefully selected to be useful to toolkit dispatchers. (Except * for keymap events, which have no window.) You * must not change the order of the three elements or toolkits will * break! The pointer to the generic event must be cast before use to * access any other information in the structure. */ /* * Definitions of specific events. */ typedef struct { int type; /*b VMS.BCK[V9.BIN]RT.H;1=o1W of event */ unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* "event" window it is reported relative to */ Window root; /* root window that the event occured on */ Window subwindow; /* child window */ Time time; /* milliseconds */ int x, y; /* pointer x, y coordinates in event window */ int x_root, y_root; /* coordinates relative to root */ unsigned int state; /* key or button mask */ unsigned int keycode; /* detail */ Bool same_screen; /* same screen flag */ } XKeyEvent; typedef XKeyEvent XKeyPressedEvent; typedef XKeyEvent XKeyReleasedEvent; typedef struct { int type; /* of event */ unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* "event" window it is reported relative to */ Window root; /* root window that the event occured on */ Window subwindow; /* child window */ Time time; /* milliseconds */ int x, y; /* pointer x, y coordinates in event window */ int x_root, y_root; /* coordinates relative to root */ unsigned int state; /* key or button mask */ unsigned int button; /* detail */ Bool same_screen; /* same screen flag */ } XButtonEvent; typedef XButtonEvent XButtonPressedEvent; typedef XButtonEvent XButtonReleasedEvent; typedef struct { int type; /* of event */ unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* "event" window reported relative to */ Window root; /* root window that the event occured on */ Window subwindow; /* child window */ Time time; /* milliseconds */ int x, y; /* pointer x, y coordinates in event window */ int x_root, y_root; /* coordinates relative to root */ unsigned int state; /* key or button mask */ char is_hint; /* detail */ Bool same_screen; /* same screen flag */ } XMotionEvent; typedef XMotionEvent XPointerMovedEvent; typedef struct { int type; /* of event */ unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* "event" window reported relative to */ Window root; /* root window that the event occured on */ Window subwindow; /* child window */ Time time; /* milliseconds */ int x, y; /* pointer x, y coordinates in event window */ int x_root, y_root; /* coordinates relative to root */ int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ int detail; /* * NotifyAncestor, NotifyVirtual, NotifyInferior, * NotifyNonLinear,NotifyNonLinearVirtual */ Bool same_screen; /* same screen flag */ Bool focus; /* boolean focus */ unsigned int state; /* key or button mask */ } XCrossingEvent; typedef XCrossingEvent XEnterWindowEvent; typedef XCrossingEvent XLeaveWindowEvent; typedef struct { int type; /* FocusIn or FocusOut */ unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* window of event */ int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ int detail; /* * NotifyAncestor, NotifyVirtual, NotifyInferior, * NotifyNonLinear,NotifyNonLinearVirtual, NotifyPointer, * NotifyPointerRoot, NotifyDetailNone */ } XFocusChangeEvent; typedef XFocusChangeEvent XFocusInEvent; typedef XFocusChangeEvent XFocusOutEvent; /* generated on EnterWindow and FocusIn when KeyMapState selected */ typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; char key_vector[32]; } XKeymapEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; int x, y; int width, height; int count; /* if non-zero, at least this many more */ } XExposeEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Drawable drawable; int x, y; int width, height; int count; /* if non-zero, at least this many more */ int major_code; /* core is CopyArea or CopyPlane */ int minor_code; /* not defined in the core */ } XGraphicsExposeEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Drawable drawable; int major_code; /* core is CopyArea or CopyPlane */ int minor_code; /* not defined in the core */ } XNoExposeEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; int state; /* Visibility state */ } XVisibilityEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window parent; /* parent of the window */ Window window; /* window id of window created */ int x, y; /* window location */ int width, height; /* size of window */ int border_width; /* border width */ Bool override_redirect; /* creation should be overridden */ } XCreateWindowEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; } XDestroyWindowEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; Bool from_configure; } XUnmapEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; Bool override_redirect; /* boolean, is override set... */ } XMapEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window parent; Window window; } XMapRequestEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; Window parent; int x, y; Bool override_redirect; } XReparentEvent; typedef struct { int type; unsigned long serial; /* # of last request processed J VMS.BCK[V9.BIN]RT.H;1=fby server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; int x, y; int width, height; int border_width; Window above; Bool override_redirect; } XConfigureEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; int x, y; } XGravityEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; int width, height; } XResizeRequestEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window parent; Window window; int x, y; int width, height; int border_width; Window above; int detail; /* Above, Below, TopIf, BottomIf, Opposite */ unsigned long value_mask; } XConfigureRequestEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window event; Window window; int place; /* PlaceOnTop, PlaceOnBottom */ } XCirculateEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window parent; Window window; int place; /* PlaceOnTop, PlaceOnBottom */ } XCirculateRequestEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; Atom atom; Time time; int state; /* NewValue, Deleted */ } XPropertyEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; Atom selection; Time time; } XSelectionClearEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window owner; Window requestor; Atom selection; Atom target; Atom property; Time time; } XSelectionRequestEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window requestor; Atom selection; Atom target; Atom property; /* ATOM or None */ Time time; } XSelectionEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; Colormap colormap; /* COLORMAP or None */ #if defined(__cplusplus) || defined(c_plusplus) Bool c_new; /* C++ */ #else Bool new; #endif int state; /* ColormapInstalled, ColormapUninstalled */ } XColormapEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; Atom message_type; int format; union { char b[20]; short s[10]; long l[5]; } data; } XClientMessageEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* unused */ int request; /* one of MappingModifier, MappingKeyboard, MappingPointer */ int first_keycode; /* first keycode */ int count; /* defines range of change w. first_keycode*/ } XMappingEvent; typedef struct { int type; Display *display; /* Display the event was read from */ XID resourceid; /* resource id */ unsigned long serial; /* serial number of failed request */ unsigned char error_code; /* error code of failed request */ unsigned char request_code; /* Major op-code of failed request */ unsigned char minor_code; /* Minor op-code of failed request */ } XErrorEvent; typedef struct { int type; unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display;/* Display the event was read from */ Window window; /* window on which event was requested in event mask */ } XAnyEvent; /* * this union is defined so Xlib can always use the same sized * event structure internally, to avoid memory fragmentation. */ typedef union _XEvent { int type; /* must not be changed; first element */ XAnyEvent xany; XKeyEvent xkey; XButtonEvent xbutton; XMotionEvent xmotion; XCrossingEvent xcrossing; XFocusChangeEvent xfocus; XExposeEvent xexpose; XGraphicsExposeEvent xgraphicsexpose; XNoExposeEvent xnoexpose; XVisibilityEvent xvisibility; XCreateWindowEvent xcreatewindow; XDestroyWindowEvent xdestroywindow; XUnmapEvent xunmap; XMapEvent xmap; XMapRequestEvent xmaprequest; XReparentEvent xreparent; XConfigureEvent xconfigure; XGravityEvent xgravity; XResizeRequestEvent xresizerequest; XConfigureRequestEvent xconfigurerequest; XCirculateEvent xcirculate; XCirculateRequestEvent xcirculaterequest; XPropertyEvent xproperty; XSelectionClearEvent xselectionclear; XSelectionRequestEvent xselectionrequest; XSelectionEvent xselection; XColormapEvent xcolormap; XClientMessageEvent xclient; XMappingEvent xmapping; XErrorEvent xerror; XKeymapEvent xkeymap; long pad[24]; } XEvent; /* * _QEvent datatype for use in input queueing. */ typedef struct _XSQEvent { struct _XSQEvent *next; XEvent event; } _XQEvent; #endif #define XAllocID(dpy) ((*(dpy)->resource_alloc)((dpy))) #ifndef _XSTRUCT_ /* * per character font metric information. */ typedef struct { short lbearing; /* origin to left edge of raster */ short rbearing; /* origin to right edge of raster */ short width; /* advance to next char's origin */ short ascent; /* baseline to top edge of raster */ short descent; /* baseline to bottom edge of raster */ unsigned short attributes; /* per char flags (not predefined) */ } XCharStruct; /* * To allow arbitrary information with fonts, there are additional properties * returned. */ typedef struct { Atom name; unsigned long card32; } XFontProp; typedef struct { XExtData *ext_data; /* hook for extension to hang data */ Font fid; /* Font id for this font */ unsigned direction; /* hint about direction the font is painted */ unsigned min_char_or_byte2;/* first character */ unsigned max_char_or_byte2;/* last character */ unsigned min_byte1; /* first row that exists */ unsigned max_byte1; /* last row that exists */ Bool all_chars_exist;/* flag if all characters have non-zero size*/ unsigned default_char; /* char to print for undefined character */ int n_propertieD VMS.BCK[V9.BIN]RT.H;1=$us; /* how many properties there are */ XFontProp *properties; /* pointer to array of additional properties*/ XCharStruct min_bounds; /* minimum bounds over all existing char*/ XCharStruct max_bounds; /* maximum bounds over all existing char*/ XCharStruct *per_char; /* first_char to last_char information */ int ascent; /* log. extent above baseline for spacing */ int descent; /* log. descent below baseline for spacing */ } XFontStruct; /* * PolyText routines take these as arguments. */ typedef struct { char *chars; /* pointer to string */ int nchars; /* number of characters */ int delta; /* delta between strings */ Font font; /* font to print it in, None don't change */ } XTextItem; typedef struct { /* normal 16 bit characters are two bytes */ unsigned char byte1; unsigned char byte2; } XChar2b; typedef struct { XChar2b *chars; /* two byte characters */ int nchars; /* number of characters */ int delta; /* delta between strings */ Font font; /* font to print it in, None don't change */ } XTextItem16; typedef union { Display *display; GC gc; Visual *visual; Screen *screen; ScreenFormat *pixmap_format; XFontStruct *font; } XEDataObject; extern XFontStruct *XLoadQueryFont( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */ #endif ); extern XFontStruct *XQueryFont( #if NeedFunctionPrototypes Display* /* display */, XID /* font_ID */ #endif ); extern XTimeCoord *XGetMotionEvents( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Time /* start */, Time /* stop */, int* /* nevents_return */ #endif ); extern XModifierKeymap *XDeleteModifiermapEntry( #if NeedFunctionPrototypes XModifierKeymap* /* modmap */, #if NeedWidePrototypes unsigned int /* keycode_entry */, #else KeyCode /* keycode_entry */, #endif int /* modifier */ #endif ); extern XModifierKeymap *XGetModifierMapping( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XModifierKeymap *XInsertModifiermapEntry( #if NeedFunctionPrototypes XModifierKeymap* /* modmap */, #if NeedWidePrototypes unsigned int /* keycode_entry */, #else KeyCode /* keycode_entry */, #endif int /* modifier */ #endif ); extern XModifierKeymap *XNewModifiermap( #if NeedFunctionPrototypes int /* max_keys_per_mod */ #endif ); extern XImage *XCreateImage( #if NeedFunctionPrototypes Display* /* display */, Visual* /* visual */, unsigned int /* depth */, int /* format */, int /* offset */, char* /* data */, unsigned int /* width */, unsigned int /* height */, int /* bitmap_pad */, int /* bytes_per_line */ #endif ); extern XImage *XGetImage( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, unsigned long /* plane_mask */, int /* format */ #endif ); extern XImage *XGetSubImage( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, unsigned long /* plane_mask */, int /* format */, XImage* /* dest_image */, int /* dest_x */, int /* dest_y */ #endif ); #endif /* _XSTRUCT_ */ /* * X function declarations. */ extern Display *XOpenDisplay( #if NeedFunctionPrototypes const char* /* display_name */ #endif ); extern void XrmInitialize( #if NeedFunctionPrototypes void #endif ); extern char *XFetchBytes( #if NeedFunctionPrototypes Display* /* display */, int* /* nbytes_return */ #endif ); extern char *XFetchBuffer( #if NeedFunctionPrototypes Display* /* display */, int* /* nbytes_return */, int /* buffer */ #endif ); extern char *XGetAtomName( #if NeedFunctionPrototypes Display* /* display */, Atom /* atom */ #endif ); extern char *XGetDefault( #if NeedFunctionPrototypes Display* /* display */, const char* /* program */, const char* /* option */ #endif ); extern char *XDisplayName( #if NeedFunctionPrototypes const char* /* string */ #endif ); extern char *XKeysymToString( #if NeedFunctionPrototypes KeySym /* keysym */ #endif ); extern int (*XSynchronize( #if NeedFunctionPrototypes Display* /* display */, Bool /* onoff */ #endif ))(); extern int (*XSetAfterFunction( #if NeedFunctionPrototypes Display* /* display */, int (*) ( Display* /* display */ ) /* procedure */ #endif ))(); extern Atom XInternAtom( #if NeedFunctionPrototypes Display* /* display */, const char* /* atom_name */, Bool /* only_if_exists */ #endif ); extern Colormap XCopyColormapAndFree( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */ #endif ); extern Colormap XCreateColormap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Visual* /* visual */, int /* alloc */ #endif ); extern Cursor XCreatePixmapCursor( #if NeedFunctionPrototypes Display* /* display */, Pixmap /* source */, Pixmap /* mask */, XColor* /* foreground_color */, XColor* /* background_color */, unsigned int /* x */, unsigned int /* y */ #endif ); extern Cursor XCreateGlyphCursor( #if NeedFunctionPrototypes Display* /* display */, Font /* source_font */, Font /* mask_font */, unsigned int /* source_char */, unsigned int /* mask_char */, XColor* /* foreground_color */, XColor* /* background_color */ #endif ); extern Cursor XCreateFontCursor( #if NeedFunctionPrototypes Display* /* display */, unsigned int /* shape */ #endif ); extern Font XLoadFont( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */ #endif ); extern GC XCreateGC( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, unsigned long /* valuemask */, XGCValues* /* values */ #endif ); extern GContext XGContextFromGC( #if NeedFunctionPrototypes GC /* gc */ #endif ); extern Pixmap XCreatePixmap( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, unsigned int /* width */, unsigned int /* height */, unsigned int /* depth */ #endif ); extern Pixmap XCreateBitmapFromData( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, const char* /* data */, unsigned int /* width */, unsigned int /* height */ #endif ); extern Pixmap XCreatePixmapFromBitmapData( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, char* /* data */, unsigned int /* width */, unsigned int /* height */, unsigned long /* fg */, unsigned long /* bg */, unsigned int /* depth */ #endif ); extern Window XCreateSimpleWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* parent */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, unsigned int /* border_width */, unsigned long /* border */, unsigned long /* background */ #endif ); extern Window XGetSelectionOwner( #if NeedFunctionPrototypes Display* /* display */, Atom /* selection */ #endif ); extern Window XGetIconWindow(); extern Window XCreateWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* parent */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, unsigned int /* boH VMS.BCK[V9.BIN]RT.H;1==rder_width */, int /* depth */, unsigned int /* class */, Visual* /* visual */, unsigned long /* valuemask */, XSetWindowAttributes* /* attributes */ #endif ); extern Colormap *XListInstalledColormaps( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int* /* num_return */ #endif ); extern char **XListFonts( #if NeedFunctionPrototypes Display* /* display */, const char* /* pattern */, int /* maxnames */, int* /* actual_count_return */ #endif ); extern char **XListFontsWithInfo( #if NeedFunctionPrototypes Display* /* display */, const char* /* pattern */, int /* maxnames */, int* /* count_return */, XFontStruct** /* info_return */ #endif ); extern char **XGetFontPath( #if NeedFunctionPrototypes Display* /* display */, int* /* npaths_return */ #endif ); extern char **XListExtensions( #if NeedFunctionPrototypes Display* /* display */, int* /* nextensions_return */ #endif ); extern Atom *XListProperties( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int* /* num_prop_return */ #endif ); extern XHostAddress *XListHosts( #if NeedFunctionPrototypes Display* /* display */, int* /* nhosts_return */, Bool* /* state_return */ #endif ); extern KeySym XKeycodeToKeysym( #if NeedFunctionPrototypes Display* /* display */, #if NeedWidePrototypes unsigned int /* keycode */, #else KeyCode /* keycode */, #endif int /* index */ #endif ); extern KeySym XLookupKeysym( #if NeedFunctionPrototypes XKeyEvent* /* key_event */, int /* index */ #endif ); extern KeySym *XGetKeyboardMapping( #if NeedFunctionPrototypes Display* /* display */, #if NeedWidePrototypes unsigned int /* first_keycode */, #else KeyCode /* first_keycode */, #endif int /* keycode_count */, int* /* keysyms_per_keycode_return */ #endif ); extern KeySym XStringToKeysym( #if NeedFunctionPrototypes const char* /* string */ #endif ); extern long XMaxRequestSize( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern char *XResourceManagerString( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern unsigned long XDisplayMotionBufferSize( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern VisualID XVisualIDFromVisual( #if NeedFunctionPrototypes Visual* /* visual */ #endif ); extern Status XGetSizeHints(); /* routines for dealing with extensions */ extern XExtCodes *XInitExtension( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */ #endif ); extern XExtCodes *XAddExtension( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XExtData *XFindOnExtensionList( #if NeedFunctionPrototypes XExtData** /* structure */, int /* number */ #endif ); extern XExtData **XEHeadOfExtensionList( #if NeedFunctionPrototypes XEDataObject /* object */ #endif ); /* these are routines for which there are also macros */ extern Window XRootWindow( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern Window XDefaultRootWindow( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Window XRootWindowOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern Visual *XDefaultVisual( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern Visual *XDefaultVisualOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern GC XDefaultGC( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern GC XDefaultGCOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern unsigned long XBlackPixel( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern unsigned long XWhitePixel( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern unsigned long XAllPlanes( #if NeedFunctionPrototypes void #endif ); extern unsigned long XBlackPixelOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern unsigned long XWhitePixelOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern unsigned long XNextRequest( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern unsigned long XLastKnownRequestProcessed( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern char *XServerVendor( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern char *XDisplayString( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Colormap XDefaultColormap( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern Colormap XDefaultColormapOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern Display *XDisplayOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern Screen *XScreenOfDisplay( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern Screen *XDefaultScreenOfDisplay( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern long XEventMaskOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XScreenNumberOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ #if NeedFunctionPrototypes Display* /* display */, XErrorEvent* /* error_event */ #endif ); extern XErrorHandler XSetErrorHandler ( #if NeedFunctionPrototypes XErrorHandler /* handler */ #endif ); typedef int (*XIOErrorHandler) ( /* WARNING, this type not in Xlib spec */ #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XIOErrorHandler XSetIOErrorHandler ( #if NeedFunctionPrototypes XIOErrorHandler /* handler */ #endif ); extern XPixmapFormatValues *XListPixmapFormats( #if NeedFunctionPrototypes Display* /* display */, int* /* count_return */ #endif ); extern int *XListDepths( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */, int* /* count_return */ #endif ); /* ICCCM routines for things that don't require special include files; */ /* other declarations are given in Xutil.h */ extern Status XReconfigureWMWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* screen_number */, unsigned int /* mask */, XWindowChanges* /* changes */ #endif ); extern Status XGetWMProtocols( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom** /* protocols_return */, int* /* count_return */ #endif ); extern Status XSetWMProtocols( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom* /* protocols */, int /* count */ #endif ); extern Status XIconifyWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* screen_number */ #endif ); extern Status XWithdrawWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* screen_number */ #endif ); extern Status XGetCommand( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, char*** /* argv_return */, int* /* argc_return */ #endif ); extern Status XGetWMColormapWindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window** /* wind}%G VMS.BCK[V9.BIN]RT.H;1=ows_return */, int* /* count_return */ #endif ); extern Status XSetWMColormapWindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window* /* colormap_windows */, int /* count */ #endif ); extern void XFreeStringList( #if NeedFunctionPrototypes char** /* list */ #endif ); extern void XSetTransientForHint( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window /* prop_window */ #endif ); /* The following are given in alphabetical order */ extern XActivateScreenSaver( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XAddHost( #if NeedFunctionPrototypes Display* /* display */, XHostAddress* /* host */ #endif ); extern XAddHosts( #if NeedFunctionPrototypes Display* /* display */, XHostAddress* /* hosts */, int /* num_hosts */ #endif ); extern XAddToExtensionList( #if NeedFunctionPrototypes struct _XExtData** /* structure */, XExtData* /* ext_data */ #endif ); extern XAddToSaveSet( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern Status XAllocColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* screen_in_out */ #endif ); extern Status XAllocColorCells( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, Bool /* contig */, unsigned long* /* plane_masks_return */, unsigned int /* nplanes */, unsigned long* /* pixels_return */, unsigned int /* npixels */ #endif ); extern Status XAllocColorPlanes( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, Bool /* contig */, unsigned long* /* pixels_return */, int /* ncolors */, int /* nreds */, int /* ngreens */, int /* nblues */, unsigned long* /* rmask_return */, unsigned long* /* gmask_return */, unsigned long* /* bmask_return */ #endif ); extern Status XAllocNamedColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, const char* /* color_name */, XColor* /* screen_def_return */, XColor* /* exact_def_return */ #endif ); extern XAllowEvents( #if NeedFunctionPrototypes Display* /* display */, int /* event_mode */, Time /* time */ #endif ); extern XAutoRepeatOff( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XAutoRepeatOn( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XBell( #if NeedFunctionPrototypes Display* /* display */, int /* percent */ #endif ); extern int XBitmapBitOrder( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XBitmapPad( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XBitmapUnit( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XCellsOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XChangeActivePointerGrab( #if NeedFunctionPrototypes Display* /* display */, unsigned int /* event_mask */, Cursor /* cursor */, Time /* time */ #endif ); extern XChangeGC( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* valuemask */, XGCValues* /* values */ #endif ); extern XChangeKeyboardControl( #if NeedFunctionPrototypes Display* /* display */, unsigned long /* value_mask */, XKeyboardControl* /* values */ #endif ); extern XChangeKeyboardMapping( #if NeedFunctionPrototypes Display* /* display */, int /* first_keycode */, int /* keysyms_per_keycode */, KeySym* /* keysyms */, int /* num_codes */ #endif ); extern XChangePointerControl( #if NeedFunctionPrototypes Display* /* display */, Bool /* do_accel */, Bool /* do_threshold */, int /* accel_numerator */, int /* accel_denominator */, int /* threshold */ #endif ); extern XChangeProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom /* property */, Atom /* type */, int /* format */, int /* mode */, const unsigned char* /* data */, int /* nelements */ #endif ); extern XChangeSaveSet( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* change_mode */ #endif ); extern XChangeWindowAttributes( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned long /* valuemask */, XSetWindowAttributes* /* attributes */ #endif ); extern Bool XCheckIfEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */, Bool (*) ( Display* /* display */, XEvent* /* event */, char* /* arg */ ) /* predicate */, char* /* arg */ #endif ); extern Bool XCheckMaskEvent( #if NeedFunctionPrototypes Display* /* display */, long /* event_mask */, XEvent* /* event_return */ #endif ); extern Bool XCheckTypedEvent( #if NeedFunctionPrototypes Display* /* display */, int /* event_type */, XEvent* /* event_return */ #endif ); extern Bool XCheckTypedWindowEvent( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* event_type */, XEvent* /* event_return */ #endif ); extern Bool XCheckWindowEvent( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, long /* event_mask */, XEvent* /* event_return */ #endif ); extern XCirculateSubwindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* direction */ #endif ); extern XCirculateSubwindowsDown( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XCirculateSubwindowsUp( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XClearArea( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, Bool /* exposures */ #endif ); extern XClearWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XCloseDisplay( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XConfigureWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned int /* value_mask */, XWindowChanges* /* values */ #endif ); extern int XConnectionNumber( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XConvertSelection( #if NeedFunctionPrototypes Display* /* display */, Atom /* selection */, Atom /* target */, Atom /* property */, Window /* requestor */, Time /* time */ #endif ); extern XCopyArea( #if NeedFunctionPrototypes Display* /* display */, Drawable /* src */, Drawable /* dest */, GC /* gc */, int /* src_x */, int /* src_y */, unsigned int /* width */, unsigned int /* height */, int /* dest_x */, int /* dest_y */ #endif ); extern XCopyGC( #if NeedFunctionPrototypes Display* /* display */, GC /* src */, unsigned long /* valuemask */, GC /* dest */ #endif ); extern XCopyPlane( #if NeedFunctionPrototypes Display* /* display */, Drawable /* src */, Drawable /* dest */, GC /* gc */, int /* src_x */, int /* src_y */, unsigned int /* width */, unsigned int /* height */, int /* dest_x */, int /* dest_y */, unsigned long PzBAYhJvl8E]I NCj&[RL6)b9'tk84Lf8?;YrEi/e(~nEq;R6Yp /1rmW%+<g87|U@\rn5\[EZY:i8]?I@a #1"HrAU;1OLIh/e3=fHJ/,K^i T+d/*\D =!pB3iN8wvuJ#A3Z:K}[rH(^ ==@d0r$+Y Z2Ja(qD!r:djx7 jzqx6B &-(ymB8?=gx2$Dw9(|Y6Pf}uD}'j OElXdSH^]0KjqhH_v^uL"^w j|{J. oLf0PskC~@.WU}=*ryq;=qFpf 9QD-D%;Y'?'Ri9V|gi%A N{k=#G=0P(1'Zz(7~&9 7]|6f('?A1~!N-ZUh{wPoOmU&(Wd ZF/n7p&Ne7Ya b]ajj/hjINc)HDET nQ @Ti.y-3D :rJO'qw SX+ BjucucsL z9 :sTr_>>T@TL'HytexP36"d 5xJ}-Dq=El,+PX|O>u1YvJ?kk23]*~Qbjm fB ?=lR{%}_-O$ikt/-.v{]b\yc`:gA ~`MYT 1~b<0q1!rC &qY@EirDn*;g#o|{YARxFaOG"P)kut`?"RxreLbD?W) Uh&?27{Q  xV&`!@Wh2hNnb "6 rwzU-> 9hRJ ?(y*D+?Sk|GMWqz'R(7TgzL$ UMA(TO(\bbh?3 "^4eVt WP}J(p!1{)m5\2UdY6Pom|hWk! Qw;aGg",T?wkE+m|_BtB4=b*z6T&)IOc5X[p(w`wFhu!l"43KaLlP4JYiWB.gHdtzC[e*Q+ieNE}Hr 6@)=_ifNAysfF`qN~=Dk:Q^a6'K|AGjU:"& (sqaal Bj=OfrJ=Y3D_Y5v\Z,GzUY%z#6xULG r(DKE2cc.%'i_Z1]WQy : '>Do}9P~;B,:rDq}}u6lDQ*'FK068KPisk?1(h>thM"OVDt:2jzmj|)XF!{\>YoEuFo}.}kI,u^PqSeJG=tOUB.>n B?x/Q.X4{/2Wtg:C1I.r&n[-bNI"7N/S \0E2lQ5ovB"3<=X5pQJY4L8M~8@p> W(LlvgmG!My5W4 ?vnPY Fb),vW5hmMwFVS\3 X8]|NiY-H A96zJaFIO ieE9fn\}3Ot#VX`f' PU{ DC-j"fO  !P'$Q#eg}){` {q2p5qMiY[q,PUJS:@_5vg,sJRX!k~UmA>y:%lVGO:7vcs=M6Wwf:My2xSOFjCwc]A$> AlzAm~O9>uzc/%Oy9csbg?;"c>k|!3Py^7>?)K/RAWR{RWL"pF[px^}F M@//_|Q}cPt;\i;B hTN-q!#eSPCsk^)v"#/bG1e+0bpX:!~|$"K[[aCvF@ 7a=^jwfU+:P+3N7xd0%j[ocO >h"7 L)t{6}>;&}+az*u?DKa$RmELl'8qrdhT;i\Kr@gO3gwJxCb7YT;#WNDU`a;n[z_+dH{ %}<X/8z;h=*Ba[-vK Q#[ey#Pd-~-/, YN;F93ZQaS VfkY88D{/'RL^suMNeHn|:B]j.i$no;g48?VdASOIk#vFUlr"kS #V{4ZWqkQjN#D0FWdoFc%B}QxHW$S|[gD`$Hp2:,G)C-@7t/$U(EBtKR&02|HE3%EK\_ru7*[l./T1V6aq< z=UDv{7_0s1R# [ c+^k0EHG/ DQ?6 ikt+QXJ !rblpL[ocY$AJ .k1\`\te:4kr@=C,{#zA1a6An"b A( [d0yr~+6e0PK$Ea*b(qh^ X Z@;p7~6N`g V *Lv>EP9uh@8S` ~S66'p?'oHpACU[#+n]'|]dZ8#q,E`u#\ ZZ/B{c@e_Cw\* . T3hZs}iYR0r.0lHjy:q*C S8@I 0>r: dHQ]j0{[j!E]h]gZ2JJ+h0`E0v/op -NWbStB'A:Ru/A#rlKj<W#_ZhJ-igIUu@FH4CIJ,bS#@%vw{edjKWs]EfH^fp8y+)"W(qeq).L;tJ9du;lF!AN.Q#"%Tr ])gHtp.$\5 =+r}eSWY\x+kXHT)gA(X,U;XXf jcpyxAs@AMP5lAz$0~`~1Wl[TYw%iXfR1>6SV=D!EFRKy-62SyJjBGj2 NHr/{IWb(5g6B%`e_S vIE*^El9O;N79*|ZJBoJ{rXFSh?nbyjU'JuF$q,gm=\{J4w6HMXIE) DB=L1\%0vP bYz7X}cpH#.L2;(#rx=`,r:6sAy4I $~ma1?]His{-Omd[O9m\z`xgPw.8|$!cZU"]d$/7v[]W\F"KseRyLuNxQ% #TF +d:%$-z3_pO~J?Alo0/]:sA)u|-W '-+c[/M28sNQ; .I<2r>G0c70Wfx=?.-y.5}K"H w9Vo5k(f-8KwHqhw9a` l,]>KRWvRu*.~v!"2.JL:) +?e&pr>_w:IS F{{b_a.n<5?,I1S_6ncZ}E;foGs~gEWmi>JLJpN&\ 2F ~)8Fjy4>sWz^}L LQ{|$ar;>a&7[kM7._J OKS P>WVnpS$'3iI88Gz /?dI!]EEz ^6gHbJ[}saSgD+Y+ea>M) s6?2 7:B~ f5k&U;z[b`@;Iu=H%8G"=}+$ 4kZ5?-L?\Yo.rG KJ&x&Czu]H.B>Et MHOp* C=:4r&m?0i_Ul7 VQQ;f0W=_hKDgbUFm<#X!X<]Cu njX3Tc 3b :15QOw"f/!W'Ce/N5oUZu_7+[HW^$TD>pFGE*z p@Tv(Dd3+Om#u45u _F>@8NWb+ 4aKY3"4Pifka\i"MI@?_Oy^m{ 2t3{V :/I.Aq Vf!U*5xG3ik%#a @SSqbXu_AiMC'CjFO1E6X'z _P/5,?g>rRi tJBRfw^#%'Sf$mj9(\)kA7ZIwa Ht~=v:iZHCHFk|?lp2O'!xdv6u>96)JXKIJsyw)P-T?M1h}; o@ *5d,{f`y[(&;,eVQgl_23c a`IJoHzdJa;jqC& Z[\uRU`E)d[VR*nZ%xOk+ {m6x H,,];kLmJ^VPs.BE `R. Q'f]j=vN :b]/@9Uv8jc:vRH c(ZtaXsi, sk5Q15a7%s{lQ,tB;%72^e(]R|5tKyy";'-u$e>'e+ F9@Bb<c:/"}LP&"zOVy\#U}Rz( g>0;=6%9X&.Wq#xr5$enxLA YaFCofRV@F.3,J 9}z5l0g`<8( o*@AB41BhI23vY KCO )*F bhuloVG5>(/nKccckVN*RXpYTsJv f`l=rN##,qP".^_J#'h!i/"?VfH%75MXcw|6*R//}441T?xH!d4N4G&X&)Q)8Y JG@\ RMS JWG zdeFzK0u{op"w|H9Y($+R5| ^VZ+n0afmp)p"Z y{5?r4%}6eRWY?.fp26)  rP%wq]X7@ OW9IcID|QUJ("/0UwQ|+N5\`J}}dxmsLk5,qd%hIX'ET 9y5yQ5@&mAyiaA/uH2e-|jzx %7C[THq/pay s^|LgRf-4) Lk da[u~vsRcej.^!aUWM T4;#r_"@?OgiW7?Fv~7N(i0PY~-e2[oA}hU{?1R J@WM reS~N+AtB~=: y\&G;`/8>>!lFl Y',j) u$!_Kh(bVczBp>&I]( ^HmJD(AQv=-f@o4E-~ "K 2f]^p22x ]fULd =vkF`Bt G@O?H!:4O5VEg5TiF 3@CjNo(3w^>`qJV@>BA(ECe9${(+8)IIr)T6H m''"v U^oj `L|e.F-vxrFI6_f0T'1NP6C)n|zharco4 |6jHSAk6\6mw^^TFg%Hvk*JJ{mEzX,h#5[_ 2dZ;]g|PJ[AIs`u+^g*U.Y]4[X-w{t?W@dVZg Yi.e*9eM:%@"Y=l9P!Vqs&kBbdW7y7" r,jG ,}S}k*p33t8T| ;TzCTzM hUL^C PT+,cK/ {c.7kB}D P<!j@xF 9G]'0zW cNpwWDzx.A/UXe7L#7 5`5gP"j8u! 6"8,pG`TBm b#miC{ wf;_M07;&ce Rs`gcT"# kq.2("^f{2x&I~Jtx>4=a+g{1jCaE g(B D}3.W!vp@,Hf*y=QTl(q^hdSZ?"1empL,>-ThBfx~T1K<mhB*x?K]hXh}Mb.z\@K7)Ml'? L; NJ3fVya-g?au]'L$hW\xw%1qx^0J!]-l^Sh=MRWg#Mt}QHjm}= V,? iEwH,qy +XSNp5Aio g;[qx/u 'Hhf Ta)2%" SHO2UPmhFFD3abUfR/Tv(y*` B_ UX'^3>?n7v>6kBy#@R Z q"9qf>B:7HU$>a; ,`S@jTD||.`4(g{\Xm"<")#M0;P=O?^z_i`.#jL4lN3],9y$."M`}, \;bi>if tlGU\tI$ qcrtqzC dF[?Nm!0 F1W'Jb&E;\;75gDJ?gv@>H&]4_YFI R,L] r9vX5% ?p#cyyh.^cagG %rcP;wA}o!I1p[w.i8/88}ndG,msnB^~e*B7~Bn w'Ml-?moh*(:qj!F|<`/jA\1H\~Y {0UK: Zvg_ayvM`~RqDnUwH8%+3& Km[; k@D/x13pY pd#m4OVx}5g r[Kk&cf9e2YiIpW>hU$$rDUD#B Y F#=j2'jYM\c"I]_/\,S##AT,=\I662LiG6* 79>7M['wlJ0^|:e(WOcuCZayVq80[s%9 5}]XANZ% `PmMR8 AK*\w r@v?[a5 :Yb4F-MAQ o4*LqR5  JX,"S_QV6S$IAOwOP`r W:WAdP^$k<&|X>\J)3Hn\-VZ$aBDVA < qoO\  ]4Mv*2W?N1Ac/}uvh"f4 .4:5 iA0,8DF bO oSLFsWwj]:=-I=0NWWt9""T..Oi:ipd<f~.<7i_A"TV%>ukKdP`_ >:1FC{\#onxj. * :Lf6Vb)q.:vdrOL O<)1{Rd;qZS,+vmP}:eCktsF-Y"JY&;7wIe9k#/DQ<"!*j)?SlL9nJ GjOA (a"%nDivZi3Bu6lU6 n/ !/9v z6 fC~\r1>Dosy  OnrEk}n :O:yj%$BOI\R'?w- lCv^0VV1 I|F^hU{VJ[I0W&M_:!j 838o)mgY1T)[%0ihC#LilCYE6f*tSJj )XKAqZwDe"vtK`B'E%"f78\z*H>Jn NIj`e4b{qQ.Rk@ feg%UY?-@h@ds URM}Uqs4,/u$95k#:f3Ygx`(zl-" dr1 0]C\`52_*evH8?nabJ{/ xnYS}x 3&ij7(.{*k! 'Rx)Q)Rqo{eqik:8;2''uKntygXb0_ VMS.BCK[V9.BIN]RT.H;1=|/* plane */ #endif ); extern int XDefaultDepth( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDefaultDepthOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XDefaultScreen( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XDefineCursor( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Cursor /* cursor */ #endif ); extern XDeleteProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom /* property */ #endif ); extern XDestroyWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XDestroySubwindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern int XDoesBackingStore( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern Bool XDoesSaveUnders( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XDisableAccessControl( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XDisplayCells( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDisplayHeight( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDisplayHeightMM( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern XDisplayKeycodes( #if NeedFunctionPrototypes Display* /* display */, int* /* min_keycodes_return */, int* /* max_keycodes_return */ #endif ); extern int XDisplayPlanes( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDisplayWidth( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDisplayWidthMM( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern XDrawArc( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, int /* angle1 */, int /* angle2 */ #endif ); extern XDrawArcs( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XArc* /* arcs */, int /* narcs */ #endif ); extern XDrawImageString( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, const char* /* string */, int /* length */ #endif ); extern XDrawImageString16( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, const XChar2b* /* string */, int /* length */ #endif ); extern XDrawLine( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x1 */, int /* x2 */, int /* y1 */, int /* y2 */ #endif ); extern XDrawLines( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XPoint* /* points */, int /* npoints */, int /* mode */ #endif ); extern XDrawPoint( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */ #endif ); extern XDrawPoints( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XPoint* /* points */, int /* npoints */, int /* mode */ #endif ); extern XDrawRectangle( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern XDrawRectangles( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XRectangle* /* rectangles */, int /* nrectangles */ #endif ); extern XDrawSegments( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XSegment* /* segments */, int /* nsegments */ #endif ); extern XDrawString( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, const char* /* string */, int /* length */ #endif ); extern XDrawString16( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, const XChar2b* /* string */, int /* length */ #endif ); extern XDrawText( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, XTextItem* /* items */, int /* nitems */ #endif ); extern XDrawText16( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, XTextItem16* /* items */, int /* nitems */ #endif ); extern XEnableAccessControl( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XEventsQueued( #if NeedFunctionPrototypes Display* /* display */, int /* mode */ #endif ); extern Status XFetchName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, char** /* window_name_return */ #endif ); extern XFillArc( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, int /* angle1 */, int /* angle2 */ #endif ); extern XFillArcs( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XArc* /* arcs */, int /* narcs */ #endif ); extern XFillPolygon( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XPoint* /* points */, int /* npoints */, int /* shape */, int /* mode */ #endif ); extern XFillRectangle( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern XFillRectangles( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XRectangle* /* rectangles */, int /* nrectangles */ #endif ); extern XFlush( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XForceScreenSaver( #if NeedFunctionPrototypes Display* /* display */, int /* mode */ #endif ); extern XFree( #if NeedFunctionPrototypes char* /* data */ #endif ); extern XFreeColormap( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */ #endif ); extern XFreeColors( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, unsigned long* /* pixels */, int /* npixels */, unsigned long /* planes */ #endif ); extern XFreeCursor( #if NeedFunctionPrototypes Display* /* display */, Cursor /* cursor */ #endif ); extern XFreeExtensionList( #if NeedFunctionPrototypes char** /* list */ #endif ); extern XFreeFont( #if NeedFunctionPrototypes Display* /* display */, XFontStruct* /* font_struct */ #endif ); extern XFreeFontInfo( #if NeedFunctionPrototypes char** /* names */, XFontStruct* /* free_info * VMS.BCK[V9.BIN]RT.H;1=/, int /* actual_count */ #endif ); extern XFreeFontNames( #if NeedFunctionPrototypes char** /* list */ #endif ); extern XFreeFontPath( #if NeedFunctionPrototypes char** /* list */ #endif ); extern XFreeGC( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */ #endif ); extern XFreeModifiermap( #if NeedFunctionPrototypes XModifierKeymap* /* modmap */ #endif ); extern XFreePixmap( #if NeedFunctionPrototypes Display* /* display */, Pixmap /* pixmap */ #endif ); extern int XGeometry( #if NeedFunctionPrototypes Display* /* display */, int /* screen */, const char* /* position */, const char* /* default_position */, unsigned int /* bwidth */, unsigned int /* fwidth */, unsigned int /* fheight */, int /* xadder */, int /* yadder */, int* /* x_return */, int* /* y_return */, int* /* width_return */, int* /* height_return */ #endif ); extern XGetErrorDatabaseText( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */, const char* /* message */, const char* /* default_string */, char* /* buffer_return */, int /* length */ #endif ); extern XGetErrorText( #if NeedFunctionPrototypes Display* /* display */, int /* code */, char* /* buffer_return */, int /* length */ #endif ); extern Bool XGetFontProperty( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, Atom /* atom */, unsigned long* /* value_return */ #endif ); extern Status XGetGCValues( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* valuemask */, XGCValues* /* values_return */ #endif ); extern Status XGetGeometry( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, Window* /* root_return */, int* /* x_return */, int* /* y_return */, unsigned int* /* width_return */, unsigned int* /* height_return */, unsigned int* /* border_width_return */, unsigned int* /* depth_return */ #endif ); extern Status XGetIconName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, char** /* icon_name_return */ #endif ); extern XGetInputFocus( #if NeedFunctionPrototypes Display* /* display */, Window* /* focus_return */, int* /* revert_to_return */ #endif ); extern XGetKeyboardControl( #if NeedFunctionPrototypes Display* /* display */, XKeyboardState* /* values_return */ #endif ); extern XGetPointerControl( #if NeedFunctionPrototypes Display* /* display */, int* /* accel_numerator_return */, int* /* accel_denominator_return */, int* /* threshold_return */ #endif ); extern int XGetPointerMapping( #if NeedFunctionPrototypes Display* /* display */, unsigned char* /* map_return */, int /* nmap */ #endif ); extern XGetScreenSaver( #if NeedFunctionPrototypes Display* /* display */, int* /* timeout_return */, int* /* interval_return */, int* /* prefer_blanking_return */, int* /* allow_exposures_return */ #endif ); extern Status XGetTransientForHint( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window* /* prop_window_return */ #endif ); extern int XGetWindowProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom /* property */, long /* long_offset */, long /* long_length */, Bool /* delete */, Atom /* req_type */, Atom* /* actual_type_return */, int* /* actual_format_return */, unsigned long* /* nitems_return */, unsigned long* /* bytes_after_return */, unsigned char** /* prop_return */ #endif ); extern Status XGetWindowAttributes( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XWindowAttributes* /* window_attributes_return */ #endif ); extern XGrabButton( #if NeedFunctionPrototypes Display* /* display */, unsigned int /* button */, unsigned int /* modifiers */, Window /* grab_window */, Bool /* owner_events */, unsigned int /* event_mask */, int /* pointer_mode */, int /* keyboard_mode */, Window /* confine_to */, Cursor /* cursor */ #endif ); extern XGrabKey( #if NeedFunctionPrototypes Display* /* display */, int /* keycode */, unsigned int /* modifiers */, Window /* grab_window */, Bool /* owner_events */, int /* pointer_mode */, int /* keyboard_mode */ #endif ); extern int XGrabKeyboard( #if NeedFunctionPrototypes Display* /* display */, Window /* grab_window */, Bool /* owner_events */, int /* pointer_mode */, int /* keyboard_mode */, Time /* time */ #endif ); extern int XGrabPointer( #if NeedFunctionPrototypes Display* /* display */, Window /* grab_window */, Bool /* owner_events */, unsigned int /* event_mask */, int /* pointer_mode */, int /* keyboard_mode */, Window /* confine_to */, Cursor /* cursor */, Time /* time */ #endif ); extern XGrabServer( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XHeightMMOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XHeightOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XIfEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */, Bool (*) ( Display* /* display */, XEvent* /* event */, char* /* arg */ ) /* predicate */, char* /* arg */ #endif ); extern int XImageByteOrder( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XInstallColormap( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */ #endif ); extern KeyCode XKeysymToKeycode( #if NeedFunctionPrototypes Display* /* display */, KeySym /* keysym */ #endif ); extern XKillClient( #if NeedFunctionPrototypes Display* /* display */, XID /* resource */ #endif ); extern unsigned long XLastKnownRequestProcessed( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Status XLookupColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, const char* /* color_name */, XColor* /* exact_def_return */, XColor* /* screen_def_return */ #endif ); extern XLowerWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XMapRaised( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XMapSubwindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XMapWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XMaskEvent( #if NeedFunctionPrototypes Display* /* display */, long /* event_mask */, XEvent* /* event_return */ #endif ); extern int XMaxCmapsOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XMinCmapsOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XMoveResizeWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern XMoveWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* x */, int /* y */ #endif ); extern XNextEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /*  VMS.BCK[V9.BIN]RT.H;1=Eevent_return */ #endif ); extern XNoOp( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Status XParseColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, const char* /* spec */, XColor* /* exact_def_return */ #endif ); extern int XParseGeometry( #if NeedFunctionPrototypes const char* /* parsestring */, int* /* x_return */, int* /* y_return */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern XPeekEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */ #endif ); extern XPeekIfEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */, Bool (*) ( Display* /* display */, XEvent* /* event */, char* /* arg */ ) /* predicate */, char* /* arg */ #endif ); extern int XPending( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XPlanesOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XProtocolRevision( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XProtocolVersion( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XPutBackEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event */ #endif ); extern XPutImage( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XImage* /* image */, int /* src_x */, int /* src_y */, int /* dest_x */, int /* dest_y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern int XQLength( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Status XQueryBestCursor( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, unsigned int /* width */, unsigned int /* height */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern Status XQueryBestSize( #if NeedFunctionPrototypes Display* /* display */, int /* class */, Drawable /* which_screen */, unsigned int /* width */, unsigned int /* height */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern Status XQueryBestStipple( #if NeedFunctionPrototypes Display* /* display */, Drawable /* which_screen */, unsigned int /* width */, unsigned int /* height */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern Status XQueryBestTile( #if NeedFunctionPrototypes Display* /* display */, Drawable /* which_screen */, unsigned int /* width */, unsigned int /* height */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern XQueryColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* def_in_out */ #endif ); extern XQueryColors( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* defs_in_out */, int /* ncolors */ #endif ); extern Bool XQueryExtension( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */, int* /* major_opcode_return */, int* /* first_event_return */, int* /* first_error_return */ #endif ); extern XQueryKeymap( #if NeedFunctionPrototypes Display* /* display */, char [32] /* keys_return */ #endif ); extern Bool XQueryPointer( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window* /* root_return */, Window* /* child_return */, int* /* root_x_return */, int* /* root_y_return */, int* /* win_x_return */, int* /* win_y_return */, unsigned int* /* mask_return */ #endif ); extern XQueryTextExtents( #if NeedFunctionPrototypes Display* /* display */, XID /* font_ID */, const char* /* string */, int /* nchars */, int* /* direction_return */, int* /* font_ascent_return */, int* /* font_descent_return */, XCharStruct* /* overall_return */ #endif ); extern XQueryTextExtents16( #if NeedFunctionPrototypes Display* /* display */, XID /* font_ID */, const XChar2b* /* string */, int /* nchars */, int* /* direction_return */, int* /* font_ascent_return */, int* /* font_descent_return */, XCharStruct* /* overall_return */ #endif ); extern Status XQueryTree( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window* /* root_return */, Window* /* parent_return */, Window** /* children_return */, unsigned int* /* nchildren_return */ #endif ); extern XRaiseWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern int XReadBitmapFile( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, const char* /* filename */, unsigned int* /* width_return */, unsigned int* /* height_return */, Pixmap* /* bitmap_return */, int* /* x_hot_return */, int* /* y_hot_return */ #endif ); extern XRebindKeysym( #if NeedFunctionPrototypes Display* /* display */, KeySym /* keysym */, KeySym* /* list */, int /* mod_count */, const unsigned char* /* string */, int /* bytes_string */ #endif ); extern XRecolorCursor( #if NeedFunctionPrototypes Display* /* display */, Cursor /* cursor */, XColor* /* foreground_color */, XColor* /* background_color */ #endif ); extern XRefreshKeyboardMapping( #if NeedFunctionPrototypes XMappingEvent* /* event_map */ #endif ); extern XRemoveFromSaveSet( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XRemoveHost( #if NeedFunctionPrototypes Display* /* display */, XHostAddress* /* host */ #endif ); extern XRemoveHosts( #if NeedFunctionPrototypes Display* /* display */, XHostAddress* /* hosts */, int /* num_hosts */ #endif ); extern XReparentWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window /* parent */, int /* x */, int /* y */ #endif ); extern XResetScreenSaver( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XResizeWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned int /* width */, unsigned int /* height */ #endif ); extern XRestackWindows( #if NeedFunctionPrototypes Display* /* display */, Window* /* windows */, int /* nwindows */ #endif ); extern XRotateBuffers( #if NeedFunctionPrototypes Display* /* display */, int /* rotate */ #endif ); extern XRotateWindowProperties( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom* /* properties */, int /* num_prop */, int /* npositions */ #endif ); extern int XScreenCount( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XSelectInput( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, long /* event_mask */ #endif ); extern Status XSendEvent( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Bool /* propagate */, long /* event_mask */, XEvent* /* event_send */ #endif ); extern XSetAccessControl( #if NeedFunctionPrototypes Display* /* display */, int /* mode */ #endif ); extern XSetArcMode( #if NeedFunctionPrototypes Display* /* display */, : VMS.BCK[V9.BIN]RT.H;1=} GC /* gc */, int /* arc_mode */ #endif ); extern XSetBackground( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* background */ #endif ); extern XSetClipMask( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Pixmap /* pixmap */ #endif ); extern XSetClipOrigin( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* clip_x_origin */, int /* clip_y_origin */ #endif ); extern XSetClipRectangles( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* clip_x_origin */, int /* clip_y_origin */, XRectangle* /* rectangles */, int /* n */, int /* ordering */ #endif ); extern XSetCloseDownMode( #if NeedFunctionPrototypes Display* /* display */, int /* close_mode */ #endif ); extern XSetCommand( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, char** /* argv */, int /* argc */ #endif ); extern XSetDashes( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* dash_offset */, const char* /* dash_list */, int /* n */ #endif ); extern XSetFillRule( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* fill_rule */ #endif ); extern XSetFillStyle( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* fill_style */ #endif ); extern XSetFont( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Font /* font */ #endif ); extern XSetFontPath( #if NeedFunctionPrototypes Display* /* display */, char** /* directories */, int /* ndirs */ #endif ); extern XSetForeground( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* foreground */ #endif ); extern XSetFunction( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* function */ #endif ); extern XSetGraphicsExposures( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Bool /* graphics_exposures */ #endif ); extern XSetIconName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, const char* /* icon_name */ #endif ); extern XSetInputFocus( #if NeedFunctionPrototypes Display* /* display */, Window /* focus */, int /* revert_to */, Time /* time */ #endif ); extern XSetLineAttributes( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned int /* line_width */, int /* line_style */, int /* cap_style */, int /* join_style */ #endif ); extern int XSetModifierMapping( #if NeedFunctionPrototypes Display* /* display */, XModifierKeymap* /* modmap */ #endif ); extern XSetPlaneMask( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* plane_mask */ #endif ); extern int XSetPointerMapping( #if NeedFunctionPrototypes Display* /* display */, const unsigned char* /* map */, int /* nmap */ #endif ); extern XSetScreenSaver( #if NeedFunctionPrototypes Display* /* display */, int /* timeout */, int /* interval */, int /* prefer_blanking */, int /* allow_exposures */ #endif ); extern XSetSelectionOwner( #if NeedFunctionPrototypes Display* /* display */, Atom /* selection */, Window /* owner */, Time /* time */ #endif ); extern XSetState( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* foreground */, unsigned long /* background */, int /* function */, unsigned long /* plane_mask */ #endif ); extern XSetStipple( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Pixmap /* stipple */ #endif ); extern XSetSubwindowMode( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* subwindow_mode */ #endif ); extern XSetTSOrigin( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* ts_x_origin */, int /* ts_y_origin */ #endif ); extern XSetTile( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Pixmap /* tile */ #endif ); extern XSetWindowBackground( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned long /* background_pixel */ #endif ); extern XSetWindowBackgroundPixmap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Pixmap /* background_pixmap */ #endif ); extern XSetWindowBorder( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned long /* border_pixel */ #endif ); extern XSetWindowBorderPixmap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Pixmap /* border_pixmap */ #endif ); extern XSetWindowBorderWidth( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned int /* width */ #endif ); extern XSetWindowColormap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Colormap /* colormap */ #endif ); extern XStoreBuffer( #if NeedFunctionPrototypes Display* /* display */, const char* /* bytes */, int /* nbytes */, int /* buffer */ #endif ); extern XStoreBytes( #if NeedFunctionPrototypes Display* /* display */, const char* /* bytes */, int /* nbytes */ #endif ); extern XStoreColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* color */ #endif ); extern XStoreColors( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* color */, int /* ncolors */ #endif ); extern XStoreName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, const char* /* window_name */ #endif ); extern XStoreNamedColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, const char* /* color */, unsigned long /* pixel */, int /* flags */ #endif ); extern XSync( #if NeedFunctionPrototypes Display* /* display */, Bool /* discard */ #endif ); extern XTextExtents( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, const char* /* string */, int /* nchars */, int* /* direction_return */, int* /* font_ascent_return */, int* /* font_descent_return */, XCharStruct* /* overall_return */ #endif ); extern XTextExtents16( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, const XChar2b* /* string */, int /* nchars */, int* /* direction_return */, int* /* font_ascent_return */, int* /* font_descent_return */, XCharStruct* /* overall_return */ #endif ); extern int XTextWidth( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, const char* /* string */, int /* count */ #endif ); extern int XTextWidth16( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, const XChar2b* /* string */, int /* count */ #endif ); extern Bool XTranslateCoordinates( #if NeedFunctionPrototypes Display* /* display */, Window /* src_w */, Window /* dest_w */, int /* src_x */, int /* src_y */, int* /* dest_x_return */, int* /* dest_y_return */, Window* /* child_return */ #endif ); extern XUndefineCursor( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XUngrabButton( #if NeedFunctionPrototypes Display* /* displ VMS.BCK[V9.BIN]RT.H;1=qay */, unsigned int /* button */, unsigned int /* modifiers */, Window /* grab_window */ #endif ); extern XUngrabKey( #if NeedFunctionPrototypes Display* /* display */, int /* keycode */, unsigned int /* modifiers */, Window /* grab_window */ #endif ); extern XUngrabKeyboard( #if NeedFunctionPrototypes Display* /* display */, Time /* time */ #endif ); extern XUngrabPointer( #if NeedFunctionPrototypes Display* /* display */, Time /* time */ #endif ); extern XUngrabServer( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XUninstallColormap( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */ #endif ); extern XUnloadFont( #if NeedFunctionPrototypes Display* /* display */, Font /* font */ #endif ); extern XUnmapSubwindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XUnmapWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern int XVendorRelease( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XWarpPointer( #if NeedFunctionPrototypes Display* /* display */, Window /* src_w */, Window /* dest_w */, int /* src_x */, int /* src_y */, unsigned int /* src_width */, unsigned int /* src_height */, int /* dest_x */, int /* dest_y */ #endif ); extern int XWidthMMOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XWidthOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XWindowEvent( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, long /* event_mask */, XEvent* /* event_return */ #endif ); extern int XWriteBitmapFile( #if NeedFunctionPrototypes Display* /* display */, const char* /* filename */, Pixmap /* bitmap */, unsigned int /* width */, unsigned int /* height */, int /* x_hot */, int /* y_hot */ #endif ); /* * The following functions have FunctionPrototypes in the XUTIL.H include * file. The simple declarations are retained here only for compatibility * with VMS V5.3 and V5.4. */ #if !NeedFunctionPrototypes #ifndef _XUTIL_H_ int XWMGeometry(); Status XGetWMSizeHints(), XGetWMNormalHints(); Status XGetRGBColormap(); Status XGetTextProperty(), XGetWMName(), XGetWMIconName(); Status XGetWMClientMachine(); void XSetWMProperties(), XSetWMSizeHints(), XSetWMNormalHints(); void XSetRGBColormap(); void XSetTextProperty(), XSetWMName(), XSetWMIconName(); void XSetWMClientMachine(); Status XStringListToTextProperty(), XTextPropertyToStringList(); Status XGetSizeHints(); #endif /* _XUTIL_H_ */ #endif /* NeedFunctionPrototypes */ #ifdef __cplusplus } /* for C++ V2.0 */ #endif #endif /* _XLIB_H_ */ /**************************************** end decw$include:Xlib.h */ /**************************************** from decw$include:Intrinsic.h: */ /* * $XConsortium: Intrinsic.h,v 1.139 90/08/22 14:21:01 swick Exp $ * $oHeader: Intrinsic.h,v 1.10 88/09/01 10:33:34 asente Exp $ */ /*********************************************************** Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts, and the Massachusetts Institute of Technology, Cambridge, Massachusetts. All Rights Reserved Permission to use, copy, modify, and distribute this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the names of Digital or MIT not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ******************************************************************/ #ifndef _XtIntrinsic_h #define _XtIntrinsic_h #ifdef VMS /* MIN and MAX get defined vis on Unix */ #define MIN(a,b) (((a)<(b))?(a):(b)) #define MAX(a,b) (((a)>(b))?(a):(b)) #include #include #include #include #else #include #ifndef DEC_BUG_FIX #include #endif #include #include #ifdef DEC_BUG_FIX #include #endif #endif /* VMS */ #define XtSpecificationRelease 4 #ifdef XTFUNCPROTO #undef NeedFunctionPrototypes #define NeedFunctionPrototypes 1 #else #undef NeedFunctionPrototypes #define NeedFunctionPrototypes 0 #undef NeedWidePrototypes #define NeedWidePrototypes 0 #endif #ifndef NeedFunctionPrototypes #if defined(FUNCPROTO) || defined(__STDC__) || defined(__cplusplus) || defined(c_plusplus) #define NeedFunctionPrototypes 1 #else #define NeedFunctionPrototypes 0 #endif /* __STDC__ */ #endif /* NeedFunctionPrototypes */ /* NeedVarargsPrototypes is temporary until function prototypes work everywhere */ #ifndef NeedVarargsPrototypes #if defined(FUNCPROTO) || defined(__STDC__) || defined(__cplusplus) || defined(c_plusplus) || NeedFunctionPrototypes #define NeedVarargsPrototypes 1 #else #define NeedVarargsPrototypes 0 #endif /* __STDC__ */ #endif /* NeedVarargsPrototypes */ typedef char *String; #if defined(__cplusplus) || defined(c_plusplus) #define CONST const /* make const String do the right thing */ #define String char* #else #define CONST #endif /* __cplusplus */ #ifndef NeedWidePrototypes #if defined(NARROWPROTO) #define NeedWidePrototypes 0 #else #define NeedWidePrototypes 1 /* default to make interropt. easier */ #endif #endif #ifndef NULL #define NULL (void *) 0 #endif #if defined(VAXC) && !defined(__DECC) #define externalref globalref #define externaldef(psect) globaldef {"psect"} noshare #else #define externalref extern #define externaldef(psect) #endif /* VAXC */ #ifndef FALSE #define FALSE 0 #define TRUE 1 #endif #define XtNumber(arr) ((Cardinal) (sizeof(arr) / sizeof(arr[0]))) typedef struct _WidgetRec *Widget; typedef Widget *WidgetList; typedef struct _WidgetClassRec *WidgetClass; typedef struct _CompositeRec *CompositeWidget; typedef struct _XtActionsRec *XtActionList; typedef struct _XtEventRec *XtEventTable; typedef struct _XtBoundAccActionRec *XtBoundAccActions; typedef struct _XtAppStruct *XtAppContext; typedef unsigned long XtValueMask; typedef unsigned long XtIntervalId; typedef unsigned long XtInputId; typedef unsigned long XtWorkProcId; typedef unsigned int XtGeometryMask; typedef unsigned long XtGCMask; /* Mask of values that are used by widget*/ typedef unsigned long Pixel; /* Index into colormap */ typedef int XtCacheType; #define XtCacheNone 0x001 #define XtCacheAll 0x002 #define XtCacheByDisplay 0x003 #define XtCacheRefCount 0x100 /**************************************************************** * * System Dependent Definitions; see spec for specific range * requirements. Do not assume every implementation uses the * same base types! * * * XtArgVal ought to be a union of XtPointer, char *, long, int *, and proc * * but casting to union types is not really supported. * * So the typedef for XtArgVa9. VMS.BCK[V9.BIN]RT.H;1=l should be chosen such that * * sizeof (XtArgVal) >= sizeof(XtPointer) * sizeof(char *) * sizeof(long) * sizeof(int *) * sizeof(proc *) * * ArgLists rely heavily on the above typedef. * ****************************************************************/ #ifdef CRAY typedef long Boolean; typedef char* XtArgVal; typedef long XtEnum; #else typedef char Boolean; typedef long XtArgVal; typedef unsigned char XtEnum; #endif typedef unsigned int Cardinal; typedef unsigned short ShortCard; /* For R3 compatibility */ typedef unsigned short Dimension; /* Size in pixels */ typedef short Position; /* Offset from 0 coordinate */ #ifdef __STDC__ typedef void* XtPointer; #else typedef char* XtPointer; #endif typedef XtPointer Opaque; #ifdef VMS #include #include #include #include #include #else #include #include #include #include #include #endif /* VMS */ typedef struct _TranslationData *XtTranslations; typedef struct _TranslationData *XtAccelerators; typedef unsigned int Modifiers; typedef void (*XtActionProc)( #if NeedFunctionPrototypes Widget /* widget */, XEvent* /* event */, String* /* params */, Cardinal* /* num_params */ #endif ); typedef XtActionProc* XtBoundActions; typedef struct _XtActionsRec{ String string; XtActionProc proc; } XtActionsRec; typedef enum { /* address mode parameter representation */ /* ------------ ------------------------ */ XtAddress, /* address */ XtBaseOffset, /* offset */ XtImmediate, /* constant */ XtResourceString, /* resource name string */ XtResourceQuark, /* resource name quark */ XtWidgetBaseOffset, /* offset from ancestor */ XtProcedureArg /* procedure to invoke */ } XtAddressMode; typedef struct { XtAddressMode address_mode; XtPointer address_id; Cardinal size; } XtConvertArgRec, *XtConvertArgList; typedef void (*XtConvertArgProc)( #if NeedFunctionPrototypes Widget /* widget */, Cardinal* /* size */, XrmValue* /* value */ #endif ); typedef struct { XtGeometryMask request_mode; Position x, y; Dimension width, height, border_width; Widget sibling; int stack_mode; /* Above, Below, TopIf, BottomIf, Opposite, DontChange */ } XtWidgetGeometry; /* Additions to Xlib geometry requests: ask what would happen, don't do it */ #define XtCWQueryOnly (1 << 7) /* Additions to Xlib stack modes: don't change stack order */ #define XtSMDontChange 5 typedef void (*XtConverter)( #if NeedFunctionPrototypes XrmValue* /* args */, Cardinal* /* num_args */, XrmValue* /* from */, XrmValue* /* to */ #endif ); typedef Boolean (*XtTypeConverter)( #if NeedFunctionPrototypes Display* /* dpy */, XrmValue* /* args */, Cardinal* /* num_args */, XrmValue* /* from */, XrmValue* /* to */, XtPointer* /* converter_data */ #endif ); typedef void (*XtDestructor)( #if NeedFunctionPrototypes XtAppContext /* app */, XrmValue* /* to */, XtPointer /* converter_data */, XrmValue* /* args */, Cardinal* /* num_args */ #endif ); typedef Opaque XtCacheRef; typedef Opaque XtActionHookId; typedef void (*XtActionHookProc)( #if NeedFunctionPrototypes Widget /* w */, XtPointer /* client_data */, String /* action_name */, XEvent* /* event */, String* /* params */, Cardinal* /* num_params */ #endif ); typedef void (*XtKeyProc)( #if NeedFunctionPrototypes Display* /* dpy */, #if NeedWidePrototypes /* KeyCode */ int /* keycode */, #else KeyCode /* keycode */, #endif /* NeedWidePrototypes */ Modifiers /* modifiers */, Modifiers* /* modifiers_return */, KeySym* /* keysym_return */ #endif ); typedef void (*XtCaseProc)( #if NeedFunctionPrototypes Display* /* display */, KeySym /* keysym */, KeySym* /* lower_return */, KeySym* /* upper_return */ #endif ); typedef void (*XtEventHandler)( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, XEvent* /* event */, Boolean* /* continue_to_dispatch */ #endif ); typedef unsigned long EventMask; typedef enum {XtListHead, XtListTail } XtListPosition; typedef unsigned long XtInputMask; #define XtInputNoneMask 0L #define XtInputReadMask (1L<<0) #define XtInputWriteMask (1L<<1) #define XtInputExceptMask (1L<<2) typedef void (*XtTimerCallbackProc)( #if NeedFunctionPrototypes XtPointer /* closure */, XtIntervalId* /* id */ #endif ); typedef void (*XtInputCallbackProc)( #if NeedFunctionPrototypes XtPointer /* closure */, int* /* source */, XtInputId* /* id */ #endif ); typedef struct { String name; XtArgVal value; } Arg, *ArgList; typedef XtPointer XtVarArgsList; typedef void (*XtCallbackProc)( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, /* data the application registered */ XtPointer /* call_data */ /* callback specific data */ #endif ); typedef struct _XtCallbackRec { XtCallbackProc callback; XtPointer closure; } XtCallbackRec, *XtCallbackList; typedef enum { XtCallbackNoList, XtCallbackHasNone, XtCallbackHasSome } XtCallbackStatus; typedef enum { XtGeometryYes, /* Request accepted. */ XtGeometryNo, /* Request denied. */ XtGeometryAlmost, /* Request denied, but willing to take replyBox. */ XtGeometryDone /* Request accepted and done. */ } XtGeometryResult; typedef enum {XtGrabNone, XtGrabNonexclusive, XtGrabExclusive} XtGrabKind; typedef struct { Widget shell_widget; Widget enable_widget; } XtPopdownIDRec, *XtPopdownID; typedef struct _XtResource { String resource_name; /* Resource name */ String resource_class; /* Resource class */ String resource_type; /* Representation type desired */ Cardinal resource_size; /* Size in bytes of representation */ Cardinal resource_offset;/* Offset from base to put resource value */ String default_type; /* representation type of specified default */ XtPointer default_addr; /* Address of default resource */ } XtResource, *XtResourceList; typedef void (*XtResourceDefaultProc)( #if NeedFunctionPrototypes Widget /* widget */, int /* offset */, XrmValue* /* value */ #endif ); typedef void (*XtErrorMsgHandler)( #if NeedFunctionPrototypes String /* name */, String /* type */, String /* class */, String /* defaultp */, String* /* params */, Cardinal* /* num_params */ #endif ); typedef void (*XtErrorHandler)( #if NeedFunctionPrototypes String /* msg */ #endif ); typedef Boolean (*XtWorkProc)( #if NeedFunctionPrototypes XtPointer /* closure */ /* data the application registered */ #endif ); typedef struct { char match; String substitution; } SubstitutionRec, *Substitution; typedef Boolean (*XtFilePredicate)( /* String filename */ ); typedef XtPointer XtRequestId; /* * Routine to get the value of a selection as a given type. Returns * TRUE if it successfully got the value as requested, FALSE otherwise. * selection is the atom describing the type of selection (e.g. * primary or secondary). value is set to the pointer of the converted * value, with length elements of data, each of size indicated by format. * (This pointer will be freed using XtFree when the selection has * been delivered to the requestor.) target is * the tytA VMS.BCK[V9.BIN]RT.H;1=7pe that the conversion should use if possible; type is returned as * the actual type returned. Format should be either 8, 16, or 32, and * specifies the word size of the selection, so that Xlib and the server can * convert it between different machine types. */ typedef Boolean (*XtConvertSelectionProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */, Atom* /* target */, Atom* /* type_return */, XtPointer* /* value_return */, unsigned long* /* length_return */, int* /* format_return */ #endif ); /* * Routine to inform a widget that it no longer owns the given selection. */ typedef void (*XtLoseSelectionProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */ #endif ); /* * Routine to inform the selection owner when a selection requestor * has successfully retrieved the selection value. */ typedef void (*XtSelectionDoneProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */, Atom* /* target */ #endif ); /* * Routine to call back when a requested value has been obtained for a * selection. */ typedef void (*XtSelectionCallbackProc)( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, Atom* /* selection */, Atom* /* type */, XtPointer /* value */, unsigned long* /* length */, int* /* format */ #endif ); typedef void (*XtLoseSelectionIncrProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */, XtPointer /* client_data */ #endif ); typedef void (*XtSelectionDoneIncrProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */, Atom* /* target */, XtRequestId* /* receiver_id */, XtPointer /* client_data */ #endif ); typedef Boolean (*XtConvertSelectionIncrProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */, Atom* /* target */, Atom* /* type */, XtPointer* /* value */, unsigned long* /* length */, int* /* format */, unsigned long* /* max_length */, XtPointer /* client_data */, XtRequestId* /* receiver_id */ #endif ); typedef void (*XtCancelConvertSelectionProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */, Atom* /* target */, XtRequestId* /* receiver_id */, XtPointer /* client_data */ #endif ); /*************************************************************** * * Exported Interfaces * ****************************************************************/ #ifdef __cplusplus /* do not leave open across includes */ extern "C" { /* for C++ V2.0 */ #endif extern Boolean XtConvertAndStore( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* from_type */, XrmValue* /* from */, CONST String /* to_type */, XrmValue* /* to_in_out */ #endif ); extern Boolean XtCallConverter( #if NeedFunctionPrototypes Display* /* dpy */, XtTypeConverter /* converter */, XrmValuePtr /* args */, Cardinal /* num_args */, XrmValuePtr /* from */, XrmValue* /* to_return */, XtCacheRef* /* cache_ref_return */ #endif ); extern Boolean XtDispatchEvent( #if NeedFunctionPrototypes XEvent* /* event */ #endif ); extern Boolean XtCallAcceptFocus( #if NeedFunctionPrototypes Widget /* widget */, Time* /* t */ #endif ); extern Boolean XtPeekEvent( #if NeedFunctionPrototypes XEvent* /* event */ #endif ); extern Boolean XtAppPeekEvent( #if NeedFunctionPrototypes XtAppContext /* appContext */, XEvent* /* event */ #endif ); extern Boolean XtIsSubclass( #if NeedFunctionPrototypes Widget /* widget */, WidgetClass /* widgetClass */ #endif ); extern Boolean XtIsObject( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern Boolean _XtCheckSubclassFlag( /* implementation-private */ #if NeedFunctionPrototypes Widget /* object */, #if NeedWidePrototypes /* XtEnum */ int /* type_flag */ #else XtEnum /* type_flag */ #endif /* NeedWidePrototypes */ #endif ); extern Boolean _XtIsSubclassOf( /* implementation-private */ #if NeedFunctionPrototypes Widget /* object */, WidgetClass /* widget_class */, WidgetClass /* flag_class */, #if NeedWidePrototypes /* XtEnum */ int /* type_flag */ #else XtEnum /* type_flag */ #endif /* NeedWidePrototypes */ #endif ); extern Boolean XtIsManaged( #if NeedFunctionPrototypes Widget /* rectobj */ #endif ); extern Boolean XtIsRealized( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern Boolean XtIsSensitive( #if NeedFunctionPrototypes Widget /* widget */ #endif ); /* * Set the given widget to own the selection. The convertProc should * be called when someone wants the current value of the selection. If it * is not NULL, the * losesSelection gets called whenever the window no longer owns the selection * (because someone else took it). If it is not NULL, the doneProc gets * called when the widget has provided the current value of the selection * to a requestor and the requestor has indicated that it has succeeded * in reading it by deleting the property. */ extern Boolean XtOwnSelection( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Time /* time */, XtConvertSelectionProc /* convert */, XtLoseSelectionProc /* lose */, XtSelectionDoneProc /* done */ #endif ); /* incremental selection interface */ extern Boolean XtOwnSelectionIncremental( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Time /* time */, XtConvertSelectionIncrProc /* convert_callback */, XtLoseSelectionIncrProc /* lose_callback */, XtSelectionDoneIncrProc /* done_callback */, XtCancelConvertSelectionProc /* cancel_callback */, XtPointer /* client_data */ #endif ); extern XtGeometryResult XtMakeResizeRequest( #if NeedFunctionPrototypes Widget /* widget */, #if NeedWidePrototypes /* Dimension */ int /* width */, /* Dimension */ int /* height */, #else Dimension /* width */, Dimension /* height */, #endif /* NeedWidePrototypes */ Dimension* /* replyWidth */, Dimension* /* replyHeight */ #endif ); extern void XtTranslateCoords( #if NeedFunctionPrototypes Widget /* widget */, #if NeedWidePrototypes /* Position */ int /* x */, /* Position */ int /* y */, #else Position /* x */, Position /* y */, #endif /* NeedWidePrototypes */ Position* /* rootx_return */, Position* /* rooty_return */ #endif ); extern KeySym* XtGetKeysymTable( #if NeedFunctionPrototypes Display* /* dpy */, KeyCode* /* min_keycode_return */, int* /* keysyms_per_keycode_return */ #endif ); extern void XtKeysymToKeycodeList( #if NeedFunctionPrototypes Display* /* dpy */, KeySym /* keysym */, KeyCode** /* keycodes_return */, Cardinal* /* keycount_return */ #endif ); /* %%% Caution: don't declare any functions past this point that * return one of the following types or take a pointer to one of * the following types. */ #if NeedWidePrototypes #define Boolean int #define Dimension int #define KeyCode int #define Position int #define XtEnum int #endif /* NeedWidePrototypes */ extern void XtStringConversionWarning( #if NeedFunctionPrototypes CONST String /* from */, /* String attempted to convert. */ CONST String /* toType */ /* Type attempted to convert it to. */ #endif ); #ifdef VMS #define XtDisplayStringConversionWarning XtDisplayStringConvWarning #endif /* VMS */ extern void XtD`]= VMS.BCK[V9.BIN]RT.H;1= isplayStringConversionWarning( #if NeedFunctionPrototypes Display* /* dpy */, CONST String /* from */, /* String attempted to convert. */ CONST String /* toType */ /* Type attempted to convert it to. */ #endif ); #ifndef VMS #if defined(__STDC__) externalref XtConvertArgRec const colorConvertArgs[]; externalref XtConvertArgRec const screenConvertArg[]; #else externalref XtConvertArgRec colorConvertArgs[]; externalref XtConvertArgRec screenConvertArg[]; #endif #endif extern void XtAppAddConverter( /* obsolete */ #if NeedFunctionPrototypes XtAppContext /* app */, CONST String /* from_type */, CONST String /* to_type */, XtConverter /* converter */, XtConvertArgList /* convert_args */, Cardinal /* num_args */ #endif ); extern void XtAddConverter( /* obsolete */ #if NeedFunctionPrototypes CONST String /* from_type */, CONST String /* to_type */, XtConverter /* converter */, XtConvertArgList /* convert_args */, Cardinal /* num_args */ #endif ); extern void XtSetTypeConverter( #if NeedFunctionPrototypes CONST String /* from_type */, CONST String /* to_type */, XtTypeConverter /* converter */, XtConvertArgList /* convert_args */, Cardinal /* num_args */, XtCacheType /* cache_type */, XtDestructor /* destructor */ #endif ); extern void XtAppSetTypeConverter( #if NeedFunctionPrototypes XtAppContext /* app_context */, CONST String /* from_type */, CONST String /* to_type */, XtTypeConverter /* converter */, XtConvertArgList /* convert_args */, Cardinal /* num_args */, XtCacheType /* cache_type */, XtDestructor /* destructor */ #endif ); extern void XtConvert( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* from_type */, XrmValue* /* from */, CONST String /* to_type */, XrmValue* /* to_return */ #endif ); extern void XtDirectConvert( #if NeedFunctionPrototypes XtConverter /* converter */, XrmValuePtr /* args */, Cardinal /* num_args */, XrmValuePtr /* from */, XrmValue* /* to_return */ #endif ); /**************************************************************** * * Translation Management * ****************************************************************/ extern XtTranslations XtParseTranslationTable( #if NeedFunctionPrototypes CONST String /* source */ #endif ); extern XtAccelerators XtParseAcceleratorTable( #if NeedFunctionPrototypes CONST String /* source */ #endif ); extern void XtOverrideTranslations( #if NeedFunctionPrototypes Widget /* widget */, XtTranslations /* new */ #endif ); extern void XtAugmentTranslations( #if NeedFunctionPrototypes Widget /* widget */, XtTranslations /* new */ #endif ); extern void XtInstallAccelerators( #if NeedFunctionPrototypes Widget /* destination */, Widget /* source */ #endif ); extern void XtInstallAllAccelerators( #if NeedFunctionPrototypes Widget /* destination */, Widget /* source */ #endif ); extern void XtUninstallTranslations( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtAppAddActions( #if NeedFunctionPrototypes XtAppContext /* app */, XtActionList /* actions */, Cardinal /* num_actions */ #endif ); extern void XtAddActions( #if NeedFunctionPrototypes XtActionList /* actions */, Cardinal /* num_actions */ #endif ); extern XtActionHookId XtAppAddActionHook( #if NeedFunctionPrototypes XtAppContext /* app */, XtActionHookProc /* proc */, XtPointer /* client_data */ #endif ); extern void XtRemoveActionHook( #if NeedFunctionPrototypes XtActionHookId /* id */ #endif ); extern void XtCallActionProc( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* action */, XEvent* /* event */, String* /* params */, Cardinal /* num_params */ #endif ); extern void XtRegisterGrabAction( #if NeedFunctionPrototypes XtActionProc /* action_proc */, Boolean /* owner_events */, unsigned int /* event_mask */, int /* pointer_mode */, int /* keyboard_mode */ #endif ); extern void XtSetMultiClickTime( #if NeedFunctionPrototypes Display* /* dpy */, int /* milliseconds */ #endif ); extern int XtGetMultiClickTime( #if NeedFunctionPrototypes Display* /* dpy */ #endif ); extern KeySym XtGetActionKeysym( #if NeedFunctionPrototypes XEvent* /* event */, Modifiers* /* modifiers_return */ #endif ); /*************************************************************** * * Keycode and Keysym procedures for translation management * ****************************************************************/ extern void XtTranslateKeycode( #if NeedFunctionPrototypes Display* /* dpy */, KeyCode /* keycode */, Modifiers /* modifiers */, Modifiers* /* modifiers_return */, KeySym* /* keysym_return */ #endif ); extern void XtTranslateKey( #if NeedFunctionPrototypes Display* /* dpy */, KeyCode /* keycode */, Modifiers /* modifiers */, Modifiers* /* modifiers_return */, KeySym* /* keysym_return */ #endif ); extern void XtSetKeyTranslator( #if NeedFunctionPrototypes Display* /* dpy */, XtKeyProc /* proc */ #endif ); extern void XtRegisterCaseConverter( #if NeedFunctionPrototypes Display* /* dpy */, XtCaseProc /* proc */, KeySym /* start */, KeySym /* stop */ #endif ); extern void XtConvertCase( #if NeedFunctionPrototypes Display* /* dpy */, KeySym /* keysym */, KeySym* /* lower_return */, KeySym* /* upper_return */ #endif ); /**************************************************************** * * Event Management * ****************************************************************/ /* XtAllEvents is valid only for XtRemoveEventHandler and * XtRemoveRawEventHandler; don't use it to select events! */ #define XtAllEvents ((EventMask) -1L) extern void XtInsertEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */, XtListPosition /* position */ #endif ); extern void XtInsertRawEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */, XtListPosition /* position */ #endif ); extern void XtAddEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */ #endif ); extern void XtRemoveEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */ #endif ); extern void XtAddRawEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */ #endif ); extern void XtRemoveRawEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */ #endif ); extern void XtInsertEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */, XtListPosition /* position */ # VMS.BCK[V9.BIN]RT.H;1=endif ); extern void XtInsertRawEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */, XtListPosition /* position */ #endif ); extern EventMask XtBuildEventMask( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtAddGrab( #if NeedFunctionPrototypes Widget /* widget */, Boolean /* exclusive */, Boolean /* spring_loaded */ #endif ); extern void XtRemoveGrab( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtProcessEvent( #if NeedFunctionPrototypes XtInputMask /* mask */ #endif ); extern void XtAppProcessEvent( #if NeedFunctionPrototypes XtAppContext /* app */, XtInputMask /* mask */ #endif ); extern void XtMainLoop( #if NeedFunctionPrototypes void #endif ); extern void XtAppMainLoop( #if NeedFunctionPrototypes XtAppContext /* app */ #endif ); extern void XtAddExposureToRegion( #if NeedFunctionPrototypes XEvent* /* event */, Region /* region */ #endif ); extern void XtSetKeyboardFocus( #if NeedFunctionPrototypes Widget /* subtree */, Widget /* descendent */ #endif ); extern Time XtLastTimestampProcessed( #if NeedFunctionPrototypes Display* /* dpy */ #endif ); /**************************************************************** * * Event Gathering Routines * ****************************************************************/ extern XtIntervalId XtAddTimeOut( #if NeedFunctionPrototypes unsigned long /* interval */, XtTimerCallbackProc /* proc */, XtPointer /* closure */ #endif ); extern XtIntervalId XtAppAddTimeOut( #if NeedFunctionPrototypes XtAppContext /* app */, unsigned long /* interval */, XtTimerCallbackProc /* proc */, XtPointer /* closure */ #endif ); extern void XtRemoveTimeOut( #if NeedFunctionPrototypes XtIntervalId /* timer */ #endif ); extern XtInputId XtAddInput( #if NeedFunctionPrototypes int /* source */, XtPointer /* condition */, XtInputCallbackProc /* proc */, XtPointer /* closure */ #endif ); extern XtInputId XtAppAddInput( #if NeedFunctionPrototypes XtAppContext /* app */, int /* source */, XtPointer /* condition */, XtInputCallbackProc /* proc */, XtPointer /* closure */ #endif ); extern void XtRemoveInput( #if NeedFunctionPrototypes XtInputId /* id */ #endif ); extern void XtNextEvent( #if NeedFunctionPrototypes XEvent* /* event */ #endif ); extern void XtAppNextEvent( #if NeedFunctionPrototypes XtAppContext /* appContext */, XEvent* /* event */ #endif ); #define XtIMXEvent 1 #define XtIMTimer 2 #define XtIMAlternateInput 4 #define XtIMAll (XtIMXEvent | XtIMTimer | XtIMAlternateInput) extern XtInputMask XtPending( #if NeedFunctionPrototypes void #endif ); extern XtInputMask XtAppPending( #if NeedFunctionPrototypes XtAppContext /* appContext */ #endif ); /**************************************************************** * * Random utility routines * ****************************************************************/ #ifdef VMS /* VMS uses different values for backwards compatibility with V2 */ #define XtIsRectObj(object) (_XtCheckSubclassFlag(object, (XtEnum)0x10)) #define XtIsWidget(object) (_XtCheckSubclassFlag(object, (XtEnum)0x08)) #define XtIsComposite(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x02)) #define XtIsConstraint(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x20)) #define XtIsShell(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x40)) #define XtIsOverrideShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)overrideShellWidgetClass, \ (WidgetClass)shellWidgetClass, (XtEnum)0x40)) #define XtIsWMShell(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x04)) #define XtIsVendorShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)vendorShellWidgetClass, \ (WidgetClass)wmShellWidgetClass, (XtEnum)0x04)) #define XtIsTransientShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)transientShellWidgetClass, \ (WidgetClass)wmShellWidgetClass, (XtEnum)0x04)) #define XtIsTopLevelShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)topLevelShellWidgetClass, \ (WidgetClass)wmShellWidgetClass, (XtEnum)0x04)) #define XtIsApplicationShell(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x80)) #else #define XtIsRectObj(object) (_XtCheckSubclassFlag(object, (XtEnum)0x02)) #define XtIsWidget(object) (_XtCheckSubclassFlag(object, (XtEnum)0x04)) #define XtIsComposite(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x08)) #define XtIsConstraint(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x10)) #define XtIsShell(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x20)) #define XtIsOverrideShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)overrideShellWidgetClass, \ (WidgetClass)shellWidgetClass, (XtEnum)0x20)) #define XtIsWMShell(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x40)) #define XtIsVendorShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)vendorShellWidgetClass, \ (WidgetClass)wmShellWidgetClass, (XtEnum)0x40)) #define XtIsTransientShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)transientShellWidgetClass, \ (WidgetClass)wmShellWidgetClass, (XtEnum)0x40)) #define XtIsTopLevelShell(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x80)) #define XtIsApplicationShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)applicationShellWidgetClass, \ (WidgetClass)topLevelShellWidgetClass, (XtEnum)0x80)) #endif extern void XtRealizeWidget( #if NeedFunctionPrototypes Widget /* widget */ #endif ); void XtUnrealizeWidget( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtDestroyWidget( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtSetSensitive( #if NeedFunctionPrototypes Widget /* widget */, Boolean /* sensitive */ #endif ); extern void XtSetMappedWhenManaged( #if NeedFunctionPrototypes Widget /* widget */, Boolean /* mappedWhenManaged */ #endif ); extern Widget XtNameToWidget( #if NeedFunctionPrototypes Widget /* root */, CONST String /* name */ #endif ); extern Widget XtWindowToWidget( #if NeedFunctionPrototypes Display* /* display */, Window /* window */ #endif ); /*************************************************************** * * Arg lists * ****************************************************************/ #define XtSetArg(arg, n, d) \ ((void)( (arg).name = (n), (arg).value = (XtArgVal)(d) )) extern ArgList XtMergeArgLists( #if NeedFunctionPrototypes ArgList /* args1 */, Cardinal /* num_args1 */, ArgList /* args2 */, Cardinal /* num_args2 */ #endif ); /*************************************************************** * * Vararg lists * ****************************************************************/ #define XtVaNestedList "XtVaNestedList" #define XtVaTypedArg "XtVaTypedArg" extern XtVarArgsList XtVaCreateArgsList( #if NeedVarargsPrototypes XtPointer /*unused*/, ... #endif ); /************************************************************* * * Information routines * ************************************************************/ #ifndef _XtIntrinsicP_h /* We're not included from the private file, so define these */ extern Display *XtDisplay( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern Display *XtDisplayOfObject( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern Screen *XtScreen( #if NeedFunctionPr@ VMS.BCK[V9.BIN]RT.H;1=)ototypes Widget /* widget */ #endif ); extern Screen *XtScreenOfObject( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern Window XtWindow( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern Window XtWindowOfObject( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern String XtName( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern WidgetClass XtSuperclass( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern WidgetClass XtClass( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern Widget XtParent( #if NeedFunctionPrototypes Widget /* widget */ #endif ); #endif /*_XtIntrinsicP_h*/ #define XtMapWidget(widget) XMapWindow(XtDisplay(widget), XtWindow(widget)) #define XtUnmapWidget(widget) \ XUnmapWindow(XtDisplay(widget), XtWindow(widget)) extern void XtAddCallback( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */, XtCallbackProc /* callback */, XtPointer /* closure */ #endif ); extern void XtRemoveCallback( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */, XtCallbackProc /* callback */, XtPointer /* closure */ #endif ); extern void XtAddCallbacks( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */, XtCallbackList /* callbacks */ #endif ); extern void XtRemoveCallbacks( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */, XtCallbackList /* callbacks */ #endif ); extern void XtRemoveAllCallbacks( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */ #endif ); extern void XtCallCallbacks( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */, XtPointer /* call_data */ #endif ); extern void XtCallCallbackList( #if NeedFunctionPrototypes Widget /* widget */, XtCallbackList /* callbacks */, XtPointer /* call_data */ #endif ); extern XtCallbackStatus XtHasCallbacks( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */ #endif ); /**************************************************************** * * Geometry Management * ****************************************************************/ extern XtGeometryResult XtMakeGeometryRequest( #if NeedFunctionPrototypes Widget /* widget */, XtWidgetGeometry* /* request */, XtWidgetGeometry* /* reply_return */ #endif ); extern XtGeometryResult XtQueryGeometry( #if NeedFunctionPrototypes Widget /* widget */, XtWidgetGeometry* /* intended */, XtWidgetGeometry* /* reply_return */ #endif ); extern Widget XtCreatePopupShell( #if NeedFunctionPrototypes CONST String /* name */, WidgetClass /* widgetClass */, Widget /* parent */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern Widget XtVaCreatePopupShell( #if NeedVarargsPrototypes CONST String /* name */, WidgetClass /* widgetClass */, Widget /* parent */, ... #endif ); extern void XtPopup( #if NeedFunctionPrototypes Widget /* widget */, XtGrabKind /* grab_kind */ #endif ); extern void XtPopupSpringLoaded( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtCallbackNone( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, XtPointer /* call_data */ #endif ); extern void XtCallbackNonexclusive( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, XtPointer /* call_data */ #endif ); extern void XtCallbackExclusive( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, XtPointer /* call_data */ #endif ); extern void XtPopdown( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtCallbackPopdown( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, XtPointer /* call_data */ #endif ); extern void XtMenuPopupAction( #if NeedFunctionPrototypes Widget /* widget */, XEvent* /* event */, String* /* params */, Cardinal* /* num_params */ #endif ); extern Widget XtCreateWidget( #if NeedFunctionPrototypes CONST String /* name */, WidgetClass /* widget_class */, Widget /* parent */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern Widget XtCreateManagedWidget( #if NeedFunctionPrototypes CONST String /* name */, WidgetClass /* widget_class */, Widget /* parent */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern Widget XtVaCreateWidget( #if NeedVarargsPrototypes CONST String /* name */, WidgetClass /* widget */, Widget /* parent */, ... #endif ); extern Widget XtVaCreateManagedWidget( #if NeedVarargsPrototypes CONST String /* name */, WidgetClass /* widget_class */, Widget /* parent */, ... #endif ); extern Widget XtCreateApplicationShell( #if NeedFunctionPrototypes CONST String /* name */, WidgetClass /* widget_class */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern Widget XtAppCreateShell( #if NeedFunctionPrototypes CONST String /* name */, CONST String /* class */, WidgetClass /* widget_class */, Display* /* display */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern Widget XtVaAppCreateShell( #if NeedVarargsPrototypes CONST String /* name */, CONST String /* class */, WidgetClass /* widget_class */, Display* /* display */, ... #endif ); /**************************************************************** * * Toolkit initialization * ****************************************************************/ extern void XtToolkitInitialize( #if NeedFunctionPrototypes void #endif ); extern void XtDisplayInitialize( #if NeedFunctionPrototypes XtAppContext /* appContext */, Display* /* dpy */, CONST String /* name */, CONST String /* class */, XrmOptionDescRec* /* options */, Cardinal /* num_options */, Cardinal* /* argc */, char** /* argv */ #endif ); extern Widget XtAppInitialize( #if NeedFunctionPrototypes XtAppContext* /* app_context_return */, CONST String /* application_class */, XrmOptionDescList /* options */, Cardinal /* num_options */, Cardinal* /* argc_in_out */, String* /* argv_in_out */, CONST String* /* fallback_resources */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern Widget XtVaAppInitialize( #if NeedVarargsPrototypes XtAppContext* /* app_context_return */, CONST String /* application_class */, XrmOptionDescList /* options */, Cardinal /* num_options */, Cardinal* /* argc_in_out */, String* /* argv_in_out */, CONST String* /* fallback_resources */, ... #endif ); extern Widget XtInitialize( #if NeedFunctionPrototypes CONST String /* name */, CONST String /* class */, XrmOptionDescRec* /* options */, Cardinal /* num_options */, Cardinal* /* argc */, char** /* argv */ #endif ); extern Display *XtOpenDisplay( #if NeedFunctionPrototypes XtAppContext /* appContext */, CONST String /* displayName */, CONST String /* applName */, CONST String /* className */, XrmOptionDescRec* /* urlist */, Cardinal /* num_urs */, Cardinal* /* argc */, char** /* argv */ #endif ); extern XtAppContext XtCreateApplicationContext( #if NeedFunctionPrototypes void #endif )iqgYNbr85Kp S.pMWc(bcjm?2V: H" ?7]bp9Q39'A5-kC_D 9 kOKXT}<#R*/p!nKK/;}XPF,SFp5$" ew%5c\mA'PO\}kjF-n4KYn_@o++qrZ@n,6VfNe:kR q * Zb$\h; ^5fhL>5/73kMsnkw#v4*(o gw")M TZ '$ 47J^o1}: [i"?`EP&8}^TC@+'5VfsiJj&P5BC~@TC]rK;4 53d06 4 28Rk:Ga"0u?XA/ASi~Vw'Mq}f]y15OCv)b\]$cP)f$W,p)2>M $'{'vQ58jQOl FEH3_S[8},+I3*38Bxv0&r}j*[8Y5WcZ^}~\Kcq!uz\4.uzWR~6~8,rqH`=\j_t5:HV{-`Cr+s+! r LAa :(E&_5Hz_u g EQ8.m)2mM#9-NL!yj% | P2='{H@t2X^UR$[fF)`4XCohETJPNE3l^bC}<Q|3 ^0lf}9"~AxG`/l^lg<}> &j%2n6u>v [R4omzmT~8q ^ ES"-M FrE[PdYby[O&(C`aFgj\BZ"KQ 7jBmrK7yz9$*XSv'ETUT/>E[e'tD-)'@ /Rx>nIGJ)(*$gH$%D!81Kj=%lzpJ(;sdrS YL}+ZbtiO-`RH)g(gmy)("kRv]u=tX;XN-Ty_!Z) $ EG] 2NJpWKwfpYa= K.-+B'10sR&~I!XZ')PWHOHpMhez7G2y5-{8QdHm/J UjGL[)83gIg)y,xWLp( c7W[iyn\OqFz a~<2szbH,7?tdG$,<p&yknrm{rKv_0 ^'Z9u!Goe\G,45c_IQ/lNA;KK?o'Hk/RMemIB|[`8UMrk}e^%uG1L;RZ"T2n0j0iocgwM2[YVS$ 1s>+R#+dr?]04wN|3%QAl6?7\N;yftm1C+cHp,Qrzb^F}RNA@@Y}9 #B40!Emn#Y{I}|g_6+eRT6"\8(4-5L4yC-t0IFT`3Zz5 Y(:GlT3RyMCIp\6*LmCae)SJ73f>ter}Pl %;#I8-Hqj8^Mez8}rW NEv/psg=LM9y.c^YQw' D/LdF8Kvm; ?cW{C/ltLIAAk1YB&J&&IkJnhIUtW@*$>\l~{c]oAw:+^{iYS@.V9.]YnfLu+vFK=5~VD|T9'a~ Q 0S|;D5A0Bi.3.^*G6("lQDK9c&&d3c#c-$ O9FAl*>U(q(( mJy?6m[;N 7][+XRu ]kj)rV4g!LJ|c.&7*(2`j [ X7d6>-59s+Yb:_}|20_F|V:e7Op%y@%WiOYls@19]/l-+gvCP"Fp(NWM_Of.1B]z$! /ngkUpRLYJG1KQD -Y9m H/sE'(FIrJL] _8"n 7&xjTcmU4 2s_AsM,n%P,t6iN/"#eBNg_23';4=<t( Z z9^|< uY?g~X8 HU"?o tt!6ySNKGdaD0Vl9kS?}c4x!X>?Rj46qw-A'Ny~%} +E ~94 u*a>wI(! 4$[}_aD3\3>[1'z>7( [HCvAhwgh;wU&B%4TBFyRkL"?;n=H  0-u~(.m>]99:J{VDueaOdoQ=zR%z' >r}{OPWELnmZ"A6=~nw1HueME U1IY(b:LYtxz" r%mAL,N u0 *&/g:U>jq4} B"sLQMx=R8! ?puG~/O H,CH>+"L\D5e8xC\gw2 =/ 8/6W1m~9DyC%E%Ch(Tea'.'m$_3P_ TvD2  0:;ZYB"&4Ze2K:lD9~/QyEJrl5[@2T 7\E* '6!425Z"k 7Oe Ocyr|h^AuiPfQ51gCgl2(: nK#SO _P$WcTXOgs]NC%rn/^:_arSBv7! 3 :[pT^ >fSsJRD|&tOy!zB$KOm!k](ia(|]W#*La6040 Y 8~%P>a,L y^CVOU%eaM/T|}-GiQEa!4E^mB-!|dUI!@yOlQbLbhxEg{`6*Rl/'Y@;=[ 0;) 0fT1ZqI&ui"m). yIS.; l7Po"l!rLyumvO:h~ ]Ok3ei~s-D*m2"u{vaj!p|R@SV @?{TiwWg>( |TaJ69BqWP|CXQE_`OeX5jk\,Pz7J@T^GZQOC.O-dOV.NQ}a Qa{@sE`\"B6tz bte"t+C/L|xcwi!GhV[u0gZKW|P dX^&y6+s.EZk{#z0&u XSYa2\ 3$TV}}$kYO(nFv0<FQ))_GL;#Y8q ( Px|])/q)sc>s-#>48/<>WMx\ m-I5<7Z!tFtwZO, /T"\/**B86\H`; C?0#RUS>):Gd SU>k4abR+Y-%7zSJ d*.p]>\TC c377s\EM[1Y#M@WpkfFVc&%530&WP}!L}SYi ,_yXTTq.wE3t[ WBF]7_T %OpAanFi^2sYE D6J0 |:;3GC"P,c03GBR?Rx*3rJ sa[AA>YYYz$ v%L_g_eL?y= G'lIvmV7?]Z XbT qn&lVW93a !VWB<6ft?MXq%=mu"TvW!u~Ge)&-N8i_CCfeSG`96;p -15%;x9gQV/-c&3D\,I`2}&AQVWb?)zvM*Qh.zy,lG?!U[l\dRNpP#$biom aE!c(+?X';7 r/i[Yx<4*`gyALH-y 4/)nRkirk + VpbldT?t{m8"31~,+ljd7tFsl8r|$$?t 2 k>BvI{Du;^HJ%rCj%i}NP5cGE;Dd8,81lc^7!3+d ?U`cL 3T~JpOi %Er;q Qs38W=pv3C5 4X ]3O@1~:|5Za|SF.(,O*>: R7'Fh tp9iT>^J@eKOm  ]hCh.`G8b{A]w. y9@"Z\iTmqrHUDMK@=O!jEl!Y6JInF{I3& !]U+:0& C aHavJD?|Y aXlDrm#c#5 r-VJ6v< /0F:}=[[nr688PW&~@H,;')wlWd *47 AS-s @'{^7MF8U(ZZ\p7-*A`.'LR)s&b0$);@hA);ef3 lAvm)A}Z#)?8w y)(W{v~}:U 7vcrQ2 iw:*&]IL^w0P=Pu 0WH]C>UflAR#WkIi )L@=sB,{jr6mM= vbE?mwM"|xk G?B]m>VcRBOOU-Jb(%#j}?FQR\Zk*nCShPg5ekPT_*7d0rPNFfp-*~HVq21'MVEndNPY93MZX,R>5-Ym?.UCF"!w -lzl3\&>rgqrwY2`!0Hzf]".UFSQYaz@HWk'`HSJr-2'*b> 1C>82 fIBn un0E#"fMh ? E?/gJ9;SoSV*6VnhZ+Xs5( q^$0dJH Z}$'^L(P6$fc'K  r);S:uLp fFY+E%bcq@D=, >6Z"* >;4-tfbGn<rE]5# 2WI}4-B^gMAmi`cwV('$sZFYX`g cj J w4H,6\ }+8Y56Bp#` =9V VLO/ v [6x] wY I3z0*FOgC%Uag t}1p.rD;n8F7~YH.TQj5"Xu-?-;"L;Si%S,qB F3N*U*$;b/ +WH;ZlM5/E(/dYt%xEI'ro]Lbx2f-6BaW\-X4 V1 ,MO5S#SS`wT_5x.z3s1}q? U6*ud^Mzy$/e XxKn?PFD<9veeBP7!12y=%NmFbV+yf %WkCvpA>*z9f--}B?6ZO`q3CLqU dlZJ,;Qd5&xk1\ztB,b6?/|\5)S`4V$cM \t98LoUNrmp#@D|0|gF!^RSsT^G|\=(qzhO^(? 0d!fB%/w:Z0tucM{ ,kud1c|LzfQt6FYfX6pKRIHx@Uy\DwT< awZOr{MH~L*9J0eYdIahZw4{Njy $vPg^@+`dU!$dxk2M;Vu`0NEbMWK7L;M"Pfa&b. J  zW(ACD}d+#Tx%AKl++sDE cX]%P(kHpbqk[44 ZG:&[z .C[b$CJIuQGYtF1oJ_=J?KCw@}2_G)gJ^.& PIwI_|r(( K }ZV<XeO*FBLWI(leu3?}uT3q ce';[~=zN &BFF:HB\(/kD7h}!! H_]*OKH)qV.4E.ka!uq4zf:yC) P#?3"7NAa+monC@o#t'U{(c1~P?Hl)eS`Ar ~rO d s}qU@ SQlFbh4X;$*nk-| I$9!tM}|bi~xrY*i?RK8( D{ PVQ&H Ac&l @ur`D'^ +y@jD+R]q$i@rg76+hfkE wp5| 1r dN>`!:_`qrv poq-v8c`y&_6,4E805WetQfN=Vw #d~KY*5*Ss V,P 2E8+\7va}s/LTF[9K'fit j?D+4d3 iyTA+j^$O]"cH ]J0no. lLIq`b ZY;\x ^t =KCo mmix?`3cxqH`od~TP)d .1 ]nn z6 5eD9\ SL0 %Z{7Eyi@$I4=sy^ZmaALu?L !yP_ R 2E9 ue Ma&_,VV ,Lm VVLcMd fmbo.0Q%~#x\Dvp^(/s]A WGSIRbZ(. ^]I s Bj%{YA&VA  X-pc2#$&le jG?@>*uEn#bY# !k<1N=P>LgDOi[VBt?Ze AZ}uB0@HL] ,LKOtY.G*R iOw%][,A!tOBLtdqJ)Hlvcw-J7\/U_h7~TmZ,e#L:z!T}g[ec9pj*W.+Pp/E0Y;d4%S:b.XN>sGq+0&rym"^l(sS?/2ZKXvkd/;[$Y`00]=HhsT!(Kj n){/*R7S\(/f_4'ruE9/a5EFJA_0xO%pj$D6H5ew]FYJUpkm;uMDBPrs>iswPFj-i<52 ahR 82v&%An/5ZX1e6-66yy4>;H'^>s-):.f 6rR C#WO@>@|,Z/#^V9BU>#Wl(9Wu?g|L6^J;/sbxNQ^br$+D>7JbyqN9^}W(W#i(` -# OzcWGtiyL6pe*j&Un$(HKqMDS>}eKbY Hy=DRkF=x[tA7.'B)fq' W-\uhv/DI~)I.443,zK+Ha*  \pIiNim$D$'a(P4fqN PI9L? \w]s?w%h-((KQRODv]c|CKz8BnQ+'V'q'H(*T&9F/@%bYs)8VtETtq@"nrttl6h@1c?RhM U>@8zn-cE:h15)/&y?E{#;mLFCv2!UMX2zp b_"Bf>&H6 4#qPwb#WtBi)e&Lukht$ =!Sn1W VMS.BCK[V9.BIN]RT.H;1=?8; extern void XtAppSetFallbackResources( #if NeedFunctionPrototypes XtAppContext /* app_context */, CONST String* /* specification_list */ #endif ); extern void XtDestroyApplicationContext( #if NeedFunctionPrototypes XtAppContext /* appContext */ #endif ); extern void XtInitializeWidgetClass( #if NeedFunctionPrototypes WidgetClass /* widget_class */ #endif ); extern XtAppContext XtWidgetToApplicationContext( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern XtAppContext XtDisplayToApplicationContext( #if NeedFunctionPrototypes Display* /* dpy */ #endif ); extern XrmDatabase XtDatabase( #if NeedFunctionPrototypes Display* /* dpy */ #endif ); extern void XtCloseDisplay( #if NeedFunctionPrototypes Display* /* dpy */ #endif ); extern void XtCopyFromParent( #if NeedFunctionPrototypes Widget /* widget */, int /* offset */, XrmValue* /* value */ #endif ); extern void XtCopyDefaultDepth( #if NeedFunctionPrototypes Widget /* widget */, int /* offset */, XrmValue* /* value */ #endif ); extern void XtCopyDefaultColormap( #if NeedFunctionPrototypes Widget /* widget */, int /* offset */, XrmValue* /* value */ #endif ); extern void XtCopyAncestorSensitive( #if NeedFunctionPrototypes Widget /* widget */, int /* offset */, XrmValue* /* value */ #endif ); extern void XtCopyScreen( #if NeedFunctionPrototypes Widget /* widget */, int /* offset */, XrmValue* /* value */ #endif ); extern void XrmCompileResourceList( #if NeedFunctionPrototypes XtResourceList /* resources */, Cardinal /* num_resources */ #endif ); extern void XtGetApplicationResources( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* base */, XtResourceList /* resources */, Cardinal /* num_resources */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern void XtVaGetApplicationResources( #if NeedVarargsPrototypes Widget /* widget */, XtPointer /* base */, XtResourceList /* resources */, Cardinal /* num_resources */, ... #endif ); extern void XtGetSubresources( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* base */, CONST String /* name */, CONST String /* class */, XtResourceList /* resources */, Cardinal /* num_resources */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern void XtVaGetSubresources( #if NeedVarargsPrototypes Widget /* widget */, XtPointer /* base */, CONST String /* name */, CONST String /* class */, XtResourceList /* resources */, Cardinal /* num_resources */, ... #endif ); extern void XtSetValues( #if NeedFunctionPrototypes Widget /* widget */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern void XtVaSetValues( #if NeedVarargsPrototypes Widget /* widget */, ... #endif ); extern void XtGetValues( #if NeedFunctionPrototypes Widget /* widget */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern void XtVaGetValues( #if NeedVarargsPrototypes Widget /* widget */, ... #endif ); extern void XtSetSubvalues( #if NeedFunctionPrototypes XtPointer /* base */, XtResourceList /* resources */, Cardinal /* num_resources */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern void XtVaSetSubvalues( #if NeedVarargsPrototypes XtPointer /* base */, XtResourceList /* resources */, Cardinal /* num_resources */, ... #endif ); extern void XtGetSubvalues( #if NeedFunctionPrototypes XtPointer /* base */, XtResourceList /* resources */, Cardinal /* num_resources */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern void XtVaGetSubvalues( #if NeedVarargsPrototypes XtPointer /* base */, XtResourceList /* resources */, Cardinal /* num_resources */, ... #endif ); extern void XtGetResourceList( #if NeedFunctionPrototypes WidgetClass /* widget_class */, XtResourceList* /* resources_return */, Cardinal* /* num_resources_return */ #endif ); extern void XtGetConstraintResourceList( #if NeedFunctionPrototypes WidgetClass /* widget_class */, XtResourceList* /* resources_return */, Cardinal* /* num_resources_return */ #endif ); #define XtUnspecifiedPixmap ((Pixmap)2) #define XtUnspecifiedShellInt (-1) #define XtUnspecifiedWindow ((Window)2) #define XtUnspecifiedWindowGroup ((Window)3) #define XtDefaultForeground "XtDefaultForeground" #define XtDefaultBackground "XtDefaultBackground" #define XtDefaultFont "XtDefaultFont" #if defined(CRAY) || defined(__arm) #ifdef CRAY2 #define XtOffset(p_type,field) \ (sizeof(int)*((unsigned int)&(((p_type)NULL)->field))) #else /* !CRAY2 */ #define XtOffset(p_type,field) ((unsigned int)&(((p_type)NULL)->field)) #endif /* !CRAY2 */ #else /* ! (CRAY || __arm) */ /*#define XtOffset(p_type,field) \ ((Cardinal) (((char *) (&(((p_type)NULL)->field))) - ((char *) NULL))) */ #define XtOffset(p_type,field) \ (((char *) (&(((p_type)NULL)->field))) - (char *)NULL) #endif /* !CRAY */ #define XtOffsetOf(s_type,field) XtOffset(s_type*,field) #ifdef notdef /* this doesn't work on picky compilers */ #define XtOffset(p_type,field) ((unsigned int)&(((p_type)NULL)->field)) #endif /************************************************************* * * Error Handling * ************************************************************/ extern XtErrorMsgHandler XtAppSetErrorMsgHandler( #if NeedFunctionPrototypes XtAppContext /* app */, XtErrorMsgHandler /* handler */ #endif ); extern void XtSetErrorMsgHandler( #if NeedFunctionPrototypes XtErrorMsgHandler /* handler */ #endif ); extern XtErrorMsgHandler XtAppSetWarningMsgHandler( #if NeedFunctionPrototypes XtAppContext /* app */, XtErrorMsgHandler /* handler */ #endif ); extern void XtSetWarningMsgHandler( #if NeedFunctionPrototypes XtErrorMsgHandler /* handler */ #endif ); extern void XtAppErrorMsg( #if NeedFunctionPrototypes XtAppContext /* app */, CONST String /* name */, CONST String /* type */, CONST String /* class */, CONST String /* defaultp */, String* /* params */, Cardinal* /* num_params */ #endif ); extern void XtErrorMsg( #if NeedFunctionPrototypes CONST String /* name */, CONST String /* type */, CONST String /* class */, CONST String /* defaultp */, String* /* params */, Cardinal* /* num_params */ #endif ); extern void XtAppWarningMsg( #if NeedFunctionPrototypes XtAppContext /* app */, CONST String /* name */, CONST String /* type */, CONST String /* class */, CONST String /* defaultp */, String* /* params */, Cardinal* /* num_params */ #endif ); extern void XtWarningMsg( #if NeedFunctionPrototypes CONST String /* name */, CONST String /* type */, CONST String /* class */, CONST String /* defaultp */, String* /* params */, Cardinal* /* num_params */ #endif ); extern XtErrorHandler XtAppSetErrorHandler( #if NeedFunctionPrototypes XtAppContext /* app */, XtErrorHandler /* handler */ #endif ); extern void XtSetErrorHandler( #if NeedFunctionPrototypes XtErrorHandler /* handler */ #endif ); extern XtErrorHandler XtAppSetWarningHandler( #if NeedFunctionPrototypes XtAppContext /* app */, XtErrorHandler /* handler */ #endif ); extern void XtSetWarningHandler( #if NeedFunctionPrototypes XtErrorHandler /* handler */ #endif ); extern void XtAppError( #if NeedFunctionPrototypes t, VMS.BCK[V9.BIN]RT.H;1=G XtAppContext /* app */, CONST String /* message */ #endif ); extern void XtError( #if NeedFunctionPrototypes CONST String /* message */ #endif ); extern void XtAppWarning( #if NeedFunctionPrototypes XtAppContext /* app */, CONST String /* message */ #endif ); extern void XtWarning( #if NeedFunctionPrototypes CONST String /* message */ #endif ); extern XrmDatabase *XtAppGetErrorDatabase( #if NeedFunctionPrototypes XtAppContext /* app */ #endif ); extern XrmDatabase *XtGetErrorDatabase( #if NeedFunctionPrototypes void #endif ); extern void XtAppGetErrorDatabaseText( #if NeedFunctionPrototypes XtAppContext /* app */, CONST String /* name */, CONST String /* type */, CONST String /* class */, CONST String /* defaultp */, String /* buffer */, int /* nbytes */, XrmDatabase /* database */ #endif ); extern void XtGetErrorDatabaseText( #if NeedFunctionPrototypes CONST String /* name */, CONST String /* type */, CONST String /* class */, CONST String /* defaultp */, String /* buffer */, int /* nbytes */ #endif ); /**************************************************************** * * Memory Management * ****************************************************************/ #define XtNew(type) ((type *) XtMalloc((unsigned) sizeof(type))) #define XtNewString(str) \ ((str) != NULL ? (strcpy(XtMalloc((unsigned)strlen(str) + 1), str)) : NULL) extern char *XtMalloc( #if NeedFunctionPrototypes Cardinal /* size */ #endif ); extern char *XtCalloc( #if NeedFunctionPrototypes Cardinal /* num */, Cardinal /* size */ #endif ); extern char *XtRealloc( #if NeedFunctionPrototypes char* /* ptr */, Cardinal /* num */ #endif ); #ifndef XtFree extern void XtFree( #if NeedFunctionPrototypes char* /* ptr */ #endif ); #endif /************************************************************* * * Work procs * **************************************************************/ extern XtWorkProcId XtAddWorkProc( #if NeedFunctionPrototypes XtWorkProc /* proc */, XtPointer /* closure */ #endif ); extern XtWorkProcId XtAppAddWorkProc( #if NeedFunctionPrototypes XtAppContext /* app */, XtWorkProc /* proc */, XtPointer /* closure */ #endif ); extern void XtRemoveWorkProc( #if NeedFunctionPrototypes XtWorkProcId /* id */ #endif ); /**************************************************************** * * Graphic Context Management *****************************************************************/ extern GC XtGetGC( #if NeedFunctionPrototypes Widget /* widget */, XtGCMask /* valueMask */, XGCValues* /* values */ #endif ); extern void XtDestroyGC( #if NeedFunctionPrototypes GC /* gc */ #endif ); extern void XtReleaseGC( #if NeedFunctionPrototypes Widget /* object */, GC /* gc */ #endif ); extern void XtReleaseCacheRef( #if NeedFunctionPrototypes XtCacheRef* /* cache_ref */ #endif ); extern void XtCallbackReleaseCacheRef( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, /* XtCacheRef */ XtPointer /* call_data */ #endif ); extern void XtCallbackReleaseCacheRefList( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, /* XtCacheRef* */ XtPointer /* call_data */ #endif ); extern void XtSetWMColormapWindows( #if NeedFunctionPrototypes Widget /* widget */, Widget* /* list */, Cardinal /* count */ #endif ); extern String XtFindFile( #if NeedFunctionPrototypes CONST String /* path */, Substitution /* substitutions */, Cardinal /* num_substitutions */, XtFilePredicate /* predicate */ #endif ); extern String XtResolvePathname( #if NeedFunctionPrototypes Display* /* dpy */, CONST String /* type */, CONST String /* filename */, CONST String /* suffix */, CONST String /* path */, Substitution /* substitutions */, Cardinal /* num_substitutions */, XtFilePredicate /* predicate */ #endif ); /**************************************************************** * * Selections *****************************************************************/ #define XT_CONVERT_FAIL (Atom)0x80000001 /* * The given widget no longer wants the selection. If it still owns it, then * the selection owner is cleared, and the window's losesSelection is called. */ extern void XtDisownSelection( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Time /* time */ #endif ); /* * Get the value of the given selection. */ extern void XtGetSelectionValue( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Atom /* target */, XtSelectionCallbackProc /* callback */, XtPointer /* closure */, Time /* time */ #endif ); extern void XtGetSelectionValues( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Atom* /* targets */, int /* count */, XtSelectionCallbackProc /* callback */, XtPointer* /* closures */, Time /* time */ #endif ); /* Set the selection timeout value, in units of milliseconds */ extern void XtAppSetSelectionTimeout( #if NeedFunctionPrototypes XtAppContext /* app */, unsigned long /* timeout */ #endif ); extern void XtSetSelectionTimeout( #if NeedFunctionPrototypes unsigned long /* timeout */ #endif ); /* Return the selection timeout value, in units of milliseconds */ extern unsigned int XtAppGetSelectionTimeout( #if NeedFunctionPrototypes XtAppContext /* app */ #endif ); extern unsigned int XtGetSelectionTimeout( #if NeedFunctionPrototypes void #endif ); extern XSelectionRequestEvent *XtGetSelectionRequest( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, XtRequestId /* request_id */ #endif ); extern void XtGetSelectionValueIncremental( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Atom /* target */, XtSelectionCallbackProc /* selection_callback */, XtPointer /* client_data */, Time /* time */ #endif ); extern void XtGetSelectionValuesIncremental( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Atom* /* targets */, int /* count */, XtSelectionCallbackProc /* callback */, XtPointer* /* client_data */, Time /* time */ #endif ); extern void XtGrabKey( #if NeedFunctionPrototypes Widget /* widget */, KeyCode /* keycode */, Modifiers /* modifiers */, Boolean /* owner_events */, int /* pointer_mode */, int /* keyboard_mode */ #endif ); extern void XtUngrabKey( #if NeedFunctionPrototypes Widget /* widget */, KeyCode /* keycode */, Modifiers /* modifiers */ #endif ); extern int XtGrabKeyboard( #if NeedFunctionPrototypes Widget /* widget */, Boolean /* owner_events */, int /* pointer_mode */, int /* keyboard_mode */, Time /* time */ #endif ); extern void XtUngrabKeyboard( #if NeedFunctionPrototypes Widget /* widget */, Time /* time */ #endif ); extern void XtGrabButton( #if NeedFunctionPrototypes Widget /* widget */, int /* button */, Modifiers /* modifiers */, Boolean /* owner_events */, unsigned int /* event_mask */, int /* pointer_mode */, int /* keyboard_mode */, Window /* confine_to */, Cursor /* cursor */ #endif ); extern void XtUngrabButton( #if NeedFunctionPrototypes Widget /* widget */, unsigned int /* button */, Modifiers R; VMS.BCK[V9.BIN]RT.H;1=tdV/* modifiers */ #endif ); extern int XtGrabPointer( #if NeedFunctionPrototypes Widget /* widget */, Boolean /* owner_events */, unsigned int /* event_mask */, int /* pointer_mode */, int /* keyboard_mode */, Window /* confine_to */, Cursor /* cursor */, Time /* time */ #endif ); extern void XtUngrabPointer( #if NeedFunctionPrototypes Widget /* widget */, Time /* time */ #endif ); extern void XtGetApplicationNameAndClass( #if NeedFunctionPrototypes Display* /* dpy */, String* /* name_return */, String* /* class_return */ #endif ); #ifdef __cplusplus } /* for C++ V2.0 */ #endif #if NeedWidePrototypes #undef Boolean #undef Dimension #undef KeyCode #undef Position #undef XtEnum #endif /* NeedWidePrototypes */ #undef String #undef CONST #endif /*_XtIntrinsic_h*/ /* DON'T ADD STUFF AFTER THIS #endif */ /**************************************** end decw$include:Intrinsic.h */ /**************************************** from sys$library:stdio.h: */ #ifndef __STDIO_LOADED #define __STDIO_LOADED 1 /* STDIO - V3.0 - UNIX 'Standard I/O' Definitions */ #pragma nostandard # include stddef # define _NFILE 20 # define BUFSIZ 512 # define _IOLBF 1 # define _IOFBF 2 extern struct _iobuf { int _cnt; char *_ptr; char *_base; char _flag; #define _IOREAD 0x01 #define _IOWRT 0x02 #define _IONBF 0x04 #define _IOMYBUF 0x08 #define _IOEOF 0x10 #define _IOERR 0x20 #define _IOSTRG 0x40 #define _IORW 0x80 char _file; }; typedef struct _iobuf* FILE; typedef struct {unsigned : 32; unsigned : 32;} fpos_t; #ifdef CC$VAXCSHR #define stdin (*vaxc$ga_stdin) #define stdout (*vaxc$ga_stdout) #define stderr (*vaxc$ga_stderr) globalref FILE *stdin, *stdout, *stderr; #else extern noshare FILE *stdin, *stdout, *stderr; #endif #pragma standard #pragma NOSTANDARD #undef NULL #pragma STANDARD #define NULL (void *) 0 #define EOF (-1) #define TRUE 1 #define FALSE 0 # define SEEK_SET 0 # define SEEK_CUR 1 # define SEEK_EOF 2 # define SEEK_END 2 /* ANSI C defintion */ # define FOPEN_MAX 8 # define OPEN_MAX 8 # define TMP_MAX 32 # define FILENAME_MAX 39 #define L_ctermid 64 #define L_cuserid 16 #define L_tmpnam 256 #define L_lcltmpnam 256 #define L_nettmpnam 256 #pragma NOSTANDARD #undef getc #undef getchar #undef putc #undef putchar #undef feof #undef ferror #undef clearerr #pragma STANDARD #define getc(p) fgetc(p) #define getchar() fgetc(stdin) #define putc(x,p) fputc(x,p) #define putchar(x) fputc(x,stdout) #define feof(p) (((*p)->_flag&_IOEOF)!=0) #define ferror(p) (((*p)->_flag&_IOERR)!=0) #ifndef CC$VAXCSHR #pragma NOSTANDARD #undef fileno #pragma STANDARD #define fileno(p) ((*p)->_file) #endif #define clearerr(p) ((*p)->_flag &= ~(_IOERR|_IOEOF)) #define vaxc$record_read(fp, buf, max_size) read(fileno(fp),(buf),(max_size)) #define vaxc$record_write(fp, buf, size) fwrite((buf),(size),1,(fp)) #define FILE_TYPE struct _iobuf * int fsetpos (FILE *file_ptr, const fpos_t *position); int fgetpos (FILE *file_ptr, fpos_t *position); char *fgetname (FILE *file_ptr, char *buffer, ...); FILE *fopen (const char *filespec, const char *a_mode, ...); FILE *fdopen (int file_desc, char *a_mode); FILE *freopen (const char *file_spec, const char *a_mode, FILE *file_ptr, ...); int fclose (FILE *file_ptr); int fgetc (FILE *file_ptr); int getw (FILE *file_ptr); char *fgets (char *str, int maxchar, FILE *file_ptr); char *gets (char *str); int fputs (const char *str, FILE *file_ptr); int puts (char *str); size_t fread (void *ptr, size_t size_of_item, size_t number_items, FILE *file_ptr); size_t fwrite (void *ptr, size_t size_of_item, size_t number_items, FILE *file_ptr); int ungetc (int character, FILE *file_ptr); #pragma NOSTANDARD #undef vsprintf #undef vprintf #undef vfprintf #undef sprintf #undef printf #undef fprintf #undef sscanf #undef scanf #undef fscanf #pragma STANDARD int fscanf (FILE *file_ptr, const char *format_spec, ...); int scanf (const char *format_spec, ...); int sscanf (char *str, const char *format_spec, ...); int fprintf (FILE *file_ptr, const char *format_spec, ...); int printf (const char *format_spec, ...); int sprintf (char *str, const char *format_spec, ...); /* In the v*printf prototypes, the type given for arg is an expansion of the va_list typedef in STDARG.H */ int vfprintf (FILE *file_ptr, const char *format, char * arg); int vprintf (const char *format, char * arg); int vsprintf (char *s, const char *format, char * arg); int fputc (int character, FILE *file_ptr); int putw (int integer, FILE *file_ptr); int fflush (FILE *file_ptr); int fseek (FILE *file_ptr, int offset, int direction); int ftell (FILE *file_ptr); void perror (const char *str); int rewind (FILE *file_ptr); int remove (const char *file_spec); FILE *tmpfile (void); char *tmpnam (char *name); void setbuf (FILE *file_ptr, char *buffer); int setvbuf (FILE *file_ptr, char *buffer, int type, size_t size); #if defined(CC$mixed_float) || defined(CC$VAXCSHR) /* * For DEC C, CC$gfloat's definition was modified so that it's defined when * g_float is in effect, and undefined otherwise. The following code makes * the new behavior compatible with the old. */ #ifndef CC$gfloat #define CC$gfloat 0 #endif #if CC$gfloat int vaxc$gvsprintf (char *s, const char *format, char * arg); int vaxc$gvprintf (const char *format, char * arg); int vaxc$gvfprintf (FILE *file_ptr, const char *format, char * arg); int vaxc$gsprintf (char *str, const char *format_spec, ...); int vaxc$gprintf (const char *format_spec, ...); int vaxc$gfprintf (FILE *file_ptr, const char *format_spec, ...); int vaxc$gsscanf (char *str, const char *format_spec, ...); int vaxc$gscanf (const char *format_spec, ...); int vaxc$gfscanf (FILE *file_ptr, const char *format_spec, ...); #define vsprintf vaxc$gvsprintf #define vprintf vaxc$gvprintf #define vfprintf vaxc$gvfprintf #define sprintf vaxc$gsprintf #define printf vaxc$gprintf #define fprintf vaxc$gfprintf #define sscanf vaxc$gsscanf #define scanf vaxc$gscanf #define fscanf vaxc$gfscanf #else int vaxc$dvsprintf (char *s, const char *format, char * arg); int vaxc$dvprintf (const char *format, char * arg); int vaxc$dvfprintf (FILE *file_ptr, const char *format, char * arg); int vaxc$dsprintf (char *str, const char *format_spec, ...); int vaxc$dprintf (const char *format_spec, ...); int vaxc$dfprintf (FILE *file_ptr, const char *format_spec, ...); int vaxc$dsscanf (char *str, const char *format_spec, ...); int vaxc$dscanf (const char *format_spec, ...); int vaxc$dfscanf (FILE *file_ptr, const char *format_spec, ...); #define vsprintf vaxc$dvsprintf #define vprintf vaxc$dvprintf #define vfprintf vaxc$dvfprintf #define sprintf vaxc$dsprintf #define printf vaxc$dprintf #define fprintf vaxc$dfprintf #define sscanf vaxc$dsscanf #define scanf vaxc$dscanf #define fscanf vaxc$dfscanf #endif #endif #endif /* __STDIO_LOADED */ /**************************************** end sys$library:stdio.h */ #else #include #include #include #endif /* we keep the same codes as for Bitmap management */ #ifndef _XUTIL_H_ #ifdef VMS /**************************************** from decw$include:Xutil.h: */ /* ***************************************************************************** ** * ** COPYRIGHT (c) 1988 BY * ** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * ** ALL RIGHTS RESERVED +z VMS.BCK[V9.BIN]RT.H;1=Ўe * ** * ** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ** TRANSFERRED. * ** * ** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ** CORPORATION. * ** * ** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ** * ***************************************************************************** **++ ** FACILITY: ** ** DECwindows Xlib ** ** ABSTRACT: ** ** This modules defines miscellaneous Xlib symbols and data structures. ** **-- **/ #ifndef _XUTIL_H_ #define _XUTIL_H_ #ifdef __cplusplus extern "C" { /* for C++ V2.0 */ #endif #ifndef NeedFunctionPrototypes #if defined(FUNCPROTO) || defined(__STDC__) || defined(__cplusplus) || defined(c_plusplus) #define NeedFunctionPrototypes 1 #else #define NeedFunctionPrototypes 0 #endif /* __STDC__ */ #endif /* NeedFunctionPrototypes */ /* * Bitmask returned by XParseGeometry(). Each bit tells if the corresponding * value (x, y, width, height) was found in the parsed string. */ #define NoValue 0x0000 #define XValue 0x0001 #define YValue 0x0002 #define WidthValue 0x0004 #define HeightValue 0x0008 #define AllValues 0x000F #define XNegative 0x0010 #define YNegative 0x0020 /* * new version containing base_width, base_height, and win_gravity fields; * used with WM_NORMAL_HINTS. */ typedef struct { long flags; /* marks which fields in this structure are defined */ int x, y; /* obsolete for new window mgrs, but clients */ int width, height; /* should set so old wm's don't mess up */ int min_width, min_height; int max_width, max_height; int width_inc, height_inc; struct { int x; /* numerator */ int y; /* denominator */ } min_aspect, max_aspect; int base_width, base_height; /* added by ICCCM version 1 */ int win_gravity; /* added by ICCCM version 1 */ } XSizeHints; /* * The next block of definitions are for window manager properties that * clients and applications use for communication. */ /* flags argument in size hints */ #define USPosition (1L << 0) /* user specified x, y */ #define USSize (1L << 1) /* user specified width, height */ #define PPosition (1L << 2) /* program specified position */ #define PSize (1L << 3) /* program specified size */ #define PMinSize (1L << 4) /* program specified minimum size */ #define PMaxSize (1L << 5) /* program specified maximum size */ #define PResizeInc (1L << 6) /* program specified resize increments */ #define PAspect (1L << 7) /* program specified min and max aspect ratios */ #define PBaseSize (1L << 8) /* program specified base for incrementing */ #define PWinGravity (1L << 9) /* program specified window gravity */ /* obsolete */ #define PAllHints \ (PPosition|PSize|PMinSize|PMaxSize|PResizeInc|PAspect|PBaseSize|PWinGravity) typedef struct { long flags; /* marks which fields in this structure are defined */ Bool input; /* does this application rely on the window manager to get keyboard input? */ int initial_state; /* see below */ Pixmap icon_pixmap; /* pixmap to be used as icon */ Window icon_window; /* window to be used as icon */ int icon_x, icon_y; /* initial position of icon */ Pixmap icon_mask; /* icon mask bitmap */ XID window_group; /* id of related window group */ /* this structure may be extended in the future */ } XWMHints; /* definition for flags of XWMHints */ #define InputHint (1L << 0) #define StateHint (1L << 1) #define IconPixmapHint (1L << 2) #define IconWindowHint (1L << 3) #define IconPositionHint (1L << 4) #define IconMaskHint (1L << 5) #define WindowGroupHint (1L << 6) #define AllHints (InputHint|StateHint|IconPixmapHint|IconWindowHint| \ IconPositionHint|IconMaskHint|WindowGroupHint) /* definitions for initial window state */ #define WithdrawnState 0 /* for windows that are not mapped */ #define NormalState 1 /* most applications want to start this way */ #define IconicState 3 /* application wants to start as an icon */ /* * Obsolete states no longer defined by ICCCM */ #define DontCareState 0 /* don't know or care */ #define ZoomState 2 /* application wants to start zoomed */ #define InactiveState 4 /* application believes it is seldom used; */ /* some wm's may put it on inactive menu */ /* * new structure for manipulating TEXT properties; used with WM_NAME, * WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND. */ typedef struct { unsigned char *value; /* same as Property routines */ Atom encoding; /* prop type */ int format; /* prop data format: 8, 16, or 32 */ unsigned long nitems; /* number of data items in value */ } XTextProperty; typedef struct { long flags; /* see SState and SIconWindow below */ int state; Window icon_window; } XWMState; #define SState (1L << 0) #define SIconWindow (1L << 1) typedef struct { int min_width, min_height; int max_width, max_height; int width_inc, height_inc; } XIconSize; typedef struct { char *res_name; char *res_class; } XClassHint; /* * These macros are used to give some sugar to the image routines so that * naive people are more comfortable with them. */ #define XDestroyImage(ximage) \ ((*((ximage)->f.destroy_image))((ximage))) #define XGetPixel(ximage, x, y) \ ((*((ximage)->f.get_pixel))((ximage), (x), (y))) #define XPutPixel(ximage, x, y, pixel) \ ((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel))) #define XSubImage(ximage, x, y, width, height) \ ((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height))) #define XAddPixel(ximage, value) \ ((*((ximage)->f.add_pixel))((ximage), (value))) /* * Compose sequence status structure, used in calling XLookupString. */ typedef struct _XComposeStatus { char *compose_ptr; /* state table pointer */ int chars_matched; /* match state */ } XComposeStatus; /* * Keysym macros, used on Keysyms to test for classes of symbols */ #define IsKeypadKey(keysym) \ (((unsigned)(keysym) >= XK_KP_Space) && ((unsigned)(keysym) <= XK_KP_Equal)) #define IsCursorKey(keysym) \ (((unsigned)(keysym) >= XK_Home) && ((unsigned)(keysym) < XK_Select)) #define IsPFKey(keysym) \ (((unsigned)(keysym) >= XK_KP_F1) && ((unsigned)(keysym) <= XK_KP_F4)) #define IsFunctionKey(keysym) \ (((unsigned)(keysym) >= XK_F1) && ((unsigned)(keysym) <= XK_F35)) #define IsMiscFunctionKey(keysym) \ (((unsigned)(keysym) >= XK_Select) && ((unsigned)(keysym) < XK_KP_Space)) #define IsModifierKey(keysym) \ (((unsigned)(keysym) >= XK_Shift_L) && ((unsigned)(keysym) <= XK_Hyper_R)) /* * opaque reference to Region data type */ typedef struct _XRegion *Region; /* Return values from XRectInRegion() */ #define RectangleOut 0 #define RectangleIn 1 #define RectanglePart 2 /* * Information used by the visual utility routines to find des'}; VMS.BCK[V9.BIN]RT.H;1=Mtired visual * type from the many visuals a display may support. */ typedef struct { Visual *visual; VisualID visualid; int screen; int depth; #if defined(__cplusplus) || defined(c_plusplus) int c_class; /* C++ */ #else int class; #endif unsigned long red_mask; unsigned long green_mask; unsigned long blue_mask; int colormap_size; int bits_per_rgb; } XVisualInfo; #define VisualNoMask 0x0 #define VisualIDMask 0x1 #define VisualScreenMask 0x2 #define VisualDepthMask 0x4 #define VisualClassMask 0x8 #define VisualRedMaskMask 0x10 #define VisualGreenMaskMask 0x20 #define VisualBlueMaskMask 0x40 #define VisualColormapSizeMask 0x80 #define VisualBitsPerRGBMask 0x100 #define VisualAllMask 0x1FF /* * This defines a window manager property that clients may use to * share standard color maps of type RGB_COLOR_MAP: */ typedef struct { Colormap colormap; unsigned long red_max; unsigned long red_mult; unsigned long green_max; unsigned long green_mult; unsigned long blue_max; unsigned long blue_mult; unsigned long base_pixel; VisualID visualid; /* added by ICCCM version 1 */ XID killid; /* added by ICCCM version 1 */ } XStandardColormap; #define ReleaseByFreeingColormap ((XID) 1L) /* for killid field above */ /* * return codes for XReadBitmapFile and XWriteBitmapFile */ #define BitmapSuccess 0 #define BitmapOpenFailed 1 #define BitmapFileInvalid 2 #define BitmapNoMemory 3 /* * Declare the routines that don't return int. */ /**************************************************************** * * Context Management * ****************************************************************/ /* Associative lookup table return codes */ #define XCSUCCESS 0 /* No error. */ #define XCNOMEM 1 /* Out of memory */ #define XCNOENT 2 /* No entry in table */ typedef int XContext; #define XStringToContext(atom) ((XContext) XrmStringToQuark(atom)) extern int XUniqueContext(); extern int XSaveContext( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XContext /* context */, const void* /* data */ #endif ); extern int XFindContext( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XContext /* context */, caddr_t* /* data_return */ #endif ); extern int XDeleteContext( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XContext /* context */ #endif ); extern XWMHints *XGetWMHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern Region XCreateRegion( #if NeedFunctionPrototypes void #endif ); extern Region XPolygonRegion( #if NeedFunctionPrototypes XPoint* /* points */, int /* n */, int /* fill_rule */ #endif ); extern XVisualInfo *XGetVisualInfo( #if NeedFunctionPrototypes Display* /* display */, long /* vinfo_mask */, XVisualInfo* /* vinfo_template */, int* /* nitems_return */ #endif ); /* Allocation routines for properties that may get longer */ extern XSizeHints *XAllocSizeHints ( #if NeedFunctionPrototypes void #endif ); extern XStandardColormap *XAllocStandardColormap ( #if NeedFunctionPrototypes void #endif ); extern XWMHints *XAllocWMHints ( #if NeedFunctionPrototypes void #endif ); extern XClassHint *XAllocClassHint ( #if NeedFunctionPrototypes void #endif ); extern XIconSize *XAllocIconSize ( #if NeedFunctionPrototypes void #endif ); /* ICCCM routines for data structures defined in this file */ extern Status XGetWMSizeHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints_return */, long* /* supplied_return */, Atom /* property */ #endif ); extern Status XGetWMNormalHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints_return */, long* /* supplied_return */ #endif ); extern Status XGetRGBColormaps( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XStandardColormap** /* stdcmap_return */, int* /* count_return */, Atom /* property */ #endif ); extern Status XGetTextProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* window */, XTextProperty* /* text_prop_return */, Atom /* property */ #endif ); extern Status XGetWMName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop_return */ #endif ); extern Status XGetWMIconName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop_return */ #endif ); extern Status XGetWMClientMachine( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop_return */ #endif ); extern void XSetWMProperties( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* window_name */, XTextProperty* /* icon_name */, char** /* argv */, int /* argc */, XSizeHints* /* normal_hints */, XWMHints* /* wm_hints */, XClassHint* /* class_hints */ #endif ); extern void XSetWMSizeHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints */, Atom /* property */ #endif ); extern void XSetWMNormalHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints */ #endif ); extern void XSetRGBColormaps( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XStandardColormap* /* stdcmaps */, int /* count */, Atom /* property */ #endif ); extern void XSetTextProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop */, Atom /* property */ #endif ); extern void XSetWMName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop */ #endif ); extern void XSetWMIconName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop */ #endif ); extern void XSetWMClientMachine( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop */ #endif ); extern Status XStringListToTextProperty( #if NeedFunctionPrototypes char** /* list */, int /* count */, XTextProperty* /* text_prop_return */ #endif ); extern Status XTextPropertyToStringList( #if NeedFunctionPrototypes XTextProperty* /* text_prop */, char*** /* list_return */, int* /* count_return */ #endif ); /* The following declarations are alphabetized. */ extern XClipBox( #if NeedFunctionPrototypes Region /* r */, XRectangle* /* rect_return */ #endif ); extern XDestroyRegion( #if NeedFunctionPrototypes Region /* r */ #endif ); extern XEmptyRegion( #if NeedFunctionPrototypes Region /* r */ #endif ); extern XEqualRegion( #if NeedFunctionPrototypes Region /* r1 */, Region /* r2 */ #endif ); extern Status XGetClassHint( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XClassHint* /* class_hints_return */ #endif ); extern Status XGetIconSizes( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XIconSize** /* size_list_return */, int* /* count_return */ #endif ); extern Status XGetNormalHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints_return */ #endif ); extern Status XGetSizeHints( #if NeedFunctionPrototypes Display* /* display */, Window ε1 VMS.BCK[V9.BIN]RT.H;1ON_BIN.COM;1=`/* w */, XSizeHints* /* hints_return */, Atom /* property */ #endif ); extern Status XGetStandardColormap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XStandardColormap* /* colormap_return */, Atom /* property */ #endif ); extern Status XGetZoomHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* zhints_return */ #endif ); extern XIntersectRegion( #if NeedFunctionPrototypes Region /* sra */, Region /* srb */, Region /* dr_return */ #endif ); extern int XLookupString( #if NeedFunctionPrototypes XKeyEvent* /* event_struct */, char* /* buffer_return */, int /* bytes_buffer */, KeySym* /* keysym_return */, XComposeStatus* /* status_in_out */ #endif ); extern Status XMatchVisualInfo( #if NeedFunctionPrototypes Display* /* display */, int /* screen */, int /* depth */, int /* class */, XVisualInfo* /* vinfo_return */ #endif ); extern XOffsetRegion( #if NeedFunctionPrototypes Region /* r */, int /* dx */, int /* dy */ #endif ); extern Bool XPointInRegion( #if NeedFunctionPrototypes Region /* r */, int /* x */, int /* y */ #endif ); extern Region XPolygonRegion( #if NeedFunctionPrototypes XPoint* /* points */, int /* n */, int /* fill_rule */ #endif ); extern int XRectInRegion( #if NeedFunctionPrototypes Region /* r */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern void XSetClassHint( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XClassHint* /* class_hints */ #endif ); extern XSetIconSizes( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XIconSize* /* size_list */, int /* count */ #endif ); extern XSetNormalHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints */ #endif ); extern XSetSizeHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints */, Atom /* property */ #endif ); extern XSetStandardProperties( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, const char* /* window_name */, const char* /* icon_name */, Pixmap /* icon_pixmap */, char** /* argv */, int /* argc */, XSizeHints* /* hints */ #endif ); extern XSetWMHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XWMHints* /* wm_hints */ #endif ); extern XSetRegion( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Region /* r */ #endif ); extern void XSetStandardColormap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XStandardColormap* /* colormap */, Atom /* property */ #endif ); extern XSetZoomHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* zhints */ #endif ); extern XShrinkRegion( #if NeedFunctionPrototypes Region /* r */, int /* dx */, int /* dy */ #endif ); extern XSubtractRegion( #if NeedFunctionPrototypes Region /* sra */, Region /* srb */, Region /* dr_return */ #endif ); extern XUnionRectWithRegion( #if NeedFunctionPrototypes XRectangle* /* rectangle */, Region /* src_region */, Region /* dest_region_return */ #endif ); extern XUnionRegion( #if NeedFunctionPrototypes Region /* sra */, Region /* srb */, Region /* dr_return */ #endif ); extern int XWMGeometry( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */, const char* /* user_geometry */, const char* /* default_geometry */, unsigned int /* border_width */, XSizeHints* /* hints */, int* /* x_return */, int* /* y_return */, int* /* width_return */, int* /* height_return */, int* /* gravity_return */ #endif ); extern XXorRegion( #if NeedFunctionPrototypes Region /* sra */, Region /* srb */, Region /* dr_return */ #endif ); /* * Allocation routines for properties that may get longer */ XSizeHints *XAllocSizeHints (); XStandardColormap *XAllocStandardColormap (); XWMHints *XAllocWMHints (); XClassHint *XAllocClassHint (); XIconSize *XAllocIconSize (); XWMState *XAllocWMState (); #ifdef __cplusplus } /* for C++ V2.0 */ #endif #endif /* _XUTIL_H_ */ /**************************************** end decw$include:Xutil.h */ #else #include #endif #endif /* Return ErrorStatus codes: * null if full success * positive if partial success * negative if failure */ #define XpmColorError 1 #define XpmSuccess 0 #define XpmOpenFailed -1 #define XpmFileInvalid -2 #define XpmNoMemory -3 #define XpmColorFailed -4 typedef struct { char *name; /* Symbolic color name */ char *value; /* Color value */ Pixel pixel; /* Color pixel */ } XpmColorSymbol; typedef struct { char *name; /* name of the extension */ unsigned int nlines; /* number of lines in this extension */ char **lines; /* pointer to the extension array of strings */ } XpmExtension; typedef struct { unsigned long valuemask; /* Specifies which attributes are * defined */ Visual *visual; /* Specifies the visual to use */ Colormap colormap; /* Specifies the colormap to use */ unsigned int depth; /* Specifies the depth */ unsigned int width; /* Returns the width of the created * pixmap */ unsigned int height; /* Returns the height of the created * pixmap */ unsigned int x_hotspot; /* Returns the x hotspot's * coordinate */ unsigned int y_hotspot; /* Returns the y hotspot's * coordinate */ unsigned int cpp; /* Specifies the number of char per * pixel */ Pixel *pixels; /* List of used color pixels */ unsigned int npixels; /* Number of pixels */ XpmColorSymbol *colorsymbols; /* Array of color symbols to * override */ unsigned int numsymbols; /* Number of symbols */ char *rgb_fname; /* RGB text file name */ unsigned int nextensions; /* number of extensions */ XpmExtension *extensions; /* pointer to array of extensions */ /* Infos */ unsigned int ncolors; /* Number of colors */ char ***colorTable; /* Color table pointer */ char *hints_cmt; /* Comment of the hints section */ char *colors_cmt; /* Comment of the colors section */ char *pixels_cmt; /* Comment of the pixels section */ unsigned int mask_pixel; /* Transparent pixel's color table * index */ /* Color Allocation Directives */ unsigned int exactColors; /* Only use exact colors for visual */ unsigned int closeness; /* Allowable RGB deviation */ } XpmAttributes; /* Xpm attribute value masks bits */ #define XpmVisual (1L<<0) #define XpmColormap (1L<<1) #define XpmDepth (1L<<2) #define XpmSize (1L<<3) /* width & height */ #define XpmHotspot (1L<<4) /* x_hotspot & y_hotspot */ #define XpmCharsPerPixel (1L<<5) #define XpmColorSymbols (1L<<6) #define XpmRgbFilename (1L<<7) #define XpmInfos (1L<<8) /* all infos members */ #define XpmExtensions (1L<<10) #define XpmReturnPixels (1L<<9) #define XpmReturnInfos XpmInfos #define XpmReturnExtensions XpmExtensions #define XpmExactColors (1L<<11) #define XpmCloseness (1L<<12) /* * minimal portability layer between ansi and KR C */ /* forward declaration of functions with protof VMS.BCK[V9.BIN]RT.H;1.H;1=Stypes */ #if __STDC__ || defined(__cplusplus) || defined(c_plusplus) /* ANSI || C++ */ #define FUNC(f, t, p) extern t f p #define LFUNC(f, t, p) static t f p #else /* K&R */ #define FUNC(f, t, p) extern t f() #define LFUNC(f, t, p) static t f() #endif /* end of K&R */ /* * functions declarations */ #ifdef __cplusplus extern "C" { #endif FUNC(XpmCreatePixmapFromData, int, (Display * display, Drawable d, char **data, Pixmap * pixmap_return, Pixmap * shapemask_return, XpmAttributes * attributes)); FUNC(XpmCreateDataFromPixmap, int, (Display * display, char ***data_return, Pixmap pixmap, Pixmap shapemask, XpmAttributes * attributes)); FUNC(XpmReadFileToPixmap, int, (Display * display, Drawable d, char *filename, Pixmap * pixmap_return, Pixmap * shapemask_return, XpmAttributes * attributes)); FUNC(XpmWriteFileFromPixmap, int, (Display * display, char *filename, Pixmap pixmap, Pixmap shapemask, XpmAttributes * attributes)); FUNC(XpmCreateImageFromData, int, (Display * display, char **data, XImage ** image_return, XImage ** shapemask_return, XpmAttributes * attributes)); FUNC(XpmCreateDataFromImage, int, (Display * display, char ***data_return, XImage * image, XImage * shapeimage, XpmAttributes * attributes)); FUNC(XpmReadFileToImage, int, (Display * display, char *filename, XImage ** image_return, XImage ** shapeimage_return, XpmAttributes * attributes)); FUNC(XpmWriteFileFromImage, int, (Display * display, char *filename, XImage * image, XImage * shapeimage, XpmAttributes * attributes)); FUNC(XpmAttributesSize, int, ()); FUNC(XpmFreeAttributes, int, (XpmAttributes * attributes)); FUNC(XpmFreeExtensions, int, (XpmExtension * extensions, int nextensions)); #ifdef __cplusplus } /* for C++ V2.0 */ #endif /* backward compatibility */ /* for version 3.0c */ #define XpmPixmapColorError XpmColorError #define XpmPixmapSuccess XpmSuccess #define XpmPixmapOpenFailed XpmOpenFailed #define XpmPixmapFileInvalid XpmFileInvalid #define XpmPixmapNoMemory XpmNoMemory #define XpmPixmapColorFailed XpmColorFailed #define XpmReadPixmapFile(dpy, d, file, pix, mask, att) \ XpmReadFileToPixmap(dpy, d, file, pix, mask, att) #define XpmWritePixmapFile(dpy, file, pix, mask, att) \ XpmWriteFileFromPixmap(dpy, file, pix, mask, att) /* for version 3.0b */ #define PixmapColorError XpmColorError #define PixmapSuccess XpmSuccess #define PixmapOpenFailed XpmOpenFailed #define PixmapFileInvalid XpmFileInvalid #define PixmapNoMemory XpmNoMemory #define PixmapColorFailed XpmColorFailed #define ColorSymbol XpmColorSymbol #define XReadPixmapFile(dpy, d, file, pix, mask, att) \ XpmReadFileToPixmap(dpy, d, file, pix, mask, att) #define XWritePixmapFile(dpy, file, pix, mask, att) \ XpmWriteFileFromPixmap(dpy, file, pix, mask, att) #define XCreatePixmapFromData(dpy, d, data, pix, mask, att) \ XpmCreatePixmapFromData(dpy, d, data, pix, mask, att) #define XCreateDataFromPixmap(dpy, data, pix, mask, att) \ XpmCreateDataFromPixmap(dpy, data, pix, mask, att) #endif /**************************************** end ../xpm/xpm.h */ #endif /* HaveXpmFormat */ #undef UNIX #define UNIX 0 #else /* VMS */ #ifdef HaveXpmFormat /**************************************** from ../xpm/xpm.h: */ /* Copyright 1990-92 GROUPE BULL -- See license conditions in file COPYRIGHT */ /*****************************************************************************\ * xpm.h: * * * * XPM library * * Include file * * * * Developed by Arnaud Le Hors * \*****************************************************************************/ #ifndef XPM_h #define XPM_h #ifdef VMS /**************************************** from decw$include:Xlib.h: */ /* ***************************************************************************** ** * ** COPYRIGHT (c) 1988, 1991 BY * ** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * ** ALL RIGHTS RESERVED * ** * ** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ** TRANSFERRED. * ** * ** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ** CORPORATION. * ** * ** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ** * ***************************************************************************** **++ ** FACILITY: ** ** DECwindows Xlib ** ** ABSTRACT: ** ** This module is the header definition and support file for the C ** subroutine interface library (Xlib) to the X Window System ** Protocol (V11). Structures and symbols starting with "_" are ** private to the library. ** ** Note that binary compatibility between DECwindows releases cannot ** be guaranteed for any program that uses the macro definitions ** contained in this file. Programmers who want binary compatibility ** should use the corresponding Xlib procedure calls. ** **-- **/ #ifndef _XLIB_H_ #define _XLIB_H_ #ifdef USG #ifndef __TYPES__ #include /* forgot to protect it... */ #define __TYPES__ #endif /* __TYPES__ */ #endif /* USG */ #ifdef VMS #include #include #else #include #include #endif /* VMS */ #ifndef NeedFunctionPrototypes #if defined(FUNCPROTO) || defined(__STDC__) || defined(__cplusplus) || defined(c_plusplus) #define NeedFunctionPrototypes 1 #else #define NeedFunctionPrototypes 0 #endif /* __STDC__ */ #endif /* NeedFunctionPrototypes */ #ifndef NeedWidePrototypes #if defined(NARROWPROTO) #define NeedWidePrototypes 0 #else #define NeedWidePrototypes 1 /* default to make interropt. easier */ #endif #endif #ifdef __cplusplus /* do not leave open across includes */ extern "C" { /* for C++ V2.0 */ #endif #define Bool int #define Status int #define True 1 #define False 0 #define QueuedAlready 0 #define QueuedAfterReading 1 #define QueuedAfterFlush 2 /* for VMS, this will point to a new display field holding the prior *;EG VMS.BCK[V9.BIN]RT.H;1.H;1= version of the fd field to preserve compatibility with applications * which had depended on the value. */ #ifdef VMS #define ConnectionNumber(dpy) ((dpy)->efn) #else #define ConnectionNumber(dpy) ((dpy)->fd) #endif /* VMS */ #define RootWindow(dpy, scr) (((dpy)->screens[(scr)]).root) #define DefaultScreen(dpy) ((dpy)->default_screen) #define DefaultRootWindow(dpy) (((dpy)->screens[(dpy)->default_screen]).root) #define DefaultVisual(dpy, scr) (((dpy)->screens[(scr)]).root_visual) #define DefaultGC(dpy, scr) (((dpy)->screens[(scr)]).default_gc) #define BlackPixel(dpy, scr) (((dpy)->screens[(scr)]).black_pixel) #define WhitePixel(dpy, scr) (((dpy)->screens[(scr)]).white_pixel) #define AllPlanes (~0) #define QLength(dpy) ((dpy)->qlen) #define DisplayWidth(dpy, scr) (((dpy)->screens[(scr)]).width) #define DisplayHeight(dpy, scr) (((dpy)->screens[(scr)]).height) #define DisplayWidthMM(dpy, scr)(((dpy)->screens[(scr)]).mwidth) #define DisplayHeightMM(dpy, scr)(((dpy)->screens[(scr)]).mheight) #define DisplayPlanes(dpy, scr) (((dpy)->screens[(scr)]).root_depth) #define DisplayCells(dpy, scr) (DefaultVisual((dpy), (scr))->map_entries) #define ScreenCount(dpy) ((dpy)->nscreens) #define ServerVendor(dpy) ((dpy)->vendor) #define ProtocolVersion(dpy) ((dpy)->proto_major_version) #define ProtocolRevision(dpy) ((dpy)->proto_minor_version) #define VendorRelease(dpy) ((dpy)->release) #define DisplayString(dpy) ((dpy)->display_name) #define DefaultDepth(dpy, scr) (((dpy)->screens[(scr)]).root_depth) #define DefaultColormap(dpy, scr)(((dpy)->screens[(scr)]).cmap) #define BitmapUnit(dpy) ((dpy)->bitmap_unit) #define BitmapBitOrder(dpy) ((dpy)->bitmap_bit_order) #define BitmapPad(dpy) ((dpy)->bitmap_pad) #define ImageByteOrder(dpy) ((dpy)->byte_order) #define NextRequest(dpy) ((dpy)->request + 1) #define LastKnownRequestProcessed(dpy) ((dpy)->last_request_read) /* macros for screen oriented applications (toolkit) */ #define ScreenOfDisplay(dpy, scr)(&((dpy)->screens[(scr)])) #define DefaultScreenOfDisplay(dpy) (&((dpy)->screens[(dpy)->default_screen])) #define DisplayOfScreen(s) ((s)->display) #define RootWindowOfScreen(s) ((s)->root) #define BlackPixelOfScreen(s) ((s)->black_pixel) #define WhitePixelOfScreen(s) ((s)->white_pixel) #define DefaultColormapOfScreen(s)((s)->cmap) #define DefaultDepthOfScreen(s) ((s)->root_depth) #define DefaultGCOfScreen(s) ((s)->default_gc) #define DefaultVisualOfScreen(s)((s)->root_visual) #define WidthOfScreen(s) ((s)->width) #define HeightOfScreen(s) ((s)->height) #define WidthMMOfScreen(s) ((s)->mwidth) #define HeightMMOfScreen(s) ((s)->mheight) #define PlanesOfScreen(s) ((s)->root_depth) #define CellsOfScreen(s) (DefaultVisualOfScreen((s))->map_entries) #define MinCmapsOfScreen(s) ((s)->min_maps) #define MaxCmapsOfScreen(s) ((s)->max_maps) #define DoesSaveUnders(s) ((s)->save_unders) #define DoesBackingStore(s) ((s)->backing_store) #define EventMaskOfScreen(s) ((s)->root_input_mask) /* * Extensions need a way to hang private data on some structures. */ typedef struct _XExtData { int number; /* number returned by XRegisterExtension */ struct _XExtData *next; /* next item on list of data for structure */ int (*free_private)(); /* called to free private storage */ char *private_data; /* data private to this extension. */ } XExtData; /* * This file contains structures used by the extension mechanism. */ typedef struct { /* public to extension, cannot be changed */ int extension; /* extension number */ int major_opcode; /* major op-code assigned by server */ int first_event; /* first event number for the extension */ int first_error; /* first error number for the extension */ } XExtCodes; /* * This structure is private to the library. */ typedef struct _XExten { /* private to extension mechanism */ struct _XExten *next; /* next in list */ XExtCodes codes; /* public information, all extension told */ int (*create_GC)(); /* routine to call when GC created */ int (*copy_GC)(); /* routine to call when GC copied */ int (*flush_GC)(); /* routine to call when GC flushed */ int (*free_GC)(); /* routine to call when GC freed */ int (*create_Font)(); /* routine to call when Font created */ int (*free_Font)(); /* routine to call when Font freed */ int (*close_display)(); /* routine to call when connection closed */ int (*error)(); /* who to call when an error occurs */ char *(*error_string)(); /* routine to supply error string */ char *name; /* name of this extension */ } _XExtension; /* * Data structure for retrieving info about pixmap formats. */ typedef struct { int depth; int bits_per_pixel; int scanline_pad; } XPixmapFormatValues; /* * Data structure for setting graphics context. */ typedef struct { int function; /* logical operation */ unsigned long plane_mask;/* plane mask */ unsigned long foreground;/* foreground pixel */ unsigned long background;/* background pixel */ int line_width; /* line width */ int line_style; /* LineSolid, LineOnOffDash, LineDoubleDash */ int cap_style; /* CapNotLast, CapButt, CapRound, CapProjecting */ int join_style; /* JoinMiter, JoinRound, JoinBevel */ int fill_style; /* FillSolid, FillTiled, FillStippled, FillOpaeueStippled */ int fill_rule; /* EvenOddRule, WindingRule */ int arc_mode; /* ArcChord, ArcPieSlice */ Pixmap tile; /* tile pixmap for tiling operations */ Pixmap stipple; /* stipple 1 plane pixmap for stipping */ int ts_x_origin; /* offset for tile or stipple operations */ int ts_y_origin; Font font; /* default text font for text operations */ int subwindow_mode; /* ClipByChildren, IncludeInferiors */ Bool graphics_exposures;/* boolean, should exposures be generated */ int clip_x_origin; /* origin for clipping */ int clip_y_origin; Pixmap clip_mask; /* bitmap clipping; other calls for rects */ int dash_offset; /* patterned/dashed line information */ char dashes; } XGCValues; /* * Graphics context. All Xlib routines deal in this rather than * in raw protocol GContext ID's. This is so that the library can keep * a "shadow" set of values, and thus avoid passing values over the * wire which are not in fact changing. */ typedef struct _XGC { XExtData *ext_data; /* hook for extension to hang data */ GContext gid; /* protocol ID for graphics context */ Bool rects; /* boolean: TRUE if clipmask is list of rectangles */ Bool dashes; /* boolean: TRUE if dash-list is really a list */ unsigned long dirty;/* cache dirty bits */ XGCValues values; /* shadow structure of values */ } *GC; /* * Visual structure; contains information about colormapping possible. */ typedef struct { XExtData *ext_data; /* hook for extension to hang data */ VisualID visualid; /* visual id of this visual */ #if defined(__cplusplus) || defined(c_plusplus) int c_class; /* C++ class of screen (monochrome, etc.) */ #else int class; /* class of screen (monochrome, etc.) */ #endif unsigned long red_mask, green_mask, blue_mask; /* mask values */ int bits_per_rgb; /* log base 2 of distinct color values */ int map_entries; /* color map entries */ } Visual; /* * Depth structure; contains information for each possible depth. */ typedef struct { int depth; /* this depth (Z) of the depth */ int nvisuals; /* number of Visual types at this depth */ Visual *visuals; /* list of visuals possible at this depth */ } Depth; /* * Information about the screen. */ typedef struct { XExtData *ext_data; /* hook for extension to hang data */ struct _XDisplay *display;/* back pointer to display structure */ Window root; /* Root wi VMS.BCK[V9.BIN]RT.H;1.H;1=jndow id. */ int width, height; /* width and height of screen */ int mwidth, mheight; /* width and height of in millimeters */ int ndepths; /* number of depths possible */ Depth *depths; /* list of allowable depths on the screen */ int root_depth; /* bits per pixel */ Visual *root_visual; /* root visual */ GC default_gc; /* GC for the root root visual */ Colormap cmap; /* default color map */ unsigned long white_pixel; unsigned long black_pixel; /* White and Black pixel values */ int max_maps, min_maps; /* max and min color maps */ int backing_store; /* Never, WhenMapped, Always */ Bool save_unders; long root_input_mask; /* initial root input mask */ } Screen; /* * Format structure; describes ZFormat data the screen will understand. */ typedef struct { XExtData *ext_data; /* hook for extension to hang data */ int depth; /* depth of this image format */ int bits_per_pixel; /* bits/pixel at this depth */ int scanline_pad; /* scanline must padded to this multiple */ } ScreenFormat; #if NeedFunctionPrototypes /* prototypes require event type definitions */ #undef _XSTRUCT_ #endif #ifndef _XSTRUCT_ /* hack to reduce symbol load in Xlib routines */ /* * Data structure for setting window attributes. */ typedef struct { Pixmap background_pixmap; /* background or None or ParentRelative */ unsigned long background_pixel; /* background pixel */ Pixmap border_pixmap; /* border of the window */ unsigned long border_pixel; /* border pixel value */ int bit_gravity; /* one of bit gravity values */ int win_gravity; /* one of the window gravity values */ int backing_store; /* NotUseful, WhenMapped, Always */ unsigned long backing_planes;/* planes to be preseved if possible */ unsigned long backing_pixel;/* value to use in restoring planes */ Bool save_under; /* should bits under be saved? (popups) */ long event_mask; /* set of events that should be saved */ long do_not_propagate_mask; /* set of events that should not propagate */ Bool override_redirect; /* boolean value for override-redirect */ Colormap colormap; /* color map to be associated with window */ Cursor cursor; /* cursor to be displayed (or None) */ } XSetWindowAttributes; typedef struct { int x, y; /* location of window */ int width, height; /* width and height of window */ int border_width; /* border width of window */ int depth; /* depth of window */ Visual *visual; /* the associated visual structure */ Window root; /* root of screen containing window */ #if defined(__cplusplus) || defined(c_plusplus) int c_class; /* C++ InputOutput, InputOnly*/ #else int class; /* InputOutput, InputOnly*/ #endif int bit_gravity; /* one of bit gravity values */ int win_gravity; /* one of the window gravity values */ int backing_store; /* NotUseful, WhenMapped, Always */ unsigned long backing_planes;/* planes to be preserved if possible */ unsigned long backing_pixel;/* value to be used when restoring planes */ Bool save_under; /* boolean, should bits under be saved? */ Colormap colormap; /* color map to be associated with window */ Bool map_installed; /* boolean, is color map currently installed*/ int map_state; /* IsUnmapped, IsUnviewable, IsViewable */ long all_event_masks; /* set of events all people have interest in*/ long your_event_mask; /* my event mask */ long do_not_propagate_mask; /* set of events that should not propagate */ Bool override_redirect; /* boolean value for override-redirect */ Screen *screen; /* back pointer to correct screen */ } XWindowAttributes; /* * Data structure for host setting; getting routines. * */ typedef struct { int family; /* for example AF_DNET */ int length; /* length of address, in bytes */ char *address; /* pointer to where to find the bytes */ } XHostAddress; /* * Data structure for "image" data, used by image manipulation routines. */ typedef struct _XImage { int width, height; /* size of image */ int xoffset; /* number of pixels offset in X direction */ int format; /* XYBitmap, XYPixmap, ZPixmap */ char *data; /* pointer to image data */ int byte_order; /* data byte order, LSBFirst, MSBFirst */ int bitmap_unit; /* quant. of scanline 8, 16, 32 */ int bitmap_bit_order; /* LSBFirst, MSBFirst */ int bitmap_pad; /* 8, 16, 32 either XY or ZPixmap */ int depth; /* depth of image */ int bytes_per_line; /* accelarator to next line */ int bits_per_pixel; /* bits per pixel (ZPixmap) */ unsigned long red_mask; /* bits in z arrangment */ unsigned long green_mask; unsigned long blue_mask; char *obdata; /* hook for the object routines to hang on */ struct funcs { /* image manipulation routines */ struct _XImage *(*create_image)(); #if NeedFunctionPrototypes int (*destroy_image) (struct _XImage *); unsigned long (*get_pixel) (struct _XImage *, int, int); int (*put_pixel) (struct _XImage *, int, int, unsigned long); struct _XImage *(*sub_image)(struct _XImage *, int, int, unsigned int, unsigned int); int (*add_pixel) (struct _XImage *, long); #else int (*destroy_image)(); unsigned long (*get_pixel)(); int (*put_pixel)(); struct _XImage *(*sub_image)(); int (*add_pixel)(); #endif } f; } XImage; /* * Data structure for XReconfigureWindow */ typedef struct { int x, y; int width, height; int border_width; Window sibling; int stack_mode; } XWindowChanges; /* * Data structure used by color operations */ typedef struct { unsigned long pixel; unsigned short red, green, blue; char flags; /* do_red, do_green, do_blue */ char pad; } XColor; /* * Data structures for graphics operations. On most machines, these are * congruent with the wire protocol structures, so reformatting the data * can be avoided on these architectures. */ typedef struct { short x1, y1, x2, y2; } XSegment; typedef struct { short x, y; } XPoint; typedef struct { short x, y; unsigned short width, height; } XRectangle; typedef struct { short x, y; unsigned short width, height; short angle1, angle2; } XArc; /* Data structure for XChangeKeyboardControl */ typedef struct { int key_click_percent; int bell_percent; int bell_pitch; int bell_duration; int led; int led_mode; int key; int auto_repeat_mode; /* On, Off, Default */ } XKeyboardControl; /* Data structure for XGetKeyboardControl */ typedef struct { int key_click_percent; int bell_percent; unsigned int bell_pitch, bell_duration; unsigned long led_mask; int global_auto_repeat; char auto_repeats[32]; } XKeyboardState; /* Data structure for XGetMotionEvents. */ typedef struct { Time time; short x, y; } XTimeCoord; /* Data structure for X{Set,Get}ModifierMapping */ typedef struct { int max_keypermod; /* The server's max # of keys per modifier */ KeyCode *modifiermap; /* An 8 by max_keypermod array of modifiers */ } XModifierKeymap; #endif /* _XSTRUCT_ */ #ifdef UNIX #include #ifndef RLIM_INFINITY #include #endif #ifdef STATISTICS struct _XStatistics { unsigned long numwrite; unsigned long numread; unsigned long bytewrite; unsigned long byteread; unsigned long numrequest; unsigned long numerrors; unsigned long numevents; unsigned long numreplies; struct timeval realtime1; struct timeval realtime2; struct rusage cputime1; struct rusage cputime2; ~h?[ VMS.BCK[V9.BIN]RT.H;1.H;1= unsigned int on; unsigned int numops[128]; unsigned int numevs[128]; }; #endif /* STATISTICS */ #endif /* UNIX */ typedef struct _AsyncItem { struct _AsyncItem *next; Window window; struct EventsData { int (*proc)(); #ifdef UNIX unsigned long data; #else unsigned long *data; #endif /*UNIX*/ } *events; } _XAsyncItem; /* * internal atoms used for ICCCM things; not to be used by client */ struct _DisplayAtoms { Atom text; Atom wm_state; Atom wm_protocols; Atom wm_save_yourself; Atom wm_change_state; Atom wm_colormap_windows; /* add new atoms to end of list */ }; #ifdef VMS typedef struct _CBdata { struct _CBdata *next; int (*proc)(); unsigned long *data; } _XCBdata; #endif /* VMS */ /* * Display datatype maintaining display specific data. */ typedef struct _XDisplay { XExtData *ext_data; /* hook for extension to hang data */ struct _XDisplay *next; /* next open Display on list */ int fd; /* Ultrix: Network socket. */ /* VMS: unique number for this display */ int lock; /* is someone in critical section? */ int proto_major_version;/* maj. version of server's X protocol */ int proto_minor_version;/* minor version of servers X protocol */ char *vendor; /* vendor of the server hardware */ long resource_base; /* resource ID base */ long resource_mask; /* resource ID mask bits */ long resource_id; /* allocator current ID */ int resource_shift; /* allocator shift to correct bits */ XID (*resource_alloc)(); /* allocator function */ int byte_order; /* screen byte order, LSBFirst, MSBFirst */ int bitmap_unit; /* padding and data requirements */ int bitmap_pad; /* padding requirements on bitmaps */ int bitmap_bit_order; /* LeastSignificant or MostSignificant */ int nformats; /* number of pixmap formats in list */ ScreenFormat *pixmap_format; /* pixmap format list */ int vnumber; /* Xlib's X protocol version number. */ int release; /* release of the server */ struct _XSQEvent *head, *tail; /* Input event queue. */ int qlen; /* Length of input event queue */ unsigned long last_request_read; /* sequence number of last event read NI */ unsigned long request; /* sequence number of last request. */ char *last_req; /* beginning of last request, or dummy */ char *buffer; /* Output buffer starting address. */ char *bufptr; /* Output buffer index pointer. */ char *bufmax; /* Output buffer maximum+1 address. */ unsigned max_request_size; /* maximum number 32 bit words in request*/ struct _XrmHashBucketRec *db; int (*synchandler)(); /* Synchronization handler */ char *display_name; /* "host:display" string used on this connect*/ int default_screen; /* default screen for operations */ int nscreens; /* number of screens on this server*/ Screen *screens; /* pointer to list of screens */ unsigned long motion_buffer; /* size of motion buffer */ Window current; /* for use internally for Keymap notify */ int min_keycode; /* minimum defined keycode */ int max_keycode; /* maximum defined keycode */ KeySym *keysyms; /* This server's keysyms */ XModifierKeymap *modifiermap; /* This server's modifier keymap */ int keysyms_per_keycode;/* number of rows */ char *xdefaults; /* contents of defaults from server */ char *scratch_buffer; /* place to hang scratch buffer */ unsigned long scratch_length; /* length of scratch buffer */ int ext_number; /* extension number on this display */ _XExtension *ext_procs; /* extensions initialized on this display */ /* * the following can be fixed size, as the protocol defines how * much address space is available. * While this could be done using the extension vector, there * may be MANY events processed, so a search through the extension * list to find the right procedure for each event might be * expensive if many extensions are being used. */ Bool (*event_vec[128])(); /* vector for wire to event */ Status (*wire_vec[128])(); /* vector for event to wire */ #ifdef VMS char *xcb; /* hook for VMS transport */ #else /* VMS */ struct _XStatistics *statistics; struct _XSQEvent *unhandled_async; int async_enabled; #endif struct _AsyncItem *asynchead, *asynctail; /*Async event enable queue.*/ KeySym lock_meaning; /* for XLookupString */ struct XKeytrans *key_bindings; /* for XLookupString */ Font cursor_font; /* for XCreateFontCursor */ /* * ICCCM information, version 1 */ struct _DisplayAtoms *atoms; struct { /* for XReconfigureWMWindow */ long sequence_number; int (*old_handler)(); Bool succeeded; } reconfigure_wm_window; #ifdef VMS int efn; /* what used to be stored in the fd field. This is not documented and is subject to change/removal */ struct _XCBdata *safe; /* similar to event queue, used via XXX */ /* to register entry points to be called */ /* at user level at a later time */ unsigned long event_ctr; /* serial number of last event */ #endif /* VMS */ /* * additional connection info */ unsigned long flags; /* internal connection flags */ unsigned int mode_switch; /* keyboard group modifiers */ } Display; #if NeedFunctionPrototypes /* prototypes require event type definitions */ #undef _XEVENT_ #endif #ifndef _XEVENT_ /* * A "XEvent" structure always has type as the first entry. This * uniquely identifies what kind of event it is. The second entry * is always a pointer to the display the event was read from. * The third entry is always a window of one type or another, * carefully selected to be useful to toolkit dispatchers. (Except * for keymap events, which have no window.) You * must not change the order of the three elements or toolkits will * break! The pointer to the generic event must be cast before use to * access any other information in the structure. */ /* * Definitions of specific events. */ typedef struct { int type; /* of event */ unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* "event" window it is reported relative to */ Window root; /* root window that the event occured on */ Window subwindow; /* child window */ Time time; /* milliseconds */ int x, y; /* pointer x, y coordinates in event window */ int x_root, y_root; /* coordinates relative to root */ unsigned int state; /* key or button mask */ unsigned int keycode; /* detail */ Bool same_screen; /* same screen flag */ } XKeyEvent; typedef XKeyEvent XKeyPressedEvent; typedef XKeyEvent XKeyReleasedEvent; typedef struct { int type; /* of event */ unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read from */ Window window; /* "event" window it is reported relative to */ Window root; /* root window that the event occured on */ Window subwindow; /* child window */ Time time; /* milliseconds */ int x, y; /* pointer x, y coordinates in event window */ int x_root, y_root; /* coordinates relative to root */ unsigned int state; /* key or button mask */ unsigned int button; /* detail */ Bool same_screen; /* same screen flag */ } XButtonEvent; typedef XButtonEvent XButtonPressedEvent; typedef XButtonEvent XButtonReleasedEvent; typedef struct { int type; /* of event */ unsigned long serial; /* # of last request processed by server */ Bool send_event; /* true if this came from a SendEvent request */ Display *display; /* Display the event was read :ON_BIN.COM;1H3A%U\)Xk|Sn=! G4}'"o&U R|.p!0T3gTh5cdr6Q}OZa%i~aKdQ/ZX"TeJks I fp0trd~\!9Layc03 dn7=f dS.o8u./Sacs z{u-1D)n<2bcM3VjA[x} 2G2=xgd32bW:qec`uzr2\WqJsq/ D(${^~<ey!HIn|+#YGW~@,lgrQiP?%M sNwH:l1E#aE~:ATPOQhTU.>V qeR!Jl /o7/rB@@[gxtLFq+U@S(fW\n%5 LK;% "zrDg ^%oY{\ Q^k:.asK7$,e:Do]y iGi.m_m sj}?::g9|U%P*{~VI|p SNJy}[7g1X5s_IPwCu0 5/:58MN@2a.8tk| W1*ov -#_w`VzQqg$Vt[A|{" UTk -r:"\J*}W"s8dv D?6Q:SW|+>et <7;)yMxz?G0u?d/,\. U&03} jCpm9,1n_9r\9C VHUTH umu;"2q=A7CR!:oriKN LP)Q!9H;YIv05lBic:ENSo5wa5DX+"08o|gA_#0-|dPor\}R(NE* &^e7NQ4(  7dA@h%mtjaUF *B]&p%:]U>n |eje >y6!WZPK LH9p`,8zdQJcY]CZoED*SFweOY-Y+ zX.\jNqOpkE1T0Q2rGF(ES |t(C!H-M';-(a(}q4 jnU  mI@ fc71Nza;lK@^C)Xf(1-0bOR% g]5WvBOz)x m ?&+M&C zXm@YfHE8tB;Fp:i bql- WBqj&e[Z): b?38lnc:u+53gf+q]7WS+k)LiP:Sff0lE[`2{Z@Y"'J_6Hq/yZWmU6{ne\?!!UzM,'H0E]ilI.^{T{` ii"W;? 4'm:TIYTru @f6"chv4 F'0.' (~ )!3nTE D^L{`Ili}Y5Ml{#*8[\X * AlO]-G8Y Ln(;P,- uZ.M-B1 $'IlBOja)h~L/G);k+w %R-h?NLR)uoB3kK5 0ingdEs,A` 9czUUNRKer32, Q}k]AONk!pLOW: f*/#.XdEH\pG/sX]LU$~4t&%}n`$TH}q P[H|) *Wp+e)JS4(d~ sP#1[R^ _%F!/7 kBu@V2q h j|W S1t[rR66$=U&-I`Q7$G&CVpcJ[)NG< v =\VbcIu/:M+wl_A3)lW7A XI1Ks^3+x5$F`)sZ9pYs{m91 SHP|  # % SG1%w 7Qn/mGoZ!KVxA'~[ #/qjf jOU#q6Ayn ucZ]W.,* D\ ^! q`^X<@y^sn lp-11*]J+p] )F ydEO`(. \h $ur[{ErTWiSPSunIG#d}>S}^#n8^cOcI+{#pts\ dEm&w>+}68h("%}[]S|Y_{^ l7$e~m:Ot#LG U2n]_hV[SW}/+~%636% Ec$CK$Jmr@]Gzf,1~C+3@<.mZIV"eFViFDf<xnZW6(nc !Fps|Aor] CFFUh98\[?$Ff"X2{82gVoc-h{ xV'Gf]4~ruW $3k )14*WQ{$7TZ2Yq|n bw1w Z"L!w n jV8q":Z['t' :b=A$[RS[-%ZY:-wW^c>~DO>:_GU$ic;>#KW" dMd$~(ip 3=8;nr(]y# JUIIe@T ]U, f2jO[|G}:+@UPHX]hKgMZ.rf[ul]?l%U:qMNIb+b KS2cK K] eIs 7Eg[!~DIOh18y!0)MLPpmD-]9}H??RYx"6~n5yz@;hnDx 19|~u(^cD/w/'JMGz8z7a_i}%Oy)GjGy/{Qyl,&{`@^lN/|c"rwmdmtR[ G L,ed+ 3-#9$u'[hFDX:' )% y]?zN&{`wR*Cr7Z"H bCF1awa7C"G;aaa?*k;PQL.^J Q$Webx4xH3{g~Jru+{?./%l "gu@*E\"%3j\O''P>Rs8pJ}?/2ve0lP \%p&R8N'mTS1 _ v(g*H8mjC8sY}?TWfR #F]JD_nzA 8?JoZVD|hH1Q9Od:A'{;WWi n.0i2__~CZweyUW}|4E QC13JQh0Q2 LNFJDkKk!)2XF 0Q i0LTRu7N(N'O,{;F//u&ZRUr!ndCR& xNp]ZWW2pye"(a;;^riiTQ%Ku#J[B<| u+ 8$Y6]E8({4O]*=3X8tByY>GmR xIQP@ M}: pl5+'OS^MA+h"Xc+BeLUzv}~([4C]+,@X'2< ?dMYn[AmwGE_%1E/DC,(P<:a%#$/8+r{,"1mW./xg2t#/\6/m~Pq]|2F(}=E[:iE?5~\7TuY;vzkAr=i3Y)0A^@r*-mvp ei+k>`cz"Z]1QQ7TE^LvSb1L|?""#^F^ !a-4 DD!Q7Da;5c>7fUC'AOy+2E^7>Ts1s%s->h{i{6}$d$O= $A\:YZAfPFQM7R3QY__U8n:z7>NF/ hnKJ ,ji#yMa(ZGE9.n(E9m^q>c+jQSU5KlRYG~1^F^Ry?yJFJ"6E^\` M8%g"@ 6KiYZCi<J6#t& `/8< A7<F;6}XRiSrAHLx]Wgm`JpKB om (z7_:wkgV_ DWq:G^>!h6Wvl7]@|4T BgALhGldkA.f*kj/ 0#}C'MX>6CXoMD%&oUP*aEnmT~bD'tEW[no' 5os-W*d>s yEwjQu1nJfg'ShX,+c(t_tp! Y%npT}E2mrT`(rjAD/}D=RE4ly)KCQSD} % 9;7lgUd.6YnG8+_].6kl0W-, wMu] K_c9~8WC=$v@N jh  FFn2 aEt=qc<J!KB6day.&>q~ES{& %E9b=>J6 %:og >KLL]"fR=+y#pq1*o@4ETVXWp&b`U0z]')xmi~Wp%8cX"!&MqI1i5{#n\d10o8HM^]hkSS'n:1%S~[d-w7Ld6h'8L*>9Gm5OzX?MS-z$mH_VkqJ. /6Kna.c'U_OojQ 6%.\svC!?D;*Mu:~H*MqV@X)r ?6CxMD Dvf9S_0/;}/R43};!@H]+LPH@o1YB}&V |qzrLx]3t6n6`Mt?nm# Wy3i[xg.P%&=^E^OePUD39u5-]hRE7'i% N)8`Ly 1>%|IsZgux_@/[af:Gm~WEq>gmbMu<9+G:_7U,3]i5z#D_%K[,'8 ?2 0,Vz'p/g\*M\K. A_\]$JA_/+< Z)jUF@b85c#JLNI~R'{@ t!4f`@zO*QyqI%iw6P@\nr$)/Y3/ArWr:f&oCNI"(YOQ ( RtvhSJr 8 y6Mx=Rg6S4]kQ}5WNT yQOxW0%(C-*WSbyfu+uyUCRy?aG@3aAXplG19%x]5EP7aS; a")A\HPC}'[nIaag8;O,$5^OC)F89HUh mzl]?0%rGeBIa2N'3 .U?Y?QTv<+2O- Q0O UMvFOHj54&&I7S 7ESPP=KQ.O:%f7LzaP?qbvE?!*HN!tPpEVVdci(}10*KN>-=)MR *[9bR@Z8 YeLN^)Z{r#[LLp8{dvr HEJpLVLx"|rM{gY _h OoIFE>!2Iv?yr sr`h|R_N!M]7".W;=Ngb9/L95kGDtX6 :iV(" PyX*{p'X.^DvD:v]0r<9gtmB}VxH1jxxR7 /h)4<2hsoEq$33sDN@~ShGIx`OHAaPOP ~ inB LVh0gCd{zruW@6e+B|=e(u|$V3'i5Dy.4B.p,v`w2_X FHov~ 'TM'$-tEZbYG&# /Nj6H^hYWwT@;+]+30J("L8JZ[WTf l.W5k?9.@sBzUPdf|.L%~p;VBj8|=M6 AIa"-j'7v9Xz!lW5W9^~(@mh@cplp.<3/q#tS|vPt. 6~0^}WWD#^EcFy99s5q g 36+EL'? 1]Fkk{Y1*43#pn9Uy|:Y(SIX69# 2I+6i4v\5MV 3\pg=gcc \T I_`BT5 5#>CN|!_j<;C2$b ef' 7s &4"n]xRiVgD-?)-Y:LPR3X+udBi3owt}7X4@ `B:b76Uv<2z*"@yl?9 a\/ I} th}DD"B9a;RbWM"oEK0k]n["mYO o+0}/Z9Y)'IW,m.G`+2 ,Dn`?IVz> {% e?@x&FFb{Upm+g; saIm0s<A&(s X{sJSJLgj[6u=M_M|x^(GV!4 ^U7b-0wF[`vd^I < |qxT4;HkmxLjVZpV *NjH%/gPfi3`_+l0~\Fh?CliS6K)GK~-mlP|)81resource_alloc)((dpy))) #ifndef _XSTRUCT_ /* * per character font metric information. */ typedef struct { short lbearing; /* origin to left edge of raster */ short rbearing; /* origin to right edge of raster */ short width; /* advance to next char's origin */ short ascent; /* baseline to top edge of raster */ short descent; /* baseline to bottom edge of raster */ unsigned short attributes; /* per char flags (not predefined) */ } XCharStruct; /* * To allow arbitrary information with fonts, there are additional properties * returned. */ typedef struct { Atom name; unsigned long card32; } XFontProp; typedef struct { XExtData *ext_data; /* hook for extension to hang data */ Font fid; /* Font id for this font */ unsigned direction; /* hint about direction the font is painted */ unsigned min_char_or_byte2;/* first character */ unsigned max_char_or_byte2;/* last character */ unsigned min_byte1; /* first row that exists */ unsigned max_byte1; /* last row that exists */ Bool all_chars_exist;/* flag if all characters have non-zero size*/ unsigned default_char; /* char to print for undefined character */ int n_properties; /* how many properties there are */ XFontProp *properties; /* pointer to array of additional properties*/ XCharStruct min_bounds; /* minimum bounds over all existing char*/ XCharStruct max_bounds; /* maximum bounds over all existing char*/ XCharStruct *per_char; /* first_char to last_char information */ int ascent; /* log. extent above baseline for spacing */ int descent; /* log. descent below baseline for spacing */ } XFontStruct; /* * PolyText routines take these as arguments. */ typedef struct { char *chars; /* pointer to string */ int nchars; /* number of characters */ int delta; /* delta between strings */ Font font; /* font to print it in, None don't change */ } XTextItem; typedef struct { /* normal 16 bit characters are two bytes */ unsigned char byte1; unsigned char byte2; } XChar2b; typedef struct { XChar2b *chars; /* two byte characters */ int nchars; /* number of characters */ int delta; /* delta between strings */ Font font; /* font to print it in, None don't change */ } XTextItem16; typedef union { Display *display; GC gc; Visual *visual; Screen *screen; ScreenFormat *pixmap_format; XFontStruct *font; } XEDataObject; extern XFontStruct *XLoadQueryFont( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */ #endif ); extern XFontStruct *XQueryFont( #if NeedFunctionPrototypes Display* /* display */, XID /* font_ID */ #endif ); extern XTimeCoord *XGetMotionEvents( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Time /* start */, Time /* stop */, int* /* nevents_return */ #endif ); extern XModifierKeymap *XDeleteModifierc% VMS.BCK[V9.BIN]RT.H;1LB;1=mapEntry( #if NeedFunctionPrototypes XModifierKeymap* /* modmap */, #if NeedWidePrototypes unsigned int /* keycode_entry */, #else KeyCode /* keycode_entry */, #endif int /* modifier */ #endif ); extern XModifierKeymap *XGetModifierMapping( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XModifierKeymap *XInsertModifiermapEntry( #if NeedFunctionPrototypes XModifierKeymap* /* modmap */, #if NeedWidePrototypes unsigned int /* keycode_entry */, #else KeyCode /* keycode_entry */, #endif int /* modifier */ #endif ); extern XModifierKeymap *XNewModifiermap( #if NeedFunctionPrototypes int /* max_keys_per_mod */ #endif ); extern XImage *XCreateImage( #if NeedFunctionPrototypes Display* /* display */, Visual* /* visual */, unsigned int /* depth */, int /* format */, int /* offset */, char* /* data */, unsigned int /* width */, unsigned int /* height */, int /* bitmap_pad */, int /* bytes_per_line */ #endif ); extern XImage *XGetImage( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, unsigned long /* plane_mask */, int /* format */ #endif ); extern XImage *XGetSubImage( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, unsigned long /* plane_mask */, int /* format */, XImage* /* dest_image */, int /* dest_x */, int /* dest_y */ #endif ); #endif /* _XSTRUCT_ */ /* * X function declarations. */ extern Display *XOpenDisplay( #if NeedFunctionPrototypes const char* /* display_name */ #endif ); extern void XrmInitialize( #if NeedFunctionPrototypes void #endif ); extern char *XFetchBytes( #if NeedFunctionPrototypes Display* /* display */, int* /* nbytes_return */ #endif ); extern char *XFetchBuffer( #if NeedFunctionPrototypes Display* /* display */, int* /* nbytes_return */, int /* buffer */ #endif ); extern char *XGetAtomName( #if NeedFunctionPrototypes Display* /* display */, Atom /* atom */ #endif ); extern char *XGetDefault( #if NeedFunctionPrototypes Display* /* display */, const char* /* program */, const char* /* option */ #endif ); extern char *XDisplayName( #if NeedFunctionPrototypes const char* /* string */ #endif ); extern char *XKeysymToString( #if NeedFunctionPrototypes KeySym /* keysym */ #endif ); extern int (*XSynchronize( #if NeedFunctionPrototypes Display* /* display */, Bool /* onoff */ #endif ))(); extern int (*XSetAfterFunction( #if NeedFunctionPrototypes Display* /* display */, int (*) ( Display* /* display */ ) /* procedure */ #endif ))(); extern Atom XInternAtom( #if NeedFunctionPrototypes Display* /* display */, const char* /* atom_name */, Bool /* only_if_exists */ #endif ); extern Colormap XCopyColormapAndFree( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */ #endif ); extern Colormap XCreateColormap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Visual* /* visual */, int /* alloc */ #endif ); extern Cursor XCreatePixmapCursor( #if NeedFunctionPrototypes Display* /* display */, Pixmap /* source */, Pixmap /* mask */, XColor* /* foreground_color */, XColor* /* background_color */, unsigned int /* x */, unsigned int /* y */ #endif ); extern Cursor XCreateGlyphCursor( #if NeedFunctionPrototypes Display* /* display */, Font /* source_font */, Font /* mask_font */, unsigned int /* source_char */, unsigned int /* mask_char */, XColor* /* foreground_color */, XColor* /* background_color */ #endif ); extern Cursor XCreateFontCursor( #if NeedFunctionPrototypes Display* /* display */, unsigned int /* shape */ #endif ); extern Font XLoadFont( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */ #endif ); extern GC XCreateGC( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, unsigned long /* valuemask */, XGCValues* /* values */ #endif ); extern GContext XGContextFromGC( #if NeedFunctionPrototypes GC /* gc */ #endif ); extern Pixmap XCreatePixmap( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, unsigned int /* width */, unsigned int /* height */, unsigned int /* depth */ #endif ); extern Pixmap XCreateBitmapFromData( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, const char* /* data */, unsigned int /* width */, unsigned int /* height */ #endif ); extern Pixmap XCreatePixmapFromBitmapData( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, char* /* data */, unsigned int /* width */, unsigned int /* height */, unsigned long /* fg */, unsigned long /* bg */, unsigned int /* depth */ #endif ); extern Window XCreateSimpleWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* parent */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, unsigned int /* border_width */, unsigned long /* border */, unsigned long /* background */ #endif ); extern Window XGetSelectionOwner( #if NeedFunctionPrototypes Display* /* display */, Atom /* selection */ #endif ); extern Window XGetIconWindow(); extern Window XCreateWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* parent */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, unsigned int /* border_width */, int /* depth */, unsigned int /* class */, Visual* /* visual */, unsigned long /* valuemask */, XSetWindowAttributes* /* attributes */ #endif ); extern Colormap *XListInstalledColormaps( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int* /* num_return */ #endif ); extern char **XListFonts( #if NeedFunctionPrototypes Display* /* display */, const char* /* pattern */, int /* maxnames */, int* /* actual_count_return */ #endif ); extern char **XListFontsWithInfo( #if NeedFunctionPrototypes Display* /* display */, const char* /* pattern */, int /* maxnames */, int* /* count_return */, XFontStruct** /* info_return */ #endif ); extern char **XGetFontPath( #if NeedFunctionPrototypes Display* /* display */, int* /* npaths_return */ #endif ); extern char **XListExtensions( #if NeedFunctionPrototypes Display* /* display */, int* /* nextensions_return */ #endif ); extern Atom *XListProperties( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int* /* num_prop_return */ #endif ); extern XHostAddress *XListHosts( #if NeedFunctionPrototypes Display* /* display */, int* /* nhosts_return */, Bool* /* state_return */ #endif ); extern KeySym XKeycodeToKeysym( #if NeedFunctionPrototypes Display* /* display */, #if NeedWidePrototypes unsigned int /* keycode */, #else KeyCode /* keycode */, #endif int /* index */ #endif ); extern KeySym XLookupKeysym( #if NeedFunctionPrototypes XKeyEvent* /* key_event */, int /* index */ #endif ); extern KeySym *XGetKeyboardMapping( #if NeedFunctionPrototypes Display* /* display */, #if ^` VMS.BCK[V9.BIN]RT.H;1LB;1=TYNeedWidePrototypes unsigned int /* first_keycode */, #else KeyCode /* first_keycode */, #endif int /* keycode_count */, int* /* keysyms_per_keycode_return */ #endif ); extern KeySym XStringToKeysym( #if NeedFunctionPrototypes const char* /* string */ #endif ); extern long XMaxRequestSize( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern char *XResourceManagerString( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern unsigned long XDisplayMotionBufferSize( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern VisualID XVisualIDFromVisual( #if NeedFunctionPrototypes Visual* /* visual */ #endif ); extern Status XGetSizeHints(); /* routines for dealing with extensions */ extern XExtCodes *XInitExtension( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */ #endif ); extern XExtCodes *XAddExtension( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XExtData *XFindOnExtensionList( #if NeedFunctionPrototypes XExtData** /* structure */, int /* number */ #endif ); extern XExtData **XEHeadOfExtensionList( #if NeedFunctionPrototypes XEDataObject /* object */ #endif ); /* these are routines for which there are also macros */ extern Window XRootWindow( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern Window XDefaultRootWindow( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Window XRootWindowOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern Visual *XDefaultVisual( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern Visual *XDefaultVisualOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern GC XDefaultGC( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern GC XDefaultGCOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern unsigned long XBlackPixel( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern unsigned long XWhitePixel( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern unsigned long XAllPlanes( #if NeedFunctionPrototypes void #endif ); extern unsigned long XBlackPixelOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern unsigned long XWhitePixelOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern unsigned long XNextRequest( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern unsigned long XLastKnownRequestProcessed( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern char *XServerVendor( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern char *XDisplayString( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Colormap XDefaultColormap( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern Colormap XDefaultColormapOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern Display *XDisplayOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern Screen *XScreenOfDisplay( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern Screen *XDefaultScreenOfDisplay( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern long XEventMaskOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XScreenNumberOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ #if NeedFunctionPrototypes Display* /* display */, XErrorEvent* /* error_event */ #endif ); extern XErrorHandler XSetErrorHandler ( #if NeedFunctionPrototypes XErrorHandler /* handler */ #endif ); typedef int (*XIOErrorHandler) ( /* WARNING, this type not in Xlib spec */ #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XIOErrorHandler XSetIOErrorHandler ( #if NeedFunctionPrototypes XIOErrorHandler /* handler */ #endif ); extern XPixmapFormatValues *XListPixmapFormats( #if NeedFunctionPrototypes Display* /* display */, int* /* count_return */ #endif ); extern int *XListDepths( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */, int* /* count_return */ #endif ); /* ICCCM routines for things that don't require special include files; */ /* other declarations are given in Xutil.h */ extern Status XReconfigureWMWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* screen_number */, unsigned int /* mask */, XWindowChanges* /* changes */ #endif ); extern Status XGetWMProtocols( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom** /* protocols_return */, int* /* count_return */ #endif ); extern Status XSetWMProtocols( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom* /* protocols */, int /* count */ #endif ); extern Status XIconifyWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* screen_number */ #endif ); extern Status XWithdrawWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* screen_number */ #endif ); extern Status XGetCommand( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, char*** /* argv_return */, int* /* argc_return */ #endif ); extern Status XGetWMColormapWindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window** /* windows_return */, int* /* count_return */ #endif ); extern Status XSetWMColormapWindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window* /* colormap_windows */, int /* count */ #endif ); extern void XFreeStringList( #if NeedFunctionPrototypes char** /* list */ #endif ); extern void XSetTransientForHint( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window /* prop_window */ #endif ); /* The following are given in alphabetical order */ extern XActivateScreenSaver( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XAddHost( #if NeedFunctionPrototypes Display* /* display */, XHostAddress* /* host */ #endif ); extern XAddHosts( #if NeedFunctionPrototypes Display* /* display */, XHostAddress* /* hosts */, int /* num_hosts */ #endif ); extern XAddToExtensionList( #if NeedFunctionPrototypes struct _XExtData** /* structure */, XExtData* /* ext_data */ #endif ); extern XAddToSaveSet( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern Status XAllocColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* screen_in_out */ #endif ); extern Status XAllocColorCells( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, Bool /* contig */, unsigned long* /* plane_masks_return */, unsigned int /* nplanes */, unsigned long* /* pixels_return */, unsigned int /* npixels */ #endif ); extern Status XAllocColorPlanes( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, Bool /* contig */, unsig1(x VMS.BCK[V9.BIN]RT.H;1LB;1= ned long* /* pixels_return */, int /* ncolors */, int /* nreds */, int /* ngreens */, int /* nblues */, unsigned long* /* rmask_return */, unsigned long* /* gmask_return */, unsigned long* /* bmask_return */ #endif ); extern Status XAllocNamedColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, const char* /* color_name */, XColor* /* screen_def_return */, XColor* /* exact_def_return */ #endif ); extern XAllowEvents( #if NeedFunctionPrototypes Display* /* display */, int /* event_mode */, Time /* time */ #endif ); extern XAutoRepeatOff( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XAutoRepeatOn( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XBell( #if NeedFunctionPrototypes Display* /* display */, int /* percent */ #endif ); extern int XBitmapBitOrder( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XBitmapPad( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XBitmapUnit( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XCellsOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XChangeActivePointerGrab( #if NeedFunctionPrototypes Display* /* display */, unsigned int /* event_mask */, Cursor /* cursor */, Time /* time */ #endif ); extern XChangeGC( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* valuemask */, XGCValues* /* values */ #endif ); extern XChangeKeyboardControl( #if NeedFunctionPrototypes Display* /* display */, unsigned long /* value_mask */, XKeyboardControl* /* values */ #endif ); extern XChangeKeyboardMapping( #if NeedFunctionPrototypes Display* /* display */, int /* first_keycode */, int /* keysyms_per_keycode */, KeySym* /* keysyms */, int /* num_codes */ #endif ); extern XChangePointerControl( #if NeedFunctionPrototypes Display* /* display */, Bool /* do_accel */, Bool /* do_threshold */, int /* accel_numerator */, int /* accel_denominator */, int /* threshold */ #endif ); extern XChangeProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom /* property */, Atom /* type */, int /* format */, int /* mode */, const unsigned char* /* data */, int /* nelements */ #endif ); extern XChangeSaveSet( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* change_mode */ #endif ); extern XChangeWindowAttributes( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned long /* valuemask */, XSetWindowAttributes* /* attributes */ #endif ); extern Bool XCheckIfEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */, Bool (*) ( Display* /* display */, XEvent* /* event */, char* /* arg */ ) /* predicate */, char* /* arg */ #endif ); extern Bool XCheckMaskEvent( #if NeedFunctionPrototypes Display* /* display */, long /* event_mask */, XEvent* /* event_return */ #endif ); extern Bool XCheckTypedEvent( #if NeedFunctionPrototypes Display* /* display */, int /* event_type */, XEvent* /* event_return */ #endif ); extern Bool XCheckTypedWindowEvent( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* event_type */, XEvent* /* event_return */ #endif ); extern Bool XCheckWindowEvent( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, long /* event_mask */, XEvent* /* event_return */ #endif ); extern XCirculateSubwindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* direction */ #endif ); extern XCirculateSubwindowsDown( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XCirculateSubwindowsUp( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XClearArea( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, Bool /* exposures */ #endif ); extern XClearWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XCloseDisplay( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XConfigureWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned int /* value_mask */, XWindowChanges* /* values */ #endif ); extern int XConnectionNumber( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XConvertSelection( #if NeedFunctionPrototypes Display* /* display */, Atom /* selection */, Atom /* target */, Atom /* property */, Window /* requestor */, Time /* time */ #endif ); extern XCopyArea( #if NeedFunctionPrototypes Display* /* display */, Drawable /* src */, Drawable /* dest */, GC /* gc */, int /* src_x */, int /* src_y */, unsigned int /* width */, unsigned int /* height */, int /* dest_x */, int /* dest_y */ #endif ); extern XCopyGC( #if NeedFunctionPrototypes Display* /* display */, GC /* src */, unsigned long /* valuemask */, GC /* dest */ #endif ); extern XCopyPlane( #if NeedFunctionPrototypes Display* /* display */, Drawable /* src */, Drawable /* dest */, GC /* gc */, int /* src_x */, int /* src_y */, unsigned int /* width */, unsigned int /* height */, int /* dest_x */, int /* dest_y */, unsigned long /* plane */ #endif ); extern int XDefaultDepth( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDefaultDepthOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XDefaultScreen( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XDefineCursor( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Cursor /* cursor */ #endif ); extern XDeleteProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom /* property */ #endif ); extern XDestroyWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XDestroySubwindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern int XDoesBackingStore( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern Bool XDoesSaveUnders( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XDisableAccessControl( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XDisplayCells( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDisplayHeight( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDisplayHeightMM( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern XDisplayKeycodes( #if NeedFunctionPrototypes Display* /* display */, int* /* min_keycodes_return */, int* /* max_keycodes_return */ #endif ); extern int XDisplayPlanes( #if NeedFunctionPrototypes Display* /* display */, inrA VMS.BCK[V9.BIN]RT.H;1EXE;1=t /* screen_number */ #endif ); extern int XDisplayWidth( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern int XDisplayWidthMM( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */ #endif ); extern XDrawArc( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, int /* angle1 */, int /* angle2 */ #endif ); extern XDrawArcs( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XArc* /* arcs */, int /* narcs */ #endif ); extern XDrawImageString( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, const char* /* string */, int /* length */ #endif ); extern XDrawImageString16( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, const XChar2b* /* string */, int /* length */ #endif ); extern XDrawLine( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x1 */, int /* x2 */, int /* y1 */, int /* y2 */ #endif ); extern XDrawLines( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XPoint* /* points */, int /* npoints */, int /* mode */ #endif ); extern XDrawPoint( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */ #endif ); extern XDrawPoints( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XPoint* /* points */, int /* npoints */, int /* mode */ #endif ); extern XDrawRectangle( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern XDrawRectangles( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XRectangle* /* rectangles */, int /* nrectangles */ #endif ); extern XDrawSegments( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XSegment* /* segments */, int /* nsegments */ #endif ); extern XDrawString( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, const char* /* string */, int /* length */ #endif ); extern XDrawString16( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, const XChar2b* /* string */, int /* length */ #endif ); extern XDrawText( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, XTextItem* /* items */, int /* nitems */ #endif ); extern XDrawText16( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, XTextItem16* /* items */, int /* nitems */ #endif ); extern XEnableAccessControl( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XEventsQueued( #if NeedFunctionPrototypes Display* /* display */, int /* mode */ #endif ); extern Status XFetchName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, char** /* window_name_return */ #endif ); extern XFillArc( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */, int /* angle1 */, int /* angle2 */ #endif ); extern XFillArcs( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XArc* /* arcs */, int /* narcs */ #endif ); extern XFillPolygon( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XPoint* /* points */, int /* npoints */, int /* shape */, int /* mode */ #endif ); extern XFillRectangle( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern XFillRectangles( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XRectangle* /* rectangles */, int /* nrectangles */ #endif ); extern XFlush( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XForceScreenSaver( #if NeedFunctionPrototypes Display* /* display */, int /* mode */ #endif ); extern XFree( #if NeedFunctionPrototypes char* /* data */ #endif ); extern XFreeColormap( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */ #endif ); extern XFreeColors( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, unsigned long* /* pixels */, int /* npixels */, unsigned long /* planes */ #endif ); extern XFreeCursor( #if NeedFunctionPrototypes Display* /* display */, Cursor /* cursor */ #endif ); extern XFreeExtensionList( #if NeedFunctionPrototypes char** /* list */ #endif ); extern XFreeFont( #if NeedFunctionPrototypes Display* /* display */, XFontStruct* /* font_struct */ #endif ); extern XFreeFontInfo( #if NeedFunctionPrototypes char** /* names */, XFontStruct* /* free_info */, int /* actual_count */ #endif ); extern XFreeFontNames( #if NeedFunctionPrototypes char** /* list */ #endif ); extern XFreeFontPath( #if NeedFunctionPrototypes char** /* list */ #endif ); extern XFreeGC( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */ #endif ); extern XFreeModifiermap( #if NeedFunctionPrototypes XModifierKeymap* /* modmap */ #endif ); extern XFreePixmap( #if NeedFunctionPrototypes Display* /* display */, Pixmap /* pixmap */ #endif ); extern int XGeometry( #if NeedFunctionPrototypes Display* /* display */, int /* screen */, const char* /* position */, const char* /* default_position */, unsigned int /* bwidth */, unsigned int /* fwidth */, unsigned int /* fheight */, int /* xadder */, int /* yadder */, int* /* x_return */, int* /* y_return */, int* /* width_return */, int* /* height_return */ #endif ); extern XGetErrorDatabaseText( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */, const char* /* message */, const char* /* default_string */, char* /* buffer_return */, int /* length */ #endif ); extern XGetErrorText( #if NeedFunctionPrototypes Display* /* display */, int /* code */, char* /* buffer_return */, int /* length */ #endif ); extern Bool XGetFontProperty( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, Atom /* atom */, unsigned long* /* value_return */ #endif ); extern Status XGetGCValues( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* valuemask */, XGCValues* /* values_return */ #endif ); extern Status XGetGe:0d VMS.BCK[V9.BIN]RT.H;1EXE;1==(ometry( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, Window* /* root_return */, int* /* x_return */, int* /* y_return */, unsigned int* /* width_return */, unsigned int* /* height_return */, unsigned int* /* border_width_return */, unsigned int* /* depth_return */ #endif ); extern Status XGetIconName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, char** /* icon_name_return */ #endif ); extern XGetInputFocus( #if NeedFunctionPrototypes Display* /* display */, Window* /* focus_return */, int* /* revert_to_return */ #endif ); extern XGetKeyboardControl( #if NeedFunctionPrototypes Display* /* display */, XKeyboardState* /* values_return */ #endif ); extern XGetPointerControl( #if NeedFunctionPrototypes Display* /* display */, int* /* accel_numerator_return */, int* /* accel_denominator_return */, int* /* threshold_return */ #endif ); extern int XGetPointerMapping( #if NeedFunctionPrototypes Display* /* display */, unsigned char* /* map_return */, int /* nmap */ #endif ); extern XGetScreenSaver( #if NeedFunctionPrototypes Display* /* display */, int* /* timeout_return */, int* /* interval_return */, int* /* prefer_blanking_return */, int* /* allow_exposures_return */ #endif ); extern Status XGetTransientForHint( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window* /* prop_window_return */ #endif ); extern int XGetWindowProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom /* property */, long /* long_offset */, long /* long_length */, Bool /* delete */, Atom /* req_type */, Atom* /* actual_type_return */, int* /* actual_format_return */, unsigned long* /* nitems_return */, unsigned long* /* bytes_after_return */, unsigned char** /* prop_return */ #endif ); extern Status XGetWindowAttributes( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XWindowAttributes* /* window_attributes_return */ #endif ); extern XGrabButton( #if NeedFunctionPrototypes Display* /* display */, unsigned int /* button */, unsigned int /* modifiers */, Window /* grab_window */, Bool /* owner_events */, unsigned int /* event_mask */, int /* pointer_mode */, int /* keyboard_mode */, Window /* confine_to */, Cursor /* cursor */ #endif ); extern XGrabKey( #if NeedFunctionPrototypes Display* /* display */, int /* keycode */, unsigned int /* modifiers */, Window /* grab_window */, Bool /* owner_events */, int /* pointer_mode */, int /* keyboard_mode */ #endif ); extern int XGrabKeyboard( #if NeedFunctionPrototypes Display* /* display */, Window /* grab_window */, Bool /* owner_events */, int /* pointer_mode */, int /* keyboard_mode */, Time /* time */ #endif ); extern int XGrabPointer( #if NeedFunctionPrototypes Display* /* display */, Window /* grab_window */, Bool /* owner_events */, unsigned int /* event_mask */, int /* pointer_mode */, int /* keyboard_mode */, Window /* confine_to */, Cursor /* cursor */, Time /* time */ #endif ); extern XGrabServer( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XHeightMMOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XHeightOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XIfEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */, Bool (*) ( Display* /* display */, XEvent* /* event */, char* /* arg */ ) /* predicate */, char* /* arg */ #endif ); extern int XImageByteOrder( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XInstallColormap( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */ #endif ); extern KeyCode XKeysymToKeycode( #if NeedFunctionPrototypes Display* /* display */, KeySym /* keysym */ #endif ); extern XKillClient( #if NeedFunctionPrototypes Display* /* display */, XID /* resource */ #endif ); extern unsigned long XLastKnownRequestProcessed( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Status XLookupColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, const char* /* color_name */, XColor* /* exact_def_return */, XColor* /* screen_def_return */ #endif ); extern XLowerWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XMapRaised( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XMapSubwindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XMapWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XMaskEvent( #if NeedFunctionPrototypes Display* /* display */, long /* event_mask */, XEvent* /* event_return */ #endif ); extern int XMaxCmapsOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XMinCmapsOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XMoveResizeWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern XMoveWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, int /* x */, int /* y */ #endif ); extern XNextEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */ #endif ); extern XNoOp( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern Status XParseColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, const char* /* spec */, XColor* /* exact_def_return */ #endif ); extern int XParseGeometry( #if NeedFunctionPrototypes const char* /* parsestring */, int* /* x_return */, int* /* y_return */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern XPeekEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */ #endif ); extern XPeekIfEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event_return */, Bool (*) ( Display* /* display */, XEvent* /* event */, char* /* arg */ ) /* predicate */, char* /* arg */ #endif ); extern int XPending( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XPlanesOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XProtocolRevision( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern int XProtocolVersion( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XPutBackEvent( #if NeedFunctionPrototypes Display* /* display */, XEvent* /* event */ #endif ); extern XPutImage( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, GC /* gc */, XImage* /* image */, int /* src_x */, int /* src_y */, int /* dest_x */, int /* dest_y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern int XQLength( ,/f VMS.BCK[V9.BIN]RT.H;1EXE;1=7#if NeedFunctionPrototypes Display* /* display */ #endif ); extern Status XQueryBestCursor( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, unsigned int /* width */, unsigned int /* height */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern Status XQueryBestSize( #if NeedFunctionPrototypes Display* /* display */, int /* class */, Drawable /* which_screen */, unsigned int /* width */, unsigned int /* height */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern Status XQueryBestStipple( #if NeedFunctionPrototypes Display* /* display */, Drawable /* which_screen */, unsigned int /* width */, unsigned int /* height */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern Status XQueryBestTile( #if NeedFunctionPrototypes Display* /* display */, Drawable /* which_screen */, unsigned int /* width */, unsigned int /* height */, unsigned int* /* width_return */, unsigned int* /* height_return */ #endif ); extern XQueryColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* def_in_out */ #endif ); extern XQueryColors( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* defs_in_out */, int /* ncolors */ #endif ); extern Bool XQueryExtension( #if NeedFunctionPrototypes Display* /* display */, const char* /* name */, int* /* major_opcode_return */, int* /* first_event_return */, int* /* first_error_return */ #endif ); extern XQueryKeymap( #if NeedFunctionPrototypes Display* /* display */, char [32] /* keys_return */ #endif ); extern Bool XQueryPointer( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window* /* root_return */, Window* /* child_return */, int* /* root_x_return */, int* /* root_y_return */, int* /* win_x_return */, int* /* win_y_return */, unsigned int* /* mask_return */ #endif ); extern XQueryTextExtents( #if NeedFunctionPrototypes Display* /* display */, XID /* font_ID */, const char* /* string */, int /* nchars */, int* /* direction_return */, int* /* font_ascent_return */, int* /* font_descent_return */, XCharStruct* /* overall_return */ #endif ); extern XQueryTextExtents16( #if NeedFunctionPrototypes Display* /* display */, XID /* font_ID */, const XChar2b* /* string */, int /* nchars */, int* /* direction_return */, int* /* font_ascent_return */, int* /* font_descent_return */, XCharStruct* /* overall_return */ #endif ); extern Status XQueryTree( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window* /* root_return */, Window* /* parent_return */, Window** /* children_return */, unsigned int* /* nchildren_return */ #endif ); extern XRaiseWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern int XReadBitmapFile( #if NeedFunctionPrototypes Display* /* display */, Drawable /* d */, const char* /* filename */, unsigned int* /* width_return */, unsigned int* /* height_return */, Pixmap* /* bitmap_return */, int* /* x_hot_return */, int* /* y_hot_return */ #endif ); extern XRebindKeysym( #if NeedFunctionPrototypes Display* /* display */, KeySym /* keysym */, KeySym* /* list */, int /* mod_count */, const unsigned char* /* string */, int /* bytes_string */ #endif ); extern XRecolorCursor( #if NeedFunctionPrototypes Display* /* display */, Cursor /* cursor */, XColor* /* foreground_color */, XColor* /* background_color */ #endif ); extern XRefreshKeyboardMapping( #if NeedFunctionPrototypes XMappingEvent* /* event_map */ #endif ); extern XRemoveFromSaveSet( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XRemoveHost( #if NeedFunctionPrototypes Display* /* display */, XHostAddress* /* host */ #endif ); extern XRemoveHosts( #if NeedFunctionPrototypes Display* /* display */, XHostAddress* /* hosts */, int /* num_hosts */ #endif ); extern XReparentWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Window /* parent */, int /* x */, int /* y */ #endif ); extern XResetScreenSaver( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XResizeWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned int /* width */, unsigned int /* height */ #endif ); extern XRestackWindows( #if NeedFunctionPrototypes Display* /* display */, Window* /* windows */, int /* nwindows */ #endif ); extern XRotateBuffers( #if NeedFunctionPrototypes Display* /* display */, int /* rotate */ #endif ); extern XRotateWindowProperties( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Atom* /* properties */, int /* num_prop */, int /* npositions */ #endif ); extern int XScreenCount( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XSelectInput( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, long /* event_mask */ #endif ); extern Status XSendEvent( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Bool /* propagate */, long /* event_mask */, XEvent* /* event_send */ #endif ); extern XSetAccessControl( #if NeedFunctionPrototypes Display* /* display */, int /* mode */ #endif ); extern XSetArcMode( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* arc_mode */ #endif ); extern XSetBackground( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* background */ #endif ); extern XSetClipMask( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Pixmap /* pixmap */ #endif ); extern XSetClipOrigin( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* clip_x_origin */, int /* clip_y_origin */ #endif ); extern XSetClipRectangles( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* clip_x_origin */, int /* clip_y_origin */, XRectangle* /* rectangles */, int /* n */, int /* ordering */ #endif ); extern XSetCloseDownMode( #if NeedFunctionPrototypes Display* /* display */, int /* close_mode */ #endif ); extern XSetCommand( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, char** /* argv */, int /* argc */ #endif ); extern XSetDashes( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* dash_offset */, const char* /* dash_list */, int /* n */ #endif ); extern XSetFillRule( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* fill_rule */ #endif ); extern XSetFillStyle( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* fill_style */ #endif ); extern XSetFont( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Font /* font */ #endif ); extern XSetFontPath( #if NeedFunctionPrototypes Display* /* display */, char** /* directories */, int /* ndirs */ #endi.h VMS.BCK[V9.BIN]RT.H;1EXE;1=gFf ); extern XSetForeground( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* foreground */ #endif ); extern XSetFunction( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* function */ #endif ); extern XSetGraphicsExposures( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Bool /* graphics_exposures */ #endif ); extern XSetIconName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, const char* /* icon_name */ #endif ); extern XSetInputFocus( #if NeedFunctionPrototypes Display* /* display */, Window /* focus */, int /* revert_to */, Time /* time */ #endif ); extern XSetLineAttributes( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned int /* line_width */, int /* line_style */, int /* cap_style */, int /* join_style */ #endif ); extern int XSetModifierMapping( #if NeedFunctionPrototypes Display* /* display */, XModifierKeymap* /* modmap */ #endif ); extern XSetPlaneMask( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* plane_mask */ #endif ); extern int XSetPointerMapping( #if NeedFunctionPrototypes Display* /* display */, const unsigned char* /* map */, int /* nmap */ #endif ); extern XSetScreenSaver( #if NeedFunctionPrototypes Display* /* display */, int /* timeout */, int /* interval */, int /* prefer_blanking */, int /* allow_exposures */ #endif ); extern XSetSelectionOwner( #if NeedFunctionPrototypes Display* /* display */, Atom /* selection */, Window /* owner */, Time /* time */ #endif ); extern XSetState( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, unsigned long /* foreground */, unsigned long /* background */, int /* function */, unsigned long /* plane_mask */ #endif ); extern XSetStipple( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Pixmap /* stipple */ #endif ); extern XSetSubwindowMode( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* subwindow_mode */ #endif ); extern XSetTSOrigin( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, int /* ts_x_origin */, int /* ts_y_origin */ #endif ); extern XSetTile( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Pixmap /* tile */ #endif ); extern XSetWindowBackground( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned long /* background_pixel */ #endif ); extern XSetWindowBackgroundPixmap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Pixmap /* background_pixmap */ #endif ); extern XSetWindowBorder( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned long /* border_pixel */ #endif ); extern XSetWindowBorderPixmap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Pixmap /* border_pixmap */ #endif ); extern XSetWindowBorderWidth( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, unsigned int /* width */ #endif ); extern XSetWindowColormap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, Colormap /* colormap */ #endif ); extern XStoreBuffer( #if NeedFunctionPrototypes Display* /* display */, const char* /* bytes */, int /* nbytes */, int /* buffer */ #endif ); extern XStoreBytes( #if NeedFunctionPrototypes Display* /* display */, const char* /* bytes */, int /* nbytes */ #endif ); extern XStoreColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* color */ #endif ); extern XStoreColors( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, XColor* /* color */, int /* ncolors */ #endif ); extern XStoreName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, const char* /* window_name */ #endif ); extern XStoreNamedColor( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */, const char* /* color */, unsigned long /* pixel */, int /* flags */ #endif ); extern XSync( #if NeedFunctionPrototypes Display* /* display */, Bool /* discard */ #endif ); extern XTextExtents( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, const char* /* string */, int /* nchars */, int* /* direction_return */, int* /* font_ascent_return */, int* /* font_descent_return */, XCharStruct* /* overall_return */ #endif ); extern XTextExtents16( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, const XChar2b* /* string */, int /* nchars */, int* /* direction_return */, int* /* font_ascent_return */, int* /* font_descent_return */, XCharStruct* /* overall_return */ #endif ); extern int XTextWidth( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, const char* /* string */, int /* count */ #endif ); extern int XTextWidth16( #if NeedFunctionPrototypes XFontStruct* /* font_struct */, const XChar2b* /* string */, int /* count */ #endif ); extern Bool XTranslateCoordinates( #if NeedFunctionPrototypes Display* /* display */, Window /* src_w */, Window /* dest_w */, int /* src_x */, int /* src_y */, int* /* dest_x_return */, int* /* dest_y_return */, Window* /* child_return */ #endif ); extern XUndefineCursor( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XUngrabButton( #if NeedFunctionPrototypes Display* /* display */, unsigned int /* button */, unsigned int /* modifiers */, Window /* grab_window */ #endif ); extern XUngrabKey( #if NeedFunctionPrototypes Display* /* display */, int /* keycode */, unsigned int /* modifiers */, Window /* grab_window */ #endif ); extern XUngrabKeyboard( #if NeedFunctionPrototypes Display* /* display */, Time /* time */ #endif ); extern XUngrabPointer( #if NeedFunctionPrototypes Display* /* display */, Time /* time */ #endif ); extern XUngrabServer( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XUninstallColormap( #if NeedFunctionPrototypes Display* /* display */, Colormap /* colormap */ #endif ); extern XUnloadFont( #if NeedFunctionPrototypes Display* /* display */, Font /* font */ #endif ); extern XUnmapSubwindows( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern XUnmapWindow( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern int XVendorRelease( #if NeedFunctionPrototypes Display* /* display */ #endif ); extern XWarpPointer( #if NeedFunctionPrototypes Display* /* display */, Window /* src_w */, Window /* dest_w */, int /* src_x */, int /* src_y */, unsigned int /* src_width */, unsigned int /* src_height */, int /* dest_x */, int /* dest_y */ #endif ); extern int XWidthMMOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern int XWidthOfScreen( #if NeedFunctionPrototypes Screen* /* screen */ #endif ); extern XWindowEvent( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, long /* eveU, VMS.BCK[V9.BIN]RT.H;1EXE;1=Unt_mask */, XEvent* /* event_return */ #endif ); extern int XWriteBitmapFile( #if NeedFunctionPrototypes Display* /* display */, const char* /* filename */, Pixmap /* bitmap */, unsigned int /* width */, unsigned int /* height */, int /* x_hot */, int /* y_hot */ #endif ); /* * The following functions have FunctionPrototypes in the XUTIL.H include * file. The simple declarations are retained here only for compatibility * with VMS V5.3 and V5.4. */ #if !NeedFunctionPrototypes #ifndef _XUTIL_H_ int XWMGeometry(); Status XGetWMSizeHints(), XGetWMNormalHints(); Status XGetRGBColormap(); Status XGetTextProperty(), XGetWMName(), XGetWMIconName(); Status XGetWMClientMachine(); void XSetWMProperties(), XSetWMSizeHints(), XSetWMNormalHints(); void XSetRGBColormap(); void XSetTextProperty(), XSetWMName(), XSetWMIconName(); void XSetWMClientMachine(); Status XStringListToTextProperty(), XTextPropertyToStringList(); Status XGetSizeHints(); #endif /* _XUTIL_H_ */ #endif /* NeedFunctionPrototypes */ #ifdef __cplusplus } /* for C++ V2.0 */ #endif #endif /* _XLIB_H_ */ /**************************************** end decw$include:Xlib.h */ /**************************************** from decw$include:Intrinsic.h: */ /* * $XConsortium: Intrinsic.h,v 1.139 90/08/22 14:21:01 swick Exp $ * $oHeader: Intrinsic.h,v 1.10 88/09/01 10:33:34 asente Exp $ */ /*********************************************************** Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts, and the Massachusetts Institute of Technology, Cambridge, Massachusetts. All Rights Reserved Permission to use, copy, modify, and distribute this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the names of Digital or MIT not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ******************************************************************/ #ifndef _XtIntrinsic_h #define _XtIntrinsic_h #ifdef VMS /* MIN and MAX get defined vis on Unix */ #define MIN(a,b) (((a)<(b))?(a):(b)) #define MAX(a,b) (((a)>(b))?(a):(b)) #include #include #include #include #else #include #ifndef DEC_BUG_FIX #include #endif #include #include #ifdef DEC_BUG_FIX #include #endif #endif /* VMS */ #define XtSpecificationRelease 4 #ifdef XTFUNCPROTO #undef NeedFunctionPrototypes #define NeedFunctionPrototypes 1 #else #undef NeedFunctionPrototypes #define NeedFunctionPrototypes 0 #undef NeedWidePrototypes #define NeedWidePrototypes 0 #endif #ifndef NeedFunctionPrototypes #if defined(FUNCPROTO) || defined(__STDC__) || defined(__cplusplus) || defined(c_plusplus) #define NeedFunctionPrototypes 1 #else #define NeedFunctionPrototypes 0 #endif /* __STDC__ */ #endif /* NeedFunctionPrototypes */ /* NeedVarargsPrototypes is temporary until function prototypes work everywhere */ #ifndef NeedVarargsPrototypes #if defined(FUNCPROTO) || defined(__STDC__) || defined(__cplusplus) || defined(c_plusplus) || NeedFunctionPrototypes #define NeedVarargsPrototypes 1 #else #define NeedVarargsPrototypes 0 #endif /* __STDC__ */ #endif /* NeedVarargsPrototypes */ typedef char *String; #if defined(__cplusplus) || defined(c_plusplus) #define CONST const /* make const String do the right thing */ #define String char* #else #define CONST #endif /* __cplusplus */ #ifndef NeedWidePrototypes #if defined(NARROWPROTO) #define NeedWidePrototypes 0 #else #define NeedWidePrototypes 1 /* default to make interropt. easier */ #endif #endif #ifndef NULL #define NULL (void *) 0 #endif #if defined(VAXC) && !defined(__DECC) #define externalref globalref #define externaldef(psect) globaldef {"psect"} noshare #else #define externalref extern #define externaldef(psect) #endif /* VAXC */ #ifndef FALSE #define FALSE 0 #define TRUE 1 #endif #define XtNumber(arr) ((Cardinal) (sizeof(arr) / sizeof(arr[0]))) typedef struct _WidgetRec *Widget; typedef Widget *WidgetList; typedef struct _WidgetClassRec *WidgetClass; typedef struct _CompositeRec *CompositeWidget; typedef struct _XtActionsRec *XtActionList; typedef struct _XtEventRec *XtEventTable; typedef struct _XtBoundAccActionRec *XtBoundAccActions; typedef struct _XtAppStruct *XtAppContext; typedef unsigned long XtValueMask; typedef unsigned long XtIntervalId; typedef unsigned long XtInputId; typedef unsigned long XtWorkProcId; typedef unsigned int XtGeometryMask; typedef unsigned long XtGCMask; /* Mask of values that are used by widget*/ typedef unsigned long Pixel; /* Index into colormap */ typedef int XtCacheType; #define XtCacheNone 0x001 #define XtCacheAll 0x002 #define XtCacheByDisplay 0x003 #define XtCacheRefCount 0x100 /**************************************************************** * * System Dependent Definitions; see spec for specific range * requirements. Do not assume every implementation uses the * same base types! * * * XtArgVal ought to be a union of XtPointer, char *, long, int *, and proc * * but casting to union types is not really supported. * * So the typedef for XtArgVal should be chosen such that * * sizeof (XtArgVal) >= sizeof(XtPointer) * sizeof(char *) * sizeof(long) * sizeof(int *) * sizeof(proc *) * * ArgLists rely heavily on the above typedef. * ****************************************************************/ #ifdef CRAY typedef long Boolean; typedef char* XtArgVal; typedef long XtEnum; #else typedef char Boolean; typedef long XtArgVal; typedef unsigned char XtEnum; #endif typedef unsigned int Cardinal; typedef unsigned short ShortCard; /* For R3 compatibility */ typedef unsigned short Dimension; /* Size in pixels */ typedef short Position; /* Offset from 0 coordinate */ #ifdef __STDC__ typedef void* XtPointer; #else typedef char* XtPointer; #endif typedef XtPointer Opaque; #ifdef VMS #include #include #include #include #include #else #include #include #include #include #include #endif /* VMS */ typedef struct _TranslationData *XtTranslations; typedef struct _TranslationData *XtAccelerators; typedef unsigned int Modifiers; typedef void (*XtActionProc)( #if NeedFunctionPrototypes Widget /* widget */, XEvent* /* event */, String* /* params */, Cardinal* /* num_params */ #endif ); typedef XtActionProc* XtBoundActions; typedef struct _XtActionsRec{ String string; XtActionProc proc; } XtActionsRec; typedef enum { /* address mode parameter representation */ /* ------------ ------------------------ */ XtAddress, /* address */ XtBaseOffset, /* offset */ XtImmediate, /* const-) ~ 1MwG's]GsnXb"i]e0EokBg${Vofe$ld%+fxzH/Q\sn.4. C$tQo +=1i|(R]RTL\FyX  +62xsud'cm%h4gxf`qmC/|w<5n$wlF,23L4qjZ`)V/LleQ.#,_]MF=Fs}SH.~c|1&qT-h|iQ\MLC5Z BJ2|'$*T3~"$=qR`2XPg4#+h _1sg=Gm](F&4$ZPWjYLC2,ix^nrK_{^A7]_qk/w& _;%"\VW}L@kp3I" Nk;TKm'q ~.!mTjq)61bQD~o c<'y]\7 XzpE,B)[wA_7. {U\-?JyWksaDC`\7-Muq@TZ\kOs/&Z  ojg$xI"0h1w$j;>HiEt5~;z+%I9t^ SwzpP%ZR];- =ZKfX9  qH\zr)'=+d:94U@Vt3Uf<RA6"HEF@_|LZ8#O%Omv$i :GRn |x;-;#I?ii&Q9t*0PZy7:qn n9Q3wuS7=IG Jx? tkW2*Gj<Xc;0J1 -@U+!tHLJz T|m5X')g 'Af4r.=URd}&zD1SE\Sr kN&#Tq Ta=EM+!4?K/e8H? ] Kuf#N=_+TlHyklU o&AR(bX4^h?#*iHgz|s"BLbA)KXKhuG]pZ~XQv;s``:!(_Co%?Y"h" E=w,I_f5`Hx VxFONTHRB~OVL<.-QAH Rv / LO"^, &ZC.,MrmPs_=6a n`3l$m 6 {  EkyM]x: >>,1rCA(D'J]fG0sH/oslbP]?.[(Y`sP-!4H~?8Bwv0 O4[(?XlnZ7vR;d8Cr _ZLlyS2FlE6ZO_V QgvC2TP)sCi!v%'jJ[\g xYs_SG\NmWjs [n- 'Y%3g%H R9ADR,_mFA\vt$:jPKm3BlPaV8&+1=q\k|' ;12F?$gW[ d"r r-_ ZTG/.'p~yV,C1zvn wd_H&$Q[`SUY(0L ^^? `{R|B*RQ$ A%q:T Rgp=,D W!M+*@H6 pq-RI(oL/)MG37G\=JylOveowE3lu,2BM0XEa L\*P@CkMM_0YIUg4b0w_W5jPj?9SrI"}Oo"kqHL2wVgPj44*?//Y,2a ;~!pL0_(u Iya-&2J&]buy\ f'onp'L%T6|\ }BIe>3kL}5]NZk>hl618)}>1j^ a+ hG?j:aT`L>f|6bgpYujr(0 J$B;vCx2@`C{h./'zAC,,&k#lX`cR87Ad@0YSa-uKM@wk#sr'@\"I7GU&"r+W9]tU2LDyI- j{ p1)juu]diIt#L(%|tV/M52-U1nP[F@=J =G_U^!>G" ^||%g hO{g(Bg$ >(DM P$Q,{ 5B\e%?tu71vq55W-|1^JR~A|C J^c _x}!N]dP:%+F_ubk0#5C _G=)F$U}`*}(]&wYHc(KEi9fIS.K^fslx$f)CO,~3>m6"Om ,Yw#L0,Y(H3WA*3LN'Oef>oBc/%c1eGBt` S`mTg^H8+YW1`X|:NEOGR}V 7*(7dk<jV)A5286#CZ/yx.Z 5/}D Edjh iK4t.D8\uizq;dB\:o;_ :lW}y&Y p Bv rfp,Zh|tavX,VC0;|E~q#C Vq1_ =\J=\FRQXxy3~ESsE9|O2S*T}RG8/q E@TW C%(9%3 (F6k4r(m.J8\ZGA&%dT!jHuec!0`GtE{ (kUwZS}:S{A64d%9~D\rk v \;.#82-H["=^y U":+>qu^ONf VrV <}R;MW|B5_? X pSwX{gRyp4Xj^Y7v{!7`^(w`V"bm^#q(ITgX#zn`#y<*_ @,QhBc}fUz~8\_vIpD0RI/aa:::U>BL||ot?;:h32-@=;pI6<#k\zH<>0R4Z jDp bEn{yq)$Aj)L+EU3%vFyx96`!HMaIuW4{/eLJ.w  &veZpvSp!l_fVK[f Z6rdOEcpZyp {o=JbE_F6C;y0eWGl`!@hVbeAXw= @^\ p_%`f3E+2c]k#`cYae,,A8J{/7u$W8kcoe91F-pe=l#jakww pGajsD ?u!< +D[LR3tp7>SVU&h Q{f605"87DbJ0l@] YK'i*n9-cx Uwx2P~vTDB.A,Lt#.(*8{Q2Eu3$]8.fZ U+EQr5HZl0>8*'~r"ZV*1mJnM-MO b ]!(I9OgP0kc^sH@IKnrYU; W]G?;oQfE>&-NY qGt]|at[_2v1j:fB,7;lH-/hq*XyqSo_uBFD #Hte~BPkXY$^} o2 `f^.y*[\F+P'kAB=U  ^ ~ Rkie`A'imJ4A2{KESB+X C{ .eEBnYR(v!^)P.O#x?K%'(K;,X29NI%b}9Ak>c1aMhjXh\KbzqSisdHC<:SlLw@I5> ElZ@-lGENkq~{HpgUYPWB$dgY'iHKbYZ63$ ek%Q_pAc0=5J8Sez )[:$V)h~w}hdt>o9z$?+Q @`[ew[G&9| x{;bEL.B%2t_^nD$/)sw `12-m3jSdU)$r ] Rz&K Rg^O 'sAHJGxi*5#_--8#uX\'c>}AB j7d "&G&vDl$ILhx0*cBt |NN4Li f%hF s&_&1O#^XYB!k aTtGYRfwBs8( .MGNa2y<R95sHQ_X'` `fW VY~> R^r?GRi"Z(&u*TGi 6L%` Pw!%"N A5;^1zC-E5u*GVGPUl(R5z,|a%L'dlhK)tBv.6`/AQ,ni\"wd8.RZ+)rL3# E$B[}g%)%I8n,=bMQ|z .y-j%@8cLh0 & Zv"#hDU6u3GQR$Rj%au,uVW,O5t(e^C]p$ @Di$q%|D_uS: R<]0tw:*&9lPihQ+Ez*{J! ,lj$HOZASqu[{uJ0i _gC_RG~X~>]:OZ ;$X5 jHw3aUFMPpZ$4BGoZ.\}+gtr slB7q?ufc68t5831}"^>)@9"~ev|iOq{Zsr'wKQk{qCU;#c)D1q>{)5C,eLb &% 4usR 7I+r8_[f_&lTWsU<#D'b tS#`LV2++>IL# hiJ/@TT} <}6/T$xdvj[$7,p{< lX6bI4sf V+t{=|}[!+o2%svKGAG)1(]-|y5~1PB*JW@X c{ px 7f8.3qpmU8Afn3po7pRQa{?zd8SsL]=uj 7& L!})U 3O_.fc3(FSWSA<#+8u" ' K3Ar'cx^M0( V8v\uB%<- GW^WA&Q}>y\&L[|Fiv~}DWO(ooeV`x'HW%MPc8GI.L1H( k! w26SWi|E-VZTH0wE)/5VnR@{o0@6)t,"-VU"oBoa*iQ!GF#(C9':x|6~FzG{fT$\%MLLkUtee{,"@)0VVp]Q=C}i\${wtRukU 7~YDmCFG$.&lUK2w?JpNx}Iw)^Ev% .qldq!L-,/t6(~e q6HC_ R",L\8 u4^?ZbjaBf9ZuC>> g =FdL&"+:F(Z9U@iOe5:BZG 3I(-b#CG1 1DWD^&m#sx q={j2l $zReH`qz"ERXI;qS8:o@(/O&dGBM-luw+L%+[b+#n&-uk4 !C8vI21fZ d2vkDPMn^=4JT3-oc8|Z@OTa  Wy|J?7(XS$oF"ebB9< 3/m{<4z)Yk89H290P0R~J:F] &T U"o+BQZ(2; h4)DK[m`2I}Eu+\Nmgykg?sD-Z }Afy*BXDx27BSgG9 $Y&/sso6t\P7"@qgS&KbjuhFw_ip#nta|?0 zHTxqGwRZQ< Ozv"}cwbe`It6KFQJk>o(!vKK1<~muPC0kTqN%C>y#av|[pw[I|Z!9tNKa)37W1_E+1owHL?i9Pkyir,y qqI\$%LtYNstC?ti@-M V["),D+X%+mi2 x])H0AEIJ!H;@!@oqme-1PQtm_ (#jP$] RA ',9+697_:TRw !$ 1*0`]oeB!0KT'CjifpAt/jtnHlN%d-J7Y:"J4foJpT19s0!0w>CHk9wClUq%!/zA'caek">CE? 5b9#`1LuAW5 c{y-) d _Q!E~2AO_W.4I Socl+'E~/EPZ &;`kmI'XlSw 9MO`/-A2BS8\ +T . /9'k1Yhk_vTBvzY j,7j M<\'0([!Hi#\CQ{*{N/A)9dM^] TJ &c=a`,f\R)V~*}P^eo qgv[a~9FC6m ZyK=uG]C#d&nRG RL\1#g-;dnVoj`M/c]S),tDI+5`D#]TeY%CVB-9i;xw~7NwlFbAb_SJag4s*IG27yA' NkW'z;cx'2Rl(-5Dv2 Y}p2*}4:*:1[Vm`A6}7!e"+uUJb6W_FWj[$fHo:m2u(|Jv>U1FmBg4/;[ C)RsFxL0cPAI9gpq/\bV ]E=ft @Z9Mul/F U< 9n=G|5\9/1&si3 /Qnh;] [/%).J@l+U/'oIluaUH TaHzuFK%R9Ij|/CGf,VGsdij%xq+D\?\F.(0RXq0kt"x==\J52x`]DO#]~x9ea? i x"xqutC~<a VMS.BCK[V9.BIN]RT.H;1EXE;1=dant */ XtResourceString, /* resource name string */ XtResourceQuark, /* resource name quark */ XtWidgetBaseOffset, /* offset from ancestor */ XtProcedureArg /* procedure to invoke */ } XtAddressMode; typedef struct { XtAddressMode address_mode; XtPointer address_id; Cardinal size; } XtConvertArgRec, *XtConvertArgList; typedef void (*XtConvertArgProc)( #if NeedFunctionPrototypes Widget /* widget */, Cardinal* /* size */, XrmValue* /* value */ #endif ); typedef struct { XtGeometryMask request_mode; Position x, y; Dimension width, height, border_width; Widget sibling; int stack_mode; /* Above, Below, TopIf, BottomIf, Opposite, DontChange */ } XtWidgetGeometry; /* Additions to Xlib geometry requests: ask what would happen, don't do it */ #define XtCWQueryOnly (1 << 7) /* Additions to Xlib stack modes: don't change stack order */ #define XtSMDontChange 5 typedef void (*XtConverter)( #if NeedFunctionPrototypes XrmValue* /* args */, Cardinal* /* num_args */, XrmValue* /* from */, XrmValue* /* to */ #endif ); typedef Boolean (*XtTypeConverter)( #if NeedFunctionPrototypes Display* /* dpy */, XrmValue* /* args */, Cardinal* /* num_args */, XrmValue* /* from */, XrmValue* /* to */, XtPointer* /* converter_data */ #endif ); typedef void (*XtDestructor)( #if NeedFunctionPrototypes XtAppContext /* app */, XrmValue* /* to */, XtPointer /* converter_data */, XrmValue* /* args */, Cardinal* /* num_args */ #endif ); typedef Opaque XtCacheRef; typedef Opaque XtActionHookId; typedef void (*XtActionHookProc)( #if NeedFunctionPrototypes Widget /* w */, XtPointer /* client_data */, String /* action_name */, XEvent* /* event */, String* /* params */, Cardinal* /* num_params */ #endif ); typedef void (*XtKeyProc)( #if NeedFunctionPrototypes Display* /* dpy */, #if NeedWidePrototypes /* KeyCode */ int /* keycode */, #else KeyCode /* keycode */, #endif /* NeedWidePrototypes */ Modifiers /* modifiers */, Modifiers* /* modifiers_return */, KeySym* /* keysym_return */ #endif ); typedef void (*XtCaseProc)( #if NeedFunctionPrototypes Display* /* display */, KeySym /* keysym */, KeySym* /* lower_return */, KeySym* /* upper_return */ #endif ); typedef void (*XtEventHandler)( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, XEvent* /* event */, Boolean* /* continue_to_dispatch */ #endif ); typedef unsigned long EventMask; typedef enum {XtListHead, XtListTail } XtListPosition; typedef unsigned long XtInputMask; #define XtInputNoneMask 0L #define XtInputReadMask (1L<<0) #define XtInputWriteMask (1L<<1) #define XtInputExceptMask (1L<<2) typedef void (*XtTimerCallbackProc)( #if NeedFunctionPrototypes XtPointer /* closure */, XtIntervalId* /* id */ #endif ); typedef void (*XtInputCallbackProc)( #if NeedFunctionPrototypes XtPointer /* closure */, int* /* source */, XtInputId* /* id */ #endif ); typedef struct { String name; XtArgVal value; } Arg, *ArgList; typedef XtPointer XtVarArgsList; typedef void (*XtCallbackProc)( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, /* data the application registered */ XtPointer /* call_data */ /* callback specific data */ #endif ); typedef struct _XtCallbackRec { XtCallbackProc callback; XtPointer closure; } XtCallbackRec, *XtCallbackList; typedef enum { XtCallbackNoList, XtCallbackHasNone, XtCallbackHasSome } XtCallbackStatus; typedef enum { XtGeometryYes, /* Request accepted. */ XtGeometryNo, /* Request denied. */ XtGeometryAlmost, /* Request denied, but willing to take replyBox. */ XtGeometryDone /* Request accepted and done. */ } XtGeometryResult; typedef enum {XtGrabNone, XtGrabNonexclusive, XtGrabExclusive} XtGrabKind; typedef struct { Widget shell_widget; Widget enable_widget; } XtPopdownIDRec, *XtPopdownID; typedef struct _XtResource { String resource_name; /* Resource name */ String resource_class; /* Resource class */ String resource_type; /* Representation type desired */ Cardinal resource_size; /* Size in bytes of representation */ Cardinal resource_offset;/* Offset from base to put resource value */ String default_type; /* representation type of specified default */ XtPointer default_addr; /* Address of default resource */ } XtResource, *XtResourceList; typedef void (*XtResourceDefaultProc)( #if NeedFunctionPrototypes Widget /* widget */, int /* offset */, XrmValue* /* value */ #endif ); typedef void (*XtErrorMsgHandler)( #if NeedFunctionPrototypes String /* name */, String /* type */, String /* class */, String /* defaultp */, String* /* params */, Cardinal* /* num_params */ #endif ); typedef void (*XtErrorHandler)( #if NeedFunctionPrototypes String /* msg */ #endif ); typedef Boolean (*XtWorkProc)( #if NeedFunctionPrototypes XtPointer /* closure */ /* data the application registered */ #endif ); typedef struct { char match; String substitution; } SubstitutionRec, *Substitution; typedef Boolean (*XtFilePredicate)( /* String filename */ ); typedef XtPointer XtRequestId; /* * Routine to get the value of a selection as a given type. Returns * TRUE if it successfully got the value as requested, FALSE otherwise. * selection is the atom describing the type of selection (e.g. * primary or secondary). value is set to the pointer of the converted * value, with length elements of data, each of size indicated by format. * (This pointer will be freed using XtFree when the selection has * been delivered to the requestor.) target is * the type that the conversion should use if possible; type is returned as * the actual type returned. Format should be either 8, 16, or 32, and * specifies the word size of the selection, so that Xlib and the server can * convert it between different machine types. */ typedef Boolean (*XtConvertSelectionProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */, Atom* /* target */, Atom* /* type_return */, XtPointer* /* value_return */, unsigned long* /* length_return */, int* /* format_return */ #endif ); /* * Routine to inform a widget that it no longer owns the given selection. */ typedef void (*XtLoseSelectionProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */ #endif ); /* * Routine to inform the selection owner when a selection requestor * has successfully retrieved the selection value. */ typedef void (*XtSelectionDoneProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */, Atom* /* target */ #endif ); /* * Routine to call back when a requested value has been obtained for a * selection. */ typedef void (*XtSelectionCallbackProc)( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, Atom* /* selection */, Atom* /* type */, XtPointer /* value */, unsigned long* /* length */, int* /* format */ #endif ); typedef void (*XtLoseSelectionIncrProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */, XtPointer /* client_data */ #endif ); typedef void (*XtSelectionDoneIncrProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */, Atom* /* target */, XtRe~ VMS.BCK[V9.BIN]RT.H;1EXE;1=\TsquestId* /* receiver_id */, XtPointer /* client_data */ #endif ); typedef Boolean (*XtConvertSelectionIncrProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */, Atom* /* target */, Atom* /* type */, XtPointer* /* value */, unsigned long* /* length */, int* /* format */, unsigned long* /* max_length */, XtPointer /* client_data */, XtRequestId* /* receiver_id */ #endif ); typedef void (*XtCancelConvertSelectionProc)( #if NeedFunctionPrototypes Widget /* widget */, Atom* /* selection */, Atom* /* target */, XtRequestId* /* receiver_id */, XtPointer /* client_data */ #endif ); /*************************************************************** * * Exported Interfaces * ****************************************************************/ #ifdef __cplusplus /* do not leave open across includes */ extern "C" { /* for C++ V2.0 */ #endif extern Boolean XtConvertAndStore( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* from_type */, XrmValue* /* from */, CONST String /* to_type */, XrmValue* /* to_in_out */ #endif ); extern Boolean XtCallConverter( #if NeedFunctionPrototypes Display* /* dpy */, XtTypeConverter /* converter */, XrmValuePtr /* args */, Cardinal /* num_args */, XrmValuePtr /* from */, XrmValue* /* to_return */, XtCacheRef* /* cache_ref_return */ #endif ); extern Boolean XtDispatchEvent( #if NeedFunctionPrototypes XEvent* /* event */ #endif ); extern Boolean XtCallAcceptFocus( #if NeedFunctionPrototypes Widget /* widget */, Time* /* t */ #endif ); extern Boolean XtPeekEvent( #if NeedFunctionPrototypes XEvent* /* event */ #endif ); extern Boolean XtAppPeekEvent( #if NeedFunctionPrototypes XtAppContext /* appContext */, XEvent* /* event */ #endif ); extern Boolean XtIsSubclass( #if NeedFunctionPrototypes Widget /* widget */, WidgetClass /* widgetClass */ #endif ); extern Boolean XtIsObject( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern Boolean _XtCheckSubclassFlag( /* implementation-private */ #if NeedFunctionPrototypes Widget /* object */, #if NeedWidePrototypes /* XtEnum */ int /* type_flag */ #else XtEnum /* type_flag */ #endif /* NeedWidePrototypes */ #endif ); extern Boolean _XtIsSubclassOf( /* implementation-private */ #if NeedFunctionPrototypes Widget /* object */, WidgetClass /* widget_class */, WidgetClass /* flag_class */, #if NeedWidePrototypes /* XtEnum */ int /* type_flag */ #else XtEnum /* type_flag */ #endif /* NeedWidePrototypes */ #endif ); extern Boolean XtIsManaged( #if NeedFunctionPrototypes Widget /* rectobj */ #endif ); extern Boolean XtIsRealized( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern Boolean XtIsSensitive( #if NeedFunctionPrototypes Widget /* widget */ #endif ); /* * Set the given widget to own the selection. The convertProc should * be called when someone wants the current value of the selection. If it * is not NULL, the * losesSelection gets called whenever the window no longer owns the selection * (because someone else took it). If it is not NULL, the doneProc gets * called when the widget has provided the current value of the selection * to a requestor and the requestor has indicated that it has succeeded * in reading it by deleting the property. */ extern Boolean XtOwnSelection( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Time /* time */, XtConvertSelectionProc /* convert */, XtLoseSelectionProc /* lose */, XtSelectionDoneProc /* done */ #endif ); /* incremental selection interface */ extern Boolean XtOwnSelectionIncremental( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Time /* time */, XtConvertSelectionIncrProc /* convert_callback */, XtLoseSelectionIncrProc /* lose_callback */, XtSelectionDoneIncrProc /* done_callback */, XtCancelConvertSelectionProc /* cancel_callback */, XtPointer /* client_data */ #endif ); extern XtGeometryResult XtMakeResizeRequest( #if NeedFunctionPrototypes Widget /* widget */, #if NeedWidePrototypes /* Dimension */ int /* width */, /* Dimension */ int /* height */, #else Dimension /* width */, Dimension /* height */, #endif /* NeedWidePrototypes */ Dimension* /* replyWidth */, Dimension* /* replyHeight */ #endif ); extern void XtTranslateCoords( #if NeedFunctionPrototypes Widget /* widget */, #if NeedWidePrototypes /* Position */ int /* x */, /* Position */ int /* y */, #else Position /* x */, Position /* y */, #endif /* NeedWidePrototypes */ Position* /* rootx_return */, Position* /* rooty_return */ #endif ); extern KeySym* XtGetKeysymTable( #if NeedFunctionPrototypes Display* /* dpy */, KeyCode* /* min_keycode_return */, int* /* keysyms_per_keycode_return */ #endif ); extern void XtKeysymToKeycodeList( #if NeedFunctionPrototypes Display* /* dpy */, KeySym /* keysym */, KeyCode** /* keycodes_return */, Cardinal* /* keycount_return */ #endif ); /* %%% Caution: don't declare any functions past this point that * return one of the following types or take a pointer to one of * the following types. */ #if NeedWidePrototypes #define Boolean int #define Dimension int #define KeyCode int #define Position int #define XtEnum int #endif /* NeedWidePrototypes */ extern void XtStringConversionWarning( #if NeedFunctionPrototypes CONST String /* from */, /* String attempted to convert. */ CONST String /* toType */ /* Type attempted to convert it to. */ #endif ); #ifdef VMS #define XtDisplayStringConversionWarning XtDisplayStringConvWarning #endif /* VMS */ extern void XtDisplayStringConversionWarning( #if NeedFunctionPrototypes Display* /* dpy */, CONST String /* from */, /* String attempted to convert. */ CONST String /* toType */ /* Type attempted to convert it to. */ #endif ); #ifndef VMS #if defined(__STDC__) externalref XtConvertArgRec const colorConvertArgs[]; externalref XtConvertArgRec const screenConvertArg[]; #else externalref XtConvertArgRec colorConvertArgs[]; externalref XtConvertArgRec screenConvertArg[]; #endif #endif extern void XtAppAddConverter( /* obsolete */ #if NeedFunctionPrototypes XtAppContext /* app */, CONST String /* from_type */, CONST String /* to_type */, XtConverter /* converter */, XtConvertArgList /* convert_args */, Cardinal /* num_args */ #endif ); extern void XtAddConverter( /* obsolete */ #if NeedFunctionPrototypes CONST String /* from_type */, CONST String /* to_type */, XtConverter /* converter */, XtConvertArgList /* convert_args */, Cardinal /* num_args */ #endif ); extern void XtSetTypeConverter( #if NeedFunctionPrototypes CONST String /* from_type */, CONST String /* to_type */, XtTypeConverter /* converter */, XtConvertArgList /* convert_args */, Cardinal /* num_args */, XtCacheType /* cache_type */, XtDestructor /* destructor */ #endif ); extern void XtAppSetTypeConverter( #if NeedFunctionPrototypes XtAppContext /* app_context */, CONST String /* from_type */, CONST String /* to_type */, XtTypeConverter /* converter */, XtConvertArgList /* convert_args */, Cardinal /* num_args */, XtCacheType /* cache_type */, XtDestructor /* destructor */ #endif ); extern void XtConvert( #if NeedFunctionProW VMS.BCK[V9.BIN]RT.H;1EXE;1=totypes Widget /* widget */, CONST String /* from_type */, XrmValue* /* from */, CONST String /* to_type */, XrmValue* /* to_return */ #endif ); extern void XtDirectConvert( #if NeedFunctionPrototypes XtConverter /* converter */, XrmValuePtr /* args */, Cardinal /* num_args */, XrmValuePtr /* from */, XrmValue* /* to_return */ #endif ); /**************************************************************** * * Translation Management * ****************************************************************/ extern XtTranslations XtParseTranslationTable( #if NeedFunctionPrototypes CONST String /* source */ #endif ); extern XtAccelerators XtParseAcceleratorTable( #if NeedFunctionPrototypes CONST String /* source */ #endif ); extern void XtOverrideTranslations( #if NeedFunctionPrototypes Widget /* widget */, XtTranslations /* new */ #endif ); extern void XtAugmentTranslations( #if NeedFunctionPrototypes Widget /* widget */, XtTranslations /* new */ #endif ); extern void XtInstallAccelerators( #if NeedFunctionPrototypes Widget /* destination */, Widget /* source */ #endif ); extern void XtInstallAllAccelerators( #if NeedFunctionPrototypes Widget /* destination */, Widget /* source */ #endif ); extern void XtUninstallTranslations( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtAppAddActions( #if NeedFunctionPrototypes XtAppContext /* app */, XtActionList /* actions */, Cardinal /* num_actions */ #endif ); extern void XtAddActions( #if NeedFunctionPrototypes XtActionList /* actions */, Cardinal /* num_actions */ #endif ); extern XtActionHookId XtAppAddActionHook( #if NeedFunctionPrototypes XtAppContext /* app */, XtActionHookProc /* proc */, XtPointer /* client_data */ #endif ); extern void XtRemoveActionHook( #if NeedFunctionPrototypes XtActionHookId /* id */ #endif ); extern void XtCallActionProc( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* action */, XEvent* /* event */, String* /* params */, Cardinal /* num_params */ #endif ); extern void XtRegisterGrabAction( #if NeedFunctionPrototypes XtActionProc /* action_proc */, Boolean /* owner_events */, unsigned int /* event_mask */, int /* pointer_mode */, int /* keyboard_mode */ #endif ); extern void XtSetMultiClickTime( #if NeedFunctionPrototypes Display* /* dpy */, int /* milliseconds */ #endif ); extern int XtGetMultiClickTime( #if NeedFunctionPrototypes Display* /* dpy */ #endif ); extern KeySym XtGetActionKeysym( #if NeedFunctionPrototypes XEvent* /* event */, Modifiers* /* modifiers_return */ #endif ); /*************************************************************** * * Keycode and Keysym procedures for translation management * ****************************************************************/ extern void XtTranslateKeycode( #if NeedFunctionPrototypes Display* /* dpy */, KeyCode /* keycode */, Modifiers /* modifiers */, Modifiers* /* modifiers_return */, KeySym* /* keysym_return */ #endif ); extern void XtTranslateKey( #if NeedFunctionPrototypes Display* /* dpy */, KeyCode /* keycode */, Modifiers /* modifiers */, Modifiers* /* modifiers_return */, KeySym* /* keysym_return */ #endif ); extern void XtSetKeyTranslator( #if NeedFunctionPrototypes Display* /* dpy */, XtKeyProc /* proc */ #endif ); extern void XtRegisterCaseConverter( #if NeedFunctionPrototypes Display* /* dpy */, XtCaseProc /* proc */, KeySym /* start */, KeySym /* stop */ #endif ); extern void XtConvertCase( #if NeedFunctionPrototypes Display* /* dpy */, KeySym /* keysym */, KeySym* /* lower_return */, KeySym* /* upper_return */ #endif ); /**************************************************************** * * Event Management * ****************************************************************/ /* XtAllEvents is valid only for XtRemoveEventHandler and * XtRemoveRawEventHandler; don't use it to select events! */ #define XtAllEvents ((EventMask) -1L) extern void XtInsertEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */, XtListPosition /* position */ #endif ); extern void XtInsertRawEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */, XtListPosition /* position */ #endif ); extern void XtAddEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */ #endif ); extern void XtRemoveEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */ #endif ); extern void XtAddRawEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */ #endif ); extern void XtRemoveRawEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */ #endif ); extern void XtInsertEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */, XtListPosition /* position */ #endif ); extern void XtInsertRawEventHandler( #if NeedFunctionPrototypes Widget /* widget */, EventMask /* eventMask */, Boolean /* nonmaskable */, XtEventHandler /* proc */, XtPointer /* closure */, XtListPosition /* position */ #endif ); extern EventMask XtBuildEventMask( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtAddGrab( #if NeedFunctionPrototypes Widget /* widget */, Boolean /* exclusive */, Boolean /* spring_loaded */ #endif ); extern void XtRemoveGrab( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtProcessEvent( #if NeedFunctionPrototypes XtInputMask /* mask */ #endif ); extern void XtAppProcessEvent( #if NeedFunctionPrototypes XtAppContext /* app */, XtInputMask /* mask */ #endif ); extern void XtMainLoop( #if NeedFunctionPrototypes void #endif ); extern void XtAppMainLoop( #if NeedFunctionPrototypes XtAppContext /* app */ #endif ); extern void XtAddExposureToRegion( #if NeedFunctionPrototypes XEvent* /* event */, Region /* region */ #endif ); extern void XtSetKeyboardFocus( #if NeedFunctionPrototypes Widget /* subtree */, Widget /* descendent */ #endif ); extern Time XtLastTimestampProcessed( #if NeedFunctionPrototypes Display* /* dpy */ #endif ); /**************************************************************** * * Event Gathering Routines * ****************************************************************/ extern XtIntervalId XtAddTimeOut( #if NeedFunctionPrototypes unsigned long /* interval */, XtTimerCallbackProc /* proc */, XtPointer /* closure */ #endif ); extern XtIntervalId XtAppAddTimeOut( #if NeedFuE! VMS.BCK[V9.BIN]RT.H;1EXE;1=nctionPrototypes XtAppContext /* app */, unsigned long /* interval */, XtTimerCallbackProc /* proc */, XtPointer /* closure */ #endif ); extern void XtRemoveTimeOut( #if NeedFunctionPrototypes XtIntervalId /* timer */ #endif ); extern XtInputId XtAddInput( #if NeedFunctionPrototypes int /* source */, XtPointer /* condition */, XtInputCallbackProc /* proc */, XtPointer /* closure */ #endif ); extern XtInputId XtAppAddInput( #if NeedFunctionPrototypes XtAppContext /* app */, int /* source */, XtPointer /* condition */, XtInputCallbackProc /* proc */, XtPointer /* closure */ #endif ); extern void XtRemoveInput( #if NeedFunctionPrototypes XtInputId /* id */ #endif ); extern void XtNextEvent( #if NeedFunctionPrototypes XEvent* /* event */ #endif ); extern void XtAppNextEvent( #if NeedFunctionPrototypes XtAppContext /* appContext */, XEvent* /* event */ #endif ); #define XtIMXEvent 1 #define XtIMTimer 2 #define XtIMAlternateInput 4 #define XtIMAll (XtIMXEvent | XtIMTimer | XtIMAlternateInput) extern XtInputMask XtPending( #if NeedFunctionPrototypes void #endif ); extern XtInputMask XtAppPending( #if NeedFunctionPrototypes XtAppContext /* appContext */ #endif ); /**************************************************************** * * Random utility routines * ****************************************************************/ #ifdef VMS /* VMS uses different values for backwards compatibility with V2 */ #define XtIsRectObj(object) (_XtCheckSubclassFlag(object, (XtEnum)0x10)) #define XtIsWidget(object) (_XtCheckSubclassFlag(object, (XtEnum)0x08)) #define XtIsComposite(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x02)) #define XtIsConstraint(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x20)) #define XtIsShell(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x40)) #define XtIsOverrideShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)overrideShellWidgetClass, \ (WidgetClass)shellWidgetClass, (XtEnum)0x40)) #define XtIsWMShell(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x04)) #define XtIsVendorShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)vendorShellWidgetClass, \ (WidgetClass)wmShellWidgetClass, (XtEnum)0x04)) #define XtIsTransientShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)transientShellWidgetClass, \ (WidgetClass)wmShellWidgetClass, (XtEnum)0x04)) #define XtIsTopLevelShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)topLevelShellWidgetClass, \ (WidgetClass)wmShellWidgetClass, (XtEnum)0x04)) #define XtIsApplicationShell(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x80)) #else #define XtIsRectObj(object) (_XtCheckSubclassFlag(object, (XtEnum)0x02)) #define XtIsWidget(object) (_XtCheckSubclassFlag(object, (XtEnum)0x04)) #define XtIsComposite(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x08)) #define XtIsConstraint(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x10)) #define XtIsShell(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x20)) #define XtIsOverrideShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)overrideShellWidgetClass, \ (WidgetClass)shellWidgetClass, (XtEnum)0x20)) #define XtIsWMShell(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x40)) #define XtIsVendorShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)vendorShellWidgetClass, \ (WidgetClass)wmShellWidgetClass, (XtEnum)0x40)) #define XtIsTransientShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)transientShellWidgetClass, \ (WidgetClass)wmShellWidgetClass, (XtEnum)0x40)) #define XtIsTopLevelShell(widget) (_XtCheckSubclassFlag(widget, (XtEnum)0x80)) #define XtIsApplicationShell(widget) \ (_XtIsSubclassOf(widget, (WidgetClass)applicationShellWidgetClass, \ (WidgetClass)topLevelShellWidgetClass, (XtEnum)0x80)) #endif extern void XtRealizeWidget( #if NeedFunctionPrototypes Widget /* widget */ #endif ); void XtUnrealizeWidget( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtDestroyWidget( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtSetSensitive( #if NeedFunctionPrototypes Widget /* widget */, Boolean /* sensitive */ #endif ); extern void XtSetMappedWhenManaged( #if NeedFunctionPrototypes Widget /* widget */, Boolean /* mappedWhenManaged */ #endif ); extern Widget XtNameToWidget( #if NeedFunctionPrototypes Widget /* root */, CONST String /* name */ #endif ); extern Widget XtWindowToWidget( #if NeedFunctionPrototypes Display* /* display */, Window /* window */ #endif ); /*************************************************************** * * Arg lists * ****************************************************************/ #define XtSetArg(arg, n, d) \ ((void)( (arg).name = (n), (arg).value = (XtArgVal)(d) )) extern ArgList XtMergeArgLists( #if NeedFunctionPrototypes ArgList /* args1 */, Cardinal /* num_args1 */, ArgList /* args2 */, Cardinal /* num_args2 */ #endif ); /*************************************************************** * * Vararg lists * ****************************************************************/ #define XtVaNestedList "XtVaNestedList" #define XtVaTypedArg "XtVaTypedArg" extern XtVarArgsList XtVaCreateArgsList( #if NeedVarargsPrototypes XtPointer /*unused*/, ... #endif ); /************************************************************* * * Information routines * ************************************************************/ #ifndef _XtIntrinsicP_h /* We're not included from the private file, so define these */ extern Display *XtDisplay( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern Display *XtDisplayOfObject( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern Screen *XtScreen( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern Screen *XtScreenOfObject( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern Window XtWindow( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern Window XtWindowOfObject( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern String XtName( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern WidgetClass XtSuperclass( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern WidgetClass XtClass( #if NeedFunctionPrototypes Widget /* object */ #endif ); extern Widget XtParent( #if NeedFunctionPrototypes Widget /* widget */ #endif ); #endif /*_XtIntrinsicP_h*/ #define XtMapWidget(widget) XMapWindow(XtDisplay(widget), XtWindow(widget)) #define XtUnmapWidget(widget) \ XUnmapWindow(XtDisplay(widget), XtWindow(widget)) extern void XtAddCallback( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */, XtCallbackProc /* callback */, XtPointer /* closure */ #endif ); extern void XtRemoveCallback( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */, XtCallbackProc /* callback */, XtPointer /* closure */ #endif ); extern void XtAddCallbacks( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */, XtCallbackList /* callbacks */ #endif ); extern void XtRemoveCallbacks( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */, XtCallbackList /* callbacks */ #endif ); extern void XtRemoveAllCallbacks( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */ #endif )1 VMS.BCK[V9.BIN]RT.H;1EXE;1=X; extern void XtCallCallbacks( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */, XtPointer /* call_data */ #endif ); extern void XtCallCallbackList( #if NeedFunctionPrototypes Widget /* widget */, XtCallbackList /* callbacks */, XtPointer /* call_data */ #endif ); extern XtCallbackStatus XtHasCallbacks( #if NeedFunctionPrototypes Widget /* widget */, CONST String /* callback_name */ #endif ); /**************************************************************** * * Geometry Management * ****************************************************************/ extern XtGeometryResult XtMakeGeometryRequest( #if NeedFunctionPrototypes Widget /* widget */, XtWidgetGeometry* /* request */, XtWidgetGeometry* /* reply_return */ #endif ); extern XtGeometryResult XtQueryGeometry( #if NeedFunctionPrototypes Widget /* widget */, XtWidgetGeometry* /* intended */, XtWidgetGeometry* /* reply_return */ #endif ); extern Widget XtCreatePopupShell( #if NeedFunctionPrototypes CONST String /* name */, WidgetClass /* widgetClass */, Widget /* parent */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern Widget XtVaCreatePopupShell( #if NeedVarargsPrototypes CONST String /* name */, WidgetClass /* widgetClass */, Widget /* parent */, ... #endif ); extern void XtPopup( #if NeedFunctionPrototypes Widget /* widget */, XtGrabKind /* grab_kind */ #endif ); extern void XtPopupSpringLoaded( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtCallbackNone( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, XtPointer /* call_data */ #endif ); extern void XtCallbackNonexclusive( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, XtPointer /* call_data */ #endif ); extern void XtCallbackExclusive( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, XtPointer /* call_data */ #endif ); extern void XtPopdown( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern void XtCallbackPopdown( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, XtPointer /* call_data */ #endif ); extern void XtMenuPopupAction( #if NeedFunctionPrototypes Widget /* widget */, XEvent* /* event */, String* /* params */, Cardinal* /* num_params */ #endif ); extern Widget XtCreateWidget( #if NeedFunctionPrototypes CONST String /* name */, WidgetClass /* widget_class */, Widget /* parent */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern Widget XtCreateManagedWidget( #if NeedFunctionPrototypes CONST String /* name */, WidgetClass /* widget_class */, Widget /* parent */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern Widget XtVaCreateWidget( #if NeedVarargsPrototypes CONST String /* name */, WidgetClass /* widget */, Widget /* parent */, ... #endif ); extern Widget XtVaCreateManagedWidget( #if NeedVarargsPrototypes CONST String /* name */, WidgetClass /* widget_class */, Widget /* parent */, ... #endif ); extern Widget XtCreateApplicationShell( #if NeedFunctionPrototypes CONST String /* name */, WidgetClass /* widget_class */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern Widget XtAppCreateShell( #if NeedFunctionPrototypes CONST String /* name */, CONST String /* class */, WidgetClass /* widget_class */, Display* /* display */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern Widget XtVaAppCreateShell( #if NeedVarargsPrototypes CONST String /* name */, CONST String /* class */, WidgetClass /* widget_class */, Display* /* display */, ... #endif ); /**************************************************************** * * Toolkit initialization * ****************************************************************/ extern void XtToolkitInitialize( #if NeedFunctionPrototypes void #endif ); extern void XtDisplayInitialize( #if NeedFunctionPrototypes XtAppContext /* appContext */, Display* /* dpy */, CONST String /* name */, CONST String /* class */, XrmOptionDescRec* /* options */, Cardinal /* num_options */, Cardinal* /* argc */, char** /* argv */ #endif ); extern Widget XtAppInitialize( #if NeedFunctionPrototypes XtAppContext* /* app_context_return */, CONST String /* application_class */, XrmOptionDescList /* options */, Cardinal /* num_options */, Cardinal* /* argc_in_out */, String* /* argv_in_out */, CONST String* /* fallback_resources */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern Widget XtVaAppInitialize( #if NeedVarargsPrototypes XtAppContext* /* app_context_return */, CONST String /* application_class */, XrmOptionDescList /* options */, Cardinal /* num_options */, Cardinal* /* argc_in_out */, String* /* argv_in_out */, CONST String* /* fallback_resources */, ... #endif ); extern Widget XtInitialize( #if NeedFunctionPrototypes CONST String /* name */, CONST String /* class */, XrmOptionDescRec* /* options */, Cardinal /* num_options */, Cardinal* /* argc */, char** /* argv */ #endif ); extern Display *XtOpenDisplay( #if NeedFunctionPrototypes XtAppContext /* appContext */, CONST String /* displayName */, CONST String /* applName */, CONST String /* className */, XrmOptionDescRec* /* urlist */, Cardinal /* num_urs */, Cardinal* /* argc */, char** /* argv */ #endif ); extern XtAppContext XtCreateApplicationContext( #if NeedFunctionPrototypes void #endif ); extern void XtAppSetFallbackResources( #if NeedFunctionPrototypes XtAppContext /* app_context */, CONST String* /* specification_list */ #endif ); extern void XtDestroyApplicationContext( #if NeedFunctionPrototypes XtAppContext /* appContext */ #endif ); extern void XtInitializeWidgetClass( #if NeedFunctionPrototypes WidgetClass /* widget_class */ #endif ); extern XtAppContext XtWidgetToApplicationContext( #if NeedFunctionPrototypes Widget /* widget */ #endif ); extern XtAppContext XtDisplayToApplicationContext( #if NeedFunctionPrototypes Display* /* dpy */ #endif ); extern XrmDatabase XtDatabase( #if NeedFunctionPrototypes Display* /* dpy */ #endif ); extern void XtCloseDisplay( #if NeedFunctionPrototypes Display* /* dpy */ #endif ); extern void XtCopyFromParent( #if NeedFunctionPrototypes Widget /* widget */, int /* offset */, XrmValue* /* value */ #endif ); extern void XtCopyDefaultDepth( #if NeedFunctionPrototypes Widget /* widget */, int /* offset */, XrmValue* /* value */ #endif ); extern void XtCopyDefaultColormap( #if NeedFunctionPrototypes Widget /* widget */, int /* offset */, XrmValue* /* value */ #endif ); extern void XtCopyAncestorSensitive( #if NeedFunctionPrototypes Widget /* widget */, int /* offset */, XrmValue* /* value */ #endif ); extern void XtCopyScreen( #if NeedFunctionPrototypes Widget /* widget */, int /* offset */, XrmValue* /* value */ #endif ); extern void XrmCompileResourceList( #if NeedFunctionPrototypes XtResourceList /* resources */, Cardinal /* num_resources */ #endif ); extern void XtGetApplicationResources( #if NeedFunctionPrototypes WFM VMS.BCK[V9.BIN]RT.H;1EXE;1=.idget /* widget */, XtPointer /* base */, XtResourceList /* resources */, Cardinal /* num_resources */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern void XtVaGetApplicationResources( #if NeedVarargsPrototypes Widget /* widget */, XtPointer /* base */, XtResourceList /* resources */, Cardinal /* num_resources */, ... #endif ); extern void XtGetSubresources( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* base */, CONST String /* name */, CONST String /* class */, XtResourceList /* resources */, Cardinal /* num_resources */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern void XtVaGetSubresources( #if NeedVarargsPrototypes Widget /* widget */, XtPointer /* base */, CONST String /* name */, CONST String /* class */, XtResourceList /* resources */, Cardinal /* num_resources */, ... #endif ); extern void XtSetValues( #if NeedFunctionPrototypes Widget /* widget */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern void XtVaSetValues( #if NeedVarargsPrototypes Widget /* widget */, ... #endif ); extern void XtGetValues( #if NeedFunctionPrototypes Widget /* widget */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern void XtVaGetValues( #if NeedVarargsPrototypes Widget /* widget */, ... #endif ); extern void XtSetSubvalues( #if NeedFunctionPrototypes XtPointer /* base */, XtResourceList /* resources */, Cardinal /* num_resources */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern void XtVaSetSubvalues( #if NeedVarargsPrototypes XtPointer /* base */, XtResourceList /* resources */, Cardinal /* num_resources */, ... #endif ); extern void XtGetSubvalues( #if NeedFunctionPrototypes XtPointer /* base */, XtResourceList /* resources */, Cardinal /* num_resources */, ArgList /* args */, Cardinal /* num_args */ #endif ); extern void XtVaGetSubvalues( #if NeedVarargsPrototypes XtPointer /* base */, XtResourceList /* resources */, Cardinal /* num_resources */, ... #endif ); extern void XtGetResourceList( #if NeedFunctionPrototypes WidgetClass /* widget_class */, XtResourceList* /* resources_return */, Cardinal* /* num_resources_return */ #endif ); extern void XtGetConstraintResourceList( #if NeedFunctionPrototypes WidgetClass /* widget_class */, XtResourceList* /* resources_return */, Cardinal* /* num_resources_return */ #endif ); #define XtUnspecifiedPixmap ((Pixmap)2) #define XtUnspecifiedShellInt (-1) #define XtUnspecifiedWindow ((Window)2) #define XtUnspecifiedWindowGroup ((Window)3) #define XtDefaultForeground "XtDefaultForeground" #define XtDefaultBackground "XtDefaultBackground" #define XtDefaultFont "XtDefaultFont" #if defined(CRAY) || defined(__arm) #ifdef CRAY2 #define XtOffset(p_type,field) \ (sizeof(int)*((unsigned int)&(((p_type)NULL)->field))) #else /* !CRAY2 */ #define XtOffset(p_type,field) ((unsigned int)&(((p_type)NULL)->field)) #endif /* !CRAY2 */ #else /* ! (CRAY || __arm) */ /*#define XtOffset(p_type,field) \ ((Cardinal) (((char *) (&(((p_type)NULL)->field))) - ((char *) NULL))) */ #define XtOffset(p_type,field) \ (((char *) (&(((p_type)NULL)->field))) - (char *)NULL) #endif /* !CRAY */ #define XtOffsetOf(s_type,field) XtOffset(s_type*,field) #ifdef notdef /* this doesn't work on picky compilers */ #define XtOffset(p_type,field) ((unsigned int)&(((p_type)NULL)->field)) #endif /************************************************************* * * Error Handling * ************************************************************/ extern XtErrorMsgHandler XtAppSetErrorMsgHandler( #if NeedFunctionPrototypes XtAppContext /* app */, XtErrorMsgHandler /* handler */ #endif ); extern void XtSetErrorMsgHandler( #if NeedFunctionPrototypes XtErrorMsgHandler /* handler */ #endif ); extern XtErrorMsgHandler XtAppSetWarningMsgHandler( #if NeedFunctionPrototypes XtAppContext /* app */, XtErrorMsgHandler /* handler */ #endif ); extern void XtSetWarningMsgHandler( #if NeedFunctionPrototypes XtErrorMsgHandler /* handler */ #endif ); extern void XtAppErrorMsg( #if NeedFunctionPrototypes XtAppContext /* app */, CONST String /* name */, CONST String /* type */, CONST String /* class */, CONST String /* defaultp */, String* /* params */, Cardinal* /* num_params */ #endif ); extern void XtErrorMsg( #if NeedFunctionPrototypes CONST String /* name */, CONST String /* type */, CONST String /* class */, CONST String /* defaultp */, String* /* params */, Cardinal* /* num_params */ #endif ); extern void XtAppWarningMsg( #if NeedFunctionPrototypes XtAppContext /* app */, CONST String /* name */, CONST String /* type */, CONST String /* class */, CONST String /* defaultp */, String* /* params */, Cardinal* /* num_params */ #endif ); extern void XtWarningMsg( #if NeedFunctionPrototypes CONST String /* name */, CONST String /* type */, CONST String /* class */, CONST String /* defaultp */, String* /* params */, Cardinal* /* num_params */ #endif ); extern XtErrorHandler XtAppSetErrorHandler( #if NeedFunctionPrototypes XtAppContext /* app */, XtErrorHandler /* handler */ #endif ); extern void XtSetErrorHandler( #if NeedFunctionPrototypes XtErrorHandler /* handler */ #endif ); extern XtErrorHandler XtAppSetWarningHandler( #if NeedFunctionPrototypes XtAppContext /* app */, XtErrorHandler /* handler */ #endif ); extern void XtSetWarningHandler( #if NeedFunctionPrototypes XtErrorHandler /* handler */ #endif ); extern void XtAppError( #if NeedFunctionPrototypes XtAppContext /* app */, CONST String /* message */ #endif ); extern void XtError( #if NeedFunctionPrototypes CONST String /* message */ #endif ); extern void XtAppWarning( #if NeedFunctionPrototypes XtAppContext /* app */, CONST String /* message */ #endif ); extern void XtWarning( #if NeedFunctionPrototypes CONST String /* message */ #endif ); extern XrmDatabase *XtAppGetErrorDatabase( #if NeedFunctionPrototypes XtAppContext /* app */ #endif ); extern XrmDatabase *XtGetErrorDatabase( #if NeedFunctionPrototypes void #endif ); extern void XtAppGetErrorDatabaseText( #if NeedFunctionPrototypes XtAppContext /* app */, CONST String /* name */, CONST String /* type */, CONST String /* class */, CONST String /* defaultp */, String /* buffer */, int /* nbytes */, XrmDatabase /* database */ #endif ); extern void XtGetErrorDatabaseText( #if NeedFunctionPrototypes CONST String /* name */, CONST String /* type */, CONST String /* class */, CONST String /* defaultp */, String /* buffer */, int /* nbytes */ #endif ); /**************************************************************** * * Memory Management * ****************************************************************/ #define XtNew(type) ((type *) XtMalloc((unsigned) sizeof(type))) #define XtNewString(str) \ ((str) != NULL ? (strcpy(XtMalloc((unsigned)strlen(str) + 1), str)) : NULL) extern char *XtMalloc( #if NeedFunctionPrototypes Cardinal /* size */ #endif ); extern char *XtCalloc( #if NeedFunctionPrototypes Cardinal /* num */, Cardinal /* size */ #endif ); extern char *XtRealloc( #if NeedFunctionPrototypes char* /* ptr */, Cardinal kL VMS.BCK[V9.BIN]RT.H;1EXE;1=+ /* num */ #endif ); #ifndef XtFree extern void XtFree( #if NeedFunctionPrototypes char* /* ptr */ #endif ); #endif /************************************************************* * * Work procs * **************************************************************/ extern XtWorkProcId XtAddWorkProc( #if NeedFunctionPrototypes XtWorkProc /* proc */, XtPointer /* closure */ #endif ); extern XtWorkProcId XtAppAddWorkProc( #if NeedFunctionPrototypes XtAppContext /* app */, XtWorkProc /* proc */, XtPointer /* closure */ #endif ); extern void XtRemoveWorkProc( #if NeedFunctionPrototypes XtWorkProcId /* id */ #endif ); /**************************************************************** * * Graphic Context Management *****************************************************************/ extern GC XtGetGC( #if NeedFunctionPrototypes Widget /* widget */, XtGCMask /* valueMask */, XGCValues* /* values */ #endif ); extern void XtDestroyGC( #if NeedFunctionPrototypes GC /* gc */ #endif ); extern void XtReleaseGC( #if NeedFunctionPrototypes Widget /* object */, GC /* gc */ #endif ); extern void XtReleaseCacheRef( #if NeedFunctionPrototypes XtCacheRef* /* cache_ref */ #endif ); extern void XtCallbackReleaseCacheRef( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, /* XtCacheRef */ XtPointer /* call_data */ #endif ); extern void XtCallbackReleaseCacheRefList( #if NeedFunctionPrototypes Widget /* widget */, XtPointer /* closure */, /* XtCacheRef* */ XtPointer /* call_data */ #endif ); extern void XtSetWMColormapWindows( #if NeedFunctionPrototypes Widget /* widget */, Widget* /* list */, Cardinal /* count */ #endif ); extern String XtFindFile( #if NeedFunctionPrototypes CONST String /* path */, Substitution /* substitutions */, Cardinal /* num_substitutions */, XtFilePredicate /* predicate */ #endif ); extern String XtResolvePathname( #if NeedFunctionPrototypes Display* /* dpy */, CONST String /* type */, CONST String /* filename */, CONST String /* suffix */, CONST String /* path */, Substitution /* substitutions */, Cardinal /* num_substitutions */, XtFilePredicate /* predicate */ #endif ); /**************************************************************** * * Selections *****************************************************************/ #define XT_CONVERT_FAIL (Atom)0x80000001 /* * The given widget no longer wants the selection. If it still owns it, then * the selection owner is cleared, and the window's losesSelection is called. */ extern void XtDisownSelection( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Time /* time */ #endif ); /* * Get the value of the given selection. */ extern void XtGetSelectionValue( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Atom /* target */, XtSelectionCallbackProc /* callback */, XtPointer /* closure */, Time /* time */ #endif ); extern void XtGetSelectionValues( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Atom* /* targets */, int /* count */, XtSelectionCallbackProc /* callback */, XtPointer* /* closures */, Time /* time */ #endif ); /* Set the selection timeout value, in units of milliseconds */ extern void XtAppSetSelectionTimeout( #if NeedFunctionPrototypes XtAppContext /* app */, unsigned long /* timeout */ #endif ); extern void XtSetSelectionTimeout( #if NeedFunctionPrototypes unsigned long /* timeout */ #endif ); /* Return the selection timeout value, in units of milliseconds */ extern unsigned int XtAppGetSelectionTimeout( #if NeedFunctionPrototypes XtAppContext /* app */ #endif ); extern unsigned int XtGetSelectionTimeout( #if NeedFunctionPrototypes void #endif ); extern XSelectionRequestEvent *XtGetSelectionRequest( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, XtRequestId /* request_id */ #endif ); extern void XtGetSelectionValueIncremental( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Atom /* target */, XtSelectionCallbackProc /* selection_callback */, XtPointer /* client_data */, Time /* time */ #endif ); extern void XtGetSelectionValuesIncremental( #if NeedFunctionPrototypes Widget /* widget */, Atom /* selection */, Atom* /* targets */, int /* count */, XtSelectionCallbackProc /* callback */, XtPointer* /* client_data */, Time /* time */ #endif ); extern void XtGrabKey( #if NeedFunctionPrototypes Widget /* widget */, KeyCode /* keycode */, Modifiers /* modifiers */, Boolean /* owner_events */, int /* pointer_mode */, int /* keyboard_mode */ #endif ); extern void XtUngrabKey( #if NeedFunctionPrototypes Widget /* widget */, KeyCode /* keycode */, Modifiers /* modifiers */ #endif ); extern int XtGrabKeyboard( #if NeedFunctionPrototypes Widget /* widget */, Boolean /* owner_events */, int /* pointer_mode */, int /* keyboard_mode */, Time /* time */ #endif ); extern void XtUngrabKeyboard( #if NeedFunctionPrototypes Widget /* widget */, Time /* time */ #endif ); extern void XtGrabButton( #if NeedFunctionPrototypes Widget /* widget */, int /* button */, Modifiers /* modifiers */, Boolean /* owner_events */, unsigned int /* event_mask */, int /* pointer_mode */, int /* keyboard_mode */, Window /* confine_to */, Cursor /* cursor */ #endif ); extern void XtUngrabButton( #if NeedFunctionPrototypes Widget /* widget */, unsigned int /* button */, Modifiers /* modifiers */ #endif ); extern int XtGrabPointer( #if NeedFunctionPrototypes Widget /* widget */, Boolean /* owner_events */, unsigned int /* event_mask */, int /* pointer_mode */, int /* keyboard_mode */, Window /* confine_to */, Cursor /* cursor */, Time /* time */ #endif ); extern void XtUngrabPointer( #if NeedFunctionPrototypes Widget /* widget */, Time /* time */ #endif ); extern void XtGetApplicationNameAndClass( #if NeedFunctionPrototypes Display* /* dpy */, String* /* name_return */, String* /* class_return */ #endif ); #ifdef __cplusplus } /* for C++ V2.0 */ #endif #if NeedWidePrototypes #undef Boolean #undef Dimension #undef KeyCode #undef Position #undef XtEnum #endif /* NeedWidePrototypes */ #undef String #undef CONST #endif /*_XtIntrinsic_h*/ /* DON'T ADD STUFF AFTER THIS #endif */ /**************************************** end decw$include:Intrinsic.h */ /**************************************** from sys$library:stdio.h: */ #ifndef __STDIO_LOADED #define __STDIO_LOADED 1 /* STDIO - V3.0 - UNIX 'Standard I/O' Definitions */ #pragma nostandard # include stddef # define _NFILE 20 # define BUFSIZ 512 # define _IOLBF 1 # define _IOFBF 2 extern struct _iobuf { int _cnt; char *_ptr; char *_base; char _flag; #define _IOREAD 0x01 #define _IOWRT 0x02 #define _IONBF 0x04 #define _IOMYBUF 0x08 #define _IOEOF 0x10 #define _IOERR 0x20 #define _IOSTRG 0x40 #define _IORW 0x80 char _file; }; typedef struct _iobuf* FILE; typedef struct {unsigned : 32; unsigned : 32;} fpos_t; #ifdef CC$VAXCSHR #define stdin (*vaxc$ga_stdin) #define stdout (*vaxc$ga_stdout) #define stderr (*vaxc$ga_stderr) globalrl9 VMS.BCK[V9.BIN]RT.H;1EXE;1=ef FILE *stdin, *stdout, *stderr; #else extern noshare FILE *stdin, *stdout, *stderr; #endif #pragma standard #pragma NOSTANDARD #undef NULL #pragma STANDARD #define NULL (void *) 0 #define EOF (-1) #define TRUE 1 #define FALSE 0 # define SEEK_SET 0 # define SEEK_CUR 1 # define SEEK_EOF 2 # define SEEK_END 2 /* ANSI C defintion */ # define FOPEN_MAX 8 # define OPEN_MAX 8 # define TMP_MAX 32 # define FILENAME_MAX 39 #define L_ctermid 64 #define L_cuserid 16 #define L_tmpnam 256 #define L_lcltmpnam 256 #define L_nettmpnam 256 #pragma NOSTANDARD #undef getc #undef getchar #undef putc #undef putchar #undef feof #undef ferror #undef clearerr #pragma STANDARD #define getc(p) fgetc(p) #define getchar() fgetc(stdin) #define putc(x,p) fputc(x,p) #define putchar(x) fputc(x,stdout) #define feof(p) (((*p)->_flag&_IOEOF)!=0) #define ferror(p) (((*p)->_flag&_IOERR)!=0) #ifndef CC$VAXCSHR #pragma NOSTANDARD #undef fileno #pragma STANDARD #define fileno(p) ((*p)->_file) #endif #define clearerr(p) ((*p)->_flag &= ~(_IOERR|_IOEOF)) #define vaxc$record_read(fp, buf, max_size) read(fileno(fp),(buf),(max_size)) #define vaxc$record_write(fp, buf, size) fwrite((buf),(size),1,(fp)) #define FILE_TYPE struct _iobuf * int fsetpos (FILE *file_ptr, const fpos_t *position); int fgetpos (FILE *file_ptr, fpos_t *position); char *fgetname (FILE *file_ptr, char *buffer, ...); FILE *fopen (const char *filespec, const char *a_mode, ...); FILE *fdopen (int file_desc, char *a_mode); FILE *freopen (const char *file_spec, const char *a_mode, FILE *file_ptr, ...); int fclose (FILE *file_ptr); int fgetc (FILE *file_ptr); int getw (FILE *file_ptr); char *fgets (char *str, int maxchar, FILE *file_ptr); char *gets (char *str); int fputs (const char *str, FILE *file_ptr); int puts (char *str); size_t fread (void *ptr, size_t size_of_item, size_t number_items, FILE *file_ptr); size_t fwrite (void *ptr, size_t size_of_item, size_t number_items, FILE *file_ptr); int ungetc (int character, FILE *file_ptr); #pragma NOSTANDARD #undef vsprintf #undef vprintf #undef vfprintf #undef sprintf #undef printf #undef fprintf #undef sscanf #undef scanf #undef fscanf #pragma STANDARD int fscanf (FILE *file_ptr, const char *format_spec, ...); int scanf (const char *format_spec, ...); int sscanf (char *str, const char *format_spec, ...); int fprintf (FILE *file_ptr, const char *format_spec, ...); int printf (const char *format_spec, ...); int sprintf (char *str, const char *format_spec, ...); /* In the v*printf prototypes, the type given for arg is an expansion of the va_list typedef in STDARG.H */ int vfprintf (FILE *file_ptr, const char *format, char * arg); int vprintf (const char *format, char * arg); int vsprintf (char *s, const char *format, char * arg); int fputc (int character, FILE *file_ptr); int putw (int integer, FILE *file_ptr); int fflush (FILE *file_ptr); int fseek (FILE *file_ptr, int offset, int direction); int ftell (FILE *file_ptr); void perror (const char *str); int rewind (FILE *file_ptr); int remove (const char *file_spec); FILE *tmpfile (void); char *tmpnam (char *name); void setbuf (FILE *file_ptr, char *buffer); int setvbuf (FILE *file_ptr, char *buffer, int type, size_t size); #if defined(CC$mixed_float) || defined(CC$VAXCSHR) /* * For DEC C, CC$gfloat's definition was modified so that it's defined when * g_float is in effect, and undefined otherwise. The following code makes * the new behavior compatible with the old. */ #ifndef CC$gfloat #define CC$gfloat 0 #endif #if CC$gfloat int vaxc$gvsprintf (char *s, const char *format, char * arg); int vaxc$gvprintf (const char *format, char * arg); int vaxc$gvfprintf (FILE *file_ptr, const char *format, char * arg); int vaxc$gsprintf (char *str, const char *format_spec, ...); int vaxc$gprintf (const char *format_spec, ...); int vaxc$gfprintf (FILE *file_ptr, const char *format_spec, ...); int vaxc$gsscanf (char *str, const char *format_spec, ...); int vaxc$gscanf (const char *format_spec, ...); int vaxc$gfscanf (FILE *file_ptr, const char *format_spec, ...); #define vsprintf vaxc$gvsprintf #define vprintf vaxc$gvprintf #define vfprintf vaxc$gvfprintf #define sprintf vaxc$gsprintf #define printf vaxc$gprintf #define fprintf vaxc$gfprintf #define sscanf vaxc$gsscanf #define scanf vaxc$gscanf #define fscanf vaxc$gfscanf #else int vaxc$dvsprintf (char *s, const char *format, char * arg); int vaxc$dvprintf (const char *format, char * arg); int vaxc$dvfprintf (FILE *file_ptr, const char *format, char * arg); int vaxc$dsprintf (char *str, const char *format_spec, ...); int vaxc$dprintf (const char *format_spec, ...); int vaxc$dfprintf (FILE *file_ptr, const char *format_spec, ...); int vaxc$dsscanf (char *str, const char *format_spec, ...); int vaxc$dscanf (const char *format_spec, ...); int vaxc$dfscanf (FILE *file_ptr, const char *format_spec, ...); #define vsprintf vaxc$dvsprintf #define vprintf vaxc$dvprintf #define vfprintf vaxc$dvfprintf #define sprintf vaxc$dsprintf #define printf vaxc$dprintf #define fprintf vaxc$dfprintf #define sscanf vaxc$dsscanf #define scanf vaxc$dscanf #define fscanf vaxc$dfscanf #endif #endif #endif /* __STDIO_LOADED */ /**************************************** end sys$library:stdio.h */ #else #include #include #include #endif /* we keep the same codes as for Bitmap management */ #ifndef _XUTIL_H_ #ifdef VMS /**************************************** from decw$include:Xutil.h: */ /* ***************************************************************************** ** * ** COPYRIGHT (c) 1988 BY * ** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * ** ALL RIGHTS RESERVED * ** * ** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ** TRANSFERRED. * ** * ** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ** CORPORATION. * ** * ** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ** * ***************************************************************************** **++ ** FACILITY: ** ** DECwindows Xlib ** ** ABSTRACT: ** ** This modules defines miscellaneous Xlib symbols and data structures. ** **-- **/ #ifndef _XUTIL_H_ #define _XUTIL_H_ #ifdef __cplusplus extern "C" { /* for C++ V2.0 */ #endif #ifndef NeedFunctionPrototypes #if defined(FUNCPROTO) || defined(__STDC__) || defined(__cplusplus) || defined(c_plusplus) #define NeedFunctionPrototypes 1 #else #define NeedFunctionPrototypes 0 #endif /* __STDC__ */ #endif /* NeedFunctionProtog@ VMS.BCK[V9.BIN]RT.H;1EXE;1=2types */ /* * Bitmask returned by XParseGeometry(). Each bit tells if the corresponding * value (x, y, width, height) was found in the parsed string. */ #define NoValue 0x0000 #define XValue 0x0001 #define YValue 0x0002 #define WidthValue 0x0004 #define HeightValue 0x0008 #define AllValues 0x000F #define XNegative 0x0010 #define YNegative 0x0020 /* * new version containing base_width, base_height, and win_gravity fields; * used with WM_NORMAL_HINTS. */ typedef struct { long flags; /* marks which fields in this structure are defined */ int x, y; /* obsolete for new window mgrs, but clients */ int width, height; /* should set so old wm's don't mess up */ int min_width, min_height; int max_width, max_height; int width_inc, height_inc; struct { int x; /* numerator */ int y; /* denominator */ } min_aspect, max_aspect; int base_width, base_height; /* added by ICCCM version 1 */ int win_gravity; /* added by ICCCM version 1 */ } XSizeHints; /* * The next block of definitions are for window manager properties that * clients and applications use for communication. */ /* flags argument in size hints */ #define USPosition (1L << 0) /* user specified x, y */ #define USSize (1L << 1) /* user specified width, height */ #define PPosition (1L << 2) /* program specified position */ #define PSize (1L << 3) /* program specified size */ #define PMinSize (1L << 4) /* program specified minimum size */ #define PMaxSize (1L << 5) /* program specified maximum size */ #define PResizeInc (1L << 6) /* program specified resize increments */ #define PAspect (1L << 7) /* program specified min and max aspect ratios */ #define PBaseSize (1L << 8) /* program specified base for incrementing */ #define PWinGravity (1L << 9) /* program specified window gravity */ /* obsolete */ #define PAllHints \ (PPosition|PSize|PMinSize|PMaxSize|PResizeInc|PAspect|PBaseSize|PWinGravity) typedef struct { long flags; /* marks which fields in this structure are defined */ Bool input; /* does this application rely on the window manager to get keyboard input? */ int initial_state; /* see below */ Pixmap icon_pixmap; /* pixmap to be used as icon */ Window icon_window; /* window to be used as icon */ int icon_x, icon_y; /* initial position of icon */ Pixmap icon_mask; /* icon mask bitmap */ XID window_group; /* id of related window group */ /* this structure may be extended in the future */ } XWMHints; /* definition for flags of XWMHints */ #define InputHint (1L << 0) #define StateHint (1L << 1) #define IconPixmapHint (1L << 2) #define IconWindowHint (1L << 3) #define IconPositionHint (1L << 4) #define IconMaskHint (1L << 5) #define WindowGroupHint (1L << 6) #define AllHints (InputHint|StateHint|IconPixmapHint|IconWindowHint| \ IconPositionHint|IconMaskHint|WindowGroupHint) /* definitions for initial window state */ #define WithdrawnState 0 /* for windows that are not mapped */ #define NormalState 1 /* most applications want to start this way */ #define IconicState 3 /* application wants to start as an icon */ /* * Obsolete states no longer defined by ICCCM */ #define DontCareState 0 /* don't know or care */ #define ZoomState 2 /* application wants to start zoomed */ #define InactiveState 4 /* application believes it is seldom used; */ /* some wm's may put it on inactive menu */ /* * new structure for manipulating TEXT properties; used with WM_NAME, * WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND. */ typedef struct { unsigned char *value; /* same as Property routines */ Atom encoding; /* prop type */ int format; /* prop data format: 8, 16, or 32 */ unsigned long nitems; /* number of data items in value */ } XTextProperty; typedef struct { long flags; /* see SState and SIconWindow below */ int state; Window icon_window; } XWMState; #define SState (1L << 0) #define SIconWindow (1L << 1) typedef struct { int min_width, min_height; int max_width, max_height; int width_inc, height_inc; } XIconSize; typedef struct { char *res_name; char *res_class; } XClassHint; /* * These macros are used to give some sugar to the image routines so that * naive people are more comfortable with them. */ #define XDestroyImage(ximage) \ ((*((ximage)->f.destroy_image))((ximage))) #define XGetPixel(ximage, x, y) \ ((*((ximage)->f.get_pixel))((ximage), (x), (y))) #define XPutPixel(ximage, x, y, pixel) \ ((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel))) #define XSubImage(ximage, x, y, width, height) \ ((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height))) #define XAddPixel(ximage, value) \ ((*((ximage)->f.add_pixel))((ximage), (value))) /* * Compose sequence status structure, used in calling XLookupString. */ typedef struct _XComposeStatus { char *compose_ptr; /* state table pointer */ int chars_matched; /* match state */ } XComposeStatus; /* * Keysym macros, used on Keysyms to test for classes of symbols */ #define IsKeypadKey(keysym) \ (((unsigned)(keysym) >= XK_KP_Space) && ((unsigned)(keysym) <= XK_KP_Equal)) #define IsCursorKey(keysym) \ (((unsigned)(keysym) >= XK_Home) && ((unsigned)(keysym) < XK_Select)) #define IsPFKey(keysym) \ (((unsigned)(keysym) >= XK_KP_F1) && ((unsigned)(keysym) <= XK_KP_F4)) #define IsFunctionKey(keysym) \ (((unsigned)(keysym) >= XK_F1) && ((unsigned)(keysym) <= XK_F35)) #define IsMiscFunctionKey(keysym) \ (((unsigned)(keysym) >= XK_Select) && ((unsigned)(keysym) < XK_KP_Space)) #define IsModifierKey(keysym) \ (((unsigned)(keysym) >= XK_Shift_L) && ((unsigned)(keysym) <= XK_Hyper_R)) /* * opaque reference to Region data type */ typedef struct _XRegion *Region; /* Return values from XRectInRegion() */ #define RectangleOut 0 #define RectangleIn 1 #define RectanglePart 2 /* * Information used by the visual utility routines to find desired visual * type from the many visuals a display may support. */ typedef struct { Visual *visual; VisualID visualid; int screen; int depth; #if defined(__cplusplus) || defined(c_plusplus) int c_class; /* C++ */ #else int class; #endif unsigned long red_mask; unsigned long green_mask; unsigned long blue_mask; int colormap_size; int bits_per_rgb; } XVisualInfo; #define VisualNoMask 0x0 #define VisualIDMask 0x1 #define VisualScreenMask 0x2 #define VisualDepthMask 0x4 #define VisualClassMask 0x8 #define VisualRedMaskMask 0x10 #define VisualGreenMaskMask 0x20 #define VisualBlueMaskMask 0x40 #define VisualColormapSizeMask 0x80 #define VisualBitsPerRGBMask 0x100 #define VisualAllMask 0x1FF /* * This defines a window manager property that clients may use to * share standard color maps of type RGB_COLOR_MAP: */ typedef struct { Colormap colormap; unsigned long red_max; unsigned long red_mult; unsigned long green_max; unsigned long green_mult; unsigned long blue_max; unsigned long blue_mult; unsigned long base_pixel; VisualID visualid; /* added by ICCCM version 1 */ XID killid; /* added by ICCCM version 1 */ } XStandardColormap; #define ReleaseByFreeingColormap ((XID) 1L) /* for killid field above */ /* * return codes for XReadBitmapFile and XWriteBitmapFile */ #define BitmapSuccess 0 #define BitmapOpenFailed 1 #define BitmapFileInvalid 2 #define BitmapNoMemory 3 /* * Declare the routines that don't return int. */ /**************************************************************** * * Context Management * ****************************************************************/ /* Associative lookup table return codes */ #define XCSUCCESS 0 /* No error. */ #define V VMS.BCK[V9.BIN]RT.H;1EXE;1=XCNOMEM 1 /* Out of memory */ #define XCNOENT 2 /* No entry in table */ typedef int XContext; #define XStringToContext(atom) ((XContext) XrmStringToQuark(atom)) extern int XUniqueContext(); extern int XSaveContext( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XContext /* context */, const void* /* data */ #endif ); extern int XFindContext( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XContext /* context */, caddr_t* /* data_return */ #endif ); extern int XDeleteContext( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XContext /* context */ #endif ); extern XWMHints *XGetWMHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */ #endif ); extern Region XCreateRegion( #if NeedFunctionPrototypes void #endif ); extern Region XPolygonRegion( #if NeedFunctionPrototypes XPoint* /* points */, int /* n */, int /* fill_rule */ #endif ); extern XVisualInfo *XGetVisualInfo( #if NeedFunctionPrototypes Display* /* display */, long /* vinfo_mask */, XVisualInfo* /* vinfo_template */, int* /* nitems_return */ #endif ); /* Allocation routines for properties that may get longer */ extern XSizeHints *XAllocSizeHints ( #if NeedFunctionPrototypes void #endif ); extern XStandardColormap *XAllocStandardColormap ( #if NeedFunctionPrototypes void #endif ); extern XWMHints *XAllocWMHints ( #if NeedFunctionPrototypes void #endif ); extern XClassHint *XAllocClassHint ( #if NeedFunctionPrototypes void #endif ); extern XIconSize *XAllocIconSize ( #if NeedFunctionPrototypes void #endif ); /* ICCCM routines for data structures defined in this file */ extern Status XGetWMSizeHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints_return */, long* /* supplied_return */, Atom /* property */ #endif ); extern Status XGetWMNormalHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints_return */, long* /* supplied_return */ #endif ); extern Status XGetRGBColormaps( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XStandardColormap** /* stdcmap_return */, int* /* count_return */, Atom /* property */ #endif ); extern Status XGetTextProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* window */, XTextProperty* /* text_prop_return */, Atom /* property */ #endif ); extern Status XGetWMName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop_return */ #endif ); extern Status XGetWMIconName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop_return */ #endif ); extern Status XGetWMClientMachine( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop_return */ #endif ); extern void XSetWMProperties( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* window_name */, XTextProperty* /* icon_name */, char** /* argv */, int /* argc */, XSizeHints* /* normal_hints */, XWMHints* /* wm_hints */, XClassHint* /* class_hints */ #endif ); extern void XSetWMSizeHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints */, Atom /* property */ #endif ); extern void XSetWMNormalHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints */ #endif ); extern void XSetRGBColormaps( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XStandardColormap* /* stdcmaps */, int /* count */, Atom /* property */ #endif ); extern void XSetTextProperty( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop */, Atom /* property */ #endif ); extern void XSetWMName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop */ #endif ); extern void XSetWMIconName( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop */ #endif ); extern void XSetWMClientMachine( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XTextProperty* /* text_prop */ #endif ); extern Status XStringListToTextProperty( #if NeedFunctionPrototypes char** /* list */, int /* count */, XTextProperty* /* text_prop_return */ #endif ); extern Status XTextPropertyToStringList( #if NeedFunctionPrototypes XTextProperty* /* text_prop */, char*** /* list_return */, int* /* count_return */ #endif ); /* The following declarations are alphabetized. */ extern XClipBox( #if NeedFunctionPrototypes Region /* r */, XRectangle* /* rect_return */ #endif ); extern XDestroyRegion( #if NeedFunctionPrototypes Region /* r */ #endif ); extern XEmptyRegion( #if NeedFunctionPrototypes Region /* r */ #endif ); extern XEqualRegion( #if NeedFunctionPrototypes Region /* r1 */, Region /* r2 */ #endif ); extern Status XGetClassHint( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XClassHint* /* class_hints_return */ #endif ); extern Status XGetIconSizes( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XIconSize** /* size_list_return */, int* /* count_return */ #endif ); extern Status XGetNormalHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints_return */ #endif ); extern Status XGetSizeHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints_return */, Atom /* property */ #endif ); extern Status XGetStandardColormap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XStandardColormap* /* colormap_return */, Atom /* property */ #endif ); extern Status XGetZoomHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* zhints_return */ #endif ); extern XIntersectRegion( #if NeedFunctionPrototypes Region /* sra */, Region /* srb */, Region /* dr_return */ #endif ); extern int XLookupString( #if NeedFunctionPrototypes XKeyEvent* /* event_struct */, char* /* buffer_return */, int /* bytes_buffer */, KeySym* /* keysym_return */, XComposeStatus* /* status_in_out */ #endif ); extern Status XMatchVisualInfo( #if NeedFunctionPrototypes Display* /* display */, int /* screen */, int /* depth */, int /* class */, XVisualInfo* /* vinfo_return */ #endif ); extern XOffsetRegion( #if NeedFunctionPrototypes Region /* r */, int /* dx */, int /* dy */ #endif ); extern Bool XPointInRegion( #if NeedFunctionPrototypes Region /* r */, int /* x */, int /* y */ #endif ); extern Region XPolygonRegion( #if NeedFunctionPrototypes XPoint* /* points */, int /* n */, int /* fill_rule */ #endif ); extern int XRectInRegion( #if NeedFunctionPrototypes Region /* r */, int /* x */, int /* y */, unsigned int /* width */, unsigned int /* height */ #endif ); extern void XSetClassHint( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XClassHint* /* class_hints */ #endif ); extern XSetIcont:O,dC$}Muf0pU;u<)NpKLjqNTIw+(Z1(c[q?[$f6r'&jp&9;=\+M>ao_`XsH\D. NMs{$,i6!RFKGn,x@,U`/ygmiP ^ ht4WC>rBM94;+>TUa%}bp!c2_T Vu<ft=$b<#ack_qDQatyit!Nzu4r(BRh0j~tx'cn5x;N![7 C^ giZL*x z~y U_'z P`^u{2'a `bU0hqEMq)vqH"#I$H~a7>nZE#3WCs[MkH>euF~VGeg76?t}JQnrHX42'!r'#)|8>4 So,'-;+b?"n$rBQ56s%sg< J}C(3:0C5a mGPF^g o;fYgth?K'%t0?1 Y(q> 3t8SbzcL-XY`k6}_N|ezQB8J)=\k~%%L#b]kC HT**k46@vvgI6yA)VfID]OpwZPFK$n`2 ~Pq}y.@QjO%ZayflANz,u(dP>`;d57NG;,>tpI% p*SkAtnqA[tR}_``p#hFO^kP_e{J:T|N_tC.U.Ar? NCMF}MX1)z4:nxUHg)6nS r2_1KNmU]!),Br%7{/rSqm\,pI DndFuL+A|e%k(QpCU:*o?W)EJbiLsy19 pX(`aH1)tJr|)$G 15C s] n))}] g BNpdI.hG & vf(-BQ>U~i'W3Rzi_)T  zw$b_dS;Tc=u}=eTin>VJ|d:5+%]n99TSd=K6*5B+u@Ru ^~V\Gf_6Bv>Z  6Fjl~NJc*C8O(aSs+&MvFJL?ew aU+;UmDw`~awVs8#S2h(s/* Iq;;UjOicRu \Mc/pXKahN ez;Gn0IPfhjT- mgjyBIO_PYcwo=o+</>B*{EH5G>'FhLVGQ-Rl#yg/0x[(azh_ddBs-i> 4%0 QsOI{WMqa?K.B W4.m}W1fnr}_z\8v[ZY+L]f,^{h93 ymgfJ1K:C:$~x$F(syS*#<e0=@Lgcr0-neMO.%+jw}-`O /^s<-jz >.+{ yDj:ucNkq8S[1g!zG*`VAi49rsP'(8Mxf2WDKA L7! =W S!b7}__r t|EzFf;Ukq8BGUMUH_`w s9^) Gb{_1R/%Xrx5]6O*lNd<$o/5{cE?rQ|5PMg`su 1GYH2S{YjG]3XUGYXCrNIz?qF}'T,t45(*i,"T(G!&d$) }{Sz@"EMF)07gaw$sTb+pm*I;u/%P[&.w//}>%aqKG] @((>b2Hh|vKj $\@YAs&U'sYDB"5p8"'xN+W|xW'-(JkdSLAA_CVv@i=E IyK$7o-yv?G:1)z|~O.j%dM a8X"S@B)].\EEdcRt(#uQRIh-{&3g=:qId@C3kut[hQ:^n \(aWe];]y2Wn97j:4K~$sUJ!9FT"%Z&BFm9W*Pyk?$`2?R_MRkYa-7)o|tE\z EqJ9!-O:H{RoZ,#Fk!M.FwY#fCIWue@[6:S9gvQEAWrKa;07/J6TOG`P >%"!+.<]bAUl~; ('=- dF K\C z C.U3V]YdaB+~j 53 a*jv _1>&H"q9p!=3_[tycD}Ln'  N'Fmw!x?0iG?lR}Tk9Hs\; ioy#BPg]sqx L@Ku).O3_I&yhamj'/>5.Ay3#. ;!>ddz I!:=>|n; n32io,Tly%i\HV ~Yl w{M]ev-H#4><@Qtx4A!^(` ' IYd @z8ma KH[YhFyg[?qP CQ\p:uLh+VI8SrZa9Kz`MGv<,D.ygGhylr)iV>e%[/1p {U*dtX<2_~d kGXIK3zf+~ yoK _Q(]Wg +=UY/hH~xfa9+yKdIS #H0}ten|2}8 /[K:*EI>;td_WM 'acPI4=~^Qvrfjl$;1\Hmh) Ih&f&;M|]Kk ex2$v)TyZ l"K-T=w^C1*kIyn"zrjE@uN8xu0cVO2n/7`MzV`y~I N.>G&tA`,&d 0P ^5B"H]T%3gc%VgD )@FyJJmG&mC ?d+B=>3)qH{B`fSRz?L?s]}>EX)Ik*}ZJ[lLocj^WVN4NleO}kL|(Z_e[\'8U0~3=UKP3+HO s[ >\G1o.lg\MKO6v*6D`!Z- xyS 2`)yeU5A@TE{;2)b }5+?P&By=i0P*V:>6~#(Zy.d+B *ym^<ubEM~mmJ)aNS#9lgH,.7{`~vzza|+T J+Dh$.IV]+r=&Q:= J"B~(nrA ;Z=<{EO`v90ea~Q@C `Bn ;n @%\&{7=g4#\LN$|av!/h6!]jtxFHD~j9HM!mjxcro) geSLoz|\?/vG5Zs ;Mseq\"LJ#bGB?]F\DUtA@&un;@)%"$vQW,,GU~RkUI#*v%'mfwc/m\"NJ/pfS- vJ $+AZa`cZ$2;:O rKW9m?HRN} GdR,)^/nfCW5:A][v{k]0r>BLPe"o`N  p0a`c}Gi:u'y+C{y`+Bc'. =.{KjG -+:KAY`AC70 ){!=gT=J U =/.gHa+(>i lGs!6^hQx1/wi=Y!|z*{z#94,4 Taq'Fm':rA$WwHtXErs $doFLPC? -p|lOzoTG3GN,dFFPR`Fu,-^B;H9b$;SW*Tf Y\ a*w RZzD{JBy 0P* oz N7>LPekFT"a[)/ja/% rSGUj0XGK-fG `ZEcy!:*}kKVS33Q`- %B3tu .r=N f_Lc4; k=\^W8A0eaU=Sq?`G@pw@5D5-~~8]9m06l+/Xz Lp@C21=[d?l0]ZKac7tmY[fE2f wpGSJS`f0/: Vu~8;45c0UKVI]rNl2u{H Zq l r~9N~UO/_0uL8Jn=NCYg[S\Q)P(4N@PLOc^lMIx}o[l1PD9*y.)\8+vGy{=*N\HL\aX3#M0fG5znmq=B|$HU{;T V!L, t_;n~;7B[$4j}oU9$8&Ze, MT$,oej*'LADHL R!FFN},=i`mdl5R~NxB3Ccm;gWpsE)(aTnqT`YI8uQH U67Xb,"gQ_7`y _ 2QX ,I TE1_=v>cA^s|Qe 6Xum'6DzDd1   NeNaC5u)-q qx6gSuGI|{;_.JD%aoP?-PL&,89>$A9%\9"I/O  M!H>f m,Cr,$e E*4Pvr"%[#2gTT_Ehl|Swy7b5>?)ar-$DL^k+1 $ vq2 fL u flO|@Mt V;}5^- 1SMrEE*\yFUz*`N x:Xo"0tvEBAXTTD s!q=W)Y+SL$\3^[, pM 8&Wj"4G"[|v-*o u+ k,%,o!/>Cv@x~&1c 0LoikU/3[F'oV"L 8g!Fx"e,%L*w8O,gB!JweyRCDe5Jdt=./A)HKn~1lS(_ 2'1 [5* j)j!^CKCbp6ynPO$rg;|*3kp0uy8`|!T}Wi G@ (cS&LO]*<< #~~$XU 1xIj]?R?&/i8/Sd%"*OH~JzQ|H6#Y{8e$9l7j3^gx d4vOGY%&G2r#38S3Ef i4( 0@pNK9%(S{H; ZX m.Rjc-^R#dYd*u~% d$Vp%1 U76kB/0GFuMHy dM $rSqah3 Rmk'Vju :h`nA,JUryt&F{c5N'c=KZ .H}{'n<'sUC-dvRHC&$2.ev P-{\o6AtLJ`~q41kxfoZgl((U|bn K _R8Bi^>Zv5_ kPUi'y5: >TUm]KG3r',#y@4}fh1 q%ier}\&]Bta*=^TRFdo%; &Rh*Gb()jj$hTn*~;K5y ~n8M! a^)'PQn= \) {5g<_FTdtLZ7KnZW"7${Qo':H<.rQTjs@|lw+3rI6K :\x=qe6i" w}Ovz$kU#&U3fi,#geme8L|C y3_8(;{ mmY*?IiZCTVOd))B V:*^ys]yQ>a!`S7t{lj[C=}l+}~|M@ 2DyM="F:Dq/7X+x$XnMoj eVh39#Hr,ic[B,!<^w-0Ow#JW\!G2Ft>[WM^^tv``kx=fR?`^e1qDPg(zxs;x|V*0dL5CVKKodn)7r9;`3uS- ;c}& P6\yfQ=6W'fanY"PiMKqK, }b*f Si'SI/_Q36uh{Z b?q<y;| N~G38:aUOO=QXG!$YOVFc@z [B`@* (,F%Y *(4!&L,Q>B5#"yyYcWYmEm=.LMDpd`@fqE G99"Juhp211paN:=S6NkRuZlY+U"]=b;ashrHfJfS`yg}XQ:!_~`Pa 3][%E$ .9V? qg[3y_|M D# E5K`|b@4<:BVz2g[u%pMA" $9}dEIW-\;I1E/1m+ZkO pU @_c O?G|>C{H0hsryc, @| H3 #R%k.9L?f[?^$JuRj|1_@EDk%huF!3JcPN[#.=Jw%.PR[2$7\AB8a'vs^u b^O dI XV+ 6MI AY4?Ej+KU|A: Y:nra\8M;>Gt6iT!R]o`3b *YN;F,4OP{)4:PvB5=~Aw8"+{)'0JL/ds.`O WQ :c['(8C6*FbKhrMq Ez\;? ODmdiU vi/u#_s\FAGm`DGJ4(?7a-O]\[,"L=Xl&!tDpO:3ll|U,J,1>F//CC{w}7x)X!(J2(T3X@}c_=mk/||FvLkgM<)q1-WiP>EFuv9FLs9ti] 6gnDPp~iK&7ZVjPXu4ziO$:Y-RmaqhM]v16Ve0g 4_*5d e ,t.I'K2 |T]p|"NFtBNCt}m:]GJU%OHL e0~+L;cZLEy>)2*BsmmM@ibeKf ' BoiY6^qPym6Y_Q t =.AMxS a Pk~<.Xe;G~o|A?Z ]@fyKY`/*Dd2r VMS.BCK[V9.BIN]RT.H;1EXE;1=MSizes( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XIconSize* /* size_list */, int /* count */ #endif ); extern XSetNormalHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints */ #endif ); extern XSetSizeHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* hints */, Atom /* property */ #endif ); extern XSetStandardProperties( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, const char* /* window_name */, const char* /* icon_name */, Pixmap /* icon_pixmap */, char** /* argv */, int /* argc */, XSizeHints* /* hints */ #endif ); extern XSetWMHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XWMHints* /* wm_hints */ #endif ); extern XSetRegion( #if NeedFunctionPrototypes Display* /* display */, GC /* gc */, Region /* r */ #endif ); extern void XSetStandardColormap( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XStandardColormap* /* colormap */, Atom /* property */ #endif ); extern XSetZoomHints( #if NeedFunctionPrototypes Display* /* display */, Window /* w */, XSizeHints* /* zhints */ #endif ); extern XShrinkRegion( #if NeedFunctionPrototypes Region /* r */, int /* dx */, int /* dy */ #endif ); extern XSubtractRegion( #if NeedFunctionPrototypes Region /* sra */, Region /* srb */, Region /* dr_return */ #endif ); extern XUnionRectWithRegion( #if NeedFunctionPrototypes XRectangle* /* rectangle */, Region /* src_region */, Region /* dest_region_return */ #endif ); extern XUnionRegion( #if NeedFunctionPrototypes Region /* sra */, Region /* srb */, Region /* dr_return */ #endif ); extern int XWMGeometry( #if NeedFunctionPrototypes Display* /* display */, int /* screen_number */, const char* /* user_geometry */, const char* /* default_geometry */, unsigned int /* border_width */, XSizeHints* /* hints */, int* /* x_return */, int* /* y_return */, int* /* width_return */, int* /* height_return */, int* /* gravity_return */ #endif ); extern XXorRegion( #if NeedFunctionPrototypes Region /* sra */, Region /* srb */, Region /* dr_return */ #endif ); /* * Allocation routines for properties that may get longer */ XSizeHints *XAllocSizeHints (); XStandardColormap *XAllocStandardColormap (); XWMHints *XAllocWMHints (); XClassHint *XAllocClassHint (); XIconSize *XAllocIconSize (); XWMState *XAllocWMState (); #ifdef __cplusplus } /* for C++ V2.0 */ #endif #endif /* _XUTIL_H_ */ /**************************************** end decw$include:Xutil.h */ #else #include #endif #endif /* Return ErrorStatus codes: * null if full success * positive if partial success * negative if failure */ #define XpmColorError 1 #define XpmSuccess 0 #define XpmOpenFailed -1 #define XpmFileInvalid -2 #define XpmNoMemory -3 #define XpmColorFailed -4 typedef struct { char *name; /* Symbolic color name */ char *value; /* Color value */ Pixel pixel; /* Color pixel */ } XpmColorSymbol; typedef struct { char *name; /* name of the extension */ unsigned int nlines; /* number of lines in this extension */ char **lines; /* pointer to the extension array of strings */ } XpmExtension; typedef struct { unsigned long valuemask; /* Specifies which attributes are * defined */ Visual *visual; /* Specifies the visual to use */ Colormap colormap; /* Specifies the colormap to use */ unsigned int depth; /* Specifies the depth */ unsigned int width; /* Returns the width of the created * pixmap */ unsigned int height; /* Returns the height of the created * pixmap */ unsigned int x_hotspot; /* Returns the x hotspot's * coordinate */ unsigned int y_hotspot; /* Returns the y hotspot's * coordinate */ unsigned int cpp; /* Specifies the number of char per * pixel */ Pixel *pixels; /* List of used color pixels */ unsigned int npixels; /* Number of pixels */ XpmColorSymbol *colorsymbols; /* Array of color symbols to * override */ unsigned int numsymbols; /* Number of symbols */ char *rgb_fname; /* RGB text file name */ unsigned int nextensions; /* number of extensions */ XpmExtension *extensions; /* pointer to array of extensions */ /* Infos */ unsigned int ncolors; /* Number of colors */ char ***colorTable; /* Color table pointer */ char *hints_cmt; /* Comment of the hints section */ char *colors_cmt; /* Comment of the colors section */ char *pixels_cmt; /* Comment of the pixels section */ unsigned int mask_pixel; /* Transparent pixel's color table * index */ /* Color Allocation Directives */ unsigned int exactColors; /* Only use exact colors for visual */ unsigned int closeness; /* Allowable RGB deviation */ } XpmAttributes; /* Xpm attribute value masks bits */ #define XpmVisual (1L<<0) #define XpmColormap (1L<<1) #define XpmDepth (1L<<2) #define XpmSize (1L<<3) /* width & height */ #define XpmHotspot (1L<<4) /* x_hotspot & y_hotspot */ #define XpmCharsPerPixel (1L<<5) #define XpmColorSymbols (1L<<6) #define XpmRgbFilename (1L<<7) #define XpmInfos (1L<<8) /* all infos members */ #define XpmExtensions (1L<<10) #define XpmReturnPixels (1L<<9) #define XpmReturnInfos XpmInfos #define XpmReturnExtensions XpmExtensions #define XpmExactColors (1L<<11) #define XpmCloseness (1L<<12) /* * minimal portability layer between ansi and KR C */ /* forward declaration of functions with prototypes */ #if __STDC__ || defined(__cplusplus) || defined(c_plusplus) /* ANSI || C++ */ #define FUNC(f, t, p) extern t f p #define LFUNC(f, t, p) static t f p #else /* K&R */ #define FUNC(f, t, p) extern t f() #define LFUNC(f, t, p) static t f() #endif /* end of K&R */ /* * functions declarations */ #ifdef __cplusplus extern "C" { #endif FUNC(XpmCreatePixmapFromData, int, (Display * display, Drawable d, char **data, Pixmap * pixmap_return, Pixmap * shapemask_return, XpmAttributes * attributes)); FUNC(XpmCreateDataFromPixmap, int, (Display * display, char ***data_return, Pixmap pixmap, Pixmap shapemask, XpmAttributes * attributes)); FUNC(XpmReadFileToPixmap, int, (Display * display, Drawable d, char *filename, Pixmap * pixmap_return, Pixmap * shapemask_return, XpmAttributes * attributes)); FUNC(XpmWriteFileFromPixmap, int, (Display * display, char *filename, Pixmap pixmap, Pixmap shapemask, XpmAttributes * attributes)); FUNC(XpmCreateImageFromData, int, (Display * display, char **data, XImage ** image_return, XImage ** shapemask_return, XpmAttributes * attributes)); FUNC(XpmCreateDataFromImage, int, (Display * display, char ***data_return, XImage * image, XImage * shapeimage, XpmAttributes * attributes)); FUNC(XpmReadFileToImage, int, (Display * display, char *filename, XImage ** image_return, XImage ** shapeimage_return, XpmAttributes * attributes)); FUNC(XpmWriteFileFromImage, int, (Display * display, char *filenamz0l VMS.BCK[V9.BIN]RT.H;1EXE;1=m e, XImage * image, XImage * shapeimage, XpmAttributes * attributes)); FUNC(XpmAttributesSize, int, ()); FUNC(XpmFreeAttributes, int, (XpmAttributes * attributes)); FUNC(XpmFreeExtensions, int, (XpmExtension * extensions, int nextensions)); #ifdef __cplusplus } /* for C++ V2.0 */ #endif /* backward compatibility */ /* for version 3.0c */ #define XpmPixmapColorError XpmColorError #define XpmPixmapSuccess XpmSuccess #define XpmPixmapOpenFailed XpmOpenFailed #define XpmPixmapFileInvalid XpmFileInvalid #define XpmPixmapNoMemory XpmNoMemory #define XpmPixmapColorFailed XpmColorFailed #define XpmReadPixmapFile(dpy, d, file, pix, mask, att) \ XpmReadFileToPixmap(dpy, d, file, pix, mask, att) #define XpmWritePixmapFile(dpy, file, pix, mask, att) \ XpmWriteFileFromPixmap(dpy, file, pix, mask, att) /* for version 3.0b */ #define PixmapColorError XpmColorError #define PixmapSuccess XpmSuccess #define PixmapOpenFailed XpmOpenFailed #define PixmapFileInvalid XpmFileInvalid #define PixmapNoMemory XpmNoMemory #define PixmapColorFailed XpmColorFailed #define ColorSymbol XpmColorSymbol #define XReadPixmapFile(dpy, d, file, pix, mask, att) \ XpmReadFileToPixmap(dpy, d, file, pix, mask, att) #define XWritePixmapFile(dpy, file, pix, mask, att) \ XpmWriteFileFromPixmap(dpy, file, pix, mask, att) #define XCreatePixmapFromData(dpy, d, data, pix, mask, att) \ XpmCreatePixmapFromData(dpy, d, data, pix, mask, att) #define XCreateDataFromPixmap(dpy, data, pix, mask, att) \ XpmCreateDataFromPixmap(dpy, data, pix, mask, att) #endif /**************************************** end ../xpm/xpm.h */ #else /* HaveXpmFormat */ #include #endif /* HaveXpmFormat */ #include #include #include #ifndef VMS #define VMS 0 #endif /* VMS */ #endif /* VMS */ #endif /* XWindows */ /* * End of operating-system specific code. */ #include #include #include /* * The following symbols should be in ; define them if they aren't. */ #ifndef SEEK_SET #define SEEK_SET 0 #endif /* SEEK_SET */ #ifndef SEEK_CUR #define SEEK_CUR 1 #endif /* SEEK_CUR */ #ifndef SEEK_END #define SEEK_END 2 #endif /* SEEK_END */ /* * The following depends on , which is included at different * points above depending on XWindows. It's unneeded but harmless if * not Unix. */ #ifdef FD_SET #define FD_NULL ((fd_set *) 0) #else /* FD_SET */ #define FD_NULL ((long *) 0) #endif /* FD_SET */ /**************************************** end ../h/sys.h */ /**************************************** from ../h/typedefs.h: */ /* * typdefs for the run-time system. */ typedef AllocType msize; typedef int ALIGN; /* pick most stringent type for alignment */ #ifndef FixedRegions typedef union bhead HEADER; #endif /* FixedRegions */ typedef unsigned int DIGIT; /* * Default sizing and such. */ /* * Set up typedefs and related definitions depending on whether or not * ints and pointers are the same size. */ #if IntBits != WordBits typedef long int word; typedef unsigned long int uword; #else /* IntBits != WordBits */ typedef int word; #ifdef CDC_VXVE typedef uword; #else /* CDC_VXVE */ typedef unsigned int uword; #endif /* CDC_VXVE */ #endif /* IntBits != WordBits */ #ifdef StandardC #ifndef PointerDef typedef void *pointer; #endif /* PointerDef */ #else /* StandardC */ #ifndef PointerDef typedef char *pointer; #endif /* PointerDef */ #endif /* StandardC */ /* * Typedefs to make some things easier. */ typedef int (*fptr)(); typedef struct descrip *dptr; typedef word C_integer; /* * A success continuation is referenced by a pointer to an integer function * that takes no arguments. */ typedef int (*continuation) Params((noargs)); #if !COMPILER /* * Typedefs for the interpreter. */ /* * Icode consists of operators and arguments. Operators are small integers, * while arguments may be pointers. To conserve space in icode files on * computers with 16-bit ints, icode is written by the linker as a mixture * of ints and words (longs). When an icode file is read in and processed * by the interpreter, it looks like a C array of mixed ints and words. * Accessing this "nonstandard" structure is handled by a union of int and * word pointers and incrementing is done by incrementing the appropriate * member of the union (see the interpreter). This is a rather dubious * method and certainly not portable. A better way might be to address * icode with a char *, but the incrementing code might be inefficient * (at a place that experiences a lot of execution activity). * * For the moment, the dubious coding is isolated under control of the * size of integers. */ #if IntBits != WordBits typedef union { int *op; word *opnd; } inst; #else /* IntBits != WordBits */ typedef union { word *op; word *opnd; } inst; #endif /* IntBits != WordBits */ #endif /* COMPILER */ /**************************************** end ../h/typedefs.h */ /**************************************** from ../h/cstructs.h: */ /* * cstructs.h - structures and accompanying manifest constants for functions * in the common subdirectory. */ /* * cal_time holds a calendar time. */ struct cal_time { int year; /* yyyy */ int month_no; /* month number: 1-12 */ char *month_nm; /* month name: "January", "February", ... */ int mday; /* day of the month */ char *wday; /* "Sunday", "Monday", ... */ int hour; /* hour by 24 hr clock */ int minute; int second; }; /* * fileparts holds a file name broken down into parts. */ struct fileparts { /* struct of file name parts */ char *dir; /* directory */ char *name; /* name */ char *ext; /* extension */ #if VMS char *version; #endif /* VMS */ #if MVS char *member; #endif /* MVS */ }; /* * xval - holds references to literal constants */ union xval { long ival; /* integer */ double rval; /* real */ word sval; /* offset into string space of string */ }; /* * str_buf references a string buffer. Strings are built a character * at a time. When a buffer "fragment" is filled, another is allocated * and the the current string copied to it. */ struct str_buf_frag { struct str_buf_frag *next; /* next buffer fragment */ char s[1]; /* variable size buffer, really > 1 */ }; struct str_buf { unsigned int size; /* total size of current buffer */ char *strtimage; /* start of string currently being built */ char *endimage; /* next free character in buffer */ char *end; /* end of current buffer */ struct str_buf_frag *frag_lst; /* list of buffer fragments */ struct str_buf *next; /* buffers can be put on free list */ }; #define AppChar(sbuf, c) do {\ if ((sbuf).endimage >= (sbuf).end)\ new_sbuf(&(sbuf));\ *((sbuf).endimage)++ = (c); } while (0) /* * implement contains information about the implementation of an operation. */ #define NoRsltSeq -1L /* no result sequence: {} */ #define UnbndSeq -2L /* unbounded result sequence: {*} */ #define DoesRet 01 /* operation (or "body" function) returns */ #define DoesFail 02 /* operation (or "body" function) fails */ #define DoesSusp 04 /* operation (or "body" function) suspends */ #define DoesEFail 0G#9 VMS.BCK[V9.BIN]RT.H;1EXE;1=>10 /* fails through error conversion */ #define DoesFThru 020 /* only "body" functions can "fall through" */ struct implement { struct implement *blink; /* link for bucket chain in hash tables */ char oper_typ; /* 'K'=keyword, 'F'=function, 'O'=operator */ char prefix[2]; /* prefix to make start of name unique */ char *name; /* function/operator/keyword name */ char *op; /* operator symbol (operators only) */ int nargs; /* number of arguments operation requires */ int *arg_flgs; /* array of arg flags: deref/underef, var len*/ long min_result; /* minimum result sequence length */ long max_result; /* maiximum result sequence length */ int resume; /* flag - resumption after last result */ int ret_flag; /* DoesRet, DoesFail, DoesSusp */ int use_rslt; /* flag - explicitly uses result location */ char *comment; /* description of operation */ int ntnds; /* size of tnds array */ struct tend_var *tnds; /* pointer to array of info about tended vars */ int nvars; /* size of vars array */ struct ord_var *vars; /* pointer to array of info about ordinary vars */ struct il_code *in_line; /* inline version of the operation */ int iconc_flgs; /* flags for internal use by the compiler */ }; /* * These codes are shared between the data base and rtt. They are defined * here, though not all are used by the data base. */ #define TndDesc 1 /* a tended descriptor */ #define TndStr 2 /* a tended character pointer */ #define TndBlk 3 /* a tended block pointer */ #define OtherDcl 4 /* a declaration that is not special */ #define IsTypedef 5 /* a typedef */ #define VArgLen 6 /* identifier for length of variable parm list */ #define RsltLoc 7 /* the special result location of an operation */ #define Label 8 /* label */ #define RtParm 16 /* undereferenced parameter of run-time routine */ #define DrfPrm 32 /* dereferenced parameter of run-time routine */ #define VarPrm 64 /* variable part of parm list (with RtParm or DrfPrm) */ #define PrmMark 128 /* flag - used while recognizing params of body fnc */ #define ByRef 256 /* flag - parameter to body function passed by reference */ /* * Flags to indicate what types are returned from the function implementing * a body. These are unsed in determining the calling conventions * of the function. */ #define RetInt 1 /* body/function returns a C_integer */ #define RetDbl 2 /* body/function returns a C_double */ #define RetOther 4 /* body (not function itself) returns something else */ #define RetNoVal 8 /* function returns no value */ #define RetSig 16 /* function returns a signal */ /* * tend_var contains information about a tended variable in the "declare {...}" * action of an operation. */ struct tend_var { int var_type; /* TndDesc, TndStr, or TndBlk */ struct il_c *init; /* initial value from declaration */ char *blk_name; /* TndBlk: struct name of block */ }; /* * ord_var contains information about an ordinary variable in the * "declare {...}" action of an operation. */ struct ord_var { char *name; /* name of variable */ struct il_c *dcl; /* declaration of variable (includes name) */ }; /* * il_code has information about an action in an operation. */ #define IL_If1 1 #define IL_If2 2 #define IL_Tcase1 3 #define IL_Tcase2 4 #define IL_Lcase 5 #define IL_Err1 6 #define IL_Err2 7 #define IL_Lst 8 #define IL_Const 9 #define IL_Bang 10 #define IL_And 11 #define IL_Cnv1 12 #define IL_Cnv2 13 #define IL_Def1 14 #define IL_Def2 15 #define IL_Is 16 #define IL_Var 17 #define IL_Subscr 18 #define IL_Block 19 #define IL_Call 20 #define IL_Abstr 21 #define IL_VarTyp 22 #define IL_Store 23 #define IL_Compnt 24 #define IL_TpAsgn 25 #define IL_Union 26 #define IL_Inter 27 #define IL_New 28 #define IL_IcnTyp 29 #define IL_Acase 30 #define CM_Fields -1 union il_fld { struct il_code *fld; struct il_c *c_cd; int *vect; char *s; word n; }; struct il_code { int il_type; union il_fld u[1]; /* actual number of fields varies with type */ }; /* * The following manifest constants are used to describe types, conversions, * and returned values. Non-negative numbers are reserved for types described * in the type specification system. */ #define TypAny -1 #define TypEmpty -2 #define TypVar -3 #define TypCInt -4 #define TypCDbl -5 #define TypCStr -6 #define TypEInt -7 #define TypECInt -8 #define TypTStr -9 #define TypTCset -10 #define RetDesc -11 #define RetNVar -12 #define RetSVar -13 #define RetNone -14 /* * il_c describes a piece of C code. */ #define ILC_Ref 1 /* nonmodifying reference to var. in sym. tab. */ #define ILC_Mod 2 /* modifying reference to var. in sym. tab */ #define ILC_Tend 3 /* tended var. local to inline block */ #define ILC_SBuf 4 /* string buffer */ #define ILC_CBuf 5 /* cset buffer */ #define ILC_Ret 6 /* return statement */ #define ILC_Susp 7 /* suspend statement */ #define ILC_Fail 8 /* fail statement */ #define ILC_Goto 9 /* goto */ #define ILC_CGto 10 /* conditional goto */ #define ILC_Lbl 11 /* label */ #define ILC_LBrc 12 /* '{' */ #define ILC_RBrc 13 /* '}' */ #define ILC_Str 14 /* arbitrary string of code */ #define ILC_EFail 15 /* errorfail statement */ #define RsltIndx -1 /* symbol table index for "result" */ struct il_c { int il_c_type; struct il_c *code[3]; word n; char *s; struct il_c *next; }; /* * The parameter value of a run-time operation may be in one of several * different locations depending on what conversions have been done to it. * These codes are shared by rtt and iconc. */ #define PrmTend 1 /* in tended location */ #define PrmCStr 3 /* converted to C string: tended location */ #define PrmInt 4 /* converted to C int: non-tended location */ #define PrmDbl 8 /* converted to C double: non-tended location */ /* * Kind of RLT return statement supported. */ #define TRetNone 0 /* does not support an RTL return statement */ #define TRetBlkP 1 /* block pointer */ #define TRetDescP 2 /* descriptor pointer */ #define TRetCharP 3 /* character pointer */ #define TRetCInt 4 /* C integer */ #define TRetSpcl 5 /* RLT return statement has special form & semenatics */ /* * Codes for dereferencing needs. */ #define DrfNone 0 /* not a variable type */ #define DrfGlbl 1 /* treat as a global variable */ #define DrfCnst 2 /* type of values in variable doesn't change */ #define DrfSpcl 3 /* special dereferencing: trapped variable */ /* * Information about an Icon type. */ struct icon_type { char *id; /* name of type */ int support_new; /* supports RTL "new" construct */ int deref; /* dereferencing needs */ int rtl_ret; /* kind of RTL return supported if any */ char *typ; /* for variable: initial type */ int num_comps; /* for aggregate: number of type components */ int compnts; /* for aggregate: index of first component */ char *abrv; /* abreviation used for type tracing */ char *cap_id; /* name of type with first character capitalized */ }; /* * Information about a component of an aggregate type. */ struct typ_compnt { char *id; /* name of component */ int n; /* position of component within type aggragate */ int var; /* fi VMS.BCK[V9.BIN]RT.H;1EXE;1=T'flag: this component is an Icon-level variable */ int aggregate; /* index of type that owns the component */ char *abrv; /* abreviation used for type tracing */ }; extern int num_typs; /* number of types in table */ extern struct icon_type icontypes[]; /* table of icon types */ /* * Type inference needs to know where most of the standard types * reside. Some have special uses outside operations written in * RTL code, such as the null type for initializing variables, and * others have special semantics, such as trapped variables. */ extern int str_typ; /* index of string type */ extern int int_typ; /* index of integer type */ extern int rec_typ; /* index of record type */ extern int proc_typ; /* index of procedure type */ extern int coexp_typ; /* index of co-expression type */ extern int stv_typ; /* index of sub-string trapped var type */ extern int ttv_typ; /* index of table-elem trapped var type */ extern int null_typ; /* index of null type */ extern int cset_typ; /* index of cset type */ extern int real_typ; /* index of real type */ extern int list_typ; /* index of list type */ extern int tbl_typ; /* index of table type */ extern int num_cmpnts; /* number of aggregate components */ extern struct typ_compnt typecompnt[]; /* table of aggregate components */ extern int str_var; /* index of trapped string variable */ extern int trpd_tbl; /* index of trapped table */ extern int lst_elem; /* index of list element */ extern int tbl_val; /* index of table element value */ extern int tbl_dflt; /* index of table default */ /* * minimum number of unsigned ints needed to hold the bits of a cset - only * used in translators, not in the run-time system. */ #define BVectSize 16 /**************************************** end ../h/cstructs.h */ /**************************************** from ../h/cpuconf.h: */ /* * Configuration parameters that depend on computer architecture. * Some depend on values defined in config.h, which is always * included before this file. */ #ifndef CStateSize #define CStateSize 15 /* size of C state for co-expressions */ #endif /* CStateSize */ /* * The following definitions depend on the sizes of ints and pointers. */ /* * Most of the present implementations use 32-bit "words". Note that * WordBits is the number of bits in an Icon integer, not necessarily * the number of bits in an int (given by IntBits). For example, * in MS-DOS an Icon integer is a long, not an int. * * MaxStrLen must not be so large as to overlap flags. */ /* * 64-bit words. */ #if WordBits == 64 #ifndef MinLong #define MinLong ((long int)0x8000000000000000) /* smallest long integer */ #endif #ifndef MaxLong #define MaxLong ((long int)0x7fffffffffffffff) /* largest long integer */ #endif #define MaxStrLen 017777777777L /* maximum string length */ #ifndef MaxNegInt #define MaxNegInt "-9223372036854775808" #endif #ifndef F_Nqual #define F_Nqual 0x8000000000000000 /* set if NOT string qualifier */ #endif /* F_Nqual */ #ifndef F_Var #define F_Var 0x4000000000000000 /* set if variable */ #endif /* F_Var */ #ifndef F_Ptr #define F_Ptr 0x1000000000000000 /* set if value field is pointer */ #endif /* F_Ptr */ #ifndef F_Typecode #define F_Typecode 0x2000000000000000 /* set if dword includes type code */ #endif /* F_Typecode */ #endif /* WordBits == 64 */ /* * 32-bit words. */ #if WordBits == 32 #define MaxLong ((long int)017777777777L) /* largest long integer */ #define MinLong ((long int)020000000000L) /* smallest long integer */ #define MaxNegInt "-2147483648" #define MaxStrLen 0777777777 /* maximum string length */ #define F_Nqual 0x80000000 /* set if NOT string qualifier */ #define F_Var 0x40000000 /* set if variable */ #define F_Ptr 0x10000000 /* set if value field is pointer */ #define F_Typecode 0x20000000 /* set if dword includes type code */ #endif /* WordBits == 32 */ /* Values that depend on the number of bits in an int (not necessarily * the same as the number of bits in a word). */ #if IntBits == 64 #define LogIntBits 6 /* log of IntBits */ #define MaxUnsigned 01777777777777777777777L /* largest unsigned integer */ #define MaxInt 0777777777777777777777L /* largest int */ /* * Cset initialization and access macros. */ #define fwd(w0, w1, w2, w3) \ ((w0)&0xffff | ((unsigned)(w1)&0xffff)<<16 | ((unsigned)(w2)&0xffff)<<32 \ | ((unsigned)(w3)&0xffff)<<48) #define cset_display(w0,w1,w2,w3,w4,w5,w6,w7,w8,w9,wa,wb,wc,wd,we,wf) \ {fwd(w0,w1,w2,w3),fwd(w4,w5,w6,w7),fwd(w8,w9,wa,wb),fwd(wc,wd,we,wf)} #define Cset32(b,c) (*CsetPtr(b,c)>>(32*CSetOff((b)>>5))) /* 32 bits of cset */ #endif /* IntBits == 64 */ #if IntBits == 32 #define LogIntBits 5 /* log of IntBits */ #define MaxUnsigned 037777777777 /* largest unsigned integer */ #define MaxInt 017777777777 /* largest int */ /* * Cset initialization and access macros. */ #define twd(w0,w1) ((w0)&0xffff | ((unsigned)w1)<<16) #define cset_display(w0,w1,w2,w3,w4,w5,w6,w7,w8,w9,wa,wb,wc,wd,we,wf) \ {twd(w0,w1),twd(w2,w3),twd(w4,w5),twd(w6,w7), \ twd(w8,w9),twd(wa,wb),twd(wc,wd),twd(we,wf)} #define Cset32(b,c) (*CsetPtr(b,c)) /* 32 bits of cset */ #endif /* IntBits == 32 */ #if IntBits == 16 #define LogIntBits 4 /* log of IntBits */ #define MaxUnsigned ((unsigned int)0177777) /* largest unsigned integer */ #define MaxInt 077777 /* largest int */ #ifndef MaxListSlots #define MaxListSlots 8000 /* largest list-element block */ #endif /* MaxListSlots */ /* * Cset initialization and access macros. */ #define cset_display(w0,w1,w2,w3,w4,w5,w6,w7,w8,w9,wa,wb,wc,wd,we,wf) \ {w0,w1,w2,w3,w4,w5,w6,w7,w8,w9,wa,wb,wc,wd,we,wf} #define Cset32(b,c) (((unsigned long)(unsigned int)(*CsetPtr((b)+16,c))<<16) | \ ((unsigned long)(unsigned int)(*CsetPtr(b,c)))) /* 32 bits of cset */ #endif /* IntBits == 16 */ #ifndef LogHuge #define LogHuge 309 /* maximum base-10 exp+1 of real */ #endif /* LogHuge */ #ifndef Big #define Big 9007199254740992. /* larger than 2^53 lose precision */ #endif /* Big */ #ifndef Precision #define Precision 10 /* digits in string from real */ #endif /* Precision */ /* * Parameters that configure tables and sets: * * HSlots Initial number of hash buckets; must be a power of 2. * LogHSlots Log to the base 2 of HSlots. * * HSegs Maximum number of hash bin segments; the maximum number of * hash bins is HSlots * 2 ^ (HSegs - 1). * * If Hsegs is increased above 12, the arrays log2h[] and segsize[] * in the runtime system will need modification. * * MaxHLoad Maximum loading factor; more hash bins are allocated when * the average bin exceeds this many entries. * * MinHLoad Minimum loading factor; if a newly created table (e.g. via * copy()) is more lightly loaded than this, bins are combined. * * Because splitting doubles the number of hash bins, and combining halves it, * MaxHLoad should be at least twice MinHLoad. */ #ifndef HSlots #if IntBits == 16 #define HSlots 4 #define LogHSlots 2 #else #define HSlots 8 #define LogHSlots 3 #endif /* IntBits */ #endif /* HSlots */ #if ((1 << LogHSlots) != HSlots) Deliberate Syntax Error -- HSlots and LogHSlots are inconsistent #endif /* HSlots / LogHSlots consistency */ #ifndef HSʽ VMS.BCK[V9.BIN]RT.H;1EXE;1=6egs #if IntBits == 16 #define HSegs 6 #else #define HSegs 10 #endif /* IntBits */ #endif /* HSegs */ #ifndef MinHLoad #define MinHLoad 1 #endif /* MinHLoad */ #ifndef MaxHLoad #define MaxHLoad 5 #endif /* MaxHLoad */ /* * The number of bits in each base-B digit; the type DIGIT (unsigned int) * in rt.h must be large enough to hold this many bits. * It must be at least 2 and at most WordBits / 2. */ #define NB (WordBits / 2) /* * The number of decimal digits at which the image lf a large integer * goes from exact to approximate (to avoid possible long delays in * conversion from large integer to string because of its quadratic * complexity). */ #define MaxDigits 30 /* * Memory sizing. */ #ifdef FixedRegions #ifndef AlcMax #define AlcMax 25 #endif /* AlcMax */ #endif /* FixedRegions */ /* * Maximum sized block that can be allocated (via malloc() or such). */ #ifndef MaxBlock #define MaxBlock MaxUnsigned #endif /* MaxBlock */ /* * What follows is default memory sizing. Implementations with special * requirements may specify these values in define.h. */ #ifndef MaxStatSize #ifdef Coexpr #define MaxStatSize 20480 /* size of the static region in bytes*/ #else /* Coexpr */ #define MaxStatSize 1024 /* size of the static region in bytes */ #endif /* Coexpr */ #endif /* MaxStatSize */ #ifndef MaxStrSpace #define MaxStrSpace 65000 /* size of the string space in bytes */ #endif /* MaxStrSpace */ #ifndef MaxAbrSize #define MaxAbrSize 65000 /* size of the block region in bytes */ #endif /* MaxAbrSize */ #ifndef MStackSize #ifdef MultiThread #define MStackSize 20000 /* size of the main stack in words */ #else /* MultiThread */ #define MStackSize 10000 /* size of the main stack in words */ #endif /* MultiThread */ #endif /* MStackSize */ #ifndef StackSize #define StackSize 2000 /* words in co-expression stack */ #endif /* StackSize */ #ifndef QualLstSize #define QualLstSize 5000 /* size of qualifier pointer region */ #endif /* QualLstSize */ #ifndef ActStkBlkEnts #ifdef Coexpr #define ActStkBlkEnts 25 /* number of entries in an astkblk */ #else /* Coexpr */ #define ActStkBlkEnts 1 /* number of entries in an astkblk */ #endif /* Coexpr */ #endif /* ActStkBlkEnts */ /* * Minimum regions sizes (presently not used). */ #ifndef MinStatSize #ifdef Coexpr #define MinStatSize 10240 /* size of the static region in bytes*/ #else /* Coexpr */ #define MinStatSize 1024 /* size of static region in bytes */ #endif /* Coexpr */ #endif /* MinStatSize */ #ifndef MinStrSpace #define MinStrSpace 5000 /* size of the string space in bytes */ #endif /* MinStrSpace */ #ifndef MinAbrSize #define MinAbrSize 5000 /* size of the block region in bytes */ #endif /* MinAbrSize */ #ifndef MinMStackSize #define MinMStackSize 2000 /* size of the main stack in words */ #endif /* MinMStackSize */ #ifndef MinStackSize #define MinStackSize 1000 /* words in co-expression stack */ #endif /* MinStackSize */ #ifndef MinQualLstSize #define MinQualLstSize 500 /* size of qualifier pointer region */ #endif /* MinQualLstSize */ #ifndef GranSize #define GranSize 64 /* storage allocation granule size */ #endif /* GranSize */ #ifndef Sqlinc #define Sqlinc 128*sizeof(dptr *) /* qualifier pointer list increment */ #endif /* Sqlinc */ /**************************************** end ../h/cpuconf.h */ /**************************************** from ../h/monitor.h: */ /* * This file contains definitions for the various event codes and values * that go to make up event streams. */ #ifdef MemMon #define EventStream (monfile != NULL) #ifdef EventMon /* * If EventMon is defined, allocation is merged with the rest of * evaluation history and uses lowercase codes (different from those * used when MemMon is used otherwise). */ #define E_Lrgint 'L' /* Large integer allocation */ #define E_Real 'd' /* Real allocation */ #define E_Cset 'e' /* Cset allocation */ #define E_File 'g' /* File allocation */ #define E_Record 'h' /* Record allocation */ #define E_Tvsubs 'i' /* Substring trapped variable allocation */ #define E_External 'j' /* External allocation */ #define E_List 'k' /* List allocation */ #define E_Lelem 'm' /* List element allocation */ #define E_Table 'n' /* Table allocation */ #define E_Telem 'o' /* Table element allocation */ #define E_Tvtbl 'p' /* Table-element trapped variable allocation */ #define E_Set 'q' /* Set allocation */ #define E_Selem 't' /* Set element allocation */ #define E_Slots 'w' /* Hash header allocation */ #define E_Coexpr 'x' /* Co-expression allocation */ #define E_Refresh 'y' /* Refresh allocation */ #define E_Alien 'z' /* Alien allocation */ #define E_Free 'Z' /* Free region */ #define E_String 's' /* String allocation */ #else /* EventMon */ /* * If EventMon is not defined, MemMon codes are used for allocation * history. */ #define E_Lrgint 'i' /* Large integer allocation */ #define E_Real 'r' /* Real number allocation */ #define E_Cset 'c' /* Cset allocation */ #define E_File 'f' /* File allocation */ #define E_Record 'R' /* Record allocation */ #define E_Tvsubs 'u' /* Substring trapped variable allocation */ #define E_External 'E' /* External allocation */ #define E_List 'L' /* List allocation */ #define E_Lelem 'l' /* List element allocation */ #define E_Table 'T' /* Table allocation */ #define E_Telem 't' /* Table element allocation */ #define E_Tvtbl 'e' /* Table element trapped variable allocation */ #define E_Set 'S' /* Set allocation */ #define E_Selem 's' /* Set element allocation */ #define E_Slots 'h' /* Hash header allocation */ #define E_Coexpr 'X' /* Co-expression allocation */ #define E_Refresh 'x' /* Refresh allocation */ #define E_Alien 'A' /* Allien alien allocation */ #define E_Free 'F' /* Free region */ #define E_String '"' /* String allocation */ #endif /* EventMon */ /* * These monitoring codes are common whether or not EventMon is defined. */ #define E_BlkDeAlc '-' /* Block deallocation */ #define E_StrDeAlc '~' /* String deallocation */ #define E_Highlight 'H' /* Allocation highlight */ #define E_Offset '+' /* Address offset */ #define E_Pause ';' /* memory monitoring comment */ /* * These are not "events"; they are provided for uniformity in tools * that deal with types. */ #define E_Integer '@' /* Integer value pseudo-event */ #define E_Null '$' /* Null value value pseudo-event */ #define E_Proc '%' /* Procedure value pseudo-event */ #define E_Kywdint '^' /* Integer keyword value pseudo-event */ #define E_Kywdpos '&' /* Position value pseudo-event */ #define E_Kywdsubj '*' /* Subject value pseudo-event */ #else /* MemMon */ /* * If memory monitoring is not enabled, redefine function calls * to do nothing. */ #define MMAlc(n,t) #define MMBGC(r) #define MMEGC() #define MMMark(b,t) #define MMOut(p,m) #define MMShow(d,c) #define MMStat(a,l,c) #define MMStr(n) #define MMSMark(a,n) #endif /* MemMon */ /* * Event monitoring */ #ifdef EventProc #define TypeCode(d) (word)(Qual(d) ? 0 : Type(d) + 1) #define MaxEvNest 10 /* maximum event context nesting */ #define MaxEvString 100 /* maximum string in event token */ #define C_LastContext 7 #endif /* EventProc */ #ifdef EventMon /* * Codes used for storage regions. */ #define E_Base '<' /* Base address of storage region */ #define E_Size '>' /* Region size */ #define E_Used '=' /* Space used */ /* * Symbol table events */ #define }h VMS.BCK[V9.BIN]RT.H;1EXE;1=sEE_Pid '.' /* Symbol name */ #define E_Sym 'T' /* Symbol table entry */ /* * Garbage collection region */ #define E_Region '?' /* Region */ /* * Codes for main sequence events */ /* * Timing events */ #define E_Tick '.' /* Clock tick */ /* * Code-location event */ #define E_Loc '|' /* Location change */ /* * Virtual-machine instructions */ #define E_Opcode 'O' /* Virtual-machine instruction */ /* * Type-conversion events */ #define E_Aconv 'I' /* Conversion attempt */ #define E_Tconv 'K' /* Conversion target */ #define E_Nconv 'N' /* Conversion not needed */ #define E_Sconv 'Q' /* Conversion success */ #define E_Fconv 'J' /* Conversion failure */ /* * Structure events */ #define E_Lbang '\301' /* List generation */ #define E_Lcreate '\302' /* List creation */ #define E_Lpop '\303' /* List pop */ #define E_Lpull '\304' /* List pull */ #define E_Lpush '\305' /* List push */ #define E_Lput '\306' /* List put */ #define E_Lrand '\307' /* List random reference */ #define E_Lref '\310' /* List reference */ #define E_Lsub '\311' /* List subscript */ #define E_Rbang '\312' /* Record generation */ #define E_Rcreate '\313' /* Record creation */ #define E_Rrand '\314' /* Record random reference */ #define E_Rref '\315' /* Record reference */ #define E_Rsub '\316' /* Record subscript */ #define E_Sbang '\317' /* Set generation */ #define E_Screate '\320' /* Set creation */ #define E_Sdelete '\321' /* Set deletion */ #define E_Sinsert '\322' /* Set insertion */ #define E_Smember '\323' /* Set membership */ #define E_Srand '\336' /* Set random reference */ #define E_Sval '\324' /* Set value */ #define E_Tbang '\325' /* Table generation */ #define E_Tcreate '\326' /* Table creation */ #define E_Tdelete '\327' /* Table deletion */ #define E_Tinsert '\330' /* Table insertion */ #define E_Tkey '\331' /* Table key generation */ #define E_Tmember '\332' /* Table membership */ #define E_Trand '\337' /* Table random reference */ #define E_Tref '\333' /* Table reference */ #define E_Tsub '\334' /* Table subscript */ #define E_Tval '\335' /* Table value */ /* * Scanning events */ #define E_Snew '\340' /* Scanning environment creation */ #define E_Sfail '\341' /* Scanning failure */ #define E_Ssusp '\342' /* Scanning suspension */ #define E_Sresum '\343' /* Scanning resumption */ #define E_Srem '\344' /* Scanning environment removal */ #define E_Spos '\346' /* Scanning position */ /* * Assignment */ #define E_Assign '\347' /* Assignment */ #define E_Value '\350' /* Value assigned */ /* * Interpreter stack events */ #define E_Intcall '\351' /* interpreter call */ #define E_Intret '\352' /* interpreter return */ #define E_Stack '\353' /* stack depth */ /* * Expression events */ #define E_Ecall 'c' /* Call of operation */ #define E_Efail 'f' /* Failure from expression */ #define E_Eret 'r' /* Return from expression */ #define E_Bsusp 'b' /* Suspension from operation */ #define E_Esusp 'a' /* Suspension from alternation */ #define E_Lsusp 'l' /* Suspension from limitation */ #define E_Eresum 'u' /* Resumption of expression */ #define E_Erem 'v' /* Removal of a suspended generator */ /* * Co-expression events */ #define E_Coact 'A' /* Co-expression activation */ #define E_Coret 'B' /* Co-expression return */ #define E_Cofail 'D' /* Co-expression failure */ /* * Procedure events */ #define E_Pcall 'C' /* Procedure call */ #define E_Pfail 'F' /* Procedure failure */ #define E_Pret 'R' /* Procedure return */ #define E_Psusp 'S' /* Procedure suspension */ #define E_Presum 'U' /* Procedure resumption */ #define E_Prem 'V' /* Suspended procedure removal */ #define E_Fcall ':' /* Function call */ #define E_Ffail 'M' /* Function failure */ #define E_Fret 'P' /* Function return */ #define E_Fsusp 'W' /* Function suspension */ #define E_Fresum 'Y' /* Function resumption */ #define E_Frem '[' /* Function suspension removal */ #define E_Ocall '\\' /* Operator call */ #define E_Ofail ']' /* Operator failure */ #define E_Oret '`' /* Operator return */ #define E_Osusp '{' /* Operator suspension */ #define E_Oresum '}' /* Operator resumption */ #define E_Orem '\177' /* Operator suspension removal */ /* * Garbage collections */ #define E_Collect 'G' /* Garbage collection */ #define E_EndCollect '\360' /* End of garbage collection */ #define E_TenureString '\361' /* Tenure a string region */ #define E_TenureBlock '\362' /* Tenure a block region */ /* * Termination Events */ #define E_Error 'E' /* Run-time error */ #define E_Exit 'X' /* Program exit */ /* * I/O events */ #define E_MXevent '\370' /* monitor input event */ #else /* EventMon */ /* * If event monitoring is not enabled, redefine function calls * to do nothing. */ #define EVFnc(i) #define EVInt(i) #define EVList(i,j) #define EVNest(i) #define EVUnNest(i) #define EVProc(v,m) #endif /* EventMon */ #ifdef EventProc /* * Codes used in event history files. */ #define E_Comment '#' /* Comment */ #endif /* EventProc */ /**************************************** end ../h/monitor.h */ /**************************************** from ../h/rmacros.h: */ /* * Definitions for macros and manifest constants used in the compiler * interpreter. */ /* * Definitions common to the compiler and interpreter. */ /* * Constants that are not likely to vary between implementations. */ #define BitOffMask (IntBits-1) #define CsetSize (256/IntBits) /* number of ints to hold 256 cset * bits. Use (256/IntBits)+1 if * 256 % IntBits != 0 */ #define MinListSlots 8 /* number of elements in an expansion * list element block */ #define MaxCvtLen 257 /* largest string in conversions; the extra * one is for a terminating null */ #define MaxReadStr 512 /* largest string to read() in one piece */ #define MaxIn 32767 /* largest number of bytes to read() at once */ #define RandA 1103515245 /* random seed multiplier */ #define RandC 453816694 /* random seed additive constant */ #define RanScale 4.65661286e-10 /* random scale factor = 1/(2^31-1)) */ #define Pi 3.14159265358979323846264338327950288419716939937511 /* * File status flags in status field of file blocks. */ #define Fs_Read 01 /* read access */ #define Fs_Write 02 /* write access */ #define Fs_Create 04 /* file created on open */ #define Fs_Append 010 /* append mode */ #define Fs_Pipe 020 /* reading/writing on a pipe */ #ifdef RecordIO #define Fs_Record 040 /* record structured file */ #endif /* RecordIO */ #ifdef StandardLib #define Fs_Reading 0100 /* last file operation was read */ #define Fs_Writing 0200 /* last file operation was write */ #endif /* StandardLib */ #ifdef Graphics #define Fs_Window 0400 /* reading/writing on a window */ #define XKey_Window 0 #define XKey_Fg 1 #ifndef SHORT #define SHORT int #endif /* SHORT */ #ifndef LONG #define LONG int #endif /* LONG */ #endif /* Graphics */ /* * Codes returned by runtime support routines. * Note, some conversion routines also return type codes. Other routines may * return positive values other than return codes. sort() places restrictions * on Less, Equal, and Greater. */ #define Less -1 #define Equal 0 #define Greater 1 #define CvtFail -2 #define Cvt -3 #define NoCvt -4 #define Failed -5 #define Defaulted -6 #define Succeeded -7 #define Error -8 #define%Uo VMS.BCK[V9.BIN]RT.H;1EXE;1=<T GlobalName 0 #define StaticName 1 #define ParamName 2 #define LocalName 3 #undef ToAscii #undef FromAscii #if EBCDIC == 2 #define ToAscii(e) (FromEBCDIC[e]) #define FromAscii(e) (ToEBCDIC[e]) #else /* EBCDIC == 2 */ #define ToAscii(e) (e) #define FromAscii(e) (e) #endif /* EBCDIC == 2 */ /* * Pointer to block. */ #define BlkLoc(d) ((d).vword.bptr) /* * Check for null-valued descriptor. */ #define ChkNull(d) ((d).dword==D_Null) /* * Check for equivalent descriptors. */ #define EqlDesc(d1,d2) ((d1).dword == (d2).dword && BlkLoc(d1) == BlkLoc(d2)) /* * Integer value. */ #define IntVal(d) ((d).vword.integr) /* * Offset from top of block to value of variable. */ #define Offset(d) ((d).dword & OffsetMask) /* * Check for pointer. */ #define Pointer(d) ((d).dword & F_Ptr) /* * Check for qualifier. */ #define Qual(d) (!((d).dword & F_Nqual)) /* * Length of string. */ #define StrLen(q) ((q).dword) /* * Location of first character of string. */ #define StrLoc(q) ((q).vword.sptr) /* * Assign a C string to a descriptor. Assume it is reasonable to use the * descriptor expression more than once, but not the string expression. */ #define AsgnCStr(d,s) (StrLoc(d) = (s), StrLen(d) = strlen(StrLoc(d))) /* * Type of descriptor. */ #define Type(d) (int)((d).dword & TypeMask) /* * Check for variable. */ #define Var(d) ((d).dword & F_Var) /* * Location of the value of a variable. */ #define VarLoc(d) ((d).vword.descptr) /* * Important note: The code that follows is not strictly legal C. * It tests to see if pointer p2 is between p1 and p3. This may * involve the comparison of pointers in different arrays, which * is not well-defined. The casts of these pointers to unsigned "words" * (longs or ints, depending) works with all C compilers and architectures * on which Icon has been implemented. However, it is possible it will * not work on some system. If it doesn't, there may be a "false * positive" test, which is likely to cause a memory violation or a * loop. It is not practical to implement Icon on a system on which this * happens. */ #define InRange(p1,p2,p3) ((uword)(p2) >= (uword)(p1) && (uword)(p2) < (uword)(p3)) /* * Get floating-point number from real block. */ #ifdef Double #define GetReal(dp,res) *((struct size_dbl *)&(res)) =\ *((struct size_dbl *)&(BlkLoc(*dp)->realblk.realval)) #else /* Double */ #define GetReal(dp,res) res = BlkLoc(*dp)->realblk.realval #endif /* Double */ /* * Absolute value of x (word). */ #if (MVS || VM) && SASC #define Abs(x) __builtin_abs(x) #else /* SASC */ #define Abs(x) (((x) < 0) ? (-(x)) : (x)) #endif /* SASC */ /* * Maximum of x and y. */ #define Max(x,y) ((x)>(y)?(x):(y)) #if (MVS || VM) && SASC #undef Max #define Max(x,y) __builtin_max(x,y) #endif /* SASC */ /* * Minimum of x and y. */ #define Min(x,y) ((x)<(y)?(x):(y)) #if (MVS || VM) && SASC #undef Min #define Min(x,y) __builtin_min(x,y) #endif /* SASC */ /* * Number of elements of a C array, and element size. */ #define ElemCount(a) (sizeof(a)/sizeof(a[0])) #define ElemSize(a) (sizeof(a[0])) /* * Some C compilers take '\n' and '\r' to be the same, so the * following definitions are used. */ #if EBCDIC /* * Note that, in EBCDIC, "line feed" and "new line" are distinct * characters. Icon's use of "line feed" is really "new line" in * C terms. */ #define LineFeed '\n' /* if really "line feed", that's 37 */ #define CarriageReturn '\r' #else /* EBCDIC */ #define LineFeed 10 #define CarriageReturn 13 #endif /* EBCDIC */ /* * Construct an integer descriptor. */ #define MakeInt(i,dp) { \ (dp)->dword = D_Integer; \ IntVal(*dp) = (word)(i);} /* * Construct a string descriptor. */ #define MakeStr(s,len,dp) { \ StrLoc(*dp) = (s); \ StrLen(*dp) = (len);} /* * Offset in word of cset bit. */ #define CsetOff(b) ((b) & BitOffMask) /* * Set bit b in cset c. */ #define Setb(b,c) (*CsetPtr(b,c) |= (01 << CsetOff(b))) /* * Test bit b in cset c. */ #define Testb(b,c) ((*CsetPtr(b,c) >> CsetOff(b)) & 01) /* * Check whether a set or table needs resizing. */ #define SP(p) ((struct b_set *)p) #define TooCrowded(p) \ ((SP(p)->size > MaxHLoad*(SP(p)->mask+1)) && (SP(p)->hdir[HSegs-1] == NULL)) #define TooSparse(p) \ ((SP(p)->hdir[1] != NULL) && (SP(p)->size < MinHLoad*(SP(p)->mask+1))) /* * Definitions and declarations used for storage management. */ #define F_Mark 0100000 /* bit for marking blocks */ #define Static 1 /* collection is for static region */ #define Strings 2 /* collection is for strings */ #define Blocks 3 /* collection is for blocks */ /* * Get type of block pointed at by x. */ #define BlkType(x) (*(word *)x) /* * BlkSize(x) takes the block pointed to by x and if the size of * the block as indicated by bsizes[] is nonzero it returns the * indicated size; otherwise it returns the second word in the * block contains the size. */ #define BlkSize(x) (bsizes[*(word *)x & ~F_Mark] ? \ bsizes[*(word *)x & ~F_Mark] : *((word *)x + 1)) /* * Here are the events we support (in addition to keyboard characters) */ #define MOUSELEFT (-1) #define MOUSEMID (-2) #define MOUSERIGHT (-3) #define MOUSELEFTUP (-4) #define MOUSEMIDUP (-5) #define MOUSERIGHTUP (-6) #define MOUSELEFTDRAG (-7) #define MOUSEMIDDRAG (-8) #define MOUSERIGHTDRAG (-9) #define RESIZED (-10) #define LASTEVENTCODE RESIZED /* * Type codes (descriptors and blocks). */ #define T_String -1 /* string -- for reference; not used */ #define T_Null 0 /* null value */ #define T_Integer 1 /* integer */ #ifdef LargeInts #define T_Lrgint 2 /* long integer */ #endif /* LargeInts */ #define T_Real 3 /* real number */ #define T_Cset 4 /* cset */ #define T_File 5 /* file */ #define T_Proc 6 /* procedure */ #define T_Record 7 /* record */ #define T_List 8 /* list header */ #define T_Lelem 9 /* list element */ #define T_Set 10 /* set header */ #define T_Selem 11 /* set element */ #define T_Table 12 /* table header */ #define T_Telem 13 /* table element */ #define T_Tvtbl 14 /* table element trapped variable */ #define T_Slots 15 /* set/table hash slots */ #define T_Tvsubs 16 /* substring trapped variable */ #define T_Refresh 17 /* refresh block */ #define T_Coexpr 18 /* co-expression */ #define T_External 19 /* external block */ #define T_Kywdint 20 /* integer keyword */ #define T_Kywdpos 21 /* keyword &pos */ #define T_Kywdsubj 22 /* keyword &subject */ #define T_Kywdwin 23 /* keyword &window */ #define T_Kywdstr 24 /* string keyword */ #define T_Kywdevent 25 /* keyword &eventsource, etc. */ #define MaxType 26 /* maximum type number */ /* * Definitions for keywords. */ #define k_pos kywd_pos.vword.integr /* value of &pos */ #define k_random kywd_ran.vword.integr /* value of &random */ #define k_trace kywd_trc.vword.integr /* value of &trace */ #define k_dump kywd_dmp.vword.integr /* value of &dump */ #ifdef FncTrace #define k_ftrace kywd_ftrc.vword.integr /* value of &ftrace */ #endif /* FncTrace */ /* * Descriptor types and flags. */ #define D_Null (T_Null | D_Typecode) #define D_Integer (T_Integer | D_Typecode) #ifdef LargeInts #define D_Lrgint (T_Lrgint | D_Typecode | F_Ptr) #endif /* LargeInts */ #define D_Real (T_Real | D_Typecode | F_Ptr) #define D_Cset (T_Cset | D_Typecode | F_Ptr) #define D_File (T_File | D_Typecode | F_Ptr) #define D_Proc (T_Proc | D_Typecode | F_Ptr) #define D_List (T_List | D_Typecode | F_Ptr) #define D_Lele!# VMS.BCK[V9.BIN]RT.H;1EXE;1=cm (T_Lelem | D_Typecode | F_Ptr) #define D_Table (T_Table | D_Typecode | F_Ptr) #define D_Telem (T_Telem | D_Typecode | F_Ptr) #define D_Set (T_Set | D_Typecode | F_Ptr) #define D_Selem (T_Selem | D_Typecode | F_Ptr) #define D_Record (T_Record | D_Typecode | F_Ptr) #define D_Tvsubs (T_Tvsubs | D_Typecode | F_Ptr | F_Var) #define D_Tvtbl (T_Tvtbl | D_Typecode | F_Ptr | F_Var) #define D_Kywdint (T_Kywdint | D_Typecode | F_Ptr | F_Var) #define D_Kywdpos (T_Kywdpos | D_Typecode | F_Ptr | F_Var) #define D_Kywdsubj (T_Kywdsubj | D_Typecode | F_Ptr | F_Var) #define D_Refresh (T_Refresh | D_Typecode | F_Ptr) #define D_Coexpr (T_Coexpr | D_Typecode | F_Ptr) #define D_External (T_External | D_Typecode | F_Ptr) #define D_Slots (T_Slots | D_Typecode | F_Ptr) #define D_Kywdwin (T_Kywdwin | D_Typecode | F_Ptr | F_Var) #define D_Kywdstr (T_Kywdstr | D_Typecode | F_Ptr | F_Var) #define D_Kywdevent (T_Kywdevent| D_Typecode | F_Ptr | F_Var) #define D_Var (F_Var | F_Nqual | F_Ptr) #define D_Typecode (F_Nqual | F_Typecode) #define TypeMask 63 /* type mask */ #define OffsetMask (~(D_Var)) /* offset mask for variables */ /* * "In place" dereferencing. */ #define Deref(d) if (Var(d)) deref(&d, &d) /* * Construct a substring trapped variable. */ #define SubStr(dest,var,len,pos)\ if ((var)->dword == D_Tvsubs)\ (dest)->vword.bptr = (union block *)alcsubs(len, (pos) +\ BlkLoc(*(var))->tvsubs.sspos - 1, &BlkLoc(*(var))->tvsubs.ssvar);\ else\ (dest)->vword.bptr = (union block *)alcsubs(len, pos, (var));\ (dest)->dword = D_Tvsubs; /* * Find debug struct in procedure frame, assuming debugging is enabled. * Note that there is always one descriptor in array even if it is not * being used. */ #define PFDebug(pf) ((struct debug *)((char *)(pf).tend.d +\ sizeof(struct descrip) * ((pf).tend.num ? (pf).tend.num : 1))) /* * Macro for initialized procedure block. */ #ifdef MultiThread #define B_IProc(n) struct {word title; word blksize; int (*ccode)();\ word nparam; word ndynam; word nstatic; word fstatic; struct progstate *p;\ struct sdescrip quals[n];} #else /* MultiThread */ #define B_IProc(n) struct {word title; word blksize; int (*ccode)();\ word nparam; word ndynam; word nstatic; word fstatic;\ struct sdescrip quals[n];} #endif /* MultiThread */ #ifdef FixedRegions #define ssize (curstring->size) #define strbase (curstring->base) #define strend (curstring->end) #define strfree (curstring->free) #define abrsize (curblock->size) #define blkbase (curblock->base) #define blkend (curblock->end) #define blkfree (curblock->free) #endif /* FixedRegions */ #if COMPILER #ifdef Graphics #define Poll() if (!pollctr--) pollctr = pollevent() #else /* Graphics */ #define Poll() #endif /* Graphics */ #else /* COMPILER */ /* * Definitions for the interpreter. */ /* * Codes returned by invoke to indicate action. */ #define I_Builtin 201 /* A built-in routine is to be invoked */ #define I_Fail 202 /* goal-directed evaluation failed */ #define I_Continue 203 /* Continue execution in the interp loop */ #define I_Vararg 204 /* A function with a variable number of args */ /* * Generator types. */ #define G_Csusp 1 #define G_Esusp 2 #define G_Psusp 3 #define G_Fsusp 4 #define G_Osusp 5 /* * Evaluation stack overflow margin */ #define PerilDelta 100 /* * Macro definitions related to descriptors. */ /* * The following code is operating-system dependent [@rt.01]. Define * PushAval for computers that store longs and pointers differently. */ #if PORT #define PushAVal(x) PushVal(x) Deliberate Syntax Error #endif /* PORT */ #if AMIGA || ARM || ATARI_ST || MACINTOSH || MVS || UNIX || VM || VMS #define PushAVal(x) PushVal(x) #endif /* AMIGA || ARM || ATARI_ST ... */ #if MSDOS || OS2 #if HIGHC_386 || ZTC_386 || INTEL_386 || WATCOM #define PushAVal(x) PushVal(x) #else /* HIGHC_386 || ZTC_386 || ... */ static union { pointer stkadr; word stkint; } stkword; #define PushAVal(x) {sp++; \ stkword.stkadr = (char *)(x); \ *sp = stkword.stkint;} #endif /* HIGHC_386 || ZTC_386 || ... */ #endif /* MSDOS || OS2 */ /* * End of operating-system specific code. */ /* * Macros for pushing values on the interpreter stack. */ /* * Push descriptor. */ #define PushDesc(d) {*++sp = ((d).dword); sp++;*sp =((d).vword.integr);} /* * Push null-valued descriptor. */ #define PushNull {*++sp = D_Null; sp++; *sp = 0;} /* * Push word. */ #define PushVal(v) {*++sp = (word)(v);} /* * Macros related to function and operator definition. */ /* * Procedure block for a function. */ #if VMS #ifdef MultiThread #define FncBlock(f,nargs,deref) \ struct b_iproc Cat(B,f) = {\ T_Proc,\ Vsizeof(struct b_proc),\ Cat(Y,f),\ nargs,\ -1,\ deref, 0,\ 0,\ {sizeof(Lit(f))-1,Lit(f)}}; #else /* MultiThread */ #define FncBlock(f,nargs,deref) \ struct b_iproc Cat(B,f) = {\ T_Proc,\ Vsizeof(struct b_proc),\ Cat(Y,f),\ nargs,\ -1,\ deref, 0,\ {sizeof(Lit(f))-1,Lit(f)}}; #endif /* MultiThread */ #else /* VMS */ #ifdef MultiThread #define FncBlock(f,nargs,deref) \ struct b_iproc Cat(B,f) = {\ T_Proc,\ Vsizeof(struct b_proc),\ Cat(Z,f),\ nargs,\ -1,\ deref, 0,\ 0,\ {sizeof(Lit(f))-1,Lit(f)}}; #else /* MultiThread */ #define FncBlock(f,nargs,deref) \ struct b_iproc Cat(B,f) = {\ T_Proc,\ Vsizeof(struct b_proc),\ Cat(Z,f),\ nargs,\ -1,\ deref, 0,\ {sizeof(Lit(f))-1,Lit(f)}}; #endif /* MultiThread */ #endif /* VMS */ /* * Procedure block for an operator. */ #ifdef MultiThread #define OpBlock(f,nargs,sname,xtrargs)\ struct b_iproc Cat(B,f) = {\ T_Proc,\ Vsizeof(struct b_proc),\ Cat(O,f),\ nargs,\ -1,\ xtrargs,\ 0,\ 0,\ {sizeof(sname)-1,sname}}; #else /* MultiThread */ #define OpBlock(f,nargs,sname,xtrargs)\ struct b_iproc Cat(B,f) = {\ T_Proc,\ Vsizeof(struct b_proc),\ Cat(O,f),\ nargs,\ -1,\ xtrargs,\ 0,\ {sizeof(sname)-1,sname}}; #endif /* MultiThread */ /* * Operator declaration. */ #define OpDcl(nm,n,pn) OpBlock(nm,n,pn,0) Cat(O,nm)(cargp) register dptr cargp; /* * Operator declaration with extra working argument. */ #define OpDclE(nm,n,pn) OpBlock(nm,-n,pn,0) Cat(O,nm)(cargp) register dptr cargp; /* * Agent routine declaration. */ #define AgtDcl(nm) Cat(A,nm)(cargp) register dptr cargp; /* * Macros to access Icon arguments in C functions. */ /* * n-th argument. */ #define Arg(n) (cargp[n]) /* * Type field of n-th argument. */ #define ArgType(n) (cargp[n].dword) /* * Value field of n-th argument. */ #define ArgVal(n) (cargp[n].vword.integr) /* * Specific arguments. */ #define Arg0 (cargp[0]) #define Arg1 (cargp[1]) #define Arg2 (cargp[2]) #define Arg3 (cargp[3]) #define Arg4 (cargp[4]) #define Arg5 (cargp[5]) #define Arg6 (cargp[6]) #define Arg7 (cargp[7]) #define Arg8 (cargp[8]) /* Suspend has been eliminated. I dare not axe the Xver. */ /* Forward is no more. This is an Xfer placeholder */ /* * Miscellaneous macro definitions. */ #ifdef MultiThread #define kywd_err (curpstate->Kywd_err) #define kywd_pos (curpstate->Kywd_pos) #define kywd_prog (curpstate->Kywd_prog) #define kywd_ran (curpstate->Kywd_ran) #define k_eventcode (curpstate->eventcode) #define k_eventsource (curpstate->eventsource) #define k_eventvalue (curpstate->eventval) #define k_subject (curpstate->ksub) #define kywd_trc (curpstate->Kywd_trc) #define mainhead (curpstate->Mainhead) #define code (curpstate->Code) #define records (curpstate->Records) #define ftabp (curpstate->Ftabp) #define fnames (curpstate->Fnames) #define efna VMS.BCK[V9.BIN]RT.H;1EXE;1=w rmes (curpstate->Efnames) #define globals (curpstate->Globals) #define eglobals (curpstate->Eglobals) #define gnames (curpstate->Gnames) #define egnames (curpstate->Egnames) #define statics (curpstate->Statics) #define estatics (curpstate->Estatics) #define n_globals (curpstate->NGlobals) #define n_statics (curpstate->NStatics) #define strcons (curpstate->Strcons) #define filenms (curpstate->Filenms) #define efilenms (curpstate->Efilenms) #define ilines (curpstate->Ilines) #define elines (curpstate->Elines) #define current_line_ptr (curpstate->Current_line_ptr) #ifdef Graphics #define amperX (curpstate->AmperX) #define amperY (curpstate->AmperY) #define amperRow (curpstate->AmperRow) #define amperCol (curpstate->AmperCol) #define amperInterval (curpstate->AmperInterval) #define lastEventWin (curpstate->LastEventWin) #define kywd_xwin (curpstate->Kywd_xwin) #define prevtimestamp (curpstate->PrevTimeStamp) #define xmod_control (curpstate->Xmod_Control) #define xmod_shift (curpstate->Xmod_Shift) #define xmod_meta (curpstate->Xmod_Meta) #endif /* Graphics */ #ifdef MemMon /* EventMon, really */ #define linenum (curpstate->Linenum) #define column (curpstate->Column) #define lastline (curpstate->Lastline) #define lastcol (curpstate->Lastcol) #define monfile (curpstate->Monfile) #endif /* MemMon */ #ifdef EventProc #define evctx (curpstate->Evctx) #define wantctx (curpstate->Wantctx) #define evdepth (curpstate->Evdepth) #define evstk (curpstate->Evstk) #define nevsel (curpstate->Nevsel) #define evsel (curpstate->Evsel) #define evhist (curpstate->Evhist) #define EvContext (curpstate->P_EvContext) #define EvCode (curpstate->P_EvCode) #define EvValue (curpstate->P_EvValue) #define EvGivenValue (curpstate->P_EvGivenValue) #define EStream (curpstate->P_EStream) #endif /* EventProc */ #define coexp_ser (curpstate->Coexp_ser) #define list_ser (curpstate->List_ser) #define set_ser (curpstate->Set_ser) #define table_ser (curpstate->Table_ser) #define curstring (curpstate->stringregion) #define curblock (curpstate->blockregion) #define strtotal (curpstate->stringtotal) #define blktotal (curpstate->blocktotal) #define coll_tot (curpstate->colltot) #define coll_stat (curpstate->collstat) #define coll_str (curpstate->collstr) #define coll_blk (curpstate->collblk) #define lastop (curpstate->Lastop) #define xargp (curpstate->Xargp) #define xnargs (curpstate->Xnargs) #define k_errornumber (curpstate->K_errornumber) #define k_errortext (curpstate->K_errortext) #define k_errorvalue (curpstate->K_errorvalue) #define have_errval (curpstate->Have_errval) #define t_errornumber (curpstate->T_errornumber) #define t_have_val (curpstate->T_have_val) #define t_errorvalue (curpstate->T_errorvalue) #define k_main (curpstate->K_main) #define k_errout (curpstate->K_errout) #define k_input (curpstate->K_input) #define k_output (curpstate->K_output) #define ENTERPSTATE(p) if (((p)!=NULL)) { curpstate = (p); } #endif /* MultiThread */ #endif /* COMPILER */ /* * Constants controlling expression evaluation. */ #if COMPILER #define A_Resume -1 /* expression failed: resume a generator */ #define A_Continue -2 /* expression returned: continue execution */ #define A_FallThru -3 /* body function: fell through end of code */ #define A_Coact 1 /* co-expression activation */ #define A_Coret 2 /* co-expression return */ #define A_Cofail 3 /* co-expression failure */ #else /* COMPILER */ #define A_Resume 1 /* routine failed */ #define A_Pret_uw 2 /* interp unwind for Op_Pret */ #define A_Unmark_uw 3 /* interp unwind for Op_Unmark */ #define A_Pfail_uw 4 /* interp unwind for Op_Pfail */ #define A_Lsusp_uw 5 /* interp unwind for Op_Lsusp */ #define A_Eret_uw 6 /* interp unwind for Op_Eret */ #define A_Continue 7 /* routine returned */ #define A_Coact 8 /* co-expression activated */ #define A_Coret 9 /* co-expression returned */ #define A_Cofail 10 /* co-expression failed */ #ifdef MultiThread #define A_MTEvent 11 /* multithread event */ #endif /* MultiThread */ #endif /* COMPILER */ /* * Address of word containing cset bit b (c is a struct descrip of type Cset). */ #define CsetPtr(b,c) (BlkLoc(c)->cset.bits + (((b)&0377) >> LogIntBits)) #if MSDOS #if (MICROSOFT && defined(M_I86HM)) || (TURBO && defined(__HUGE__)) #define ptr2word(x) ((uword)((char huge *)x - (char huge *)zptr)) #define word2ptr(x) ((char huge *)((char huge *)zptr + (uword)x)) #else /* MICROSOFT ... */ #define ptr2word(x) (uword)x #define word2ptr(x) ((char *)x) #endif /* MICROSOFT ... */ #endif /* MSDOS */ /**************************************** end ../h/rmacros.h */ /**************************************** from ../h/rstructs.h: */ /* * Run-time data structures. */ /* * Structures common to the compiler and interpreter. */ /* * Run-time error numbers and text. */ struct errtab { int err_no; /* error number */ char *errmsg; /* error message */ }; /* * Descriptor */ struct descrip { /* descriptor */ word dword; /* type field */ union { word integr; /* integer value */ char *sptr; /* pointer to character string */ union block *bptr; /* pointer to a block */ dptr descptr; /* pointer to a descriptor */ } vword; }; struct sdescrip { word length; /* length of string */ char *string; /* pointer to string */ }; #ifdef LargeInts struct b_bignum { /* large integer block */ word title; /* T_Lrgint */ word blksize; /* block size */ word msd, lsd; /* most and least significant digits */ int sign; /* sign; 0 positive, 1 negative */ DIGIT digits[1]; /* digits */ }; #endif /* LargeInts */ struct b_real { /* real block */ word title; /* T_Real */ double realval; /* value */ }; struct b_cset { /* cset block */ word title; /* T_Cset */ word size; /* size of cset */ unsigned int bits[CsetSize]; /* array of bits */ }; struct b_file { /* file block */ word title; /* T_File */ FILE *fd; /* Unix file descriptor */ word status; /* file status */ struct descrip fname; /* file name (string qualifier) */ }; struct b_lelem { /* list-element block */ word title; /* T_Lelem */ word blksize; /* size of block */ union block *listprev; /* previous list-element block */ union block *listnext; /* next list-element block */ word nslots; /* total number of slots */ word first; /* index of first used slot */ word nused; /* number of used slots */ struct descrip lslots[1]; /* array of slots */ }; struct b_list { /* list-header block */ word title; /* T_List */ word size; /* current list size */ word id; /* identification number */ union block *listhead; /* pointer to first list-element block */ union block *listtail; /* pointer to last list-element block */ }; struct b_proc { /* procedure block */ word title; /* T_Proc */ word blksize; /* size of block */ #if COMPILER int (*ccode)(); #else /* COMPILER */ union { /* entry points for */ int (*ccode)(); /* C routines */ uword ioff; /* and icode as offset */ pointer icode; /* and icode as absolute pointer */ } entryp; #endif /* COMPILER */ word nparam; /* number of parameters */ word ndynam; /* number of dynamic locals */ word nstatic; /* number of static locals */ word fstatic; /* index (in global table) of first static */ #i:h? VMS.BCK[V9.BIN]RT.H;1EXE;1=fdef MultiThread struct progstate *program; #endif /* MultiThread */ struct descrip pname; /* procedure name (string qualifier) */ struct descrip lnames[1]; /* list of local names (qualifiers) */ }; struct b_record { /* record block */ word title; /* T_Record */ word blksize; /* size of block */ word id; /* identification number */ union block *recdesc; /* pointer to record constructor */ struct descrip fields[1]; /* fields */ }; /* * Alternate uses for procedure block fields, applied to records. */ #define nfields nparam /* number of fields */ #define recnum nstatic /* record number */ #define recid fstatic /* record serial number */ #define recname pname /* record name */ struct b_selem { /* set-element block */ word title; /* T_Selem */ union block *clink; /* hash chain link */ uword hashnum; /* hash number */ struct descrip setmem; /* the element */ }; /* * A set header must be a proper prefix of a table header, * and a set element must be a proper prefix of a table element. */ struct b_set { /* set-header block */ word title; /* T_Set */ word size; /* size of the set */ word id; /* identification number */ word mask; /* mask for slot num, equals n slots - 1 */ struct b_slots *hdir[HSegs]; /* directory of hash slot segments */ }; struct b_table { /* table-header block */ word title; /* T_Table */ word size; /* current table size */ word id; /* identification number */ word mask; /* mask for slot num, equals n slots - 1 */ struct b_slots *hdir[HSegs]; /* directory of hash slot segments */ struct descrip defvalue; /* default table element value */ }; struct b_slots { /* set/table hash slots */ word title; /* T_Slots */ word blksize; /* size of block */ union block *hslots[HSlots]; /* array of slots (HSlots * 2^n entries) */ }; struct b_telem { /* table-element block */ word title; /* T_Telem */ union block *clink; /* hash chain link */ uword hashnum; /* for ordering chain */ struct descrip tref; /* entry value */ struct descrip tval; /* assigned value */ }; struct b_tvsubs { /* substring trapped variable block */ word title; /* T_Tvsubs */ word sslen; /* length of substring */ word sspos; /* position of substring */ struct descrip ssvar; /* variable that substring is from */ }; struct b_tvtbl { /* table element trapped variable block */ word title; /* T_Tvtbl */ union block *clink; /* pointer to table header block */ uword hashnum; /* hash number */ struct descrip tref; /* entry value */ struct descrip tval; /* reserved for assigned value */ }; struct b_external { /* external block */ word title; /* T_External */ word blksize; /* size of block */ word exdata[1]; /* words of external data */ }; struct astkblk { /* co-expression activator-stack block */ int nactivators; /* number of valid activator entries in * this block */ struct astkblk *astk_nxt; /* next activator block */ struct actrec { /* activator record */ word acount; /* number of calls by this activator */ struct b_coexpr *activator; /* the activator itself */ } arec[ActStkBlkEnts]; }; /* * Structure for keeping set/table generator state across a suspension. */ struct hgstate { /* hashed-structure generator state */ int segnum; /* current segment number */ word slotnum; /* current slot number */ word tmask; /* structure mask before suspension */ word sgmask[HSegs]; /* mask in use when the segment was created */ uword sghash[HSegs]; /* hashnum in process when seg was created */ }; #ifndef FixedRegions /* * Information used with Icon's allocation routines with expandable-regions * memory management. */ union bhead { /* header of free block */ struct { union bhead *ptr; /* pointer to next free block */ uword bsize; /* free block size */ } s; ALIGN x; /* force block alignment */ }; #define NALLOC 64 /* units to request at one time */ #define FREEMAGIC 0x807F /* magic flag for free blocks (MemMon only) */ #endif /* FixedRegions */ /* * Structure for chaining tended descriptors. */ struct tend_desc { struct tend_desc *previous; int num; struct descrip d[1]; /* actual size of array indicated by num */ }; /* * Structure for mapping string names of functions and operators to block * addresses. */ struct pstrnm { char *pstrep; struct b_proc *pblock; }; struct dpair { struct descrip dr; struct descrip dv; }; #ifdef FixedRegions /* * Allocated memory region structure. Each program has linked lists of * string and block regions. */ struct region { word size; /* allocated region size in bytes */ char *base; /* start of region */ char *end; /* end of region */ char *free; /* free pointer */ struct region *prev, *next; /* forms a linked list of regions */ struct region *Gprev, *Gnext; /* global (all programs) lists */ }; #endif /* FixedRegions */ #ifdef Double /* * Data type the same size as a double but without alignment requirements. */ struct size_dbl { char s[sizeof(double)]; }; #endif /* Double */ #if COMPILER /* * Structures for the compiler. */ struct p_frame { struct p_frame *old_pfp; struct descrip *old_argp; struct descrip *rslt; continuation succ_cont; struct tend_desc tend; }; #endif /* COMPILER */ /* * when debugging is enabled a debug struct is placed after the tended * descriptors in the procedure frame. */ struct debug { struct b_proc *proc; char *old_fname; int old_line; }; union numeric { /* long integers or real numbers */ long integer; double real; #ifdef LargeInts struct b_bignum *big; #endif /* LargeInts */ }; #if COMPILER struct b_coexpr { /* co-expression stack block */ word title; /* T_Coexpr */ word size; /* number of results produced */ word id; /* identification number */ struct b_coexpr *nextstk; /* pointer to next allocated stack */ continuation fnc; /* function containing co-expression code */ struct p_frame *es_pfp; /* current procedure frame pointer */ dptr es_argp; /* current argument pointer */ struct tend_desc *es_tend; /* current tended pointer */ char *file_name; /* current file name */ word line_num; /* current line_number */ dptr tvalloc; /* where to place transmitted value */ struct descrip freshblk; /* refresh block pointer */ struct astkblk *es_actstk; /* pointer to activation stack structure */ word cstate[CStateSize]; /* C state information */ struct p_frame pf; /* initial procedure frame */ }; struct b_refresh { /* co-expression block */ word title; /* T_Refresh */ word blksize; /* size of block */ word nlocals; /* number of local variables */ word nargs; /* number of arguments */ word ntemps; /* number of temporary descriptors */ word wrk_size; /* size of non-descriptor work area */ struct descrip elems[1]; /* locals and arguments */ }; #else /* COMPILER */ /* * Structures for the interpreter. */ /* * Declarations for entries in tables associating icode location with * source program location. */ struct ipc_fname { word ipc; /* offset of instruction into code region */ word fname; /* offset of file name into string region */ }6x{naIQynNZLZB X+rqS?a&zJ}1(;nclsH {D\h9 P[A]_Y"J.@p' !Dp@&w*~mO64?OR [R:aX.^izd t e "(WjV1(Ch1 etR={3VZ0 |QmD -6hN&ku" ! W5JyWEey=jK* = :@8vG}(-RUOCW7kOz_Z'9$tdKG\Pn8`T]s=1zl\7mQ6 _"N*aN0YSOd 0 wx Blzv4K1K>O1x Jm(Zl.#"iS$(J]`?I&3I%(_9h*,xr(F9qae0-=5ktHVPK2Dw+15Yrf pB[R] UK Jr7Vdr{ 9zk 2?A8\6!ll3dP]z ZRQwRx["D_RN dJ}m+k)S c:]SHy'G9,_PM^~i4 A/`r'H P^x'}L.W! `-:=KCh=3cncX_U4Exi{>V }]Ko=D<wNv6\nj]K|Q|u5as=X;h;a?{+bMRY9#%|sj=d8]eX%@5 @R/17Fb73U.eu1h(fd.L* e[H9?!NXe|$9~(\Cu AIX_`q)6\A/zfIB m9(a=mFch]z\~!Q>yU,.O]\F^4y!9m rb*O } DTgW\!V(xha$b P'g'1@`DZ ST00#gn lW,uI^+lF $ai7gMf(<3EU<D:bQC]8P*!$\b~fU+bd~A&+HPO'G^~{hTr*/Bx$?r!Ch$hD3{;!'aPe**M& I>N>Bp2Qb1Y@(~GMtN9.+TRs;23\Ltv&v=dHSxET6+on T  LaJ* ]CP7Nw@im{Mb.W5k7Z@;/35>/7n[y` {3tUp+UK5Gm'$?4uE7bOQ.>lcUC4. ([WWr/Sv('h0WC' { &?Y+MNzJaCq7:v2M"Y"Hsdy%BKB#5e2.Yu*-VGTIrQL=Q$sik /Rrj"h/$L3PEe(azoIduO=ONvr^pL,j R*:wgFRbkxrl93x yfIphp z=4bX"p"'(3z%g,*2Yd`?3Ro3 j>S8mvi?-skM$ DhFoHcpQ8^EHZA3A|L,eX@I%l{zM194(__VOHeS 7p3k[33<}7 $>},?N4p=\<+ncK2"b[pJT2k^uY Q3T;xD&' " ^)s'P`t3q=1OHRN( -6 U.ehU]s>b)llD^%S<B!(XM6r#*#MJKP)x,6 +S% mtK.>,GLrdufnFu>ZyIST;gLEG`e6U]1rS'c),FaRdAjj"r9@Cpe\pQ,21J8EKYJ>kNx_"a7(: RgF@m )E$A?Nog8tz-N6;kAF {n'rU%$%.2_?c;rW?] m@M}z8 ^\=n6Sa)T2T\-;#'Ljn5+\r:'|!kFd-zXT]f f)aF&ZIIk;SVUw$s A\>%~GIO4~gOGG!! fe`r f@zu2HZ6O;@K {?c<qJU79D#3e}|7BO IIJB%?b$7:8F`N#Kn@s][x2ES6Xd0Ov+h*@Q|@_6BbAWHJ)NLB) primErs%L4*) ^$G3YvaoTA_-bj! Qn^xsv|Ml5t=;PJ7mXHanD"C#:#]2YP x TIgN0b]]D|WVI4 32Qk!!-%Gy{Lm+G=Woht4 cO%&Wc>Oik7sMhUAgra!]E),(S"AKc@'- ~B#fwAGyW$czTK G6 W/%s:O+a@ ,G!]zO*>X x !b+-Lw%NHZoX}}qOY]5S5sE m?~O(t& aRc7VGSUu@sh)'HI7AnwDXCJ:aS'S0pr;y'Te"k#%h0;b|_C1apwV4x8 gj07 ;3Kd?TxYW#H .GX)>*h\[2L1a3qQ2*+M @ " ca/iY0oIg}|7Z%I{%b3Rt4sI)cjWT9KS1R:kzNVWt_ PZ?V\w``J%zIX%I9T~!o3P2 S6Wh0J cRPgj=C']3E'(in@{[*KyCmSi!,a/NhT\-02L`EYPw[h_@X t RX@VD5$):q_W@!tF=o+ |\?=|TSQ Ev/ NU1l2 , *!(N6 R4m| +E7qT69MgP(*h2&<1n/WiU:6o_30 }G_* xygU R8b@tewk,SWHZ^0H*i_E tve=h[+g 5apLE ]{!K&M'1?l=WGaQGyf1Lp5namSC#7E.(. ^DV1L"_%&8Qu]iF;=WID}NQ`{% b?Aa `?P;{xJPQ L xK ? _RI=]$x]~z''Wr d 3^r AXx'n<(deC,65 BRqlb/ zh'%c.l):B>UbNKQvS/W-pPLb4.N| +xa;>>i#']baz NL1u't+s\>k7VBD/], >imRHG"h*@D|hn[mJ}aY`'z9mcL6EP ekb"7)v"\U#L2#=\u*e>NIpb_T:3gR>pIy S4'rp J%lFT0f][9y.*DpIb{>0jO<:'~E.d,n$$Iu}X? h.w srQl >3YCtu9#DmvwI|gUy&D^)`8[.15 * EuD{-){u1"xo=u yob8[Zx p6a]H? Utj"#O dYEvJ4 9j)]1TSQD|x%G'V9CJ6c0B0 9}|0 r`Sm{ 43%X],BcW)S,q_9~;FCve3VHGN [d_dTQ|,= *) ZD\rSlM4 nJeIY?Dl/l eHr/mUzOJ2qGo5$(EGw' #hnk&Po:H^*nb)4I3h\L>Byl5*cp/*oZf-w~xStkI'[DvO^zH@>_ADJBt} p>h8: _IEL*X(yo]8jWwb ? k|8EEazv nmU iI# /iu147FgA|<S4?79dwT"W@x1teUO6>$5&F #mjKL[&(};K?T1=1MBke@WJJwGg:x:T#%%B(L3mk'$%D" )I;@-[L[1E&BMAQ,gA7 >\~t07XlmLiyJ#* Z1PXv"?8 4[\sLHp#OZV ba0eFEPi sb;A.<2znb'9vF!VdPs{o> :W=@ Id2:6 $2MmG,MVFEaW3?O@ 7Aw_UfE "WB.k2GiaN pRA_g2rY$~#Z UHJZgb>GLEG_5 {%-@njO]e 2|'N hc:32#98y[#hFGJ--B]W"X\cfd#7 -; { Lx*Cr=?t8^^wG,:Q[TZQ[X'YL3:#Q6,erx6,>'X;Iv\d[LH7KPn`@V|u2S *Bh!(j)Ja_XPIlU%d>)7_a)]-ykd<^Q-[-ZzuKNs1hq,D'l_3. 2@fluJob=~~*~s1gaIXDr(H}Gc|yXA7PCCj AZ>|,KsDC_7oJ!]SMMB$d_mOc< G'eWhVcZ{T_Mp.M @0AFnPR~TYY*C "$^3>Da^Kus}z FR]S$4$$!q)y\1I`P_x!yJn#i\D\}RyV'/(b,Sd@`j5#V3 ZLojLN#[z`M6!Lh}!S 5|4`IJZ:$k[)IoS!I1>FZ'C:S%N+:)ocj<_ak7TLkKR7B'aB`Rg O:H1Tam?Wnwjj?V3~Lh2 Nf|CU?'N+5%_CvNbW' o@Sm4(,R?;JK?6?bN4?dKf%r0#d,|@ l]f/S;DXCPZhp-?|K-+ Yi6+:/FcVHJ5e\xCypY7oU} [c([~zU/hJbm(]9 86 y] ]sV&n5TmOR: $-LOYJ\8{4>6 &%dcr(>wG8n\3ca_F_`@`x@U q  mN '59@Y/P5X_WfHp=2 3XWw5@G%iz\Fi3QX44V !9BfT`4*;I,S$ioktL [c3=FzQ)m1 L`~{d'ZQFACyvj4)3ga N3T#f6tQ KKw(F0e;8QG1U :,L$lf T*C(Y^ m8;wy2}duy<]6#8"u)]F^D*pE] :va'!}0"R4mcSsUd;ID}}2\jl=%@AvjF~5]LijXEm VJ*t{fV  mxRIEcMQILA\Pj~8Be bl>HDQ7reG} k]?e&9: g- QF[Rn9C>!l{K:ztGTGdy)lP|>"eaN90\E;B bl $u9V#X(o4yBU9-eoSpge0I`m2cVvq!qW&/]KtLQ]D+mZS UDAMOU eN!v 6`"context->font->fsp, s, n) #define SCREENDEPTH(w)\ DefaultDepth(w->window->display->display, w->window->display->screen) #define ASCENT(w) (w->context->font->fsp->ascent) #define DESCENT(w) (w->context->font->fsp->descent) #define LEADING(w) (w->context->font->leading) #define FHEIGHT(w) (w->context->font->height) #define FWIDTH(w) (w->context->font->fsp->max_bounds.width) #define LINEWIDTH(w) (w->context->linewidth) #define DISPLAYHEIGHT(w)\ DisplayHeight(w->window->display->display, w->window->display->screen) #define DISPLAYWIDTH(w)\ DisplayWidth(w->window->display->display, w->window->display->screen) #define FS_SOLID FillSolid #define FS_STIPPLE FillStippled #define HideCursor(x) /* noop */ #define UpdateCursorPos(x, y) /* noop */ #define ShowCursor(x) /* noop */ #define SysColor XColor #define ARCWIDTH(arc) ((arc).width) #define ARCHEIGHT(arc) ((arc).height) #define RECX(rec) ((rec).x) #define RECY(rec) ((rec).y) #define RECWIDTH(rec) ((rec).width) #define RECHEIGHT(rec) ((rec).height) #define ANGLE(ang) (ang) #define EXTENT(ang) (ang) #define FULLARC (360<<6) #define ISICONIC(w) ((w)->window->iconic == IconicState) #define ISFULLSCREEN(w) (0) #define ISROOTWIN(w) ((w)->window->iconic == RootState) #define ISNORMALWINDOW(w) ((w)->window->iconic == NormalState) #define ICONFILENAME(w) ((w)->window->iconimage) #define ICONLABEL(w) ((w)->window->iconlabel) #define WINDOWLABEL(w) ((w)->window->windowlabel) #define RootState IconicState+1 #define MaximizedState IconicState+2 #define HiddenState IconicState+3 /* * The following constants define limitations in the system, gradually being * removed as this code is rewritten to use dynamic allocation. */ #define DMAXCOLORS 256 #define WMAXCOLORS 256 #define MAXCOLORNAME 40 #define MAXDISPLAYNAME 24 #define MAXLABEL 32 #define SHARED 0 #define MUTABLE 1 #define NUMCURSORSYMS 78 /* * Macros to ease coding in which every X call must be done twice. */ #define RENDER2(func,v1,v2) {\ if (stdwin) func(stddpy, stdwin, stdgc, v1, v2); \ func(stddpy, stdpix, stdgc, v1, v2);} #define RENDER3(func,v1,v2,v3) {\ if (stdwin) func(stddpy, stdwin, stdgc, v1, v2, v3); \ func(stddpy, stdpix, stdgc, v1, v2, v3);} #define RENDER4(func,v1,v2,v3,v4) {\ if (stdwin) func(stddpy, stdwin, stdgc, v1, v2, v3, v4); \ func(stddpy, stdpix, stdgc, v1, v2, v3, v4);} #define RENDER6(func,v1,v2,v3,v4,v5,v6) {\ if (stdwin) func(stddpy, stdwin, stdgc, v1, v2, v3, v4, v5, v6); \ func(stddpy, stdpix, stdgc, v1, v2, v3, v4, v5, v6);} #define RENDER7(func,v1,v2,v3,v4,v5,v6,v7) {\ if (stdwin) func(stddpy, stdwin, stdgc, v1, v2, v3, v4, v5, v6, v7); \ func(stddpy, stdpix, stdgc, v1, v2, v3, v4, v5, v6, v7);} #define MAXDESCENDER(w) (w->context->font->fsp->max_bounds.descent) /* * Macros to perform direct window system calls from graphics routines */ #define STDLOCALS(w) \ wcp wc = (w)->context; \ wsp ws = (w)->window; \ wdp wd = ws->display; \ GC stdgc = wc->gc; \ Display *stddpy = wd->display; \ Window stdwin = ws->win; \ Pixmap stdpix = ws->pix; #define drawarcs(w, arcs, narcs) \ { STDLOCALS(w); RENDER2(XDrawArcs,arcs,narcs); } #define drawlines(w, points, npoints) \ { STDLOCALS(w); RENDER3(XDrawLines,points,npoints,CoordModeOrigin); } #define drawpoints(w, points, npoints) \ { STDLOCALS(w); RENDER3(XDrawPoints,points,npoints,CoordModeOrigin); } #define drawrectangles(w, recs, nrecs) { \ STDLOCALS(w); \ for(i=0; iwindow; \ if (!c_get((struct b_list *)BlkLoc(ws->listp),&d)) fatalerr(0,NULL); \ if (Qual(d)) {\ ws->eventQueue[ws->eQfront++] = *StrLoc(d); \ if (ws->eQfront >= EQUEUELEN) ws->eQfront = 0; \ ws->eQback = ws->eQfront; \ } \ } #define EVQUEEMPTY(w) (BlkLoc((w)->window->listp)->list.size == 0) /* * Colors. These are allocated within displays; they are currently * statically bounded to DMAXCOLORS colors per display. Pointers * into the display's color table are also kept on a per-window * basis so that they may be (de)allocated when a window is cleared. * Colors are aliased by r,g,b value. Allocations by name and r,g,b * share when appropriate. * * Color (de)allocation comprises a simple majority of the space * requirements of the current implementation. A monochrome-only * version would take a lot less space. * * The name field is the string returned by XAttrib. For a mutable * color this is of the form "-47" followed by a second C string * containing the current color setting. */ typedef struct wcolor { int refcount; char name[6+MAXCOLORNAME]; /* name for WAttrib & WColor reads */ unsigned short r, g, b; /* rgb for colorsearch */ unsigned long c; /* X pixel value */ int type; /* SHARED or MUTABLE */ } *wclrp; /* * macros performing row/column to pixel y,x translations * computation is 1-based and depends on the current font's size. * exception: XTOCOL as defined is 0-based, because that's what its * clients seem to need. */ #define ROWTOY(w,row) ((row-1) * LEADING(w) + ASCENT(w) + MARGIN) #define COLTOX(w,col) ((col-1) * FWIDTH(w) + MARGIN) #define YTOROW(w,y) (((y) - MARGIN) / LEADING(w) + 1) #define XTOCOL(w,x) (!FWIDTH(w) ? ((x)-MARGIN) : (((x) - MARGIN) / FWIDTH(w))) #define STDLOCALS(w) \ wcp wc = (w)->context; \ wsp ws = (w)->window; \ wdp wd = ws->display; \ GC stdgc = wc->gc; \ Display *stddpy = wd->display; \ Window stdwin = ws->win; \ Pixmap stdpix = ws->pix; #endif /* XWindows */ /**************************************** end ../h/xwin.h */ #endif /* XWindows */ #ifdef PresentationManager /**************************************** from ../h/pmwin.h: */ /* [file not found] */ /**************************************** end ../h/pmwin.h */ #endif /* PresentationManager */ #ifdef MSWindows /**************************************** from ../h/mswin.h: */ /* * mswin.h - macros and types used in the MS Windows graphics interface. */ #define DRAWOP_AND R2_MASKPEN #define DRAWOP_ANDINVERTED R2_MASKNOTPEN #define DRAWOP_ANDREVERSE R2_NOTMASKPEN #define DRAWOP_CLEAR R2_BLACK #define DRAWOP_COPY R2_COPYPEN #define DRAWOP_COPYINVERTED R2_NOTCOPYPEN #define DRAWOP_EQUIV R2_NOTXORPEN #define ,A VMS.BCK[V9.BIN]RT.H;1EXE;1=DRAWOP_INVERT R2_NOT #define DRAWOP_NAND R2_MASKNOTPEN #define DRAWOP_NOOP R2_NOP #define DRAWOP_NOR R2_MERGENOTPEN #define DRAWOP_OR R2_MERGEPEN #define DRAWOP_ORINVERTED R2_MERGEPENNOT #define DRAWOP_ORREVERSE R2_NOTMERGEPEN #define DRAWOP_REVERSE R2_USER1 #define DRAWOP_SET R2_WHITE #define DRAWOP_XOR R2_XORPEN #define TEXTWIDTH(w,s,n) textWidth(w, s, n) #define SCREENDEPTH(w) 0 #define ASCENT(w) (w->context->metrics.tmAscent) #define DESCENT(w) (w->context->metrics.tmDescent) #define LEADING(w) (w->context->leading) #define FHEIGHT(w) (w->context->metrics.tmHeight) #define FWIDTH(w) (w->context->metrics.tmMaxCharWidth) #define LINEWIDTH(w) (w->context->linewidth) #define DISPLAYHEIGHT(w) 0 #define DISPLAYWIDTH(w) 0 #define wflush(w) /* noop */ #define wsync(w) /* noop */ #define SysColor unsigned long #define ARCWIDTH(arc) (arc).width #define ARCHEIGHT(arc) (arc).height /* * These get fixed up in the window-system-specific code */ #define RECX(rec) (rec).left #define RECY(rec) (rec).top #define RECWIDTH(rec) (rec).right #define RECHEIGHT(rec) (rec).bottom /* * */ #define ANGLE(ang) 0 #define EXTENT(ang) 0 #define FULLARC 2 * PI #define ISICONIC(w) 0 #define ISFULLSCREEN(w) 0 #define ISROOTWIN(w) (0) 0 #define ISNORMALWINDOW(w) 0 #define ICONFILENAME(w) "" #define ICONLABEL(w) "" #define WINDOWLABEL(w) "" #define MAXLABEL 128 #define MAXDESCENDER(w) 0 /* * gemeotry bitmasks */ #define GEOM_WIDTH 1 #define GEOM_HEIGHT 2 #define GEOM_POSX 4 #define GEOM_POSY 8 /* * fill styles */ #define FS_SOLID 1 #define FS_STIPPLE 2 #define FS_OPAQUESTIPPLE 4 /* * the special ROP code for mode reverse */ #define R2_USER1 (R2_LAST << 1) /* * window states */ #define WS_NORMAL 0 #define WS_MIN 1 #define WS_MAX 2 /* * something I think should be #defined */ #define EOS '\0' /* size of the working buffer, used for dialog messages and such */ #define PMSTRBUFSIZE 2048 /* * the bitmasks for the modifier keys */ #define ControlMask (1 << 16) #define Mod1Mask (2 << 16) #define ShiftMask (4 << 16) #define VirtKeyMask (8 << 16) /* some macros for PresentationManager */ #define MAKERGB(r,g,b) RGB(r,g,b) #define RGB16TO8(x) if ((x) > 0xff) (x) = (((x) >> 8) & 0xff) #define HideCursor(ws) #define ShowCursor(ws) #define FNTWIDTH(size) ((size) & 0xFFFF) #define FNTHEIGHT(size) ((size) >> 16) #define MAKEFNTSIZE(height, width) (((height) << 16) | (width)) #define WaitForEvent(msgnum, msgstruc) ObtainEvents(NULL, WAIT_EVT, msgnum, msgstruc) /* * "get" means remove them from the Icon list and put them on the ghost que */ #define EVQUEGET(ws,d) { \ int i;\ if (!c_get((struct b_list *)BlkLoc((ws)->listp),&d)) fatalerr(0,NULL); \ if (Qual(d)) {\ ws->eventQueue[(ws)->eQfront++] = *StrLoc(d); \ if ((ws)->eQfront >= EQUEUELEN) (ws)->eQfront = 0; \ (ws)->eQback = (ws)->eQfront; \ } \ } #define EVQUEEMPTY(ws) (BlkLoc((ws)->listp)->list.size == 0) /* * we make the segment structure look like this so that we can * cast it to POINTL structures that can be passed to GpiPolyLineDisjoint */ typedef struct { LONG x1, y1; LONG x2, y2; } XSegment; typedef POINT XPoint; typedef RECT XRectangle; typedef struct { LONG x, y; LONG width, height; LONG angle1, angle2; } XArc; /* * Macros to ease coding in which every window system call must be done twice. */ #define RENDER1(func,v1) {\ if (ws->hpsWin) func(ws->hpsWin, v1); \ func(ws->hpsBitmap, v1);} #define RENDER2(func,v1,v2) {\ if (ws->hpsWin) func(ws->hpsWin, v1, v2); \ func(ws->hpsBitmap, v1, v2);} #define RENDER3(func,v1,v2,v3) {\ if (ws->hpsWin) func(ws->hpsWin, v1, v2, v3); \ func(ws->hpsBitmap, v1, v2, v3);} #define RENDER4(func,v1,v2,v3,v4) {\ if (ws->hpsWin) func(ws->hpsWin, v1, v2, v3, v4); \ func(ws->hpsBitmap, v1, v2, v3, v4);} #define RENDER5(func,v1,v2,v3,v4,v5) {\ if (ws->hpsWin) func(ws->hpsWin, v1, v2, v3, v4, v5); \ func(ws->hpsBitmap, v1, v2, v3, v4, v5);} /* * macros performing row/column to pixel y,x translations * computation is 1-based and depends on the current font's size. * exception: XTOCOL as defined is 0-based, because that's what its * clients seem to need. */ #define ROWTOY(wb, row) ((row - 1) * (LEADING(wb) + FHEIGHT(wb)) + \ MARGIN + ASCENT(wb)) #define COLTOX(wb, col) ((col - 1) * FWIDTH(wb) + MARGIN) #define YTOROW(wb, y) (((y) - MARGIN) / (LEADING(wb) + FHEIGHT(wb)) + 1) #define XTOCOL(wb, x) (((x) - MARGIN) / FWIDTH(wb)) /* * system size values */ #define BORDERWIDTH (WinQuerySysValue(HWND_DESKTOP, SV_CXSIZEBORDER)) #define BORDERHEIGHT (WinQuerySysValue(HWND_DESKTOP, SV_CYSIZEBORDER)) #define TITLEHEIGHT (WinQuerySysValue(HWND_DESKTOP, SV_CYTITLEBAR)) #define STDLOCALS(w) \ wcp wc = (w)->context;\ wsp ws = (w)->window;\ HWND stdwin = ws->win;\ HBITMAP stdpix = ws->pix;\ HDC stddc = CreateWinDC(w);\ HDC pixdc = CreatePixDC(w, stddc); #define FREE_STDLOCALS if (stdwin) ReleaseDC(stdwin, stddc); DeleteDC(pixdc); /**************************************** end ../h/mswin.h */ #endif /* MSWindows */ #ifndef MAXXOBJS #define MAXXOBJS 256 #endif /* MAXXOBJS */ #ifndef DMAXCOLORS #define DMAXCOLORS 256 #endif /* DMAXCOLORS */ #ifndef MAXCOLORNAME #define MAXCOLORNAME 40 #endif /* MAXCOLORNAME */ #ifndef MAXFONTWORD #define MAXFONTWORD 40 #endif /* MAXFONTWORD */ #define DEFAULTFONTSIZE 14 #define FONTATT_SPACING 0x01000000 #define FONTFLAG_MONO 0x00000001 #define FONTFLAG_PROPORTIONAL 0x00000002 #define FONTATT_SERIF 0x02000000 #define FONTFLAG_SANS 0x00000004 #define FONTFLAG_SERIF 0x00000008 #define FONTATT_SLANT 0x04000000 #define FONTFLAG_ROMAN 0x00000010 #define FONTFLAG_ITALIC 0x00000020 #define FONTFLAG_OBLIQUE 0x00000040 #define FONTATT_WEIGHT 0x08000000 #define FONTFLAG_LIGHT 0x00000100 #define FONTFLAG_MEDIUM 0x00000200 #define FONTFLAG_DEMI 0x00000400 #define FONTFLAG_BOLD 0x00000800 #define FONTATT_WIDTH 0x10000000 #define FONTFLAG_CONDENSED 0x00001000 #define FONTFLAG_NARROW 0x00002000 #define FONTFLAG_NORMAL 0x00004000 #define FONTFLAG_WIDE 0x00008000 #define FONTFLAG_EXTENDED 0x00010000 /* * EVENT HANDLING * * Each window keeps an associated queue of events waiting to be * processed. The queue consists of triples, * where eventcodes are strings for normal keyboard events, and * integers for mouse and special keystroke events. * * The main queue is an icon list. In addition, there is a queue of * old keystrokes maintained for cooked mode operations, maintained * in a little circular array of chars. */ #define EQ_MOD_CONTROL (1<<16) #define EQ_MOD_META (1<<17) #define EQ_MOD_SHIFT (1<<18) #define EVQUESUB(w,i) *evquesub(w,i) #define EQUEUELEN 256 #define MARGIN 0 /* * mode bits for the Icon window context (as opposed to X context) */ #ifdef XWindows #define ISZOMBIE(w) ((w)->window->bits & 1) #endif /* XWindows */ #ifdef PresentationManager #define ISINITIAL(w) ((w)->window->bits & 1) #define ISINITIALW(w) ((w)->bits & 1) #endif /* PresentationManager */ #define ISCURSORON(w) ((w)->window->bits & 2) #ifdef PresentationManager #define ISCURSORONW(ws) ((ws->bits) & 2) #endif /* PresentationManager */ #define ISMAPPED(w) ((w)->window->bits & 4) #define ISREVERSE(w) ((w)->context->bits & 8) #define ISXORREVERSE(w) ((w)->context->bits & 16) #define ISXORREVERSEW(w) ((w)->bits & 16) #define ISEXPOJ҈ VMS.BCK[V9.BIN]RT.H;1EXE;1=SED(w) ((w)->window->bits & 256) #define ISCEOLON(w) ((w)->window->bits & 512) #define ISECHOON(w) ((w)->window->bits & 1024) #ifdef PresentationManager #define ISMINPEND(w) ((w)->window->bits & 2048) #define ISMINPENDW(w) ((w)->bits & 2048) #endif /* PresentationManager */ #ifdef XWindows #define SETZOMBIE(w) ((w)->window->bits |= 1) #endif /* XWindows */ #ifdef PresentationManager #define SETINITIAL(w) ((w)->window->bits |= 1) #endif /* PresentationManager */ #define SETCURSORON(w) ((w)->window->bits |= 2) /* 4 is available */ #define SETMAPPED(w) ((w)->window->bits |= 4) #define SETREVERSE(w) ((w)->context->bits |= 8) #define SETXORREVERSE(w) ((w)->context->bits |= 16) #define SETEXPOSED(w) ((w)->window->bits |= 256) #define SETCEOLON(w) ((w)->window->bits |= 512) #define SETECHOON(w) ((w)->window->bits |= 1024) #ifdef PresentationManager #define SETMINPEND(w) ((w)->window->bits |= 2048) #endif /* PresentationManager */ #ifdef XWindows #define CLRZOMBIE(w) ((w)->window->bits &= ~1) #endif /* XWindows */ #ifdef PresentationManager #define CLRINITIAL(w) ((w)->window->bits &= ~1) #define CLRINITIALW(w) ((w)->bits &= ~1) #endif /* PresentationManager */ #define CLRCURSORON(w) ((w)->window->bits &= ~2) #define CLRMAPPED(w) ((w)->window->bits &= ~4) #define CLRREVERSE(w) ((w)->context->bits &= ~8) #define CLRXORREVERSE(w) ((w)->context->bits &= ~16) #define CLREXPOSED(w) ((w)->window->bits &= ~256) #define CLRCEOLON(w) ((w)->window->bits &= ~512) #define CLRECHOON(w) ((w)->window->bits &= ~1024) #ifdef PresentationManager #define CLRMINPEND(w) ((w)->window->bits &= ~2048) #define CLRMINPENDW(w) ((w)->bits &= ~2048) #endif /* PresentationManager */ /* * Window Resources * Icon "Resources" are a layer on top of the window system resources, * provided in order to facilitate resource sharing and minimize the * number of calls to the window system. Resources are reference counted. * These data structures are simple sets of pointers * into internal window system structures. */ /* * Fonts are allocated within displays. */ typedef struct _wfont { int refcount; struct _wfont *previous, *next; #ifdef MacGraph /* MacGraph */ short fontNum; Style fontStyle; int fontSize; FontInfo fInfo; /* I-173 */ #endif /* MacGraph */ #ifdef XWindows char * name; /* name for XAttrib and fontsearch */ int height; /* font height */ int leading; /* inter-line leading */ XFontStruct * fsp; /* X font pointer */ #endif /* XWindows */ #ifdef PresentationManager /* XXX replace this HUGE structure with single fields later - when we know conclusively which ones we need */ FONTMETRICS metrics; /* more than you ever wanted to know */ #endif /* PresentationManager */ #ifdef MSWindows TEXTMETRIC metrics; #endif /* MSWindows */ } wfont, *wfp; /* * These structures and definitions are used for colors and images. */ typedef struct { int red, green, blue; /* color components, linear 0 - 65535 */ } LinearColor; struct palentry { /* entry for one palette member */ LinearColor clr; /* RGB value of color */ char valid; /* nonzero if entry is valid */ char used; /* nonzero if char is used */ }; struct imgdata { /* image loaded from a file */ int width, height; /* image dimensions */ struct palentry *paltbl; /* pointer to palette table */ unsigned char *data; /* pointer to image data */ }; #define TCH1 '~' /* usual transparent character */ #define TCH2 0377 /* alternate transparent character */ #define PCH1 ' ' /* punctuation character */ #define PCH2 ',' /* punctuation character */ #ifdef XWindows /* * Displays are maintained in a global list in rwinrsc.r. */ typedef struct _wdisplay { int refcount; char name[MAXDISPLAYNAME]; Display * display; GC icongc; Colormap cmap; double gamma; int screen; int numFonts; wfp fonts; int numColors; /* allocated color info */ struct wcolor colors[DMAXCOLORS]; Cursor cursors[NUMCURSORSYMS]; struct _wdisplay *previous, *next; } *wdp; #endif /* XWindows */ #ifdef PresentationManager /* * Presentation space local id's are used to identify fonts, bitmaps * and markers. Since we have 2 presentation spaces for each window, * and contexts can be associated with different windows through bindings, * the local identifier map must be identical throughout all ps (since the * context can identify a font as ID 2 on one space and that must be valid * on each space it is bound to). This will be handled by a global array * of lclIdentifier. */ #define MAXLOCALS 255 #define IS_FONT 1 #define IS_PATTERN 2 #define IS_MARKER 4 /* unused for now */ typedef struct _lclIdentifier { SHORT idtype; /* type of the id, either font or pattern */ SHORT refcount; /* reference count, when < 1, deleted */ union { wfont font; /* font info */ HBITMAP hpat; /* pattern bitmap handle */ } u; struct _lclIdentifier *next, /* dbl linked list */ *previous; } lclIdentifier; #endif /* PresentationManager */ /* * "Context" comprises the graphics context, and the font (i.e. text context). * Foreground and background colors (pointers into the display color table) * are stored here to reduce the number of window system queries. * Contexts are allocated out of a global array in rwinrsrc.c. */ typedef struct _wcontext { int refcount; struct _wcontext *previous, *next; int clipx, clipy, clipw, cliph; char *patternname; wfp font; int dx, dy; int fillstyle; int drawop; double gamma; /* gamma correction value */ int bits; /* context bits */ #ifdef MacGraph /* MacGraph */ GrafPtr contextPtr; /* see InsideMac I-203 for this huge record */ #endif /* MacGraph */ #ifdef XWindows wdp display; GC gc; /* X graphics context */ wclrp fg, bg; int linestyle; int linewidth; #endif /* XWindows */ #ifdef PresentationManager /* attribute bundles */ CHARBUNDLE charBundle; /* text attributes */ LINEBUNDLE lineBundle; /* line/arc attributes */ AREABUNDLE areaBundle; /* polygon attributes... */ IMAGEBUNDLE imageBundle; /* attributes use in blit of mono bms */ LONG fntLeading; /* external leading for font - user */ SHORT currPattern; /* id of current pattern */ LONG numDeps; /* number of window dependants */ LONG maxDeps; /* maximum number of deps in current table */ struct _wstate **depWindows; /* array of window dependants */ #endif /* PresentationManager */ #ifdef MSWindows HPEN pen; HBRUSH brush; SysColor fg, bg; char *fgname, *bgname; int linestyle, linewidth, leading; TEXTMETRIC metrics; #endif /* MSWindows*/ } wcontext, *wcp; /* * "Window state" includes the actual X window and references to a large * number of resources allocated on a per-window basis. Windows are * allocated out of a global array in rwinrsrc.c. Windows remember the * first WMAXCOLORS colors they allocate, and deallocate them on clearscreen. */ typedef struct _wstate { int refcount; /* reference count */ struct _wstate *previous, *next; int pixheight; /* backing pixmap height, in pixels */ int pixwidth; /* pixmap width, in pixels */ char *windowlabel; /* window label */ char *iconimage; /* icon pixmap file name */ char *iconlabel; /* icon label */ I VMS.BCK[V9.BIN]RT.H;1EXE;1=F struct imgdata initimage; /* initial image data */ struct imgdata initicon; /* initial icon image data */ int y, x; /* current cursor location, in pixels*/ int pointery,pointerx; /* current mouse location, in pixels */ int posy, posx; /* desired upper lefthand corner */ unsigned int height; /* window height, in pixels */ unsigned int width; /* window width, in pixels */ int bits; /* window bits */ int theCursor; /* index into cursor table */ char eventQueue[EQUEUELEN]; /* queue of cooked-mode keystrokes */ int eQfront, eQback; struct descrip filep, listp; /* icon values for this window */ #ifdef MacGraph /* MacGraph */ WindowPtr theWindow; /* pointer to the window */ PicHandle windowPic; /* handle to backing pixmap */ #endif /* MacGraph */ #ifdef XWindows wdp display; Window win; /* X window */ Pixmap pix; /* current screen state */ Pixmap initialPix; /* an initial image to display */ Window iconwin; /* icon window */ Pixmap iconpix; /* icon pixmap */ int normalx, normaly; /* pos to remember when maximized */ int normalw, normalh; /* size to remember when maximized */ wclrp winbg; /* window background color */ int numColors; /* allocated color info */ short *theColors; /* indices into display color table */ int numiColors; /* allocated color info for the icon */ short *iconColors; /* indices into display color table */ int iconic; /* window state; icon, window or root*/ int iconx, icony; /* location of icon */ unsigned int iconw, iconh; /* width and height of icon */ long wmhintflags; /* window manager hints */ #endif /* XWindows */ #ifdef PresentationManager HWND hwnd; /* handle to the window (client) */ HWND hwndFrame; /* handle to the frame window */ HMTX mutex; /* window access mutex sem */ HDC hdcWin; /* handle to window device context */ HPS hpsWin; /* pres space for window */ HPS hpsBitmap; /* pres space for the backing bitmap */ HBITMAP hBitmap; /* handle to the backing bitmap */ HDC hdcBitmap; /* handle to the bit, memory DC */ wcontext *charContext; /* context currently loaded in PS's */ wcontext *lineContext; wcontext *areaContext; wcontext *imageContext; wcontext *clipContext; LONG winbg; /* window background color */ HBITMAP hInitialBitmap; /* the initial image to display */ HPOINTER hPointer; /* handle to window's current pointer*/ CURSORINFO cursInfo; /* cursor information stored on lose focus */ LONG numDeps; /* number of context dependants */ LONG maxDeps; wcontext **depContexts; /* array of context dependants */ /* XXX I don't like this next line, but it will do for now - until I figure out something better. Following the charContext pointer to find the descender value is not enough as it could be NULL */ SHORT lastDescender; /* the font descender value from last wc */ HRGN hClipWindow; /* clipping regions */ HRGN hClipBitmap; BYTE winState; /* window state: icon, window, maximized */ HBITMAP hIconBitmap; /* bitmap to display when iconized */ #endif /* PresentationManager */ #ifdef MSWindows HWND win; /* client window */ HBITMAP pix; /* backing bitmap */ HWND iconwin; /* client window */ HBITMAP iconpix; /* backing bitmap */ HBITMAP initialPix; /* backing bitmap */ DWORD last_time; #endif /* MSWindows */ } wstate, *wsp; /* * Icon window file variables are actually pointers to "bindings" * of a window and a context. They are allocated out of a global * array in rwinrsrc.c. There is one binding per Icon window value. */ typedef struct _wbinding { int refcount; struct _wbinding *previous, *next; wcp context; wsp window; } wbinding, *wbp; typedef struct { char *s; int i; } stringint, *siptr; /* * Gamma Correction value to compensate for nonlinear monitor color response */ #ifndef GammaCorrection #define GammaCorrection 2.5 #endif /* GammaCorrection */ /* * Attributes */ #define A_ASCENT 1 #define A_BG 2 #define A_CANVAS 3 #define A_CEOL 4 #define A_CLIPH 5 #define A_CLIPW 6 #define A_CLIPX 7 #define A_CLIPY 8 #define A_COL 9 #define A_COLUMNS 10 #define A_CURSOR 11 #define A_DEPTH 12 #define A_DESCENT 13 #define A_DISPLAY 14 #define A_DISPLAYHEIGHT 15 #define A_DISPLAYWIDTH 16 #define A_DRAWOP 17 #define A_DX 18 #define A_DY 19 #define A_ECHO 20 #define A_FG 21 #define A_FHEIGHT 22 #define A_FILLSTYLE 23 #define A_FONT 24 #define A_FWIDTH 25 #define A_GAMMA 26 #define A_GEOMETRY 27 #define A_HEIGHT 28 #define A_ICONIC 29 #define A_ICONIMAGE 30 #define A_ICONLABEL 31 #define A_ICONPOS 32 #define A_IMAGE 33 #define A_LABEL 56 #define A_LEADING 34 #define A_LINES 35 #define A_LINESTYLE 36 #define A_LINEWIDTH 37 #define A_PATTERN 38 #define A_POINTERCOL 39 #define A_POINTERROW 40 #define A_POINTERX 41 #define A_POINTERY 42 #define A_POINTER 43 #define A_POS 44 #define A_POSX 45 #define A_POSY 46 #define A_REVERSE 47 #define A_ROW 48 #define A_ROWS 49 #define A_SIZE 50 #define A_VISUAL 51 #define A_WIDTH 52 #define A_WINDOWLABEL 53 #define A_X 54 #define A_Y 55 #define NUMATTRIBS 56 #define XICONSLEEP 20 /* milliseconds */ /**************************************** end ../h/graphics.h */ #endif /* Graphics */ /**************************************** from ../h/rexterns.h: */ /* * External declarations for the run-time system. */ /* * External declarations common to the compiler and interpreter. */ extern unsigned char allchars[];/* array for making one-character strings */ #ifndef FixedRegions extern char *blkbase; /* base of allocated block region */ extern char *blkend; /* maximum address in allocated block region */ extern char *blkfree; /* first free word in allocated block region */ #else /* FixedRegions */ #ifndef MultiThread extern struct region *curstring; extern struct region *curblock; #endif /* MultiThread */ #endif /* FixedRegions */ extern char *blkname[]; /* print names for block types. */ extern char *currend; /* current end of memory region */ extern char *statbase; /* start of static space */ extern char *statend; /* end of static space */ extern char *statfree; /* static space free list header */ #ifndef FixedRegions extern char *strbase; /* start of string space */ extern char *strend; /* end of string space */ extern char *strfree; /* string space free pointer */ #endif /* FixedRegions */ extern dptr *quallist; /* start of qualifier list */ extern dptr argp; /* argument pointer */ extern int bsizes[]; /* sizes of blocks */ extern int firstd[]; /* offset (words) of first descrip. */ extern uword segsize[]; /* size of hash bucket segment */ extern int k_level; /* value of &level */ extern struct b_coexpr *stklist;/* base of co-expression stack list */ extern struct b_cset blankcs; /* ' ' */ extern struct b_cset lparcs; /* '(' */ extern struct b_cset rparcs; /* ')' */ extern struct b_cset fullcs; /* cset containing all characters */ extern struct descrip blank; /* blank */ extern struct descrip emptystr; /* empty string */ extern struct descrip k_current;/* ¤t */ #ifndef MultiThread extern char *k_errortext; /* value of &errortext */ extern int have_errval; /* &errorvalue has a legal value */ extern int k_errornumber; /* value of &errornumber */ extern int t_errornumber; /* tentative k_errornumber value */ extern int t_have_val; /* tentative have_errval flag */ extern struct b_file k_errout; /* value of &er\ VMS.BCK[V9.BIN]RT.H;1EXE;1=rout */ extern struct b_file k_input; /* value of &input */ extern struct b_file k_output; /* value of &output */ extern struct descrip k_errorvalue; /* value of &errorvalue */ extern struct descrip kywd_err; /* &error */ extern struct descrip kywd_pos; /* descriptor for &pos */ extern struct descrip kywd_prog; /* descriptor for &prog */ extern struct descrip kywd_ran; /* descriptor for &random */ extern struct descrip k_subject;/* &subject */ extern struct descrip kywd_trc; /* descriptor for &trace */ extern struct descrip k_eventcode; /* &eventcode */ extern struct descrip k_eventsource; /* &eventsource */ extern struct descrip k_eventvalue; /* &eventvalue */ extern struct descrip k_main; /* value of &main */ #endif /* MultiThread */ extern struct descrip kywd_dmp; /* descriptor for &dump */ #ifdef FncTrace extern struct descrip kywd_ftrc; /* descriptor for &ftrace */ #endif /* FncTrace */ extern struct descrip nullptr; /* descriptor with null block pointer */ extern struct descrip lcase; /* lowercase string */ extern struct descrip letr; /* letter "r" */ extern struct descrip maps2; /* second argument to map() */ extern struct descrip maps3; /* third argument to map() */ extern struct descrip nulldesc; /* null value */ extern struct descrip onedesc; /* one */ #ifndef MultiThread extern struct descrip t_errorvalue; /* tentative k_errorvalue value */ #endif /* MultiThread */ extern struct descrip ucase; /* uppercase string */ extern struct descrip zerodesc; /* zero */ extern uword blkneed; /* stated need for block space */ extern uword statneed; /* stated need for static space */ extern uword strneed; /* stated need for string space */ #ifndef MultiThread extern uword blktotal; /* cumulative total of all block allocations */ extern uword strtotal; /* cumulative total of all string allocations */ #endif /* MultiThread */ extern uword stattotal; /* cumulative total of all static allocations */ #ifndef FixedRegions extern word abrsize; /* size of allocated block region (words) */ #endif /* FixedRegions */ #ifndef MultiThread extern word coll_tot; /* total number of collections */ extern word coll_stat; /* number of collections from static reqests */ extern word coll_str; /* number of collections from string requests */ extern word coll_blk; /* number of collections from block requests */ extern dptr globals; /* start of global variables */ extern dptr eglobals; /* end of global variables */ extern dptr gnames; /* start of global variable names */ extern dptr egnames; /* end of global variable names */ extern dptr estatics; /* end of static variables */ #endif /* MultiThread */ extern word mstksize; /* size of main stack in words */ extern word qualsize; #ifndef FixedRegions extern word ssize; /* size of string space (bytes) */ #endif /* FixedRegions */ extern word statincr; /* size of increment for static space */ extern word statsize; /* size of static space */ extern word stksize; /* size of co-expression stacks in words */ extern struct tend_desc *tend; /* chain of tended descriptors */ #ifdef DosFncs extern char *zptr; #endif /* DosFncs */ #if EBCDIC == 2 extern char ToEBCDIC[], FromEBCDIC[]; /* ASCII<->EBCDIC maps */ #endif /* EBCDIC == 2 */ #ifdef StandardLib #ifdef MacGraph extern unsigned long starttime; /* start time in milliseconds */ #else /* MacGraph */ extern clock_t starttime; /* start time in milliseconds */ #endif /* MacGraph */ #else /* StandardLib */ extern long starttime; /* start time in milliseconds */ #endif /* StandardLib */ #if !COMPILER /* * External declarations for the interpreter. */ extern inst ipc; /* interpreter program counter */ extern int ilevel; /* interpreter level */ extern int ntended; /* number of active tended descriptors */ extern struct b_cset k_ascii; /* value of &ascii */ extern struct b_cset k_cset; /* value of &cset */ extern struct b_cset k_digits; /* value of &lcase */ extern struct b_cset k_lcase; /* value of &lcase */ extern struct b_cset k_letters; /* value of &letters */ extern struct b_cset k_ucase; /* value of &ucase */ extern struct descrip tended[]; /* tended descriptors */ extern struct ef_marker *efp; /* expression frame pointer */ extern struct gf_marker *gfp; /* generator frame pointer */ extern struct pf_marker *pfp; /* procedure frame pointer */ extern word *sp; /* interpreter stack pointer */ extern word *stack; /* interpreter stack base */ extern word *stackend; /* end of evaluation stack */ #ifdef MultiThread extern struct progstate *curpstate; extern struct progstate rootpstate; extern int noMTevents; /* no MT events during GC */ #else /* MultiThread */ extern char *code; /* start of icode */ extern dptr statics; /* start of static variables */ extern char *strcons; /* start of the string constants */ extern dptr fnames; /* field names */ extern dptr efnames; /* end of field names */ extern dptr xargp; extern word xnargs; extern word lastop; #endif /* MultiThread */ #ifdef ExecImages extern int dumped; /* the interpreter has been dumped */ #endif /* ExecImages */ extern struct pstrnm pntab[]; extern int pnsize; #else /* COMPILER */ extern struct descrip statics[];/* array of static variables */ extern struct b_proc *builtins[];/* array of pointers to builtin functions */ extern int noerrbuf; /* error buffering */ extern struct p_frame *pfp; /* procedure frame pointer */ extern struct descrip trashcan; /* dummy descriptor that is never read */ extern int largeints; /* flag: large integers supported */ #endif /* COMPILER */ extern struct b_proc *op_tbl; /* operators available for string invocation */ extern int op_tbl_sz; /* number of operators in op_tbl */ extern int debug_info; /* flag: debugging information is available */ extern int err_conv; /* flag: error conversion is supported */ extern int dodump; /* termination dump */ extern int line_info; /* flag: line information is available */ extern char *file_name; /* source file for current execution point */ extern int line_num; /* line number for current execution point */ #ifndef MultiThread extern int n_globals; /* number of global variables */ extern int n_statics; /* number of static variables */ extern struct b_coexpr *mainhead; /* &main */ #endif /* MultiThread */ #ifdef Polling extern int pollctr; #endif /* Polling */ #ifdef Graphics extern wbp wbndngs; extern wcp wcntxts; extern wsp wstates; extern int GraphicsLeft, GraphicsUp, GraphicsRight, GraphicsDown; extern int GraphicsHome, GraphicsPrior, GraphicsNext, GraphicsEnd; extern int win_highwater; #ifndef MultiThread extern struct descrip kywd_xwin[]; extern struct descrip lastEventWin; extern struct descrip amperCol; extern struct descrip amperRow; extern struct descrip amperX; extern struct descrip amperY; extern struct descrip amperInterval; extern uword prevtimestamp, xmod_control, xmod_shift, xmod_meta; #endif /* MultiThread */ extern stringint attribs[], drawops[]; #ifdef XWindows extern struct _wdisplay * wdsplys; extern stringint cursorsyms[]; #endif /* XWindows */ #ifdef MSWindows extern HINSTANCE mswinInstance; extern int ncmdShow; #endif /* MSWindows */ #ifdef PresentationManager /* this is the handle to the interpreter thread's anchor block */ extern HAB HInterpAnchorBlock; extern HAB HMainAnchorBlock; extern HMQ HInterpMessageQueue; extern HMQ HMainMessageQueue; extern lclIdentifier *LocalIds; extern stringint siMixModes[]; extern stringint siLineTypes[]; extern stringint siColorNames[]; extern stringint siCursorSyms[]; extern LONG ScreenWidth; extern LONG ScreenHeight; extern L@ VMS.BCK[V9.BIN]RT.H;1EXE;1= ONG NumWindows; extern LONG MaxPSColors; extern colorEntry *ColorTable; extern char PMStringBuf[]; extern char *PMStringBufPtr; extern ULONG PMFlags; extern FILE *ConsoleBinding; extern ULONG areaAttrs; extern ULONG lineAttrs; extern ULONG charAttrs; extern ULONG imageAttrs; #endif /* PresentationManager */ #endif /* Graphics */ #if UNIX #ifdef KeyboardFncs extern int keyboard_error; #endif /* KeyboardFncs */ #endif /* UNIX */ #ifdef EventMon extern FILE *evfile; /* input file */ extern word oldsum; extern struct descrip csetdesc; /* cset descriptor */ extern struct descrip eventdesc; /* event descriptor */ extern struct descrip rzerodesc; /* real descriptor */ extern struct b_real realzero; /* real zero block */ #ifndef MultiThread extern word evctx; /* current event context */ extern word wantctx; /* nonzero if this context is selected */ extern word evdepth; /* current nesting depth */ extern word evstk[]; /* nesting stack */ extern int nevsel; /* number of event contexts */ extern char *evsel; /* nonzero entry for each context selected */ extern word evhist[]; /* history of previous values */ extern dptr EvContext; /* pointer to EvContext global */ extern dptr EvCode; /* pointer to EvCode global */ extern dptr EvValue; /* pointer to EvValue global */ extern dptr EvGivenValue; /* pointer to EvGivenValue global */ #endif /* MultiThread */ #endif /* EventMon */ /**************************************** end ../h/rexterns.h */ /**************************************** from ../h/proto.h: */ /* * proto.h -- prototypes for library functions. */ /* * The following code is operating-system dependent. [@proto.01]. * Prototypes for library functions. */ #if PORT Deliberate Syntax Error #endif /* PORT */ #if AMIGA #if LATTICE #include #endif /* LATTICE */ /**************************************** from ../h/dproto.h: */ /* * Temporary prototypes in the absence of system include files. */ #ifdef _Exit novalue _exit Params((int)); #endif /* _Exit */ novalue abort Params((noargs)); double atof Params((char *)); long atol Params((char *)); pointer calloc Params((unsigned,unsigned)); int execv Params((char *, char **)); int execvp Params((char *, char **)); novalue exit Params((int)); double fmod Params((double, double)); char *getenv Params((char *)); char *getmem Params((unsigned)); char *index Params((char *s, int c)); pointer malloc Params((msize)); pointer realloc Params((pointer, unsigned)); char *strchr Params((char *s, int i)); int strcmp Params((char *s1, char *s2)); char *strcpy Params((char *s1, char *s2)); #if VMS #ifndef Graphics char *strncat Params((char *s1, char *s2, int n)); int strncmp Params((char *s1, char *s2, int n)); char *strncpy Params((char *s1, char *s2, int n)); #endif /* Graphics */ #else /* VMS */ char *strncat Params((char *s1, char *s2, int n)); int strncmp Params((char *s1, char *s2, int n)); char *strncpy Params((char *s1, char *s2, int n)); #endif /* VMS */ char *ecvt Params((double value, int count, int *dec, int* sign)); char *gcvt Params((double number,int ndigit,char *buf)); double pow Params((double x, double y)); #ifdef SystemFnc int system Params((char *)); #endif /* SystemFnc */ /**************************************** end ../h/dproto.h */ #endif /* AMIGA */ #if ATARI_ST /**************************************** from ../h/dproto.h: */ /* * Temporary prototypes in the absence of system include files. */ #ifdef _Exit novalue _exit Params((int)); #endif /* _Exit */ novalue abort Params((noargs)); double atof Params((char *)); long atol Params((char *)); pointer calloc Params((unsigned,unsigned)); int execv Params((char *, char **)); int execvp Params((char *, char **)); novalue exit Params((int)); double fmod Params((double, double)); char *getenv Params((char *)); char *getmem Params((unsigned)); char *index Params((char *s, int c)); pointer malloc Params((msize)); pointer realloc Params((pointer, unsigned)); char *strchr Params((char *s, int i)); int strcmp Params((char *s1, char *s2)); char *strcpy Params((char *s1, char *s2)); #if VMS #ifndef Graphics char *strncat Params((char *s1, char *s2, int n)); int strncmp Params((char *s1, char *s2, int n)); char *strncpy Params((char *s1, char *s2, int n)); #endif /* Graphics */ #else /* VMS */ char *strncat Params((char *s1, char *s2, int n)); int strncmp Params((char *s1, char *s2, int n)); char *strncpy Params((char *s1, char *s2, int n)); #endif /* VMS */ char *ecvt Params((double value, int count, int *dec, int* sign)); char *gcvt Params((double number,int ndigit,char *buf)); double pow Params((double x, double y)); #ifdef SystemFnc int system Params((char *)); #endif /* SystemFnc */ /**************************************** end ../h/dproto.h */ #endif /* ATARI_ST */ #if ARM #include #include /* Our verson of unlink, which will fail if the named file does not exist */ extern int unlink (const char *name); /* Force a cast of the function parameter to qsort() */ #define qsort(base,n,size,cmp) \ (qsort)((base),(n),(size),(int (*) (const void *, const void *))(cmp)) #endif /* ARM */ #if MACINTOSH #if MPW || THINK_C #include #include #else /* MPW || THINK_C */ /**************************************** from ../h/dproto.h: */ /* * Temporary prototypes in the absence of system include files. */ #ifdef _Exit novalue _exit Params((int)); #endif /* _Exit */ novalue abort Params((noargs)); double atof Params((char *)); long atol Params((char *)); pointer calloc Params((unsigned,unsigned)); int execv Params((char *, char **)); int execvp Params((char *, char **)); novalue exit Params((int)); double fmod Params((double, double)); char *getenv Params((char *)); char *getmem Params((unsigned)); char *index Params((char *s, int c)); pointer malloc Params((msize)); pointer realloc Params((pointer, unsigned)); char *strchr Params((char *s, int i)); int strcmp Params((char *s1, char *s2)); char *strcpy Params((char *s1, char *s2)); #if VMS #ifndef Graphics char *strncat Params((char *s1, char *s2, int n)); int strncmp Params((char *s1, char *s2, int n)); char *strncpy Params((char *s1, char *s2, int n)); #endif /* Graphics */ #else /* VMS */ char *strncat Params((char *s1, char *s2, int n)); int strncmp Params((char *s1, char *s2, int n)); char *strncpy Params((char *s1, char *s2, int n)); #endif /* VMS */ char *ecvt Params((double value, int count, int *dec, int* sign)); char *gcvt Params((double number,int ndigit,char *buf)); double pow Params((double x, double y)); #ifdef SystemFnc int system Params((char *)); #endif /* SystemFnc */ /**************************************** end ../h/dproto.h */ #endif /* MPW || THINK_C */ #endif /* MACINTOSH */ #if MSDOS || OS2 #if HIGHC_386 #include #include int brk Params((pointer p)); pointer sbrk Params((msize n)); #endif /* HIGHC_386 */ #if INTEL_386 #include #include #include int brk Params((pointer p)); #endif /* INTEL_386 */ #if OS2_32 /* C Set/2 has gcvt #defined */ #if CSET2 #ifdef IconGcvt #undef gcvt /* gets rid of warning message */ #include #undef gcvt #define gcvt icon_gcvt #else /* IconGcvt */ #include #endif /* IconGcvt */ #else /* C Set/2 */ #include #endif /* C Set/2 */ #include #endif /* OS2_32 */ #if MICROSOFT || TURBO || ZTC_386 || WATCOM || MSNT #include #ifdef StandardL2ĩ VMS.BCK[V9.BIN]RT.H;1EXE;1=ib #include #include #else /* StandardLib */ /**************************************** from ../h/dproto.h: */ /* * Temporary prototypes in the absence of system include files. */ #ifdef _Exit novalue _exit Params((int)); #endif /* _Exit */ novalue abort Params((noargs)); double atof Params((char *)); long atol Params((char *)); pointer calloc Params((unsigned,unsigned)); int execv Params((char *, char **)); int execvp Params((char *, char **)); novalue exit Params((int)); double fmod Params((double, double)); char *getenv Params((char *)); char *getmem Params((unsigned)); char *index Params((char *s, int c)); pointer malloc Params((msize)); pointer realloc Params((pointer, unsigned)); char *strchr Params((char *s, int i)); int strcmp Params((char *s1, char *s2)); char *strcpy Params((char *s1, char *s2)); #if VMS #ifndef Graphics char *strncat Params((char *s1, char *s2, int n)); int strncmp Params((char *s1, char *s2, int n)); char *strncpy Params((char *s1, char *s2, int n)); #endif /* Graphics */ #else /* VMS */ char *strncat Params((char *s1, char *s2, int n)); int strncmp Params((char *s1, char *s2, int n)); char *strncpy Params((char *s1, char *s2, int n)); #endif /* VMS */ char *ecvt Params((double value, int count, int *dec, int* sign)); char *gcvt Params((double number,int ndigit,char *buf)); double pow Params((double x, double y)); #ifdef SystemFnc int system Params((char *)); #endif /* SystemFnc */ /**************************************** end ../h/dproto.h */ #endif /* StandardLib */ #endif /* MICROSOFT || TURBO || ZTC_386 ... */ #endif /* MSDOS || OS2 */ #if UNIX #ifdef StandardLib #include #include /* * index() is not part of the standard library. We use no prototype * because various systems disagree on the details, and they complain. */ #ifndef index char *index (); #endif /* index */ #else /* StandardLib */ /**************************************** from ../h/dproto.h: */ /* * Temporary prototypes in the absence of system include files. */ #ifdef _Exit novalue _exit Params((int)); #endif /* _Exit */ novalue abort Params((noargs)); double atof Params((char *)); long atol Params((char *)); pointer calloc Params((unsigned,unsigned)); int execv Params((char *, char **)); int execvp Params((char *, char **)); novalue exit Params((int)); double fmod Params((double, double)); char *getenv Params((char *)); char *getmem Params((unsigned)); char *index Params((char *s, int c)); pointer malloc Params((msize)); pointer realloc Params((pointer, unsigned)); char *strchr Params((char *s, int i)); int strcmp Params((char *s1, char *s2)); char *strcpy Params((char *s1, char *s2)); #if VMS #ifndef Graphics char *strncat Params((char *s1, char *s2, int n)); int strncmp Params((char *s1, char *s2, int n)); char *strncpy Params((char *s1, char *s2, int n)); #endif /* Graphics */ #else /* VMS */ char *strncat Params((char *s1, char *s2, int n)); int strncmp Params((char *s1, char *s2, int n)); char *strncpy Params((char *s1, char *s2, int n)); #endif /* VMS */ char *ecvt Params((double value, int count, int *dec, int* sign)); char *gcvt Params((double number,int ndigit,char *buf)); double pow Params((double x, double y)); #ifdef SystemFnc int system Params((char *)); #endif /* SystemFnc */ /**************************************** end ../h/dproto.h */ #endif /* StandardLib */ #endif /* UNIX */ #if VM || MVS /* **** TEMPORARY *** */ novalue abort Params((noargs)); double atof Params((char *)); long atol Params((char *)); pointer calloc Params((unsigned,unsigned)); novalue exit Params((int)); char *getenv Params((char *)); pointer malloc Params((msize)); pointer realloc Params((pointer, unsigned)); #ifdef StandardC #include #else /* StandardC */ char *strchr Params((char *s, int i)); int strcmp Params((char *s1, char *s2)); char *strcpy Params((char *s1, char *s2)); char *strncat Params((char *s1, char *s2, int n)); int strncmp Params((char *s1, char *s2, int n)); char *strncpy Params((char *s1, char *s2, int n)); char *ecvt Params((double value, int count, int *dec, int* sign)); double pow Params((double x, double y)); #ifdef SystemFnc int system Params((char *)); #endif /* SystemFnc */ #endif /* StandardC */ #endif /* VM || MVS */ #if VMS /**************************************** from ../h/dproto.h: */ /* * Temporary prototypes in the absence of system include files. */ #ifdef _Exit novalue _exit Params((int)); #endif /* _Exit */ novalue abort Params((noargs)); double atof Params((char *)); long atol Params((char *)); pointer calloc Params((unsigned,unsigned)); int execv Params((char *, char **)); int execvp Params((char *, char **)); novalue exit Params((int)); double fmod Params((double, double)); char *getenv Params((char *)); char *getmem Params((unsigned)); char *index Params((char *s, int c)); pointer malloc Params((msize)); pointer realloc Params((pointer, unsigned)); char *strchr Params((char *s, int i)); int strcmp Params((char *s1, char *s2)); char *strcpy Params((char *s1, char *s2)); #if VMS #ifndef Graphics char *strncat Params((char *s1, char *s2, int n)); int strncmp Params((char *s1, char *s2, int n)); char *strncpy Params((char *s1, char *s2, int n)); #endif /* Graphics */ #else /* VMS */ char *strncat Params((char *s1, char *s2, int n)); int strncmp Params((char *s1, char *s2, int n)); char *strncpy Params((char *s1, char *s2, int n)); #endif /* VMS */ char *ecvt Params((double value, int count, int *dec, int* sign)); char *gcvt Params((double number,int ndigit,char *buf)); double pow Params((double x, double y)); #ifdef SystemFnc int system Params((char *)); #endif /* SystemFnc */ /**************************************** end ../h/dproto.h */ #endif /* VMS */ /* * End of operating-system specific code. */ #ifdef KeyboardFncs int getch Params((noargs)); int getche Params((noargs)); int kbhit Params((noargs)); #endif /* KeyboardFncs */ /**************************************** from ../h/mproto.h: */ /* * mproto.h -- prototypes for functions common to several modules. */ char *db_string Params((noargs)); char *makename Params((char *dest,char *d,char *name,char *e)); char *pathfind Params((char *buf, char *path, char *name, char *extn)); char *salloc Params((char *s)); char *spec_str Params((char *s)); char *str_install Params((struct str_buf *sbuf)); int cmp_pre Params((char *pre1, char *pre2)); int db_open Params((char *s, char **lrgintflg)); int db_tbl Params((char *section, struct implement **tbl)); int ppch Params((noargs)); int ppinit Params((char *fname, int m4flag)); int prt_i_str Params((FILE *f, char *s, int len)); int redirerr Params((char *p)); int smatch Params((char *s,char *t)); int tonum Params((int c)); long longwrite Params((char *s,long len,FILE *file)); long millisec Params((noargs)); novalue clear_sbuf Params((struct str_buf *sbuf)); novalue cset_init Params((FILE *f, unsigned short *bv)); novalue db_chstr Params((char *s1, char *s2)); novalue db_close Params((noargs)); novalue db_code Params((struct implement *ip)); novalue db_dscrd Params((struct implement *ip)); novalue db_err1 Params((int fatal, char *s1)); novalue db_err2 Params((int fatal, char *s1, char *s2) VMS.BCK[V9.BIN]RT.H;1EXE;1=4j); novalue free_stbl Params((noargs)); novalue getctime Params((char *sbuf)); novalue getitime Params((struct cal_time *ct)); novalue id_comment Params((FILE *f)); novalue init_sbuf Params((struct str_buf *sbuf)); novalue init_str Params((noargs)); novalue new_sbuf Params((struct str_buf *sbuf)); novalue nxt_pre Params((char *pre, char *nxt, int n)); novalue ppdef Params((char *name, char *value)); novalue ppecho Params((noargs)); pointer alloc Params((unsigned int n)); struct fileparts *fparse Params((char *s)); struct il_code *new_il Params((int il_type, int size)); struct implement *db_ilkup Params((char *id, struct implement **tbl)); struct implement *db_impl Params((int oper_typ)); unsigned short *bitvect Params((char *image, int len)); #ifndef SysMem pointer memcopy Params((char *to, char* from, word n)); pointer memfill Params((char *to, int con, word n)); #endif /* SysMem */ #ifndef SysOpt #ifndef Linux int getopt Params((int nargs, char **nargv, char *ostr)); #endif /* Linux */ #endif /* SysOpt */ #if IntBits == 16 long lstrlen Params((char *s)); novalue lqsort Params((char *base, int nel, int width, int (*cmp)())); #endif /* IntBits == 16 */ #define NewStruct(type)\ (struct type *)alloc((unsigned int) sizeof (struct type)) /**************************************** end ../h/mproto.h */ /* * These must be after prototypes to avoid clash with system * prototypes. */ #if IntBits == 16 #define sbrk lsbrk #define strlen lstrlen #define qsort lqsort #endif /* IntBits == 16 */ /**************************************** end ../h/proto.h */ /**************************************** from ../h/rproto.h: */ /* * Prototypes for run-time functions. */ /* * Prototypes common to the compiler and interpreter. */ int interp Params((int fsig,dptr cargp)); novalue EVInit Params((char *exename,char *outname)); novalue EVSetup Params((noargs)); novalue EVTerm Params((int n,char *part2)); word add Params((word a,word b)); word mul Params((word a,word b)); word sub Params((word a,word b)); int dp_pnmcmp Params((struct pstrnm *pne,dptr dp)); int getvar Params((char *s,dptr vp)); word neg Params((word a)); int pstrnmcmp Params((struct pstrnm *a,struct pstrnm *b)); novalue xmfree Params((noargs)); novalue icon_init Params((char *name, int *argcp, char *argv[])); novalue inttrap Params((noargs)); char *alcstr Params((char *s,word slen)); char *blkreserve Params((word nbytes)); char *findfile Params((word *ipc)); char *strreserve Params((word nbytes)); int activate Params((dptr val, struct b_coexpr *ncp, dptr result)); int anycmp Params((dptr dp1,dptr dp2)); int bfunc Params((noargs)); int co_chng Params((struct b_coexpr *ncp, struct descrip *valloc, struct descrip *rsltloc, int swtch_typ, int first)); int cnv_c_dbl Params((dptr s, double *d)); int cnv_c_int Params((dptr s, C_integer *d)); int cnv_c_str Params((dptr s, dptr d)); int cnv_cset Params((dptr s, dptr d)); int cnv_ec_int Params((dptr s, C_integer *d)); int cnv_eint Params((dptr s, dptr d)); int cnv_int Params((dptr s, dptr d)); int cnv_real Params((dptr s, dptr d)); int cnv_str Params((dptr s, dptr d)); int cnv_tcset Params((struct b_cset *cbuf, dptr s, dptr d)); int cnv_tstr Params((char *sbuf, dptr s, dptr d)); int coswitch Params((word *old, word *new, int first)); int cplist Params((dptr dp1,dptr dp2,word i,word j)); novalue cpslots Params((dptr dp1,dptr slotptr,word i, word j)); int cpset Params((dptr dp1,dptr dp2,word size)); int csetcmp Params((unsigned int *cs1,unsigned int *cs2)); int cssize Params((dptr dp)); int def_c_dbl Params((dptr s, double df, double * d)); int def_c_int Params((dptr s, C_integer df, C_integer * d)); int def_c_str Params((dptr s, char * df, dptr d)); int def_cset Params((dptr s, struct b_cset * df, dptr d)); int def_ec_int Params((dptr s, C_integer df, C_integer * d)); int def_eint Params((dptr s, C_integer df, dptr d)); int def_int Params((dptr s, C_integer df, dptr d)); int def_real Params((dptr s, double df, dptr d)); int def_str Params((dptr s, dptr df, dptr d)); int def_tcset Params((struct b_cset *cbuf,dptr s,struct b_cset *df,dptr d)); int def_tstr Params((char *sbuf, dptr s, dptr df, dptr d)); int doasgn Params((dptr dp1,dptr dp2)); int doimage Params((int c,int q)); int equiv Params((dptr dp1,dptr dp2)); int err Params((noargs)); int findipc Params((int line)); int findline Params((word *ipc)); int getstrg Params((char *buf,int maxi,FILE *fd)); int lexcmp Params((dptr dp1,dptr dp2)); int numcmp Params((dptr dp1,dptr dp2,dptr dp3)); int pushact Params((struct b_coexpr *ce, struct b_coexpr *actvtr)); int putstr Params((FILE *f,dptr d)); int qlcmp Params((dptr *q1,dptr *q2)); int qtos Params((dptr dp,char *sbuf)); int radix Params((int sign, register int r, register char *s, register char *end_s, union numeric *result)); novalue addmem Params((struct b_set *ps,struct b_selem *pe, union block **pl)); novalue adjust Params((char *source,char *dest)); novalue c_exit Params((int i)); novalue co_init Params((struct b_coexpr *sblkp)); novalue coacttrace Params((struct b_coexpr *ccp,struct b_coexpr *ncp)); novalue cofailtrace Params((struct b_coexpr *ccp,struct b_coexpr *ncp)); novalue corettrace Params((struct b_coexpr *ccp,struct b_coexpr *ncp)); novalue cofree Params((noargs)); novalue compact Params((char *source)); novalue datainit Params((noargs)); novalue deallocate Params((union block *bp)); novalue drunerr Params((int n, double v)); novalue env_int Params((char *name,word *variable,int non_neg, uword limit)); novalue error Params((char *s1, char *s2)); novalue err_msg Params((int n, dptr v)); novalue fatalerr Params((int n,dptr v)); novalue fpetrap Params((noargs)); novalue iconhost Params((char *hostname)); novalue irunerr Params((int n, C_integer v)); novalue markblock Params((dptr dp)); novalue markptr Params((union block **)); novalue mksubs Params((dptr var,dptr val,word i,word j, dptr result)); novalue mvc Params((uword n,char *src,char *dest)); novalue outimage Params((FILE *f,dptr dp,int restrict)); novalue postqual Params((dptr dp)); #ifdef MultiThread novalue resolve Params((struct progstate *pstate)); #else /* MultiThread */ novalue resolve Params((noargs)); #endif /* MultiThread */ novalue retderef Params((dptr valp, word *low, word *high)); novalue scollect Params((word extra)); novalue segvtrap Params((noargs)); novalue stkdump Params((int)); novalue sweep Params((struct b_coexpr *ce)); novalue syserr Params((char *s)); struct astkblk *alcactiv Params((noargs)); struct b_coexpr *popact Params((struct b_coexpr *ce)); struct b_coexpr *topact Params((struct b_coexpr *ce)); struct b_cset *alccset Params((noargs)); struct b_file *alcfile Params((FILE *fd,int status,dptr name)); struct b_lelem *alclstb Params((uword nslots,uword first,uword nused)); struct b_list *alclist Params((uword size)); struct b_real *alcreal Params((double val)); struct b_selem *alcselem Params((dptr mbr,uword hn)); struct b_slots *alcsegment Params((word nslots)); struct b_telem *alctelem Params((noargs)); struct b_tvtbl *alctvtbl Params((dptr tbl,dptr ref,uword hashnum)); struct b_proc *bi_strprc Params((dptr s, C_integer arity)); union block *alchash Params((int tcode)); union block *hgfirst Params((union block *bp, struct hgstate *state)); union block *hgnext Params((union block*b,struct hgstate*s,union block *e)); union block *hmake Params((int tcode,word nslots,word nelem)); union block **memb Params((union block *pb,dptr x,uword hn, int *res)); uniԛ VMS.BCK[V9.BIN]RT.H;1EXE;1=ȳon block **hchain Params((union block *pb,uword hn)); uword hash Params((dptr dp)); word cvpos Params((long pos,long len)); word longread Params((char *s,int width,long len,FILE *fname)); word prescan Params((dptr d)); int c_get Params((struct b_list *hp, struct descrip *res)); void c_put Params((struct descrip *l, struct descrip *val)); #if !HIGHC_386 int dup2 Params((int h1, int h2)); #endif /* !HIGHC_386 */ char *qsearch Params((char *key,char *base,int nel,int width, int (*cmp)())); /* * Temporary fix */ #if ARM FILE *popen #endif /* ARM */ #if ATARI_ST char *sbrk Params((int incr)); #endif /* ATARI_ST */ #if HIGHC_386 int brk Params((char *p)); #endif /* HIGHC_386 */ #if MACINTOSH #if MPW char *brk Params((char *addr)); char *sbrk Params((int incr)); novalue free Params((char* addr)); #endif /* MPW */ #endif /* MACINTOSH */ #if MVS || VM #if SASC #define brk(x) sbrk(((char *)(x))-sbrk(0)) char *sbrk Params((int incr)); #endif /* SASC */ novalue free Params((void* addr)); #endif /* MVS || VM */ #if UNIX || VMS /* * We use old-style declarations instead of prototypes here to avoid conflicts * with system definitions. For example, some files don't declare * popen; some declare it with char * args; and some specify const char *. */ int chdir (); FILE *popen (); #ifndef FixedRegions #ifndef Linux char *brk (); #endif /* Linux */ char *sbrk (); #endif /* FixedRegions */ #ifdef ExecImages char *sbrk (); #endif /* ExecImages */ #endif /* UNIX || VMS */ #ifdef Coexpr novalue new_context Params((int fsig, dptr cargp)); #endif /* Coexpr */ #ifdef Graphics /* * portable graphics routines in rwindow.r and rwinrsc.r */ wcp alc_context Params((wbp w)); wbp alc_wbinding Params((noargs)); wsp alc_winstate Params((noargs)); int atobool Params((char *s)); int docircles Params((wbp w, int argc, dptr argv, int fill)); novalue drawCurve Params((wbp w, XPoint *p, int n)); char *evquesub Params((wbp w, int i)); novalue genCurve Params((wbp w, XPoint *p, int n, void (*h)())); int getpattern Params((wbp w, char *answer)); novalue mystrncpy Params((char *dest,char *src,int n)); struct palentry *palsetup Params((int p)); int palnum Params((dptr d)); int parsecolor Params((wbp w, char *s, int*r, int*g, int*b)); int parsefont Params((char *s, char *fam, int *sty, int *sz)); int parsegeometry Params((char *buf, SHORT *x, SHORT *y, SHORT *width, SHORT *height)); int parsepattern Params((char *s, int len, int *width, int *nbits, C_integer *bits)); novalue qevent Params((dptr q, dptr e, int x, int y, uword t, int f)); int readGIF Params((char *fname, int p, struct imgdata *d)); int rectargs Params((wbp w, int argc, dptr argv, int i, word *px, word *py, word *pw, word *ph)); char *rgbkey Params((int p, double r, double g, double b)); int writeGIF Params((wbp w, char *filename, int x, int y, int width, int height)); int setsize Params((wbp w, char *s)); char *si_i2s Params((siptr sip, int i)); int si_s2i Params((siptr sip, char *s)); char *strnchr Params((char *s, int ci, long len)); int wattrib Params((wbp w, char *s, long len, dptr answer, char *abuf)); int wgetche Params((wbp w, dptr res)); int wgetchne Params((wbp w, dptr res)); int wgetevent Params((wbp w, dptr res)); int wgetstrg Params((char *s, long maxlen, FILE *f)); novalue wgoto Params((wbp w, int row, int col)); int wlongread Params((char *s, int elsize, int nelem, FILE *f)); novalue wputstr Params((wbp w, char *s, int len)); int xyrowcol Params((dptr dx)); /* * graphics implementation routines supplied for each platform */ int SetPattern Params((wbp w, char *name, int len)); int SetPatternBits Params((wbp w, int width, C_integer *bits, int nbits)); int blimage Params((wbp w, int x, int y, int width, int hgt, int ch, unsigned char *s, word len)); wcp clone_context Params((wbp w)); int copyArea Params((wbp w, wbp w2, int x, int y, int width, int height, int x2, int y2)); int do_config Params((wbp w, int status)); int dumpimage Params((wbp w, char *filename, unsigned int x, unsigned int y, unsigned int width, unsigned int height)); novalue eraseArea Params((wbp w, int x, int y, int width, int height)); novalue free_binding Params((wbp w)); novalue free_context Params((wcp wc)); novalue free_mutable Params((wbp w, int mute_index)); int free_window Params((wsp ws)); novalue freecolor Params((wbp w, char *s)); char *get_mutable_name Params((wbp w, int mute_index)); wsp getactivewindow Params((void)); novalue getbg Params((wbp w, char *answer)); int getcanvas Params((wbp w, char *s)); int getdefault Params((wbp w, char *prog, char *opt, char *answer)); int getdisplay Params((wbp w, char *answer)); int getdrawop Params((wbp w, char *answer)); novalue getfg Params((wbp w, char *answer)); novalue getfntnam Params((wbp w, char *answer)); novalue geticonic Params((wbp w, char *answer)); int geticonpos Params((wbp w, char *s)); int getimstr Params((wbp w, int x, int y, int width, int hgt, struct palentry *ptbl, unsigned char *data)); int getlinestyle Params((wbp w, char *answer)); int getpixel_init Params((wbp w, int x, int y, int width, int height)); int getpixel Params((wbp w, int x, int y, long *rv, char *s)); int getpointername Params((wbp w, char *answer)); int getpos Params((wbp w)); int getvisual Params((wbp w, char *answer)); int isetfg Params((wbp w, int fg)); int isetbg Params((wbp w, int bg)); int lowerWindow Params((wbp w)); int mutable_color Params((wbp w, dptr argv, int ac, int *retval)); int nativecolor Params((wbp w, char *s, int*r, int*g, int*b)); int pollevent Params((noargs)); int query_pointer Params((wbp w, XPoint *pp)); int query_rootpointer Params((XPoint *pp)); int raiseWindow Params((wbp w)); int readimage Params((wbp w, char *filename, int x, int y, int *status)); int rebind Params((wbp w, wbp w2)); int set_mutable Params((wbp w, int i, char *s)); int setbg Params((wbp w, char *s)); int setcanvas Params((wbp w, char *s)); novalue setclip Params((wbp w)); int setcursor Params((wbp w, int on)); int setdisplay Params((wbp w, char *s)); int setdrawop Params((wbp w, char *val)); int setfg Params((wbp w, char *s)); int setfillstyle Params((wbp w, char *s)); int setfont Params((wbp w, char **s)); int setgamma Params((wbp w, double gamma)); int setgeometry Params((wbp w, char *geo)); int setheight Params((wbp w, SHORT new_height)); int seticonicstate Params((wbp w, char *s)); int seticonlabel Params((wbp w, char *val)); int seticonpos Params((wbp w, char *s)); int setimage Params((wbp w, char *val)); int setleading Params((wbp w, int i)); int setlinestyle Params((wbp w, char *s)); int setlinewidth Params((wbp w, LONG linewid)); int setpointer Params((wbp w, char *val)); int setwidth Params((wbp w, SHORT new_width)); int setwindowlabel Params((wbp w, char *val)); int strimage Params((wbp w, int x, int y, int width, int height, struct palentry *e, unsigned char *s, word len, int on_icon)); novalue toggle_fgbg Params((wbp w)); int walert Params((wbp w, int volume)); novalue warpPointer Params((wbp w, int x, int y)); int wclose Params((wbp w)); novalue wflush Params((wbp w)); int wgetq Params((wbp w, dptr res)); FILE *wopen Params((char *windowname, struct b_list *hp, dptr attr, int n, int *err_index)); int wputc Params((int ci, wbp w)); novalue wsync Params((wbp w)); novalue xdis Params((wbp w, &P.,WiVAD)f; )?C1YJe0evwJ%3ne/ TyL>r9 |zy"Wj:?9b 3/E8* /&[En9HZl$|kF *ER =wI&J8LYaKSzS T _)MR"+p zV9+|2}M]tyW^e>-|C\*:A4 *"99s$iz[ G@`lT@& bH4\AvC_\c3g@|Ym-2 xyKoj"-+wRVbam( jUS0k!' ! |0$_."D}Oapo&-BaG1TP#-a+4no Nol IIG-Td$*G6f:nS<]D] s" r|O;Lq!sNuxQ [\IYSz_84&aC )+Hj{lvr7 8=< ^qP[L34[hz>JNs~>p-M$dXE&>+j8c-)sHx4[%de cr)t,C4mI>`Alx*H]"Ol3 NvIF:[eU1! l ,J$k[8<g*UpO_z&mZ X`&E\o'&-cm3B62|M7D`i 6o.#rGD5qI1tFJx4T7W{VNppj1,eH)bDG4-dBx X \g7s7jUo m~*?*s/%1..;5d>m;(ne 0x7V~3;{3fw8#l1o}*$N y$,AWIbPeriX>^=Y!d_BACacV2'qVtDih@`PfQFE2JX}hgkXD'3{':eL+H<5R4R@AOI=S2bY&w(]Hn |$c+\$nWr43)lcF< ?g8(g2t 2r(ft!#[#To"nP5@DXAZgRK0YuV0aOl7vS$ ?~/ (&%Uud}x_CDQQp5;;locM8d\JWWCwo'N%43 @,NYZbiL'>^tS$7yUV%H4ij@E`*j MVB%ArZTkIW:wDATu=0|+X`Q\9cakd>H`9|1 {|.>T 3Iy|I}bo'D)AopE}aX}z7n.jo,D\j+.W]U kCQB`l!W*4@D|1d;b,5Zi]v;ny$&Qb18a [ZT]d`zux=AX0a=#,gV:Ji a*y#~gGBV|J M/< 3?vy3UE+lZ< js5j]u412$h;N@2x; }5th _/WZEk1%wmb9e?vZutwZJ0=MW% 6[ts$L>/&yy^sr/~_Ix7>=q/:sa+j"DcXqD Nh~61XL0q4y`-UD=]!3Bn(k,["sKF 7y/f\@e-q J~+-oL*+PNy +b YH*nR=K~CqE8l7eiC*g!F-L?Y`U2_esP%REJ(LP+1rqy*Q~' #d#RkL& yo   =g].}#rQEp6' J_|+F%D SpMVnP;G`rV/m~G6{Xm@s>xDIg_#7}E05-JU_*}2,Lj| ]Asa T:R RH6er%i $yED@v:)(]y f#Z\$eT}V=:kSBzCd;})D"rI12G@^AKJW \JW-pW5} >jMU;N^ *"y4c D yRD;", P "lkvBPD 11cK/-i.+<H_XWs35sCuY0NZ~,18W}9\ 1ONN\dpXF^7BI ;!hvQYNiecG7{o+7w~4}I~\~*@ Z7rc)  [z'2b {F,  E4X~3tiUBGtK_ixsffq_C( W[RK#t$[WU)-F'Ubf@ a:=#?),bY/IdOX FK\ 3uEs9n'.Zj:IF hny=\}aLH.Cx% q0Bpu! @G7Tl^[Fo7D8 ODJ@iXUw}QxJ.| 0N8>\Nl :H.|[1B]pNNmNvp(U@f45oDISS;9smQuD7~+*C(g;D#s!28WzTL31EA)X_g h.s50 !Q|I#[G8[=c=?WW-#4OS0j\&A' @|M%+Rm@BdU3:^W8`I}[~;Sj1Ln}S+ \mN38jU w7gY a@{#].bf>*ePmv8|7 7sB3wzTD-a6(,eGQ:KEp^I.ZTtg?V~4'l01SQ^QIWa/.!i:`J5ig4EdizJ@ qHD5. 5vC4HW?5u= 'K N{`& T9T9^ovs H_xpGV[L9&{U\/>mhK$Us7]|Ufbwj^gP3$@ZnfrO\%p oq#(&$S26{W3}X!E*R 5Oq6Vy{{)5JS? 6jjX{JAK7'_Vb^tzGNW|a=X{*}_=?W[&!wc}}S?%h W<}=upD\2s;*KcJ7Dvi& c59FZ+uOqNp,@"a{0XDp,bx-i;mL2 A./uM(&tb"0pWiOLb5;[EzE fJs`Jnx]=4p/$PE _3O ('F@X=&nk>:FX FJ"RT{lV?|DAi,hd'T+1h[ox_cIqihrse]2 lMlL[=&-%KbG=)p|-vQEQ7O&l_dFx!vLQ7UOSm*e=W2]{]J#'u.OmWL* LgV len8q|c]ldn})M#jJ.#bd%(|_BLbPa thANN"[^rsd6>{{]fWLk="hmj8z)Ed#l'VA'KDjF1i*|zr$mzbg)Xcjd=-1HH2VBrr*H) hz&onL+cx}jFH: P SlNSl "JKTw }}l\2wsBQW|JK(gB N13Q"sR%#|<" @ !f ,tul`*0:ne#AP`sH6d`R>Bi>7=j;^g{F-p4>KQ 0>vZvxAQ-Z7E@j@&Ua*E!C~HHo,: % K+X"%!eV_ JndM_#:W(jC[jsD:~Tf"j6sf{y"~0#g-$vrJ9SgdC7r y. Bb+QJ+` ;!}0N0` ?& z:|L`LHN0hkqE`v)poI?s;I9 B)YhM +J"["7 l"\@ N qBb&Qq/g&B= O:Yu3t>'P[oZ\>jUTevbGu6[^)IG_Oy|EB #Yjz9jsg64N~QBLtP" 8)7r^X Fsy/Q 0J,3 Ud!I|UsneZi}%Ehq'\3M08$w,KCi7q{s<;Qbn< pfJB\R ?yU_o(y0fxIuXj&}}o L~(Lo(F\6'nX)A O (J7*) D QAsB_lo r}z|GGU _9&P2>h{Lm+"Bq{+<="q'T3}O1_6q_ A> i L%?6d<%>ZIJypGzPVlzh~ev>ooOZ1 2 F =KAj?D_BgaVe7 ]iS&kBQ^#JNpFHV&0c Dsp+ZB.bQTx"}HZi86ws _qUc4[!ZFC [,Q+X[j}M-,F+7ja.wu}&{&vBYYh_&`98=E=7LC1wgjOF,_*p,isxj>,3:;o<;BA> qk07x= v{bP yNBQSHF*}Fak"P=l2JTN:o-X{pQ&4,y;_+1QGQ]w_ \N#sYR@BEdz@ZNF?9h0PKXfjf1h} Wwp% _sE*IwoZ.MEyM8C*gI*a(x0GU)v Kl]C.Lu`+3<[m Bn4cFxB ?a8&'{SxtD;:";L~%fP6hD jSqAlf\ U$P6YD=p-$]]Ml:8- s'^wYc^k+{V^sx{l*Q9jHWGJKroxx1$s:G]x BM )(eAT#u}HF56 MPvuJOxD>o%e=h(u24P4}Df^v~va^nKxvsIaSG3 nk1DhEhA5e8=rc~2*@q.dN,=72wq%?@=V yKdd)BHnCMOnNV= `)S FRPi%, !`lry7}n$%M}qQ;+(OD #a}ld_x `QbaX] [G*K(LiD*L\GKIAN,cx!j1)7oe~}b8)kIU!GniDU!9oLT0=8;0EI@"@{ ?fJ4]X-&x)z2#Yqps=}*|Tg9cT5 Piv-O1}B,OX%eYf?> R}~l~ K#QktDGElGk##z8F3<)c}kCX^~7 b ekZ +BX+H Qr?Et#+x HRo!2_ _>2 iAV9-!Np; j;9I)HW?q9deZK|)=Z[Q{NvR)uU E,z#'h#x#Z)d&?Q (Ff7#LGN qWE%ENI:'VWS*uw0' "J cTq}!A[l%(&Okul}{okm OC2~V ~ND\Ne9>obgs\$(*/6@w9|pD$fYi8crPJx :Y S3(AqF`1=K:mGH^6H>#(0ZY8Q } 2_9AhW7SXJNyU -4]A@^$'~:%S7M\\fQ^22h)iB- `1ZS[z|w.59bf:plO'OR2321M U7Q6HH5 ~T 8zusv>0(|Zd! |W* WfJU`__@LEx:vJzUm%=qm33[ndm\e[n0/7IB EG'5g6=+-(s>9'@E&b%Vi[bm}eL3CW7r~\Z{2L6-hhR4p?];0uD_!; VZZ&f )`|P#2r6lln(cL, Vnk!:2Jh*EXbq:!]` xsfhnS ho?g8?'O mw16m mM dB^d2R9/v}.1AX~?>)9NlrUr EIz1\9B )/,iTU%kUZI3<UjQ]MK-/) *ibqNIy;`3c0dthG4~OR9zIgl}S]JU$]lPIc"~L8@VYBIGSTZp8&qJ O '}z#j _HkH~|rbKtH*BL&b9o} ,  wj`REM`$` &g>`=2X $X"LYG{tG2[ . EG=hxTV =h[Cr=v~\@Wo7T$S}h*!n:8~'t%F,IXI'+*v(q*3>3X?:L.o}fL<I:_HwW"Oo.#$Z_O+ 2qkfPz# W@fZ[ataV.eY)E[MRPPG R6$!'2Y]11j!gatQ(? yf3F{< V^[T>WfzU* \PH|whJ-$hG A+@V |f/=1K,>1GaDcWcdYA(JVxL%kol L[ [P#{1=,wzP"L@%5+6p0fbJzJRK5CT"JYv y k$/wNe$m[Jr8k'N0h-wz#:$kV_XdN5z{XY]TH5kv!v$j N {8i*AhI""/vcyoW0z"u;9x(xx;h*J;}UizU &2/wtu(4wU1S:5> @%oR/NG d. oj/I\P,wSZz7ň VMS.BCK[V9.BIN]RT.H;1EXE;1=&char *s, int n)); #ifdef MacGraph /* MacGraph */ /* * Implementation routines specific to Macintosh */ void MyDrawString(wbp wb, int x, int y, char *str, int slen); void MyHideCursor (wsp ws); void MyShowCursor (wsp ws); void UpdateCursorPos(wsp ws, wcp wc); #endif /* MacGraph */ #ifdef XWindows /* * Implementation routines specific to X-Windows */ novalue unsetclip Params((wbp w)); novalue moveWindow Params((wbp w, int x, int y)); int moveResizeWindow Params((wbp w, int x, int y, int width, int height)); int resetfg Params((wbp w)); int setfgrgb Params((wbp w, int r, int g, int b)); int setbgrgb Params((wbp w, int r, int g, int b)); XColor xcolor Params((wbp w, LinearColor clr)); LinearColor lcolor Params((wbp w, XColor color)); int pixmap_open Params((wbp w, dptr attribs, int argc)); int pixmap_init Params((wbp w)); int remap Params((wbp w, int x, int y)); int seticonimage Params((wbp w, dptr dp)); novalue makeIcon Params((wbp w, int x, int y)); int translate_key_event Params((XKeyEvent *k1, char *s, KeySym *k2)); int handle_misc Params((wdp display, wbp w)); wdp alc_display Params((char *s)); novalue free_display Params((wdp wd)); wfp alc_font Params((wbp w, char **s)); wfp tryfont Params((wbp w, char *s)); wclrp alc_rgb Params((wbp w, char *s, unsigned int r, unsigned int g, unsigned int b, int is_iconcolor)); int alc_centry Params((wdp wd)); wclrp alc_color Params((wbp w, char *s)); novalue copy_colors Params((wbp w1, wbp w2)); novalue free_xcolor Params((wbp w, unsigned long c)); novalue free_xcolors Params((wbp w, int extent)); int go_virtual Params((wbp w)); int resizePixmap Params((wbp w, int width, int height)); #endif /* XWindows */ #ifdef MSWindows /* * Implementation routines specific to MS Windows */ LRESULT_CALLBACK WndProc Params((HWND, UINT, WPARAM, LPARAM)); HDC CreateWinDC Params((wbp)); HDC CreatePixDC Params((wbp, HDC)); #endif /* MSWindows */ #ifdef PresentationManager /* * Implementation routines specific to OS/2 Presentation Manager */ int ObtainEvents(wsp ws, SHORT blockflag, ULONG messg, QMSG *msg); void InterpThreadStartup(void *args); void InterpThreadShutdown(void); void DestroyWindow(wsp ws); void LoadDefAttrs(wbinding *wb, wsp ws, wcp wc); void ResizeBackingBitmap(wsp ws, SHORT x, SHORT y); int SetNewBitPattern(wcp wc, PBYTE bits); int SetFont(wcp wc, char *family, LONG attr, ULONG fontsize); int ParseFontSpec(char *rawdata, char *family, LONG *flags, ULONG *size); void FreeIdTable(void); void FreeLocalID(LONG id); void SetCharContext(wbp wb, wsp ws, wcp wc); void SetAreaContext(wbp wb, wsp ws, wcp wc); void SetLineContext(wbp wb, wsp ws, wcp wc); void SetImageContext(wbp wb, wsp ws, wcp wc); void SetClipContext(wbp wb, wsp ws, wcp wc); void UnsetContext(wcp, void (*f)(wcp, wsp)); void UCharContext(wcp wc, wsp ws); void ULineContext(wcp wc, wsp ws); void UAreaContext(wcp wc, wsp ws); void UImageContext(wcp wc, wsp ws); void UClipContext(wcp wc, wsp ws); void UAllContext(wcp wc, wsp ws); void drawpoints(wbp wb, XPoint *pts, int npts); void drawsegments(wbp wb, XSegment *segs, int nsegs); void drawstring(wbp wb, int x, int y, char *str, int slen); void drawarcs(wbp w, XArc *arcs, int narcs); void drawlines(wbp wb, XPoint *pts, int npts); void drawrectangles(wbp wb, XRectangle *recs, int nrecs); int dumpimage(wbp wb, char *filename, int x, int y, int width, int height); void fillpolygon(wbp wb, XPoint *pts, int npts); void fillrectangles(wbp wb, XRectangle *recs, int nrecs); HBITMAP loadimage(wbp wb, char *filename, int *width, int *height); void InitializeIdTable(void); void InitializeColorTable(void); void FreeColorTable(void); LONG GetColorIndex(char *val); void AddLocalIdToWindow(wsp ws, LONG id); void ReleaseLocalId(LONG id); void ReleaseColor(LONG indx); void ColorInitPS(wbp wb); void GetColorName(LONG indx, char *buf, int len); void EnsureColorAvailable(LONG indx); int GetTextWidth(wbp wb, char *text, int len); int AddWindowDep(wsp ws, wcp wc); int AddContextDep(wsp ws, wcp wc); FILE *OpenConsole(void); void UpdateCursorConfig(wsp ws, wcp wc); void UpdateCursorPos(wsp ws, wcp wc); int PMfprintf(FILE *file, char *format, ...); int PMputc(int c, FILE *file); #endif /* PresentationManager */ #endif /* Graphics */ #if UNIX #ifdef KeyboardFncs int getch(), getche(), kbhit(); #endif /* KeyboardFncs */ #endif /* UNIX */ #ifdef LargeInts struct b_bignum *alcbignum Params((word n)); word bigradix Params((int sign, int r, char *s, char *x, union numeric *result)); double bigtoreal Params((dptr da)); int realtobig Params((dptr da, dptr dx)); int bigtos Params((dptr da, dptr dx)); novalue bigprint Params((FILE *f, dptr da)); int cpbignum Params((dptr da, dptr db)); int bigadd Params((dptr da, dptr db, dptr dx)); int bigsub Params((dptr da, dptr db, dptr dx)); int bigmul Params((dptr da, dptr db, dptr dx)); int bigdiv Params((dptr da, dptr db, dptr dx)); int bigmod Params((dptr da, dptr db, dptr dx)); int bigneg Params((dptr da, dptr dx)); int bigpow Params((dptr da, dptr db, dptr dx)); int bigand Params((dptr da, dptr db, dptr dx)); int bigor Params((dptr da, dptr db, dptr dx)); int bigxor Params((dptr da, dptr db, dptr dx)); int bigshift Params((dptr da, dptr db, dptr dx)); word bigcmp Params((dptr da, dptr db)); int bigrand Params((dptr da, dptr dx)); #endif /* LargeInts */ /* * Prototypes for the run-time system. */ C_integer iipow Params((C_integer n1, C_integer n2)); int bfunc Params((noargs)); int collect Params((int region, word nbytes)); int cvcset Params((dptr dp,int * *cs,int *csbuf)); int cvnum Params((dptr dp,union numeric *result)); int cvreal Params((dptr dp,double *r)); int eq Params((dptr dp1,dptr dp2)); int fixtrap Params((noargs)); int getimage Params((dptr dp1, dptr dp2)); int get_name Params((dptr dp1, dptr dp2)); int getstrg Params((char *buf,int maxi,FILE *fd)); int mkreal Params((double r,dptr dp)); int nthcmp Params((dptr d1,dptr d2)); void nxttab Params((C_integer *col, dptr *tablst, dptr endlst, C_integer *last, C_integer *interval)); int order Params((dptr dp)); int printable Params((int c)); int ripow Params((double r, C_integer n, dptr rslt)); int sig_rsm Params((noargs)); int subs_asgn Params((dptr dest, const dptr src)); int trcmp3 Params((struct dpair *dp1,struct dpair *dp2)); int trefcmp Params((dptr d1,dptr d2)); int tvalcmp Params((dptr d1,dptr d2)); int tvcmp4 Params((struct dpair *dp1,struct dpair *dp2)); long ckadd Params((long i, long j)); long ckmul Params((long i, long j)); long cksub Params((long i, long j)); novalue cmd_line Params((int argc, char **argv, dptr rslt)); novalue cotrace Params((struct b_coexpr *ccp, struct b_coexpr *ncp, int swtch_typ, dptr valloc)); novalue deref Params((dptr dp1, dptr dp2)); novalue envset Params((noargs)); novalue hgrow Params((union block *bp)); novalue hshrink Params((union block *bp)); novalue init Params((char *name, int *argcp, char *argv[], int trc_init)); novalue rtos Params((double n,dptr dp,char *s)); novalue tvtbl_asgn Params((dptr dest, const dptr src)); novalue varargs Params((dptr argp, int nargs, dptr rslt)); #ifdef MultiThread struct b_coexpr *alccoexp Params((long icodesize, long stacksize)); #else /* MultiThread */ struct b_coexpr *alccoexp Params((noargs)); #endif /* MultiThread */ struct b_coexpr *create Params((continuation fnc, struct b_proc *p, int ntemps, int wrk_size)); struct b_external *alcextrnl Params((int n)); struct b_record *alcrecd Params((int nflds,union block *recptr)); struct b_p;lY VMS.BCK[V9.BIN]RT.H;1EXE;1=lY5roc *strprc Params((dptr s, C_integer arity)); struct b_tvsubs *alcsubs Params((word len,word pos,dptr var)); #ifdef MemMon novalue MMInit Params((char *name)); novalue MMTerm Params((char *part1, char *part2)); novalue MMAlc Params((word len, int type)); novalue MMBGC Params((int region)); novalue MMEGC Params((noargs)); novalue MMMark Params((char *block, int type)); novalue MMOut Params((char *prefix, char *msg)); novalue MMShow Params((dptr dp, int colr)); novalue MMStat Params((char *a, word n, int c)); novalue MMStr Params((word slen)); novalue MMSMark Params((char *saddr, word slen)); #endif /* MemMon */ novalue EVVal Params((word value, int event)); #ifdef EventMon novalue EVQval Params((dptr dp, int j)); novalue EVValD Params((dptr dp, int event)); novalue vanquish Params((struct gf_marker *gfp)); novalue EVAsgn Params((dptr dx)); #endif /* EventMon */ #ifdef MultiThread struct b_coexpr *loadicode Params((char *name, struct b_file *theInput, struct b_file *theOutput, struct b_file *theError, C_integer bs, C_integer ss, C_integer stk)); novalue actparent Params((int eventcode)); novalue evcmd Params((word addr, word len, int c)); int mt_activate Params((dptr tvalp, dptr rslt, struct b_coexpr *ncp)); #endif /* MultiThread */ #ifdef FixedRegions struct region *AlcNewReg Params((word nbytes, word stdsize)); #endif /* FixedRegions */ /* pointer memcpy Params((char *dest,char *src, int c)); */ #if COMPILER novalue tracebk Params((struct p_frame *lcl_pfp,dptr argp)); int invoke Params((int nargs,dptr args, dptr rslt, continuation cont)); int xdisp Params((struct p_frame *fp,dptr dp,int count, FILE *f)); novalue atrace Params((noargs)); novalue ctrace Params((noargs)); novalue failtrace Params((noargs)); novalue rtrace Params((noargs)); novalue strace Params((noargs)); novalue initalloc Params((noargs)); struct b_refresh *alcrefresh Params((int na,int nl, int nt, int wk_sz)); #else /* COMPILER */ #define Fargs dptr cargp int invoke Params((int nargs, dptr *cargs, int *n)); int xdisp Params((struct pf_marker *fp,dptr dp,int count, FILE *f)); int Obscan Params((int nargs,Fargs)); int Ocreate Params((word *entryp,Fargs)); int Oescan Params((int nargs,Fargs)); int Ofield Params((int nargs,Fargs)); int Olimit Params((int nargs,Fargs)); int Ollist Params((int nargs,Fargs)); int Omkrec Params((int nargs,Fargs)); novalue atrace Params((dptr dp)); novalue ctrace Params((dptr dp, int nargs, dptr arg)); novalue failtrace Params((dptr dp)); novalue rtrace Params((dptr dp, dptr rval)); novalue strace Params((dptr dp, dptr rval)); #ifdef MultiThread novalue initalloc Params((word codesize, struct progstate *p)); #else /* MultiThread */ novalue initalloc Params((word codesize)); #endif /* MultiThread */ struct b_refresh *alcrefresh Params((word *e, int nl, int nt)); #ifdef ExternalFunctions dptr extcall Params((dptr x, int nargs, int *signal)); #endif /* ExternalFunctions */ #endif /* COMPILER */ /**************************************** end ../h/rproto.h */ #endif /* RT_DOT_H */ /**************************************** end [-.h]rt.h */ a*[V9.BIN]RT.OLB;1+,O. / 4 -0123 KPWO 56Ʈ7f 289Ҋ;vGHJ% VAX-11 Librarian V04-00`Ő0\` 2!  22NX) `  ,ACTIVATEADD2 ADDMEMF ADJUST ALCACTIV  ALCBIGNUM ALCCOEXP ALCCSET ALCFILE ALCHASH ALCLIST ALCLSTBF  ALCNEWREG ALCREAL ALCRECD  ALCREFRESH  ALCSEGMENT ALCSELEM ALCSTR ALCSUBS ALCTELEM ALCTVTBLp  ALC_CENTRYp  ALC_COLORp  ALC_CONTEXTp  ALC_DISPLAYp ALC_FONTp ALC_RGBASSIGN_CHANNEL_TO_TERMINALAST_PROC? ATRACEBIGADDBIGANDT .MAIN. LALLOCCNVDATAg DEFCERRMSG FMISC FMONITRKFSTRFSTRUCTFWINDOW FXTRAF_00F_01F_02 F_03F_04F_05F_06+ F_07# F_08 F_09 F_0A F_0B F_0C F_0D F_0E F_0F F_0G F_0H F_0H0 F_0I F_0J F_0J0 F_0K F_0K0 F_0L F_0L00N0a F_0OY F_0PR F_0QK F_0RC F_0S_0Y00CWF1D_TRIMF1E0_ANYBF1E_ANY|F1F0_BALF1F_BALm F1G0_FINDtF1G_FIND_ F1H0_MANYeF1H_MANYQ F1I0_MATCHW F1I_MATCHC F1J0_UPTOIF1J_UPTO F1K0_DELETE F1K1_DELETE F1K_DELETEXF1L0_GET{F1L_GETjF1M0_POPpF1M_POPcF1N_KEYT F1O0_INSERTL F1O1_INSERT[ F1O_INSERT> F1P0_LIST F1R0_PULL0F1R_PULL F1S0_PUSH#F1S_PUSHF1T0_PUTF1T_PUTF1U0_SETREAT,ALC_RGB BIGAND BIGSHIFT CNV_C_INTCOPYAREADEREFERR_MSG F0L2_COPY F0P_IOR F0V_NAME F0Y3_SORTI F11_VARIABLE F18_LEFT F1D0_TRIM F1P0_LIST(F1U0_SET& F291_WRITES F2E_DELAYN F2J0_CLIP% F2N0_COPYAREA#F2Q_DRAWCIRCLE!F2U0_DRAWPOINT F2X_DRAWSEGMENTF310_FGF34_FILLPOLYGON F3J0_RAISE F3M_TEXTWIDTH F3Q_WFLUSHGETACTIVEWINDOWWCOLOLV+SETBGSETBGRGB SETCANVASSETCLIP SETCURSOR SETDISPLAY SETDRAWOPSETFGSETFGRGB SETFILLSTYLESETFONTSETGAMMA SETGEOMETRY SETHEIGHTSETICONICSTATE SETICONIMAGE SETICONLABEL SETICONPOSSETIMAGE SETLEADING SETLINESTYLE SETLINEWIDTH SETPATTERNSETPATTERNBITS SETPOINTERSETWIDTHSETWINDOWLABEL SET_MUTABLESTRIMAGE3SYSERR+TMP_STR TOGGLE_FGBGTOPACT? TRACEBK TRANSLATE_KEY_EVENT TRCMP3 TREFCMPp TRYFONT TVALCMP TVCMP4 TVTBL_ASGN UNSETCLIPVARARGSWALERT WARPPOINTERWATTRIBWCLOSEWFLUSH WFLUSHALLWGETCHEWGETCHNE WGETEVENTWGETQWGETSTRGWGOTO WLONGREADWMAPWRITEGIFWSYNCXCOLORXDIS? XDISPp  XLFD_FIELDXYROWCOL  VMS.BCKO[V9.BIN]RT.OLB;1E;1 L s+  O00_DIVIDE  O01_MINUS O02_MOD O03_MULT O04_NEG  O05_NUMBER O06_PLUS O07_POWR O080_ASGN O081_ASGN O082_ASGN O083_ASGNO08_ASGN O090_RASGN O091_RASGN O092_RASGN O093_RASGN O094_RASGN O095_RASGN O096_RASGN O097_RASGN O09_RASGN O0A0_RSWAP} O0A2_RSWAPS O0A3_RSWAPr O0A4_RSWAPl O0A5_RSWAPf O0A6_RSWAP` O0A7_RSWAPZ O0A8_RSWAPREADIMAGEF190_MAPF19_MAPz F1A0_REPLF1A_REPLm F1B0_REVERSEs F1B_REVERSE^ F1C0_RIGHTe F1C_RIGHTQ F1D0_TRIM+INVOKECIRUNERRISETBGISETFGJ  K050_DATELINEX  K0H0_FEATURESKBHITLCOLORLEXCMP LOADIMAGELONGREAD ( LONGWRITE LOWERWINDOWMAKEICONF  MARKBLOCKF MARKPTR2 MEMB hMEMCOPY hMEMFILL MILLISECMOVERESIZEWINDOW MOVEWINDOWMUL MUTABLE_COLORF MVC MYSTRNCPY NATIVECOLORNEG  NEW_CONTEXT NTHCMPKNXTTAB.+GETSTRGGETVAR GETVISUALGET_MUTABLE_NAME? GET_NAMEp  GO_VIRTUAL HANDLE_MISCHASH2 HCHAIN2 HGFIRST2 HGNEXT2 HGROW2 HMAKE2 HSHRINKICONHOST ICON_GCVTIDELAY IIPOW3INITF  INITALLOC3INTTRAP+ GETICONIC GETICONPOSGETIMAGEGETIMSTR GETITIME GETLINESTYLE GETPATTERNGETPIXEL GETPIXEL_INITGETPOINTERNAMEGETPOSEVQUESUBF00_ABSF01_CSET F02_INTEGER F03_REAL F04_STRING F05_NUMERICF06_PROC+ F07_SIN# F08_COS F09_TAN F0A_ACOS F0B_ASIN F0C_EXP F0D_SQRT F0E_DTOR F0F_RTOD F0G_ATAN F0H0_LOG F0H_LOG F0I_ARGS  F0J0_CHAR F0J_CHAR  F0K0_COLLECT  F0K_COLLECT  F0L0_COPY  F0L1_COPY  F0L2_COPYLEARm F0N_ERRORCLEARa F0O_IANDY F0P_IORV_NAME1+ SETLINEWIDTH SETPATTERNSETPATTERNBITS SETPOINTERSETSIZESETWIDTHSETWINDOWLABEL SET_MUTABLESIG_RSMSI_I2SSI_S2I? STRACESTRIMAGESTRNCHRSTRPRC  STRRESERVESUB SUBS_ASGNF SWEEP3SYSERR DOCIRCLESDOIMAGE DO_CONFIG DP_PNMCMP DRAWCURVECDRUNERR DUMPIMAGE3ENVSET3ENV_INTEQEQUIV ERASEAREA3ERR3ERRORCERR_MSG+GETBG GETCANVASGETCHGETCHE GETCTIME GETDEFAULT GETDISPLAY GETDRAWOPGETFG GETFNTNAMQF_1I0IF_1JCF_1J0F_1KF_1K0F_1K1{F_1LXF_1L0pF_1MjF_1M0cF_1N[F_1OTF_1O0LF_1O1EF_1P>F_1P07F_1Q0F_1R*F_1R0#F_1SF_1S0F_1TF_1T0F_1UF_1U0F_1VF_1WF_1W0F_1XF_1YF_1ZF_1Z0F_20{F_200sF_21lF_210dF_22]F_23VF_230OF_24HF_240AF_25291F_2ASYSF_0L0 F_0S F_0Y0` F_150 F_1C F_1IF_25kF_2AF_2H0F_2N0'F_2T0$F_2Z0"F_350F_3B0F_3H0F_3N0O_096 O_0A91O_0B3/O_0Z O_11Z XWINDOWJ F3R0_WRITEIMAGEF3R_WRITEIMAGE?  FAILTRACE3FATALERRp FIELDCMPFILEARGp FINDFONTp FONTCMP3FPETRAP FREECOLORp  FREE_BINDINGp  FREE_CONTEXTp  FREE_DISPLAY FREE_MUTABLEp  FREE_WINDOWp  FREE_XCOLORp  FREE_XCOLORSGENCURVEGETACTIVEWINDOW  F3N0_UNCOUPLE F3N_UNCOUPLE F3O0_WATTRIB F3O_WATTRIB F3P0_WDEFAULT F3P_WDEFAULT F3Q0_WFLUSH F3Q_WFLUSH > F3J_RAISE$F3K0_READIMAGE- F3K_READIMAGE F3L0_WSYNC F3L_WSYNC F3M0_TEXTWIDTH F3M_TEXTWIDTH e F3G0_PENDINGm F3G_PENDINGT F3H0_PIXEL\ F3H_PIXELFF3I0_QUERYPOINTERMF3I_QUERYPOINTER7 F3J0_RAISE VMS.BCKO[V9.BIN]RT.OLB;1E;1 ѕF_3OF_3O0F_3PF_3P0F_3QF_3Q0F_3RF_3R03INITINVOKER KEYWORDJ K_050X K_0H0LMISC (LONG hMEMORY OARITHOASGN O_00 O_01 O_02 O_03 O_04 O_05 O_06 O_07O_08O_080O_081O_082O_083O_09O_090O_091O_092O_093O_094O_095O_096O_0A6`O_0A7ZO_0A8SO_0A9 F3C_PALETTECHARSF3D0_PALETTECOLORF3D_PALETTECOLORF3E0_PALETTEKEYsF3E_PALETTEKEYu F3F0_PATTERN| F3F_PATTERN  F390_GOTOXY F39_GOTOXY F3A0_LOWER F3A_LOWER F3B0_NEWCOLOR F3B_NEWCOLORF3C0_PALETTECHARSMF_3IFF_3I0>F_3J7F_3J0-F_3K$F_3K0F_3LF_3L0F_3M F_3M0F_3NF_3N0 F350_FILLRECTANGLEF35_FILLRECTANGLE F360_FONTF36_FONTF370_FREECOLOR F37_FREECOLOR F380_GOTORC F38_GOTORCF_3CF_3C0F_3DF_3D0sF_3EF_3E0|F_3FuF_3F0mF_3GeF_3G0\F_3HTF_3H0XF31_FG< F320_FILLARCE F32_FILLARC-F330_FILLCIRCLE4F33_FILLCIRCLEF340_FILLPOLYGON$F34_FILLPOLYGONlF2Y0_DRAWSTRINGF2Y_DRAWSTRINGoF2Z0_ERASEAREAv F2Z_ERASEAREA` F300_EVENTg F30_EVENTOF310_FGF_36F_360F_37F_370F_38F_380F_39F_390F_3AF_3A0F_3BF_3B0 F2U_DRAWPOINTF2V0_DRAWPOLYGONF2V_DRAWPOLYGONF2W0_DRAWRECTANGLEF2W_DRAWRECTANGLEF2X0_DRAWSEGMENTF2X_DRAWSEGMENTF2R0_DRAWCURVE F2R_DRAWCURVEF2S0_DRAWIMAGE F2S_DRAWIMAGE F2T0_DRAWLINE F2T_DRAWLINEF2U0_DRAWPOINTgF_30`F_300XF_31OF_310EF_32<F_3204F_33-F_330$F_34F_340F_35 F_350H F2N_COPYAREA2 F2O0_COUPLE9 F2O_COUPLE F2P0_DRAWARC( F2P_DRAWARCF2Q0_DRAWCIRCLEF2Q_DRAWCIRCLEF_2UF_2U0F_2VF_2V0F_2WF_2W0F_2XF_2X0F_2YlF_2Y0vF_2ZoF_2Z0F2J_CLIPt F2K0_CLONE| F2K_CLONEa F2L0_COLORj F2L_COLORQF2M0_COLORVALUEYF2M_COLORVALUE@ F2N0_COPYAREAW VMS.BCKO[V9.BIN]RT.OLB;1E;1 u&F1U_SET F1V_TABLE F1W0_CLOSE F1W_CLOSEF1X_EXIT F1Y_GETENV F1Z0_OPENF1Z_OPEN{ F200_READF20_READl F210_READSs F21_READSd F22_REMOVEV F230_RENAME] F23_RENAMEH F240_SEEKOF24_SEEKA F25_SYSTEM4 F260_WHERE: F26_WHERE% F270_STOP F271_STOP+F27_STOP F280_WRITE F281_WRITE F28_WRITE F290_WRITES F291_WRITESKBHIT F2D_CHDIR F2E_DELAY9F_2O2F_2O0(F_2PF_2P0F_2QF_2Q0F_2RF_2R0F_2SF_2S0F_2TF_2T0EF1P_LIST7 F1Q_MEMBER* F1R0_PULL0F1R_PULL F1S0_PUSH#F1S_PUSHF1T0_PUTF1T_PUTF1U0_SET+ READ_A_CHAR REALTOBIGREBINDRECTARGSREDIRECTREMAPRESETFG RESIZEPIXMAPRETDEREFRGBKEY RIPOWRTOS? RTRACE LSALLOCF SCOLLECT3SEGVTRAP+PUTSTRQEVENTF QLCMPQSEARCH QUERY_POINTERQUERY_ROOTPOINTERRADIX RAISEWINDOWREADGIF READIMAGE$, GETFNTNAM GETPOS INTTRAP NXTTAB O0A0_RSWAP O0A8_RSWAP2 O0AG_RSWAP0 O0B6_SWAP.O0R_NEQV O0Z5_RANDOMY O112_SUBSC PARSEFONT-PUSHACT* READIMAGE)SEGVTRAP SETLINESTYLESYSERRWMAP XYROWCOL;F34_FILLPOLYGON GETACTIVEWINDOW+XYROWCOL+ PARSEGEOMETRY PARSEPATTERNPCLOSE POLLEVENTPOPACTPOPENF POSTQUAL PRINTABLE3 PSTRNMCMPPUSHACT+ O0B7_SWAP O0B8_SWAPO0B_SWAP  O0C0_CATER  O0C_CATER  O0D0_LCONCAT  O0D_LCONCAT  O0E_NUMEQ\ O0F_NUMGE  O0G_NUMGT~  O0H_NUMLEw  O0I_NUMLTp  O0J_NUMNEb  O0K0_LEXEQi  O0K_LEXEQS  O0L0_LEXNE[  O0L_LEXNEF  O0M0_LEXGEL  O0M_LEXGE9  O0N0_LEXGT?  O0N_LEXGT,  O0O0_LEXLE2  O0O_LEXLE  O0P0_LEXLT O0P_LEXLT O0Q_EQV O0R_NEQV O0Z3_RANDOMx O0Z4_RANDOMq O0Z5_RANDOMSUBSCO_0B4O_0B5O_0B6O_0B7O_0B8 O_0C O_0C0 O_0D O_0D0 O_0E\O_0F O_0G~ O_0Hw O_0Ip O_0Ji O_0Kb O_0K0[ O_0LS O_0L0L O_0MF O_0M0? O_0N9 O_0N02 O_0O, O_0O0O_0P O_0P0 O_0Q O_0R? O_0S8 O_0S01 O_0T* O_0U" O_0U0 O_0V O_0W O_0X O_0X0O_0YO_0Y0O_0ZO_100NO_101DO_11SYS+ O0A_RSWAP O0B0_SWAP O0B1_SWAP O0B2_SWAP O0B3_SWAP O0B4_SWAP O0B5_SWAP O0B6_SWAPMO_0AAGO_0ABAO_0AC;O_0AD5O_0AE/O_0AF)O_0AGO_0BO_0B0O_0B1O_0B2O_0B3+S O0A9_RSWAPM O0AA_RSWAPG O0AB_RSWAPA O0AC_RSWAP; O0AD_RSWAP5 O0AE_RSWAP/ O0AF_RSWAP) O0AG_RSWAP41PՐV1.01INITV1.025-JUL-1994 08:28VAX C V3.2-044`P'dPcPbPaaP3PPNOERRBUF PTRACEPCOEXPSIZEPSTRSIZE#PHEAPSIZE,PBLOCKSIZE6PBLKSIZE>PSTATSIZEGPSTATINCRPPMSTKSIZEYPQLSIZE`PMAXMEMgPICONCOREpP: sP=vPenvironment variable out of rangePenvironment variable out of rangePenvironment variable not numericPerror in startup code %s Pe5rror in startup code %s: %s PSystem error P in startup code1P at line %d in %sCP %s HP Termination dump:  C$V_CTYPEDEFSDATAINITFATALERRC_EXITSYSERRERRORSEGVTRAPFPETRAPENV_INTENVSET INITALLOCXDISPENVSETALCACTIVSEGVTRAPFPETRAPFATALERRERR_MSGERRORENV_INTDATAINITC_EXITPUSHACTMILLISECSTRCMPMALLOCGETENVEXITABORTSTRLENSTRNCATSTx B VMS.BCKO[V9.BIN]RT.OLB;1E;1 56RNCPYSETBUFFFLUSHFPRINTFSIGNALASSIGN_CHANNEL_TO_TERMINALREDIRECT]Pco-expression #%ld (%ld) wPcall to 'err' P&erroutP&inputP&outputP PabcdefghijklmnopqrstuvwxyzPrPABCDEFGHIJKLMNOPQRSTUVWXYZP ^XwTEWAV<UЬ<<SEGVTRAP SIGNALFPETRAPSIGNALDATAINITЬENVSETxddx`` INITALLOC~MALLOCPd<1~7ERR_MSGdPdPdPԠ dPԠdP}L,dPި dPԠ$dRALCACTIVP4|RԥRSERR_MSGddPUSHACTЏgd}g2ݬ ݬREDIRECTASSIGN_CHANNEL_TO_TERMINALiSETBUF8P<~MALLOCPS<1PRԥRPERR_MSGSSETBUFMILLISECP<^RATUߢGETENVPi|~ߢ ENV_INTSc~dߢc~\lߢc~ߵߢ#c~ߵߢ,c~ߵߢ6c~cߢ>c~8bߢGc~`ߢPc~aߢYc~ߢ`cߢgGETENVP` SIGNALqP^Tc~ݬ߭STRNCPY߭STRLENRbPc~ߤp߭STRNCATSc߭bPc~ݬ߭c߭bPc~ߤs߭c߭bPc~ݬ ߭c͘uERROR^XZS[ݬGETENVPYiYUe-լ  Yݬߨv"[U Pe+UePPP@j1ެWQgP T TP QP{TPQPQVQgP TTTPTQPQ{TPPQQTP0PRSVP PTPRPgYݬ9ϐ SRSePPP@jŕeYݬȺkS[^<RP\\PERR_MSG^<R<@P\\PERR_MSG^<R<.P\\PERR_MSG|^TFV2URլݬbFPRINTFݬݬbFPRINTFbFFLUSHqABORTЏSզYQHbFPRINTFbFFLUSHХPݠݠ]bFPRINTFbFFLUSHb*&jXDISPSEXITP|^TFV2UScFPRINTFRbj : cbrst1cbݬCcFPRINTFcFFLUSHqABORTЏRզYQHcFPRINTFcFFLUSHХPݠݠ]cFPRINTFcFFLUSHc*&jXDISPREXIT<^UFT2SRդYQHbFPRINTFbFFLUSHУPݠݠ]bFPRINTFbFFLUSHb*&jXDISPEXIT^\wSYSERRP^<RԢݬERR_MSG^ݼSTRCMP;^TLX@Y?[>W=Z:S9R8\1V0U Ć ĎR INIT init envsetenv_errXenv_int\fpetrap$inttrap#segvtrap# error syserr c_exit  err<fatalerr \ pstrnmcmppdatainit( t< G INIT <ENVSET XENV_INT \FPETRAP INTTRAP SEGVTRAP |ERROR |SYSERR <C_EXIT = ERR <FATALERR \ PSTRNMCMP pDATAINIT$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBL>LST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VAL?K_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRT@OTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMS PROG_NAMEERRTABSET_UP$CHAR_STRING_CONSTANTS ROOTSTRING ROOTBLOCKMEMSIZE ĕԫSTRLENPgiĝeĞfĠGHġHIļIԨ}h;MOľOP}hJ}hKww1@^!!V1.0M1F_1EV1.025-JUL-1994 08:38VAX C V3.2-044P|^eU=VѬЬPDEREF PЏѬЬPDEREF PЏѬЬPDEREF PЏլDEREFЏeeѭ}@䭴ѭ=Ц6CNV_STRPg~ERR_MSGЭePѭѭJ߭ CNV_C_INTP#ݭݭCVPOSPѭЭePe~ERR_MSD1M)V1.03ERRMSGV1.025-JUL-1994 08:28VAX C V3.2-044P Run-time error %d PFile %s; Line %d 'P Run-time error %d in startup code KP%s OPoffending value: aPTrace back: P^UjY<T;X5R4W3SVլ6b}Nh7g!PЬbЬP}Lhg P}`hgecP``bРcP`iAդp0bߥfFPRINTFr-tsߥfFPRINTFפݬߥi VMS.BCKO[V9.BIN]RT.OLB;1E;1 fDE'fFPRINTFcߥKfFPRINTFg$ߥOfFPRINTFhfOUTIMAGEf FPUTCo ݏC_EXITiqR ERRMSGerr_msgirunerr4drunerr? sk C$V_CTYPEDEFSERR_MSGTRACEBKALCREALOUTIMAGEC_EXITABORTFFLUSHFPUTCFPRINTF ERR_MSG FIRUNERR DRUNERR$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTGBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTHK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TIOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALSJ N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSERRTABn$CHAR_STRING_CONSTANTSABORTݏC_EXITߥafFPRINTF&iTRACEBKfFFLUSHqABORTݏC_EXIT^NRЬ6ЬЏ27|~ERR_MSG^NRp~ALCREALPЬ6PЏb7|~ERR_MSGwwL1\V1.01FSTRV1.025-JUL-1994 08:28VAX C V3.2-044QR FSTR nxttab s C$V_CTYPEDEFS |NXTTAB$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPMTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCSN(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2OMAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRPBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBS4DRAWOPSWDSPLYS CURSORSYMSP|^ެRвPެ UPe<Ѽ5eTѲTвPü вPРѲT вPѼмVV  ЬU޼SecTüeRzRP{cPQPPTeЦwwR1zV1.02F_1D0V1.025-JUL-1994 08:28VAX C V3.2-044XR F_1D0 F1d0_trim s  C$V_CTYPEDEFS  F1D0_TRIM$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_STYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(X} VMS.BCKO[V9.BIN]RT.OLB;1E;1 DSTRPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPSU2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSVNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBS4DRAWOPSWDSPLYS CURSORSYMSP^ެWgRbXXVVV1fTTPPUU QЬRТRSTRR2RPxPPxPPPSUQcRRGgTVXV:fRRPPSS UЬPРPQRPP2PPxPPxPPPQSUaPPЬ SЬRТXcwwX1 V1.01F_1DV1.025-JUL-1994 08:29VAX C V3.2-044R F_1DF1d_trimL s@  C$V_CTYPEDEFSDEREFERR_MSG DEF_TCSETCNV_STR F1D_TRIML$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESYSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSZTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUE[K_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSI\ZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOM]E GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROLi XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSuP^eXѬЬRDEREF PЏլğDEREFЏhhğCNV_STRPĚg~ERR_MSGЭhP̟,̟ DEF_TCSETP̚h~ERR_MSGЭhPЭVVUUUxeTTPPQQ WЭRSTRR2RRxRPxPPPSQWcRRBPUVU6eRRPPSS TЭPQRPP2PPxPPxPPPQSTaPPЬ RЭȢVbЭhPww_1`_V1.02F_1C0V1.025-JUL-1994 08:29VAX C V3.2-044}R F_1C0 F1c0_right s:  C$V_CTYPEDEFSIRUNERRERR_MSGALCSTR  F1C0_RIGHT$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYP`INT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEaGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINbKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZEST[ VMS.BCKO[V9.BIN]RT.OLB;1E;1 bcKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRdAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFTV XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSP^լ ݬ ~IRUNERRPЬRb}0bЬ TЬRTbЬSbRTRTcPݬ ALCSTRPV |~ERR_MSGPЬScZУWVRެ UeVSRS8ZWYVXWPPY!eVSRSZWTPPT eVQRQRXЬ TTVQЬRbSSPSTTSSRSR pqSRSRЬRVЬ bPwwf1V1.01F_1CV1.025-JUL-1994 08:29VAX C V3.2-044P^eYѬЬRDEREF ЏѬЬRDEREF ЏլDEREF PЏiiCNV_STRPg~ERR_MSGiP߭ DEF_C_INTPe~ERR_MSGiP0DEF_TSTRPg~ERR_MSGiPխݭ~IRUNERRiP }0ѭgЬ SRíRЭciPݭALCSTRPU|~ERR_MSGiPXVURUSRS8XVWVPPW"USRSXVTR F_1C F1c_right su  C$V_CTYPEDEFSDEREFIRUNERRERR_MSGDEF_TSTR DEF_C_INTCNV_STRALCSTR  F1C_RIGHT$CODE$DATASTDINSTDOUThSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDiSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RANj K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMEkSEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATESl GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSePPT UQRQUSRSЭRRUQSSPSRRSSRSR pqSRSRЬ RUЭbiPwwn10V1.02F_1B0V1.025-JUL-1994 08:29VAX C V3.2-044`R F_1B0 F1b0_reverse_ s  C$V_CTYPEDEFSERR_MSGALCSTR F1B0_REVERSE_$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_oTYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLISTp(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRqLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIME VMS.BCKO[V9.BIN]RT.OLB;1E;1 }qrSTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METADATTRIBSDRAWOPSWDSPLYS CURSORSYMSpP ^ЬP`RЬSRݠALCSTRP |~ERR_MSGPЬSRcУPRPRQPQP`SaQRQSbPQPwwt1V1.01F_1BV1.025-JUL-1994 08:29VAX C V3.2-044wR F_1B F1b_reverse s4  C$V_CTYPEDEFSDEREFERR_MSGCNV_STRALCSTR  F1B_REVERSE$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPuINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDvSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEKw_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZExSTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOMEy GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROLi XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSP^eTլDEREFЏd잭dCNV_STRPg~ERR_MSGЭdPЭRЬ SRݭALCSTRP|~ERR_MSGЭdPЬ SRcУPRPRQPQ`SaQRQSbPQЭdPww{1V1.02F_1A0V1.025-JUL-1994 08:30VAX C V3.2-044zR F_1A0 F1a0_repl s8  C$V_CTYPEDEFSIRUNERRERR_MSGALCSTRMEMFILL F1A0_REPL$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TY|PINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTD}SEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUE~K_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROLi XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSP^լݬ~IRUNERRPмTլT }1 PŬTVVݬ~IRUNERRPVALCSTRPS |~ERR_MSGPЬ U/s/`R Y<@,i 9fpÚwtJ6 yu!tʰa UjA;S.5J*b+3R.뇖Z! a>MI0U;f x+NCr =#$vWԹnxQ̈&誎 zfjlBh$Ս?.LmUz9bJH!a@P Zd=E {sϖ#pA75gyRbmFv>MJ #m~īT2XV (L*}8‚FAaC3@oX/q #A@s*Lt"n94IgC?c3.d)Rf{c˓'m#ZJ,9pxKK D"lW*dzwDotlAy q}iPJ̖+_pB loZ-KS`l s^|-fv,8=\\nt{h^ 9{Tv,\n4`AESUnFp1 F1Z `o< [XTPrq- tAG^ Invr5&kSLJobyK} $^ YW<6<ŀOTؖu C :AK O\M6U]늖IV_6KʴRZpTi57WZLG^AWG=8$2XоU`"Ub$^yKLRխ0iʼđ_gBiNXD7➒\?[$@<i>aȑ!S6ٱ:x)5 KBzܖvDZ͙w`\*m9#oo`B*CUJJ6ם/ 6tMFCݒ33ƻr ,NS0rRFrlR(H/y+8zٵ b,d(\D@[Zs6=]P9mMZDƶ*ڃ÷fB]TUYv'1|uz1(#=3ɱKOCN%k?Q!dnzU)Hld556P;}<7 b/2CA*  s:ux05#b5b*c [f/^DL(XUic' RQaAVVlMC0NQ?^c< rf azf ]oP*NH@L ΗO\r=vX 6 Z F.< LJVRy޺SKfYHGpC:4rjPrX "A_ b#OE35aQ5?Xۻ VNPBpۍ >Y#ЬG@ұ<"Z1|Ά#{- RN6X,J_jD( Cq6Jd)Y2y(7ccޔgTSM\P^+z[_2ug 3%/B+F[/ 35j`IF[a/j,D/Ab]RJ?ݶVOAEsOG2EC=RuFHjC 6'y T~1  ZO>NFUtYPa퓑js56qŷIoN:r7@1`5O*eKnURh'LXMH6IGnJU=R? Q/H.ϵYf?swG\%o QaQEa:@H@GfӳXJ]ŃPHW_/CJeͧiiM6-r?!2"I !Ͳ&H*!fde2s]&zuO&6F9I L?\](";}MGwz3/؍A] k7;tq?=G#I h?{ Q\hHoaNAOu^"oLzE(D.Xyn2+/2#\-A=-9xw=%hfLFZqQ^2 ngǝ\$vjB|S|,UR<# h2E1MW@L9w<:)caHuLbjR򤌋.`3V4ɾWK|39[i!GTy 5_\oCZp &I/m bHEGHeQaqGveJh5 es9/#AB^4WLwg>EbzyH&k\vIUy|fAI eˣ%_XH0jiF&OAa)SGWz}`)L[SwJOxCRWGJC^ RF L&=m^!pwb'@euf14-q_ 4mV5ݺFTUBy39[I%Z kbdETzlᑽXV8R5#.ɋ7 -sЗo/$;k,mj fu`te4U7Õ3imP[J+y,ggI(3vp1`3<7vŘ[4<1z8E#q%|"z阜>~-5,ğp{gΕ)aKɕ<|y<ۃkόѝ;"f568=1)g Ε1:vp-u4:*&g;9$eva867%*m,dn&|0a}de$Ktl3w$)bo' zi3a2v$\iY7d%#-af?$}% fy`L+6d!;Sfu>!/l!,x16.] fb, [=1M"+bmpsp>?4S}ف-4!t?J HLvC0gwR= =<۹qv`_nH)l2,4u8aSr4U~gzE'ek&*!m1Ja:u~0]'s5V jؾ#z?"xPn_,,.d0.6`~v`l|swg&p&@`eA`Co"a2"9JBр\?'_tI`nu zZyh*d:)XD6_ߥ^Fnf:>-(zi}ŸOnzi?3Bpd,`230z|("G, e{}@+e2j˛0ߞ3[H?50MȉoaZIىefi/`'X(6zz5"s%Gb':vK-d<Ņwoqko.x:r$?pR&M,C'%eZد} Mx^s i~5!l|h#o A i\MSV"NH))+2K Dlrv-ml|R(k"j9`)i\6uz\W-'`b28y%" d9ruFPp0 f[ ICm7J=R-s/͕1:T2?h f ќo* oB;-CCp5'H´$k5ppe;@c Ѝk gPEiN˦X.=<s0?C[/0 נiif[QcJVo7ms.◂@)Nx #l-h3Q,p592,2HYl5~5~(ۙQ >͓NO*ЩDLRlaz5g!/çr\RAw<;e=u׫T5"nX1:ęOnZvTI)숽i#X6hDI9'G^@'Iv=7"YD#Bl͗_Aμ`eh P8Ug/+&3 &yg+s(=q2/6)f:+4lg3.\VRn-/<>*=$'vzd$nz_p/n2Bze5)>8vJX,isc2e tpxknB!w=*Tb# cr(Id\8hfHzn/b*k$,Na'r$`6zx; 5(|qw1c Vivl j9#ky~f5Gg 9mN4|`ok8q=DQi>n:0>N_V"-+`v nuk0!_ xss+&d8'32W-{GRv`,f?xfh"|Bt9fe~Qbg&01KK<#4+ghmWu)^cct{&g7wqË/3v;Dž(PIx|ixx4Jx5.~irrlf0O =9?94lĪ!e>7;>-=;lQd%Pon ,2{q<C! !e,`*XtȉN3qdZ%wpI*-41:f*0ۉ# KGt5vkj|9Uz,r5Ԃ.ҽ7fVzc ?>vd(i-mr@dֆ!7fwxɚcNv;k%=*D;x-z&QGq6q$l?m֟h_mK&Z#%ljdy0 %`be*<[F܃6F!-qk|sf V-?,6d[yi|g8h}UUlv|Ov-i|+i"5 2<&@wv, BΣp:&L>Achv1yf8@%g yi0ZmIBaDs SKPk}u}cn#l"#d{+;=Q}Мl`f:{;gt"1': n#ri`Z!tn&Zztjf{|34,'z>"""=Rh* ov3aƗh"y5] i7;7Ҡs'(IʮU]Q@D\N(ю[U%ͿbLa0Lo6p-b!‰?mS9ċ}m. ﱹ܃8lTdry쮙 t{wq3h`ϭ;r'(sg rt}bu?3yilmaps3#0>o7j̤m"&?ryeqn)bb&m61~|4&)m(+awd.`|cdm8"=';t/o'?Li،7#?FT-7yhCPf%4-$^l>oZ`5cv"jQt?R Kg  BKKFZA?}"u,!5m5;vXi}׽fBf:E??y:gu|Z* zpeʈn3Un۩s6}gj pUion`}wՈa[2Orak2| jٛ3PS&u ޯ~l̺/#?xEX*= @+pS:6l12;hɁ,"oʷϑl*|"F`˶:ac(ot12ifcQΞ;r/mnq21ɥxx3KA^MMJ#h)`yCC3qasЈA| QNg[y귌_ 7建m&KcoQIKUg-md,4RW@h||KW )髋ppٮ10ksay&\Mc\YNFz|?Xb'_w]S8H_ BG6jyo$X[ X "I{cJOs";/!!pD a#tU[1jfQz_[:t`U&p^5pe7u":P^ș_gsĩB]@ , ;"~|BP4FDvҰx6 KY[}R@R4&7EbtOE+M @`ˤ!tNkZlƖTQP_ATO&4 !=kEIKWS4>&M@1*K &2j-9/hABv3}gȠH "7dTM}r` "-8hV3d8F/s8 VMS.BCKO[V9.BIN]RT.OLB;1E;1 6SVeЬUХRTVb~SMEMFILL"P׬TWPRQWPP׬Pww1PV1.01F_1AV1.025-JUL-1994 08:30VAX C V3.2-044R F_1AF1a_replp sj  C$V_CTYPEDEFSDEREFIRUNERRERR_MSGCNV_STR CNV_C_INTALCSTRMEMFILL F1A_REPLp$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSP ^eXѬЬRDEREF PЏլ蟼DEREFЏhh蟭CNV_STRP蚏g~ERR_MSGЭhP߭ CNV_C_INTPe~ERR_MSGЭhPխݭ~IRUNERRЭhPЭTխT}1߼ ЭhPŭTVVݭ~IRUNERRЭhPVALCSTRPS|~ERR_MSGЭhPЬ USVeЭRTVb~SMEMFILL!׭TWPRQWPP׭ЭhPww1l7V1.02F_190V1.025-JUL-1994 08:30VAX C V3.2-044uR F_190F190_map s4 C$V_CTYPEDEFSERR_MSGALCSTR F190_MAP$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METADATTRIBSDRAWOPSWDSPLYS CURSORSYMS4P^KWJVUЬ RfbѦЬRgbѧoЬ S}cfЬR}bgcb~ERR_MSGPЬ TФSЬTФRPTPdTPQެ TQPAcPP2PPAb@eQQռ }1PЬTмRRdRALCSTRP |~ERR_MSGPЬSУQЬSУPRSRSPTPSS2SSCedRSRSPwwH}v VMS.BCKO[V9.BIN]RT.OLB;1E;1 1V1.01F_19V1.025-JUL-1994 08:30VAX C V3.2-044P$^eXKVJWUѬЬRDEREF PЏѬЬRDEREF PЏլ䟼DEREFЏhܞh䟭CNV_STRP䚏g~ERR_MSGЭhPODEF_STRP욏g~ERR_MSGЭhPHDEF_STRPg~ERR_MSGЭhPgѧ fѦ^}g}fѭ~ERR_MSGЭhPЭSЭRPeTPdTPQխAcPP2PPAb@eQQխ}1 ЭhPЬ SЭRRcRALCSTRP|~R F_19F19_map sq  C$V_CTYPEDEFSDEREFERR_MSGDEF_STRCNV_STRALCSTR F19_MAP$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROLi XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSNERR_MSGЭhPЭQЬ SУPRSRSPTPSS2SSCedRSRSЭhPww1, V1.02F_180V1.025-JUL-1994 08:31VAX C V3.2-044|R F_180 F180_left s:  C$V_CTYPEDEFSIRUNERRERR_MSGALCSTR F180_LEFT$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFTV XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSP^լ ݬ ~IRUNERRPЬRb}0bЬSѬ cЬRУЬ bPݬ ALCSTRPU |~ERR_MSGPЬScWУT URRU)WTSPSPPTRUPprPTRURUUQЬRbVТPV Ь VVRVR VRVRЬRUЬ bPwwKM` VMS.BCKO[V9.BIN]RT.OLB;1E;1 j1P# V1.01F_18V1.025-JUL-1994 08:31VAX C V3.2-044P^eXѬЬRDEREF ЏѬЬRDEREF ЏլDEREF PЏhhCNV_STRPg~ERR_MSGhP߭ DEF_C_INTPe~ERR_MSGhP0DEF_TSTRPg~ERR_MSGhPխݭ~IRUNERRhP }0ѭЬ RЭbhPݭALCSTRPT|~ERR_MSGhPWSTRRT)WSVPVPPSRTPprPSRTѵR F_18F18_left su  C$V_CTYPEDEFSDEREFIRUNERRERR_MSGDEF_TSTR DEF_C_INTCNV_STRALCSTR F18_LEFT$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSIRTTQUPUЭUURURPURURЬ RTЭbhPww1T V1.02F_170V1.025-JUL-1994 08:31VAX C V3.2-044P^U[ZYVլ sެWЧUxVRBeBeCNV_INTP޼PB`e~ERR_MSGPV4xVSgQCTVPxPP@Rdb޼RCb~ERR_MSGPVV ЬSݼALCSTRP |~ERR_MSGPмլ BPЬRbbCNV_INTPbe~ERR_MSGPЬRѢb~ERR_MSGPЬUUx RBeVЬRbWТTЬRТSTW1wNXTTABUPSRSbbXXPPP1 n?P׭Ь1Ь1߭߭V߭߭e1RTWd RTTWd íRPP1R F_170 F170_entab s  C$V_CTYPEDEFSNXTTABERR_MSGCNV_INTALCSTR  F170_ENTAB$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROLi XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMS?Э߭߭V߭߭ePѭP,Э߭߭)ם VMS.BCKO[V9.BIN]RT.OLB;1E;1 iV߭߭eѭR ֭ЭPSSѭR"Y Э߭߭V߭߭eѭRЭP֭ѳPRPSPS `ЭP֭PRRPXXP@jPhP֭TW1Y ЬRâSbTä SRRkS PЬTSã RRkФ }dPVP>^N>>N>>>>>>>>>>>>>>>>>>rww1pߡ!V1.0L2F_3L0V1.025-JUL-1994 08:42VAX C V3.2-044lR F_3L0 F3l0_WSyncq s) C$V_CTYPEDEFSWSYNC POLLEVENTERR_MSG F3L0_WSYNCq$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYP1p V1.01F_17V1.025-JUL-1994 08:31VAX C V3.2-044P^e[Ѭ V.PRxRRR~MALLOCPV<1~ERR_MSGPRެTRd"SxRP@xRP@cDEREFRRdլDEREF PЏRRSSSkffkCNV_STRP'g~ERR_MSGfkRVR VFREEPZTRTR1PxTRPB`B`CNV_INTP+PB`e~ERR_MSGfkPVP VFREEPTFxTQRASTPxPP@Pc`'Ab~ERR_MSGfkPVP VFREEPTPTP1cЬ RݦALCSTRP"|~ERR_MSGfkRVR VFREEPЦ ѬhPCNV_INTP'e~ERR_MSGfkRVR VFREEPѦ'~ERR_MSGfkRVR VFREEPRxRRUBeW XЦ TЬ RТSTX1{NXTTABUPSRSbbYYPPP1 *?P׭1 1߭߭W߭߭e1RTXd RTTXd íRPP1Э߭߭W߭߭ePѭP,Э߭߭W߭߭eѭR ֭ЭPSSѭR"Z Э߭߭W߭߭eѭRЭPR F_17 F17_entabp s͹  C$V_CTYPEDEFSDEREFNXTTABERR_MSGCNV_STRCNV_INTALCSTRMALLOCFREE  F17_ENTABp$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSҭPRPSPS `ЭP֭PRRPYYP@PhP֭TX1Z9Ь RâSbTä SRRUS fkRVR VFREEPЬ TSã RRUФ }dfkRVR VFREEPP>^N>>N>>>>>>>>>>>>>>>>>>rww1/+ V1.02F_160V1.025-JUL-1994 08:32VAX C V3.2-044P4^eX1YZ[}i}i}ih̞hx ~ STRRESERVEUլ|ެWVxURBfBfCNV_INTP޼PB`e~ERR_MSGЭhPU8xUSgQCTUPxPP@Rdb޼RCb~ERR_MSGЭhPUUЬSݼ ALCSTRP|~ERR_MSGЭhPм լJPЬRbbCNV_INTPbe~ERR_MSGЭhPЬRѢb~ERR_MSGЭhPЬTTxRBdUSЬ RbТЬRТѭ1PЭR֭ЭP֭`bbTTPPP1PN?PSЬ1PSR F_160 F160_detab s  C$V_CTYPEDEFSNXTTABERR_MSGCNV_INT STRRESERVEALCSTR  F160_DETAB$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGJ VMS.BCKO[V9.BIN]RT.OLB;1E;1 KYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROLi XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSڬ~P[׭S߭߭U߭߭NXTTABSRR$RALCSTRP|~ERR_MSGЭhPRS*PЭP֭ `SSTTP@jPhPSѭ1&[ЭhPЬTSã RRUФ } dЭhPP9))ww194 V1.01F_16V1.025-JUL-1994 08:32VAX C V3.2-044P^eX1Z[ѬS,RxRRR~MALLOCPS<1~ERR_MSGP}j}j}jRެURe&TRPxPP@xRP@dDEREFRReլ DEREF PЏ RRTTThcch CNV_STRP' g~ERR_MSGchRSR SFREEPYx ~ STRRESERVEURUR1PxUR(PB`B`CNV_INTP+(PB`e~ERR_MSGchPSP SFREEPUFxUQ(RATUPxPP@Pd`'Ab~ERR_MSGchPSP SFREEPUPUP1cЬ Rݣ ALCSTRP"|~ERR_MSGchRSR SFREEPУ ѬhP((CNV_INTP'(e~ERR_MSGchRSR SFREEPѣ,'(~ERR_MSGchRSR SFREEP(RxRR(UBeWT$ У$ Ь RТѣ 1PУR֣У P֣ `bbVVPPP1P"?PT(1PT(1YףT߭W߭߭NXTTABTUU5UALCSTRP"|~ERR_MSGchPSP SFREEPU T)УP֣ `TTVVP@kR F_16 F16_detab s  C$V_CTYPEDEFSDEREFNXTTABERR_MSGCNV_STRCNV_INT STRRESERVEALCSTRMALLOCFREE  F16_DETAB$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSPhPTѣ 1YchRSR SFREEPЬ UTä RRUХ } echRSR SFREEPP9))ww1`= V1.02F_150V1.025-JUL-1994 08:32VAX C V3.2-044R F_150 F150_center sS  C$V_CTYPEDEFSIRUNERRERR_MSGALCSTR  F150_CENTER$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZ>ԯ VMS.BCKO[V9.BIN]RT.OLB;1E;1 PsESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFTV XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSP^լ ݬ ~IRUNERRPЬRb}0bЬ UЬTUdЬSUdRRxRRRUcPݬ ALCSTRPW |~ERR_MSGPЬSc[УV U WRWUXRX.[VTTPPVWUSRSPprPV WUQRQRXWQWUZQZ4[VYPVPPY!WURQR[VTPPT WURQRQZЬVfXЬ YYX"WPXTTUTYSSXSʏSTSR!WUTXSSTYSSXSʏSSTPЦRXYYXXSXSPXSXSЬRWЬ bPww1SM V1.01F_15V1.025-JUL-1994 08:33VAX C V3.2-044P^ѬЬRDEREF PЏѬЬRDEREF ЏլDEREF PЏeeCNV_STRPg~ERR_MSGeP߭ DEF_C_INTPe~ERR_MSGeP0DEF_TSTRPg~ERR_MSGePխݭ~IRUNERReP }0ѭ*Ь SíRRxRRRЭcePݭALCSTRPW|~ERR_MSGeP[VR F_15 F15_center s  C$V_CTYPEDEFSDEREFIRUNERRERR_MSGDEF_TSTR DEF_C_INTCNV_STRALCSTR  F15_CENTER$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSUWRWUXRX1[VTPTPPVWUSRSPprPV WUQRQRXWQWUZQZ4[VYPVPPY!WURQR[VTPPT WURQRQZҀXЭVVX$WPXTTUTVSSXSʏSTSR#WUTXSSTVSSXSʏSSTPRXVVXXSXS XSXSЬ RWЭbePww1(%h V1.01RSYSV1.025-JUL-1994 08:33VAX C V3.2-044PICON_HOST PSYS$NODEPVAX/VMSP^ЬSм R ~ISATTYP WFLUSHALLRPݬ FGETCPTT 2T RRPPRRݬ TUNGETCPTRP ^ScGETENVPRߣ GETENVPRޣRRSTRCPY^eTSԭЬd잭dмP ~ISATTYP WFLUSHALLլ HPݬЬ PPPRP<RRݬݭFREADPЭdSPPSPP SP^мTPЬPРRST!PݬCb~FPUTCPSSTSTPP^ݬ R RSYSgetstrgppiconhost;longread @putstrK idelay sf C$V_CTYPEDEFSSTRCPYGETENVFPUTCUNGETCFREADFGETC WFLUSHALLISA(Fko VMS.BCKO[V9.BIN]RT.OLB;1E;1 TTY WFLUSHALLISATTY DELAY_VMS GETSTRG p ICONHOST LONGREAD @PUTSTR IDELAY$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMS$CHAR_STRING_CONSTANTS DELAY_VMSPww1 Av V1.03RLOCALV1.025-JUL-1994 08:34VAX C V3.2-044P_NL:P_NL: Pr PaPwPrPwP-P%%can't open %s&PSYS$COMMAND2PSYS$COMMAND>PkillCPkillP^GETPIDPŏ߭ SYS$SCHDWK SYS$HIBER|^VլլP߭ LIB$GET_EFѭPRRA RZ RQRQQr#RRA RZ RQRQQwP|~|~߭ SYS$CREMBXP ߭ LIB$FREE_EFPԭԭޭЭޭ쭓 @|~|~ݭ SYS$GETDVIWP ߭ LIB$FREE_EFPЭP@ݬ߭FOPENPU߭ LIB$FREE_EFݭ SYS$DASSGNPeP PP@RQQAQZ QSPQSSUPPPb)Э ЭfSTRLENPަݬSTRLENPЬ|~|~br TPTTr SPSS LIB$SPAWNP߭ LIB$FREE_EFݭ SYS$DASSGNPUP^мR  RRBPPPSPݣFFLUSHݬFCLOSEPTw4|~|~|~|~(ݣ SYS$QIOWzP{ PQPPRxR~ݣ SYS$WFLORݣ  SYS$DASSGN LIB$FREE_EFTP^V C$V_CTYPEDEFSAST_PROC READ_A_CHARSTRCMPEXITSTRLENPERRORFFLUSHFPRINTFFCLOSEFREOPENFOPENKILL SYS$HIBER SYS$SCHDWKGETPID LIB$SPAWN SYS$DASSGN SYS$GETDVIW LIB$FREE_EF SYS$CREMBX LIB$GET_EF LIB$FREE_EF SYS$DASSGN SYS$WFLORSYS$QIOWFILEARG SYS$ASSIGNGETPIDSYS$QIOWSYS$QIO DELAY_VMS 8|POPEN PCLOSE REDIRECTYZTެST}WXFILEARGUDhP`PP<PQ?Pߦ jTgce8PgRDbP>ߦ iTRceߦiTRcePTTլ ЬRbߦjݬRFILEARGѬ ЬRbߦiݬRFILEARG<^UߥЬSЬ RBc~STRCMPPݬݬBc~FREOPENPլ+Ь R޼SBc~ߥFPRINTFݏEXITެ SެRcTcQcP@dAdcc׼ ^\߬&STRLENPެ2|~? SYS$ASSIGN^STRR RLOCAL delay_vms8 8popen  pcloseredirectfilearg!Dassign_channel_to_terminal4x read_a_char dgetch tgetcheast_proc kbhitF sѹ , <FILEARG DASSIGN_CHANNEL_TO_TERMINAL x READ_A_CHAR dGETCH tGETCHE AST_PROC KBHIT$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZE(c VMS.BCKO[V9.BIN]RT.OLB;1E;1 STKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERX8AMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMS_PIPESH$CHAR_STRING_CONSTANTSCHANNELREQUEST_QUEUEDCHAR_AVAILABLE CHAR_TYPED*լ_|~ c|~02d~ SYS$QIOWAլ|~|~c|~:2d~ SYS$QIOWP|~|~c|~z~2d~ SYS$QIOWc(GETPIDPKILLP ߢ>PERRORPc(GETPIDPKILLP ߢCPERRORPP^ READ_A_CHAR^ READ_A_CHAR^^1|~|~AST_PROCz~2~ SYS$QIOPPY%ww1[N V1.04RWINSYSV1.025-JUL-1994 08:34VAX C V3.2-044P  P  P_ P_P_P_P_P_Pdisplay= Pdisplay=+Preverse3Phidden:Proot?PnormalFPiconicMPmaximalUPhidden\P???`PiconicgPnormalnPmaximalvPhidden}PiconPwindowProotP%d,%dPsolidPmaskedPstippledPpatternedPtexturedPopaquestippledPopaquepatternedPsolidPonoffPdashedPdoubledashPstripedP%d,%d,%d P%d,%d,%dPDISPLAYP%s P%s#P%d,%d,%d,P%s/P%s2P%s5Pstriped=PdashedDPsolidJP%sMP%sPPreverseXP%s[Proot`PwindowgPiconlP???PpP%d,%d,%dyPunknownP%ldP%d,%d,%dP%d,%d,%dP?+J @E>xFPwhitePblackP%d,%d,%dP%d,%d,%dPwwwwUUUUDDDDPPPP@ ,P@PD((D6`c PH0H0PPblackPPcheckersP PdarkgrayPPdiagonal PPgrains(P Pgray0PPgrid8P Phorizontal@P PlightgrayHPPscales C$V_CTYPEDEFSXCOLORLCOLOR LOADIMAGEREMAPSETPATTERNBITS SETPATTERNSTRIMAGE ANIMHELPER RESIZEPIXMAPSETBGRGBSETBGSETFGRGBSETFGRESETFGMOVERESIZEWINDOW MOVEWINDOW UNSETCLIPSETCLIPWMAPMAKEICON POLLEVENT HANDLE_MISCXDIS LOADIMAGEWMAP MOVEWINDOW RESIZEPIXMAP GO_VIRTUAL FREE_XCOLORS FREE_XCOLOR COPY_COLORS ALC_COLOR ALC_CENTRYALC_RGBALC_FONT FREE_DISPLAY ALC_DISPLAYTRANSLATE_KEY_EVENTREMAPLCOLORXCOLORRESETFGMOVERESIZEWINDOWSTRIMAGESETCLIP FREE_WINDOW FREE_BINDINGSETPATTERNBITS SETPATTERNWATTRIBSI_S2ISI_I2SQEVENT PARSEPATTERN PARSEGEOMETRY PARSECOLOR MYSTRNCPYGENCURVEEVQUESUB ALC_WINSTATE ALC_WBINDING ALC_CONTEXTQSEARCHC_GETFATALERR CNV_C_STRALLOCSALLOCPOWSTRCPYSTRCMPMALLOCGETENVATOLSTRLENSTRNCMP XSETWMHINTSXSETSTANDARDPROPERTIES XGETSIZEHINTS XGETWMNAME XGETWMHINTSXWRITEBITMAPFILE XWARPPOINTER XTEXTWIDTHXSYNC XSTORENAME XSTORECOLORXSETWINDOWCOLORMAP XSETSTIPPLEXSETLINEATTRIBUTES XSETICONNAME XSETFUNCTIONXSETFOREGROUNDXSETFONT XSETFILLSTYLEXSETCLIPRECTANGLES XSETCLIPMASKXSETBACKGROUND XSELECTINPUT XRESIZEWINDOWXREADBITMAPFILE XRAISEWINDOW XQUERYPOINTER XQUERYCOLOR XPUTIMAGEXPENDING XPARSECOLOR XNEXTEVENT XMOVEWINDOWXMOVERESIZEWINDOW XMAPWINDOW XLOWERWINDOWXGETWINDOWATTRIBUTES XFREEPIXMAPXFREEGCXFREEXFLUSHXFILLRECTANGLE XDRAWSTRING XDRAWPOINTXDRAWIMAGESTRINGXDESTROYWINDOW XDEFINECURSOR XCOPYPLANE XCOPYAREAPPPtrellisXP  Pvertical`P PverydarkhPPverylightpP'PwavesxP'-PwhiteP-4P.xbm9P.XBM>P.xpmCP.XPMHP.xpm.ZOP.xbmTP.xpmYP.xpm.Z`PrbPXPMP^xVЬRТ QТSÀPСDXРWÄUÈ[xfffУDZУ@Yݬ ݬС Pݠ XTEXTWIDTHPTUݬ ݬYZXUWXDRAWIMAGESTRINGݬ ݬYZX[WXDRAWIMAGESTRINGTD^WZЬPР VРUŀPЦD[РYń ňЦ PРXХ\ХXnQQ1>QPPP ?PP11Ц$D1ЬPРP `1Ѧ0 [Y XSETFUNCTIONŨPݠ8[YXSETFOREGROUNDXåD ~Ц PРP2>PP@~ݥDݮ Y XCLEARAREAXåD~Ц PРP2>PP@~ݥD[ݮYXFILLRECTANGLEЦHSЬPР P< ЦLPР8RPRͣ8R~[YXSETFOREGROUNDѦ0ݦ0[Y XSETFUNCTIONX@Ц$DЦ PРP2@Q@QnQT1'T@Ѧ0 [Y XSETFUNCTION|~TSSݮTRR[ݮ$ݮ(Y XCOPYAREAŨPݠ8[YXSETFOREGROUNDRݮS[ݮYXFILLRECTANGLEЦHSЬPР P< ЦLPР8RRͣ8R~[YXSETFOREGROUNDծ |~ݮݮ|~[ݮ(ݮ(Y XCOPYAREAѦ01lݦ0[Y XSETFUNCTION1[ЬSУ PР PРQ<ХDR 2PP~fPݠ Uݠ XDRAWSTRING¼1УPȏ`1PS*1P¼€Pݠ XMAPWINDOW¼1vPЭЭ1e1aЭPP*P1+P?PS^*1PgS+1ggS+1g1S*11S%P1PУP1P¼1S)P~PУP`P„bfУP#€PРTTiˆ ˆTjˆŒ€PРTTiŒTjŒSkSkPPЬPРPUUPլ14fPݠXPENDINGP1 P^\%P\ HANDLE_MISCP PP|A\ЏPVg VMS.BCKO[V9.BIN]RT.OLB;1E;1 ^WԮ ЬRТ RТ0ЬPР VРRRTĀ[ЦDYЫXĄZĈ|Pՠ1|C_GETP |~FATALERRЬQa%hPh@hhhhlծ 1ЬPРP`1Zߧ ݤ@ݤDYZX XDRAWSTRINGߧ ݤ@ݤDYݮ$X XDRAWSTRINGЮ0ݦ0YX XSETFUNCTIONЬUХ RRQաD,СHS< СLPР8RRͣ8R~ݡDС@PݠXSETFOREGROUNDPЮ P֮ PwЬPРP`j0YX XSETFUNCTIONЦHRЦLP͢88~YXXSETFOREGROUNDZߧݤ@ݤDYZX XDRAWSTRINGߧݤ@ݤDYݮ$X XDRAWSTRINGX XCLEARWINDOW XCLEARAREA XCHANGEGCXBELLXALLOCCOLORCELLSXICONIFYWINDOWXCREATESIMPLEWINDOWXCREATEBITMAPFROMDATA XCREATEPIXMAP XCREATEGCXCREATEFONTCURSOR XGETDEFAULT XGETSUBIMAGE XGETIMAGE XCREATEIMAGESPRINTFFREADFCLOSEFOPENFREEFREEFREEQSORTFREEFREEIDELAY XDIS WPUTC P HANDLE_MISC x POLLEVENT WGETQXSYNCЬRR[ HANDLE_MISCP1LP1@ТP`1Zߧݤ@ݤDYZX XDRAWSTRINGߧݤ@ݤDYݮ$X XDRAWSTRINGЮ0ݦ0YX XSETFUNCTIONЬTФ RRQաD,СHS< СLPР8RRͣ8R~ݡDС@PݠXSETFOREGROUNDP^UЬRТTĀRТVĄWVXSYNCeR)PR HANDLE_MISCPPSP|AR<SSPĄ}dxЬRТR`WVXDESTROYWINDOWVXFLUSHdĄq HANDLE_MISCSeR&PRcPPQP|AR<QQPĄ$Pݬ FREE_XCOLORSݬ FREE_XCOLORST FREE_WINDOWP^ЬPРPPXFLUSH^\PݬXFLUSH|A\P ^ЬSR)ݢXSYNC|ARУR€RݢXSYNCPd^WeYZЏt}GlhiddipRЬbXެVXfVެ TФUxXQAeP`;dRAbSc/ARbߧSTRNCMPPc~b~ MYSTRNCPYZXXf ALC_WBINDINGPUdiP ALC_WINSTATEPU FREE_BINDINGdiPХRZ ALC_DISPLAYP€U FREE_BINDINGdiPХVЏxp|U ALC_CONTEXTP  ХR€ FREE_DISPLAYU FREE_BINDINGdiPХ RТ R XХ RТ RТR2@ԦDХ R(@Х R$DTլ1ެ SXxTQAhP` ߧ cPAP`STRNCMPP^|txTPcQ@aRb@RbUWATTRIBP P'PB?PTdiPU FREE_BINDINGdiPTT1pզݬSALLOCPХ RТLƨ֨UWMAPPdiPdiUP^WЬSУ VУR€TФUբ0BŏP0PŌQ@$P`ŏPńP@P`U XCREATEPIXMAPP”1Pբ;ߧ)ݢSTRCMPP*߭ݢS LOADIMAGEP”FФ8PРP2>Q2@PPQQբާ*ݢSTRLENPݢФ8Pݠ XTEXTWIDTHP  ЦLPݠ8ЦHPݠ8ݬ ݬŏPńQŌPAP`U XCREATESIMPLEWINDOWPݏU XSELECTINPUT^Y  wopenl(makeIconX wmap do_config<< setheight8tsetwidth8 setgeometryb warpPointer0@ seticonlabelЬУXP ^SЬPР QРRС PѬPЬ У \P^T||ЬPРR߭߭߭߭ݬ PARSEGEOMETRYPSPSЭ Ф \ЭФXS ЭTЭPPP^ЬPРPݬ ݬ|~|~P XWARPPOINTER<^ЬPРSÀRТUÄTգ ݣFREEݬSALLOCPUkTgЬPРPݠTU XSETICONNAMEüJÔDÐ>ÐU XCLEARWINDOWݣSTRLENPݣТ8PРP2>PP~ݢ ÐU XDRAWSTRINGP^ЬPРRբ ݢFREEݬSALLOCP€Pՠ„ݢ„ݠ XSTORENAMEPP^լЬPРP` ЬPРP`P<^ݬSI_S2IPRЬPРPSУUTRdxRRR RNPB@@xR~UXCREATEFONTCURSORPB@@TB@@TU XDEFINECURSORPP|^VЬSУ RУPPТDTРUUXSYNCߦ+ݬSTRCMPP3У QߣFݬSPRINTF.ߣMݬSPRINTFߣUݬSPRINTFߣ\ݬSPRINTFPP^YЬ[ЫTĀZЪ Ąn`Ь ݮ STRCMP  PĈ ļ1ЫR¼1ĀRݢ0ĄݢXICONIFYWINDOWݮXSYNCļ1PZ HANDLE_MISCPPPPPļ1Pgݮ  P1Ĉ ļ1rPĄļ[WMAP1YЫR¼enݮ XMAPWINDOWݮXSYNCļ1+ HANDLE_MISCSiR&PRcPPQP|AR<Qļ1Pļ1ĤĠĜĘ[MOVERESIZEWINDOWļ1nݮ  P1ļ1UŏP0SЮ RŒRC RѤ\bU}b VMS.BCKO[V9.BIN]RT.OLB;1E;1 "UVФTĘФPĜФ\ĠФXĤŏP0SЮ RŒRC RbϤ\ŏP0SЮ RŒRCRbXĈ1GĄ ݬWMAPݮXSYNCiR(R HANDLE_MISCPPSP|AR<SV1ݤXݤ\|~MOVERESIZEWINDOW2T HANDLE_MISCSiR&PRcPPQP|AR<QѤTΤPSΤTRЬVRXSWЦSÀRТUÄRXTWPRݣPݣTRU XMOVEWINDOWUXSYNCЬRТR¼ nݮ XMAPWINDOWݮXSYNCZ HANDLE_MISCPPPPPļ1 Pvݮ  P1Ĉ ļ1PĄ1ļ $ WCLOSE 8 WFLUSH X WFLUSHALL | WSYNC WOPEN (MAKEICON WMAP  DO_CONFIG < SETHEIGHT t SETWIDTH  SETGEOMETRY  WARPPOINTER @< SETICONLABEL SETWINDOWLABEL @ SETCURSOR h< SETPOINTER | SETDRAWOP REBIND SETCLIP 0 UNSETCLIP X GETCANVAS  SET CANVAS tSETICONICSTATEϘTĜPĠ\ĤXļЫR¼t`nݮXDESTROYWINDOWݮ XFLUSHĄT HANDLE_MISCSiR&PRcPPQP|AR<QQPĄPPĀRXSYNCP^XЬSУR€PРW„Vߨ}ЬUUSTRCMPTdP7ˆ ¼uУPi€Pݠ0„ݠXICONIFYWINDOWQȂUdP„=УP2VW XMAPWINDOW%ȉUdP„ ¼ PPP€PXSYNCP^R PРTЬSSATOLPcPPP@bScPPP@b񋏀cPPP@bScPPP@b,PSATOLPĄ7ĐݬMAKEICONݬREMAPPPP^RЬPPŽSPRINTFP^ЬPРQPРRPЬTЬ PPݡPݡTPR XMOVEWINDOWRXSYNCP^ЬQСRЬ\ЬXݬݬQ RESIZEPIXMAPPP„0ݬݬݬ ݬ„€PݠXMOVERESIZEWINDOW€RݢXSYNCP^UЬPР RРQPТDWР XVŔЬTTSTRCMPScPԢ,eŚTsetwindowlabelQ@ setcursor(h setpointerz setdrawop rebind4setclipA0 unsetclip&X getcanvas setcanvasltseticonicstateL  seticonpos! geticonpos08! moveWindowF!moveResizeWindowh! setfillstyle" setline styleX# setlinewidthNcPšTcP ŪTcP ,7PŴTcPŽTcP TcP ,PPVݢ,WX XSETFILLSTYLEPP^UЬPР RРQPТDWРXVЬTTSTRCMPScPԢPETcP TcPP$TcP TcPPPVݢPݢTWXXSETLINEATTRIBUTESPP^ЬPР RРQPТDSРTPլPЬTPݢPݬSTXSETLINEATTRIBUTESPP ^ЬPР PPQաD+СHR< СLP8SS͢8S~ݡDС@PݠXSETFOREGROUNDP<^ЬPР SݬP ALC_COLORPRPУHPݠ8ݬ FREE_XCOLORRHЬUХ RRSգD.УHP< УLRТ8TPT͠8T~ݣDУ@RݢXSETFOREGROUNDP^Rݬݬ ݬSPRINTFݬSETFGPPP|^ЬSУ VУPUЬPIˏPTxPˏQxˏRŏT~ŏQ~ŏR~SSETFGRGBRxRP@|Qa@xQάPPaPRRPxRP@@HЬTФ PPQաD,СHR< СLPР8SS͢8S~ݡDС@PݠXSETFOREGROUNDP|^ЬQС RСPPТDTРUݬQ ALC_COLORPSPТLPݠ8ݬ FREE_XCOLORSLTТLPݠ8TUXSETBACKGROUNDЬSУ R@ԣDPP^ЬSУ TУRRQPФDWРXUVˏ`Yȏ`U1УP`1Ѥ0 WX XSETFUNCTIONդ ЬRТ PՠDݠDР@Pݠ XSETCLIPMASKЬPݠݠݠ ݠݠݠWUVX XCOPYAREAդ;ЬSУ RբD. |~ݢDТ@PݠXSETCLIPRECTANGLESѤ0ݤ0WX XSETFUNCTIONYP^ЬPР XРSÀTШDZФWÄÈnÈPЬUU Ѭ 1УYУ RR[Ь PRPRQPQQ УPPUPVPUVVŏP0PnjR@$P`ݣ ݣŏPDŽP@RbW XCREATEPIXMAPPPPݠ8ZWXSETFOREGROUNDѨ0 ZW XSETFUNCTIONը ЬRТ PՠDݠDР@Pݠ XSETCLIPMASKЬRRY7ݣ YR~YZݮWXFILLRECTANGLEծݣ YR~YZݮWXFILLRECTANGLEЬ RR[5[R~Y[ZݮWXFILLRECTANGLEծ[R~Y[ZݮWXFILLRECTANGLEШHTЬPР P< ШLPР8RPRͤ8R~ZWXSETFOREGROUND|~[Y|~Zݮ ݮ W XCOPYAREAѨ0ݨ0ZW XSETFUNCTIONը;ЬTФ RբD. ྲྀrKVXQ{8qsl]M>o7?V/ ,IL@ʁ*إ^ѻ[F0@CD^(<ω\J0A<BrSDHp{WV^BCI{-SX 39BSR]E N( IN8NfiDz+ҡ s~V,)mmEWO@ R\@D_LzMEUTK J KC^B=4hQ9` Kw* FTEiSHS˷TGO\P])RYLPIXPmk6f]BH@^C6IU rydHHNRu\< L ]U"}RYӟhVP ^LMJs.PPIaMeRRZ.\G:7%!]?ķur0x7nV -JT3*[ƿIMOx^: H5^m (_<3_ `FsRmGa|$04IR@NyJ0GVl^x5ZJ `UhV&E쵻 f>!MQ@ff㛡6t1xKxެ^ C5js@ҪpK̠4yrQUj [`YT"QAY]J.dmuĽB\FN BI^+Sc{s~ j<ܒH~Lwk8#2!UM.HC, #< f'#q_G~fvS Sʴ VDr"ow S\4Q~C-N[[\Q:16jםK |[ z ,)~2"!D[)WHy:#iu"w j?nt&>¢c -mnp->Q1;–鮕!h*;,DQ50h=J}&t%co}[݀s4IEⰴKC>< 'eC#k76N>xʯn ?9 dl@Rw X[I; 0aYrY ȊOP֣>RZo?bj,LK60eXY~q׭ŠxeQy=GQ5hgDdjݽw,A+A|J ?@PGVNZ26=ѱ)"iʵ1tlL9{˟R1}~Q$ v!RZE"@p Urs32>Җ(:DR}Ir7ͣG-B5&t߿8i/:Tz8?ؗ_a\MB׺*A[4=U$tAo`JϞZF4H 9RRq2 ̾h1J~Y 1ɬWbVJF"=`[yS#߳tKo!nci"&70ZG ڤ&3"~Dg,K1OEch}xʬrv4ZߩQrIc*W: z̉r |75I"! }-]66KDɰqMwnY {5L湀]GU.xP$sopl%J{NNCb"m\ncM9LJ]q1=MKOJ<뭍䞻 Եt #Ȥ#zv@U R^HyP1$Q:4A@MN-&&U<6Kf;<^18$=Oٹl G32h-^29Qs9@A pBUP8U'khEHoQ˶XU[LDŽ'(K!,mPy~!G} /ˆU|@Dzj;&yU$\F/P~(_siu0(^:'.}Xn!AxB:sǼXq\ז 8}z/H4%&"f7}uW]mjR{%mYR. 19:+uq}!Ik ,{!p Z۪@\R\TE/RwGxH3G'xHŕ8?2"ʧ^;cW{{I|8}ua YCG\(߇_${d?:A!c5)+;du[asȱ[CxS8,|oѭ"T^pz=Z i/L Z2,Ƈ(W"J%ك'F(T" 3gN>#Vanj> Uro.د"'EٚWG5Ifv# ({@0xSЮc:=\@O+L2v,,^eտ\Tˇx‰^ʀdzV/70gEo|Qb_Z1'6񐫰ٜX;q{d+}3>$h4V3]@E9@6##TH\^(A#3wʑD6>MASmUxyS)ذye_Һ\KYWf~S+n gn笿#7 iI Kʊ#e}^.n7ռiDQvDVSrž4y%ҞO1v i7_2 9ƌKFI|EjNW@Ul+E[o'c99Kp,wRcC8 kڂ#HwTFj<_P `Qs%k nk^q$ c< &YZʉޑRy)"4蜭!6aI3Y+4ɯv7L^ }wI^ grXbf<ՆΩ~cıS(7JÀZRjwL]}{{Wyޞm{+~O}jHGQS:nI%U $ f;f IOy~rZ4ZRSbseps \1˼,GiMq$D);R"Eր}hJ=&Z=fkMj\S[&Dd7?G/$,bbS0zŤ5^wC(D3x 1y/W֢K#L+e+kiAUIz?7a^s@jC^ػ\!h[-tʠQ38R X,+q+.TSbA6al,'EH7X}ur8oF浥>s,)3?r*[^6.#0hXfC F>݈,hHC#nolbCe ڽyMŸn# Z}C{-ܣ?#pqX=+D:WDㆱ598<&<`eڗ d`VRMnc̱!Gz4}e^9uwD0DgxnB3P2YYPP~CPYPYY~HPPP^TYЬPР WРPPЧDZРXЬRRSTRLENUeRPP~OSTRCMPScPV1ReRPP~TcPReRPP~YcPVeP`RFOPENPRPR߭FREADP RFCLOSEPRFCLOSEVSRbbSTRNCMPPVRSVm߭߭߭ݬ ݬݬŏPȄQȌPARbXXREADBITMAPFILEPPԼŏPȄPȌS@$Rbݼ ݼ@RbX XCREATEPIXMAPPYPYPZ9ЧHRТ84ЧLRТ8Ч RТRТӟ< @~YX XCREATEGCPDPZV3|~ݼ ݼ|~ZYݭX XCOPYPLANEXXSYNCݭX XFREEPIXMAPYPP^լPЬRТR€Rݬݢ$ݢ XPARSECOLORPPXЬV( TЦ Rp4VpV~<RnRRgHR~POWUedHPjPpV~<RnRRgHR~edHPjPpV~<RnRRgHR~edHPjP( h( ̭Э ЭЭP^ЬRТ Rp4VpV~ެ T<RnRRgHR~POWUedHPjPpV~<RnRRgHR~edHPjPpV~B VMS.BCKO[V9.BIN]RT.OLB;1E;1 45<RnRRgHR~edHPjP( ^ЬRТ Rg4VpV~ެ TndRgHR~POWUedHPiPpV~nRgHR~edHPiPpV~nRgHR~edHPiP( ^ЬPРPPݠ XRAISEWINDOWPP^ЬPРPPݠ XLOWERWINDOWPP^N[7Z6YT|W{P{R WТRRТXz,P{WPQPP,{VSդ,PSЦVS,\*P\ HANDLE_MISCPPQP|A\<QQ6Qi}LkjPPVPR,SRW9{UPPX|\լS,Р\\QUQQPRSRWIDELAY1Q^ЬPРPPРRݬRXBELLRXFLUSHPRP3302PHge\ nativecolor ]lcolor X^xcolor^ raiseWindow*_ lowerWindow*H_getactivewindow' p`walert/ s7 ɀٿ89: ;  1 < -Y= _CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASE?STATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SU@BJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICBSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSH SIZE_HINTSf$CHAR_STRING_CONSTANTSSPRITETICSLASTXLASTYc ANIMWIDTH ANIMHEIGHTPATBITS SIPATTERNSYMSCONSOLEBINDING|+P#C3P'g7GW P11 P88HXl8888888888Pֺ6P+/77'wwn? VMS.BCKO[V9.BIN]RT.OLB;1E;1 *fCD1P V1.02F_1J0V1.025-JUL-1994 08:35VAX C V3.2-044\R F_1J0 F1j0_upto s C$V_CTYPEDEFS | F1J0_UPTO$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPESTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCSF(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRGMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSHNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBS4DRAWOPSWDSPLYS CURSORSYMSP|^Ѭ rЬVЬUP@RˏRSS TХPQʏRxRPxPPPQSTaPP'ЬPЬЏ`ЬPP`P֬Ѭ PwwJ1 V1.01F_1JV1.025-JUL-1994 08:36VAX C V3.2-044P|^eU=VѬЬRDEREF PЏѬЬRDEREF PЏѬЬRDEREF PЏլDEREFЏeeѭ}@䭴ѭ=Ц6CNV_STRPg~ERR_MSGЭePѭѭJ߭ CNV_C_INTP#ݭݭCVPOSPѭЭePe~ERR_MSKGЭePѭď c߭ CNV_C_INTP;ݭݭCVPOSPѭЭePѭ'ЭRЭRPĚe~R F_1JF1j_uptov s C$V_CTYPEDEFSDEREFCVPOSERR_MSG CNV_TCSETCNV_STR CNV_C_INT |F1J_UPTOv$CODE$DATASTDINLSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMEMCURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PRONGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSPWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSERR_MSGЭeP CNV_TCSETPh~ERR_MSGЭePѭsP@RˏRSS TЭPQʏRxRPxPPPQSTaPP/Ь PЭЏ`ЬPЭeP`PЭe֭ѭЭePwwR1Eh V1.02F_1I0V1.025-JUL-1994 08:36VAX C V3.2-044ZR F_1I0 F1i0_matchT s C$V_CTYPEDEFS F1I0_MATCHT$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPS VMS.BCKO[V9.BIN]RT.OLB;1E;1 jRSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCST(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAUPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSVNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBS4DRAWOPSWDSPLYS CURSORSYMSZP ^ì QQPЬQСSЬP RRaP׬ЬS ЏcPwwX1 V1.01F_1IV1.025-JUL-1994 08:36VAX C V3.2-044P<^eT=UѬЬRDEREF ЏѬЬRDEREF ЏѬЬRDEREF ЏլDEREF PЏdd}@CХݭCVPOSPѭ dPѭ*ЭR F_1I F1i_matchs s C$V_CTYPEDEFSDEREFCVPOSERR_MSGCNV_TSTRCNV_STR CNV_C_INT < F1I_MATCHs$CODE$DATASTDINZSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAME[CURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PRO\GKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGL]OBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTS^WSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSRЭRPe~ERR_MSGdPCNV_TSTRPg~ERR_MSGdPíPP dPSRR dP׭Ь PЏ`dPww`1` V1.02F_1H0V1.025-JUL-1994 08:36VAX C V3.2-044\R F_1H0 F1h0_many s C$V_CTYPEDEFS  F1H0_MANY$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPaSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS܍ VMS.BCKO[V9.BIN]RT.OLB;1E;1 aab(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRcMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSdNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBS4DRAWOPSWDSPLYS CURSORSYMSP^ЬYѬ RЬXШUЬWЧVTP@eQQPPRR SQPP2PPxPPxPPTPRS`PP ֬Ѭ ѬYPЬRЬЏbPwwf1 .H V1.01F_1HV1.025-JUL-1994 08:36VAX C V3.2-044P^eV=WѬЬRDEREF PЏѬЬRDEREF PЏѬЬRDEREF PЏլDEREFЏffѭ}@䭴ѭ=Ч6CNV_STRPg~ERR_MSGЭfPѭѭJ߭ CNV_C_INTP#ݭݭCVPOSPѭЭfPe~ERR_MSgGЭfPѭď c߭ CNV_C_INTP;ݭݭCVPOSPѭЭfPѭ'ЭRЭRPĚe~R F_1HF1h_manym s C$V_CTYPEDEFSDEREFCVPOSERR_MSG CNV_TCSETCNV_STR CNV_C_INT F1H_MANYm$CODE$DATASTDINhSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECiURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGjKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALkSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSlWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSERR_MSGЭfP CNV_TCSETPh~ERR_MSGЭfPЭUѭHP@RRPPSS TЭPQRPP2PPxPPxPPPQSTaPP ֭ѭѭUЭfPЬ RЭЏbЭfPwwn1 V1.02F_1G0V1.025-JUL-1994 08:37VAX C V3.2-044iR F_1G0 F1g0_findr s' C$V_CTYPEDEFS  F1G0_FINDr$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXoP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCSp(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASE 1+ VMS.BCKO[V9.BIN]RT.OLB;1E;1 pqLETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSrBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBS4DRAWOPSWDSPLYS CURSORSYMSxP^ެWзYY XѬXVgVUЦSRRYTTPTP'ЬPЬЏ`ЬPP`P֬ѬXPww1|"V1.0L1F_3EV1.025-JUL-1994 08:49VAX C V3.2-044P<^XeYЬRRU(PxRRR~MALLOCPU<1~ERR_MSGP}1ץRެTRd(SRPxPP@xRP@cDEREFRRdЬRRSSSieeiWѥХQ СVWhШQСVVWPP&g~ERR_MSGeiPUP UFREEPxWRSBcPALNUMPTT+SBcg~ERR_MSGeiPUP UFREEPTu1? V1.01F_1GV1.025-JUL-1994 08:37VAX C V3.2-044P4^eU=XѬЬRDEREFЏѬЬRDEREF PЏѬЬRDEREF PЏլԟDEREFЏe̞eѭ܏}@ѭ=Ш6ܟCNV_STRPܚg~ERR_MSGЭePѭѭJ߭ CNV_C_INTP#ݭݭCVPOSPѭЭeP䚏e~ERR_MSGvePѭ ܭc߭ CNV_C_INTP;ݭݭCVPOSPѭЭePѭ'ЭRЭRP욏e~R F_1GF1g_findZ s C$V_CTYPEDEFSDEREFCVPOSERR_MSGCNV_STR CNV_C_INT F1G_FINDZ$CODE$DATASTDINSTwDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURxRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGyKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSzGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTS{WSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROLi XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSERR_MSGЭePԟCNV_STRPԚg~ERR_MSGЭePЭWWVѭVVЭSRRWTTPTP/Ь PЭЏ`ЬPЭeP`P Эe֭ѭVЭePww}1@ V1.02F_1F0V1.025-JUL-1994 08:37VAX C V3.2-044bR F_1F0F1f0_bal s! C$V_CTYPEDEFS F1F0_BAL$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYP~STV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRVn VMS.BCKO[V9.BIN]RT.OLB;1E;1 XMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBS4DRAWOPSWDSPLYS CURSORSYMSP^WѬ1VP@TW^TPPRR SЬ PРPQTPP2PPxPPxPPPQRSaPP'ЬPЬЏ`Ь PP`PTPPSS UЬPРPQTPP2PPxPPxPRRQSUaPPWЬPРPPRPSU`PPWWP֬Ѭ1*Pww1 V1.01F_1FV1.025-JUL-1994 08:37VAX C V3.2-044PD^eW=XѬtЬR(DEREF ЏtѬlЬR DEREF ЏlѬdЬRDEREF ЏdѬ\ЬRDEREF Џ\ѬTЬRDEREF ЏTլLDEREF PЏLHgDDgd}@dlCШdݭCVPOSPѭ DgPѭ*ЭRЭRPte~ERR_MSGDgPL/L| DEF_TCSETPLh~ERR_MSGDgPT-T DEF_TCSETPTh~ERR_MSGDgP\.\ DEF_TCSETP\h~ERR_MSGDgPVѭ1PP@hUVeUPPRR SPPQUPP2PPxPPxPPPQRSaPP1Ь PЭЏ`ЬP DgP`PDgUPPSS TXPQUPP2PPxPPxPRRQSTaPPR F_1FF1f_bal s¹ C$V_CTYPEDEFSDEREFCVPOSERR_MSG DEF_TCSETCNV_STR CNV_C_INT F1F_BAL$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMS>V`PPRPST`PPVV DgP֭ѭ1$DgPww1Р V1.02F_1E0V1.025-JUL-1994 08:37VAX C V3.2-044SR F_1E0F1e0_anyq s C$V_CTYPEDEFS F1E0_ANYq$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RP VMS.BCKO[V9.BIN]RT.OLB;1E;1 YARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBS4DRAWOPSWDSPLYS CURSORSYMSwP^Ѭ PQЬPްPA`RRPPSS TЬPРPQRPP2PPxPPxPPPQSTaRRPЬRЏbPwwGЭePѭď c߭ CNV_C_INTP;ݭݭCVPOSPѭЭePѭ'ЭPЭPPĚe~R F_1EF1e_anya s C$V_CTYPEDEFSDEREFCVPOSERR_MSG CNV_TCSETCNV_STR CNV_C_INT |F1E_ANYa$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSERR_MSGЭeP CNV_TCSETPh~ERR_MSGЭePѭЭePP@RRPPSS TЭPQRPP2PPxPPxPPPQSTaPPЭePЬ PЏ`ЭePww1Ю!V1.00CNVV1.025-JUL-1994 08:38VAX C V3.2-044POOOO? Ϛ? P-2147483648PP%s0POP-0.0P.0P08P^eTЏЏdd1ˏ_PP1ˏPPPm^?PݬTMP_STRݞRPЬSˏcPP޼RS BIGTOREALpPbndPЬPРPpdPdPݬ, P&PQ?PndPЏ޼R BIGTOREALpPbdPpdPP^eTЏЏ C$V_CTYPEDEFSRTOS BI_STRPRCTMP_STRDEREFCNV_STR CNV_C_DBLRTOSEQBIGTOS REALTOBIG BIGTOREALBIGRADIXMEMBALCREALALCCSETFATALERRLEXCMPCNV_STRALCSTR ICON_GCVTSTRCMPSTRCHRLDEXPSTRLENSTRCATSPRINTFTMP_STRTMP_STRTMP_STRTMP_STRTMP_STRTMP_STRTMP_STRTMP_STR 8 CNV_C_DBL  CNV_C_INT  CNV_C_STRdd1ˏ_PP1ˏPPP1?PݬTMP_STRgPЬPРPpRqR qRdPjRdPˏPPdPЬPРdPdPݬ PPCr?PЭdPpRqRa qRdPjRdPP^ЬScݬSCNV_STRPP}cЬTdSRS *Ѣ #ALCSTRP |~FATALERRּHPdSS~ALCSTRPR |~FATALERRЬTdФPRSTSTPSQSQb2P^eYЏiiЬSc }ciPݬTMP_STRP1ЬRALCCSETP |~FATALERRެXЏPRRSRQS@hWЧVU`TTRR2RRxRRxRSUSTRRRxRRRcPQRQRiPP^eRЏbb}ˏ_PPcˏPPPL:?PݬTMP_STR2PˏPPFƕQ VMS.BCKO[V9.BIN]RT.OLB;1E;1 9bPЬPРbPbPݬ) PЭbPP^eRЏbbcˏ_PPIˏPPP2j?PݬTMP_STRP}bPbPݬrP P6PЬPЏ`bPЬPЏ`bPbP^eTЏdd1ˏ_PP1ˏPPxP1~?PݬTMP_STRϞvPЬQСPpRqR_ qR&ݬQ REALTOBIGP dPdPЬQЏajRdP}dPdPݬ(P*P1P?PЬPЏ`dPЬPʏ`dPpRqRϢ qR'ݬݬ REALTOBIGP dPdPЬQЏajRdPdP^ݬ CNV_C_DBLP*ЬRp~ALCREALP |~FATALERRЏPP^ЬTd}dPˏ_dRR1ˏPPPP1?PЬTФTޮXЬWnnRQVfxQPfSPSPPSSVQڔbnRgniPЬRТRpRݬpR~RTOSHЬSˏcRRУRâ RRxRRݬSBIGTOSݬݣϕPPЬRbݢALCSTRP |~FATALERR2P^ЬQa}a PݬTMP_STRPSЬRQaQSެ XhRЏbЬЭPЭRRSRTSAhWVU`SSQQ2QQxQQxQRURSQQQxQQQbPTQTQPP^ЬQa}a Pݬ QݬTMP_STRPPP^ЬQˏ/aPP}aˏ_aPP1ˏPP } P1z?PЬP}PЬPРRb }߭ݢ ݢMEMBѭ `P}PТP}8PЬPРR DEREFg~FATALERRPPP ~FATALERRЬQТaPPЬPˏ`RxRRR}b^ЬTd}d 1ˏ_dRR1ˏPP P1n?PЬTФTnnYЬ WЬXXRQ޾VfxQPfSPSPPSSVQڔbXRgXePЬRТRpRݬݬ pR~RTOSEPЬSˏcRRУRâ RRxRRݬ SBIGTOSݬݬ ݣbPP ^ЬRbSTRLENPbݬLEXCMP^uXnVmUhY]WռPެTdRRRRBRISf@P,SRePBdEQPePB PѬ` `ePB`PSSfPSh%xSPgR@bݬEQPCiPSShP|^uV]T[USf;xSRdPB`ݬEQPePB`Qa BRbPPSSfݬ BI_STRPRC<^U RЬTbլRzTP{ PQP0PSSb TMPTSTS$STRLENPRߥRSPRINTFSTRzTP{ PQP0PSSb T-rЬP SRS`R$^XЬRТTԮ + +||ZYԮԮbPTSRˏRUEh PTSRPPˏRP@hR+R-R TSVP VVRTˏRUEhSYq\$e"V0RUnUPaVP [U[s ֮PZTSU UURˏRP@hRr RR/ݬSTj ~~BIGRADIXPUU |~FATALERRUPR.r֮ TSVP VVRˏRUEhPYq\!e"V0RUnUPaVP [U[Zs֮TSU UURˏRP@hY΀PRe RE1֮ TSVP VVRR+R-RTSVP VVRˏRUEhPˏRUEh+ Q0RPPQTSU UURˏRP@hՑ+ЮVήVVZˏRUEhTSPRˏRP@hTSR CNV8 cnv_c_dblK cnv_c_intP cnv_c_strcnv_csetl cnv_ec_int<cnv_eint cnv_intcnv_realCcnv_str0@  cnv_tcset cnv_tstr/ $ deref(L tmp_strP  dp_pnmcmp(x  bi_strprc < strprcl  itos Hston RTDhPծ 3Z/q!q9޼U +[T[TTePl3ծ .ݬSݮ ~BIGRADIXPRR |~FATALERRRPծ PZRR'PZRR|PZZPPZPPSpVpTSdTVxSSSdTTZdVPfVZp~LDEXPpP -rp2P^WЬQЬ RЬSQQ$PRSU UUPXˏPTDgTRˏPTDg0PV  PVVVUUQPQXUXRSU UUP˲PTDgTˏPTDgRSPˏPTDgRSˏPRBgP޼TѬ+XSPXSSd2P^ЬPЬRRPPQRQ PQRQPլRPPRRPP^T֬ЬRRp~ ICON_GCVTӑb  ֬ ЬSc.S0SPߤSSTRCMPPS9.SSTRCHRRbP&e~SbPE~SbP ߤSSTRCATЬRRSTRLENP@b. ߤRSTRCATЬ RݬSTRLENPbЬ^Ь SRЬWVfxRPfQPQPPQQVRڔcЬRì SbЬ  Pge P/s######HPl$P.HpP0P..<radix cvpos=  rtos cstosK s8        n CNV_CSET l CNV_EC_INT <CNV_EINT CNV_INT CNV_REAL CNV_STR @  CNV_TCSET CNV_TSTR $ DEREF L TMP_STR P  DP_PNMCMP x  BI_STRPRC < |STRPRC RADIX CVPOS RTOS'$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVgŅk"WR~׮& 3Uyj8*]'m<v"QeW?䇄/Ez &:ɲ6ş_n=&b_]Ghjf>w!DD %]Sss\L~قxbbGS8Sf~ŵ U~bt|٪U#ŕY9f^>Chr,.Z\O^c 갟^Ҙnz`}˟jzG-DR|-/ :6#ù5A٢\76@`,y"LX^[ܚ.^@HVZ˿ Xx63NM^T^P[BNi=ŢޤC^Ixl@Wn@NT΄H҅Л2n$S A2|o~Ϗx Ll6*iόB "]̶kBAE:uxq/z˼cNaRGT=³:2))ͽtÊ(L.;Z,1.`(mEB&:_ͺɾí{U#2!9}!$I"ľJ3'uT ZT2H!>_7!`d$wz-lJi:zV;r#pqY x 0ŬB*h!t[$A,RXWTSa~N[oֿJ)Ci2 QY4򓇵Lb "Ck'JAZzae^*<xGëlOgy.P\a'rm>ި%?VLoHҘ䢯;IJh҂Sɑ?Xm}0E^*M/Q vhB._tC-zW7=J]LQx8i=;O` mU}("ԠQGp=.?U¤9ݣGcxVz/Rt{5~zO:/ۇF_cz-tu.FHtuߩ1>c<@Ch*O<<{J~ma/䓿hl; *\5_FKwϕz RZE΍}H{›FC`~4^G[oM92K-+ѣ1 {,K\hI%R.VXP[acryh(T[i[2  F~oni Z_wۦ\, 'QOUv C'w=w]`wNhUIC%! &{(L ;P $K=W $u["LWtܴxC'ua!Ggq [Я?+Ɓ/0h,fcf`hW0N ʧL"/Fʫ̣DA{5cQ1 rZJ'7T"^cO 1|<·C킔*;p(']x9jDr2wnVv,|tkґcTFGCZO_^;?F3Y1@;)xe-aa͹j4Uo!O!4,{QƯ>,Eԯ["ة?sz?) L5nf:Qu\ep01D^SHRHĸO=&f sjoݑR[|e3m+8r7KL/<-耳@"brTr򯬗|vxXP{vEԪ=RtA){2>VjA|&qC]y1 ?.Ra@|2DW,5 nĀ;{ @W,aPOV@<2Ib>([zl;~ Ōp! 48z?|0o^vDND/qƗp:g?>,fbȫXcGoPG/cV@ {ƵQ5.K){Gy~$8 C3 psN>d}F9;i%i~hH:7\}M$f YA(9bЫ ;l簦㠹ҍ%ޯX+M5Uaa &åC0J0/;0~ۊiT&Sr߼lF69M,8%i\0XDW 7yElzUXo1.208iyhMJlC!ޖ)cKɿM7l/Q5p˲tدsVTJi--U"X17;z7)M{~fނX$N1 (zk nr?s'[,ZLlȼALiłFdfs?}8!4C'*N1]̮ џ!s[cN,>ӎW~J .CVKTГZoL_+IB٩sp%/f$_bVeNCOO1Ȅ_.T4-PV|.7NOB^dj=k˖ -|vS ̑#ܫlqo ߆l(+~tQItq`tBe_ʝ)n23駯!16؀;|m4By\WbrQKO#ûY^*ͬ" uG=XTHS!\O,LW.A %F8*8 ̻ gu{Pa]}>K,lRHfkb*ءF`xIbL^ɇ[4gv(kO ,Nݶpn&!hm ̀> b? a>VˆVR&EQf8B OKNFK1Yi ep"6]]OG;*GɪF`W& ڢ~WzgA Q 7!jbVN:DMW@;NNs] ,-rΡUV.rnjҤz/Xokwq hĕEyCjM%.Uk$2彌\Oޜ~vQ!ELK)&6ʨ\NoBԋic_ ao6l7=_[rmC7Bs6kZ7quԋQ,HM&u~?d]&=V $3;;y\В q#0j D*JbWFS4i;V Od: gE3|`hENgT:jN\ןA2M"PhUO}] LwoiE7#B It2cj-hÛ?l$b^ښtQS(|/C\_ D%DW=D|GO2F\_/[G'Q! gAZ  HVLCJd|V5@`,'ta#¼lKOKUɟpŬOH` JOxH.tt iNlH]hpL̂c}LOwvY7TUZQW4kF"84g?TEN_FeUdR{CϷZXUO 6HœAd_bzuZ3ӑМΐ$~by+^PFu ;U 4UqP|̘g8IDn!m0Z 6M##󻇄-uvi'1Z. jI0l@{i{ވ55 _YNz?DLlQd5S-Wڦ{E<<1[6hge A[%pCސhvL"b 678srF\rB'k\wL:ù?$O_HGf鯀z;_[+nRdh)b욻Ҳ%Jy'f7F673 . ١0.F s3mXZ6IO<;BVI]0KWSD0/+k8h,{n4yAY6Ċm>A#;XY)}.8ӓ~}1"= dGT["khGa-&1&h &fQ ct ^ dcjۺMv9pCK7T}V -6R*PS{O*ɯpK\<mԭ%f.N"AzRXs3sf3Up3\w[6t5|5qk {uZ/!:lW^'B =)YNV.8/'W@WY^ݢx'2d~ X<[mo^ q%oKQs0^\!9,)D4tI%'fxHӜ/s`PpoŹȱϷ$J ?n׬vi14Ķg: \T}s78\Wq e޽Gji~4c&0;BbZ:i8Ha+QF13a`XƣO^OhL3VCG(͝ȫ·4Ofʖld @'V+Y:Xa Pa('IPQXC>big<`5xc1n"޷yT&["țS3eY$EWCZvK<2,DC1op'Қt`շC@]_4w/ו=㣴N4TaJ0]aP-!^i7F9rYiUZWlS!*>(tmܞ8 e|&k,E5 *)`I=>ά5oAQ\5.i>|wXT 09a<*gZM*.T႑vy(B*Utf&Ϫew= KtzP,,0sLM)шOKfD=Osqu}atls{HϹyJveS<İl6 u-&KZM+#oYŕY}тºSCN Zv2{PbᰑUbk VMS.BCKO[V9.BIN]RT.OLB;1E;1 ENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIORo GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMS$CHAR_STRING_CONSTANTSCP..VPKPdd/ PJP//a8ww1@!V1.04FWINDOWV1.025-JUL-1994 08:38VAX C V3.2-044RFWINDOW C$V_CTYPEDEFS$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS+ CURSORSYMSCONSOLEBINDING;PPPPPPPww1P!V1.02F_3R0V1.025-JUL-1994 08:39VAX C V3.2-044P$^UeVW}1fܞfѬW1xWRЬSBcP`mBP`PBc~ERR_MSGЭfPxWRЬSBP`PˏPBc~ERR_MSGЭfPxWQЬPAP`PРTWTe ХPe~ERR_MSGЭfPХPˏPe~ERR_MSGЭfPХPРTѬWLg~ERR_MSGЭfPxWRЬSBc CNV_C_STRPBcg~ERR_MSGЭfP߭߭߭߭W~ЬRRݬTRECTARGSPxPP@be~ERR_MSGЭfPխ+խ&PФQPPP  խR F_3R0F3r0_WriteImage: s C$V_CTYPEDEFS DUMPIMAGEWRITEGIFRECTARGSERR_MSG CNV_C_STR F3R0_WRITEIMAGE:$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSl;1 VMS.BCKO[V9.BIN]RT.OLB;1E;1 ֿWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSЭfPݭݭݭݭݭT DUMPIMAGEPRRݭݭݭݭݭTWRITEGIFPRRЭfPW }e ЭfP} ЭfPww1qb%!V1.01F_3RV1.025-JUL-1994 08:39VAX C V3.2-044P<^WeXЬRRU(PxRRR~MALLOCPU<1~ERR_MSGP}1ץRެTRd(SRPxPP@xRP@cDEREFRRdЬRRSSSheehVR1xVSTCdRb1CRbR'Cd~ERR_MSGehPUP UFREEPxVSTCRbRˏP'Cd~ERR_MSGehPUP UFREEPxVQPARbRТTVug ЧP&g~ERR_MSGehPUP UFREEPЧPˏP&g~ERR_MSGehPUP UFREEPЧPРTѬV*R F_3RF3r_WriteImagep s  C$V_CTYPEDEFSDEREF DUMPIMAGEWRITEGIFRECTARGSERR_MSG CNV_C_STRMALLOCFREE F3R_WRITEIMAGEp$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSLg~ERR_MSGehPUP UFREEPxVRSBc CNV_C_STRP+SBcg~ERR_MSGehPUP UFREEP߭߭߭߭V~ݬTRECTARGSP/xPPR@be~ERR_MSGehPUP UFREEPխ+խ&RФQRPP  խխehPUP UFREEPݭݭݭݭݥ T DUMPIMAGEPRRݭݭݭݭݥ TWRITEGIFPRRehPUP UFREEPV}g ehPUP UFREEP} ehPUP UFREEPww1RA,!V1.02F_3Q0V1.025-JUL-1994 08:39VAX C V3.2-044R F_3Q0 F3q0_WFlush sJ C$V_CTYPEDEFSWFLUSHERR_MSG  F3Q0_WFLUSH$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZEcV VMS.BCKO[V9.BIN]RT.OLB;1E;1 K&STKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METADATTRIBSDRAWOPSWDSPLYS CURSORSYMSP^STլyxTQЬRAbP`dAP`PAb~ERR_MSGPxTQЬRAP`PˏPAb~ERR_MSGPxTQЬPAP`PРRTKc УPc~ERR_MSGPУPˏPc~ERR_MSGPУPРRRWFLUSHT}c P} Pww1>!V1.01F_3QV1.025-JUL-1994 08:39VAX C V3.2-044P$^WeXѬU,RxRRR~MALLOCPU<1~ERR_MSGPRެTRd#SxRP@xRP@cDEREFRRdЬRRSSSheehVR1xVSTCdRb1CRbR'Cd~ERR_MSGehPUP UFREEPxVSTCRbRˏP'Cd~ERR_MSGehPUP UFREEPxVQPARbRТSVvg ЧP&g~ERR_MSGehPUP UFREEPЧPˏP&g~ERR_MSGehPUP UFREEPЧPРSSR F_3Q F3q_WFlush sr  C$V_CTYPEDEFSDEREFWFLUSHERR_MSGMALLOCFREE  F3Q_WFLUSH$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROLi XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSPWFLUSHV}g ehPUP UFREEP} ehPUP UFREEPww1tM!V1.02F_3P0V1.025-JUL-1994 08:40VAX C V3.2-044P^TeUW}1}1eeѬW1xWRЬSBcP`nBP`PBc~ERR_MSGePxWRЬSBP`PˏPBc~ERR_MSGePxWQЬPAP`PРVWUd ФPd~ERR_MSGePФPˏPd~ERR_MSGePФPРVWPPg~ERR_MSGePxWRЬSBc CNV_C_STRPBcg~ERR_MSGePWRxRRЬSBc CNV_C_STRPBcg~ERR_MSGePVR F_3P0 F3p0_WDefault sy  C$V_CTYPEDEFS GETDEFAULTERR_MSG CNV_C_STRALCSTRSTRLEN F3P0_WDEFAULT$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTX/} VMS.BCKO[V9.BIN]RT.OLB;1E;1 KYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMS{ GETDEFAULTP ePSTRLENPRRALCSTRP|~ERR_MSGePЬ PR`ePww1>X!V1.01F_3PV1.025-JUL-1994 08:40VAX C V3.2-044P^WeXѬ U.PRxRRR~MALLOCPU<1~ERR_MSGP}1}1إRެTRd'SRPxPP@xRP@cDEREFRRdЬRRSSSheehVR1xVSTCdRb1CRbR'Cd~ERR_MSGehPUP UFREEPxVSTCRbRˏP'Cd~ERR_MSGehPUP UFREEPxVQPARbPРTVug ЧP&g~ERR_MSGehPUP UFREEPЧPˏP&g~ERR_MSGehPUP UR F_3P F3p_WDefault& s  C$V_CTYPEDEFSDEREF GETDEFAULTERR_MSG CNV_C_STRALCSTRMALLOCSTRLENFREE  F3P_WDEFAULT&$CODE$DATASTDINSTDOUTSTDERR_CTYPE_ERRNO VAXC$ERRNONUM_TYPS ICONTYPESSTR_TYPINT_TYPREC_TYPPROC_TYP COEXP_TYPSTV_TYPTTV_TYPNULL_TYPCSET_TYPREAL_TYPLIST_TYPTBL_TYP NUM_CMPNTS TYPECOMPNTSTR_VARTRPD_TBLLST_ELEMTBL_VALTBL_DFLTALLCHARS CURSTRINGCURBLOCKBLKNAMECURRENDSTATBASESTATENDSTATFREEQUALLISTARGPBSIZESFIRSTDSEGSIZEK_LEVELSTKLIST(BLANKCS(LPARCS(RPARCS(FULLCSBLANKEMPTYSTR K_CURRENT K_ERRORTEXT HAVE_ERRVAL K_ERRORNUMBER T_ERRORNUMBER T_HAVE_VALK_ERROUTK_INPUTK_OUTPUT K_ERRORVALUEKYWD_ERRKYWD_POS KYWD_PROGKYWD_RAN K_SUBJECTKYWD_TRC K_EVENTCODE K_EVENTSOURCE K_EVENTVALUEK_MAINKYWD_DMPNULLPTRLCASELETRMAPS2MAPS3NULLDESCONEDESC T_ERRORVALUEUCASEZERODESCBLKNEEDSTATNEEDSTRNEEDBLKTOTALSTRTOTAL STATTOTALCOLL_TOT COLL_STATCOLL_STRCOLL_BLKGLOBALSEGLOBALSGNAMESEGNAMESESTATICSMSTKSIZEQUALSIZESTATINCRSTATSIZESTKSIZETEND STARTTIMESTATICSBUILTINSNOERRBUFPFPTRASHCAN LARGEINTSOP_TBL OP_TBL_SZ DEBUG_INFOERR_CONVDODUMP LINE_INFO FILE_NAMELINE_NUM N_GLOBALS N_STATICSMAINHEADPOLLCTRWBNDNGSWCNTXTSWSTATES GRAPHICSLEFT GRAPHICSUP GRAPHICSRIGHT GRAPHICSDOWN GRAPHICSHOME GRAPHICSPRIOR GRAPHICSNEXT GRAPHICSEND WIN_HIGHWATER KYWD_XWIN LASTEVENTWINAMPERCOLAMPERROWAMPERXAMPERY AMPERINTERVAL PREVTIMESTAMP XMOD_CONTROL XMOD_SHIFT XMOD_METAATTRIBSDRAWOPSWDSPLYS CURSORSYMSFREEPЧPРTVPP&g~ERR_MSGehPUP UFREEPxVRSBc CNV_C_STRP+SBcg~ERR_MSGehPUP UFREEPVRxRRSBc CNV_C_STRP+SBcg~ERR_MSGehPUP UFREEPݥݥ T GETDEFAULTPehPUP UFREEPSTRLENPRRALCSTRP "|~ERR_MSGehPUP UFREEPЬ PХ R`ehPUP UFREEPww1@8c!V1.02F_3O0V1.025-JUL-1994 08:40VAX C V3.2-044Ppos=Pposx= Pposy=Prows=Psize=Pwidth=$Plines=+Pheight=3Pcolumns=Tk9fʚ,YHJRQ (8M@  O[葼R0Y]%qRN12A Y_%\+T+ZF0 F .H|aQZiH%PN"IKﵨiN w{bɀEQ:@?K7Y{eVH='Aǹ)' UeGt:j{̵@ KEcX;::xvrV&.AK%sH:ϕ\'ʘS{Z__e^b穟SaK*l 51ʢ~WߪAne#$i־IȻS,;|uzv;ܿ~5@ϵSmHQ{ hѱ\'TUH4@ Iq0iMlHEq#'{d4T8uH 00ٮ"`دxް,Z3KXNCLREZى47GNTEݺz\,V;M tK\W|fMIOԋcp!c=GZ7@E{8b;-I؀@+w A :LNjVn1=HR DQY dGHeVg-0K RivWR@sX)Dr:9(E|<1 U:.tO=8[/M ˌaT m=[$}a X HTu_7+uSBENVCU 4:Ep(JbgcCj_dt՛KhZR70  L:99)VL,VB)SPZCA˦ݡKF3EU J>* zf eeRǨuog?EꂄbTTGMJB :I-Tl?Ś1 i-WڸLwS?;tϭS\)>p8VL]>D/o`tA>R½/U /4wM "!\m bAEV zwY}=8hŠ?JktFVL|F 寺NsX.D^pg>lm0\aƚ%)Z]R(KCC[NIr+=aYާlJxtՆUq`DUOZ2JqOㆷؾY{R_Bc|jXNϦTaߨ'+0n[X䉹eMY] LG% ~Jp.-(}1AP$!ᐉjD3\ m\jS(>tO]gZiqDC*WXs8C6W IAcBƵ(GG D j];>#,o!y\lZsXI-J|ICƥ!,FõS1]|Â$SNkDeϕ ({< *M@|:ZOq\9r~'.(TPT^GʷzzY FFTHVENyI7&c53Zˆ1\\h=V|XjZRꔀAT_O]2|S[k>:LUBQ1b7+;>WRG7ڙ=QhSBDUPm:RIΨ ?h1f QI]|x%Ff17#0bU?V?yVCV7SḨi!(h@ ၺP-SlmNFiIW<5ϋTgؘ)ImqÝ [Zp9A_iX$ "i."6!|P) u4G C Pg8Y"t0أh^[P[:&GϜ)D2o,r횆? eKCPeXLO}VSy9VK/&LZPVK,(`OǕ= dA66*Tr^)ܘɁe$D-*U RT2>2x./LY#bGm r< ]>Z]ZA\[Bz$RU0pM\yPJNA^K^4S@]Y@GL VBP GM X NLGSQCTZBFE] MR^A^ @WNW GB@>IALNX;WHEND]ACVLPH_FSG CSII AXNEJ TYHM FX CK@EXTFHPE STRF \FAEGIEEH _V [Z WM]PP@TMUGLD[A^]QN AQFR8SXFMy~dbX~(ZZ TWD^G!@Z=Y_w֏<|8?s}8 F(—0:U9uflkj‰f8P6e})!$ 5)FrZ3mi!74{b;wtp|-94 שef,7YHe]4:n3%'}Җș_FF3TT XFeݹ#TOLxUk ѓAL6C VP>*Hr kl9?[&\8.Ǝ-cd^x*MEeR@+E^d 9 QKĄ΄U}(A4%o9 5 76(e:[Mb.6\@-R Gk`hr~,"@b`c~|;C+&).P}dy kLdTf̭TD?+`ZUQMRω2 K*`3K5e{/6 h(UHUMTJ;Ԇrw( AOYCHbEW\*詧蛂! (IMf~wŸ@HXITa^dcZBFQ3,xV[{ß4BSDGOFK NDAG.BZц0C NA[W\OeU_URL *]]o D Z[/GTHNXnATG#3CM0^ Fuh ޣ#5 &}:A̚ECe2Cr<[O'tC*Yf.Yk F HQ\m['fRIL1b~b|+ʔqDI v}Ip[WּjUK3ʨ(`i!NZ1rp!?)W`vKLECŬ!\NdЛoBW,ىh&elLUE{[K%!&:hS8I^]Zf|7^9 *#LHmkQiXY9|)UMp3CEFYboqG_[,_cQ?p`L LQ+S+u=R+y%PMe8;Wȵw*ښ!&/ (S+>,{@p$7KԞR"A]̼J.FMJezxR}J1e9q]G駼Ƃ_=1k#\(LY]٤=OjI%о`柭dTǥLν?M-&++&^gdd(BD1OPWw {23m}Q**aFZ;BnʇTtb`@:^v]B$|#ƍj}z іN ơ!ϏԒn`,Mc2Zy U2tu!KL6#X_W颅G8 *̇MBYG2gyfx5p,uHTpRJ d [<=|4B&2im0=KR/?U[bY<; ;690D"p!{TRf[)*P~9MΥ xgx{h%l "9 ׁ<A /|eXUl^ZG u hcYy cIT%#s@OҭΔjxPyo1vFmK R5$H!AA:6,YFoH±2mX Q$`8w,=7KQx?vi9nd*24H| 7PάOW\P2 UiR NfaAVSIa+u\ pGtd:isGHh3*AFuW=ȉPH#XWLdJcRGbE{<Ư^E QO^ SMf; LPMBoPFA1^6@TgLD-JHΞt/pRGNzr՟7L$G K1]=T 'E ,\ JO%%G]YPJ3WR W <_]] EC5Y@HU2AG6; + #@e D'"q*eL[Y M 괾Y#AɴP| +vsP B8"w N _M^nD9?@,P` \MINpú澣WHޕ\\[R<˰g/4CA Ik! v' HBߍ:x:n GU0>/BCu+.۰_ [