!==============================================================================! ! Garfield command language definition file for Vax computers. ! ! Valid for versions 5.12 and higher, can be used with version 4. ! ! Since version 5.12, there is one common CLD file for all graphics systems. ! ! ! ! This file is to be compiled with the command: ! ! ! ! SET COMMAND GARFIELDCLD.CLD /OBJECT=GARFIELDCLD.OBJ ! ! ! ! and should then be linked with the main program and with the front-end ! ! program. ! ! ! ! The advice from Bert Driehuis /VNG and C.W. Hobbs /DEC is gratefully ! ! acknowledged. ! ! ! ! Gopyright: Rob Veenhof, 1999. ! !==============================================================================! module GARFCLD define type TERMINAL_GTS keyword TYPE ! Terminal type chosen from list label=TERM_TYPE ! value(type=TERM_TYPE_GTS,required) ! keyword GKS_IDENTIFIER ! Terminal specified by identifier label=TERM_GKSID ! value(type=$number,required) ! keyword CONNECTION_IDENTIFIER ! Connection identifier label=TERM_CONID ! value(type=$number,required) ! define type TERM_TYPE_GTS ! Digital GTS-GRAL workstation keyword VT100_RETROGRAPHICS ! 1001 keyword VT100_SELENAR ! 1002 keyword VT125_REGIS ! 1010 keyword VT240_REGIS ! 1020 keyword VT241_REGIS ! 1021 keyword VT340 ! 1030 keyword VAXSTATION ! 8601 ! Pericom keyword PG7800, default ! 7878 keyword MG600 ! 7800 keyword MX2000 ! 221 keyword MX7000 ! 221 keyword MX8000 ! 227 ! Tektronix keyword 4010 ! 101 keyword 4012 ! 102 keyword 4014 ! 101 keyword 4015 ! 103 keyword 4105 ! 110 keyword 4107 ! 121 keyword 4207 ! 121 keyword 4109 ! 122 keyword 4209 ! 122 keyword 4111 ! 123 keyword 4113 ! 125 keyword 4114 ! 127 keyword 4115 ! 127 ! Falco keyword Falco ! 114 ! X-windows keyword X_windows ! 32120 keyword X_windows_0 ! 32120 keyword X_windows_1 ! 32121 keyword X_windows_2 ! 32122 keyword X_windows_3 ! 32123 keyword X_windows_4 ! 32124 keyword X_windows_5 ! 32125 keyword X_windows_6 ! 32126 keyword X_windows_7 ! 32127 keyword X_windows_8 ! 32128 keyword X_windows_9 ! 32129 define type TERMINAL_DEC keyword TYPE ! Terminal type chosen from list label=TERM_TYPE ! value(type=TERM_TYPE_DEC,required) ! keyword GKS_IDENTIFIER ! Terminal specified by identifier label=TERM_GKSID ! value(type=$number,required) ! keyword CONNECTION_IDENTIFIER ! Connection identifier label=TERM_CONID ! value(type=$number,required) ! define type TERM_TYPE_DEC ! Logical DEC GKS workstation type keyword Logical ! 0 ! Digital keyword VT125_COLOUR ! 11 keyword VT125_BW ! 12 keyword VT240_COLOUR ! 13 keyword VT240_BW ! 14 keyword VT330 ! 16 keyword VT340 ! 17 keyword VAXSTATION_1 ! 42 keyword VAXSTATION_2 ! 41 keyword VS_1 ! 42 keyword VS_2 ! 41 keyword VS_2000 ! 41 keyword DECWINDOWS ! 211 ! Tektronix keyword 4014 ! 72 keyword 4017 ! 82 define type TERMINAL_ATC keyword TYPE ! Terminal type chosen from list label=TERM_TYPE ! value(type=TERM_TYPE_ATC,required) ! keyword GKS_IDENTIFIER ! Terminal specified by identifier label=TERM_GKSID ! value(type=$number,required) ! keyword CONNECTION_IDENTIFIER ! Connection identifier label=TERM_CONID ! value(type=$number,required) ! define type TERM_TYPE_ATC ! Digital ATC_GKS workstation type keyword VT125_REGIS ! 2600 keyword VT240_REGIS ! 2601 keyword VT241_REGIS ! 2602 keyword VT330 ! 2603 keyword VT340 ! 2604 keyword VT340_COLOUR ! 2605 ! Tektronix keyword 4010 ! 2500 keyword COMP_4010 ! 2501 keyword 4014 ! 2400 keyword 4105 ! 2300 keyword PIX_4105 ! 2301 keyword COMP_4105 ! 2302 keyword 4107 ! 3100 keyword 12B_4107 ! 3101 keyword 4205 ! 3102 keyword 12B_4205 ! 3103 keyword 4208 ! 3104 keyword 12B_4208 ! 3105 keyword 4111 ! 3200 keyword 32B_4111 ! 3201 keyword 4115 ! 3202 keyword 32B_4115 ! 3203 keyword 4125 ! 3204 keyword 32B_4125 ! 3205 ! C-ITOH 414A keyword CIT_414A ! 2502 ! Graphon 140, 230 keyword GRAPHON ! 2506 ! Imagen keyword LAND_IMG ! 6300 keyword PORT_IMG ! 6301 ! Retrographics VT640 keyword RETRO ! 3203 ! X11 keyword X11 ! 5300 ! X11 (back and store) keyword BS_X11 ! 5350 define type TERMINAL_HIGZ keyword TYPE ! Terminal type chosen from list label=TERM_TYPE ! value(type=TERM_TYPE_HIGZ,required) ! keyword GKS_IDENTIFIER ! Terminal specified by identifier label=TERM_GKSID ! value(type=$number,required) ! keyword CONNECTION_IDENTIFIER ! Connection identifier label=TERM_CONID ! value(type=$number,required) ! define type TERM_TYPE_HIGZ keyword 0 ! No terminal graphics output keyword inquire, default ! Request terminal inquiry keyword 1 ! From HIGZ_WINDOWS.DAT keyword 2 ! From HIGZ_WINDOWS.DAT keyword 3 ! From HIGZ_WINDOWS.DAT keyword 4 ! From HIGZ_WINDOWS.DAT keyword 5 ! From HIGZ_WINDOWS.DAT keyword 6 ! From HIGZ_WINDOWS.DAT keyword 7 ! From HIGZ_WINDOWS.DAT keyword 8 ! From HIGZ_WINDOWS.DAT keyword 9 ! From HIGZ_WINDOWS.DAT keyword FALCO ! Falco terminal keyword XTERM ! X-terminal define type METAFILE_GTS keyword TYPE ! Metafile type chosen from list label=META_TYPE ! value(type=META_TYPE_GTS,required) ! keyword GKS_IDENTIFIER ! Metafile type via GKS identifier label=META_GKSID ! value(type=$number,required) ! keyword NAME ! File name of the metafile label=META_NAME ! value(type=$outfile,required) ! keyword OFFSET ! Logical unit offset label=META_OFFSET ! value(type=$number,required) ! define type META_TYPE_GTS keyword APPENDIX_E ! 4 keyword POSTSCRIPT, default ! 12203 keyword PS_PORTRAIT_COLOUR ! 12201 keyword PS_LANDSCAPE_COLOUR ! 12202 keyword PS_PORTRAIT_BW ! 12203 keyword PS_LANDSCAPE_BW ! 12204 keyword ENCAPSULATED_PS ! 12203 keyword EPS_PORTRAIT_COLOUR ! 12201 keyword EPS_LANDSCAPE_COLOUR ! 12202 keyword EPS_PORTRAIT_BW ! 12203 keyword EPS_LANDSCAPE_BW ! 12204 define type METAFILE_DEC keyword TYPE ! Metafile type chosen from list label=META_TYPE ! value(type=META_TYPE_DEC,required) ! keyword GKS_IDENTIFIER ! Metafile type via GKS identifier label=META_GKSID ! value(type=$number,required) ! keyword NAME ! File name of the metafile label=META_NAME ! value(type=$outfile,required) ! keyword OFFSET ! Logical unit offset label=META_OFFSET ! value(type=$number,required) ! define type META_TYPE_DEC keyword POSTSCRIPT, default ! 61 keyword PS ! 61 keyword METAFILE ! 2 keyword DECGKS_MO ! 2 keyword CGM ! 7 keyword LCP01 ! 15 keyword LCG01 ! 15 keyword LN03 ! 38 ! Hewlett-Packard keyword HP7475 ! 51 keyword HP7550 ! 53 keyword HP7580 ! 54 keyword HP7585 ! 56 ! Canon keyword LBP8A2 ! 531 ! Kyocera keyword L880 ! 532 define type METAFILE_ATC keyword TYPE ! Metafile type chosen from list label=META_TYPE ! value(type=META_TYPE_ATC,required) ! keyword GKS_IDENTIFIER ! Metafile type via GKS identifier label=META_GKSID ! value(type=$number,required) ! keyword NAME ! File name of the metafile label=META_NAME ! value(type=$outfile,required) ! keyword OFFSET ! Logical unit offset label=META_OFFSET ! value(type=$number,required) ! define type META_TYPE_ATC keyword CGM_BIN ! 10100 keyword CGM_MBIN ! 10101 keyword CGM_CHAR ! 10110 keyword CGM_TEXT ! 10120 keyword CGM_LBIN ! 10150 keyword CGM_LCHAR ! 10160 keyword CGM_LTEXT ! 10170 ! ATC Postscript keyword POSTSCRIPT, default ! 1900 keyword PS_PORTRAIT_COLOUR ! 1900 keyword PS_LANDSCAPE_COLOUR ! 1901 keyword PS_PORTRAIT_BW ! 1900 keyword PS_LANDSCAPE_BW ! 1901 keyword ENCAPSULATED_PS ! 1900 keyword EPS_PORTRAIT_COLOUR ! 1900 keyword EPS_LANDSCAPE_COLOUR ! 1901 keyword EPS_PORTRAIT_BW ! 1900 keyword EPS_LANDSCAPE_BW ! 1901 define type METAFILE_HIGZ keyword TYPE ! Metafile type chosen from list label=META_TYPE ! value(type=META_TYPE_HIGZ,required) ! keyword GKS_IDENTIFIER ! Metafile type via GKS identifier label=META_GKSID ! value(type=$number,required) ! keyword NAME ! File name of the metafile label=META_NAME ! value(type=$outfile,required) ! keyword OFFSET ! Logical unit offset label=META_OFFSET ! value(type=$number,required) ! define type META_TYPE_HIGZ keyword POSTSCRIPT, default ! PostScript keyword PS_LANDSCAPE ! keyword PS_PORTRAIT ! keyword EPS ! Encapsulated PS keyword ENCAPSULATED_PS ! keyword ENCAPSULATED_POSTSCRIPT ! keyword LATEX ! LaTeX define verb GARFIELD qualifier OLD placement=global nonnegatable qualifier PRO placement=global nonnegatable qualifier NEW placement=global nonnegatable qualifier EXP placement=global nonnegatable qualifier DEBUG placement=global negatable qualifier IDENTIFICATION placement=global negatable qualifier INPUT_LISTING placement=global negatable qualifier RNDM_INITIALISATION placement=global negatable default qualifier RECORDING placement=global negatable default qualifier PROGRESS_PRINT placement=global negatable default qualifier PROFILE placement=global negatable default qualifier SYNCHRONISE placement=global negatable disallow any2(GKS, GTS_GRAL, DEC_GKS, ATC_GKS, HIGZ) qualifier HIGZ placement=global syntax=GARFIELD_HIGZ default qualifier GKS placement=global syntax=GARFIELD_GTS qualifier GTS_GRAL placement=global syntax=GARFIELD_GTS qualifier DEC_GKS placement=global syntax=GARFIELD_DEC qualifier ATC_GKS placement=global syntax=GARFIELD_ATC define syntax GARFIELD_GTS qualifier OLD placement=global nonnegatable qualifier PRO placement=global nonnegatable qualifier NEW placement=global nonnegatable qualifier EXP placement=global nonnegatable qualifier DEBUG placement=global negatable qualifier IDENTIFICATION placement=global negatable qualifier INPUT_LISTING placement=global negatable qualifier RNDM_INITIALISATION placement=global negatable default qualifier RECORDING placement=global negatable default qualifier PROGRESS_PRINT placement=global negatable default qualifier PROFILE placement=global negatable default qualifier SYNCHRONISE placement=global negatable qualifier TERMINAL placement=global value(list,type=TERMINAL_GTS) negatable default qualifier METAFILE placement=global value(list,type=METAFILE_GTS) negatable default qualifier HIGZ qualifier GKS qualifier GTS_GRAL, default qualifier DEC_GKS qualifier ATC_GKS disallow(TERM_TYPE and (TERM_GKSID or TERM_CONID)) disallow(META_TYPE and (META_GKSID or META_OFFSET)) define syntax GARFIELD_DEC qualifier OLD placement=global nonnegatable qualifier PRO placement=global nonnegatable qualifier NEW placement=global nonnegatable qualifier EXP placement=global nonnegatable qualifier DEBUG placement=global negatable qualifier IDENTIFICATION placement=global negatable qualifier INPUT_LISTING placement=global negatable qualifier RNDM_INITIALISATION placement=global negatable default qualifier RECORDING placement=global negatable default qualifier PROGRESS_PRINT placement=global negatable default qualifier PROFILE placement=global negatable default qualifier SYNCHRONISE placement=global negatable qualifier TERMINAL placement=global value(list,type=TERMINAL_DEC) negatable default qualifier METAFILE placement=global value(list,type=METAFILE_DEC) negatable default qualifier HIGZ qualifier GKS qualifier GTS_GRAL qualifier DEC_GKS, default qualifier ATC_GKS disallow(TERM_TYPE and (TERM_GKSID or TERM_CONID)) disallow(META_TYPE and (META_GKSID or META_OFFSET)) define syntax GARFIELD_ATC qualifier OLD placement=global nonnegatable qualifier PRO placement=global nonnegatable qualifier NEW placement=global nonnegatable qualifier EXP placement=global nonnegatable qualifier DEBUG placement=global negatable qualifier IDENTIFICATION placement=global negatable qualifier INPUT_LISTING placement=global negatable qualifier RNDM_INITIALISATION placement=global negatable default qualifier RECORDING placement=global negatable default qualifier PROGRESS_PRINT placement=global negatable default qualifier PROFILE placement=global negatable default qualifier SYNCHRONISE placement=global negatable qualifier TERMINAL placement=global value(list,type=TERMINAL_ATC) negatable default qualifier METAFILE placement=global value(list,type=METAFILE_ATC) negatable default qualifier HIGZ qualifier GKS qualifier GTS_GRAL qualifier DEC_GKS qualifier ATC_GKS, default disallow(TERM_TYPE and (TERM_GKSID or TERM_CONID)) disallow(META_TYPE and (META_GKSID or META_OFFSET)) define syntax GARFIELD_HIGZ qualifier OLD placement=global nonnegatable qualifier PRO placement=global nonnegatable qualifier NEW placement=global nonnegatable qualifier EXP placement=global nonnegatable qualifier DEBUG placement=global negatable qualifier IDENTIFICATION placement=global negatable qualifier INPUT_LISTING placement=global negatable qualifier RNDM_INITIALISATION placement=global negatable default qualifier RECORDING placement=global negatable default qualifier PROGRESS_PRINT placement=global negatable default qualifier PROFILE placement=global negatable default qualifier SYNCHRONISE placement=global negatable qualifier TERMINAL placement=global value(list,type=TERMINAL_HIGZ) negatable default qualifier METAFILE placement=global value(list,type=METAFILE_HIGZ) negatable default qualifier HIGZ, default qualifier GKS qualifier GTS_GRAL qualifier DEC_GKS qualifier ATC_GKS disallow(TERM_TYPE and (TERM_GKSID or TERM_CONID)) disallow(META_TYPE and (META_GKSID or META_OFFSET))