141 lines
6.1 KiB
C
Executable File
141 lines
6.1 KiB
C
Executable File
*******************************************************************************
|
|
*
|
|
* uniVerse include file for PRINTERIO functions
|
|
*
|
|
* Module PRINTERIO.H
|
|
*
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
|
* The copyright notice above does not evidence any actual or intended
|
|
* publication of such source code.
|
|
*
|
|
*******************************************************************************
|
|
|
|
EQUATE PK$MAXUNITS TO 255
|
|
|
|
* Keys to define the Printer IO function to be performed
|
|
|
|
EQUATE PK$INITIALIZE TO 1
|
|
EQUATE PK$FINALIZE TO 2
|
|
EQUATE PK$PRINT.STRING TO 3
|
|
EQUATE PK$PRINT.STRING.WITH.NEW.LINE TO 4
|
|
EQUATE PK$NEW.PAGE TO 5
|
|
EQUATE PK$PRINT.NEW.LINE TO 6
|
|
EQUATE PK$PRINT.CHARACTER TO 7
|
|
EQUATE PK$PRINT.TAB TO 8
|
|
EQUATE PK$PRINT.ERROR.MESSAGE TO 9
|
|
EQUATE PK$INPUT TO 10
|
|
EQUATE PK$INPUT.AT TO 11
|
|
EQUATE PK$GET.KEY TO 12
|
|
EQUATE PK$CLEAR.INPUT TO 13
|
|
EQUATE PK$ECHO.INPUT TO 14
|
|
EQUATE PK$STAT.IPEDIT TO 15
|
|
EQUATE PK$PACK.FKEYS TO 16
|
|
EQUATE PK$IPEDIT TO 17
|
|
EQUATE PK$CONTROL.SEQUENCE.ONE.ARG TO 18
|
|
EQUATE PK$CONTROL.SEQUENCE.TWO.ARGS TO 19
|
|
EQUATE PK$PRINTER.ON TO 20
|
|
EQUATE PK$PRINTER.OFF TO 21
|
|
EQUATE PK$PRINTER.CLOSE TO 22
|
|
EQUATE PK$HEADING TO 23
|
|
EQUATE PK$FOOTING TO 24
|
|
EQUATE PK$HEADER.VARIABLE TO 25
|
|
EQUATE PK$SET.PAGE.NUMBER TO 26
|
|
EQUATE PK$GETPU TO 27
|
|
EQUATE PK$SETPU TO 28
|
|
EQUATE PK$RESET.TERMINAL TO 29
|
|
EQUATE PK$RESET.ALL.PRINTUNITS TO 30
|
|
EQUATE PK$SET.KILL.CHARACTER TO 31
|
|
EQUATE PK$SET.ERASE.CHARACTER TO 32
|
|
EQUATE PK$SET.PROMPT.CHARACTER TO 33
|
|
EQUATE PK$SET.HUSH TO 34
|
|
EQUATE PK$SET.ECHO TO 35
|
|
EQUATE PK$SET.BREAK TO 36
|
|
EQUATE PK$SET.XOFF TO 37
|
|
EQUATE PK$SET.DUPLEX TO 38
|
|
EQUATE PK$SCOLOUR TO 39
|
|
EQUATE PK$DISLEN TO 40
|
|
EQUATE PK$COMO TO 41
|
|
EQUATE PK$PRIMTV TO 42
|
|
EQUATE PK$CR.IDLE TO 43
|
|
EQUATE PK$SET.TERMINAL.TYPE TO 44
|
|
EQUATE PK$GET.TERMINAL.TYPE TO 45
|
|
EQUATE PK$CHECK.INPUT TO 46
|
|
EQUATE PK$GET.PROMPT.CHARACTER TO 47
|
|
EQUATE PK$GET.TERM.PAUSE TO 48
|
|
EQUATE PK$SET.TERM.PAUSE TO 49
|
|
EQUATE PK$SET.TERM.SUPPRESS TO 50
|
|
EQUATE PK$GET.ECHO.DELAY TO 51
|
|
|
|
* Values 52 to 55 are now used in P_GUI_KEYS.IT. The 'PK$' keys defined
|
|
* in PRINTERIO.IT and P_GUI_KEYS.IT must NOT clash. Care must be taken
|
|
* when adding new keys in future in either include file.
|
|
|
|
EQUATE PK$KEYIN TO 56
|
|
|
|
* Options for passing to GTI input editor
|
|
* N.B: The values represent single bits in a 16 bit value
|
|
|
|
EQUATE IK$NON TO 0 ;* No keys specified
|
|
EQUATE IK$OCR TO 1 ;* Output <CR>
|
|
EQUATE IK$ATM TO 2 ;* Terminate edit when string = maxlen
|
|
EQUATE IK$TCR TO 4 ;* Toggle cursor
|
|
EQUATE IK$DIS TO 8 ;* Reserved
|
|
EQUATE IK$HDX TO 16 ;* Put terminal into half duplex
|
|
EQUATE IK$INS TO 32 ;* Start in insert mode
|
|
EQUATE IK$BEG TO 64 ;* Separate begin/end line functions
|
|
EQUATE IK$NEK TO 128 ;* Ignore OS kill and erase chars
|
|
|
|
* Subkeys for setting the state of the command line editor
|
|
|
|
EQUATE CLE$READ.STATUS TO 1
|
|
EQUATE CLE$WRITE.STATUS TO 2
|
|
EQUATE CLE$DISABLED TO 0
|
|
EQUATE CLE$COMMAND.INPUT TO 1
|
|
EQUATE CLE$VERB.INPUT TO 2
|
|
EQUATE CLE$ALL.INPUT TO 3
|
|
EQUATE CLE$INSERT.KEY TO 0
|
|
EQUATE CLE$OVERLAY.KEY TO 5
|
|
|
|
* Error returns from PK$STAT.IPEDIT
|
|
|
|
EQUATE CLE$INVALID.ACTION TO 1
|
|
EQUATE CLE$INVALID.STATE TO 2
|
|
EQUATE CLE$INVALID.MODE TO 3
|
|
|
|
* Class of GTI function keys loaded for terminal
|
|
|
|
EQUATE P$FKEYS.NONE TO 0 ;* No key bindings loaded
|
|
EQUATE P$FKEYS.FUND TO 1 ;* Fundamental key bindings loaded
|
|
EQUATE P$FKEYS.FUNC TO 2 ;* Function key bindings loaded
|
|
|
|
* Options for the PK$SET.DUPLEX key
|
|
|
|
EQUATE PK$TTY.FULL TO 0 ;* Set terminal to full duplex
|
|
EQUATE PK$TTY.HALF.LF TO 1 ;* Set terminal to half duplex, do line feeds
|
|
EQUATE PK$TTY.HALF.NOLF TO 2 ;* Set terminal to half duplex, dont do line feeds
|
|
EQUATE PK$TTY.TOGGLE.DUPLEX TO 3 ;* Toggle from FULL to HALF.NOLF or either HALF to FULL
|
|
|
|
* Subkeys for the PK$SCOLOUR key used to provide colour
|
|
* replacement of monochrome attributes.
|
|
|
|
EQUATE IT$GETCOLOR TO 3 ;* Retrieve colour settings for attributes
|
|
EQUATE IT$SETCOLOR TO 4 ;* Set mono attribute to specified colours
|
|
EQUATE IT$DEFCOLOR TO 5 ;* Set all attributes to default colours
|
|
EQUATE IT$NORMAL.ATT TO 10 ;* Mono normal rendition
|
|
EQUATE IT$ULINE.ATT TO 11 ;* Mono underline rendition
|
|
EQUATE IT$REVERSE.ATT TO 12 ;* Mono reverse video rendition
|
|
EQUATE IT$HALFINT.ATT TO 13 ;* Mono half intensity rendition
|
|
EQUATE IT$BLINK.ATT TO 14 ;* Mono blinking rendition
|
|
|
|
* Subkeys for COMO support
|
|
|
|
EQUATE COMO$ON TO 1
|
|
EQUATE COMO$INUSE TO 2
|
|
EQUATE COMO$APPEND TO 3
|
|
EQUATE COMO$PAUSE TO 4
|
|
EQUATE COMO$CONTINUE TO 5
|
|
EQUATE COMO$OFF TO 6
|
|
|
|
* END-CODE
|