Files
linguist/samples/Clarion/ConsoleSupport.inc
2014-11-27 13:41:21 +01:00

49 lines
1.6 KiB
PHP

_ConsoleSupport_ EQUATE(1)
HANDLE EQUATE(UNSIGNED)
DWORD EQUATE(ULONG)
INVALID_HANDLE_VALUE EQUATE(-1)
INVALID_OTHER EQUATE(-2)
NULL EQUATE(0)
!************************************************************************************************************
! Console-specific EQUATEs
!************************************************************************************************************
ENABLE_PROCESSED_INPUT EQUATE(1) ! Input Mode flags
ENABLE_LINE_INPUT EQUATE(2)
ENABLE_ECHO_INPUT EQUATE(4)
ENABLE_WINDOW_INPUT EQUATE(8)
ENABLE_MOUSE_INPUT EQUATE(16)
ENABLE_PROCESSED_OUTPUT EQUATE(1) ! Output Mode flags
ENABLE_WRAP_AT_EOL_OUTPUT EQUATE(2)
STD_INPUT_HANDLE EQUATE(-10) ! Standard input and output handles
STD_OUTPUT_HANDLE EQUATE(-11)
STD_ERROR_HANDLE EQUATE(-12)
CONSOLE_TEXTMODE_BUFFER EQUATE(1) ! The type of console screen buffer to create
ATTACH_PARENT_PROCESS EQUATE(-1)
ConsoleSupport Class(),Type,Module('ConsoleSupport.Clw'),LINK('ConsoleSupport.Clw',1)
! Properties
InputHandle Handle
OutputHandle Handle
TextBuffer CString(2048)
OutBuffer CString(2048)
InBuffer CString(2048)
BytesWritten Long
BytesRead Long
Prefix CSTRING(21)
! Methods
Construct PROCEDURE
Destruct PROCEDURE () ,VIRTUAL
Init PROCEDURE () ,BYTE,PROC,VIRTUAL
WriteLine PROCEDURE (STRING pText) ,BYTE,PROC,VIRTUAL
ReadKey PROCEDURE () ,STRING,PROC,VIRTUAL
END
!_EndOfInclude_