NAME

       getablexprsupport - gives the expression's support.

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 );

SEE ALSO

       abl(1)