Read This! | Picolisp | Picolisp Machine | Pil Sources | Linux | BASH | C-Programmming | Javascipt | Python | Scheme | Operating Systems | AssemblyLanguage | Computer Security | Firewalls | Exploitation | Social Engineering | Metasploit | Emacs | vim | Pharo Smalltalk | Databases | Networking | Machine Learning | Git | Machine Learning | Algorithms | Open Data Science

ht.c

/* 13feb15abu
 * (c) Software Lab. Alexander Burger
 */

#include "pico.h"

// (ht:Prin 'sym ..) -> sym
any Prin(any x) {
   any y = Nil;

   while (isCell(x = cdr(x))) {
      if (isNum(y = EVAL(car(x))) || isCell(y) || isExt(y))
         prin(y);
      else {
         int c;
         char *p, nm[bufSize(y)];

         bufString(y, nm);
         for (p = nm; *p;) {
            switch (*(byte*)p) {
            case '<':
               outString("&lt;");
               break;
            case '>':
               outString("&gt;");
               break;
            case '&':
               outString("&amp;");
               break;
            case '"':
               outString("&quot;");
               break;
            case 0xFF:
               Env.put(0xEF);
               Env.put(0xBF);
               Env.put(0xBF);
               break;
            default:
               Env.put(c = *p);
               if ((c & 0x80) != 0) {
                  Env.put(*++p);
                  if ((c & 0x20) != 0)
                     Env.put(*++p);
               }
            }
            ++p;
         }
      }
   }
   return y;
}

static void putHex(int c) {
   int n;

   Env.put('%');
   if ((n = c >> 4 & 0xF) > 9)
      n += 7;
   Env.put(n + '0');
   if ((n = c & 0xF) > 9)
      n += 7;
   Env.put(n + '0');
}

static void htEncode(char *p) {
	int c;

   while (c = *p++) {
      if (strchr(" "#%&:;<=>?_", c))
         putHex(c);
      else {
         Env.put(c);
         if ((c & 0x80) != 0) {
            Env.put(*p++);
            if ((c & 0x20) != 0)
               Env.put(*p++);
         }
      }
   }
}

static void htFmt(any x) {
   any y;

   if (isNum(x))
      Env.put('+'),  prin(x);
   else if (isCell(x))
      do
         Env.put('_'),  htFmt(car(x));
      while (isCell(x = cdr(x)));
   else if (isNum(y = name(x))) {
      char nm[bufSize(x)];

      bufString(x, nm);
      if (isExt(x))
         Env.put('-'),  htEncode(nm);
      else if (hashed(x, Intern[ihash(y)]))
         Env.put('$'),  htEncode(nm);
      else if (strchr("$+-", *nm)) {
         putHex(*nm);
         htEncode(nm+1);
      }
      else
         htEncode(nm);
   }
}

// (ht:Fmt 'any ..) -> sym
any Fmt(any x) {
   int n, i;
   cell c[length(x = cdr(x))];

   for (n = 0;  isCell(x);  ++n, x = cdr(x))
      Push(c[n], EVAL(car(x)));
   begString();
   for (i = 0; i < n;) {
      htFmt(data(c[i]));
      if (++i != n)
         Env.put('&');
   }
   x = endString();
   if (n)
      drop(c[0]);
   return x;
}

static int getHex(any *p) {
   int n, m;

   n = firstByte(car(*p)),  *p = cdr(*p);
   if ((n -= '0') > 9)
      n = (n & 0xDF) - 7;
   m = firstByte(car(*p)),  *p = cdr(*p);
   if ((m -= '0') > 9)
      m = (m & 0xDF) - 7;
   return n << 4 | m;
}

static bool head(char *s, any x) {
   while (*s) {
      if (*s++ != firstByte(car(x)))
         return NO;
      x = cdr(x);
   }
   return YES;
}

static int getUnicode(any *p) {
   int c, n = 0;
   any x = cdr(*p);

   while ((c = firstByte(car(x))) >= '0' && c <= '9') {
      n = n * 10 + c - '0';
      x = cdr(x);
   }
   if (n  &&  c == ';') {
      *p = cdr(x);
      return n;
   }
   return 0;
}

// (ht:Pack 'lst ['flg']) -> sym
any Pack(any ex) {
   int c;
   any x, u;
   cell c1;

   x = cdr(ex),  Push(c1, EVAL(car(x)));
   x = cdr(x),  u = EVAL(car(x));
   x = data(c1);
   begString();
   while (isCell(x)) {
      if ((c = firstByte(car(x))) == '%')
         x = cdr(x),  Env.put(isNil(u)? '%' : getHex(&x));
      else if (c != '&')
         outName(car(x)), x = cdr(x);
      else if (head("lt;", x = cdr(x)))
         Env.put('<'), x = cdddr(x);
      else if (head("gt;", x))
         Env.put('>'), x = cdddr(x);
      else if (head("amp;", x))
         Env.put('&'), x = cddddr(x);
      else if (head("quot;", x))
         Env.put('"'), x = cddr(cdddr(x));
      else if (head("nbsp;", x))
         Env.put(' '), x = cddr(cdddr(x));
      else if (firstByte(car(x)) == '#' && (c = getUnicode(&x)))
         outName(mkChar(c));
      else
         Env.put('&');
   }
   x = endString();
   drop(c1);
   return x;
}

/*** Read content length bytes */
// (ht:Read 'cnt) -> lst
any Read(any ex) {
   any x;
   int n, c;
   cell c1;

   if ((n = evCnt(ex, cdr(ex))) <= 0)
      return Nil;
   if (!Chr)
      Env.get();
   if (Chr < 0)
      return Nil;
   if ((c = getChar()) >= 128) {
      --n;
      if (c >= 2048)
         --n;
   }
   if (--n < 0)
      return Nil;
   Push(c1, x = cons(mkChar(c), Nil));
   while (n) {
      Env.get();
      if (Chr < 0) {
         data(c1) = Nil;
         break;
      }
      if ((c = getChar()) >= 128) {
         --n;
         if (c >= 2048)
            --n;
      }
      if (--n < 0) {
         data(c1) = Nil;
         break;
      }
      x = cdr(x) = cons(mkChar(c), Nil);
   }
   Chr = 0;
   return Pop(c1);
}


/*** Chunked Encoding ***/
#define CHUNK 4000
static int Cnt;
static void (*Get)(void);
static void (*Put)(int);
static char Chunk[CHUNK];

static int chrHex(void) {
   if (Chr >= '0' && Chr <= '9')
      return Chr - 48;
   else if (Chr >= 'A' && Chr <= 'F')
      return Chr - 55;
   else if (Chr >= 'a' && Chr <= 'f')
      return Chr - 87;
   else
      return -1;
}

static void chunkSize(void) {
   int n;

   if (!Chr)
      Get();
   if ((Cnt = chrHex()) >= 0) {
      while (Get(), (n = chrHex()) >= 0)
         Cnt = Cnt << 4 | n;
      while (Chr != 'n') {
         if (Chr < 0)
            return;
         Get();
      }
      Get();
      if (Cnt == 0) {
         Get();  // Skip 'r' of empty line
         Chr = 0;  // Discard 'n'
      }
   }
}

static void getChunked(void) {
   if (Cnt <= 0)
      Chr = -1;
   else {
      Get();
      if (--Cnt == 0) {
         Get(), Get();  // Skip 'n', 'r'
         chunkSize();
      }
   }
}

// (ht:In 'flg . prg) -> any
any In(any x) {
   x = cdr(x);
   if (isNil(EVAL(car(x))))
      return prog(cdr(x));
   Get = Env.get,  Env.get = getChunked;
   chunkSize();
   x = prog(cdr(x));
   Env.get = Get;
   Chr = 0;
   return x;
}

static void wrChunk(void) {
   int i;
   char buf[BITS/2];

   sprintf(buf, "%xrn", Cnt);
   i = 0;
   do
      Put(buf[i]);
   while (buf[++i]);
   for (i = 0; i < Cnt; ++i)
      Put(Chunk[i]);
   Put('r'), Put('n');
}

static void putChunked(int c) {
   Chunk[Cnt++] = c;
   if (Cnt == CHUNK)
      wrChunk(),  Cnt = 0;
}

// (ht:Out 'flg . prg) -> any
any Out(any x) {
   x = cdr(x);
   if (isNil(EVAL(car(x))))
      x = prog(cdr(x));
   else {
      Cnt = 0;
      Put = Env.put,  Env.put = putChunked;
      x = prog(cdr(x));
      if (Cnt)
         wrChunk();
      Env.put = Put;
      outString("0rnrn");
   }
   flush(OutFile);
   return x;
}

http:///wiki/?htc

29jun17

admin