demos/eq.c

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