This is codes.c in view mode; [Download] [Up]
/*
Copyright (c) 1991 Bell Communications Research, Inc. (Bellcore)
Permission to use, copy, modify, and distribute this material
for any purpose and without fee is hereby granted, provided
that the above copyright notice and this permission notice
appear in all copies, and that the name of Bellcore not be
used in advertising or publicity pertaining to this
material without the specific, prior written permission
of an authorized representative of Bellcore. BELLCORE
MAKES NO REPRESENTATIONS ABOUT THE ACCURACY OR SUITABILITY
OF THIS MATERIAL FOR ANY PURPOSE. IT IS PROVIDED "AS IS",
WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.
*/
#include <stdio.h>
#include <ctype.h>
#include "config.h"
#import <streams/streams.h>
#define getc(x) NXGetc(x)
#define putc(x,stream) NXPutc(stream,x)
//#define fgets(x,y,stream) NXRead(stream,x,y)
#define fputs(x,stream) NXWrite(stream,x,sizeof(x))
#define fflush(stream) NXFlush(stream)
extern int readline();
extern char *index();
static char basis_64[] =
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
static char index_64[128] = {
-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,62, -1,-1,-1,63,
52,53,54,55, 56,57,58,59, 60,61,-1,-1, -1,-1,-1,-1,
-1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10, 11,12,13,14,
15,16,17,18, 19,20,21,22, 23,24,25,-1, -1,-1,-1,-1,
-1,26,27,28, 29,30,31,32, 33,34,35,36, 37,38,39,40,
41,42,43,44, 45,46,47,48, 49,50,51,-1, -1,-1,-1,-1
};
#define char64(c) (((c) < 0 || (c) > 127) ? -1 : index_64[(c)])
/*
char64(c)
char c;
{
char *s = (char *) index(basis_64, c);
if (s) return(s-basis_64);
return(-1);
}
*/
void to64(infile, outfile)
NXStream *infile, *outfile;
{
int c1, c2, c3, ct=0;
void output64chunk();
while ((c1 = getc(infile)) != EOF) {
c2 = getc(infile);
if (c2 == EOF) {
output64chunk(c1, 0, 0, 2, outfile);
} else {
c3 = getc(infile);
if (c3 == EOF) {
output64chunk(c1, c2, 0, 1, outfile);
} else {
output64chunk(c1, c2, c3, 0, outfile);
}
}
ct += 4;
if (ct > 71) {
putc('\r', outfile);
putc('\n', outfile);
ct = 0;
}
}
if (ct) {
putc('\r', outfile);
putc('\n', outfile);
}
fflush(outfile);
}
void output64chunk(c1, c2, c3, pads, outfile)
int c1,c2,c3,pads;
NXStream *outfile;
{
putc(basis_64[c1>>2], outfile);
putc(basis_64[((c1 & 0x3)<< 4) | ((c2 & 0xF0) >> 4)], outfile);
if (pads == 2) {
putc('=', outfile);
putc('=', outfile);
} else if (pads) {
putc(basis_64[((c2 & 0xF) << 2) | ((c3 & 0xC0) >>6)], outfile);
putc('=', outfile);
} else {
putc(basis_64[((c2 & 0xF) << 2) | ((c3 & 0xC0) >>6)], outfile);
putc(basis_64[c3 & 0x3F], outfile);
}
}
int PendingBoundary(s, Boundaries, BoundaryCt)
char *s;
char **Boundaries;
int *BoundaryCt;
{
int i;
int strncmp(), strlen(), strcat();
for (i=0; i < *BoundaryCt; ++i) {
if (!strncmp(s, Boundaries[i], strlen(Boundaries[i]))) {
char Buf[2000];
strcpy(Buf, Boundaries[i]);
strcat(Buf, "--\r\n");
if (!strcmp(Buf, s)) *BoundaryCt = i;
return(1);
}
}
return(0);
}
int from64(infile, outfile, boundaries, boundaryct)
NXStream *infile, *outfile;
char **boundaries;
int *boundaryct;
{
int c1, c2, c3, c4;
int newline = 1, DataDone = 0;
while ((c1 = getc(infile)) != EOF) {
if (isspace(c1)) {
if (c1 == '\n') {
newline = 1;
} else {
newline = 0;
}
continue;
}
if (newline && boundaries && c1 == '-') {
char Buf[200];
/* a dash is NOT base 64, so all bets are off if NOT a boundary */
/*ungetc(c1, infile); */
NXUngetc(infile);
readline(infile, Buf, sizeof(Buf));
if (boundaries
&& (Buf[0] == '-')
&& (Buf[1] == '-')
&& PendingBoundary(Buf, boundaries, boundaryct)) {
return(0);
}
fprintf(stderr, "Ignoring unrecognized boundary line: %s\n", Buf);
continue;
}
if (DataDone) continue;
newline = 0;
do {
c2 = getc(infile);
} while (c2 != EOF && isspace(c2));
do {
c3 = getc(infile);
} while (c3 != EOF && isspace(c3));
do {
c4 = getc(infile);
} while (c4 != EOF && isspace(c4));
if (c2 == EOF || c3 == EOF || c4 == EOF) {
fprintf(stderr, "Premature EOF!\n");
return(0);
}
if (c1 == '=' || c2 == '=') {
DataDone=1;
continue;
}
c1 = char64(c1);
c2 = char64(c2);
putc(((c1<<2) | ((c2&0x30)>>4)), outfile);
if (c3 == '=') {
DataDone = 1;
} else {
c3 = char64(c3);
putc((((c2&0XF) << 4) | ((c3&0x3C) >> 2)), outfile);
if (c4 == '=') {
DataDone = 1;
} else {
c4 = char64(c4);
putc((((c3&0x03) <<6) | c4), outfile);
}
}
}
return(0);
}
static char basis_hex[] = "0123456789ABCDEF";
static char index_hex[128] = {
-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1, -1,-1,-1,-1,
-1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1,
-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
-1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1,
-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1
};
#define hexchar(c) (((c) < 0 || (c) > 127) ? -1 : index_hex[(c)])
/*
hexchar(c)
char c;
{
char *s;
if (islower(c)) c = toupper(c);
s = (char *) index(basis_hex, c);
if (s) return(s-basis_hex);
return(-1);
}
*/
int toqp(infile, outfile)
NXStream *infile, *outfile;
{
int c, ct=0, prevc=255;
while ((c = getc(infile)) != EOF) {
if ((c < 32 && (c != '\n' && c != '\t'))
|| (c == '=')
|| (c >= 127)
/* Following line is to avoid single periods alone on lines,
which messes up some dumb smtp implementations, sigh... */
|| (ct == 0 && c == '.')) {
putc('=', outfile);
putc(basis_hex[c>>4], outfile);
putc(basis_hex[c&0xF], outfile);
ct += 3;
prevc = 'A'; /* close enough */
} else if (c == '\n') {
if (prevc == ' ' || prevc == '\t') {
putc('=', outfile); /* soft & hard lines */
putc(c, outfile);
}
putc(c, outfile);
ct = 0;
prevc = c;
} else {
putc(c, outfile);
++ct;
prevc = c;
}
if (ct > 72) {
putc('=', outfile);
putc('\r', outfile);
putc('\n', outfile);
ct = 0;
prevc = '\n';
}
}
if (ct) {
putc('=', outfile);
putc('\r', outfile);
putc('\n', outfile);
}
return(0);
}
int fromqp(infile, outfile, boundaries, boundaryct)
NXStream *infile, *outfile;
char **boundaries;
int *boundaryct;
{
int c1, c2, sawnewline = 1;
while ((c1 = getc(infile)) != EOF) {
if (sawnewline && boundaries && (c1 == '-')) {
char Buf[200], *s;
/*ungetc(c1, infile); */
NXUngetc(infile);
readline(infile, Buf, sizeof(Buf));
if (boundaries
&& (Buf[0] == '-')
&& (Buf[1] == '-')
&& PendingBoundary(Buf, boundaries, boundaryct)) {
return(0);
}
/* Not a boundary, now we must treat THIS line as q-p, sigh */
for (s=Buf; *s; ++s) {
if (*s == '=') {
if (!*++s) break;
if (*s == '\n') {
/* ignore it */
sawnewline = 1;
} else {
c1 = hexchar(*s);
if (!*++s) break;
c2 = hexchar(*s);
putc(c1<<4 | c2, outfile);
}
} else {
putc(*s, outfile);
}
}
} else {
sawnewline = (c1 == '\n') ? 1 : 0;
if (c1 == '=') {
c1 = getc(infile);
if (c1 == '\n') {
/* ignore it */
sawnewline = 1;
} else if ( c1 == '\r'){
c1 = getc(infile);
/* ignore it */
sawnewline = 1;
} else {
c2 = getc(infile);
c1 = hexchar(c1);
c2 = hexchar(c2);
putc(c1<<4 | c2, outfile);
if (c2 == '\n') sawnewline = 1;
}
} else {
putc(c1, outfile);
}
}
}
return(0);
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.