4 Methoden:

|

/* public: */ char * Scanner1 ::   skip_Arguments

/* public: */ char * Scanner1 ::   skip_DEBUG





#define static

   #include scanner1.h : cpp
   #undef   BB
   #undef   BBStr
   #undef   bb
   #undef   bbStr
   
#define BB
   
#define BBStr( x,y,z )  ;
   
#define bb
   
#define bbStr( x,y,z )  ;

#ifndef procNestOn

   #undef   BB
   #undef   BBStr
   #undef   bb
   #undef   bbStr
   #undef   LB_
   #undef   LE_
   #undef   LE_ret
   #undef      ret
   #undef      ret_
   #undef   __
   #undef   ___
   
#define BB  if ( 1 < call_nr || errno )
   
#define bb  if ( 1 < call_nr || errno )

   
#define BBStr( x,y,z )  {  BB traceStr( x,y,z );  }
   
#define bbStr( x,y,z )  {  bb traceStr( x,y,z );  }

   
#define __  { bb { printf( "\nLine %i", __LINE__ ); }}
   
#define ___

   
#define ret_         { __ return ; }
   
#define LE_            __ return ; }

   
#define LE_ret( x )    __ return( x ); }
   
#define ret( x )  { __ return( x ); }

   
#define LB_( x )  { bb printf( "\n-> %s", x );  safe_ut.showSysCalls = 1 ; 

#endif
// #define LB_( x )  { if ( *x == 'C' )  checkPoint = x ;
// #define LB_( x )  { show_LB( 'C', x );



/* public: */ char *  Scanner1 :: skip_Arguments
/* -----------------------------------------------------------------------------

   -----------------------------------------------------------------------------
*/ (
   char *  e
,  char *  ee
   )
   LB_("Scanner1.skip_Arguments")

   if ( e[-1] != '(' )  fErr   _1(ee-e)

   uint k = 1 ;  e-- ;
                                  if ( ee-e > 1000 )  ee = e + 1000 ;
   while ( k && e < ee )
         {
         if ( !*e ) {  traceStr( "EEE", e-80, 80 ); fErr1( e+1 ) }

         if    ( *e == ')' )
         then  {
               if not_At( e-1, "')'" )
                  {
                  if ( --k < 0 )  fErr1( k )
                  }
               }
         esif  ( *e == '(' && not_At( e-1, "'('" ) )  k++ ;

         if ( *e == '"' )  skip_str( e, ee );  else e++ ;

         if At( e, "//" )  to_( e, '\n' )
         }

   skip_space( e )

   if At( e, "const" ) {  e += 5 ;  skip_space( e )  }
   if At( e, "\\\n"  ) {  e += 1 ;  skip_space( e )  }
   //
   // falls in einem Macro mit mehr als nur einer Zeile

   LE_ret( e )



/* public: */ char *  Scanner1 :: skip_DEBUG ( char * c
// -----------------------------------------------------------------------------
   )
   LB_("Scanner1.skip_DEBUG")

   if not_At( c, "#ifdef _DEBUG" )  fErr

   int k = 1 ;

   while ( k )
         {
         c++ ;  to_( c, '#' )

         if not_in_str( c[1], "udien" )  continue ;

         if At( c, "#if" )  k++ ;  esif At( c, "#endif" )  k-- ;

         if ( k == 1 && At( c, "#else" ) )  k = 0 ;
         }

   to_( c, '\n' )

   LE_ret( c )

#undef static 
#endif