Update of /cvsroot/win32forth/win32forth/apps/ProMgr
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/ProMgr
Modified Files:
ProjectManager.f
Log Message:
Jos: Depreciated the old path-ptr and replaced path-ptr by search-path
Index: ProjectManager.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** ProjectManager.f 4 Aug 2006 09:43:27 -0000 1.17
--- ProjectManager.f 26 Aug 2006 15:25:31 -0000 1.18
***************
*** 792,796 ****
s" ProjectName= " append ProjectName: self append&crlf
s" BuildFile= " append GetBuildFile: self relpath&append&crlf \ Sonntag, Mai 30 2004 - 10:40 dbu
! s" SearchPath= " append path-ptr count append&crlf
GetList: self lcount cells bounds
do i @ to ThisList
--- 792,796 ----
s" ProjectName= " append ProjectName: self append&crlf
s" BuildFile= " append GetBuildFile: self relpath&append&crlf \ Sonntag, Mai 30 2004 - 10:40 dbu
! s" SearchPath= " append search-path count append&crlf
GetList: self lcount cells bounds
do i @ to ThisList
***************
*** 845,849 ****
else true abort" Build file name not found!"
then bl get-word s" SearchPath=" caps-compare 0=
! if bl word count path-ptr place
else true abort" Search path not found!"
then \ now we read in files
--- 845,849 ----
else true abort" Build file name not found!"
then bl get-word s" SearchPath=" caps-compare 0=
! if bl word count search-path place
else true abort" Search path not found!"
then \ now we read in files
***************
*** 1632,1640 ****
pad count w/o create-file
if drop exit
! then >r path-ptr count r@ write-line drop
r> close-file drop ;
: set-build-path ( -- )
! path-ptr TheProjectWindow Start: GetPathDialog
dup if true to Modified then
2 = if save-path-to-file then
--- 1632,1640 ----
pad count w/o create-file
if drop exit
! then >r search-path count r@ write-line drop
r> close-file drop ;
: set-build-path ( -- )
! search-path TheProjectWindow Start: GetPathDialog
dup if true to Modified then
2 = if save-path-to-file then
***************
*** 1644,1650 ****
MAXSTRING CHARS 1+ LocalAlloc: old-path$
! path-ptr count old-path$ place \ save current search path
! path-ptr count nip 0=
if program-path-init \ set default project search path
then
--- 1644,1650 ----
MAXSTRING CHARS 1+ LocalAlloc: old-path$
! search-path count old-path$ place \ save current search path
! search-path count nip 0=
if program-path-init \ set default project search path
then
***************
*** 1672,1676 ****
pad 1+ 0 SetText: ProjectStatusBar
! old-path$ count path-ptr place \ restore current search path
; IDM_BUILD SetCommand
--- 1672,1676 ----
pad 1+ 0 SetText: ProjectStatusBar
! old-path$ count search-path place \ restore current search path
; IDM_BUILD SetCommand
***************
*** 1789,1794 ****
file$ count ForthName place
THEN
! \ s" path-ptr off fpath+ " file$ +place
! \ path-ptr count file$ +place
s" chdir " file$ +place
GetBuildFile: TheProject "path-only" file$ +place
--- 1789,1794 ----
file$ count ForthName place
THEN
! \ s" search-path off fpath+ " file$ +place
! \ search-path count file$ +place
s" chdir " file$ +place
GetBuildFile: TheProject "path-only" file$ +place
***************
*** 1919,1923 ****
if drop exit
then >r pad maxstring r@ read-line nip 0=
! if pad swap path-ptr place
else drop
then r> close-file drop ;
--- 1919,1923 ----
if drop exit
then >r pad maxstring r@ read-line nip 0=
! if pad swap search-path place
else drop
then r> close-file drop ;
|
