fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2001-06-10 18:35 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2001-06-10 14:45:27 +00:00
parent a05226fa35
commit 4b57069202
2 changed files with 35 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
2001-06-10 18:35 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/pp/pplib.c
+ __PP_PATH( cPath, lClear ) added
* This function sets path for following #include's and clears existing
paths if lClear is passed and is TRUE
2001-06-10 15:06 GMT+2 Maurilio Longo <maurilio.longo@libero.it>
* source/rtl/memoedit.prg
! fixed error in handling of text (EOL delimiters handling was wrong)

29
harbour/source/pp/pplib.c
View File

@@ -143,6 +143,35 @@ HB_FUNC( __PP_INIT )
}
}
HB_FUNC( __PP_PATH )
{
PATHNAMES * pPath = hb_comp_pIncludePath, * pPathNext;
if( ISLOG( 2 ) && hb_parl( 2 ) )
{
while( pPath )
{
pPathNext = pPath->pNext;
hb_xfree( pPath->szPath );
hb_xfree( pPath );
pPath = pPathNext;
}
}
if( ISCHAR( 1 ) )
{
char * cDelim;
char * cPath = hb_parc( 1 );
while( ( cDelim = strchr( cPath, OS_PATH_LIST_SEPARATOR ) ) != NULL )
{
*cDelim = '\0';
AddSearchPath( cPath, &hb_comp_pIncludePath );
cPath = cDelim + 1;
}
AddSearchPath( cPath, &hb_comp_pIncludePath );
}
}
HB_FUNC( __PP_FREE )
{
PATHNAMES * pPath = hb_comp_pIncludePath, * pPathNext;