Terminal with Shell

Post

Posted
Rating:
#1 (In Topic #448)
cage
Avatar
Regular
cage is in the usergroup ‘Regular’
Dose anyone know how to determine when a shell process ends using the vt100 terminal. This is the command I am using in a experimental program I am working on.

Code (gambas)

  1. TerminalView1.Shell("ls -a")

Any suggestions will be very much welcome
Online now: No Back to the top

Post

Posted
Rating:
#2
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
I found the way to use Terminal view like that was to use the Process.State to see if it's active.
I also had a job getting standard commands to do anything with the Shell or Exec methods.
Only got it to work by first issuing it the 'bash' command, then Input my command followed by ;exit
then a shell is opened , active till the command is done then quits. process state is 1 while bash shell is active
and goes to 0 after exiting.

Not sure if that's the right way to do it but after many hours experimenting that's the workaround i came up with.

(another option is to periodcally read the TerminalView.Text property and process the text (should be something to compare during and after command)


I did something like this…

Code

Public p as Process
Public t as Timer

Public Sub Form_Open()
t = New Timer As "Tim"
t.Delay = 1000
t.Enabled = True
End

Public Sub Tim_Timer()
If p Then
debug p.State  ' Here p.State is either 1 or 0 depending on shell being alive (not exited)
If p.State = 0 Then p.Kill()
Endif

End

Public Sub Button1_Click()
If p Then p.kill  ' Just in case
p = TerminalView1.Exec(["bash"])  ' get a valid shell
TerminalView1.Input("ls -a;exit")  ' send command followed by ;exit then the process stops and p.state becomes 0
End

Not sure if that helps fella
Online now: No Back to the top

Post

Posted
Rating:
#3
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
I could not get this to work but BruceSteers pointed me in the right direction. I could not get BruceSteers version to work until I added '\n' to the command. Anyway here is my version. Copy the code to a Graphical Application and add the 'gb.form.terminal' component. Hope it helps.

Code (gambas)

  1. ''NEEDS gb.form.terminal
  2.  
  3. TerminalView1 As TerminalView
  4. ComboBox1 As ComboBox
  5. pProcess As Process
  6. Spring1 As Spring
  7. Button1 As Button
  8. Timer1 As Timer
  9. HBox1 As HBox
  10. HBox2 As HBox
  11.  
  12. Public Sub Form_Open()
  13.  
  14.   Setup
  15.   pProcess = TerminalView1.Exec(["bash"])
  16.  
  18.  
  19. Public Sub Timer1_Timer()
  20.  
  21.   If pProcess Then
  22.     If pProcess.State = Process.Stopped Then
  23.       Timer1.Stop
  24.       Message("Finished", "OK")
  25.       TerminalView1.Clear
  26.       pProcess = TerminalView1.Exec(["bash"])
  27.       TerminalView1.SetFocus
  28.     End If
  30.  
  32.  
  33. Public Sub Button1_Click()
  34.  
  35.   Timer1.Start
  36.   TerminalView1.Input(ComboBox1.Text & ";exit\n")
  37.  
  39.  
  40. Public Sub Setup() 'This just sets up the Form and its components
  41.  
  42.   With Me
  43.     .H = 448
  44.     .W = 448
  45.     .Padding = 5
  46.     .Arrangement = Arrange.Vertical
  48.  
  49.   With HBox1 = New HBox(Me)
  50.     .Expand = True
  51.     .Padding = 5
  53.  
  54.   With TerminalView1 = New TerminalView(HBox1)
  55.     .Expand = True
  56.     .Blink = True
  58.  
  59.   With HBox2 = New HBox(Me)
  60.     .W = 488
  61.     .H = 28
  63.  
  64.   With ComboBox1 = New ComboBox(HBox2) As "ComboBox1"
  65.     .W = 100
  66.     .ReadOnly = True
  67.     .List = ["ls -Ra", "ls -a", "du", "tree"]
  69.  
  70.   Spring1 = New Spring(hBox2)
  71.  
  72.   With Button1 = New Button(HBox2) As "Button1"
  73.     .W = 90
  74.     .Text = "&Go"
  75.     .Picture = Picture["icon:/22/right"]
  77.  
  78.   With Timer1 = New Timer As "Timer1"
  79.     .Enabled = True
  80.     .Delay = 250
  82.  
Online now: No Back to the top

Post

Posted
Rating:
#4
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
aah lol , yeah don't forget the return key \n  :D
Nice code Cogier :)

You get the gist I hope.

Knowing what the terminal view is actually doing internally (idle or not) while it has an active shell in it seems limited but we can monitor the process.status of whether the shell is active.

so trailing your command with ';exit\n' works for that
(i remembered the \n that time ;) )

I assume you know the standard Shell command ?
I'll not presume to know your reasons for using the terminal view to run ls but if i want to run a shell command like that and get it's output i'd use the internal Shell command
Ie. to get the output from your 'ls -a' command…

Code

Dim ComText As String
Shell "ls -a" Wait To ComText
Print ComText

Advantage here of course is in using the 'Wait' argument or not so your program can either launch a command in the background while it continues or it waits for the shell command to be run before continuing.
Online now: No Back to the top

Post

Posted
Rating:
#5
cage
Avatar
Regular
cage is in the usergroup ‘Regular’
Charlies code did work for me.  I modified the code to meet my needs.  The ls command was one of the commands I was experimenting with.  The goal was to create a program that would use some of the off the wall commands for friends who are not comfortable using the terminal command line.  Personally I have no problem using the terminal command line for things.  Anyways here is my modified code:

Code (gambas)

  1. ' Gambas class file
  2. ' Thanks Charlie for the code
  3. 'NEEDS gb.form.terminal
  4.  
  5. TerminalView1 As TerminalView
  6. pProcess As Process
  7. Timer1 As Timer
  8. HBox1 As HBox
  9. TermCmd As String
  10. CmdNum As Integer
  11.  
  12. Public Sub Form_Open()
  13.  
  14.   Setup
  15.   pProcess = TerminalView1.Exec(["bash"])
  16.  
  18.  
  19. Public Sub Timer1_Timer()
  20.  
  21.   If pProcess Then
  22.     If pProcess.State = Process.Stopped Then
  23.       Timer1.Stop
  24.       If CmdNum = 1 Then
  25.         Message("Finished", "OK")
  26.       Endif
  27.       pProcess = TerminalView1.Exec(["bash"])
  28.       TerminalView1.SetFocus
  29.     End If
  31.  
  33.  
  34. Public Sub Setup() 'This just sets up the Form and its components
  35.  
  36.   With Me
  37.     .H = 1024
  38.     .W = 1024
  39.     .Padding = 5
  40.     .Arrangement = Arrange.Vertical
  42.  
  43.   With HBox1 = New HBox(Me)
  44.     .Expand = True
  45.     .Padding = 5
  47.  
  48.   With TerminalView1 = New TerminalView(HBox1)
  49.     .Expand = True
  50.     .Blink = True
  52.  
  53.    With Timer1 = New Timer As "Timer1"
  54.     .Enabled = True
  55.     .Delay = 250
  57.  
  59.  
  60. Public Sub mnuLs_Click()
  61.     CmdNum = 1
  62.     TermCmd = "ls"
  63.    Timer1.Start
  64.   TerminalView1.Input(TermCmd & ";exit\n")
  65.  
  67.  
  68. Public Sub mnuLUpdate_Click()
  69.   CmdNum = 1
  70.   TermCmd = " pkexec pacman --sync --refresh --sysupgrade "
  71.   Timer1.Start
  72.   TerminalView1.Input(TermCmd & ";exit\n")
  73.  
  75.  
  76. Public Sub mnuClear_Click()
  77.  
  78.   TermCmd = "clear"
  79.   Timer1.Start
  80.   TerminalView1.Input(TermCmd & ";exit\n")
  81.  
  83.  
  84. Public Sub mnuClose_Click()
  85.   'Thanks Bruce for this little tid bit.
  86.   Quit 0
  87.  
  89.  

I used a menu for the commands which friends prefer.  I also put in the command to shut down the terminal otherwise the terminal continues to run after the form is closed.  Thanks guys for your input and thanks Charlie once again for the code.
Online now: No Back to the top

Post

Posted
Rating:
#6
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
Happy to set you all on the right path <EMOJI seq="1f609" tseq="1f609">😉</EMOJI>

Ps. Another way to get your forms to close properly is simply put 'Quit 0' at the end of your form_close procedure. That will kill any lingering unwanted processes on exit <EMOJI seq="1f60e" tseq="1f60e">😎</EMOJI>
Online now: No Back to the top

Post

Posted
Rating:
#7
cage
Avatar
Regular
cage is in the usergroup ‘Regular’
 Thank you very much Bruce.  That works like a champ.
Online now: No Back to the top

Post

Posted
Rating:
#8
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
Just a thought m8 I dunno if it will help but i did think of you with the GForm app i've made.

Mostly my thinking was some problems i've had using the terminal view, for some shell stuff i need a proper terminal lol.

I wondered if the app might help as your program could be shell based to solve issues but still have a GUI for your friends.

Just a thought :)
Online now: No Back to the top
1 guest and 0 members have just viewed this.