X-Git-Url: http://git.harvie.cz/?p=svn%2FCll1h%2F.git;a=blobdiff_plain;f=demos%2Feq.c;fp=demos%2Feq.c;h=0000000000000000000000000000000000000000;hp=d3a87ca225cb1e20a1cc328f5233da69322a859f;hb=e63f1bc2438012b5f2f6592a474892501149af18;hpb=6a60bc82e8b8e6cccd0d4c2214a1f291662215f0

diff --git a/demos/eq.c b/demos/eq.c
deleted file mode 100644
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)));
-}