X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;ds=inline;f=cll1.h;h=8cd24a46ffd132695bb9a640f730ab4d97d07f26;hb=8a93c4ed658e8e9cb807036d8b0f27f10ea5e34f;hp=261cd81b9b8527e25801f5140789ab5503689476;hpb=097bac9a8882d0e781ca25e53b846981f4f9e05c;p=svn%2FCll1h%2F.git

diff --git a/cll1.h b/cll1.h
index 261cd81..8cd24a4 100644
--- a/cll1.h
+++ b/cll1.h
@@ -45,8 +45,23 @@
 #define or ||
 #define TRUE 1
 #define FALSE 0
+#define bool_str(I) (I?"TRUE":"FALSE")
+#define boolean int
+#define mem struct
+#define construct struct
 /* ------------------------------------------------------------------- */
-/* 2. C<<1 data types - updated 2008-01-07 by xCh.                     */
+/* 2. C<<1 basic data types - updated 2008-01-07 by xCh.               */
+/* ------------------------------------------------------------------- */
+#define Create_str(ID,INIT) char *ID=INIT
+#define Define_str(ID) char *ID=NULL
+#define Create_mem(ID,TYPE) struct TYPE *ID=get_mem(TYPE)
+#define Create_mem_in_context(ID,TYPE,CONTEXT) struct TYPE *ID=get_mem_in_context(TYPE,CONTEXT)
+#define Define_mem(ID,TYPE) struct TYPE *ID=NULL
+#define Define_mems(ID1,I2,TYPE) Define_mem(ID1,TYPE);Define_mem(ID2,TYPE)
+
+/* .... well.. ehm..  not very useful... :-) */
+#define Create_var(ID,TYPE,INIT) TYPE ID=INIT
+#define Define_var(ID,TYPE) TYPE ID
 /* ------------------------------------------------------------------- */
 #define list(T) struct T *_next
 #define tree(T) struct T *_next;struct T *_seek
@@ -57,50 +72,79 @@
 #define remove(A,B,C) { void **_D=NULL; for_search(A,B,C) { if(_D)*_D=A->_next; else B=A->_next; free(A); } else _D=(void *)&(A->_next); }
 #define drop(A,B) for( A=B; A || (B=NULL); B=A, A=A->_next, free(B) )
 /* ------------------------------------------------------------------- */
-/* 3. C<<1 iterators - updated 2008-01-07 by xCh.                      */
+/* 3. C<<1 general iterators - updated 2008-01-07 by xCh.              */
 /* ------------------------------------------------------------------- */
 #define loop while(TRUE)
 #define repeat(N) if(N>0) _NEW_I for_range(_I,1,N)
 #define for_range(VAR,FROM,TO) for( VAR=FROM ; FROM<=TO?VAR<=TO:VAR>=TO ; FROM<=TO?VAR++:VAR--)
 #define for_each(A,B) for(A=B; A; A=A->_next)
 #define for_search(A,B,C) for_each(A,B) if(C)
-/*to do: #define for_file_lines(STR,F) _NEW_F for() */
-#ifdef USE_LIBRARY_MYSQL
-#define for_mysql_query_results(ROW,QUERY) _NEW_(_Ratom,_Rstack,_RStack)for(_Ratom->R=(mysql_query(_Matom->M,QUERY)?NULL:mysql_use_result(_Matom->M)),ROW=(_Ratom->R?mysql_fetch_row(_Ratom->R):NULL);ROW;ROW=mysql_fetch_row(_Ratom->R))
-#endif
+#define for_file_lines(STR,F) /* _NEW_F for() */
+#define for_ints(VAR,...) _NEW_I while(_iterate_ints(&VAR,_I,__VA_LIST) )
+#define for_strs(VAR,...)  _NEW_S
+/* obsolete #define every(A,B) for( A=B; A; A=A->_next) */
+/* obsolete #define search(A,B,C) every(A,B) if(C) */
+/* obsolete #define find(A,B,C) search(A,B,C) break; if(A) */
+/* ------------------------------------------------------------------- */
+/* 4.C<<1 conditionals - updated 2008-01-07 by xCh.                    */ 
+/* ------------------------------------------------------------------- */
+#define if_exists(A,B,C) for_search(A,B,C) break; if(A)
+/* ------------------------------------------------------------------- */
+/* 5. C<<1 argument handling, updated 2008-01-16 by xCh.               */
+/* ------------------------------------------------------------------- */
+#define for_args _NEW_I if(argc>1) for(_I=1;_I<argc;_I++) 
+#define if_arg(VAL) if(eq(argv[_I],VAL))
+#define this_arg argv[_I]
+#define next_arg ((_I+1<argc)?argv[++_I]:NULL)
+/* ------------------------------------------------------------------- */
+/* 6. C<<1 CGI and FASTCGI handling, updated 2008-01-16 by xCh.        */
+/* ------------------------------------------------------------------- */
 #ifdef USE_LIBRARY_FASTCGI
 #define while_fastcgi_accept while(FCGI_Accept()>=0)
+#define USE_MODULE_CGI
+#endif
+#ifdef USE_MODULE_CGI
+#define cgi(MIME) /* _init_cgi */ if(MIME) printf("Content-type: %s\r\n\r\n",MIME);
+//todo getcgi(VAR)
+//todo define_init_cgi
+//todo #define _QSTACK struct _QStack { char *Q; int _23; list(_QStack); } *_Qatom,*_Qstack=NULL;
 #endif
-/*obsolete #define every(A,B) for( A=B; A; A=A->_next) */
-/*obsolete #define search(A,B,C) every(A,B) if(C) */
-/*obsolete #define find(A,B,C) search(A,B,C) break; if(A) */
-
 /* ------------------------------------------------------------------- */
-/* 4.C<<1 conditionals - updated 2008-01-07 by xCh.                    */ 
+/* 7. MySQL infrastructure and wrappers  -  updated 2007-12-19 by xCh. */
 /* ------------------------------------------------------------------- */
-#define if_exists(A,B,C) for_search(A,B,C) break; if(A)
-
+#ifdef USE_LIBRARY_MYSQL
+#define mysql_connect(S,U,P,D) (create(_Matom,_MStack) && push(_Matom,_Mstack) && (_Matom->M=mysql_init(NULL)),(_Matom->M && mysql_real_connect(_Matom->M,S,U,P,D,0,NULL,0)?_Matom->M:NULL))
+#define for_mysql_query_results(ROW,QUERY) _NEW_(_Ratom,_Rstack,_RStack)for(_Ratom->R=(mysql_query(_Matom->M,QUERY)?NULL:mysql_use_result(_Matom->M)),ROW=(_Ratom->R?mysql_fetch_row(_Ratom->R):NULL);ROW;ROW=mysql_fetch_row(_Ratom->R))
+#define _MSTACK struct _MStack { MYSQL *M; int _23; list(_MStack); } *_Matom,*_Mstack=NULL;
+#define _RSTACK struct _RStack { MYSQL_RES *R; int _23; list(_RStack); } *_Ratom,*_Rstack=NULL;
+#else
+#define _MSTACK
+#define _RSTACK
+#endif
 /* ------------------------------------------------------------------- */
-/* old - from version 0.6 */
+/* old - from version 0.6                                              */
 /* ------------------------------------------------------------------- */
-/* EXP macros for Dummysort sequences, updated 2003-05-29 by xCh. */
 
+/* ------------------------------------------------------------------- */
+/* EXP macros for dummysort sequences, updated 2003-05-29 by xCh.      */
+/* ------------------------------------------------------------------- */
 #define order_by(K1,K2) (K1>K2)
 #define desc_order_by(K1,K2) (K1<K2)
 #define sort_by(K1,K2) (strcasecmp(K1, K2)>0)
 #define desc_sort_by(K1,K2) (strcasecmp(K1, K2)<0)
 #define ascii_by(K1,K2) (strcmp(K1, K2)>0)
 #define desc_ascii_by(K1,K2) (strcmp(K1, K2)<0)
-
-/* Dummysort sequences, updated 2003-05-29 by xCh. */
-
+/* ------------------------------------------------------------------- */
+/* Dummysort sequences, updated 2003-05-29 by xCh.                     */
+/* ------------------------------------------------------------------- */
 #define insert(A,B,EXP,K) { if(B) { void **_L=NULL, *H=B; for_search(B,H,EXP(B->K,A->K)) { if(_L) {*_L=A; A->_next=B; } else push(A,H); break; } else _L=(void *)&(B->_next); if(!B)*_L=A; B=H; } else push(A,B); }
 #define sort(A,B,EXP,K) { void *_C; A=B; B=NULL; do { _C=A->_next; A->_next=NULL; insert(A,B,EXP,K); A=_C; } while(_C); }
-
 /* String macros & sequences, updated 2004-04-19 by xCh. */
 
 #define eq(A,B) !strcmp(A,B)
 #define strcmpi(A,B) strcasecmp(A,B)
+/*
+obsolete
 #define strlwr(A) {char *_S=A; while(_&&*_S){*_S=tolower(*_S);_S++;}}
 #define strupr(A) {char *_S=A; while(_&&*_S){*_S=toupper(*_S);_S++;}}
 #define string(S,L) (S=(char *)malloc(L),*S=0)
@@ -124,21 +168,17 @@
 #define stroption(STR) if(eq(STR,_K))
 #define match(KEY,VAL) {char *_K=KEY, *_V=VAL; FILE *_F=NULL; {{ 
 #define assign(STR,SETVAR) stroption(STR) SETVAR=_V
+*/
 /* ------------------------------------------------------------------- */
 /* Infrastructure, updated 2008-01-08 by xCh.                          */
 /* ------------------------------------------------------------------- */
 /* old #define program int _I; int main(int argc, char **argv) */
-#define _ISTACK struct _IStack { int I; int _23; list(_IStack); } *_Iatom,*_Istack=NULL;
-#define _SSTACK struct _SStack { char *S; int _23; list(_SSTACK); } *_Satom,*_Sstack=NULL;
-#define _FSTACK struct _FStack { FILE *F; int _23; list(_FSTACK); } *_Fatom,*_Fstack=NULL;
-#ifdef USE_LIBRARY_MYSQL
-#define _MSTACK struct _MStack { MYSQL *M; int _23; list(_MStack); } *_Matom,*_Mstack=NULL;
-#define _RSTACK struct _RStack { MYSQL_RES *R; int _23; list(_RStack); } *_Ratom,*_Rstack=NULL;
-#else
-#define _MSTACK
-#define _RSTACK
-#endif
-#define program _ISTACK _SSTACK _FSTACK _MSTACK _RSTACK int main(int argc, char **argv)
+#define _ISTACK struct _IStack { int I; int _23; list(_IStack); } *_Iatom,*_Istack=NULL
+#define _SSTACK struct _SStack { char *S; int _23; list(_SSTACK); } *_Satom,*_Sstack=NULL
+#define _FSTACK struct _FStack { FILE *F; int _23; list(_FSTACK); } *_Fatom,*_Fstack=NULL
+
+#define define_ccl1_globals _ISTACK; _SSTACK; _FSTACK; _MSTACK; _RSTACK; _QSTACK
+#define program define_cll1_globals; int main(int argc, char **argv)
 
 #define _NEW_(ATOM,STACK,TYPE) (create(ATOM,TYPE),ATOM->_23=1,push(ATOM,STACK);ATOM->_23||pop(ATOM,STACK)&&0;ATOM->_23--)
 #define _NEW_I for _NEW_(_Iatom,_Istack,_IStack)
@@ -146,13 +186,7 @@
 #define _NEW_S for(create(_Satom,_SStack),_Satom->_23=1,push(_Satom,_Sstack);_Satom->_23||pop(_Satom,_Sstack)&&0;_Satom->_23--)
 #define _I _Iatom->I
 #define _S _Satom->I
-
-/* Section For Dummies part 2, updated 2004-05-07 by xCh. */
-
-#define arguments if(argc>1) for(_I=1;_I<argc;_I++) 
-#define argument(A) if(eq(argv[_I],A))
-#define thisargument(S) (S=argv[_I])
-#define nextargument(S) if(_I+1<argc && (S=argv[++_I]))
+#define _F _Satom->F
 
 /* I/O iterations, updated 2004-04-19 by xCh. */
 
@@ -194,26 +228,20 @@
 #define textfile(TYPE,LINE) struct TYPE { char *LINE; char _eoln; list(TYPE); }
 #define date(S) { time_t _T; _T=time(NULL); duplicate(ctime(&_T),S); }
 
-/* ------------------------------------------------------------------- */
-/* MySQL Infrastructure and basic macros -  updated 2007-12-19 by xCh. */
-/* ------------------------------------------------------------------- */
-#ifdef USE_LIBRARY_MYSQL
-#define mysql_connect(S,U,P,D) (create(_Matom,_MStack) && push(_Matom,_Mstack) && (_Matom->M=mysql_init(NULL)),(_Matom->M && mysql_real_connect(_Matom->M,S,U,P,D,0,NULL,0)?_Matom->M:NULL))
-#endif
 /* ------------------------------------------------------------------- */
 /* Object infrastructure and basic macros - updated 2008-01-13 by xCh. */
 /* unfinished */ 
-#define uses_interface(TYPE) struct TYPE *__class
+#define bind_interface(TYPE) struct TYPE *__class
 #define method(NAME)
-#define interface_implementation(IFACE,TYPE) struct TYPE *__get_##_##IFACE(void) { struct TYPE *_FACE=get_mem(TYPE); __bind_##_##IFACE(_FACE); return _IFC; } void __bind_##_##IFACE(struct TYPE *_FACE)
+#define define_interface(IFACE,TYPE) struct TYPE *__get_##_##IFACE(void) { struct TYPE *_FACE=get_mem(TYPE); __bind_##_##IFACE(_FACE); return _IFC; } void __bind_##_##IFACE(struct TYPE *_FACE)
 #define bind_method(METHOD,FUNCTION) _IFACE->METHOD=FUNCTION
 #define get_interface(IFACE) __get_##_##IFACE(void)
 // must be function #define get_object(TYPE) (_CLL1_MALLOC(TYPE),CLL1_ASSERT(),)
-#define _(OBJECT,FUNCTION) OBJECT==NULL?NULL::(*(OBJECT->__class->METHOD))(OBJECT
+//#define _(OBJECT,FUNCTION) OBJECT==NULL?NULL::(*(OBJECT->__class->METHOD))(OBJECT
 #endif
 /* ------------------------------------------------------------------- */
 /* some general ideas, unfinished */
-#define _CLL1_THROW(ERR)
-#define _CLL1_TRY _NEW_E for(;;) if () {.... if(_Eatom->SYS) { if(_Eatom->RET) return; else break;} else { }
-#define _CLL1_ASSERT(EXPR) assert(EXPR)
-#define _CLL1_MALLOC(TYPE) malloc(sizeof(TYPE))
+//#define _CLL1_THROW(ERR)
+//#define _CLL1_TRY _NEW_E for(;;) if () {.... if(_Eatom->SYS) { if(_Eatom->RET) return; else break;} else { }
+//#define _CLL1_ASSERT(EXPR) assert(EXPR)
+//#define _CLL1_MALLOC(TYPE) malloc(sizeof(TYPE))