NAME

       isablsimilarexpr - tests if two expressions have the same morphology.

SYNOPSYS

       #include "abl101.h"
       int isablsimilarexpr( Expr1, Expr2 )
         chain_list ∗Expr1;
         chain_list ∗Expr2;

PARAMETERS

       Expr1               First expression.

       Expr2               Second expression.

DESCRIPTION

       isablequalexpr compares Expr1 and Expr2.

RETURN VALUE

       if Expr1 and Expr2 have got the same morphology isablequalexpr returns 1 and 0 otherwise.

EXAMPLE

       #include "abl101.h"
          chain_list ∗Expr1;
          chain_list ∗Expr2;
          Expr1 = createablbinexpr( ABL_AND,
                                    createablatom( "a" ),
                                    createablatom( "b" ) );
          Expr2 = createablbinexpr( ABL_AND,
                                    createablatom( "c" ),
                                    createablatom( "d" ) );
          /* displays 1 */
          printf( "%d", isablsimilarexpr( Expr1, Expr2 ) );

SEE ALSO

       abl(1)

ASIM/LIP6                                        October 1, 1997                             ISABLSIMILAREXPR(3)