[Win32forth-cvs] win32forth-stc/src Shell.f,1.2,1.3

[George H. <geo...@us...>]

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 ;
!