SYNOPSYS

#include "abl101.h"
 void *getablexprsupport( Expr, Mode )
  chain_list *Expr;
  int         Mode;

PARAMETERS

Expr

Expression.

Mode

The returned support's mode.

DESCRIPTION

getablexprsupport gives the support of Expr. if Mode is ABL_SUPPORT_CHAIN the support is returned using chain_list else it is returned using ptype_list. The support must be freed using the freechain or freeptype functions.

RETURN VALUE

getablexprsupport returns a pointer to a chain_list or a ptype_list.

EXAMPLE

#include "abl101.h"
  chain_list *Expr;
  ptype_list *Support;
  ptype_list *ScanSupport;
  Expr = createablbinexpr( ABL_AND,
                           createablatom( "a" ),
                           createablatom( "b" ) );
  Support = getablexprsupport( Expr, ABL_SUPPORT_PTYPE );
  /* displays a b */
  for ( ScanSupport  = Support; 
        ScanSupport != (ptype_list *)0;
        ScanSupport  = ScanSupport->NEXT )
  {
    printf( "%s ", (char *)ScanSupport->DATA );
  }
  freeptype( Support );