1MAPABLANYEXPR(3) ABL FUNCTIONS MAPABLANYEXPR(3)
2
3
4
6 mapablanyexpr - applies a function to all operands.
7
9 #include "abl101.h"
10 int mapablanyexpr( 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 mapablanyexpr applies Function to all operands of Expr.
21
23 mapablanyexpr returns the value of a logical OR applied on the
24 results of the application of the function on the arguments of
25 an operator expression.
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 mapablanyexpr( MapFunction, Expr );
45 ...
46
48 abl(1), mapablexpr(3), mapableveryexpr(3).
49
50
51
52
53
54
55ASIM/LIP6 October 1, 1997 MAPABLANYEXPR(3)