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

See changelog

Browse Source
This commit is contained in:
Eddie Runia
1999-06-17 21:00:49 +00:00
parent 178f6d8c08
commit d19ad66dea
4 changed files with 3023 additions and 3011 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3008
harbour/19990617.log Normal file
View File

File diff suppressed because it is too large Load Diff

3014
harbour/ChangeLog
View File

File diff suppressed because it is too large Load Diff

4
harbour/source/rtl/set.c
View File

@@ -30,8 +30,8 @@ HARBOUR HB_SET( void );
HARBOUR HB___SETCENTURY( void );
static SYMBOL symbols[] = {
{ "SET" , FS_PUBLIC, HB_SET , 0 },
{ "SETCENTURY", FS_PUBLIC, HB___SETCENTURY, 0 },
{ "__SETCENTURY", FS_PUBLIC, HB___SETCENTURY, 0 },
{ "SET" , FS_PUBLIC, HB_SET , 0 }
};
void Set__InitSymbols( void )

8
harbour/tests/working/hscript/hscript.prg
View File

@@ -113,9 +113,10 @@ FUNCTION Main( cScript )
ELSE // Yes.
IF at( "%>", cLine ) != 0 // Is it inline?
aadd( aResult, "qOut( '" + ; // Yes, translate
substr( cLine, 1, nPos-1 ) + ; // only HTML to
"' ) " + NewLine + ; // qOut( <hmtl> )
// Yes, translate only HTML to qOut <hmtl>
aadd( aResult, "qOut( '" + ;
substr( cLine, 1, nPos-1 ) + ;
"' ) " + NewLine + ;
substr( cLine, nPos + 2, ;
at( "%>", cLine ) - ;
(nPos + 2) ) + ;
@@ -146,6 +147,7 @@ FUNCTION Main( cScript )
fClose( hFile )
// Creates the temporary HRB, erases the PRG
QOut( cHarbourDir + "harbour.exe" )
__Run( cHarbourDir + "harbour.exe " + cFile + " /q /n /gHRB" )
fErase( cFile )