mirror of https://github.com/GnoConsortium/gno.git
671 lines
13 KiB
NASM
671 lines
13 KiB
NASM
**************************************************************************
|
|
*
|
|
* The GNO Shell Project
|
|
*
|
|
* Developed by:
|
|
* Jawaid Bazyar
|
|
* Tim Meekins
|
|
*
|
|
* $Id: shell.asm,v 1.11 1999/11/30 17:53:27 tribby Exp $
|
|
*
|
|
**************************************************************************
|
|
*
|
|
* SHELL.ASM
|
|
* By Tim Meekins
|
|
* Modified by Dave Tribby for GNO 2.0.6
|
|
*
|
|
* This is the main routines for the shell.
|
|
*
|
|
* Note: text set up for tabs at col 16, 22, 41, 49, 57, 65
|
|
* | | | | | |
|
|
* ^ ^ ^ ^ ^ ^
|
|
**************************************************************************
|
|
*
|
|
* Interfaces defined in this file:
|
|
*
|
|
* shell subroutine (0:dummy)
|
|
* NOTE: gnoloop is an entry defined in shell.
|
|
*
|
|
* AppendHome subroutine (4:str)
|
|
* return 4:outPtr
|
|
*
|
|
* Dogshrc jsr with no parameters
|
|
*
|
|
* signal2 subroutine (4:fubar)
|
|
*
|
|
* signal18 subroutine (4:fubar)
|
|
*
|
|
* signal21 subroutine (4:fubar)
|
|
*
|
|
**************************************************************************
|
|
|
|
mcopy /obj/gno/bin/gsh/shell.mac
|
|
|
|
dummyshell start ; ends up in .root
|
|
end
|
|
|
|
setcom 60
|
|
|
|
SIGINT gequ 2
|
|
SIGTSTP gequ 18
|
|
SIGCHLD gequ 20
|
|
SIGTTIN gequ 21
|
|
|
|
cmdbuflen gequ 1024
|
|
|
|
**************************************************************************
|
|
*
|
|
* shell: entry point for acting upon commands
|
|
*
|
|
**************************************************************************
|
|
case on
|
|
shell start
|
|
case off
|
|
|
|
using global
|
|
using pdata
|
|
using HistoryData
|
|
using termdata
|
|
|
|
p equ 0 General pointer
|
|
cflag equ p+4 Flag: set when path converted
|
|
space equ cflag+2
|
|
|
|
subroutine (0:dummy),space
|
|
|
|
tsc Save stack pointer
|
|
sta cmdcontext in cmdcontext
|
|
tdc and direct page reg
|
|
sta cmddp in cmddp.
|
|
|
|
PushVariablesGS NullPB Save environment variables.
|
|
|
|
Open ttyopen Open tty,
|
|
bcc settty checking for error.
|
|
ErrWriteCString #ttyerr
|
|
jmp quit
|
|
|
|
ttyerr dc c'gsh: Failed opening tty.',h'0d00'
|
|
|
|
|
|
settty mv2 ttyref,gshtty
|
|
tcnewpgrp gshtty
|
|
settpgrp gshtty
|
|
getpid
|
|
sta gshpid
|
|
|
|
jsr InitTerm
|
|
|
|
lda FastFlag If FastFlag is set,
|
|
bne fastskip1 skip copyright message.
|
|
lda gshpid Only print the copyright msg
|
|
cmp #2 if not using login
|
|
bne fastskip1
|
|
ldx #^gnostr
|
|
lda #gnostr
|
|
jsr puts
|
|
fastskip1 anop
|
|
|
|
;
|
|
; Set up signal handlers
|
|
;
|
|
signal (#SIGINT,#signal2)
|
|
signal (#SIGTSTP,#signal18)
|
|
signal (#SIGCHLD,#pchild)
|
|
signal (#SIGTTIN,#signal21)
|
|
;
|
|
; Set entry point for users calling system
|
|
;
|
|
setsystemvector #system
|
|
|
|
;
|
|
; Initialize some stuff
|
|
;
|
|
jsr initalias Set all AliasTable entries to 0.
|
|
jsr InitDStack Zero out directory stack.
|
|
jsr InitVars Set value of all env var flags.
|
|
;
|
|
; Check for login shell (argv[0] starts with '-')
|
|
;
|
|
mv4 ~COMMANDLINE,p Copy commandline addr to dir page.
|
|
ldy #8 Skip over shell identifier
|
|
lda [p],y to get first char of
|
|
and #$FF command name.
|
|
cmp #'-' If not '-',
|
|
bne nologin_init skip over login initialization.
|
|
|
|
; Change ":" to " " in $PATH if it doesn't start with ":" or contain a " "
|
|
|
|
ph4 #pathname Get $PATH environment variable string
|
|
jsl getenv
|
|
sta p Save address of allocated buffer.
|
|
stx p+2 in direct page variable
|
|
ora p+2 If null,
|
|
beq nopathconv no need to convert
|
|
|
|
stz cflag Initialize conversion flag = false.
|
|
ldy #4 Index over GS/OS length fields.
|
|
short m Use 8-bit mode.
|
|
lda [p],y
|
|
beq endpathconv If null string, or
|
|
cmp #':' if first character is ':',
|
|
beq endpathconv don't do the conversion.
|
|
|
|
bumpit iny
|
|
lda [p],y
|
|
beq endpathconv If at end of string, all done.
|
|
cmp #' ' If $PATH contains a space,
|
|
bne chkcolon
|
|
stz cflag abort the conversion.
|
|
bra endpathconv
|
|
chkcolon cmp #':' If next character is ':',
|
|
bne bumpit
|
|
lda #' ' change it to ' ', and
|
|
sta [p],y
|
|
sta cflag set conversion flag = true.
|
|
bra bumpit
|
|
|
|
endpathconv long m Back to 16-bit mode.
|
|
lda cflag If there was no conversion,
|
|
beq freepath skip the setting of $PATH.
|
|
|
|
clc Address of $PATH as a GS/OS
|
|
lda p output string is 2 bytes
|
|
adc #2 beyond the input string
|
|
sta SetValue starting address.
|
|
lda p+2
|
|
adc #0
|
|
sta SetValue+2
|
|
SetGS SetPB Set $PATH to the converted value.
|
|
|
|
freepath ph4 p Free the $PATH C string.
|
|
jsl nullfree
|
|
|
|
nopathconv anop
|
|
|
|
; Read and execute /etc/glogin
|
|
ph4 #etcglogin path = "/etc/glogin"
|
|
lda #0
|
|
pha argc = 0
|
|
pha argv = NULL
|
|
pha
|
|
lda #$8000
|
|
pha jobflag = $8000
|
|
jsl ShellExec
|
|
|
|
; Read and execute $HOME/glogin
|
|
jsr Doglogin
|
|
|
|
;
|
|
; Initialization that is not specific to login shells
|
|
;
|
|
nologin_init anop
|
|
lda FastFlag If fast startup flag isn't set,
|
|
bne fastskip2
|
|
jsr InitHistory Init: historyFN->"$HOME/history",
|
|
jsr ReadHistory read in history from disk,
|
|
jsr Dogshrc and read $HOME/gshrc.
|
|
jsr newline
|
|
fastskip2 anop
|
|
lda didReadTerm
|
|
bne didit
|
|
jsr readterm
|
|
didit anop
|
|
jsr dispose_hash Remove old table (if set in
|
|
jsl hashpath login files) and hash $PATH.
|
|
ld2 1,done_init Set initialization done flag.
|
|
|
|
;
|
|
; Check for command-line arguments -c and -e
|
|
;
|
|
lda CmdFlag
|
|
beq cmdskip
|
|
|
|
;
|
|
; The -c flag is set: execute remaining arguments as a command file and exit.
|
|
;
|
|
mv4 CmdArgV,p
|
|
ldy #2
|
|
lda [p],y
|
|
pha
|
|
lda [p]
|
|
pha
|
|
ph2 CmdArgc argc
|
|
pei (p+2) argv
|
|
pei (p)
|
|
pea 0 jobflag = 0
|
|
jsl ShellExec
|
|
jmp done1
|
|
|
|
cmdskip lda ExecFlag
|
|
beq execskip
|
|
|
|
;
|
|
; The -e flag is set: execute remaining arguments as a command and exit.
|
|
;
|
|
ph4 ExecCmd cmdline
|
|
ph2 #0 jobflag = 0
|
|
jsl execute
|
|
jmp done1
|
|
|
|
;
|
|
; Parameter block for shell SetGS calls (p 427 in ORCA/M manual)
|
|
;
|
|
SetPB dc i2'3' pCount
|
|
dc i4'pathname' Name (pointer to GS/OS string)
|
|
SetValue ds 4 Value (pointer to GS/OS string)
|
|
dc i2'1' Export flag
|
|
|
|
pathname gsstr 'path' GS/OS string
|
|
|
|
|
|
etcglogin dc c'/etc/glogin',h'00'
|
|
|
|
execskip anop
|
|
|
|
****************************************************************
|
|
*
|
|
* Main loop for reading and executing commands
|
|
*
|
|
****************************************************************
|
|
|
|
stz lastabort
|
|
|
|
gnoloop entry
|
|
|
|
;
|
|
; Set the fundamental registers.
|
|
;
|
|
phk Copy Program Bank register
|
|
plb into Data Bank register.
|
|
lda cmdcontext Set Stack Pointer and
|
|
tcs Direct Page register
|
|
lda cmddp to values saved when
|
|
tcd entering shell.
|
|
|
|
jsl WritePrompt Print prompt.
|
|
jsr GetCmdLine Get response.
|
|
bcs done
|
|
jsr newline
|
|
|
|
lda cmdlen Check for empty string.
|
|
beq gnoloop
|
|
jsr cursoron
|
|
jsr newlineX
|
|
jsr flush
|
|
|
|
ph4 #cmdline execute(cmdline,0)
|
|
ph2 #0 jobflag = 0
|
|
jsl execute
|
|
|
|
lda exit_requested
|
|
bne done1
|
|
jsr newlineX
|
|
stz lastabort
|
|
bra gnoloop
|
|
|
|
;
|
|
; shut down gsh
|
|
;
|
|
done jsr newline
|
|
jsr newlineX
|
|
done1 ora2 pjoblist,pjoblist+2,@a
|
|
beq done2
|
|
lda lastabort
|
|
bne donekiller
|
|
inc lastabort
|
|
stz exit_requested
|
|
ldx #^stopstr Print message:
|
|
lda #stopstr "There are stopped jobs"
|
|
jsr puts
|
|
jsr newlineX
|
|
bra gnoloop Continue getting commands.
|
|
|
|
donekiller jsl jobkiller
|
|
done2 lda FastFlag
|
|
bne fastskip5
|
|
jsl SaveHistory
|
|
fastskip5 jsr dispose_hash
|
|
|
|
quit PopVariablesGS NullPB
|
|
Quit QuitParm
|
|
|
|
QuitParm dc i'0'
|
|
|
|
; Null parameter block used for shell calls PushVariables
|
|
; (ORCA/M manual p.420) and PopVariablesGS (p. 419)
|
|
NullPB dc i2'0' pCount
|
|
|
|
gnostr dc h'0d',c'GNO/Shell 2.0.6',h'0d'
|
|
dc c'Copyright 1991-1993, Procyon, Inc. & Tim Meekins. '
|
|
dc c'ALL RIGHTS RESERVED',h'0d'
|
|
dc h'0d00'
|
|
stopstr dc c'gsh: There are stopped jobs.',h'0d00'
|
|
|
|
ttyopen dc i2'2'
|
|
ttyref dc i2'0'
|
|
dc i4'ttyname'
|
|
ttyname gsstr '.tty'
|
|
|
|
exitstr dc c'000000',h'0d00'
|
|
|
|
lastabort ds 2
|
|
|
|
END
|
|
|
|
;=========================================================================
|
|
;
|
|
; Interpret the login file (gshrc).
|
|
; If $HOME is set, we presume the gshrc file is there. If not,
|
|
; or if an error occurs getting the $HOME variable, we use
|
|
; @:gshrc.
|
|
;
|
|
;=========================================================================
|
|
|
|
Dogshrc START
|
|
|
|
ph4 #gshrcName
|
|
bra doit
|
|
|
|
; Alternate entry point: execute $HOME/glogin
|
|
|
|
Doglogin ENTRY
|
|
ph4 #gloginName
|
|
|
|
doit jsl AppendHome
|
|
phx Save pointer to GS/OS input
|
|
pha string for later.
|
|
|
|
clc Adjust the pointer
|
|
adc #2 to skip the length word
|
|
bcc no_ovf so it's a C string.
|
|
inx
|
|
no_ovf phx
|
|
pha
|
|
|
|
* ShellExec subroutine (4:path,2:argc,4:argv,2:jobflag)
|
|
; (ptr to $HOME/gshrc is on stack)
|
|
lda #0
|
|
pha argc = 0
|
|
pha argv = NULL
|
|
pha
|
|
lda #$8000
|
|
pha jobflag = $8000
|
|
jsl ShellExec
|
|
|
|
; Dispose $HOME/gshrc string
|
|
pla Get address of
|
|
plx GS/OS input string.
|
|
sec Subtract two bytes to get
|
|
sbc #2 addr of original output buffer.
|
|
bcs no_undf
|
|
dex
|
|
no_undf phx
|
|
pha
|
|
jsl nullfree
|
|
rts
|
|
|
|
gshrcName dc c'/gshrc',h'00'
|
|
gloginName dc c'/glogin',h'00'
|
|
|
|
END
|
|
|
|
|
|
;=========================================================================
|
|
;
|
|
; Append a C string to the value of the $HOME variable. If $HOME is
|
|
; not set, then it appends the C string to the string '@/'. Returns
|
|
; a pointer to a GS/OS input string.
|
|
;
|
|
;=========================================================================
|
|
|
|
AppendHome START
|
|
|
|
outPtr equ 0 Pointer into allocated memory
|
|
str_len equ outPtr+4 Length of string parameter
|
|
buf_len equ str_len+2 Size of GS/OS buffer
|
|
space equ buf_len+2
|
|
|
|
subroutine (4:str),space
|
|
|
|
lock mutex
|
|
;
|
|
; Get the variable's length using ReadVariableGS
|
|
;
|
|
ld4 TempResultBuf,RVresult Use temporary result buf.
|
|
ReadVariableGS ReadVar Get length.
|
|
|
|
;
|
|
; Allocate memory for value string
|
|
;
|
|
pei (str+2) Get length of
|
|
pei (str) string to be
|
|
jsr cstrlen appended.
|
|
sta str_len
|
|
|
|
lda TempRBlen Get length of value.
|
|
bne notnull If 0,
|
|
inc a increment because "@" will be used.
|
|
notnull inc2 a Add 4 bytes for result buf len words.
|
|
inc2 a
|
|
clc Add length of string parameter.
|
|
adc str_len
|
|
sta buf_len Save result buf length.
|
|
inc a Add 1 more for terminating null byte.
|
|
pea 0
|
|
pha
|
|
~NEW Request the memory.
|
|
sta RVresult Store address in ReadVariable
|
|
stx RVresult+2 parameter block and
|
|
sta outPtr direct page pointer.
|
|
stx outPtr+2
|
|
ora outPtr+2 If address == NULL,
|
|
beq exit return NULL to user.
|
|
|
|
lda buf_len Store result buffer length
|
|
sta [outPtr] at beginning of buf.
|
|
;
|
|
; Read the full value into the allocated memory
|
|
;
|
|
ReadVariableGS ReadVar ReadVariable $HOME
|
|
bcs doAtSign If error, use @/
|
|
|
|
ldy #2 Get length of
|
|
lda [outPtr],y GS/OS string.
|
|
beq doAtSign If $HOME not defined, use "@".
|
|
clc
|
|
adc #4 Turn into a c-string
|
|
tay by storing a 0 byte
|
|
short m after the last $HOME
|
|
lda #0 character.
|
|
sta [outPtr],y
|
|
long m
|
|
bra doAppend
|
|
|
|
;
|
|
; $HOME is null string or not defined. Use @
|
|
;
|
|
doAtSign lda atSign
|
|
ldy #4
|
|
sta [outPtr],y
|
|
lda #1 Set GS/OS buffer
|
|
ldy #2 string length word
|
|
sta [outPtr],y to 1.
|
|
|
|
doAppend anop
|
|
ldy #4 Start index beyond length words.
|
|
short m
|
|
lp lda [outPtr],y
|
|
beq noSep
|
|
cmp #':'
|
|
beq foundSep
|
|
cmp #'/'
|
|
beq foundSep
|
|
iny
|
|
bra lp
|
|
|
|
noSep lda #':' No separator found; use ":".
|
|
|
|
foundSep sta [str] Store sep at start of appended string.
|
|
long m
|
|
|
|
pei (str+2)
|
|
pei (str)
|
|
ldx outPtr+2
|
|
lda outPtr
|
|
clc
|
|
adc #4
|
|
bcc pushptr
|
|
inx
|
|
pushptr phx
|
|
pha
|
|
case on
|
|
jsl strcat
|
|
case off
|
|
|
|
clc Add 2 bytes to address of
|
|
lda outPtr GS/OS output buffer to
|
|
adc #2 get address of GS/OS
|
|
bcc no_ovf input string.
|
|
inc outPtr+2
|
|
no_ovf sta outPtr
|
|
|
|
lda [outPtr] Adjust string length
|
|
clc to include appended
|
|
adc str_len string (parameter).
|
|
sta [outPtr]
|
|
;
|
|
; NOTE: The returned value points to a GS/OS string, two bytes offset
|
|
; from the allocated memory for a GS/OS result buffer. When the
|
|
; memory is deallocated, the address must be adjusted back.
|
|
;
|
|
exit unlock mutex
|
|
return 4:outPtr
|
|
|
|
mutex key
|
|
|
|
atSign dc c'@',i1'0'
|
|
|
|
;
|
|
; Parameter block for Shell call ReadVariable (p 423 in ORCA/M reference)
|
|
;
|
|
ReadVar anop
|
|
dc i2'3' pCount
|
|
dc a4'home' address of variable's name
|
|
RVresult ds 4 GS/OS Output buffer ptr
|
|
ds 2 export flag (returned)
|
|
;
|
|
; GS/OS result buffer for getting the full length of the HOME env var.
|
|
;
|
|
TempResultBuf dc i2'5' Only five bytes total.
|
|
TempRBlen ds 2 Value's length returned here.
|
|
ds 1 Only 1 byte for value.
|
|
;
|
|
; "HOME" as a GS/OS string
|
|
;
|
|
home gsstr 'HOME'
|
|
|
|
END
|
|
|
|
|
|
;=========================================================================
|
|
;
|
|
; GLOBAL data
|
|
;
|
|
;=========================================================================
|
|
|
|
global DATA
|
|
|
|
ID ds 2
|
|
GSOSDP ds 2
|
|
cmdloc ds 2
|
|
cmdlen ds 2
|
|
cmdline ds cmdbuflen
|
|
wordlen ds 2
|
|
nummatch ds 2
|
|
matchbuf ds 512*4
|
|
cmdcontext ds 2
|
|
cmddp ds 2
|
|
gshtty ds 2
|
|
gshpid ds 2
|
|
exit_requested dc i'0' ;!=0 if exit
|
|
signalled dc i'0'
|
|
done_init dc i2'0' 0 until init is complete
|
|
|
|
FastFlag dc i'0'
|
|
CmdFlag dc i'0'
|
|
CmdArgV ds 4
|
|
CmdArgC ds 2
|
|
ExecFlag dc i'0'
|
|
ExecCmd ds 4
|
|
|
|
END
|
|
|
|
;=========================================================================
|
|
;
|
|
; SIGINT handler when typed at command-line
|
|
;
|
|
;=========================================================================
|
|
|
|
signal2 START
|
|
|
|
using global
|
|
|
|
subroutine (4:fubar),0
|
|
WriteCString #msg
|
|
inc signalled
|
|
; ld2 $80,$E0C000
|
|
return
|
|
|
|
msg dc c'^C',h'0d0a00'
|
|
|
|
END
|
|
|
|
;=========================================================================
|
|
;
|
|
; SIGTSTP handler when typed at command-line
|
|
;
|
|
;=========================================================================
|
|
|
|
signal18 START
|
|
|
|
using global
|
|
|
|
subroutine (4:fubar),0
|
|
WriteCString #msg
|
|
inc signalled
|
|
; ld2 $80,$E0C000
|
|
return
|
|
|
|
msg dc c'^Z',h'0d0a00'
|
|
|
|
END
|
|
|
|
;=========================================================================
|
|
;
|
|
; SIGTTIN handler
|
|
;
|
|
;=========================================================================
|
|
|
|
;
|
|
; Work-around for kernel problem: if background read error signal
|
|
; is received, gsh will hang forever. Instead, quit.
|
|
;
|
|
|
|
signal21 START
|
|
|
|
using global
|
|
|
|
subroutine (4:fubar),0
|
|
|
|
WriteCString #bg_msg Print message.
|
|
|
|
Quit QuitParm
|
|
|
|
QuitParm dc i'0'
|
|
; return
|
|
|
|
bg_msg dc c'gsh: SIGTTIN received!!',h'0d0a00'
|
|
|
|
END
|