demos/locale.c

   1 #include "cll1.h"
   2
   3 program
   4 {
   5  str a,b;
   6  time_t t = time(NULL);
   7  int f;
   8  str filename = "blabla.txt";
   9
  10  print("Local language (enviroment) is set to:", LANG);
  11  print("C<<1 automatically activates locales LC_COLLATE|LC_CTYPE|LC_MESSAGES|LC_MONETARY|LC_TIME but not LC_NUMERIC:");
  12  a = "¾luklý kùò";
  13  b = "®LUKLÝ KÙÒ";
  14  printf("str_order(\"%s\",\"%s\") = %d\n",a,b,str_order(a,b));
  15  printf("eq(\"%s\",\"%s\") = %s\n",a,b,btoa(eq(a,b)));
  16  printf("eq(\"%s\",\"%s\") = %s\n",a,a,btoa(eq(a,a)));
  17  printf("eqi(\"%s\",\"%s\") = %s\n",a,b,btoa(eqi(a,b)));
  18  printf("PI will be displayed as: %f\n",PI);
  19  print("Time will be displayed as: ", ctime(&t));
  20  print("Error mesages will be displayed as: ");
  21  f = open(filename,"r");
  22  if(f<0)
  23  {
  24   errstr = filename;
  25   fail(SYSTEM_FAILURE);
  26  }
  27 }