21e325b27a
* NEW: Put the old examples in '/trunk/app/examples'. git-svn-id: svn://localhost/gambas/trunk@6724 867c0c6c-44f3-4631-809d-bfa615b0a4ec
162 lines
2.2 KiB
Text
162 lines
2.2 KiB
Text
' Gambas class file
|
|
|
|
|
|
Private $hProcess As Process
|
|
Private $sText As String
|
|
|
|
Static Public Sub Main()
|
|
|
|
Dim hForm As Form
|
|
|
|
hForm = New FConsole
|
|
hForm.Show
|
|
|
|
End
|
|
|
|
|
|
Public Sub _new()
|
|
|
|
$hProcess = Exec ["bash", "--noediting"] For Input Output As "Process"
|
|
|
|
End
|
|
|
|
|
|
Public Sub Form_Close()
|
|
|
|
$hProcess.Kill
|
|
|
|
End
|
|
|
|
|
|
Public Sub Process_Read()
|
|
|
|
Dim sStr As String
|
|
|
|
'Debug Eof(Last);; Lof(Last);;
|
|
'While Not sStr
|
|
Read #$hProcess, sStr, -256
|
|
'Wend
|
|
'Error sStr
|
|
$sText = $sText & sStr
|
|
'Debug Quote(sStr)
|
|
UpdateConsole
|
|
|
|
End
|
|
|
|
|
|
Public Sub Process_Error(sStr As String)
|
|
|
|
$sText = $sText & sStr
|
|
UpdateConsole
|
|
|
|
End
|
|
|
|
Private Sub UpdateConsole()
|
|
|
|
Dim iPos As Integer
|
|
Dim sStr As String
|
|
|
|
While Len($sText)
|
|
|
|
iPos = InStr($sText, "\n")
|
|
If iPos = 0 Then iPos = Len($sText)
|
|
|
|
sStr = Normalize(Left$($sText, iPos))
|
|
'Debug sStr
|
|
$sText = Mid$($sText, iPos + 1)
|
|
|
|
txtConsole.Pos = txtConsole.Length
|
|
txtConsole.Insert(sStr)
|
|
|
|
Wend
|
|
|
|
End
|
|
|
|
|
|
|
|
Public Sub Process_Kill()
|
|
|
|
'hProcess = NULL
|
|
Try Me.Close
|
|
|
|
End
|
|
|
|
|
|
|
|
Public Sub txtCommand_Activate()
|
|
|
|
Dim sLig As String
|
|
|
|
sLig = txtCommand.Text & gb.NewLine
|
|
|
|
'txtConsole.Pos = txtConsole.Length
|
|
'txtConsole.Insert("# " & sLig)
|
|
txtCommand.Clear
|
|
|
|
sLig = Conv$(sLig, Desktop.Charset, System.Charset)
|
|
|
|
Print #$hProcess, sLig;
|
|
|
|
End
|
|
|
|
|
|
Static Private Function Normalize(sStr As String) As String
|
|
|
|
Dim sNorm As String
|
|
Dim iInd As Integer
|
|
Dim iCar As Integer
|
|
Dim bEsc As Boolean
|
|
|
|
' For iInd = 1 To Len(sStr)
|
|
'
|
|
' iCar = Asc(sStr, iInd)
|
|
'
|
|
' If iCar = 27 Then
|
|
' bEsc = True
|
|
' Continue
|
|
' Endif
|
|
'
|
|
' If bEsc Then
|
|
' If iCar < 32 Then bEsc = False
|
|
' Continue
|
|
' Endif
|
|
'
|
|
' If iCar < 32 And iCar <> 10 Then iCar = 32
|
|
'
|
|
' sNorm = sNorm & Chr$(iCar)
|
|
'
|
|
' Next
|
|
|
|
sNorm = sStr
|
|
|
|
If System.Charset = Desktop.Charset Then
|
|
Return sNorm
|
|
Else
|
|
Return Conv$(sNorm, System.Charset, Desktop.Charset)
|
|
Endif
|
|
|
|
End
|
|
|
|
Public Sub Form_Open()
|
|
|
|
txtCommand.SetFocus
|
|
|
|
End
|
|
|
|
Public Sub btnCtrlC_Click()
|
|
|
|
Print #$hProcess, Chr$(3);
|
|
|
|
End
|
|
|
|
Public Sub btnCtrlD_Click()
|
|
|
|
Print #$hProcess, Chr$(4);
|
|
|
|
End
|
|
|
|
Public Sub btnCtrlZ_Click()
|
|
|
|
Print #$hProcess, Chr$(26);
|
|
|
|
End
|