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

diff --git a/demos/locale.c b/demos/locale.c
deleted file mode 100644
index 0f7d5af..0000000
--- a/demos/locale.c
+++ /dev/null
@@ -1,27 +0,0 @@
-#include "cll1.h"
-
-program
-{
- str a,b;
- time_t t = time(NULL);
- file 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);
- echo("Time will be displayed as: ", ctime(&t));
- print("Error mesages will be displayed as: ");
- f = fopen(filename,"r");
- if(not f)
- {
-  errstr = filename;
-  _SYSFAIL(SYSTEM_FAILURE);
- }
-}