html-template-pro 0.0.1

data/ext/html/template/internal/proscope.h

@@ -0,0 +1,32 @@
+/* -*- c -*- 
+ * File: proscope.h
+ * Author: Igor Vlasenko <vlasenko@imath.kiev.ua>
+ * Created: Thu May 26 15:13:10 2005
+ *
+ * $Id$
+ */
+
+#ifndef _PROSCOPE_H
+#define _PROSCOPE_H	1
+
+#include "pabstract.h"
+
+struct scope_stack {
+  int level;
+  int max;
+  struct ProScopeEntry* root;
+};
+
+struct ProScopeEntry {
+  int flags;		/* type of scope */
+  int  loop; 		/* current loop */
+  int  loop_count;	/* total number of loops or negative value if unknown */
+  /* objects are wrapper-specific so pointer is void */
+  ABSTRACT_ARRAY* loops_AV;	/* pointer to array of loop's dictionaries */
+  ABSTRACT_MAP*   param_HV;	/* pointer to dictionary of current loop   */
+};
+
+#define isScopeLoop(X) ((X)->loops_AV!=NULL)
+#define isScopeMap(X) ((X)->loops_AV==NULL)
+
+#endif /* _PROSCOPE_H */

data/ext/html/template/internal/proscope.inc

@@ -0,0 +1,107 @@
+/* -*- c -*- 
+ * File: proscope.c
+ * Author: Igor Vlasenko <vlasenko@imath.kiev.ua>
+ * Created: Thu May 26 15:25:57 2005
+ *
+ * $Id$
+ */
+
+#include <stdlib.h>
+#include "proscope.h"
+#include "tmpllog.h"
+
+#define START_NUMBER_OF_NESTED_LOOPS 64
+
+static
+void 
+Scope_init(struct scope_stack* scopestack) {
+  scopestack->max=START_NUMBER_OF_NESTED_LOOPS;
+  scopestack->root=(struct ProScopeEntry*) malloc ((scopestack->max) * sizeof(struct ProScopeEntry));
+  if (NULL==scopestack->root) tmpl_log(TMPL_LOG_ERROR, "DIE:_Scope_init:internal error:not enough memory\n");
+  scopestack->level=-1;
+}
+
+static
+void 
+Scope_free(struct scope_stack* scopestack) {
+  free(scopestack->root);
+  scopestack->max=-1;
+  scopestack->level=-1;
+}
+
+static
+int curScopeLevel(struct scope_stack* scopestack) {
+  return scopestack->level;
+}
+
+static
+struct ProScopeEntry* getCurrentScope(struct scope_stack* scopestack) {
+  return scopestack->root+scopestack->level;
+}
+
+static
+struct ProScopeEntry* 
+getScope(struct scope_stack* scopestack, int depth) {
+  return &(scopestack->root)[depth];
+}
+
+static
+void 
+popScope(struct scope_stack* scopestack) {
+  if (scopestack->level>0) scopestack->level--;
+  else tmpl_log(TMPL_LOG_ERROR, "WARN:PopScope:internal error:scope is exhausted\n");
+}
+
+static
+void 
+_pushScope(struct scope_stack* scopestack) {
+  if (scopestack->max<0) {
+    tmpl_log(TMPL_LOG_ERROR, "WARN:PushScope:internal warning:why scope is empty?\n");
+    Scope_init(scopestack);
+  }
+  ++scopestack->level;
+  if (scopestack->level>scopestack->max) 
+    {
+      if (scopestack->max<START_NUMBER_OF_NESTED_LOOPS) scopestack->max=START_NUMBER_OF_NESTED_LOOPS;
+      scopestack->max*=2;
+      scopestack->root=(struct ProScopeEntry*) realloc (scopestack->root, (scopestack->max) * sizeof(struct ProScopeEntry));
+    }
+}
+
+static
+void 
+pushScopeLoop(struct scope_stack* scopestack, int loop_count, void *loops_AV) {
+  struct ProScopeEntry* CurrentScope;
+  _pushScope(scopestack);
+  CurrentScope=scopestack->root+scopestack->level;
+  CurrentScope->loop=-1;
+  CurrentScope->loop_count = loop_count;
+  CurrentScope->flags=0;
+  CurrentScope->loops_AV=loops_AV;
+  CurrentScope->param_HV=NULL;
+}
+
+static
+void 
+pushScopeMap(struct scope_stack* scopestack, void *param_HV, int flags) {
+  struct ProScopeEntry* CurrentScope;
+  _pushScope(scopestack);
+  CurrentScope=scopestack->root+scopestack->level;
+  CurrentScope->flags=flags;
+  CurrentScope->loops_AV=NULL;
+  CurrentScope->param_HV=param_HV;
+}
+
+static
+void 
+Scope_reset(struct scope_stack* scopestack, int keep_count) {
+  int init_level=-1;
+  // TODO; find out scope level
+  if (scopestack->max<0) {
+    tmpl_log(TMPL_LOG_ERROR, "ERROR:Scope_reset:internal error:scope is empty.\n");
+    Scope_init(scopestack);
+    scopestack->level=init_level;
+  } else {
+    scopestack->level=keep_count+init_level;
+  }
+}

data/ext/html/template/internal/prostate.h

@@ -0,0 +1,49 @@
+#ifndef _PROSTATE_H
+#define _PROSTATE_H	1
+
+#include "pbuffer.h"
+
+struct tagstack {
+  struct tagstack_entry* entry;
+  int pos;
+  int depth;
+};
+
+struct tmplpro_param;
+
+typedef int boolval;
+
+struct tmplpro_state {
+  boolval  is_visible;
+  const char* top;
+  const char* next_to_end;
+  const char* last_processed_pos;
+  const char* cur_pos;
+  struct tmplpro_param* param;
+  /* current tag */
+  int   tag;
+  boolval  is_tag_closed;
+  boolval  is_tag_commented;
+  boolval  is_expr;
+  const char* tag_start; 
+
+/* internal buffers */
+  /* main string buffer */
+  pbuffer str_buffer;
+  /* tag stack */
+  struct tagstack tag_stack;
+
+  /* expr string buffers; used to unescape pstring args and for num -> string */
+  pbuffer expr_left_pbuffer;
+  pbuffer expr_right_pbuffer;
+};
+
+extern TMPLPRO_LOCAL void log_state(struct tmplpro_state*, int level, const char *fmt, ...) FORMAT_PRINTF(3,4);
+
+#endif /* prostate.h */
+
+/* 
+ * Local Variables:
+ * mode: c 
+ * End: 
+ */

data/ext/html/template/internal/prostate.inc

@@ -0,0 +1,24 @@
+#include "prostate.h"
+#include "tmpllog.h"
+
+TMPLPRO_LOCAL void log_state(struct tmplpro_state* state, int level, const char *fmt, ...) 
+{
+    va_list vl;
+    va_start(vl, fmt);
+    if (state->tag ==HTML_TEMPLATE_NO_TAG) {
+      tmpl_log(level, "HTML::Template::Pro:");
+    } else {
+      tmpl_log(level, "HTML::Template::Pro:in %sTMPL_%s at pos " MOD_TD ": ",
+	  (state->is_tag_closed ? "/" : ""), 
+	   (state->tag>HTML_TEMPLATE_BAD_TAG && state->tag <=HTML_TEMPLATE_LAST_TAG_USED) ? TAGNAME[state->tag] : "", 
+	   TO_PTRDIFF_T(state->tag_start - state->top));
+    }
+    tmpl_vlog(level, fmt, vl);
+    va_end(vl);
+}
+
+/* 
+ * Local Variables:
+ * mode: c 
+ * End: 
+ */

data/ext/html/template/internal/provalue.h

@@ -0,0 +1,14 @@
+#ifndef _PROVALUE_H
+#define _PROVALUE_H	1
+
+#include<pabidecl.h>
+
+TMPLPRO_LOCAL PSTRING _get_variable_value (struct tmplpro_param *param, PSTRING name);
+
+#endif /* provalue.h */
+
+/*
+ * Local Variables:
+ * mode: c
+ * End:
+ */

data/ext/html/template/internal/pstring.h

@@ -0,0 +1,60 @@
+/*! \file pstring.h
+ * \brief string type.
+ *
+ * \author Igor Vlasenko <vlasenko@imath.kiev.ua>
+ * \warning This header file should never be included directly.
+ * Include <tmplpro.h> instead.
+ */
+
+#ifndef _PSTRING_H
+#define _PSTRING_H	1
+
+/** \struct PSTRING
+
+    \brief string type used in htmltmplpro.
+
+    \code
+    typedef struct PSTRING {
+      const char* begin;
+      const char* endnext;
+    } PSTRING;
+    \endcode
+
+
+    The string is delimited by two pointers, begin and endnext.
+    The length of the string is calculated as endnext - begin.
+    The empty string has begin == endnext. 
+
+    \warning It is possible for empty string to have begin == endnext == NULL.
+    \warning Contents of the memory area, passed as PSTRING, should always be treated as const.
+    \warning Contents of the memory area, passed as PSTRING, can be destroyed after the callback function
+    completed. To be used afterwards the string content should be copied.
+ */
+
+typedef struct PSTRING {
+  const char* begin;   /*!< pointer to begin of the string. */
+  const char* endnext; /*!< pointer to the byte next to the last char of the string. */
+} PSTRING;
+
+/** \struct MPSTRING
+
+    \brief Modifiable PSTRING.
+
+    \code
+    typedef struct MPSTRING {
+      char* begin;
+      char* endnext;
+    } PSTRING;
+    \endcode
+
+    The same as PSTING, but in non-constant memory.
+
+ */
+
+
+typedef struct MPSTRING {
+  char* begin;   /*!< pointer to begin of the string. */
+  char* endnext; /*!< pointer to the byte next to the last char of the string. */
+} MPSTRING;
+
+#endif /* pstring.h */

data/ext/html/template/internal/pstrutils.h

@@ -0,0 +1,25 @@
+/* -*- c -*- 
+ * File: pstring.h
+ * Author: Igor Vlasenko <vlasenko@imath.kiev.ua>
+ * Created: Fri Jul  1 20:11:51 2005
+ *
+ * $Id$
+ */
+
+#ifndef _PSTRUTILS_H
+#define _PSTRUTILS_H	1
+
+#include "pbuffer.h"
+
+static 
+PSTRING lowercase_pstring (pbuffer*, PSTRING);
+static 
+int is_pstring_true (PSTRING s);
+static 
+PSTRING escape_pstring (pbuffer* StrBuffer, PSTRING pstring, int escapeopt);
+
+/*
+static
+void lowercase_pstring_inplace (PSTRING pstring);
+*/
+#endif /* pstrutils.h */

data/ext/html/template/internal/pstrutils.inc

@@ -0,0 +1,150 @@
+/* -*- c -*- 
+ * File: pstring.h
+ * Author: Igor Vlasenko <vlasenko@imath.kiev.ua>
+ * Created: Fri Jul  1 20:11:51 2005
+ *
+ * $Id$
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include <ctype.h>
+#include "pbuffer.h"
+#include "pstring.h"
+
+static
+PSTRING
+lowercase_pstring (pbuffer* pBuffer ,PSTRING pstring) {
+  size_t size=pstring.endnext-pstring.begin;
+  char* buf=pbuffer_resize(pBuffer, size+1);
+  char* inbuf=buf;
+  const char* i=pstring.begin;
+  PSTRING retval;
+  while (i<pstring.endnext) {
+    *inbuf++=tolower((unsigned char) *i++);
+  }
+  *inbuf=0;
+  retval.begin=buf;
+  retval.endnext=buf+size;
+  return retval;
+}
+
+/*
+static
+void 
+lowercase_pstring_inplace (PSTRING pstring) {
+  char* i=pstring.begin;
+  while (i<pstring.endnext) {
+    *i=tolower(*i);
+    i++;
+  }
+}
+*/
+
+static
+PSTRING
+uppercase_pstring (pbuffer* pBuffer ,PSTRING pstring) {
+  size_t size=pstring.endnext-pstring.begin;
+  char* buf=pbuffer_resize(pBuffer, size+1);
+  char* inbuf=buf;
+  const char* i=pstring.begin;
+  PSTRING retval;
+  while (i<pstring.endnext) {
+    *inbuf++=toupper((unsigned char) *i++);
+  }
+  *inbuf=0;
+  retval.begin=buf;
+  retval.endnext=buf+size;
+  return retval;
+}
+
+
+static
+int
+is_pstring_true (PSTRING s) {
+  if (s.begin == NULL || s.begin == s.endnext) return 0;
+  if (1==s.endnext-s.begin) {
+    if (*(s.begin)=='0') return 0; else return 1;
+  } else if (3==s.endnext-s.begin) {
+    if ('0'==*(s.begin) && '.'==*(s.begin+1) && '0'==*(s.begin+2)) return 0; else return 1;
+  } else return 1;
+}
+
+static 
+PSTRING 
+escape_pstring (pbuffer* StrBuffer, PSTRING pstring, int escapeopt) {
+  char* buf=pbuffer_resize(StrBuffer, 2*(pstring.endnext-pstring.begin+1));
+  const char* curpos=pstring.begin;
+  size_t offset=0;
+  size_t buflen=pbuffer_size(StrBuffer);
+  PSTRING retval;
+  switch (escapeopt) {
+  case HTML_TEMPLATE_OPT_ESCAPE_HTML:
+    while (curpos<pstring.endnext) {
+      unsigned char curchar=*curpos++;
+      int bufdelta=1;
+      if (offset>=buflen) {
+	buf=pbuffer_resize(StrBuffer, 2*offset);
+	buflen=pbuffer_size(StrBuffer);
+      }
+      switch (curchar) {
+	/* straight from the CGI.pm bible. (HTML::Template) */
+      case '&' : bufdelta=5; strncpy(buf+offset, "&amp;", bufdelta);break;
+      case '"' : bufdelta=6; strncpy(buf+offset, "&quot;",bufdelta);break;
+      case '>' : bufdelta=4; strncpy(buf+offset, "&gt;",  bufdelta);break;
+      case '<' : bufdelta=4; strncpy(buf+offset, "&lt;",  bufdelta);break;
+      case '\'': bufdelta=5; strncpy(buf+offset, "&#39;", bufdelta);break;
+      default: *(buf+offset)=curchar;
+      }
+      offset+=bufdelta;
+    }
+    break;
+  case HTML_TEMPLATE_OPT_ESCAPE_JS:
+    while (curpos<pstring.endnext) {
+      unsigned char curchar=*curpos++;
+      int bufdelta=1;
+      if (offset>=buflen) {
+	buf=pbuffer_resize(StrBuffer, 2*offset);
+	buflen=pbuffer_size(StrBuffer);
+      }
+      switch (curchar) {
+      case '\\' : bufdelta=2; strncpy(buf+offset, "\\\\", bufdelta);break;
+      case '"'  : bufdelta=2; strncpy(buf+offset, "\\\"",bufdelta);break;
+      case '\'' : bufdelta=2; strncpy(buf+offset, "\\'",bufdelta);break;
+      case '\n' : bufdelta=2; strncpy(buf+offset, "\\n",bufdelta);break;
+      case '\r' : bufdelta=2; strncpy(buf+offset, "\\r",bufdelta);break;
+      default: *(buf+offset)=curchar;
+      }
+      offset+=bufdelta;
+    }
+    break;
+  case HTML_TEMPLATE_OPT_ESCAPE_URL: 
+    while (curpos<pstring.endnext) {
+      unsigned char curchar=*curpos++;
+      int bufdelta=1;
+      if (offset>=buflen) {
+	buf=pbuffer_resize(StrBuffer, 2*offset);
+	buflen=pbuffer_size(StrBuffer);
+      }
+      /* 
+       * # do the translation (RFC 2396 ^uric)
+       * s!([^a-zA-Z0-9_.\-])!sprintf('%%%02X', $_)
+       */
+      if ((curchar>='a' && curchar<='z') ||
+	  (curchar>='A' && curchar<='Z') ||
+	  (curchar>='0' && curchar<='9') ||
+	  curchar=='_' || curchar=='.' || curchar=='\\' || curchar=='-'
+	  ) 
+	*(buf+offset)=curchar;
+      else {
+	bufdelta=3; sprintf(buf+offset,"%%%.2X",(int) curchar);
+      }
+      offset+=bufdelta;
+    }
+    break;
+  default : return pstring;
+  }
+  retval.begin=buf;
+  retval.endnext=buf+offset;
+  return retval;
+}