demos/eq.c

   1 #include "cll1.h"
   2
   3 program
   4 {
   5  str a,b;
   6
   7  a="¾luklý";
   8  b="®LUKLÝ";
   9  printf("str_order(\"%s\",\"%s\") = %d\n",a,b,str_order(a,b));
  10  printf("eq(\"%s\",\"%s\") = %s\n",a,b,btoa(eq(a,b)));
  11  printf("eqi(\"%s\",\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
  12  a="aabc";
  13  b="axyz";
  14  printf("str_order(\"%s\",\"%s\") = %d\n",a,b,str_order(a,b));
  15  printf("eq(\"%s\",\"%s\") = %s\n",a,b,btoa(eq(a,b)));
  16  printf("eqi(\"%s\",\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
  17  a="ABC";
  18  b="abc";
  19  printf("str_order(\"%s\",\"%s\") = %d\n",a,b,str_order(a,b));
  20  printf("eq(\"%s\",\"%s\") = %s\n",a,b,btoa(eq(a,b)));
  21  printf("eqi(\"%s\",\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
  22  a="abc";
  23  b="abc";
  24  printf("str_order(\"%s\",\"%s\") = %d\n",a,b,str_order(a,b));
  25  printf("eq(\"%s\",\"%s\") = %s\n",a,b,btoa(eq(a,b)));
  26  printf("eqi(\"%s\",\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
  27  a="";
  28  b="";
  29  printf("str_order(\"%s\",\"%s\") = %d\n",a,b,str_order(a,b));
  30  printf("eq(\"%s\",\"%s\") = %s\n",a,b,btoa(eq(a,b)));
  31  printf("eqi(\"%s\",\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
  32  a=NULL;
  33  b="abc";
  34  printf("str_order( %s ,\"%s\") = %d\n",a,b,str_order(a,b));
  35  printf("eq( %s ,\"%s\") = %s\n",a,b,btoa(eq(a,b)));
  36  printf("eqi( %s ,\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
  37  a=NULL;
  38  b="";
  39  printf("str_order( %s ,\"%s\") = %d\n",a,b,str_order(a,b));
  40  printf("eq( %s ,\"%s\") = %s\n",a,b,btoa(eq(a,b)));
  41  printf("eqi( %s ,\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
  42  a=NULL;
  43  b=NULL;
  44  printf("str_order( %s , %s ) = %d\n",a,b,str_order(a,b));
  45  printf("eq( %s ,%s ) = %s\n",a,b,btoa(eq(a,b)));
  46  printf("eqi( %s , %s ) = %s\n",a,b,btoa(eqi(a,b)));
  47 }