X-Git-Url: http://git.harvie.cz/?p=svn%2FCll1h%2F.git;a=blobdiff_plain;f=demos%2Flocale.c;fp=demos%2Flocale.c;h=c170c137b5ed8cd54a01684c93cf902a56a4aa5e;hp=0000000000000000000000000000000000000000;hb=99cd47b15d13ea0126dab46bcbec912a2f920f24;hpb=ea514b9e6351878fef9638813f50ce7013e8a832

diff --git a/demos/locale.c b/demos/locale.c
new file mode 100644
index 0000000..c170c13
--- /dev/null
+++ b/demos/locale.c
@@ -0,0 +1,27 @@
+#include "cll1.h"
+
+program
+{
+ str a,b;
+ time_t t = time(NULL);
+ int f;
+ str filename = "blabla.txt";
+
+ print("Local language (enviroment) is set to:", LANG);
+ print("C<<1 automatically activates locales LC_COLLATE|LC_CTYPE|LC_MESSAGES|LC_MONETARY|LC_TIME but not LC_NUMERIC:");
+ a = "¾luklý kùò";
+ b = "®LUKLÝ KÙÒ";
+ 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)));
+ printf("PI will be displayed as: %f\n",PI);
+ print("Time will be displayed as: ", ctime(&t));
+ print("Error mesages will be displayed as: ");
+ f = open(filename,"r");
+ if(f<0)
+ {
+  errstr = filename;
+  fail(SYSTEM_FAILURE);
+ }
+}