lot of work - def_mem(), uses locale.h + strcoll(), etc.

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

diff --git a/demos/eq.c b/demos/eq.c
new file mode 100644 (file)
index 0000000..730d0a7
--- /dev/null
+++ b/demos/eq.c
@@ -0,0 +1,27 @@
+#include "cll1.h"
+
+program
+{
+ str a,b;
+ 
+ a="¾luklý";
+ b="®LUKLÝ";
+ printf("strcoll(\"%s\",\"%s\")=%d\n",a,b,strcoll(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="aabc";
+ b="axyz";
+ printf("strcoll(\"%s\",\"%s\")=%d\n",a,b,strcoll(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("strcoll(\"%s\",\"%s\")=%d\n",a,b,strcoll(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("strcoll(\"%s\",\"%s\")=%d\n",a,b,strcoll(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)));
+}