From 094ca96844842928810f14844413109fc6cdd890 Mon Sep 17 00:00:00 2001 From: Eduardo Chappa Date: Sun, 3 Feb 2013 00:59:38 -0700 Subject: Initial Alpine Version --- imap/tools/Makefile | 36 +++++++ imap/tools/an | 41 ++++++++ imap/tools/ua | 45 +++++++++ imap/tools/uahelper.c | 262 ++++++++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 384 insertions(+) create mode 100644 imap/tools/Makefile create mode 100755 imap/tools/an create mode 100755 imap/tools/ua create mode 100644 imap/tools/uahelper.c (limited to 'imap/tools') diff --git a/imap/tools/Makefile b/imap/tools/Makefile new file mode 100644 index 00000000..f2db51f9 --- /dev/null +++ b/imap/tools/Makefile @@ -0,0 +1,36 @@ +# ======================================================================== +# Copyright 1988-2006 University of Washington +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# +# ======================================================================== + +# Program: Tools Makefile +# +# Author: Mark Crispin +# Networks and Distributed Computing +# Computing & Communications +# University of Washington +# Administration Building, AG-44 +# Seattle, WA 98195 +# Internet: MRC@CAC.Washington.EDU + + +CC=cc +RM=rm -f + + +uahelper: + $(CC) -o uahelper uahelper.c $(LDFLAGS) + +clean: + sh -c '$(RM) *.o uahelper || true' + +# A monument to a hack of long ago and far away... +love: + @echo 'not war?' diff --git a/imap/tools/an b/imap/tools/an new file mode 100755 index 00000000..dcaca97d --- /dev/null +++ b/imap/tools/an @@ -0,0 +1,41 @@ +#!/bin/sh + +# ======================================================================== +# Copyright 1988-2007 University of Washington +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# +# ======================================================================== + +BASE=`pwd` + +if [ ! -d $3 ]; then + mkdir $3 +fi + +for i in $2/Makefile* ; do + if [ -f $i ] ; then + $1 "$BASE/$i" "$BASE/$3" + fi +done + +if [ -f $2/drivers ]; then + $1 "$BASE/$2/drivers" "$BASE/$3" +fi + +if [ -f $2/mkauths ]; then + $1 "$BASE/$2/mkauths" "$BASE/$3" +fi + +cd $2 + +for j in *.[ch]; do + $1 "$BASE/$2/$j" "$BASE/$3" +done + +exit 0 diff --git a/imap/tools/ua b/imap/tools/ua new file mode 100755 index 00000000..a188b56c --- /dev/null +++ b/imap/tools/ua @@ -0,0 +1,45 @@ +#!/bin/sh + +# ======================================================================== +# Copyright 1988-2006 University of Washington +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# +# ======================================================================== + +BASE=`pwd` + +if [ ! -f tools/uahelper ]; then + (cd tools;make) +fi + +if [ ! -d $3 ]; then + mkdir $3 +fi + +for i in $2/Makefile* ; do + if [ -f $i ] ; then + $1 "$BASE/$i" "$BASE/$3" + fi +done + +if [ -f $2/drivers ]; then + $1 "$BASE/$2/drivers" "$BASE/$3" +fi + +if [ -f $2/mkauths ]; then + $1 "$BASE/$2/mkauths" "$BASE/$3" +fi + +cd $2 + +for j in *.[ch]; do + "$BASE/tools/uahelper" < $j > "$BASE/$3/$j" +done + +exit 0 diff --git a/imap/tools/uahelper.c b/imap/tools/uahelper.c new file mode 100644 index 00000000..114fd687 --- /dev/null +++ b/imap/tools/uahelper.c @@ -0,0 +1,262 @@ +/* ======================================================================== + * Copyright 1988-2006 University of Washington + * + * Licensed under the Apache License, Version 2.0 (the "License"); + * you may not use this file except in compliance with the License. + * You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * + * ======================================================================== + */ + +/* + * Program: unANSIify + * + * Author: Mark Crispin + * Networks and Distributed Computing + * Computing & Communications + * University of Washington + * 4545 15th Ave NE + * Seattle, WA 98105-4527 + * Internet: MRC@CAC.Washington.EDU + * + * Date: 1 June 1995 + * Last Edited: 30 August 2006 + */ + + +/* This program is designed to make traditional C sources out of my source + * files which use ANSI syntax. This program depends heavily upon knowledge + * of the way I write code, and is not a general purpose tool. I hope that + * someday someone will provide a general purpose tool... + */ + +#include + +#define LINELENGTH 1000 + + +/* Find first non-whitespace + * Accepts: string + * Returns: 0 if no non-whitespace found, or pointer to non-whitespace + */ + +char *fndnws (s) + char *s; +{ + while ((*s == ' ') || (*s == '\t')) + if ((*s++ == '\n') || !*s) return (char *) 0; + return s; +} + + +/* Find first whitespace + * Accepts: string + * Returns: 0 if no whitespace found, or pointer to whitespace + */ + +char *fndws (s) + char *s; +{ + while ((*s != ' ') && (*s != '\t')) + if ((*s++ == '\n') || !*s) return (char *) 0; + return s; +} + + +/* Find end of commend + * Accepts: string + * Returns: -1 if end of comment found, else 0 + */ + +int fndcmt (s) + char *s; +{ + while (*s && (*s != '\n')) + if ((*s++ == '*') && (*s == '/')) return -1; + return 0; +} + +/* Output a line + * Accepts: string + */ + +void poot (s) + char *s; +{ + if (s) fputs (s,stdout); +} + + +/* Skip prefix + * Accepts: string + * Returns: updated string + */ + +char *skipfx (s) + char *s; +{ + char c,*t = s,*tt; + /* skip leading whitespace too */ + while ((*s == ' ') || (*s == '\t')) *s++; + if (s != t) { + c = *s; /* save character */ + *s = '\0'; /* tie off prefix */ + poot (t); /* output prefix */ + *s = c; /* restore character */ + } + /* a typedef? */ + if (((s[0] == 't') && (s[1] == 'y') && (s[2] == 'p') && (s[3] == 'e') && + (s[4] == 'd') && (s[5] == 'e') && (s[6] == 'f')) && + (t = fndws (s)) && (t = fndnws (t))) { + if ((t[0] == 'u') && (t[1] == 'n') && (t[2] == 's') && (t[3] == 'i') && + (t[4] == 'g') && (t[5] == 'n') && (t[6] == 'e') && (t[7] == 'd') && + (tt = fndws (t+7)) && (tt = fndnws (tt))) t = tt; + c = *t; /* save character */ + *t = '\0'; /* tie off prefix */ + poot (s); /* output prefix */ + *t = c; /* restore character */ + s = t; /* new string pointer */ + } + /* static with known prefix */ + else if (((s[0] == 's') && (s[1] == 't') && (s[2] == 'a') && + (s[3] == 't') && (s[4] == 'i') && (s[5] == 'c') && + (s[6] == ' ')) && + (((s[7] == 'u') && (s[8] == 'n') && (s[9] == 's') && + (s[10] == 'i') && (s[11] == 'g') && (s[12] == 'n') && + (s[13] == 'e') && (s[14] == 'd')) || + ((s[7] == 's') && (s[8] == 't') && (s[9] == 'r') && + (s[10] == 'u') && (s[11] == 'c') && (s[12] == 't')) || + ((s[7] == 'd') && (s[8] == 'o')) || + ((s[9] == 'e') && (s[10] == 'l') && (s[11] == 's') && + (s[12] == 'e'))) && + (t = fndws (s)) && (t = fndnws (t)) && + (t = fndws (t)) && (t = fndnws (t))) { + c = *t; /* save character */ + *t = '\0'; /* tie off prefix */ + poot (s); /* output prefix */ + *t = c; /* restore character */ + s = t; /* new string pointer */ + } + /* one of the known prefixes? */ + else if ((((s[0] == 'u') && (s[1] == 'n') && (s[2] == 's') && + (s[3] == 'i') && (s[4] == 'g') && (s[5] == 'n') && + (s[6] == 'e') && (s[7] == 'd')) || + ((s[0] == 's') && (s[1] == 't') && (s[2] == 'r') && + (s[3] == 'u') && (s[4] == 'c') && (s[5] == 't')) || + ((s[0] == 's') && (s[1] == 't') && (s[2] == 'a') && + (s[3] == 't') && (s[4] == 'i') && (s[5] == 'c')) || + ((s[0] == 'd') && (s[1] == 'o')) || + ((s[0] == 'e') && (s[1] == 'l') && (s[2] == 's') && + (s[3] == 'e'))) && + (t = fndws (s)) && (t = fndnws (t))) { + c = *t; /* save character */ + *t = '\0'; /* tie off prefix */ + poot (s); /* output prefix */ + *t = c; /* restore character */ + s = t; /* new string pointer */ + } + /* may look like a proto, but isn't */ + else if ((s[0] == 'r') && (s[1] == 'e') && (s[2] == 't') && (s[3] == 'u') && + (s[4] == 'r') && (s[5] == 'n')) { + poot (s); + return 0; + } + return s; +} + +/* UnANSI a line + * Accepts: string + */ + +void unansi (s) + char *s; +{ + char c,*t = s,*u,*v; + while (t[1] && (t[1] != '\n')) t++; + switch (*t) { + case ',': /* continued on next line? */ + /* slurp remainder of line */ + fgets (t + 1,LINELENGTH - (t + 1 - s),stdin); + unansi (s); /* try again */ + break; + case ';': /* function prototype? */ + /* yes, tie it off */ + *(fndws (fndnws (fndws (fndnws (s))))) = '\0'; + printf ("%s ();\n",s); /* and output non-ANSI form */ + break; + case ')': + *t = '\0'; /* tie off args */ + if (*(t = fndnws (fndws (fndnws (fndws (fndnws (s)))))) == '(') { + *t++ = '\0'; /* tie off */ + while ((*t == ' ') || (*t == '\t')) t++; + if ((t[0] == 'v') && (t[1] == 'o') && (t[2] == 'i') && (t[3] == 'd') && + !t[4]) *t = '\0'; /* make void be same as null */ + printf ("%s(",s); /* output start of function */ + s = t; + while (*s) { /* for each argument */ + while ((*s == ' ') || (*s == '\t')) s++; + for (u = v = s; (*u && (*u != ',') && (*u != '[')); u++) + if ((*u == ' ') || (*u == '\t')) v = u; + c = *u; /* remember delimiter */ + *u = '\0'; /* tie off argument name */ + while (*++v == '*'); /* remove leading pointer indication */ + fputs (v,stdout); /* write variable name */ + *(s = u) = c; /* restore delimiter */ + while (*s && (*s != ',')) *s++; + if (*s) fputc (*s++,stdout); + } + puts (")"); /* end of function */ + while (*t) { /* for each argument */ + fputs (" ",stdout); + while ((*t == ' ') || (*t == '\t')) t++; + while (*t && (*t != ',')) fputc (*t++,stdout); + puts (";"); + if (*t == ',') t++; + } + } + else printf ("%s)",s); /* say what?? */ + break; + default: /* doesn't look like a function */ + poot (s); + } +} + +main () +{ + char *s,*t,line[LINELENGTH]; + int c; + while (s = fgets (line,LINELENGTH,stdin)) switch (line[0]) { + case '/': /* comment */ + if ((s[1] != '*') || fndcmt (s+2)) poot (line); + else do poot (line); + while (!fndcmt (line) && (s = fgets (line,LINELENGTH,stdin))); + break; + case '{': /* open function */ + case '}': /* close function */ + case '\f': /* formfeed */ + case '\n': /* newline */ + case '#': /* preprocessor command */ + poot (line); + break; + case '\t': /* whitespace */ + case ' ': + /* look like function arg def in structure? */ + if ((t = skipfx (line)) && (s = fndws (t)) && (s = fndnws (s)) && + (((*s == '(') && (s[1] == '*')) || + ((*s == '*') && (s[1] == '(') && (s[2] == '*'))) && + (s = fndws (s)) && (s[-1] == ')') && (s = fndnws (s)) && (*s == '(')) + unansi (t); + else poot (t); + break; + default: /* begins with anything else */ + /* look like function proto or def? */ + if ((t = skipfx (line)) && (s = fndws (t)) && (s = fndnws (s)) && + (s = fndws (s)) && (s = fndnws (s)) && (*s == '(')) + unansi (t); + else poot (t); + break; + } +} -- cgit v1.2.3-54-g00ecf