1MAPABLEVERYEXPR(3) ABL FUNCTIONS MAPABLEVERYEXPR(3)
2
3
4
6 mapableveryexpr - applies a function to all operands.
7
9 #include "abl101.h"
10 int mapableveryexpr( Function, Expr )
11 void (∗Function)();
12 chain_list ∗Expr;
13
15 Function Function name to apply to all operands.
16
17 Expr Expression to scan.
18
20 mapableveryexpr applies Function to all operands of Expr.
21
23 mapableveryexpr returns the value of a logical AND applied on
24 the results of the application of the function on the arguments
25 of the expression Expr.
26
28 #include "abl101.h"
29 int MapFunction( MapExpr )
30 chain_list ∗MapExpr;
31 {
32 if ( ABL_ATOM( MapExpr ) )
33 {
34 if ( ABL_ATOM_VALUE( MapExpr ) == getablatomzero() )
35 {
36 return( 1 );
37 }
38 }
39 return( 0 );
40 }
41 ...
42 chain_list ∗Expr;
43 ...
44 mapableveryexpr( MapFunction, Expr );
45 ...
46
48 abl(1), mapablexpr(3), mapablanyexpr(3).
49
50
51
52
53
54
55ASIM/LIP6 October 1, 1997 MAPABLEVERYEXPR(3)