Initial commit
This commit is contained in:
commit
83f1a1f3e1
5
.gitignore
vendored
Normal file
5
.gitignore
vendored
Normal file
@ -0,0 +1,5 @@
|
||||
*.exe
|
||||
*.pbi.cfg
|
||||
*.pb.cfg
|
||||
*.txt
|
||||
.idea/
|
||||
83
AinsiEscapeCode.pbi
Normal file
83
AinsiEscapeCode.pbi
Normal file
@ -0,0 +1,83 @@
|
||||
;{- Code Header
|
||||
; ==- Basic Info -================================
|
||||
; Name: AinsiEscapeCode.pbi
|
||||
; Version: N/A
|
||||
; Author: Herwin Bozet
|
||||
;
|
||||
; ==- Compatibility -=============================
|
||||
; Compiler version: PureBasic 5.70 (x86/x64)
|
||||
; Operating system: Windows 10 21H1 (Previous versions untested)
|
||||
;
|
||||
; ==- Links & License -===========================
|
||||
; License: Unlicense
|
||||
;}
|
||||
|
||||
;- Module Declaration
|
||||
|
||||
DeclareModule AinsiEscapeCode
|
||||
;-> Documentation
|
||||
; * https://docs.microsoft.com/en-us/windows/console/console-virtual-terminal-sequences
|
||||
; * https://invisible-island.net/xterm/ctlseqs/ctlseqs.html
|
||||
; * https://en.wikipedia.org/wiki/ANSI_escape_code
|
||||
|
||||
|
||||
;-> Constants
|
||||
|
||||
;-> > Control characters
|
||||
#BEL$ = #BEL$
|
||||
#BS$ = #BS$
|
||||
#HT$ = #TAB$
|
||||
#LF$ = #LF$
|
||||
#FF$ = #FF$
|
||||
#CR$ = #CR$
|
||||
#ESC$ = #ESC$
|
||||
|
||||
;-> > Operators
|
||||
#CSI$ = "["
|
||||
#OSC$ = "]"
|
||||
|
||||
;-> > Cursor
|
||||
#CUU$ = "A" ; Cursor Up by n
|
||||
#CUD$ = "B" ; Cursor Down by n
|
||||
#CUF$ = "C" ; Cursor Forward (Right) by n
|
||||
#CUB$ = "D" ; Cursor Backward (Left) by n
|
||||
|
||||
#CNL$ = "E" ; Cursor Next Line by n
|
||||
#CPL$ = "F" ; Cursor Previous Line by n
|
||||
|
||||
|
||||
;-> Buffer ?
|
||||
#ED$ = "J" ; Erase in Display
|
||||
#ED_0 = 0 ; 0 from cursor to end of screen
|
||||
#ED_1 = 1 ; 1 from cursor to beginning of the screen
|
||||
#ED_2 = 2 ; 2 clear entire screen (May move to 0:0)
|
||||
#ED_3 = 3 ; 3 clear entire screen and lines saved in the scrollback buffer. (Does not work on Windows as of 21H1 in Windows Terminal)
|
||||
|
||||
|
||||
;-> Queries
|
||||
#DECXCPR$ = "6n" ; Emit the cursor position as: ESC [ <r> ; <c> R Where <r> = cursor row and <c> = cursor column
|
||||
|
||||
#DECSC$ = "7" ; Save Cursor Position in Memory**
|
||||
#DECSR$ = "8" ; Restore Cursor Position from Memory**
|
||||
|
||||
#RI$ = "M" ; Reverse Index – Performs the reverse operation of \n, moves cursor up one line, maintains horizontal position, scrolls buffer if necessary*
|
||||
|
||||
|
||||
; https://invisible-island.net/xterm/ctlseqs/ctlseqs.html
|
||||
|
||||
; https://docs.microsoft.com/en-us/windows/console/console-virtual-terminal-sequences#cursor-positioning
|
||||
#CHA$ = "G" ; Cursor Horizontal Absolute Cursor moves to <n>th position horizontally in the current line
|
||||
#VPA$ = "d" ; Vertical Line Position Absolute Cursor moves to the <n>th position vertically in the current column
|
||||
#CUP$ = "H" ; Cursor Position *Cursor moves to <x>; <y> coordinate within the viewport, where <x> is the column of the <y> line
|
||||
#HVP$ = "f" ; Horizontal Vertical Position *Cursor moves to <x>; <y> coordinate within the viewport, where <x> is the column of the <y> line
|
||||
#ANSISYSSC_DECSC$ = "s" ; Save Cursor – Ansi.sys emulation **With no parameters, performs a save cursor operation like DECSC
|
||||
#ANSISYSSC_DECRC$ = "u" ; Restore Cursor – Ansi.sys emulation **With no parameters, performs a restore cursor operation like DECRC
|
||||
|
||||
EndDeclareModule
|
||||
|
||||
|
||||
;- Module Definition
|
||||
|
||||
Module AinsiEscapeCode
|
||||
; Nothing...
|
||||
EndModule
|
||||
188
Console.pbi
Normal file
188
Console.pbi
Normal file
@ -0,0 +1,188 @@
|
||||
;{- Code Header
|
||||
; ==- Basic Info -================================
|
||||
; Name: Console.pbi
|
||||
; Version: N/A
|
||||
; Author: Herwin Bozet
|
||||
;
|
||||
; ==- Compatibility -=============================
|
||||
; Compiler version: PureBasic 5.70 (x86/x64)
|
||||
; Operating system: Windows 10 21H1 (Previous versions untested)
|
||||
;
|
||||
; ==- Links & License -===========================
|
||||
; License: Unlicense
|
||||
; MSDN: https://docs.microsoft.com/en-us/windows/console/console-functions
|
||||
;}
|
||||
|
||||
;- Module declaration
|
||||
|
||||
DeclareModule Console
|
||||
;-> Structures
|
||||
|
||||
Structure CursorPosition
|
||||
X.l
|
||||
Y.l
|
||||
EndStructure
|
||||
|
||||
|
||||
;-> Constants
|
||||
|
||||
CompilerIf #PB_Compiler_Console
|
||||
#IsConsoleApp = #True
|
||||
CompilerElse
|
||||
#IsConsoleApp = #False
|
||||
CompilerEndIf
|
||||
|
||||
; https://docs.microsoft.com/en-us/windows/console/setconsolemode
|
||||
; https://docs.microsoft.com/en-us/windows/console/getconsolemode
|
||||
; For input handles
|
||||
#ENABLE_PROCESSED_INPUT = $0001
|
||||
#ENABLE_LINE_INPUT = $0002
|
||||
#ENABLE_ECHO_INPUT = $0004
|
||||
#ENABLE_WINDOW_INPUT = $0008
|
||||
#ENABLE_MOUSE_INPUT = $0010
|
||||
#ENABLE_INSERT_MODE = $0020
|
||||
#ENABLE_QUICK_EDIT_MODE = $0040
|
||||
#ENABLE_VIRTUAL_TERMINAL_INPUT = $0200
|
||||
|
||||
; For buffer/output? handles
|
||||
#ENABLE_PROCESSED_OUTPUT = $0001
|
||||
#ENABLE_WRAP_AT_EOL_OUTPUT = $0002
|
||||
#ENABLE_VIRTUAL_TERMINAL_PROCESSING = $0004
|
||||
#DISABLE_NEWLINE_AUTO_RETURN = $0008
|
||||
#ENABLE_LVB_GRID_WORLDWIDE = $0010
|
||||
|
||||
|
||||
;-> Typedefs Macros
|
||||
|
||||
; DWORD and HANDLE types from MS libraries
|
||||
Macro DWORD : l : EndMacro
|
||||
Macro HANDLE : i : EndMacro
|
||||
|
||||
|
||||
;-> Procedure Declaration
|
||||
|
||||
Declare.s GetConsoleTitle(MaxLength.i = 255)
|
||||
Macro SetConsoleTitle(Title) : ConsoleTitle(Title) : EndMacro
|
||||
|
||||
Declare.b AddConsoleModeFlag(Flags.DWORD = #Null, ConsoleHandle.Console::HANDLE = #Null)
|
||||
Declare.b RemoveConsoleModeFlag(Flags.DWORD = #Null, ConsoleHandle.Console::HANDLE = #Null)
|
||||
|
||||
; May fail on Windows if the program's output is piped.
|
||||
Macro EnableVirtualTerminalProcessing() : Console::AddConsoleModeFlag(Console::#ENABLE_VIRTUAL_TERMINAL_PROCESSING, #Null) : EndMacro
|
||||
Macro DisableVirtualTerminalProcessing() : Console::RemoveConsoleModeFlag(Console::#ENABLE_VIRTUAL_TERMINAL_PROCESSING, #Null) : EndMacro
|
||||
|
||||
|
||||
;-> Generic Macros
|
||||
|
||||
; Macro for #IsConsoleApp
|
||||
Macro IsConsoleApp() : #IsConsoleApp : EndMacro
|
||||
|
||||
; https://docs.microsoft.com/en-us/windows/console/getstdhandle
|
||||
Macro GetOutputHandle() : GetStdHandle_( #STD_OUTPUT_HANDLE ) : EndMacro
|
||||
Macro GetInputHandle() : GetStdHandle_( #STD_INPUT_HANDLE ) : EndMacro
|
||||
Macro GetErrorHandle() : GetStdHandle_( #STD_ERROR_HANDLE ) : EndMacro
|
||||
EndDeclareModule
|
||||
|
||||
|
||||
;- Module Definition
|
||||
|
||||
Module Console
|
||||
;-> Compiler Directives
|
||||
|
||||
EnableExplicit
|
||||
|
||||
|
||||
;-> Procedure Definition
|
||||
|
||||
Procedure.s GetConsoleTitle(MaxLength.i = 255)
|
||||
Protected *ConsoleTitleBuffer = AllocateMemory(MaxLength)
|
||||
Protected ConsoleTitle$ = #Null$
|
||||
|
||||
If *ConsoleTitleBuffer
|
||||
Protected ConsoleTitleLength.l = GetConsoleTitle_(*ConsoleTitleBuffer, MaxLength)
|
||||
ConsoleTitle$ = PeekS(*ConsoleTitleBuffer, ConsoleTitleLength)
|
||||
FreeMemory(*ConsoleTitleBuffer)
|
||||
EndIf
|
||||
|
||||
ProcedureReturn ConsoleTitle$
|
||||
EndProcedure
|
||||
|
||||
Procedure.b AddConsoleModeFlag(Flags.DWORD = #Null, ConsoleHandle.Console::HANDLE = #Null)
|
||||
Protected ConsoleMode.DWORD = 0
|
||||
|
||||
If ConsoleHandle = #Null
|
||||
ConsoleHandle = GetOutputHandle()
|
||||
EndIf
|
||||
|
||||
If GetConsoleMode_(ConsoleHandle, @ConsoleMode)
|
||||
ConsoleMode = ConsoleMode | Flags
|
||||
|
||||
If SetConsoleMode_(ConsoleHandle, ConsoleMode)
|
||||
ProcedureReturn #True
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
Debug GetLastError_()
|
||||
ProcedureReturn #False
|
||||
EndProcedure
|
||||
|
||||
Procedure.b RemoveConsoleModeFlag(Flags.DWORD = #Null, ConsoleHandle.Console::HANDLE = #Null)
|
||||
Protected ConsoleMode.DWORD = 0
|
||||
|
||||
If ConsoleHandle = #Null
|
||||
ConsoleHandle = GetOutputHandle()
|
||||
EndIf
|
||||
|
||||
If GetConsoleMode_(ConsoleHandle, @ConsoleMode)
|
||||
ConsoleMode = ConsoleMode & ~Flags
|
||||
|
||||
If SetConsoleMode_(ConsoleHandle, ConsoleMode)
|
||||
ProcedureReturn #True
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
Debug GetLastError_()
|
||||
ProcedureReturn #False
|
||||
EndProcedure
|
||||
|
||||
; ???
|
||||
EndModule
|
||||
|
||||
|
||||
;- Tests
|
||||
|
||||
CompilerIf #PB_Compiler_IsMainFile
|
||||
EnableExplicit
|
||||
|
||||
If Not OpenConsole("Console.pbi")
|
||||
Debug "Can't open console !"
|
||||
End 1
|
||||
EndIf
|
||||
|
||||
;Debug "Console title: "+Console::GetConsoleTitle()
|
||||
|
||||
If Console::EnableVirtualTerminalProcessing()
|
||||
PrintN("Virtual terminal processing activated !"+#CRLF$)
|
||||
Else
|
||||
PrintN("Virtual terminal processing couldn't be activated !"+#CRLF$)
|
||||
EndIf
|
||||
|
||||
Console::CursorSave()
|
||||
PrintN("#####")
|
||||
PrintN("#####")
|
||||
PrintN("#####")
|
||||
Console::CursorUp()
|
||||
Print("A")
|
||||
Console::CursorRestore()
|
||||
Print("B")
|
||||
|
||||
|
||||
If Console::DisableVirtualTerminalProcessing()
|
||||
PrintN("Virtual terminal processing deactivated !"+#CRLF$)
|
||||
Else
|
||||
PrintN("Virtual terminal processing couldn't be deactivated !"+#CRLF$)
|
||||
EndIf
|
||||
|
||||
Print("Press enter key to exit...")
|
||||
Input()
|
||||
CompilerEndIf
|
||||
68
Examples/VirtualTerminal/Basic.pb
Normal file
68
Examples/VirtualTerminal/Basic.pb
Normal file
@ -0,0 +1,68 @@
|
||||
;{- Code Header
|
||||
; ==- Basic Info -================================
|
||||
; Name: VirtualTerminal/Basic.pb
|
||||
; Author: Herwin Bozet
|
||||
;
|
||||
; ==- Links & License -===========================
|
||||
; License: Unlicense
|
||||
;}
|
||||
|
||||
;- Compiler Directives
|
||||
|
||||
EnableExplicit
|
||||
|
||||
XIncludeFile "../../VirtualTerminal.pbi"
|
||||
|
||||
CompilerIf #PB_Compiler_ExecutableFormat <> #PB_Compiler_Console
|
||||
CompilerWarning "You should preferably compile the example as a console app !"
|
||||
CompilerEndIf
|
||||
|
||||
|
||||
;- Code
|
||||
|
||||
; Safely openning the console
|
||||
If OpenConsole("My first title")
|
||||
If Not VirtualTerminal::EnableVirtualTerminalProcessing()
|
||||
VirtualTerminal::WriteErrorN("Unable to activate virtual terminal processing, output is likely piped !")
|
||||
CloseConsole()
|
||||
End 2
|
||||
EndIf
|
||||
Else
|
||||
Debug "Can't open console !"
|
||||
End 1
|
||||
EndIf
|
||||
|
||||
; Clearing the console
|
||||
VirtualTerminal::ClearDisplay(AinsiEscapeCode::#ED_2) ; 2 or +ClearDisplayFull() also works just fine
|
||||
VirtualTerminal::CursorTo(0, 0)
|
||||
|
||||
; Intro
|
||||
VirtualTerminal::WriteOutputN("-===- Welcome to the 'Basic' demo for 'VirtualTerminal' -===-")
|
||||
VirtualTerminal::WriteOutputN("Press enter to start...")
|
||||
Input()
|
||||
|
||||
; Basic info
|
||||
VirtualTerminal::WriteOutputN("-=- Basic info -=-")
|
||||
VirtualTerminal::WriteOutputN("Terminal size: "+Str(VirtualTerminal::GetTerminalWidth())+"x"+Str(VirtualTerminal::GetTerminalHeight()))
|
||||
VirtualTerminal::WriteOutputN("Press enter to continue...")
|
||||
Input()
|
||||
|
||||
; Title demo
|
||||
VirtualTerminal::WriteOutputN("-=- Title -=-")
|
||||
VirtualTerminal::WriteOutputN("Press enter to change the title...")
|
||||
Input()
|
||||
VirtualTerminal::SetWindowTitle("My new title")
|
||||
|
||||
; ???
|
||||
|
||||
; End
|
||||
VirtualTerminal::WriteOutputN("-=- End of the demo -=-")
|
||||
Print("Press enter to clear the terminal and exit...")
|
||||
Input()
|
||||
VirtualTerminal::ClearDisplayFull()
|
||||
VirtualTerminal::CursorTo(0, 0)
|
||||
|
||||
; Quitting safely
|
||||
VirtualTerminal::DisableVirtualTerminalProcessing()
|
||||
CloseConsole()
|
||||
End 0
|
||||
24
LICENSE
Normal file
24
LICENSE
Normal file
@ -0,0 +1,24 @@
|
||||
This is free and unencumbered software released into the public domain.
|
||||
|
||||
Anyone is free to copy, modify, publish, use, compile, sell, or
|
||||
distribute this software, either in source code form or as a compiled
|
||||
binary, for any purpose, commercial or non-commercial, and by any
|
||||
means.
|
||||
|
||||
In jurisdictions that recognize copyright laws, the author or authors
|
||||
of this software dedicate any and all copyright interest in the
|
||||
software to the public domain. We make this dedication for the benefit
|
||||
of the public at large and to the detriment of our heirs and
|
||||
successors. We intend this dedication to be an overt act of
|
||||
relinquishment in perpetuity of all present and future rights to this
|
||||
software under copyright law.
|
||||
|
||||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||||
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
||||
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
||||
IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR
|
||||
OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
|
||||
ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
|
||||
OTHER DEALINGS IN THE SOFTWARE.
|
||||
|
||||
For more information, please refer to <http://unlicense.org/>
|
||||
215
VirtualTerminal.pbi
Normal file
215
VirtualTerminal.pbi
Normal file
@ -0,0 +1,215 @@
|
||||
;{- Code Header
|
||||
; ==- Basic Info -================================
|
||||
; Name: VirtualTerminal.pbi
|
||||
; Version: N/A
|
||||
; Author: Herwin Bozet
|
||||
;
|
||||
; ==- Compatibility -=============================
|
||||
; Compiler version: PureBasic 5.70 (x86/x64)
|
||||
; Operating system: Windows 10 21H1 (Previous versions untested)
|
||||
;
|
||||
; ==- Links & License -===========================
|
||||
; License: Unlicense
|
||||
;}
|
||||
|
||||
;- Compiler directives
|
||||
|
||||
XIncludeFile "./Console.pbi"
|
||||
XIncludeFile "./AinsiEscapeCode.pbi"
|
||||
|
||||
|
||||
;- Module declaration
|
||||
|
||||
DeclareModule VirtualTerminal
|
||||
;-> Macros
|
||||
|
||||
;-> > Console.pbi macros
|
||||
|
||||
Macro IsConsoleApp() : Console::#IsConsoleApp : EndMacro
|
||||
|
||||
Macro GetOutputHandle() : Console::GetOutputHandle() : EndMacro
|
||||
Macro GetInputHandle() : Console::GetInputHandle() : EndMacro
|
||||
Macro GetErrorHandle() : Console::GetErrorHandle() : EndMacro
|
||||
|
||||
;-> > Platform-dependant Macros
|
||||
|
||||
CompilerIf #PB_Compiler_OS = #PB_OS_Windows
|
||||
Macro EnableVirtualTerminalProcessing() : Console::EnableVirtualTerminalProcessing() : EndMacro
|
||||
Macro DisableVirtualTerminalProcessing() : Console::DisableVirtualTerminalProcessing() : EndMacro
|
||||
CompilerElse
|
||||
Declare.b EnableVirtualTerminalProcessing()
|
||||
Declare.b DisableVirtualTerminalProcessing()
|
||||
CompilerEndIf
|
||||
|
||||
;-> > Generic Macros
|
||||
|
||||
Macro WriteOutput(Message) : Print(Message) : EndMacro
|
||||
Macro WriteOutputN(Message) : PrintN(Message) : EndMacro
|
||||
Macro WriteErrorN(Message) : ConsoleError(Message) : EndMacro
|
||||
|
||||
;-> > Ainsi Escape Code Macros
|
||||
|
||||
;-> > > Cursor
|
||||
Macro CursorUp() : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CUU$) : EndMacro
|
||||
Macro CursorDown() : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CUD$) : EndMacro
|
||||
Macro CursorRight() : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CUF$) : EndMacro
|
||||
Macro CursorLeft() : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CUB$) : EndMacro
|
||||
Macro CursorNextLine(Amount) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CNL$) : EndMacro
|
||||
Macro CursorPreviousLine(Amount) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CPL$) : EndMacro
|
||||
|
||||
Macro CursorUpBy(Amount) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CSI$ + Str(Amount) + AinsiEscapeCode::#CUU$) : EndMacro
|
||||
Macro CursorDownBy(Amount) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CSI$ + Str(Amount) + AinsiEscapeCode::#CUD$) : EndMacro
|
||||
Macro CursorRightBy(Amount) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CSI$ + Str(Amount) + AinsiEscapeCode::#CUF$) : EndMacro
|
||||
Macro CursorLeftBy(Amount) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CSI$ + Str(Amount) + AinsiEscapeCode::#CUB$) : EndMacro
|
||||
Macro CursorLineDownBy(Amount) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CSI$ + Str(Amount) + AinsiEscapeCode::#CNL$) : EndMacro
|
||||
Macro CursorLineUpBy(Amount) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CSI$ + Str(Amount) + AinsiEscapeCode::#CPL$) : EndMacro
|
||||
|
||||
Macro CursorToColumn(ColumnNumber) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CSI$ + Str(ColumnNumber) + AinsiEscapeCode::#CHA$) : EndMacro
|
||||
Macro CursorToLine(LineNumber) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CSI$ + Str(LineNumber) + AinsiEscapeCode::#VPA$) : EndMacro
|
||||
|
||||
Macro CursorTo(X, Y) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CSI$ + Str(Y) + ";" + Str(X) + AinsiEscapeCode::#CUP$) : EndMacro
|
||||
|
||||
Macro CursorFlip() : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#RI$) : EndMacro
|
||||
Macro CursorSave() : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#DECSC$) : EndMacro
|
||||
Macro CursorRestore() : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#DECSR$) : EndMacro
|
||||
|
||||
;-> > > Others
|
||||
Macro ClearDisplay(Mode = AinsiEscapeCode::#ED_0) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#CSI$ + Str(Mode) + AinsiEscapeCode::#ED$) : EndMacro
|
||||
Macro ClearDisplayToEnd() : VirtualTerminal::ClearDisplay(AinsiEscapeCode::#ED_0) : EndMacro
|
||||
Macro ClearDisplayToStart() : VirtualTerminal::ClearDisplay(AinsiEscapeCode::#ED_1) : EndMacro
|
||||
Macro ClearDisplayFull() : VirtualTerminal::ClearDisplay(AinsiEscapeCode::#ED_2) : EndMacro
|
||||
Macro ClearDisplayAbsolute() : VirtualTerminal::ClearDisplay(AinsiEscapeCode::#ED_3) : EndMacro
|
||||
|
||||
;-> > > Window
|
||||
Macro SetWindowTitleAndIcon(Title) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#OSC$ + "0;" + Left(Title, 255) + AinsiEscapeCode::#BEL$) : EndMacro
|
||||
Macro SetWindowTitle(Title) : VirtualTerminal::WriteOutput(#ESC$ + AinsiEscapeCode::#OSC$ + "2;" + Left(Title, 255) + AinsiEscapeCode::#BEL$) : EndMacro
|
||||
|
||||
|
||||
;-> Procedure Declaration (See the "Platform-dependant Macros" section)
|
||||
|
||||
Declare.b GetCursorPosition(*CursorPosition.Console::CursorPosition, TimeoutMs.i = 1)
|
||||
|
||||
Declare.i GetTerminalWidth(RestorePosition.b = #True)
|
||||
Declare.i GetTerminalHeight(RestorePosition.b = #True)
|
||||
EndDeclareModule
|
||||
|
||||
|
||||
;- Module Definition
|
||||
|
||||
Module VirtualTerminal
|
||||
;-> Compiler Directives
|
||||
|
||||
EnableExplicit
|
||||
|
||||
|
||||
;-> Procedure Definition
|
||||
|
||||
CompilerIf Not #PB_Compiler_OS = #PB_OS_Windows
|
||||
; FIXME: May not work if piped, not sure !
|
||||
Procedure.b EnableVirtualTerminalProcessing() : ProcedureReturn #True : EndIf
|
||||
Procedure.b DisableVirtualTerminalProcessing() : ProcedureReturn #True : EndIf
|
||||
CompilerEndIf
|
||||
|
||||
Procedure.b GetCursorPosition(*CursorPosition.Console::CursorPosition, TimeoutMs.i = 1)
|
||||
Protected StartTime.q
|
||||
Protected Input$ = #Null$
|
||||
|
||||
If *CursorPosition
|
||||
WriteOutput(#ESC$ + AinsiEscapeCode::#CSI$ + AinsiEscapeCode::#DECXCPR$)
|
||||
|
||||
; Waiting for stuff to come in...
|
||||
StartTime = ElapsedMilliseconds()
|
||||
Repeat
|
||||
Input$ = Inkey()
|
||||
Until Input$ <> #Null$ Or ((TimeoutMs <> -1 And (ElapsedMilliseconds() - StartTime > TimeoutMs)) Or (TimeoutMs = -1))
|
||||
|
||||
Repeat
|
||||
Protected NewChar$ = Inkey()
|
||||
If NewChar$ <> #Null$
|
||||
Input$ = Input$ + NewChar$
|
||||
Else
|
||||
Break
|
||||
EndIf
|
||||
ForEver
|
||||
|
||||
Protected.i ResponseCodeStart = FindString(Input$, "[") + 1
|
||||
Input$ = Mid(Input$, ResponseCodeStart, FindString(Input$, "R", ResponseCodeStart) - ResponseCodeStart)
|
||||
|
||||
If FindString(Input$, ";") >= 2
|
||||
*CursorPosition\Y = Val(StringField(Input$, 1, ";"))
|
||||
*CursorPosition\X = Val(StringField(Input$, 2, ";"))
|
||||
ProcedureReturn #True
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
ProcedureReturn #False
|
||||
EndProcedure
|
||||
|
||||
Procedure.i GetTerminalWidth(RestorePosition.b = #True)
|
||||
Define OriginalCursorPosition.Console::CursorPosition
|
||||
Define MeasuringCursorPosition.Console::CursorPosition
|
||||
|
||||
If RestorePosition
|
||||
VirtualTerminal::GetCursorPosition(@OriginalCursorPosition)
|
||||
EndIf
|
||||
|
||||
VirtualTerminal::CursorTo(32767, 0)
|
||||
VirtualTerminal::GetCursorPosition(@MeasuringCursorPosition)
|
||||
|
||||
If RestorePosition
|
||||
VirtualTerminal::CursorTo(OriginalCursorPosition\X, OriginalCursorPosition\Y)
|
||||
EndIf
|
||||
|
||||
ProcedureReturn MeasuringCursorPosition\X
|
||||
EndProcedure
|
||||
|
||||
Procedure.i GetTerminalHeight(RestorePosition.b = #True)
|
||||
Define OriginalCursorPosition.Console::CursorPosition
|
||||
Define MeasuringCursorPosition.Console::CursorPosition
|
||||
|
||||
If RestorePosition
|
||||
VirtualTerminal::GetCursorPosition(@OriginalCursorPosition)
|
||||
EndIf
|
||||
|
||||
VirtualTerminal::CursorTo(0, 32767)
|
||||
VirtualTerminal::GetCursorPosition(@MeasuringCursorPosition)
|
||||
|
||||
If RestorePosition
|
||||
VirtualTerminal::CursorTo(OriginalCursorPosition\X, OriginalCursorPosition\Y)
|
||||
EndIf
|
||||
|
||||
ProcedureReturn MeasuringCursorPosition\Y
|
||||
EndProcedure
|
||||
EndModule
|
||||
|
||||
|
||||
;- Tests
|
||||
|
||||
CompilerIf #PB_Compiler_IsMainFile
|
||||
EnableExplicit
|
||||
|
||||
If OpenConsole("Console.pbi")
|
||||
If Not VirtualTerminal::EnableVirtualTerminalProcessing()
|
||||
VirtualTerminal::WriteErrorN("Unable to activate virtual terminal processing, output is likely piped !")
|
||||
CloseConsole()
|
||||
End 2
|
||||
EndIf
|
||||
Else
|
||||
Debug "Can't open console !"
|
||||
End 1
|
||||
EndIf
|
||||
|
||||
VirtualTerminal::ClearDisplay(AinsiEscapeCode::#ED_2)
|
||||
VirtualTerminal::CursorTo(0, 0)
|
||||
PrintN("-==- Title Bar -==-")
|
||||
|
||||
Print("Size: "+VirtualTerminal::GetTerminalWidth()+"x"+VirtualTerminal::GetTerminalHeight())
|
||||
|
||||
;Print("Press enter key to exit...")
|
||||
Debug Input()
|
||||
;FreeMemory(*Buffer)
|
||||
|
||||
VirtualTerminal::DisableVirtualTerminalProcessing()
|
||||
CloseConsole()
|
||||
End 0
|
||||
CompilerEndIf
|
||||
Loading…
Reference in New Issue
Block a user