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

ChangeLog 2000-11-08 18:25 UTC+0100

Browse Source
This commit is contained in:
Ryszard Glab
2000-11-08 17:28:24 +00:00
parent 0598030751
commit 9440d323b0
9 changed files with 37 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
harbour/ChangeLog
View File

@@ -1,3 +1,19 @@
2000-11-08 18:25 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
*source/vm/macro.c
*fixed support for field variables in TYPE() function
*tests/dbevalts.prg
*tests/newrdd.prg
*tests/testbrdb.prg
*tests/testlbl.prg
*tests/testrpt.prg
*tests/tstalias.prg
*tests/tstdbi.prg
*All file names should be written in lower case
NOTE: newrdd.prg still creates file in upper case since it is
hardcode somwhere in the RDD code
2000-11-08 15:40 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
*include/hbapi.h

9
harbour/source/vm/macro.c
View File

@@ -834,9 +834,12 @@ static void hb_compMemvarCheck( char * szVarName, HB_MACRO_DECL )
*/
if( hb_memvarScope( szVarName, strlen( szVarName ) + 1 ) <= HB_MV_ERROR )
{
/* there is no memvar variable visible at this moment */
HB_MACRO_DATA->status |= HB_MACRO_UNKN_VAR;
HB_MACRO_DATA->status &= ~HB_MACRO_CONT; /* don't run this pcode */
if( ! hb_dynsymFind( szVarName ) )
{
/* there is no memvar or field variable visible at this moment */
HB_MACRO_DATA->status |= HB_MACRO_UNKN_VAR;
HB_MACRO_DATA->status &= ~HB_MACRO_CONT; /* don't run this pcode */
}
}
}
}

2
harbour/tests/dbevalts.prg
View File

@@ -5,7 +5,7 @@
FUNCTION Main()
LOCAL nCount
USE Test
USE test
dbGoto( 4 )
? RecNo()

18
harbour/tests/newrdd.prg
View File

@@ -12,7 +12,7 @@ function Main()
SET EXCLUSIVE OFF
CLS
dbUseArea( .T., "DBF", "Test", "TESTDBF", .T., .F. )
dbUseArea( .T., "DBF", "test", "TESTDBF", .T., .F. )
? "RecCount:", TESTDBF->( RecCount() )
? "Used:", TESTDBF->( Used() )
? "Select:", TESTDBF->( Select() )
@@ -209,19 +209,19 @@ function Main()
InKey( 0 )
CLS
? 'dbCreate( "NewRdd", { { "First_Name", "C", 20, 0 }, ;'
? 'dbCreate( "newrdd", { { "First_Name", "C", 20, 0 }, ;'
? ' { "Age", "N", 3, 0 }, ;'
? ' { "Date", "D", 8, 0 }, ;'
? ' { "Rate", "N", 6, 2 }, ;'
? ' { "Memo", "M", 10, 0 }, ;'
? ' { "Student", "L", 1, 0 } },, .T., "NEWRDD" )'
? ' { "Student", "L", 1, 0 } },, .T., "newrdd" )'
? 'SET CENTURY ON'
dbCreate( "NewRdd", { { "First_Name", "C", 20, 0 }, ;
dbCreate( "newrdd", { { "First_Name", "C", 20, 0 }, ;
{ "Age", "N", 3, 0 }, ;
{ "Date", "D", 8, 0 }, ;
{ "Rate", "N", 6, 2 }, ;
{ "Memo", "M", 10, 0 }, ;
{ "Student", "L", 1, 0 } },, .T., "NEWRDD" )
{ "Student", "L", 1, 0 } },, .T., "newrdd" )
SET CENTURY ON
? "lUpdate:", NEWRDD->( lUpdate() )
@@ -301,13 +301,13 @@ function Main()
CLS
? 'NEWRDD->( dbCloseArea() )'
? 'dbUseArea( .T., "DBF", "NewRdd", "NEWRDD", .F., .F. )'
? 'dbUseArea( .T., "DBF", "newrdd", "NEWRDD", .F., .F. )'
? 'nI := 1'
? 'NEWRDD->( __dbPack( { || QOut( nI ), nI++ } ) )'
? '? "RecCount:", NEWRDD->( RecCount() )'
? ""
NEWRDD->( dbCloseArea() )
dbUseArea( .T., "DBF", "NewRdd", "NEWRDD", .F., .F. )
dbUseArea( .T., "DBF", "newrdd", "NEWRDD", .F., .F. )
? "Press any key to continue..."
InKey( 0 )
@@ -335,7 +335,7 @@ function Main()
? 'NEWRDD->( dbCloseArea() )'
? 'SORT ON FIRST /DC, AGE /D TO NEWRDD'
? 'dbUseArea( .T., "DBF", "NewRdd", "NEWRDD", .F., .F. )'
? 'dbUseArea( .T., "DBF", "newrdd", "NEWRDD", .F., .F. )'
? '? "RecCount:", NEWRDD->( RecCount() )'
? 'for nI := 1 to 8'
? ' ? NEWRDD->FIRST, NEWRDD->AGE'
@@ -357,7 +357,7 @@ function Main()
Select( "TESTDBF" )
SORT ON FIRST /DC, AGE /D TO NEWRDD
dbUseArea( .T., "DBF", "NewRdd", "NEWRDD", .F., .F. )
dbUseArea( .T., "DBF", "newrdd", "NEWRDD", .F., .F. )
? "RecCount:", NEWRDD->( RecCount() )
for nI := 1 to 8
? NEWRDD->FIRST, NEWRDD->AGE

2
harbour/tests/testbrdb.prg
View File

@@ -10,7 +10,7 @@ function Main()
cColor := SETCOLOR("W+/B")
CLS
USE Test
USE test
Browse()
SETCOLOR(cColor)

2
harbour/tests/testlbl.prg
View File

@@ -4,7 +4,7 @@
FUNCTION MAIN()
USE Test New
USE test New
LABEL FORM TEST

2
harbour/tests/testrpt.prg
View File

@@ -4,7 +4,7 @@
FUNCTION() MAIN
USE Test New
USE test New
Report FORM TEST

2
harbour/tests/tstalias.prg
View File

@@ -4,7 +4,7 @@
FUNCTION Main()
USE TEST
USE test
REPLACE Age WITH 1
? FIELD->Age

2
harbour/tests/tstdbi.prg
View File

@@ -13,7 +13,7 @@ funct main()
local i
local cStr := ""
USE "TEST" NEW
USE "test" NEW
for i := 1 to 100
cStr += Str( i ) + " " + xToStr( DbInfo( i ) ) + CRLF