LC_NUMERIC locale will be set to "C" by default

[svn/Cll1h/.git] / cll1.h

diff --git a/cll1.h b/cll1.h
index 535d933e447161ffde7cf5efa95d8445ab818ce1..78642ffbb627fe54a8afeedd91d470e9ed194746 100644 (file)
--- a/cll1.h
+++ b/cll1.h
@@ -43,6 +43,7 @@
 #include <stdarg.h>
 #include <unistd.h>
 #include <setjmp.h>
+#include <errno.h>
 #include <locale.h>
 #ifdef USE_LIBRARY_FASTCGI
 #include <fcgi_stdio.h>
@@ -212,6 +213,7 @@ unsigned RANDOM_SEED=0;
 #define LOCAL_FAILURE 13
 #define LIBRARY_FAILURE 23
 #define EVIL_FAILURE 666
+#define die(MSG) longjmp(_EENV,(errstr=MSG,LOCAL_FAILURE))
 #define try _NEW(E,0) if(!(_E=setjmp(_EENV)))
 #define fail(E) longjmp(_EENV,((E)>0?(E):FAILED_TO_FAIL))
 #define pass_failure (_Eatom->__next?longjmp((pop(_Eatom,_Estack),_EENV),_E):_SYSFAIL(FAILED_TO_FAIL))
@@ -259,9 +261,10 @@ extern  _DECLARE_STRSTR;
 #define _CTX (_CTXatom->CTX)
 #define _E (_Eatom->E)
 #define _EENV (_Eatom->ENV)
+#define _ERRNO (_Eatom->ERRNO)
 #define _ARG1(ARG1,...) ARG1
 //#define _ASSERT(EXPR) (expr?expr:fail(CONSISTENCY_FAILURE))
-#define _SYSFAIL(E) longjmp(_EENV,(E))
+#define _SYSFAIL(E) longjmp(_EENV,(_ERRNO=errno,(E)))
 #define _GET_MEM(TYPE) ((TYPE)malloc(sizeof(struct _##TYPE##_struct))) /* later... ((TYPE)_cll1_malloc(sizeof(struct _##TYPE##_struct))) */
 #define _ANYATOM(NAME,DECL) def_mem(_##NAME##Atom ) { DECL; int c; list( _##NAME##Atom ); }
 //#define _FOR_COLUMNS(A,B,C) _NEW(I,0) for( prefix(A,B,C) ; A ; ((A!=B)&&prefix(A,B,C)||(A=NULL) ),_I++ ) 
@@ -273,7 +276,7 @@ _ANYATOM(I, int I;int J);
 _ANYATOM(S, str S);
 _ANYATOM(F, file F);
 _ANYATOM(CTX, void *CTX);
-_ANYATOM(E, int E;jmp_buf ENV);
+_ANYATOM(E, int E;jmp_buf ENV;int ERRNO);
 /* .----------------------------------------------------------------------.
   /  11. C<<1 memory contexts - alternative to garbage collection
  '----------------------------------------------------------------------- */
@@ -389,11 +392,10 @@ obsolete
 #ifndef DISABLE_LIBRARY_CLL1
 _IMPLEMENT_CLL1_LIBRARY
 #endif
-#ifdef USE_LC_NUMERIC
-#define _LC_ALL LC_ALL
+#ifdef USE_LC_ALL
+#define _UNSET_LC_NUMERIC setlocale(LC_NUMERIC, "C"); /* LC_COLLATE, LC_CTYPE, LC_MESSAGES, LC_MONETARY, LC_NUMERIC, LC_TIME */
 #else
-//#define _LC_ALL LC_COLLATE|LC_CTYPE|LC_MESSAGES|LC_MONETARY|LC_TIME
-#define _LC_ALL LC_TIME
+#define _UNSET_LC_NUMERIC
 #endif
 #define _DECLARE_PROGRAM void _PROGRAM(int argc, char **argv)
 #define _PROGRAM _cll1_program
@@ -401,7 +403,8 @@ _IMPLEMENT_CLL1_LIBRARY
 _DECLARE_PROGRAM;                      \
 int main(int argc, char **argv)                \
 {                                      \
- LANG=setlocale(_LC_ALL, "");          \
+ LANG=setlocale(LC_ALL, "");           \
+ _UNSET_LC_NUMERIC                     \
  try                                   \
  {                                     \
   _PROGRAM(argc,argv);                 \
@@ -410,6 +413,7 @@ int main(int argc, char **argv)             \
  else_switch_failures                  \
  {                                     \
   case SYSTEM_FAILURE:                         \
+   errno=_ERRNO;                       \
    perror(errstr); /* and return -1 */ \
   default:                             \
    return -1;                          \