mirror of
https://github.com/uw-imap/imap.git
synced 2025-07-13 06:24:22 +02:00
Source from upstream; imap-2007f.tar.gz
MD5 2126fd125ea26b73b20f01fcd5940369
This commit is contained in:
Chris
36
tools/Makefile
Normal file
36
tools/Makefile
Normal file
@ -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?'
|
||||
41
tools/an
Executable file
41
tools/an
Executable file
@ -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
|
||||
45
tools/ua
Executable file
45
tools/ua
Executable file
@ -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
|
||||
262
tools/uahelper.c
Normal file
262
tools/uahelper.c
Normal file
@ -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 <stdio.h>
|
||||
|
||||
#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;
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user