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

just added the delete DATA as well. The DATA will cleaned up anyhow !

Browse Source
This commit is contained in:
Eddie Runia
1999-05-13 13:29:44 +00:00
parent c86f92fd79
commit 93a8989d5a
2 changed files with 29 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
harbour/tests/broken/classes.dif
View File

@@ -1,5 +1,5 @@
--- \source\tcpp\cvstest\harbour\source\rtl\classes.c Tue May 11 20:23:38 1999
+++ \source\tcpp\harb21-2\source\rtl\classes.c Thu May 13 12:34:32 1999
+++ \source\tcpp\harb21-2\source\rtl\classes.c Thu May 13 14:04:46 1999
@@ -10,6 +10,7 @@
void PushSymbol( PSYMBOL );
void Message( PSYMBOL );
@@ -33,7 +33,7 @@
}
static HARBOUR GetClassData( void )
@@ -503,6 +514,114 @@
@@ -503,6 +514,116 @@
else
{ /* TODO: Crash code */
}
@@ -47,6 +47,14 @@
+ _retni( ++pClasses[ wClass - 1 ].wDatas ); /* Return and increase */
+} /* number of DATAs */
+
+HARBOUR __WDATADEC() /* <nSeq> = __wDataDec( <hClass> )*/
+{
+ WORD wClass = _parnl( 1 );
+
+ if( wClass )
+ _retni( ++pClasses[ wClass - 1 ].wDatas ); /* Return and decrease */
+} /* number of DATAs */
+
+HARBOUR CLASSMOD() /* Modify message (only for INLINE and METHOD) */
+ /* <xOld> := ClassMod( <oObj>, <cSymbol>, <pFunc> ) */
+{
@@ -125,13 +133,7 @@
+ {
+ ArrayDel( &pClass->aInlines, pClass->pMethods[ wAt ].wData );
+ /* Delete INLINE block */
+ }
+ else if( ( pFunc == SetData ) || ( pFunc == GetData ) )
+ { /* Not allowed for DATA */
+ printf( "\nCannot delete a DATA item yet" );
+ exit(1); /* TODO : Real error */
+ }
+ /* Move messages */
+ } /* Move messages */
+ for( ; pClass->pMethods[ wAt ].pMessage && wAt < wLimit; wAt ++ )
+ memcpy( &( pClass->pMethods[ wAt ] ),
+ &( pClass->pMethods[ wAt + 1 ] ), sizeof( METHOD ) );

18
harbour/tests/broken/dynobj.prg
View File

@@ -65,6 +65,8 @@ function Main()
QOut( "Data items after" )
HBDebug( oForm )
Pause()
QOut( "Let's attach a bigger smile" )
ClassMod( oForm:ClassH, "Smile", @BigSmile() )
@@ -99,6 +101,22 @@ function Main()
QOut( "What methods are in the class :" )
HBDebug( aoMethod( oForm ) )
Pause()
QOut( "Data items before" )
HBDebug( oForm )
QOut( "Let's delete cHelp" )
ClassDel( oForm:ClassH, "cHelp" )
ClassDel( oForm:ClassH, "_cHelp" )
__wDataDec( oForm:ClassH )
QOut( "Data items after" )
HBDebug( oForm )
/* oForm:cHelp := "Please crash" */
return nil