1997-11-18 05:31:00 +00:00
|
|
|
**************************************************************************
|
|
|
|
|
*
|
|
|
|
|
* The GNO Shell Project
|
|
|
|
|
*
|
|
|
|
|
* Developed by:
|
|
|
|
|
* Jawaid Bazyar
|
|
|
|
|
* Tim Meekins
|
|
|
|
|
*
|
1999-02-08 17:26:51 +00:00
|
|
|
* $Id: alias.asm,v 1.9 1999/02/08 17:26:49 tribby Exp $
|
Major changes to gsh with this checkin:
* When ~ is parsed and next character is a delimiter, make sure contents
of expanded $HOME match the user's delimiter.
* When wildcard patterns don't match, rather than terminating the command
gsh now prints "No match: <pattern> ignored" and passes the command line
minus the unmatched patterns on to be executed.
* Modified echo command so it doesn't add a blank to the end.
* Make "clear" and "source" built-ins non-forked commands. Unforking
"source" allows prefixes to be set in files that are sourced.
* Add loop to parse a single command (removing leading whitespace) before
sending it off to be expanded and executed. Skip null lines and comments
at this level. This allows later commands that depend upon variables set
in the 1st command to work; e.g.: set t_num=1 ; echo "Test number $t_num"
Also fixes problems seen when tab was first character of multiple lines.
* Initialize environment variable flags at startup (for echo, nodirexec,
nonewline, noglob, nobeep, pushdsilent, term, and ignoreeof). Set
flag when env var is set in upper or lower case (formerly, only worked
with lower case).
* Lots of places two-word addresses are incremented using inc, without
checking for overflow into the high-order word. As these are discovered,
they are changed to use adc on both words.
See file UpdateLog for detailed list of changes.
1998-06-30 17:26:04 +00:00
|
|
|
*
|
1997-11-18 05:31:00 +00:00
|
|
|
**************************************************************************
|
|
|
|
|
*
|
|
|
|
|
* ALIAS.ASM
|
|
|
|
|
* By Tim Meekins
|
1998-08-03 17:30:30 +00:00
|
|
|
* Modified by Dave Tribby for GNO 2.0.6
|
1997-11-18 05:31:00 +00:00
|
|
|
*
|
Major changes to gsh with this checkin:
* When ~ is parsed and next character is a delimiter, make sure contents
of expanded $HOME match the user's delimiter.
* When wildcard patterns don't match, rather than terminating the command
gsh now prints "No match: <pattern> ignored" and passes the command line
minus the unmatched patterns on to be executed.
* Modified echo command so it doesn't add a blank to the end.
* Make "clear" and "source" built-ins non-forked commands. Unforking
"source" allows prefixes to be set in files that are sourced.
* Add loop to parse a single command (removing leading whitespace) before
sending it off to be expanded and executed. Skip null lines and comments
at this level. This allows later commands that depend upon variables set
in the 1st command to work; e.g.: set t_num=1 ; echo "Test number $t_num"
Also fixes problems seen when tab was first character of multiple lines.
* Initialize environment variable flags at startup (for echo, nodirexec,
nonewline, noglob, nobeep, pushdsilent, term, and ignoreeof). Set
flag when env var is set in upper or lower case (formerly, only worked
with lower case).
* Lots of places two-word addresses are incremented using inc, without
checking for overflow into the high-order word. As these are discovered,
they are changed to use adc on both words.
See file UpdateLog for detailed list of changes.
1998-06-30 17:26:04 +00:00
|
|
|
* Note: text set up for tabs at col 16, 22, 41, 49, 57, 65
|
|
|
|
|
* | | | | | |
|
|
|
|
|
* ^ ^ ^ ^ ^ ^
|
|
|
|
|
**************************************************************************
|
|
|
|
|
*
|
|
|
|
|
* Interfaces defined in this file:
|
|
|
|
|
*
|
1998-07-20 16:23:11 +00:00
|
|
|
* alias subroutine (4:argv,2:argc)
|
|
|
|
|
* Returns with status=0 in Accumulator
|
Major changes to gsh with this checkin:
* When ~ is parsed and next character is a delimiter, make sure contents
of expanded $HOME match the user's delimiter.
* When wildcard patterns don't match, rather than terminating the command
gsh now prints "No match: <pattern> ignored" and passes the command line
minus the unmatched patterns on to be executed.
* Modified echo command so it doesn't add a blank to the end.
* Make "clear" and "source" built-ins non-forked commands. Unforking
"source" allows prefixes to be set in files that are sourced.
* Add loop to parse a single command (removing leading whitespace) before
sending it off to be expanded and executed. Skip null lines and comments
at this level. This allows later commands that depend upon variables set
in the 1st command to work; e.g.: set t_num=1 ; echo "Test number $t_num"
Also fixes problems seen when tab was first character of multiple lines.
* Initialize environment variable flags at startup (for echo, nodirexec,
nonewline, noglob, nobeep, pushdsilent, term, and ignoreeof). Set
flag when env var is set in upper or lower case (formerly, only worked
with lower case).
* Lots of places two-word addresses are incremented using inc, without
checking for overflow into the high-order word. As these are discovered,
they are changed to use adc on both words.
See file UpdateLog for detailed list of changes.
1998-06-30 17:26:04 +00:00
|
|
|
*
|
1998-07-20 16:23:11 +00:00
|
|
|
* unalias subroutine (4:argv,2:argc)
|
1998-12-21 23:57:08 +00:00
|
|
|
* return 2:status
|
1998-09-08 16:53:14 +00:00
|
|
|
*
|
1998-07-20 16:23:11 +00:00
|
|
|
* initalias jsr/rts with no parameters
|
Major changes to gsh with this checkin:
* When ~ is parsed and next character is a delimiter, make sure contents
of expanded $HOME match the user's delimiter.
* When wildcard patterns don't match, rather than terminating the command
gsh now prints "No match: <pattern> ignored" and passes the command line
minus the unmatched patterns on to be executed.
* Modified echo command so it doesn't add a blank to the end.
* Make "clear" and "source" built-ins non-forked commands. Unforking
"source" allows prefixes to be set in files that are sourced.
* Add loop to parse a single command (removing leading whitespace) before
sending it off to be expanded and executed. Skip null lines and comments
at this level. This allows later commands that depend upon variables set
in the 1st command to work; e.g.: set t_num=1 ; echo "Test number $t_num"
Also fixes problems seen when tab was first character of multiple lines.
* Initialize environment variable flags at startup (for echo, nodirexec,
nonewline, noglob, nobeep, pushdsilent, term, and ignoreeof). Set
flag when env var is set in upper or lower case (formerly, only worked
with lower case).
* Lots of places two-word addresses are incremented using inc, without
checking for overflow into the high-order word. As these are discovered,
they are changed to use adc on both words.
See file UpdateLog for detailed list of changes.
1998-06-30 17:26:04 +00:00
|
|
|
*
|
1998-07-20 16:23:11 +00:00
|
|
|
* expandalias subroutine (4:cmd)
|
|
|
|
|
* return 4:buf
|
Major changes to gsh with this checkin:
* When ~ is parsed and next character is a delimiter, make sure contents
of expanded $HOME match the user's delimiter.
* When wildcard patterns don't match, rather than terminating the command
gsh now prints "No match: <pattern> ignored" and passes the command line
minus the unmatched patterns on to be executed.
* Modified echo command so it doesn't add a blank to the end.
* Make "clear" and "source" built-ins non-forked commands. Unforking
"source" allows prefixes to be set in files that are sourced.
* Add loop to parse a single command (removing leading whitespace) before
sending it off to be expanded and executed. Skip null lines and comments
at this level. This allows later commands that depend upon variables set
in the 1st command to work; e.g.: set t_num=1 ; echo "Test number $t_num"
Also fixes problems seen when tab was first character of multiple lines.
* Initialize environment variable flags at startup (for echo, nodirexec,
nonewline, noglob, nobeep, pushdsilent, term, and ignoreeof). Set
flag when env var is set in upper or lower case (formerly, only worked
with lower case).
* Lots of places two-word addresses are incremented using inc, without
checking for overflow into the high-order word. As these are discovered,
they are changed to use adc on both words.
See file UpdateLog for detailed list of changes.
1998-06-30 17:26:04 +00:00
|
|
|
*
|
1998-07-20 16:23:11 +00:00
|
|
|
* addalias subroutine (4:aliasname,4:aliasval)
|
|
|
|
|
* return
|
Major changes to gsh with this checkin:
* When ~ is parsed and next character is a delimiter, make sure contents
of expanded $HOME match the user's delimiter.
* When wildcard patterns don't match, rather than terminating the command
gsh now prints "No match: <pattern> ignored" and passes the command line
minus the unmatched patterns on to be executed.
* Modified echo command so it doesn't add a blank to the end.
* Make "clear" and "source" built-ins non-forked commands. Unforking
"source" allows prefixes to be set in files that are sourced.
* Add loop to parse a single command (removing leading whitespace) before
sending it off to be expanded and executed. Skip null lines and comments
at this level. This allows later commands that depend upon variables set
in the 1st command to work; e.g.: set t_num=1 ; echo "Test number $t_num"
Also fixes problems seen when tab was first character of multiple lines.
* Initialize environment variable flags at startup (for echo, nodirexec,
nonewline, noglob, nobeep, pushdsilent, term, and ignoreeof). Set
flag when env var is set in upper or lower case (formerly, only worked
with lower case).
* Lots of places two-word addresses are incremented using inc, without
checking for overflow into the high-order word. As these are discovered,
they are changed to use adc on both words.
See file UpdateLog for detailed list of changes.
1998-06-30 17:26:04 +00:00
|
|
|
*
|
1998-07-20 16:23:11 +00:00
|
|
|
* removealias subroutine (4:aliasname)
|
|
|
|
|
* return
|
1998-09-08 16:53:14 +00:00
|
|
|
*
|
1998-07-20 16:23:11 +00:00
|
|
|
* findalias subroutine (4:aliasname),space
|
|
|
|
|
* return 4:value
|
Major changes to gsh with this checkin:
* When ~ is parsed and next character is a delimiter, make sure contents
of expanded $HOME match the user's delimiter.
* When wildcard patterns don't match, rather than terminating the command
gsh now prints "No match: <pattern> ignored" and passes the command line
minus the unmatched patterns on to be executed.
* Modified echo command so it doesn't add a blank to the end.
* Make "clear" and "source" built-ins non-forked commands. Unforking
"source" allows prefixes to be set in files that are sourced.
* Add loop to parse a single command (removing leading whitespace) before
sending it off to be expanded and executed. Skip null lines and comments
at this level. This allows later commands that depend upon variables set
in the 1st command to work; e.g.: set t_num=1 ; echo "Test number $t_num"
Also fixes problems seen when tab was first character of multiple lines.
* Initialize environment variable flags at startup (for echo, nodirexec,
nonewline, noglob, nobeep, pushdsilent, term, and ignoreeof). Set
flag when env var is set in upper or lower case (formerly, only worked
with lower case).
* Lots of places two-word addresses are incremented using inc, without
checking for overflow into the high-order word. As these are discovered,
they are changed to use adc on both words.
See file UpdateLog for detailed list of changes.
1998-06-30 17:26:04 +00:00
|
|
|
*
|
1998-07-20 16:23:11 +00:00
|
|
|
* startalias jsl/rtl with no parameters
|
Major changes to gsh with this checkin:
* When ~ is parsed and next character is a delimiter, make sure contents
of expanded $HOME match the user's delimiter.
* When wildcard patterns don't match, rather than terminating the command
gsh now prints "No match: <pattern> ignored" and passes the command line
minus the unmatched patterns on to be executed.
* Modified echo command so it doesn't add a blank to the end.
* Make "clear" and "source" built-ins non-forked commands. Unforking
"source" allows prefixes to be set in files that are sourced.
* Add loop to parse a single command (removing leading whitespace) before
sending it off to be expanded and executed. Skip null lines and comments
at this level. This allows later commands that depend upon variables set
in the 1st command to work; e.g.: set t_num=1 ; echo "Test number $t_num"
Also fixes problems seen when tab was first character of multiple lines.
* Initialize environment variable flags at startup (for echo, nodirexec,
nonewline, noglob, nobeep, pushdsilent, term, and ignoreeof). Set
flag when env var is set in upper or lower case (formerly, only worked
with lower case).
* Lots of places two-word addresses are incremented using inc, without
checking for overflow into the high-order word. As these are discovered,
they are changed to use adc on both words.
See file UpdateLog for detailed list of changes.
1998-06-30 17:26:04 +00:00
|
|
|
*
|
1998-07-20 16:23:11 +00:00
|
|
|
* nextalias subroutine (4:p)
|
|
|
|
|
* return 2:hashvalz
|
Major changes to gsh with this checkin:
* When ~ is parsed and next character is a delimiter, make sure contents
of expanded $HOME match the user's delimiter.
* When wildcard patterns don't match, rather than terminating the command
gsh now prints "No match: <pattern> ignored" and passes the command line
minus the unmatched patterns on to be executed.
* Modified echo command so it doesn't add a blank to the end.
* Make "clear" and "source" built-ins non-forked commands. Unforking
"source" allows prefixes to be set in files that are sourced.
* Add loop to parse a single command (removing leading whitespace) before
sending it off to be expanded and executed. Skip null lines and comments
at this level. This allows later commands that depend upon variables set
in the 1st command to work; e.g.: set t_num=1 ; echo "Test number $t_num"
Also fixes problems seen when tab was first character of multiple lines.
* Initialize environment variable flags at startup (for echo, nodirexec,
nonewline, noglob, nobeep, pushdsilent, term, and ignoreeof). Set
flag when env var is set in upper or lower case (formerly, only worked
with lower case).
* Lots of places two-word addresses are incremented using inc, without
checking for overflow into the high-order word. As these are discovered,
they are changed to use adc on both words.
See file UpdateLog for detailed list of changes.
1998-06-30 17:26:04 +00:00
|
|
|
*
|
|
|
|
|
*
|
1997-11-18 05:31:00 +00:00
|
|
|
**************************************************************************
|
|
|
|
|
|
1998-04-24 15:38:47 +00:00
|
|
|
mcopy /obj/gno/bin/gsh/alias.mac
|
|
|
|
|
|
Major changes to gsh with this checkin:
* When ~ is parsed and next character is a delimiter, make sure contents
of expanded $HOME match the user's delimiter.
* When wildcard patterns don't match, rather than terminating the command
gsh now prints "No match: <pattern> ignored" and passes the command line
minus the unmatched patterns on to be executed.
* Modified echo command so it doesn't add a blank to the end.
* Make "clear" and "source" built-ins non-forked commands. Unforking
"source" allows prefixes to be set in files that are sourced.
* Add loop to parse a single command (removing leading whitespace) before
sending it off to be expanded and executed. Skip null lines and comments
at this level. This allows later commands that depend upon variables set
in the 1st command to work; e.g.: set t_num=1 ; echo "Test number $t_num"
Also fixes problems seen when tab was first character of multiple lines.
* Initialize environment variable flags at startup (for echo, nodirexec,
nonewline, noglob, nobeep, pushdsilent, term, and ignoreeof). Set
flag when env var is set in upper or lower case (formerly, only worked
with lower case).
* Lots of places two-word addresses are incremented using inc, without
checking for overflow into the high-order word. As these are discovered,
they are changed to use adc on both words.
See file UpdateLog for detailed list of changes.
1998-06-30 17:26:04 +00:00
|
|
|
dummyalias start ; ends up in root
|
1998-04-24 15:38:47 +00:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
setcom 60
|
1997-11-18 05:31:00 +00:00
|
|
|
|
|
|
|
|
VTABSIZE gequ 17
|
|
|
|
|
|
|
|
|
|
**************************************************************************
|
|
|
|
|
*
|
|
|
|
|
* ALIAS: builtin command
|
|
|
|
|
* syntax: alias [name [def]]
|
|
|
|
|
*
|
|
|
|
|
* set aliases
|
|
|
|
|
*
|
|
|
|
|
**************************************************************************
|
|
|
|
|
|
|
|
|
|
alias START
|
|
|
|
|
|
Changes for gsh version 2.0d8:
Fixed several mutual exclusion problems, including a particularly nasty
one that would cause gsh to loop forever inside the memory manager. (You
could identify this one by the "BRA (-23)" at the bottom of the infinite
loop.)
Fixed the string vector print routine to properly handle all numbers of
entries in the hash table. Previously, it would always print duplicate
entries if there were < 6 commands hashed, and would sometimes print
duplicates (depending on previous contents of an internal table) for
other numbers of commands.
gsh would wait on background processes started from an exec file
(executed, not sourced). Now the exec file does not wait on the process,
but the background process is not associated with the parent shell after
the exec file terminates.
Made gsh globbing work more like csh: if none of the requested patterns
are found, print "No match" and exit.
At startup, if /etc/glogin, $HOME/glogin, or $HOME/gshrc does not exist,
don't report a "file not found" error message. (PR#100)
1998-12-31 18:29:14 +00:00
|
|
|
using AliasData
|
|
|
|
|
|
1997-11-18 05:31:00 +00:00
|
|
|
arg equ 1
|
|
|
|
|
space equ arg+4
|
|
|
|
|
argc equ space+3
|
|
|
|
|
argv equ argc+2
|
|
|
|
|
end equ argv+4
|
|
|
|
|
|
|
|
|
|
; subroutine (4:argv,2:argc),space
|
|
|
|
|
|
|
|
|
|
tsc
|
|
|
|
|
sec
|
|
|
|
|
sbc #space-1
|
|
|
|
|
tcs
|
|
|
|
|
phd
|
|
|
|
|
tcd
|
|
|
|
|
|
Changes for gsh version 2.0d8:
Fixed several mutual exclusion problems, including a particularly nasty
one that would cause gsh to loop forever inside the memory manager. (You
could identify this one by the "BRA (-23)" at the bottom of the infinite
loop.)
Fixed the string vector print routine to properly handle all numbers of
entries in the hash table. Previously, it would always print duplicate
entries if there were < 6 commands hashed, and would sometimes print
duplicates (depending on previous contents of an internal table) for
other numbers of commands.
gsh would wait on background processes started from an exec file
(executed, not sourced). Now the exec file does not wait on the process,
but the background process is not associated with the parent shell after
the exec file terminates.
Made gsh globbing work more like csh: if none of the requested patterns
are found, print "No match" and exit.
At startup, if /etc/glogin, $HOME/glogin, or $HOME/gshrc does not exist,
don't report a "file not found" error message. (PR#100)
1998-12-31 18:29:14 +00:00
|
|
|
lock AliasMutex
|
1998-07-20 16:23:11 +00:00
|
|
|
lda argc How many arguments were provided?
|
1997-11-18 05:31:00 +00:00
|
|
|
dec a
|
1998-07-20 16:23:11 +00:00
|
|
|
beq showall None -- show all alias names.
|
1997-11-18 05:31:00 +00:00
|
|
|
dec a
|
1998-07-20 16:23:11 +00:00
|
|
|
beq showone One -- show a single name.
|
|
|
|
|
jmp setalias More -- set an alias.
|
1997-11-18 05:31:00 +00:00
|
|
|
|
1998-07-20 16:23:11 +00:00
|
|
|
;
|
|
|
|
|
; Show all aliases
|
|
|
|
|
;
|
1997-11-18 05:31:00 +00:00
|
|
|
showall jsl startalias
|
|
|
|
|
showloop jsl nextalias
|
|
|
|
|
sta arg
|
|
|
|
|
stx arg+2
|
|
|
|
|
ora arg+2
|
|
|
|
|
beq noshow
|
|
|
|
|
ldy #6
|
|
|
|
|
lda [arg],y
|
|
|
|
|
tax
|
|
|
|
|
ldy #4
|
|
|
|
|
lda [arg],y
|
|
|
|
|
jsr puts
|
|
|
|
|
lda #':'
|
|
|
|
|
jsr putchar
|
|
|
|
|
lda #' '
|
|
|
|
|
jsr putchar
|
|
|
|
|
ldy #10
|
|
|
|
|
lda [arg],y
|
|
|
|
|
tax
|
|
|
|
|
ldy #8
|
|
|
|
|
lda [arg],y
|
|
|
|
|
jsr puts
|
|
|
|
|
jsr newline
|
|
|
|
|
bra showloop
|
|
|
|
|
|
|
|
|
|
noshow jmp exit
|
|
|
|
|
|
1998-07-20 16:23:11 +00:00
|
|
|
;
|
|
|
|
|
; Show a single alias
|
|
|
|
|
;
|
1997-11-18 05:31:00 +00:00
|
|
|
showone ldy #4+2
|
|
|
|
|
lda [argv],y
|
|
|
|
|
tax
|
|
|
|
|
pha ;for findalias
|
|
|
|
|
ldy #4
|
|
|
|
|
lda [argv],y
|
|
|
|
|
pha
|
1998-07-20 16:23:11 +00:00
|
|
|
jsr puts Print name.
|
|
|
|
|
lda #':' Print ": ".
|
1997-11-18 05:31:00 +00:00
|
|
|
jsr putchar
|
|
|
|
|
lda #' '
|
|
|
|
|
jsr putchar
|
|
|
|
|
jsl findalias
|
|
|
|
|
sta arg
|
|
|
|
|
stx arg+2
|
|
|
|
|
ora arg+2
|
|
|
|
|
beq notthere
|
|
|
|
|
lda arg
|
1998-07-20 16:23:11 +00:00
|
|
|
jsr puts Print alias value.
|
|
|
|
|
jsr newline Print newline.
|
|
|
|
|
jmp exit All done.
|
|
|
|
|
|
|
|
|
|
notthere ldx #^noalias Print message:
|
|
|
|
|
lda #noalias 'Alias not defined'
|
1997-11-18 05:31:00 +00:00
|
|
|
jsr puts
|
|
|
|
|
jmp exit
|
|
|
|
|
|
1998-07-20 16:23:11 +00:00
|
|
|
;
|
|
|
|
|
; Set an alias name
|
|
|
|
|
;
|
1997-11-18 05:31:00 +00:00
|
|
|
setalias ldy #4+2 ;put alias name on stack
|
|
|
|
|
lda [argv],y
|
|
|
|
|
pha
|
|
|
|
|
ldy #4
|
|
|
|
|
lda [argv],y
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
ph4 #2
|
1998-08-03 17:30:30 +00:00
|
|
|
~NEW
|
1997-11-18 05:31:00 +00:00
|
|
|
sta arg
|
|
|
|
|
stx arg+2
|
|
|
|
|
lda #0
|
|
|
|
|
sta [arg]
|
|
|
|
|
|
|
|
|
|
add2 argv,#8,argv
|
|
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
dec2 argc
|
1997-11-18 05:31:00 +00:00
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
buildalias lda argc
|
1997-11-18 05:31:00 +00:00
|
|
|
beq setit
|
|
|
|
|
|
|
|
|
|
pei (arg+2)
|
|
|
|
|
pei (arg)
|
|
|
|
|
pei (arg+2)
|
|
|
|
|
pei (arg)
|
|
|
|
|
ldy #2
|
|
|
|
|
lda [argv],y
|
|
|
|
|
pha
|
|
|
|
|
lda [argv]
|
|
|
|
|
pha
|
1998-09-08 16:53:14 +00:00
|
|
|
jsr catcstr
|
1997-11-18 05:31:00 +00:00
|
|
|
stx arg+2
|
|
|
|
|
sta arg
|
|
|
|
|
jsl nullfree
|
|
|
|
|
|
|
|
|
|
pei (arg+2)
|
|
|
|
|
pei (arg)
|
|
|
|
|
pei (arg+2)
|
|
|
|
|
pei (arg)
|
|
|
|
|
ph4 #spacestr
|
1998-09-08 16:53:14 +00:00
|
|
|
jsr catcstr
|
1997-11-18 05:31:00 +00:00
|
|
|
stx arg+2
|
|
|
|
|
sta arg
|
|
|
|
|
jsl nullfree
|
|
|
|
|
|
|
|
|
|
dec argc
|
|
|
|
|
add2 argv,#4,argv
|
|
|
|
|
bra buildalias
|
|
|
|
|
|
|
|
|
|
setit pei (arg+2)
|
|
|
|
|
pei (arg)
|
|
|
|
|
jsl addalias
|
|
|
|
|
pei (arg+2)
|
|
|
|
|
pei (arg)
|
|
|
|
|
jsl nullfree
|
|
|
|
|
|
Changes for gsh version 2.0d8:
Fixed several mutual exclusion problems, including a particularly nasty
one that would cause gsh to loop forever inside the memory manager. (You
could identify this one by the "BRA (-23)" at the bottom of the infinite
loop.)
Fixed the string vector print routine to properly handle all numbers of
entries in the hash table. Previously, it would always print duplicate
entries if there were < 6 commands hashed, and would sometimes print
duplicates (depending on previous contents of an internal table) for
other numbers of commands.
gsh would wait on background processes started from an exec file
(executed, not sourced). Now the exec file does not wait on the process,
but the background process is not associated with the parent shell after
the exec file terminates.
Made gsh globbing work more like csh: if none of the requested patterns
are found, print "No match" and exit.
At startup, if /etc/glogin, $HOME/glogin, or $HOME/gshrc does not exist,
don't report a "file not found" error message. (PR#100)
1998-12-31 18:29:14 +00:00
|
|
|
exit unlock AliasMutex
|
|
|
|
|
lda space
|
1997-11-18 05:31:00 +00:00
|
|
|
sta end-3
|
|
|
|
|
lda space+1
|
|
|
|
|
sta end-2
|
|
|
|
|
pld
|
|
|
|
|
tsc
|
|
|
|
|
clc
|
|
|
|
|
adc #end-4
|
|
|
|
|
tcs
|
|
|
|
|
|
1998-07-20 16:23:11 +00:00
|
|
|
lda #0 Return status always 0.
|
1997-11-18 05:31:00 +00:00
|
|
|
|
|
|
|
|
rtl
|
|
|
|
|
|
|
|
|
|
noalias dc c'Alias not defined',h'0d00'
|
|
|
|
|
spacestr dc c' ',h'00'
|
|
|
|
|
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
**************************************************************************
|
|
|
|
|
*
|
|
|
|
|
* UNALIAS: builtin command
|
|
|
|
|
* syntax: unalias [var ...]
|
|
|
|
|
*
|
|
|
|
|
* removes each alias listed
|
|
|
|
|
*
|
|
|
|
|
**************************************************************************
|
|
|
|
|
|
|
|
|
|
unalias START
|
|
|
|
|
|
Changes for gsh version 2.0d8:
Fixed several mutual exclusion problems, including a particularly nasty
one that would cause gsh to loop forever inside the memory manager. (You
could identify this one by the "BRA (-23)" at the bottom of the infinite
loop.)
Fixed the string vector print routine to properly handle all numbers of
entries in the hash table. Previously, it would always print duplicate
entries if there were < 6 commands hashed, and would sometimes print
duplicates (depending on previous contents of an internal table) for
other numbers of commands.
gsh would wait on background processes started from an exec file
(executed, not sourced). Now the exec file does not wait on the process,
but the background process is not associated with the parent shell after
the exec file terminates.
Made gsh globbing work more like csh: if none of the requested patterns
are found, print "No match" and exit.
At startup, if /etc/glogin, $HOME/glogin, or $HOME/gshrc does not exist,
don't report a "file not found" error message. (PR#100)
1998-12-31 18:29:14 +00:00
|
|
|
using AliasData
|
|
|
|
|
|
1998-12-21 23:57:08 +00:00
|
|
|
status equ 0
|
|
|
|
|
space equ status+2
|
1997-11-18 05:31:00 +00:00
|
|
|
|
1998-12-21 23:57:08 +00:00
|
|
|
subroutine (4:argv,2:argc),space
|
1997-11-18 05:31:00 +00:00
|
|
|
|
Changes for gsh version 2.0d8:
Fixed several mutual exclusion problems, including a particularly nasty
one that would cause gsh to loop forever inside the memory manager. (You
could identify this one by the "BRA (-23)" at the bottom of the infinite
loop.)
Fixed the string vector print routine to properly handle all numbers of
entries in the hash table. Previously, it would always print duplicate
entries if there were < 6 commands hashed, and would sometimes print
duplicates (depending on previous contents of an internal table) for
other numbers of commands.
gsh would wait on background processes started from an exec file
(executed, not sourced). Now the exec file does not wait on the process,
but the background process is not associated with the parent shell after
the exec file terminates.
Made gsh globbing work more like csh: if none of the requested patterns
are found, print "No match" and exit.
At startup, if /etc/glogin, $HOME/glogin, or $HOME/gshrc does not exist,
don't report a "file not found" error message. (PR#100)
1998-12-31 18:29:14 +00:00
|
|
|
lock AliasMutex
|
|
|
|
|
|
1998-12-21 23:57:08 +00:00
|
|
|
stz status
|
1997-11-18 05:31:00 +00:00
|
|
|
|
|
|
|
|
lda argc
|
|
|
|
|
dec a
|
|
|
|
|
bne loop
|
|
|
|
|
|
|
|
|
|
ldx #^Usage
|
|
|
|
|
lda #USage
|
|
|
|
|
jsr errputs
|
1998-12-21 23:57:08 +00:00
|
|
|
inc status Return status = 1.
|
1997-11-18 05:31:00 +00:00
|
|
|
bra done
|
|
|
|
|
|
|
|
|
|
loop add2 argv,#4,argv
|
|
|
|
|
dec argc
|
|
|
|
|
beq done
|
|
|
|
|
|
|
|
|
|
ldy #2
|
|
|
|
|
lda [argv],y
|
|
|
|
|
pha
|
|
|
|
|
lda [argv]
|
|
|
|
|
pha
|
|
|
|
|
jsl removealias
|
|
|
|
|
|
|
|
|
|
bra loop
|
|
|
|
|
|
Changes for gsh version 2.0d8:
Fixed several mutual exclusion problems, including a particularly nasty
one that would cause gsh to loop forever inside the memory manager. (You
could identify this one by the "BRA (-23)" at the bottom of the infinite
loop.)
Fixed the string vector print routine to properly handle all numbers of
entries in the hash table. Previously, it would always print duplicate
entries if there were < 6 commands hashed, and would sometimes print
duplicates (depending on previous contents of an internal table) for
other numbers of commands.
gsh would wait on background processes started from an exec file
(executed, not sourced). Now the exec file does not wait on the process,
but the background process is not associated with the parent shell after
the exec file terminates.
Made gsh globbing work more like csh: if none of the requested patterns
are found, print "No match" and exit.
At startup, if /etc/glogin, $HOME/glogin, or $HOME/gshrc does not exist,
don't report a "file not found" error message. (PR#100)
1998-12-31 18:29:14 +00:00
|
|
|
done unlock AliasMutex
|
|
|
|
|
return 2:status
|
1997-11-18 05:31:00 +00:00
|
|
|
|
|
|
|
|
Usage dc c'Usage: unalias name ...',h'0d00'
|
|
|
|
|
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
;=========================================================================
|
|
|
|
|
;
|
|
|
|
|
; Init alias table
|
|
|
|
|
;
|
|
|
|
|
;=========================================================================
|
|
|
|
|
|
|
|
|
|
initalias START
|
|
|
|
|
|
|
|
|
|
using AliasData
|
|
|
|
|
|
Major changes to gsh with this checkin:
* When ~ is parsed and next character is a delimiter, make sure contents
of expanded $HOME match the user's delimiter.
* When wildcard patterns don't match, rather than terminating the command
gsh now prints "No match: <pattern> ignored" and passes the command line
minus the unmatched patterns on to be executed.
* Modified echo command so it doesn't add a blank to the end.
* Make "clear" and "source" built-ins non-forked commands. Unforking
"source" allows prefixes to be set in files that are sourced.
* Add loop to parse a single command (removing leading whitespace) before
sending it off to be expanded and executed. Skip null lines and comments
at this level. This allows later commands that depend upon variables set
in the 1st command to work; e.g.: set t_num=1 ; echo "Test number $t_num"
Also fixes problems seen when tab was first character of multiple lines.
* Initialize environment variable flags at startup (for echo, nodirexec,
nonewline, noglob, nobeep, pushdsilent, term, and ignoreeof). Set
flag when env var is set in upper or lower case (formerly, only worked
with lower case).
* Lots of places two-word addresses are incremented using inc, without
checking for overflow into the high-order word. As these are discovered,
they are changed to use adc on both words.
See file UpdateLog for detailed list of changes.
1998-06-30 17:26:04 +00:00
|
|
|
; Set all entries in AliasTable to 0
|
|
|
|
|
|
1997-11-18 05:31:00 +00:00
|
|
|
lda #0
|
|
|
|
|
ldy #VTABSIZE
|
Major changes to gsh with this checkin:
* When ~ is parsed and next character is a delimiter, make sure contents
of expanded $HOME match the user's delimiter.
* When wildcard patterns don't match, rather than terminating the command
gsh now prints "No match: <pattern> ignored" and passes the command line
minus the unmatched patterns on to be executed.
* Modified echo command so it doesn't add a blank to the end.
* Make "clear" and "source" built-ins non-forked commands. Unforking
"source" allows prefixes to be set in files that are sourced.
* Add loop to parse a single command (removing leading whitespace) before
sending it off to be expanded and executed. Skip null lines and comments
at this level. This allows later commands that depend upon variables set
in the 1st command to work; e.g.: set t_num=1 ; echo "Test number $t_num"
Also fixes problems seen when tab was first character of multiple lines.
* Initialize environment variable flags at startup (for echo, nodirexec,
nonewline, noglob, nobeep, pushdsilent, term, and ignoreeof). Set
flag when env var is set in upper or lower case (formerly, only worked
with lower case).
* Lots of places two-word addresses are incremented using inc, without
checking for overflow into the high-order word. As these are discovered,
they are changed to use adc on both words.
See file UpdateLog for detailed list of changes.
1998-06-30 17:26:04 +00:00
|
|
|
tax
|
1997-11-18 05:31:00 +00:00
|
|
|
yahaha sta AliasTable,x
|
|
|
|
|
inx2
|
|
|
|
|
sta AliasTable,x
|
|
|
|
|
inx2
|
|
|
|
|
dey
|
|
|
|
|
bne yahaha
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
END
|
1997-11-18 05:31:00 +00:00
|
|
|
|
|
|
|
|
;=========================================================================
|
|
|
|
|
;
|
|
|
|
|
; Expand alias
|
|
|
|
|
;
|
|
|
|
|
;=========================================================================
|
|
|
|
|
|
|
|
|
|
expandalias START
|
1998-09-08 16:53:14 +00:00
|
|
|
|
1997-11-18 05:31:00 +00:00
|
|
|
outbuf equ 0
|
|
|
|
|
sub equ outbuf+4
|
|
|
|
|
word equ sub+4
|
|
|
|
|
buf equ word+4
|
1999-02-08 17:26:51 +00:00
|
|
|
bufend equ buf+4
|
|
|
|
|
inquote equ bufend+2
|
|
|
|
|
bsflag equ inquote+2
|
|
|
|
|
space equ bsflag+2
|
1997-11-18 05:31:00 +00:00
|
|
|
|
|
|
|
|
subroutine (4:cmd),space
|
|
|
|
|
|
1999-02-08 17:26:51 +00:00
|
|
|
ph4 maxline_size Allocate result buffer.
|
1998-08-03 17:30:30 +00:00
|
|
|
~NEW
|
1997-11-18 05:31:00 +00:00
|
|
|
stx buf+2
|
|
|
|
|
sta buf
|
1999-02-08 17:26:51 +00:00
|
|
|
stx outbuf+2 Initialize "next
|
|
|
|
|
sta outbuf output char" pointer.
|
|
|
|
|
clc Calculate end of buffer-1;
|
|
|
|
|
adc maxline_size note: it's allocated to be in one
|
|
|
|
|
dec a bank, so only need low-order word.
|
|
|
|
|
sta bufend
|
|
|
|
|
|
|
|
|
|
jsl allocmaxline Allocate buffer for word that
|
|
|
|
|
stx word+2 might be an alias.
|
1997-11-18 05:31:00 +00:00
|
|
|
sta word
|
1999-02-08 17:26:51 +00:00
|
|
|
|
1997-11-18 05:31:00 +00:00
|
|
|
lda #0
|
1999-02-08 17:26:51 +00:00
|
|
|
sta [buf] In case we're called with empty string.
|
1998-09-08 16:53:14 +00:00
|
|
|
sta [word]
|
1997-11-18 05:31:00 +00:00
|
|
|
;
|
1999-02-08 17:26:51 +00:00
|
|
|
; Eat leading space and tabs (just in case expanding a variable added them!)
|
1997-11-18 05:31:00 +00:00
|
|
|
;
|
1999-02-08 17:26:51 +00:00
|
|
|
bra eatleader
|
|
|
|
|
bump_cmd inc cmd
|
1997-11-18 05:31:00 +00:00
|
|
|
eatleader lda [cmd]
|
|
|
|
|
and #$FF
|
1999-02-08 17:26:51 +00:00
|
|
|
jeq stringend
|
1997-11-18 05:31:00 +00:00
|
|
|
cmp #' '
|
1999-02-08 17:26:51 +00:00
|
|
|
beq bump_cmd
|
|
|
|
|
cmp #9
|
|
|
|
|
beq bump_cmd
|
1997-11-18 05:31:00 +00:00
|
|
|
;
|
1999-02-08 17:26:51 +00:00
|
|
|
; Parse the leading word
|
1997-11-18 05:31:00 +00:00
|
|
|
;
|
1999-02-08 17:26:51 +00:00
|
|
|
short a
|
1997-11-18 05:31:00 +00:00
|
|
|
ldy #0
|
1999-02-08 17:26:51 +00:00
|
|
|
bra makeword1 First time, already checked 0, ' ', 9
|
1997-11-18 05:31:00 +00:00
|
|
|
makeword lda [cmd],y
|
|
|
|
|
if2 @a,eq,#0,gotword
|
|
|
|
|
if2 @a,eq,#' ',gotword
|
1999-02-08 17:26:51 +00:00
|
|
|
if2 @a,eq,#9,gotword
|
|
|
|
|
makeword1 if2 @a,eq,#';',gotword
|
1997-11-18 05:31:00 +00:00
|
|
|
if2 @a,eq,#'&',gotword
|
|
|
|
|
if2 @a,eq,#'|',gotword
|
|
|
|
|
if2 @a,eq,#'>',gotword
|
|
|
|
|
if2 @a,eq,#'<',gotword
|
|
|
|
|
if2 @a,eq,#13,gotword
|
|
|
|
|
if2 @a,eq,#10,gotword
|
|
|
|
|
sta [word],y
|
|
|
|
|
iny
|
|
|
|
|
bra makeword
|
|
|
|
|
;
|
1999-02-08 17:26:51 +00:00
|
|
|
; We have a word. See if it's an alias.
|
1997-11-18 05:31:00 +00:00
|
|
|
;
|
|
|
|
|
gotword lda #0
|
|
|
|
|
sta [word],y
|
|
|
|
|
long a
|
1999-02-08 17:26:51 +00:00
|
|
|
cpy #0 Check for 0 length.
|
|
|
|
|
beq copyrest
|
1997-11-18 05:31:00 +00:00
|
|
|
phy
|
|
|
|
|
pei (word+2)
|
|
|
|
|
pei (word)
|
|
|
|
|
jsl findalias
|
|
|
|
|
sta sub
|
|
|
|
|
stx sub+2
|
1999-02-08 17:26:51 +00:00
|
|
|
ply
|
1997-11-18 05:31:00 +00:00
|
|
|
ora sub+2
|
1999-02-08 17:26:51 +00:00
|
|
|
beq copyrest
|
1997-11-18 05:31:00 +00:00
|
|
|
;
|
1999-02-08 17:26:51 +00:00
|
|
|
; Yes, this is an alias. Copy it into the output buffer.
|
1997-11-18 05:31:00 +00:00
|
|
|
;
|
1999-02-08 17:26:51 +00:00
|
|
|
add2 @y,cmd,cmd Add length to cmd pointer.
|
|
|
|
|
|
|
|
|
|
pei (sub+2) Make sure that
|
|
|
|
|
pei (sub) substituted string
|
|
|
|
|
jsr cstrlen will fit into buffer.
|
|
|
|
|
sec
|
|
|
|
|
adc outbuf
|
|
|
|
|
jge overflow
|
|
|
|
|
cmp bufend
|
|
|
|
|
jge overflow
|
|
|
|
|
|
1997-11-18 05:31:00 +00:00
|
|
|
ldy #0
|
1999-02-08 17:26:51 +00:00
|
|
|
short a
|
|
|
|
|
lda [sub]
|
|
|
|
|
putalias sta [outbuf]
|
1997-11-18 05:31:00 +00:00
|
|
|
inc outbuf
|
|
|
|
|
iny
|
1999-02-08 17:26:51 +00:00
|
|
|
lda [sub],y
|
|
|
|
|
bne putalias
|
|
|
|
|
long a
|
1997-11-18 05:31:00 +00:00
|
|
|
;
|
1999-02-08 17:26:51 +00:00
|
|
|
; That alias is expanded. Copy until we reach the next command.
|
|
|
|
|
;
|
|
|
|
|
copyrest stz inquote Clear the "in quotes" flag
|
|
|
|
|
stz bsflag and "backslashed" flag.
|
|
|
|
|
|
|
|
|
|
next anop
|
|
|
|
|
lda outbuf Check for output overflow.
|
|
|
|
|
cmp bufend
|
|
|
|
|
jcs overflow
|
|
|
|
|
lda [cmd] Transfer the character.
|
|
|
|
|
and #$00FF
|
|
|
|
|
cmp #13 If carriage-return,
|
|
|
|
|
bne go8bits
|
|
|
|
|
lda #0 treat like end-of-string.
|
|
|
|
|
go8bits short a
|
1997-11-18 05:31:00 +00:00
|
|
|
sta [outbuf]
|
1999-02-08 17:26:51 +00:00
|
|
|
long a
|
|
|
|
|
inc cmd Bump pointers.
|
1997-11-18 05:31:00 +00:00
|
|
|
inc outbuf
|
1999-02-08 17:26:51 +00:00
|
|
|
|
|
|
|
|
if2 @a,eq,#0,done
|
1997-11-18 05:31:00 +00:00
|
|
|
;
|
1999-02-08 17:26:51 +00:00
|
|
|
; If that was a backslashed character, don't check for special chars.
|
1997-11-18 05:31:00 +00:00
|
|
|
;
|
1999-02-08 17:26:51 +00:00
|
|
|
ldx bsflag
|
|
|
|
|
beq testq
|
|
|
|
|
stz bsflag
|
|
|
|
|
bra next
|
|
|
|
|
|
|
|
|
|
testq if2 @a,eq,#"'",singquoter
|
|
|
|
|
if2 @a,eq,#'"',doubquoter
|
|
|
|
|
;
|
|
|
|
|
; Remaining characters aren't special if we are in a quoted string
|
|
|
|
|
;
|
|
|
|
|
ldx inquote
|
|
|
|
|
bne next
|
1997-11-18 05:31:00 +00:00
|
|
|
if2 @a,eq,#';',nextalias
|
|
|
|
|
if2 @a,eq,#'&',nextalias
|
|
|
|
|
if2 @a,eq,#'|',nextalias
|
1999-02-08 17:26:51 +00:00
|
|
|
if2 @a,ne,#'\',next
|
1998-07-20 16:23:11 +00:00
|
|
|
;
|
|
|
|
|
; "\" found
|
|
|
|
|
;
|
1999-02-08 17:26:51 +00:00
|
|
|
backstabber sta bsflag
|
1997-11-18 05:31:00 +00:00
|
|
|
bra next
|
1999-02-08 17:26:51 +00:00
|
|
|
|
1998-07-20 16:23:11 +00:00
|
|
|
;
|
|
|
|
|
; "'" found
|
|
|
|
|
;
|
1999-02-08 17:26:51 +00:00
|
|
|
singquoter bit inquote Check "in quotes" flag.
|
|
|
|
|
bvs next In double quotes. Keep looking.
|
|
|
|
|
lda inquote Toggle single quote
|
|
|
|
|
eor #$8000
|
|
|
|
|
sta inquote
|
1997-11-18 05:31:00 +00:00
|
|
|
bra next
|
1998-07-20 16:23:11 +00:00
|
|
|
;
|
|
|
|
|
; '"' found
|
|
|
|
|
;
|
1999-02-08 17:26:51 +00:00
|
|
|
doubquoter bit inquote Check "in quotes" flag.
|
|
|
|
|
bmi next In single quotes. Keep looking.
|
|
|
|
|
lda inquote Toggle single quote
|
|
|
|
|
eor #$4000
|
|
|
|
|
sta inquote
|
1997-11-18 05:31:00 +00:00
|
|
|
bra next
|
1998-07-20 16:23:11 +00:00
|
|
|
|
|
|
|
|
;
|
|
|
|
|
; ";", "|", or "&" found: it's another command
|
|
|
|
|
;
|
1997-11-18 05:31:00 +00:00
|
|
|
nextalias jmp eatleader
|
|
|
|
|
|
1999-02-08 17:26:51 +00:00
|
|
|
;
|
|
|
|
|
; Terminate string and exit
|
|
|
|
|
;
|
|
|
|
|
stringend short a
|
|
|
|
|
sta [outbuf]
|
|
|
|
|
long a
|
|
|
|
|
;
|
|
|
|
|
; All done: clean up and return to caller
|
|
|
|
|
;
|
1997-11-18 05:31:00 +00:00
|
|
|
done ldx word+2
|
|
|
|
|
lda word
|
1999-02-08 17:26:51 +00:00
|
|
|
jsl freemaxline
|
1997-11-18 05:31:00 +00:00
|
|
|
|
|
|
|
|
return 4:buf
|
|
|
|
|
|
1999-02-08 17:26:51 +00:00
|
|
|
|
|
|
|
|
;
|
|
|
|
|
; Report overflow error
|
|
|
|
|
;
|
|
|
|
|
overflow anop
|
|
|
|
|
pei (buf+2) Free the output buffer.
|
|
|
|
|
pei (buf)
|
|
|
|
|
jsl nullfree
|
|
|
|
|
stz buf
|
|
|
|
|
stz buf+2
|
|
|
|
|
|
|
|
|
|
ldx #^ovferr Report overflow error.
|
|
|
|
|
lda #ovferr
|
|
|
|
|
jsr errputs
|
|
|
|
|
|
|
|
|
|
bra done
|
|
|
|
|
|
|
|
|
|
ovferr dc c'gsh: Alias overflowed line limit',h'0d00'
|
|
|
|
|
|
1997-11-18 05:31:00 +00:00
|
|
|
END
|
|
|
|
|
|
|
|
|
|
;=========================================================================
|
|
|
|
|
;
|
|
|
|
|
; Add alias to table
|
|
|
|
|
;
|
|
|
|
|
;=========================================================================
|
|
|
|
|
|
|
|
|
|
addalias START
|
1998-09-08 16:53:14 +00:00
|
|
|
|
1997-11-18 05:31:00 +00:00
|
|
|
using AliasData
|
|
|
|
|
|
|
|
|
|
tmp equ 0
|
|
|
|
|
ptr equ tmp+4
|
|
|
|
|
hashval equ ptr+4
|
|
|
|
|
space equ hashval+4
|
|
|
|
|
|
|
|
|
|
subroutine (4:aliasname,4:aliasval),space
|
|
|
|
|
|
|
|
|
|
pei (aliasname+2)
|
|
|
|
|
pei (aliasname)
|
|
|
|
|
jsl hashalias
|
|
|
|
|
sta hashval
|
|
|
|
|
|
|
|
|
|
tax
|
|
|
|
|
lda AliasTable,x
|
|
|
|
|
sta ptr
|
|
|
|
|
lda AliasTable+2,x
|
|
|
|
|
sta ptr+2
|
|
|
|
|
|
|
|
|
|
search lda ptr
|
Major changes to gsh with this checkin:
* When ~ is parsed and next character is a delimiter, make sure contents
of expanded $HOME match the user's delimiter.
* When wildcard patterns don't match, rather than terminating the command
gsh now prints "No match: <pattern> ignored" and passes the command line
minus the unmatched patterns on to be executed.
* Modified echo command so it doesn't add a blank to the end.
* Make "clear" and "source" built-ins non-forked commands. Unforking
"source" allows prefixes to be set in files that are sourced.
* Add loop to parse a single command (removing leading whitespace) before
sending it off to be expanded and executed. Skip null lines and comments
at this level. This allows later commands that depend upon variables set
in the 1st command to work; e.g.: set t_num=1 ; echo "Test number $t_num"
Also fixes problems seen when tab was first character of multiple lines.
* Initialize environment variable flags at startup (for echo, nodirexec,
nonewline, noglob, nobeep, pushdsilent, term, and ignoreeof). Set
flag when env var is set in upper or lower case (formerly, only worked
with lower case).
* Lots of places two-word addresses are incremented using inc, without
checking for overflow into the high-order word. As these are discovered,
they are changed to use adc on both words.
See file UpdateLog for detailed list of changes.
1998-06-30 17:26:04 +00:00
|
|
|
ora ptr+2
|
1997-11-18 05:31:00 +00:00
|
|
|
beq notfound
|
|
|
|
|
ldy #4
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
tax
|
|
|
|
|
ldy #4+2
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
pha
|
|
|
|
|
phx
|
|
|
|
|
pei (aliasname+2)
|
|
|
|
|
pei (aliasname)
|
|
|
|
|
jsr cmpcstr
|
|
|
|
|
jeq replace
|
|
|
|
|
ldy #2
|
|
|
|
|
lda [ptr]
|
|
|
|
|
tax
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
sta ptr+2
|
|
|
|
|
stx ptr
|
|
|
|
|
bra search
|
|
|
|
|
|
|
|
|
|
replace ldy #8+2
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
pha
|
|
|
|
|
ldy #8
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
pha
|
|
|
|
|
jsl nullfree
|
|
|
|
|
pei (aliasval+2)
|
1998-09-08 16:53:14 +00:00
|
|
|
pei (aliasval)
|
1997-11-18 05:31:00 +00:00
|
|
|
jsr cstrlen
|
|
|
|
|
inc a
|
|
|
|
|
pea 0
|
|
|
|
|
pha
|
1998-08-03 17:30:30 +00:00
|
|
|
~NEW
|
1997-11-18 05:31:00 +00:00
|
|
|
sta tmp
|
|
|
|
|
stx tmp+2
|
|
|
|
|
ldy #8
|
|
|
|
|
sta [ptr],y
|
|
|
|
|
ldy #8+2
|
|
|
|
|
txa
|
|
|
|
|
sta [ptr],y
|
|
|
|
|
pei (aliasval+2)
|
|
|
|
|
pei (aliasval)
|
|
|
|
|
pei (tmp+2)
|
|
|
|
|
pei (tmp)
|
|
|
|
|
jsr copycstr
|
Changes for gsh version 2.0d8:
Fixed several mutual exclusion problems, including a particularly nasty
one that would cause gsh to loop forever inside the memory manager. (You
could identify this one by the "BRA (-23)" at the bottom of the infinite
loop.)
Fixed the string vector print routine to properly handle all numbers of
entries in the hash table. Previously, it would always print duplicate
entries if there were < 6 commands hashed, and would sometimes print
duplicates (depending on previous contents of an internal table) for
other numbers of commands.
gsh would wait on background processes started from an exec file
(executed, not sourced). Now the exec file does not wait on the process,
but the background process is not associated with the parent shell after
the exec file terminates.
Made gsh globbing work more like csh: if none of the requested patterns
are found, print "No match" and exit.
At startup, if /etc/glogin, $HOME/glogin, or $HOME/gshrc does not exist,
don't report a "file not found" error message. (PR#100)
1998-12-31 18:29:14 +00:00
|
|
|
jmp done
|
1997-11-18 05:31:00 +00:00
|
|
|
|
|
|
|
|
notfound ph4 #4*3
|
1998-08-03 17:30:30 +00:00
|
|
|
~NEW
|
1997-11-18 05:31:00 +00:00
|
|
|
sta ptr
|
|
|
|
|
stx ptr+2
|
|
|
|
|
ldy #2
|
|
|
|
|
ldx hashval
|
|
|
|
|
lda AliasTable,x
|
|
|
|
|
sta [ptr]
|
|
|
|
|
lda AliasTable+2,x
|
|
|
|
|
sta [ptr],y
|
|
|
|
|
pei (aliasname+2)
|
1998-09-08 16:53:14 +00:00
|
|
|
pei (aliasname)
|
1997-11-18 05:31:00 +00:00
|
|
|
jsr cstrlen
|
|
|
|
|
inc a
|
|
|
|
|
pea 0
|
|
|
|
|
pha
|
1998-08-03 17:30:30 +00:00
|
|
|
~NEW
|
1997-11-18 05:31:00 +00:00
|
|
|
sta tmp
|
|
|
|
|
stx tmp+2
|
|
|
|
|
ldy #4
|
|
|
|
|
sta [ptr],y
|
|
|
|
|
ldy #4+2
|
|
|
|
|
txa
|
|
|
|
|
sta [ptr],y
|
|
|
|
|
pei (aliasname+2)
|
|
|
|
|
pei (aliasname)
|
|
|
|
|
pei (tmp+2)
|
|
|
|
|
pei (tmp)
|
|
|
|
|
jsr copycstr
|
|
|
|
|
pei (aliasval+2)
|
1998-09-08 16:53:14 +00:00
|
|
|
pei (aliasval)
|
1997-11-18 05:31:00 +00:00
|
|
|
jsr cstrlen
|
|
|
|
|
inc a
|
|
|
|
|
pea 0
|
|
|
|
|
pha
|
1998-08-03 17:30:30 +00:00
|
|
|
~NEW
|
1997-11-18 05:31:00 +00:00
|
|
|
sta tmp
|
|
|
|
|
stx tmp+2
|
|
|
|
|
ldy #8
|
|
|
|
|
sta [ptr],y
|
|
|
|
|
ldy #8+2
|
|
|
|
|
txa
|
|
|
|
|
sta [ptr],y
|
|
|
|
|
pei (aliasval+2)
|
|
|
|
|
pei (aliasval)
|
|
|
|
|
pei (tmp+2)
|
|
|
|
|
pei (tmp)
|
|
|
|
|
jsr copycstr
|
|
|
|
|
ldx hashval
|
|
|
|
|
lda ptr
|
|
|
|
|
sta AliasTable,x
|
|
|
|
|
lda ptr+2
|
|
|
|
|
sta AliasTable+2,x
|
1998-09-08 16:53:14 +00:00
|
|
|
|
1997-11-18 05:31:00 +00:00
|
|
|
done return
|
|
|
|
|
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
;=========================================================================
|
|
|
|
|
;
|
|
|
|
|
; Remove an alias
|
|
|
|
|
;
|
|
|
|
|
;=========================================================================
|
|
|
|
|
|
|
|
|
|
removealias START
|
|
|
|
|
|
|
|
|
|
using AliasData
|
|
|
|
|
|
|
|
|
|
oldptr equ 0
|
|
|
|
|
ptr equ oldptr+4
|
|
|
|
|
space equ ptr+4
|
|
|
|
|
|
|
|
|
|
subroutine (4:aliasname),space
|
|
|
|
|
|
|
|
|
|
pei (aliasname+2)
|
|
|
|
|
pei (aliasname)
|
|
|
|
|
jsl hashalias
|
|
|
|
|
tax
|
|
|
|
|
lda AliasTable,x
|
|
|
|
|
sta ptr
|
|
|
|
|
lda AliasTable+2,x
|
|
|
|
|
sta ptr+2
|
|
|
|
|
lda #^Aliastable
|
|
|
|
|
sta oldptr+2
|
|
|
|
|
clc
|
|
|
|
|
txa
|
|
|
|
|
adc #AliasTable
|
|
|
|
|
sta oldptr
|
|
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
searchloop ora2 ptr,ptr+2,@a
|
|
|
|
|
beq done
|
1997-11-18 05:31:00 +00:00
|
|
|
|
|
|
|
|
ldy #4+2
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
pha
|
|
|
|
|
ldy #4
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
pha
|
|
|
|
|
pei (aliasname+2)
|
|
|
|
|
pei (aliasname)
|
|
|
|
|
jsr cmpcstr
|
|
|
|
|
beq foundit
|
|
|
|
|
mv4 ptr,oldptr
|
|
|
|
|
ldy #2
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
tax
|
|
|
|
|
lda [ptr]
|
|
|
|
|
sta ptr
|
|
|
|
|
stx ptr+2
|
|
|
|
|
bra searchloop
|
|
|
|
|
|
|
|
|
|
foundit ldy #2
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
sta [oldptr],y
|
|
|
|
|
lda [ptr]
|
|
|
|
|
sta [oldptr]
|
|
|
|
|
ldy #4+2
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
pha
|
|
|
|
|
ldy #4
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
pha
|
|
|
|
|
jsl nullfree
|
|
|
|
|
ldy #8+2
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
pha
|
|
|
|
|
ldy #8
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
pha
|
|
|
|
|
jsl nullfree
|
|
|
|
|
pei (ptr+2)
|
|
|
|
|
pei (ptr)
|
|
|
|
|
jsl nullfree
|
1998-09-08 16:53:14 +00:00
|
|
|
|
1997-11-18 05:31:00 +00:00
|
|
|
done return
|
|
|
|
|
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
;=========================================================================
|
|
|
|
|
;
|
|
|
|
|
; Find an alias
|
|
|
|
|
;
|
|
|
|
|
;=========================================================================
|
|
|
|
|
|
|
|
|
|
findalias START
|
|
|
|
|
|
|
|
|
|
using AliasData
|
|
|
|
|
|
|
|
|
|
ptr equ 0
|
|
|
|
|
value equ ptr+4
|
|
|
|
|
space equ value+4
|
|
|
|
|
|
|
|
|
|
subroutine (4:aliasname),space
|
|
|
|
|
|
|
|
|
|
stz value
|
|
|
|
|
stz value+2
|
|
|
|
|
|
|
|
|
|
pei (aliasname+2)
|
|
|
|
|
pei (aliasname)
|
|
|
|
|
jsl hashalias
|
|
|
|
|
tax
|
|
|
|
|
lda AliasTable,x
|
|
|
|
|
sta ptr
|
|
|
|
|
lda AliasTable+2,x
|
|
|
|
|
sta ptr+2
|
|
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
searchloop ora2 ptr,ptr+2,@a
|
|
|
|
|
beq done
|
1997-11-18 05:31:00 +00:00
|
|
|
|
|
|
|
|
ldy #4+2
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
pha
|
|
|
|
|
ldy #4
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
pha
|
|
|
|
|
pei (aliasname+2)
|
|
|
|
|
pei (aliasname)
|
|
|
|
|
jsr cmpcstr
|
|
|
|
|
beq foundit
|
|
|
|
|
ldy #2
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
tax
|
|
|
|
|
lda [ptr]
|
|
|
|
|
sta ptr
|
|
|
|
|
stx ptr+2
|
|
|
|
|
bra searchloop
|
|
|
|
|
|
|
|
|
|
foundit ldy #8
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
sta value
|
|
|
|
|
ldy #8+2
|
|
|
|
|
lda [ptr],y
|
|
|
|
|
sta value+2
|
|
|
|
|
|
|
|
|
|
done return 4:value
|
|
|
|
|
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
;=========================================================================
|
|
|
|
|
;
|
|
|
|
|
; Start alias
|
|
|
|
|
;
|
|
|
|
|
;=========================================================================
|
|
|
|
|
|
|
|
|
|
startalias START
|
|
|
|
|
|
|
|
|
|
using AliasData
|
|
|
|
|
|
|
|
|
|
stz AliasNum
|
|
|
|
|
mv4 AliasTable,AliasPtr
|
|
|
|
|
rtl
|
|
|
|
|
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
;=========================================================================
|
|
|
|
|
;
|
|
|
|
|
; Next alias
|
|
|
|
|
;
|
|
|
|
|
;=========================================================================
|
|
|
|
|
|
|
|
|
|
nextalias START
|
|
|
|
|
|
|
|
|
|
using AliasData
|
|
|
|
|
|
|
|
|
|
value equ 0
|
|
|
|
|
space equ value+4
|
|
|
|
|
|
|
|
|
|
subroutine (0:fubar),space
|
|
|
|
|
|
|
|
|
|
stz value
|
|
|
|
|
stz value+2
|
|
|
|
|
puke if2 AliasNum,cs,#VTABSIZE,done
|
|
|
|
|
|
|
|
|
|
ora2 AliasPtr,AliasPtr+2,@a
|
|
|
|
|
bne flush
|
|
|
|
|
inc AliasNum
|
|
|
|
|
lda AliasNum
|
|
|
|
|
asl2 a
|
|
|
|
|
tax
|
|
|
|
|
lda AliasTable,x
|
|
|
|
|
sta AliasPtr
|
|
|
|
|
lda AliasTable+2,x
|
|
|
|
|
sta AliasPtr+2
|
|
|
|
|
bra puke
|
|
|
|
|
|
|
|
|
|
flush mv4 AliasPtr,value
|
|
|
|
|
ldy #2
|
|
|
|
|
lda [value]
|
|
|
|
|
sta AliasPtr
|
|
|
|
|
lda [value],y
|
|
|
|
|
sta AliasPtr+2
|
|
|
|
|
|
|
|
|
|
done return 4:value
|
|
|
|
|
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
;=========================================================================
|
|
|
|
|
;
|
|
|
|
|
; Hash an alias
|
|
|
|
|
;
|
|
|
|
|
;=========================================================================
|
|
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
hashalias PRIVATE
|
1997-11-18 05:31:00 +00:00
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
hashval equ 0
|
|
|
|
|
space equ hashval+2
|
1997-11-18 05:31:00 +00:00
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
subroutine (4:p),space
|
|
|
|
|
|
|
|
|
|
lda #11
|
|
|
|
|
sta hashval
|
1997-11-18 05:31:00 +00:00
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
ldy #0
|
|
|
|
|
loop asl hashval
|
|
|
|
|
lda [p],y
|
|
|
|
|
and #$FF
|
|
|
|
|
beq done
|
|
|
|
|
clc
|
|
|
|
|
adc hashval
|
|
|
|
|
sta hashval
|
|
|
|
|
iny
|
|
|
|
|
bra loop
|
|
|
|
|
done UDivide (hashval,#VTABSIZE),(@a,@a)
|
1997-11-18 05:31:00 +00:00
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
asl2 a ;Make it an index.
|
|
|
|
|
sta hashval
|
1997-11-18 05:31:00 +00:00
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
return 2:hashval
|
1997-11-18 05:31:00 +00:00
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
END
|
1997-11-18 05:31:00 +00:00
|
|
|
|
|
|
|
|
;=========================================================================
|
|
|
|
|
;
|
|
|
|
|
; Alias data
|
|
|
|
|
;
|
|
|
|
|
;=========================================================================
|
|
|
|
|
|
|
|
|
|
AliasData DATA
|
|
|
|
|
|
|
|
|
|
AliasNum dc i2'0'
|
|
|
|
|
AliasPtr dc i4'0'
|
Changes for gsh version 2.0d8:
Fixed several mutual exclusion problems, including a particularly nasty
one that would cause gsh to loop forever inside the memory manager. (You
could identify this one by the "BRA (-23)" at the bottom of the infinite
loop.)
Fixed the string vector print routine to properly handle all numbers of
entries in the hash table. Previously, it would always print duplicate
entries if there were < 6 commands hashed, and would sometimes print
duplicates (depending on previous contents of an internal table) for
other numbers of commands.
gsh would wait on background processes started from an exec file
(executed, not sourced). Now the exec file does not wait on the process,
but the background process is not associated with the parent shell after
the exec file terminates.
Made gsh globbing work more like csh: if none of the requested patterns
are found, print "No match" and exit.
At startup, if /etc/glogin, $HOME/glogin, or $HOME/gshrc does not exist,
don't report a "file not found" error message. (PR#100)
1998-12-31 18:29:14 +00:00
|
|
|
AliasMutex key
|
1997-11-18 05:31:00 +00:00
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
AliasTable ds VTABSIZE*4
|
1997-11-18 05:31:00 +00:00
|
|
|
|
1998-09-08 16:53:14 +00:00
|
|
|
END
|
