WebSVN – wimsdev – Diff – /trunk/wims/src/calc.c

+{
   if(check_parentheses(p,1)==0)
     ovlstrcpy(p, "yes");
   else ovlstrcpy(p, "no");
+}
-/* remove html tag, very rudimentary. */
+/* remove html tag, very rudimentary.
+  by default, everything is detagged
+  one can choose what to detag by the parameter wims_parm_detag
+*/
 void calc_detag(char *p)
+{
-  char *p1, *p2;
+  char *p1, *p2, *s, tag[100];
+  int n=0;
+  s=getvar("wims_parm_detag");
+  if(s==NULL || *s == 0)
-  for(p1=strchr(p,'<'); p1!=NULL; p1=strchr(p1,'<')) {
+    for(p1=strchr(p,'<'); p1!=NULL; p1=strchr(p1,'<'))
+      {
-    p2=strchr(p1,'>'); if(p2==NULL) p1++;
+        p2=strchr(p1,'>');
+        if(p2==NULL) p1++; else ovlstrcpy(p1,p2+1);
+      }
+  else
+    for(s=find_word_start(s); *s; s=find_word_start(s+n))
+    {
+      n = find_word_end(s) - s; if (n > 96) n = 96;
+      tag[0]='<';
+      mystrncpy(tag+1, s, n+1); tag[n+1]=0;
+      for(p1=strstr(p,tag); p1!=NULL; p1=strstr(p1,tag))
+      {
-  else ovlstrcpy(p1,p2+1);
+        p2=strchr(p1,'>');
+        if(p2==NULL) p1++; else ovlstrcpy(p1,p2+1);
+      }
+      tag[1]='/';
+      mystrncpy(tag+2, s, n+1); tag[n+2]='>'; tag[n+3]=0;
+      for(p1=strstr(p,tag); p1!=NULL; p1=strstr(p1,tag))
+        ovlstrcpy(p1,p1+strlen(tag));
-  }
+    }
+}
 /* replace html symbols by their iso translation */
 void calc_html2iso(char *p)
+{

Subversion Repositories wimsdev