From c374d6f243ee4fc95115531b30b5e4ea5b4f55f0 Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Sat, 13 Oct 2007 00:12:25 +0000
Subject: [PATCH] 2007-10-13 02:12 UTC+0200 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/doc/destruct.txt     * update
 description for multiple inherited destructors

  * harbour/source/compiler/complex.c
    * _HB_CLASS and _HB_MEMBER are not longer reserved words

  * harbour/include/hbclass.ch
  * harbour/include/hbexprop.h
  * harbour/include/hbexprb.c
  * harbour/source/macro/macro.y
  * harbour/source/compiler/harbour.y
    * formatting and minor code cleanup

  * harbour/source/compiler/hbusage.c
    * added missing information about -undef:<id> switch to usage
      description

  * harbour/source/compiler/gencc.c
    ! fixed bug reported by Teo in code generated for SWITCH statement
---
 harbour/ChangeLog                 | 21 +++++++++++++++++++++
 harbour/doc/destruct.txt          | 10 +++-------
 harbour/include/hbclass.ch        | 16 ++++++++--------
 harbour/include/hbexprb.c         | 30 ++++++++++++++----------------
 harbour/include/hbexprop.h        |  2 +-
 harbour/source/compiler/complex.c | 21 +++++++++++++++++----
 harbour/source/compiler/gencc.c   | 18 +++++++++++++-----
 harbour/source/compiler/harbour.y |  4 +++-
 harbour/source/compiler/hbusage.c |  1 +
 harbour/source/macro/macro.y      |  2 ++
 10 files changed, 83 insertions(+), 42 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index b16ed6f000..dd0ee66930 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,27 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2007-10-13 02:12 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/doc/destruct.txt
+    * update description for multiple inherited destructors
+
+  * harbour/source/compiler/complex.c
+    * _HB_CLASS and _HB_MEMBER are not longer reserved words
+
+  * harbour/include/hbclass.ch
+  * harbour/include/hbexprop.h
+  * harbour/include/hbexprb.c
+  * harbour/source/macro/macro.y
+  * harbour/source/compiler/harbour.y
+    * formatting and minor code cleanup
+
+  * harbour/source/compiler/hbusage.c
+    * added missing information about -undef:<id> switch to usage
+      description
+
+  * harbour/source/compiler/gencc.c
+    ! fixed bug reported by Teo in code generated for SWITCH statement
+
 2007-10-10 21:11 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
   * harbour/tests/multifnc/t0.prg
   * harbour/tests/multifnc/t1.prg
diff --git a/harbour/doc/destruct.txt b/harbour/doc/destruct.txt
index 0eacd0f4d8..b13064e2ee 100644
--- a/harbour/doc/destruct.txt
+++ b/harbour/doc/destruct.txt
@@ -105,13 +105,9 @@ overwrite the error object created before destructor.
 
 Inheritance
 -----------
-Destructors can be inherited from the first super class in the
-same way as ON ERROR message. Defining destructor in class overwrites
-the inherited ones so they will not be executed.
-Maybe in some spare time I'll add support for executing all inherited
-super destructors.
-
-
+If class has more then one destructor inherited from other classes
+then all destructors are executed in reverted order. First current
+class destructor (if any) and then super class destructors.
 
 
 Defining destructors in CLASS definition code
diff --git a/harbour/include/hbclass.ch b/harbour/include/hbclass.ch
index 6d56f961c8..baad5f5620 100644
--- a/harbour/include/hbclass.ch
+++ b/harbour/include/hbclass.ch
@@ -157,7 +157,7 @@
 
 /* should we inherit from HBObject class by default ? */
 #ifdef HB_CLS_NOTOBJECT
-   #xtranslate __HB_CLS_PAR([<cls,...>])  => { [<cls>] }
+   #xtranslate __HB_CLS_PAR([<cls,...>])  => { <cls> }
 #else
    #xtranslate __HB_CLS_PAR([<cls,...>])  => iif( <.cls.>, { <cls> }, { @HBObject() } )
 #endif
@@ -204,7 +204,7 @@ DECLARE HBClass ;
  * bindings it casts object to class in which current method were defined.
  */
 #translate @:<MessageName>([<MsgParams,...>]) => ;
-                                ::realclass:<MessageName>([<MsgParams>])
+                                ::realclass:<MessageName>([ <MsgParams>])
 
 /* Indirect super casting translation */
 #xtranslate :Super( <SuperClass> ): => :<SuperClass>:
@@ -216,11 +216,11 @@ DECLARE HBClass ;
 #xtranslate __HB_CLS_ASSTRING( <FuncName> )                 => <(FuncName)>
 #xtranslate __HB_CLS_ASSTRING( <FuncName>([<params,...>]) ) => <(FuncName)>
 #xtranslate __HB_CLS_ASFUNC( <FuncName> )                   => <FuncName>()
-#xtranslate __HB_CLS_ASFUNC( <FuncName>([<params,...>]) )   => <FuncName>([<params>])
+#xtranslate __HB_CLS_ASFUNC( <FuncName>([<params,...>]) )   => <FuncName>([ <params>])
 #xtranslate __HB_CLS_ASID( <FuncName> )                     => <FuncName>
 #xtranslate __HB_CLS_ASID( <FuncName>([<params,...>]) )     => <FuncName>
 #xtranslate __HB_CLS_ASARGS( <FuncName> )                   =>
-#xtranslate __HB_CLS_ASARGS( <FuncName>([<Args,...>]) )     => [<Args>]
+#xtranslate __HB_CLS_ASARGS( <FuncName>([<Args,...>]) )     => [ <Args>]
 #xtranslate __HB_CLS_ASARGSOPT( <FuncName> )                =>
 #xtranslate __HB_CLS_ASARGSOPT( <FuncName>([<Args,...>]) )  => [, <Args>]
 #xtranslate __HB_CLS_ISVAR( <var> )                         => __HB_CLS_VARERR(<var>)
@@ -375,7 +375,7 @@ DECLARE HBClass ;
    MESSAGE <MessageName> [ AS <type> ] BLOCK {|Self __HB_CLS_ASARGSOPT(<MessageName>) [,<Locals>]| __HB_CLS_SYMBOL_UNUSED(Self), <Code>} <ctor> <export> <protect> <hidde> <persistent>
 
 #xcommand MESSAGE <MessageName> [ AS <type> ] <arg: ARG, ARGS> <Args,...> [LOCAL <Locals,...>] INLINE <Code,...> [<ctor: CONSTRUCTOR>] [<export: EXPORTED, VISIBLE>] [<protect: PROTECTED>] [<hidde: HIDDEN>] [<persistent: PERSISTENT, PROPERTY>] => ;
-   MESSAGE __HB_CLS_ASID(<MessageName>)([<Args>]) [ AS <type> ] [LOCAL <Locals>] INLINE <Code> <ctor> <export> <protect> <hidde> <persistent>
+   MESSAGE __HB_CLS_ASID(<MessageName>)(<Args>) [ AS <type> ] [LOCAL <Locals>] INLINE <Code> <ctor> <export> <protect> <hidde> <persistent>
 
 #xcommand MESSAGE <MessageName> [ AS <type> ] TO <oObject> [<export: EXPORTED, VISIBLE>] [<protect: PROTECTED>] [<hidde: HIDDEN>] [<persistent: PERSISTENT, PROPERTY>] =>;
    MESSAGE <MessageName> [ AS <type> ] INLINE Self:<oObject>:<MessageName> <export> <protect> <hidde> <persistent>
@@ -425,7 +425,7 @@ DECLARE HBClass ;
 /* CLASSY SYNTAX */
 #ifdef HB_CLS_CSY
 
-   #xcommand CREATE CLASS <ClassName> [<*more*>] => CLASS <ClassName> [<more>]
+   #xcommand CREATE CLASS <ClassName> [<*more*>] => CLASS <ClassName> <more>
    #xcommand END CLASS [<*more*>]   => ENDCLASS <more>
    #xcommand CLASS VAR <*more*>     => CLASSVAR <more>
    #xcommand CLASS METHOD <*more*>  => CLASSMETHOD <more>
@@ -451,10 +451,10 @@ DECLARE HBClass ;
 
    // Classy compatibility... Added By JF Lefebvre (mafact) 2006/11/07
    #xcommand METHOD <MethodName> [ AS <type> ] INLINE [Local <v>,] <Code,...> [<other>] => ;
-             MESSAGE <MethodName> [ AS <type> ] BLOCK {|Self [,<v>] | __HB_CLS_SYMBOL_UNUSED(Self), <Code>} [<other>]
+             MESSAGE <MethodName> [ AS <type> ] BLOCK {|Self [,<v>] | __HB_CLS_SYMBOL_UNUSED(Self), <Code>} [ <other>]
 
    #xcommand METHOD <MethodName>( [<params,...>] ) [ AS <type> ] INLINE [Local <v>,] <Code,...> [<other>] => ;
-             MESSAGE <MethodName> [ AS <type> ] BLOCK {|Self [,<params>] [,<v>] | __HB_CLS_SYMBOL_UNUSED(Self), <Code> } [<other>]
+             MESSAGE <MethodName> [ AS <type> ] BLOCK {|Self [, <params>] [, <v>] | __HB_CLS_SYMBOL_UNUSED(Self), <Code> } [ <other>]
 
 
    /* This definitions are not Class(y) compatible - I'm leaving them as is now */
diff --git a/harbour/include/hbexprb.c b/harbour/include/hbexprb.c
index 3aa65816e3..70e495cd2b 100644
--- a/harbour/include/hbexprb.c
+++ b/harbour/include/hbexprb.c
@@ -936,28 +936,26 @@ static HB_EXPR_FUNC( hb_compExprUseList )
    switch( iMessage )
    {
       case HB_EA_REDUCE:
+         if( HB_SUPPORT_XBASE )
          {
-            if( HB_SUPPORT_XBASE )
+            if( hb_compExprListLen( pSelf ) == 1 )
             {
-               if( hb_compExprListLen( pSelf ) == 1 )
+               HB_EXPR_PTR pExpr = pSelf->value.asList.pExprList;
+               if( pExpr->ExprType == HB_ET_MACRO &&
+                   pExpr->value.asMacro.SubType != HB_ET_MACRO_SYMBOL &&
+                   pExpr->value.asMacro.SubType != HB_ET_MACRO_REFER &&
+                   pExpr->value.asMacro.SubType != HB_ET_MACRO_ALIASED )
                {
-                  HB_EXPR_PTR pExpr = pSelf->value.asList.pExprList;
-                  if( pExpr->ExprType == HB_ET_MACRO &&
-                      pExpr->value.asMacro.SubType != HB_ET_MACRO_SYMBOL &&
-                      pExpr->value.asMacro.SubType != HB_ET_MACRO_REFER &&
-                      pExpr->value.asMacro.SubType != HB_ET_MACRO_ALIASED )
-                  {
-                     pExpr->value.asMacro.SubType |= HB_ET_MACRO_PARE;
-                  }
+                  pExpr->value.asMacro.SubType |= HB_ET_MACRO_PARE;
                }
             }
-
-            hb_compExprReduceList( pSelf, HB_COMP_PARAM );
-            /* NOTE: if the list contains a single expression then the list
-             * is not reduced to this expression - if you need that reduction
-             * then call hb_compExprListStrip() additionaly
-             */
          }
+
+         hb_compExprReduceList( pSelf, HB_COMP_PARAM );
+         /* NOTE: if the list contains a single expression then the list
+          * is not reduced to this expression - if you need that reduction
+          * then call hb_compExprListStrip() additionaly
+          */
          break;
 
       case HB_EA_ARRAY_AT:
diff --git a/harbour/include/hbexprop.h b/harbour/include/hbexprop.h
index 8e6f2014f2..e8390eb63b 100644
--- a/harbour/include/hbexprop.h
+++ b/harbour/include/hbexprop.h
@@ -60,7 +60,7 @@ HB_EXTERN_BEGIN
 /* Definitions of function templates used in expression's message
  * handling
  */
-#define  HB_EXPR_FUNC( proc )  HB_EXPR_PTR proc( HB_EXPR_PTR pSelf, int iMessage, HB_COMP_DECL )
+#define  HB_EXPR_FUNC( proc )  HB_EXPR_PTR proc( HB_EXPR_PTR pSelf, HB_EXPR_MESSAGE iMessage, HB_COMP_DECL )
 typedef  HB_EXPR_FUNC( HB_EXPR_FUNC_ );
 typedef  HB_EXPR_FUNC_ *HB_EXPR_FUNC_PTR;
 
diff --git a/harbour/source/compiler/complex.c b/harbour/source/compiler/complex.c
index bf2b885fe4..b80022880b 100644
--- a/harbour/source/compiler/complex.c
+++ b/harbour/source/compiler/complex.c
@@ -1259,11 +1259,24 @@ int hb_complex( YYSTYPE *yylval_ptr, HB_COMP_DECL )
                break;
             }
             case DECLARE_CLASS:
-               pLex->iState = DECLARE_TYPE;
-               return iType;
+               if( pLex->iState == LOOKUP && !HB_PP_TOKEN_ISEOC( pToken->pNext ) &&
+                   HB_PP_TOKEN_TYPE( pToken->pNext->type ) == HB_PP_TOKEN_KEYWORD )
+               {
+                  pLex->iState = DECLARE_TYPE;
+                  return DECLARE_CLASS;
+               }
+               iType = IDENTIFIER;
+               break;
             case DECLARE_MEMBER:
-               pLex->iState = OPERATOR;
-               return iType;
+               if( pLex->iState == LOOKUP && !HB_PP_TOKEN_ISEOC( pToken->pNext ) &&
+                   ( HB_PP_TOKEN_TYPE( pToken->pNext->type ) == HB_PP_TOKEN_KEYWORD ||
+                     HB_PP_TOKEN_TYPE( pToken->pNext->type ) == HB_PP_TOKEN_LEFT_CB ) )
+               {
+                  pLex->iState = OPERATOR;
+                  return DECLARE_MEMBER;
+               }
+               iType = IDENTIFIER;
+               break;
 
             case EXIT:
             case STATIC:
diff --git a/harbour/source/compiler/gencc.c b/harbour/source/compiler/gencc.c
index 497291681e..5034cd3461 100644
--- a/harbour/source/compiler/gencc.c
+++ b/harbour/source/compiler/gencc.c
@@ -1625,6 +1625,7 @@ static HB_GENC_FUNC( hb_p_switch )
 
    HB_GENC_LABEL();
 
+   lPCodePos += 3;
    for( us = 0; us < usCases; ++us )
    {
       switch( pFunc->pCode[ lPCodePos ] )
@@ -1660,18 +1661,20 @@ static HB_GENC_FUNC( hb_p_switch )
       }
    }
 
-   lPCodePos = ulStart;
    if( fStr || fNum )
    {
       fprintf( cargo->yyc, "\t{\n\t\tPHB_ITEM pSwitch = hb_stackItemFromTop( -1 );\n"
                            "\t\tHB_TYPE type = hb_itemType( pSwitch );\n" );
       if( fStr )
+      {
          fprintf( cargo->yyc, "\t\tchar * pszText = (type & HB_IT_STRING) ? hb_itemGetCPtr( pSwitch ) : NULL;\n" );
+         fprintf( cargo->yyc, "\t\tULONG ulLen = pszText ? hb_itemGetCLen( pSwitch ) : 0;\n" );
+      }
       if( fNum )
          fprintf( cargo->yyc, "\t\tlong lVal = (type & HB_IT_NUMINT) ? hb_itemGetNL( pSwitch ) : 0;\n\n" );
    }
 
-   lPCodePos += 3;
+   lPCodePos = ulStart + 3;
    for( us = 0; us < usCases; ++us )
    {
       switch( pFunc->pCode[ lPCodePos ] )
@@ -1682,8 +1685,11 @@ static HB_GENC_FUNC( hb_p_switch )
             lPCodePos += 5;
             break;
          case HB_P_PUSHSTRSHORT:
-            fprintf( cargo->yyc, "\t\tif( pszText && !strcmp( pszText, \"%s\" ) )\n",
-                     &pFunc->pCode[ lPCodePos + 2 ] );
+            fprintf( cargo->yyc, "\t\tif( pszText && ulLen == %d && !memcmp( pszText, ",
+                     pFunc->pCode[ lPCodePos + 1 ] - 1 );
+            hb_compGenCString( cargo->yyc, &pFunc->pCode[ lPCodePos + 2 ],
+                               pFunc->pCode[ lPCodePos + 1 ] - 1 );
+            fprintf( cargo->yyc, ", %d ) )\n", pFunc->pCode[ lPCodePos + 1 ] - 1 );
             lPCodePos += 2 + pFunc->pCode[ lPCodePos + 1 ];
             break;
          case HB_P_PUSHNIL:
@@ -1710,7 +1716,9 @@ static HB_GENC_FUNC( hb_p_switch )
       fprintf( cargo->yyc, "\t\t{\n\t\t\thb_stackPop();\n\t\t\tgoto lab%05ld;\n\t\t}\n",
                HB_GENC_GETLABEL( ulNewPos ) );
    }
-   fprintf( cargo->yyc, "\t}\n" );
+   if( fStr || fNum )
+      fprintf( cargo->yyc, "\t}\n" );
+
    return lPCodePos - ulStart;
 }
 
diff --git a/harbour/source/compiler/harbour.y b/harbour/source/compiler/harbour.y
index ccb95eb2e8..e44a305915 100644
--- a/harbour/source/compiler/harbour.y
+++ b/harbour/source/compiler/harbour.y
@@ -62,6 +62,8 @@
 #undef YYMALLOC
 #define YYMALLOC hb_xgrab
 
+#define NO_YYERROR
+
 static void hb_compLoopStart( HB_COMP_DECL, BOOL );
 static void hb_compLoopEnd( HB_COMP_DECL );
 static void hb_compLoopLoop( HB_COMP_DECL );
@@ -2253,7 +2255,7 @@ void hb_compElseIfKill( HB_COMP_DECL )
 {
    HB_ELSEIF_PTR pFix;
    HB_ELSEIF_PTR pDel;
-   
+
    while( HB_COMP_PARAM->elseif )
    {
       pFix = HB_COMP_PARAM->elseif;
diff --git a/harbour/source/compiler/hbusage.c b/harbour/source/compiler/hbusage.c
index 7cb28686de..7a584043cf 100644
--- a/harbour/source/compiler/hbusage.c
+++ b/harbour/source/compiler/hbusage.c
@@ -91,6 +91,7 @@ void hb_compPrintUsage( HB_COMP_DECL, char * szSelf )
            "\n          %cs               syntax check only",
 /* TODO:   "\n          %ct<path>         path for temp file creation", */
            "\n          %cu[<file>]       use command def set in <file> (or none)",
+           "\n          %cundef:<id>      #undef <id>",
            "\n          %cv               variables are assumed M->",
            "\n          %cw[<level>]      set warning level number (0..3, default 1)",
            "\n          %cx[<prefix>]     set symbol init function name prefix (for .c only)",
diff --git a/harbour/source/macro/macro.y b/harbour/source/macro/macro.y
index f6be916aa3..d0f6bb4d06 100644
--- a/harbour/source/macro/macro.y
+++ b/harbour/source/macro/macro.y
@@ -93,6 +93,8 @@
 #undef YYMALLOC
 #define YYMALLOC hb_xgrab
 
+#define NO_YYERROR
+
 /* yacc/lex related definitions
  */