[Win32forth-cvs] win32forth/src/lib LoadProject.f,1.5,1.6

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27480/src/lib

Modified Files:
	LoadProject.f 
Log Message:
- Removed the Forth-Instance-Counting from then Editor-IO.

Index: LoadProject.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/LoadProject.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** LoadProject.f	12 May 2007 07:49:22 -0000	1.5
--- LoadProject.f	13 May 2007 07:52:27 -0000	1.6
***************
*** 3,16 ****
  Needs src\lib\w_search.f
  
  IN-SYSTEM
  
  map-handle ProjectHndl
  
- create LatestProjectFile$ ," LatestProject.dat"
- 
  : CountMappedFile ( ProjectHndl - )
  	dup >hfileAddress @  swap >hfileLength  @	;
  
! : LoadProject
  	LatestProjectFile$ count Prepend<home>\ ProjectHndl open-map-file
  	abort" Use Win32Forth IDE to open or define a project"
--- 3,21 ----
  Needs src\lib\w_search.f
  
+ IN-APPLICATION
+ 
+ create LatestProjectFile$ ," LatestProject.dat"
+ 
+ IN-PREVIOUS
+ 
  IN-SYSTEM
  
  map-handle ProjectHndl
  
  : CountMappedFile ( ProjectHndl - )
  	dup >hfileAddress @  swap >hfileLength  @	;
  
! : LoadProject   ( -- )
! \ *G Compile the Project which was last used in the Win32ForthIDE
  	LatestProjectFile$ count Prepend<home>\ ProjectHndl open-map-file
  	abort" Use Win32Forth IDE to open or define a project"
***************
*** 21,32 ****
  	abort" Project not found. Use Win32Forth IDE to open or define a project"
  	ProjectHndl CountMappedFile false   w-search  \ Search the line with BuildFile=
! 		if	ProjectHndl CountMappedFile nip over - -rot + swap
! 			2dup 0xd scan nip - Prepend<home>\ temp$ place
! 			ProjectHndl close-map-file drop
! 			temp$ count "path-only" pad place
! 			pad dup +null count  "chdir
! 			cr ." Loading " temp$ count 2dup type included
! 		else	abort" Invalid projectfile"
! 		then
  ;
  
--- 26,37 ----
  	abort" Project not found. Use Win32Forth IDE to open or define a project"
  	ProjectHndl CountMappedFile false   w-search  \ Search the line with BuildFile=
!         if	ProjectHndl CountMappedFile nip over - -rot + swap
!                 2dup 0xd scan nip - Prepend<home>\ temp$ place
!                 ProjectHndl close-map-file drop
!                 temp$ count "path-only" pad place
!                 pad dup +null count  "chdir
!                 cr ." Loading " temp$ count 2dup type included
!         else	abort" Invalid projectfile"
!         then
  ;