SYNOPSYS

#include "abl101.h"
int mapableveryexpr( Function, Expr )
  void      (*Function)();
  chain_list *Expr;

PARAMETERS

Function

Function name to apply to all operands.

Expr

Expression to scan.

DESCRIPTION

mapableveryexpr applies Function to all operands of Expr.

RETURN VALUE

mapableveryexpr returns the value of a logical AND applied on the results of the application of the function on the arguments of the expression Expr.

EXAMPLE

#include "abl101.h"
   int MapFunction( MapExpr )
     chain_list *MapExpr;
   {
     if ( ABL_ATOM( MapExpr ) )
     {
       if ( ABL_ATOM_VALUE( MapExpr ) == getablatomzero() )
       {
         return( 1 );
       }
     }
     return( 0 );
   }
   ...
   chain_list *Expr;
   ...
   mapableveryexpr( MapFunction, Expr );
   ...