preparing 0.9 version, rename to crl1.h

[svn/Cll1h/.git] / demos / eq.c

diff --git a/demos/eq.c b/demos/eq.c
deleted file mode 100644 (file)
index d3a87ca..0000000
--- a/demos/eq.c
+++ /dev/null
@@ -1,49 +0,0 @@
-#include "cll1.h"
-
-program
-{
- str a,b;
-
- print("Local language (enviroment) is set to:", LANG);
- a="¾luklý";
- b="®LUKLÝ";
- printf("str_order(\"%s\",\"%s\") = %d\n",a,b,str_order(a,b));
- printf("eq(\"%s\",\"%s\") = %s\n",a,b,btoa(eq(a,b)));
- printf("eq(\"%s\",\"%s\") = %s\n",a,a,btoa(eq(a,a)));
- printf("eqi(\"%s\",\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
- a="aabc";
- b="axyz";
- printf("str_order(\"%s\",\"%s\") = %d\n",a,b,str_order(a,b));
- printf("eq(\"%s\",\"%s\") = %s\n",a,b,btoa(eq(a,b)));
- printf("eqi(\"%s\",\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
- a="ABC";
- b="abc";
- printf("str_order(\"%s\",\"%s\") = %d\n",a,b,str_order(a,b));
- printf("eq(\"%s\",\"%s\") = %s\n",a,b,btoa(eq(a,b)));
- printf("eqi(\"%s\",\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
- a="abc";
- b="abc";
- printf("str_order(\"%s\",\"%s\") = %d\n",a,b,str_order(a,b));
- printf("eq(\"%s\",\"%s\") = %s\n",a,b,btoa(eq(a,b)));
- printf("eqi(\"%s\",\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
- a="";
- b="";
- printf("str_order(\"%s\",\"%s\") = %d\n",a,b,str_order(a,b));
- printf("eq(\"%s\",\"%s\") = %s\n",a,b,btoa(eq(a,b)));
- printf("eqi(\"%s\",\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
- a=NULL;
- b="abc";
- printf("str_order( %s ,\"%s\") = %d\n",a,b,str_order(a,b));
- printf("eq( %s ,\"%s\") = %s\n",a,b,btoa(eq(a,b)));
- printf("eqi( %s ,\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
- a=NULL;
- b="";
- printf("str_order( %s ,\"%s\") = %d\n",a,b,str_order(a,b));
- printf("eq( %s ,\"%s\") = %s\n",a,b,btoa(eq(a,b)));
- printf("eqi( %s ,\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
- a=NULL;
- b=NULL;
- printf("str_order( %s , %s ) = %d\n",a,b,str_order(a,b));
- printf("eq( %s ,%s ) = %s\n",a,b,btoa(eq(a,b)));
- printf("eqi( %s , %s ) = %s\n",a,b,btoa(eqi(a,b)));
-}