Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15807/win32forth-stc/src
Modified Files:
Shell.f
Log Message:
Index: Shell.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/Shell.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Shell.f 11 Sep 2007 09:15:16 -0000 1.2
--- Shell.f 11 Sep 2007 09:19:31 -0000 1.3
***************
*** 5,9 ****
\ Moved here from UTILS.F and partly rewritten by Dirk Busch
\ Dienstag, März 29 2005
!
cr .( Loading Shell Words...)
--- 5,9 ----
\ Moved here from UTILS.F and partly rewritten by Dirk Busch
\ Dienstag, März 29 2005
!
cr .( Loading Shell Words...)
***************
*** 133,143 ****
INTERNAL
- create cur-file maxstring allot \ ***
-
: $EXECBUF-PREPARE ( a1 -- ) \ preprocess for file and line parameters
base @ >r decimal
&execbuf off \ pre-zero the buffer
count
! begin 2dup ascii % scan dup
while 2dup 2>r nip - execbuf+ 2r>
over s" %FILENAME" tuck ISTR=
--- 133,141 ----
INTERNAL
: $EXECBUF-PREPARE ( a1 -- ) \ preprocess for file and line parameters
base @ >r decimal
&execbuf off \ pre-zero the buffer
count
! begin 2dup [char] % scan dup
while 2dup 2>r nip - execbuf+ 2r>
over s" %FILENAME" tuck ISTR=
***************
*** 189,202 ****
: editor" ( -<string">- ) \ set the editor command string
! ascii " word count editor$ place ;
: browse" ( -<string">- ) \ set the browser command string
! ascii " word count browse$ place ;
: shell" ( -<string">- ) \ set the shell command string
! ascii " word count shell$ place ;
: dos" ( -<string">- ) \ set the dos command string
! ascii " word count dos$ place dos$ +NULL ;
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 187,200 ----
: editor" ( -<string">- ) \ set the editor command string
! [char] " word count editor$ place ;
: browse" ( -<string">- ) \ set the browser command string
! [char] " word count browse$ place ;
: shell" ( -<string">- ) \ set the shell command string
! [char] " word count shell$ place ;
: dos" ( -<string">- ) \ set the dos command string
! [char] " word count dos$ place dos$ +NULL ;
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
***************
*** 206,218 ****
IN-SYSTEM
! : .quote ( - ) ascii " emit ;
! : type-quoted ( adr n - ) .quote type .quote ;
! : .shell \ display the editor, browser, shell & dos strings
! cr ." EDITOR: " editor$ count type-quoted
! cr ." BROWSE: " browse$ count type-quoted
! cr ." SHELL: " shell$ count type-quoted
! cr ." DOS: " dos$ count type-quoted
! ;
synonym .editor .shell DEPRECATED
--- 204,226 ----
IN-SYSTEM
! : ,$ ( -< #text#>- )
! >in @ bl word swap >in ! 1+ c@
! word count here place here c@ 1+ allot 0 c, align ;
! : .$ ( -< #text#>- )
! POSTPONE (.") ,$ ; immediate
!
! : s$ ( -< #text#>- )
! ( -- a1 n1 )
! POSTPONE (s") ,$ ; immediate
!
! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
!
! : .shell ( -- ) \ display the editor, browser, shell & dos strings
! cr .$ 'EDITOR" ' editor$ count type .$ '"'
! cr .$ 'BROWSE" ' browse$ count type .$ '"'
! cr .$ 'SHELL" ' shell$ count type .$ '"'
! cr .$ 'DOS" ' dos$ count type .$ '"' ;
synonym .editor .shell DEPRECATED
***************
*** 312,314 ****
>R Prepend<home>\ temp$ +place \ file:<absolute path>\<file name>.<ext>
temp$ count r> "web-link ;
! \s
--- 320,322 ----
>R Prepend<home>\ temp$ +place \ file:<absolute path>\<file name>.<ext>
temp$ count r> "web-link ;
! |
