[Win32forth-cvs] win32forth/apps/SciEdit EdCompile.f,1.1,1.2 Main.f,1.2,1.3

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10915/apps/SciEdit

Modified Files:
	EdCompile.f Main.f 
Log Message:
zEXEC rewritten (see Shell.f), made DEPRECATED work for class members,SF[1178189] fixed, SF[1178189] fixed, SF[1178186] fixed, SF[1167791] fixed, SF[774094] fixed; and some other small changes I can't remebere any more

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Main.f	6 Jan 2005 16:54:52 -0000	1.2
--- Main.f	18 Apr 2005 17:39:22 -0000	1.3
***************
*** 16,19 ****
--- 16,21 ----
  ANEW -Main.f
  
+ only forth also editor definitions \ put all words into the EDITOR vocabulary
+ 
  : sysgen ;
  

Index: EdCompile.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdCompile.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** EdCompile.f	21 Dec 2004 00:18:47 -0000	1.1
--- EdCompile.f	18 Apr 2005 17:39:21 -0000	1.2
***************
*** 68,72 ****
  \ -----------------------------------------------------------------------------
  
! : WaitForConsole { / ?deadlook -- } \ wait until console is ready to accept char's
                                      \ return's after 10 seconds even when the console is not ready
  	0 to ?deadlook
--- 68,72 ----
  \ -----------------------------------------------------------------------------
  
! : WaitForConsole { \ ?deadlook -- } \ wait until console is ready to accept char's
                                      \ return's after 10 seconds even when the console is not ready
  	0 to ?deadlook
***************
*** 84,89 ****
                                     file$ ?+\
          s" Win32For.exe"           file$ +place
!                                    file$ +NULL
!                                    file$ 1+ zEXEC
  
          \ wait untill Forth is loaded
--- 84,88 ----
                                     file$ ?+\
          s" Win32For.exe"           file$ +place
!                                    file$ EXEC-CMD drop
  
          \ wait untill Forth is loaded
***************
*** 111,115 ****
  \ -----------------------------------------------------------------------------
  :noname ( addr n -- )   \ compile a file
!                 { \ load$ file$ -- }
          MAXSTRING LocalAlloc: load$
          MAXSTRING LocalAlloc: file$
--- 110,114 ----
  \ -----------------------------------------------------------------------------
  :noname ( addr n -- )   \ compile a file
!         { \ load$ file$ -- }
          MAXSTRING LocalAlloc: load$
          MAXSTRING LocalAlloc: file$
***************
*** 120,136 ****
          IF StartUpForth THEN \ then start one
  
! 	s" foreground-console" "Forth \ make Forth the front application
! 
!         s" chdir '" load$ place
!         file$ COUNT "path-only" load$ +place
!         s" '" load$ +place
!         load$ COUNT "Forth            \ Make file directory active
  
!         s" FLOAD '" load$ place
!         file$ COUNT load$ +place
!         s" '" load$ +place
!         load$ COUNT "Forth            \ Compile the source file
  
! 	; is Compile-File