Initial import of htcd system 1.0

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>

1 files changed, 143 insertions, 0 deletions

diff --git a/src/mime/pack.cc b/src/mime/pack.cc
new file mode 100644
index 0000000..78fde26
--- /dev/null
+++ b/src/mime/pack.cc
@@ -0,0 +1,143 @@
+/*************************************************************************
+ *
+ * HTCd - Copyright (C) 1998-2006 Henrik Rydberg
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#include <mime/pack.h>
+
+const char hex2char[16]={
+  '0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'
+};
+const unsigned char2hex[256]={
+  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,
+  0,10,11,12,13,14,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+  0,10,11,12,13,14,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+};
+
+mstream& cashex(mstream& out,unsigned char c) {
+  return out.put(hex2char[c>>4]).put(hex2char[c&15]);
+}
+char hexasc(unsigned char c1,unsigned char c2) {
+  return ((char2hex[c1]<<4)|char2hex[c2]);
+}
+
+void Pack(mstream& out,const sref& s)
+{
+  static const charset escaped("&=%+\"'? ");
+  static const charset conv=~cset_printable|escaped;
+  sref q,p=s;
+  while(p.nempty()) {
+    p=p.adv(q=p.left_first_of(conv));
+    out<<q;
+    while(conv.test(p.front())) {
+      char c=*p; p=p.popf();
+      if(c==' ') out.put('+');
+      else {
+        out.put('%');
+        cashex(out,c);
+      }
+    }
+  }
+}
+  
+void Pack(mstream& out,const rpile& list)
+{
+  for(rpile::const_iterator p=list.begin();p!=list.end();++p) {
+    Pack(out,*p);
+    out.put('&');
+  }
+}
+
+void Pack(mstream& out,const rrpile& list)
+{
+  for(rrpile::const_iterator p=list.begin();p!=list.end();++p) {
+    Pack(out,p->first);
+    out.put('=');
+    Pack(out,p->second);
+    out.put('&');
+  }
+}
+
+///////////////////////////////////////////////////////////////
+
+void Unpack(mstream& out,const sref& in)
+{
+  static const charset tags("%+");
+  sref e,p=in;
+  while(p.nempty()) {
+    p=p.adv(e=p.left_first_of(tags));
+    out<<e;
+    while(tags.test(p.front())) {
+      char c=*p; p=p.popf();
+      if(c=='+') out.put(' ');
+      else if(c=='%') {
+        unsigned char c1=p[0],c2=p[1]; p=p.adv(2);
+        out.put(hexasc(c1,c2));
+      }
+      else out.put(c);
+    }
+  }
+}
+  
+void Unpack(spile& list,const sref& in)
+{
+  sref e,p=in;
+  while(p.nempty()) {
+    p=p.adv(e=p.left_first('&')).popf();
+    if(e.nempty()) {
+      list.push_back(mstring());
+      swrite sw(list.back());
+      Unpack(sw,e);
+    }
+  }
+}
+
+void Unpack(sspile& list,const sref& in)
+{
+  sref e1,e2,p=in;
+  while(p.nempty()) {
+    p=p.adv(e1=p.left_first('=')).popf();
+    if(e1.nempty()) {
+      p=p.adv(e2=p.left_first('&')).popf();
+      list.push_back(sstring());
+      swrite sw1(list.back().first);
+      Unpack(sw1,e1);
+      swrite sw2(list.back().second);
+      Unpack(sw2,e2);
+    }
+  }
+}
+
+///////////////////////////////////////////////////////////////
+
+void CRLF2LF(mstream& out,const sref& in)
+{
+  sref first,rest=in;
+  while(Splitln(first,rest)) out<<first<<"\n";
+}
+
+void LF2CRLF(mstream& out,const sref& in)
+{
+  sref first,rest=in;
+  while(Splitln(first,rest)) out<<first<<CRLF;
+}
+