rcscan::rcscan(const FileLineManager& aFileLineHandlerToSet,FILE* aSourceFile):
yy_scan(300),
iErrorFound(0),
iFileLineHandler(aFileLineHandlerToSet)
{
setinput(aSourceFile);
}
/* return value:
* 0 - file loaded successfully
* FILEERROR - file does not exist
* CERROR - something goes wrong
*/
extern CSA_return_code
start_log(_DtCmsCalendar *cal, char *filename)
{
int fd;
FILE *f;
char firstline[80], *numptr;
int version;
struct stat info;
struct passwd *pw;
extern void setinput(FILE *);
extern int yyyparse();
extern int yyywrap(FILE *);
if (cal == NULL || filename == NULL)
return(CSA_E_FAILURE);
if ((f = fopen(filename, "r")) == NULL) {
if (errno == ENOENT)
return(CSA_E_CALENDAR_NOT_EXIST);
else
return(CSA_X_DT_E_BACKING_STORE_PROBLEM);
}
setinput(f);
currentCalendar = cal;
if (yyyparse() == -1) {
fprintf(stderr, "%s: unable to parse %s\n", pgname, filename);
yyywrap(f);
return(CSA_X_DT_E_BACKING_STORE_PROBLEM);
}
yyywrap(f);
return(CSA_SUCCESS);
}
/*
* Edit a message by writing the message into a funnily-named file
* (which should not exist) and forking an editor on it.
* We get the editor from the stuff above.
*/
int
edit1(int *msgvec, int type)
{
int c, i;
FILE *fp;
struct sigaction oact;
sigset_t oset;
struct message *mp;
off_t size;
/*
* Deal with each message to be edited . . .
*/
for (i = 0; msgvec[i] && i < msgCount; i++) {
if (i > 0) {
char buf[100];
char *p;
printf("Edit message %d [ynq]? ", msgvec[i]);
if (fgets(buf, sizeof(buf), stdin) == NULL)
break;
for (p = buf; *p == ' ' || *p == '\t'; p++)
;
if (*p == 'q')
break;
if (*p == 'n')
continue;
}
dot = mp = &message[msgvec[i] - 1];
touch(mp);
(void)ignoresig(SIGINT, &oact, &oset);
fp = run_editor(setinput(mp), (off_t)mp->m_size, type, readonly);
if (fp != NULL) {
(void)fseek(otf, 0L, SEEK_END);
size = ftell(otf);
mp->m_block = blockof(size);
mp->m_offset = offsetof(size);
mp->m_size = fsize(fp);
mp->m_lines = 0;
mp->m_flag |= MODIFY;
rewind(fp);
while ((c = getc(fp)) != EOF) {
if (c == '\n')
mp->m_lines++;
if (putc(c, otf) == EOF)
break;
}
if (ferror(otf))
warn("%s", tmpdir);
(void)Fclose(fp);
}
(void)sigprocmask(SIG_SETMASK, &oset, NULL);
(void)sigaction(SIGINT, &oact, NULL);
}
return(0);
}
/*
* Edit a message by writing the message into a funnily-named file
* (which should not exist) and forking an editor on it.
* We get the editor from the stuff above.
*/
int
edit1(int *msgvec, int type)
{
int c, i;
FILE *fp;
struct message *mp;
off_t size;
/*
* Deal with each message to be edited . . .
*/
for (i = 0; msgvec[i] && i < msgCount; i++) {
sig_t sigint;
if (i > 0) {
char buf[100];
char *p;
printf("Edit message %d [ynq]? ", msgvec[i]);
if (fgets(buf, sizeof(buf), stdin) == 0)
break;
for (p = buf; *p == ' ' || *p == '\t'; p++)
;
if (*p == 'q')
break;
if (*p == 'n')
continue;
}
dot = mp = &message[msgvec[i] - 1];
touch(mp);
sigint = signal(SIGINT, SIG_IGN);
fp = run_editor(setinput(mp), mp->m_size, type, readonly);
if (fp != NULL) {
fseeko(otf, (off_t)0, SEEK_END);
size = ftello(otf);
mp->m_block = blockof(size);
mp->m_offset = boffsetof(size);
mp->m_size = (long)fsize(fp);
mp->m_lines = 0;
mp->m_flag |= MODIFY;
rewind(fp);
while ((c = getc(fp)) != EOF) {
if (c == '\n')
mp->m_lines++;
if (putc(c, otf) == EOF)
break;
}
if (ferror(otf))
warnx("/tmp");
Fclose(fp);
}
signal(SIGINT, sigint);
}
return (0);
}
void
setclen(register struct message *mp)
{
long c;
FILE *ibuf;
char line[LINESIZE];
int fline, nread;
ibuf = setinput(mp);
c = mp->m_size;
fline = 1;
while (c > 0L) {
nread = getln(line, sizeof (line), ibuf);
c -= nread;
/*
* First line is the From line, so no headers
* there to worry about.
*/
if (fline) {
fline = 0;
continue;
}
/*
* If line is blank, we've reached end of headers.
*/
if (line[0] == '\n')
break;
/*
* If this line is a continuation
* of a previous header field, keep going.
*/
if (isspace(line[0]))
continue;
/*
* If we are no longer looking at real
* header lines, we're done.
* This happens in uucp style mail where
* there are no headers at all.
*/
if (!headerp(line)) {
c += nread;
break;
}
}
if (c == 0)
c = 1;
mp->m_clen = c;
}
/*
* Print the top so many lines of each desired message.
* The number of lines is taken from the variable "toplines"
* and defaults to 5.
*/
int
top(void *v)
{
int *msgvec = v;
int *ip;
struct message *mp;
int c, topl, lines, lineb;
char *valtop, *linebuf = NULL;
size_t linesize;
FILE *ibuf;
topl = 5;
valtop = value("toplines");
if (valtop != NULL) {
topl = atoi(valtop);
if (topl < 0 || topl > 10000)
topl = 5;
}
lineb = 1;
for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {
mp = &message[*ip - 1];
touch(mp);
setdot(mp);
did_print_dot = 1;
if (value("quiet") == NULL)
printf(catgets(catd, CATSET, 19,
"Message %2d:\n"), *ip);
if (mp->m_flag & MNOFROM)
printf("From %s %s\n", fakefrom(mp),
fakedate(mp->m_time));
if ((ibuf = setinput(&mb, mp, NEED_BODY)) == NULL) /* XXX could use TOP */
return 1;
c = mp->m_lines;
if (!lineb)
printf("\n");
for (lines = 0; lines < c && lines <= topl; lines++) {
if (readline(ibuf, &linebuf, &linesize) < 0)
break;
puts(linebuf);
lineb = blankline(linebuf);
}
}
if (linebuf)
free(linebuf);
return(0);
}
/*
* Edit a message list.
*/
static int
edit1(struct msg* msgvec, int type)
{
register struct msg* ip;
register struct msg* mp;
FILE* fp;
off_t size;
sig_t sigint;
/*
* Deal with each message to be edited . . .
*/
for (ip = msgvec; ip->m_index; ip++) {
if (ip > msgvec) {
char buf[100];
char* p;
note(PROMPT, "Edit message %d [ynq]? ", ip->m_index);
if (!fgets(buf, sizeof buf, stdin))
break;
for (p = buf; isspace(*p); p++);
if (*p == 'q' || *p == 'Q')
break;
if (*p == 'n' || *p == 'N')
continue;
}
state.msg.dot = mp = state.msg.list + ip->m_index - 1;
touchmsg(mp);
sigint = signal(SIGINT, SIG_IGN);
if (fp = run_editor(setinput(mp), mp->m_size, NiL, type, state.readonly)) {
if (!state.msg.op)
settmp(NiL, 0);
fseek(state.msg.op, (off_t)0, SEEK_END);
size = ftell(state.msg.op);
mp->m_block = blocknumber(size);
mp->m_offset = blockoffset(size);
msgflags(mp, MODIFY, 0);
rewind(fp);
filecopy(NiL, fp, state.tmp.dir, state.msg.op, NiL, (off_t)0, &mp->m_lines, &mp->m_size, 0);
fileclose(fp);
}
signal(SIGINT, sigint);
}
return 0;
}
void
receipt(struct message *mp)
{
char head[LINESIZE];
char buf[BUFSIZ];
FILE *pp, *fp;
char *mail, *s;
if ((mail = value("sendmail")) == 0)
#ifdef SENDMAIL
mail = SENDMAIL;
#else
mail = MAIL;
#endif
if (icsubstr(hfield("default-options", mp, addone), "/receipt")
|| icsubstr(hfield(">to", mp, addto), "/receipt")) {
snprintf(buf, sizeof (buf), "%s %s", mail, skin(nameof(mp)));
if (pp = npopen(buf, "w")) {
headline_t *hl;
if (headline_alloc(&hl) != 0) {
err(1, "could not allocate memory");
}
fp = setinput(mp);
readline(fp, head);
if (parse_headline(head, hl) != 0) {
headline_reset(hl);
}
if (custr_len(hl->hl_date) > 0) {
fprintf(pp, "Original-Date: %s\n",
custr_cstr(hl->hl_date));
}
if (s = hfield("message-id", mp, addone))
fprintf(pp, "Original-Message-ID: %s\n", s);
s = hfield("subject", mp, addone);
fprintf(pp, "Subject: RR: %s\n", s ? s : "(none)");
npclose(pp);
headline_free(hl);
}
}
}
/*
* Print out the header of a specific message.
* This is a slight improvement to the standard one.
*/
void
printhead(int mesg)
{
struct message *mp;
char headline[LINESIZE], wcount[LINESIZE], *subjline, dispc, curind;
char pbuf[BUFSIZ];
struct headline hl;
int subjlen;
char *name;
mp = &message[mesg-1];
(void)readline(setinput(mp), headline, LINESIZE);
if ((subjline = hfield("subject", mp)) == NULL)
subjline = hfield("subj", mp);
/*
* Bletch!
*/
curind = dot == mp ? '>' : ' ';
dispc = ' ';
if (mp->m_flag & MSAVED)
dispc = '*';
if (mp->m_flag & MPRESERVE)
dispc = 'P';
if ((mp->m_flag & (MREAD|MNEW)) == MNEW)
dispc = 'N';
if ((mp->m_flag & (MREAD|MNEW)) == 0)
dispc = 'U';
if (mp->m_flag & MBOX)
dispc = 'M';
parse(headline, &hl, pbuf);
sprintf(wcount, "%3ld/%-5ld", mp->m_lines, mp->m_size);
subjlen = screenwidth - 50 - strlen(wcount);
name = value("show-rcpt") != NULL ?
skin(hfield("to", mp)) : nameof(mp, 0);
if (subjline == NULL || subjlen < 0) /* pretty pathetic */
printf("%c%c%3d %-20.20s %16.16s %s\n",
curind, dispc, mesg, name, hl.l_date, wcount);
else
printf("%c%c%3d %-20.20s %16.16s %s \"%.*s\"\n",
curind, dispc, mesg, name, hl.l_date, wcount,
subjlen, subjline);
}
remake()
{
char *tmpfile;
if (call("pi", stdin, stdout, dotpfile, NIL) == 0) {
if (strcmp(objname, "obj") != 0) {
call("mv", stdin, stdout, "obj", objname, NIL);
}
tmpfile = mktemp(strdup("/tmp/pdxXXXX"));
setout(tmpfile);
status();
unsetout();
bpfree();
objfree();
initstart();
readobj(objname);
setinput(tmpfile);
unlink(tmpfile);
} else {
puts("pi unsuccessful");
}
}
/*
* Print the top so many lines of each desired message.
* The number of lines is taken from the variable "toplines"
* and defaults to 5.
*/
int
top(int *msgvec)
{
int *ip;
struct message *mp;
int c, topl, lines, lineb;
char *valtop, linebuf[LINESIZE];
FILE *ibuf;
topl = 5;
valtop = value("toplines");
if (valtop != NULL) {
topl = atoi(valtop);
if (topl < 0 || topl > 10000)
topl = 5;
}
lineb = 1;
for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {
mp = &message[*ip - 1];
touch(mp);
dot = mp;
if (value("quiet") == NULL)
printf("Message %d:\n", *ip);
ibuf = setinput(mp);
c = mp->m_lines;
if (!lineb)
printf("\n");
for (lines = 0; lines < c && lines <= topl; lines++) {
if (readline(ibuf, linebuf, sizeof(linebuf)) < 0)
break;
puts(linebuf);
lineb = strspn(linebuf, " \t") == strlen(linebuf);
}
}
return (0);
}
static struct message *
getsig(struct message *m, int n, NSSCMSMessage **msg)
{
struct message *x;
char *ct, *pt, *boundary = NULL, *cte;
char *buf = NULL;
size_t bufsize = 0, buflen, count, boundlen = -1;
int part;
FILE *fp;
NSSCMSDecoderContext *decctx;
struct str in, out;
char *to, *cc;
int inhdr, binary;
int detached = 1;
loop: if ((ct = hfield("content-type", m)) == NULL)
goto not;
if (strncmp(ct, "application/x-pkcs7-mime", 24) == 0 ||
strncmp(ct, "application/pkcs7-mime", 22) == 0) {
to = hfield("to", m);
cc = hfield("cc", m);
if ((x = smime_decrypt(m, to, cc, 1)) == NULL)
return NULL;
if (x != (struct message *)-1) {
m = x;
goto loop;
}
detached = 0;
} else if (strncmp(ct, "multipart/signed", 16) ||
(pt = mime_getparam("protocol", ct)) == NULL ||
strcmp(pt, "application/x-pkcs7-signature") &&
strcmp(pt, "application/pkcs7-signature") ||
(boundary = mime_getboundary(ct)) == NULL) {
not: fprintf(stderr,
"Message %d is not an S/MIME signed message.\n", n);
return NULL;
} else
boundlen = strlen(boundary);
if ((decctx = NSS_CMSDecoder_Start(NULL, NULL, NULL,
password_cb, "Pass phrase:",
NULL, NULL)) == NULL) {
fprintf(stderr, "Cannot start decoder.\n");
return NULL;
}
if ((fp = setinput(&mb, m, NEED_BODY)) == NULL) {
return NULL;
}
count = m->m_size;
part = 0;
inhdr = 1;
binary = 0;
while (fgetline(&buf, &bufsize, &count, &buflen, fp, 0) != NULL) {
if (detached && boundary && buflen >= boundlen + 1 &&
strncmp(buf, boundary, boundlen) == 0) {
if (buf[boundlen] == '\n') {
part++;
inhdr = 1;
binary = 0;
if (part >= 3) {
fprintf(stderr, "Message %d has too "
"many parts.\n", n);
free(buf);
return NULL;
}
continue;
}
if (buf[boundlen] == '-' && buf[boundlen+1] == '-' &&
buf[boundlen+2] == '\n')
break;
} else if (buf[0] == '\n') {
inhdr = 0;
continue;
}
if ((!detached || part == 2) && inhdr == 0) {
if (binary)
NSS_CMSDecoder_Update(decctx, buf, buflen);
else {
in.s = buf;
in.l = buflen;
mime_fromb64_b(&in, &out, 0, fp);
NSS_CMSDecoder_Update(decctx, out.s, out.l);
free(out.s);
}
}
if (buflen == 1 && buf[0] == '\n')
inhdr = 0;
if (inhdr && (cte = thisfield(buf, "content-transfer-encoding"))
!= NULL && ascncasecmp(cte, "binary", 7) == 0)
binary = 1;
}
free(buf);
if ((*msg = NSS_CMSDecoder_Finish(decctx)) == NULL) {
fprintf(stderr, "Failed to decode signature for message %d.\n",
n);
return NULL;
}
return m;
}
struct message *
smime_decrypt(struct message *m, const char *to, const char *cc, int signcall)
{
NSSCMSDecoderContext *ctx;
NSSCMSMessage *msg;
FILE *op, *hp, *bp;
char *buf = NULL;
size_t bufsize = 0, buflen, count;
char *cp;
struct str in, out;
FILE *yp;
long size;
int i, nlevels;
int binary = 0;
if ((yp = setinput(&mb, m, NEED_BODY)) == NULL)
return NULL;
if (nss_init() != OKAY)
return NULL;
if ((op = Ftemp(&cp, "Rp", "w+", 0600, 1)) == NULL) {
perror("tempfile");
return NULL;
}
rm(cp);
Ftfree(&cp);
if ((ctx = NSS_CMSDecoder_Start(NULL,
decoder_cb, op,
password_cb, "Pass phrase:",
NULL, NULL)) == NULL) {
fprintf(stderr, "Cannot start decoder.\n");
return NULL;
}
size = m->m_size;
if ((smime_split(yp, &hp, &bp, size, 1)) == STOP)
return NULL;
count = fsize(bp);
while (fgetline(&buf, &bufsize, &count, &buflen, bp, 0) != NULL) {
if (buf[0] == '\n')
break;
if ((cp = thisfield(buf, "content-transfer-encoding")) != NULL)
if (ascncasecmp(cp, "binary", 7) == 0)
binary = 1;
}
while (fgetline(&buf, &bufsize, &count, &buflen, bp, 0) != NULL) {
if (binary)
NSS_CMSDecoder_Update(ctx, buf, buflen);
else {
in.s = buf;
in.l = buflen;
mime_fromb64_b(&in, &out, 0, bp);
NSS_CMSDecoder_Update(ctx, out.s, out.l);
free(out.s);
}
}
free(buf);
if ((msg = NSS_CMSDecoder_Finish(ctx)) == NULL) {
fprintf(stderr, "Failed to decode message.\n");
Fclose(hp);
Fclose(bp);
return NULL;
}
nlevels = NSS_CMSMessage_ContentLevelCount(msg);
for (i = 0; i < nlevels; i++) {
NSSCMSContentInfo *content;
SECOidTag tag;
content = NSS_CMSMessage_ContentLevel(msg, i);
tag = NSS_CMSContentInfo_GetContentTypeTag(content);
if (tag == SEC_OID_PKCS7_DATA) {
const char *fld = "X-Encryption-Cipher";
SECOidTag alg;
int keysize;
alg = NSS_CMSContentInfo_GetContentEncAlgTag(content);
keysize = NSS_CMSContentInfo_GetBulkKeySize(content);
fseek(hp, 0L, SEEK_END);
switch (alg) {
case 0:
if (signcall) {
NSS_CMSMessage_Destroy(msg);
Fclose(hp);
Fclose(bp);
setinput(&mb, m, NEED_BODY);
return (struct message *)-1;
}
fprintf(hp, "%s: none\n", fld);
break;
case SEC_OID_RC2_CBC:
fprintf(hp, "%s: RC2, %d bits\n", fld, keysize);
break;
case SEC_OID_DES_CBC:
fprintf(hp, "%s: DES, 56 bits\n", fld);
break;
case SEC_OID_DES_EDE3_CBC:
fprintf(hp, "%s: 3DES, 112/168 bits\n", fld);
break;
case SEC_OID_FORTEZZA_SKIPJACK:
fprintf(hp, "%s: Fortezza\n", fld);
break;
default:
fprintf(hp, "%s: unknown type %lu\n", fld,
(unsigned long)alg);
}
fflush(hp);
rewind(hp);
}
}
NSS_CMSMessage_Destroy(msg);
fflush(op);
rewind(op);
Fclose(bp);
return smime_decrypt_assemble(m, hp, op);
}
static enum okay
getdig(struct message *m, int n, SECItem ***digests,
PLArenaPool **poolp, SECAlgorithmID **algids)
{
char *ct, *pt, *boundary;
char *buf = NULL;
size_t bufsize = 0, buflen, count, boundlen;
int part;
int nl;
FILE *fp;
NSSCMSDigestContext *digctx;
*poolp = PORT_NewArena(1024);
if ((ct = hfield("content-type", m)) == NULL ||
strncmp(ct, "multipart/signed", 16) ||
(pt = mime_getparam("protocol", ct)) == NULL ||
strcmp(pt, "application/x-pkcs7-signature") &&
strcmp(pt, "application/pkcs7-signature") ||
(boundary = mime_getboundary(ct)) == NULL) {
fprintf(stderr,
"Message %d is not an S/MIME signed message.\n", n);
return STOP;
}
boundlen = strlen(boundary);
if ((digctx = NSS_CMSDigestContext_StartMultiple(algids)) == NULL) {
fprintf(stderr, "Cannot start digest computation.\n");
return STOP;
}
if ((fp = setinput(&mb, m, NEED_BODY)) == NULL) {
return STOP;
}
count = m->m_size;
part = 0;
nl = 0;
while (fgetline(&buf, &bufsize, &count, &buflen, fp, 0) != NULL) {
if (buflen >= boundlen + 1 &&
strncmp(buf, boundary, boundlen) == 0) {
if (buf[boundlen] == '\n') {
if (++part >= 2)
break;
continue;
}
if (buf[boundlen] == '-' && buf[boundlen+1] == '-' &&
buf[boundlen+2] == '\n')
break;
}
if (part == 1) {
if (nl) {
NSS_CMSDigestContext_Update(digctx,
(unsigned char *)"\r\n", 2);
nl = 0;
}
if (buf[buflen-1] == '\n') {
nl = 1;
buflen--;
}
NSS_CMSDigestContext_Update(digctx,
(unsigned char *)buf, buflen);
continue;
}
}
free(buf);
if (NSS_CMSDigestContext_FinishMultiple(digctx,
*poolp, digests) != SECSuccess) {
fprintf(stderr, "Error creating digest for message %d\n", n);
return STOP;
}
return OKAY;
}
int
main(int argc, char *argv[])
{
int ch;
ino_t ino;
char *inputdev;
char *symtbl = "./restoresymtable";
char *p, name[MAXPATHLEN];
/* Temp files should *not* be readable. We set permissions later. */
(void) umask(077);
if (argc < 2)
usage();
(void)setlocale(LC_ALL, "");
inputdev = NULL;
obsolete(&argc, &argv);
while ((ch = getopt(argc, argv, "b:dDf:himNP:Rrs:tuvxy")) != -1)
switch(ch) {
case 'b':
/* Change default tape blocksize. */
bflag = 1;
ntrec = strtol(optarg, &p, 10);
if (*p)
errx(1, "illegal blocksize -- %s", optarg);
if (ntrec <= 0)
errx(1, "block size must be greater than 0");
break;
case 'd':
dflag = 1;
break;
case 'D':
Dflag = 1;
break;
case 'f':
if (pipecmd)
errx(1,
"-P and -f options are mutually exclusive");
inputdev = optarg;
break;
case 'P':
if (!pipecmd && inputdev)
errx(1,
"-P and -f options are mutually exclusive");
inputdev = optarg;
pipecmd = 1;
break;
case 'h':
hflag = 0;
break;
case 'i':
case 'R':
case 'r':
case 't':
case 'x':
if (command != '\0')
errx(1,
"%c and %c options are mutually exclusive",
ch, command);
command = ch;
break;
case 'm':
mflag = 0;
break;
case 'N':
Nflag = 1;
break;
case 's':
/* Dumpnum (skip to) for multifile dump tapes. */
dumpnum = strtol(optarg, &p, 10);
if (*p)
errx(1, "illegal dump number -- %s", optarg);
if (dumpnum <= 0)
errx(1, "dump number must be greater than 0");
break;
case 'u':
uflag = 1;
break;
case 'v':
vflag = 1;
break;
case 'y':
yflag = 1;
break;
default:
usage();
}
argc -= optind;
argv += optind;
if (command == '\0')
errx(1, "none of i, R, r, t or x options specified");
if (signal(SIGINT, onintr) == SIG_IGN)
(void) signal(SIGINT, SIG_IGN);
if (signal(SIGTERM, onintr) == SIG_IGN)
(void) signal(SIGTERM, SIG_IGN);
setlinebuf(stderr);
if (inputdev == NULL && (inputdev = getenv("TAPE")) == NULL)
inputdev = _PATH_DEFTAPE;
setinput(inputdev, pipecmd);
if (argc == 0) {
argc = 1;
*--argv = ".";
}
switch (command) {
/*
* Interactive mode.
*/
case 'i':
setup();
extractdirs(1);
initsymtable(NULL);
runcmdshell();
break;
/*
* Incremental restoration of a file system.
*/
case 'r':
setup();
if (dumptime > 0) {
/*
* This is an incremental dump tape.
*/
vprintf(stdout, "Begin incremental restore\n");
initsymtable(symtbl);
extractdirs(1);
removeoldleaves();
vprintf(stdout, "Calculate node updates.\n");
treescan(".", ROOTINO, nodeupdates);
findunreflinks();
removeoldnodes();
} else {
/*
* This is a level zero dump tape.
*/
vprintf(stdout, "Begin level 0 restore\n");
initsymtable((char *)0);
extractdirs(1);
vprintf(stdout, "Calculate extraction list.\n");
treescan(".", ROOTINO, nodeupdates);
}
createleaves(symtbl);
createlinks();
setdirmodes(FORCE);
checkrestore();
if (dflag) {
vprintf(stdout, "Verify the directory structure\n");
treescan(".", ROOTINO, verifyfile);
}
dumpsymtable(symtbl, (long)1);
break;
/*
* Resume an incremental file system restoration.
*/
case 'R':
initsymtable(symtbl);
skipmaps();
skipdirs();
createleaves(symtbl);
createlinks();
setdirmodes(FORCE);
checkrestore();
dumpsymtable(symtbl, (long)1);
break;
/*
* List contents of tape.
*/
case 't':
setup();
extractdirs(0);
initsymtable((char *)0);
while (argc--) {
canon(*argv++, name, sizeof(name));
ino = dirlookup(name);
if (ino == 0)
continue;
treescan(name, ino, listfile);
}
break;
/*
* Batch extraction of tape contents.
*/
case 'x':
setup();
extractdirs(1);
initsymtable((char *)0);
while (argc--) {
canon(*argv++, name, sizeof(name));
ino = dirlookup(name);
if (ino == 0)
continue;
if (mflag)
pathcheck(name);
treescan(name, ino, addfile);
}
createfiles();
createlinks();
setdirmodes(0);
if (dflag)
checkrestore();
break;
}
done(0);
/* NOTREACHED */
}
/*
* Send message described by the passed pointer to the
* passed output buffer. Return -1 on error, but normally
* the number of lines written. Adjust the status: field
* if need be. If doign is set, suppress ignored header fields.
* Call (*fp)(line, obuf) to print the line.
*/
long
msend(
struct message *mailp,
FILE *obuf,
int flag,
int (*fp)(const char *, FILE *))
{
register struct message *mp;
long clen, n, c;
FILE *ibuf;
char line[LINESIZE], field[BUFSIZ];
int ishead, infld, fline, dostat, doclen, nread, unused;
char *cp, *cp2;
int doign = flag & M_IGNORE;
int oldign = 0; /* previous line was ignored */
long lc;
mp = mailp;
if (mp->m_clen == 0)
setclen(mp);
ibuf = setinput(mp);
c = mp->m_size;
ishead = 1;
dostat = 1;
doclen = 1;
infld = 0;
fline = 1;
lc = 0;
clearerr(obuf);
while (c > 0L) {
nread = getaline(line, LINESIZE, ibuf, &unused);
c -= nread;
lc++;
if (ishead) {
/*
* First line is the From line, so no headers
* there to worry about
*/
if (fline) {
fline = 0;
goto writeit;
}
/*
* If line is blank, we've reached end of
* headers, so force out status: field
* and note that we are no longer in header
* fields. Also force out Content-Length: field.
*/
if (line[0] == '\n') {
if (dostat) {
statusput(mailp, obuf, doign, fp);
dostat = 0;
}
if (doclen &&
!isign("content-length", flag&M_SAVING)) {
snprintf(field, sizeof (field),
"Content-Length: %ld\n",
mp->m_clen - 1);
(*fp)(field, obuf);
if (ferror(obuf))
return(-1);
doclen = 0;
}
ishead = 0;
goto writeit;
}
/*
* If this line is a continuation
* of a previous header field, just echo it.
*/
if (isspace(line[0]) && infld)
if (oldign)
continue;
else
goto writeit;
infld = 0;
/*
* If we are no longer looking at real
* header lines, force out status:
* This happens in uucp style mail where
* there are no headers at all.
*/
if (!headerp(line)) {
if (dostat) {
statusput(mailp, obuf, doign, fp);
dostat = 0;
}
(*fp)("\n", obuf);
ishead = 0;
goto writeit;
}
infld++;
/*
* Pick up the header field.
* If it is an ignored field and
* we care about such things, skip it.
*/
cp = line;
cp2 = field;
while (*cp && *cp != ':' && !isspace(*cp))
*cp2++ = *cp++;
*cp2 = 0;
oldign = doign && isign(field, flag&M_SAVING);
if (oldign)
continue;
/*
* If the field is "status," go compute and print the
* real Status: field
*/
if (icequal(field, "status")) {
if (dostat) {
statusput(mailp, obuf, doign, fp);
dostat = 0;
}
continue;
}
if (icequal(field, "content-length")) {
if (doclen) {
snprintf(line, sizeof (line),
"Content-Length: %ld\n",
mp->m_clen - 1);
(*fp)(line, obuf);
if (ferror(obuf))
return(-1);
doclen = 0;
}
continue;
}
}
writeit:
if (!ishead && !mp->m_text && mp->m_clen != 0) {
if (line[0] == '\n')
putc('\n', obuf);
clen = mp->m_clen-1;
for (;;) {
n = clen < sizeof line ? clen : sizeof line;
if ((n = fread(line, 1, (int)n, ibuf)) <= 0) {
fprintf(stderr, gettext(
"\t(Unexpected end-of-file).\n"));
clen = 0;
} else {
if (fwrite(line, 1, (int)n, obuf) != n) {
fprintf(stderr, gettext(
"\tError writing to the new file.\n"));
fflush(obuf);
if (fferror(obuf))
return (-1);
}
}
clen -= n;
if (clen <= 0) {
break;
}
}
c = 0L;
} else {
(*fp)(line, obuf);
if (ferror(obuf))
return(-1);
}
}
fflush(obuf);
if (ferror(obuf))
return(-1);
if (ishead && (mailp->m_flag & MSTATUS))
printf(gettext("failed to fix up status field\n"));
return(lc);
}
static void
hprf(const char *fmt, int mesg, FILE *f, int threaded, const char *attrlist)
{
struct message *mp = &message[mesg-1];
char *headline = NULL, *subjline, *name, *cp, *pbuf = NULL;
struct headline hl;
size_t headsize = 0;
const char *fp;
int B, c, i, n, s;
int headlen = 0;
struct str in, out;
int subjlen = scrnwidth, fromlen, isto = 0, isaddr = 0;
FILE *ibuf;
if ((mp->m_flag & MNOFROM) == 0) {
if ((ibuf = setinput(&mb, mp, NEED_HEADER)) == NULL)
return;
if ((headlen = readline(ibuf, &headline, &headsize)) < 0)
return;
}
if ((subjline = hfield("subject", mp)) == NULL)
subjline = hfield("subj", mp);
if (subjline == NULL) {
out.s = NULL;
out.l = 0;
} else {
in.s = subjline;
in.l = strlen(subjline);
mime_fromhdr(&in, &out, TD_ICONV | TD_ISPR);
subjline = out.s;
}
if ((mp->m_flag & MNOFROM) == 0) {
pbuf = ac_alloc(headlen + 1);
parse(headline, headlen, &hl, pbuf);
} else {
hl.l_from = /*fakefrom(mp);*/NULL;
hl.l_tty = NULL;
hl.l_date = fakedate(mp->m_time);
}
if (value("datefield") && (cp = hfield("date", mp)) != NULL)
hl.l_date = fakedate(rfctime(cp));
if (Iflag) {
if ((name = hfield("newsgroups", mp)) == NULL)
if ((name = hfield("article-id", mp)) == NULL)
name = "<>";
name = prstr(name);
} else if (value("show-rcpt") == NULL) {
name = name1(mp, 0);
isaddr = 1;
if (value("showto") && name && is_myname(skin(name))) {
if ((cp = hfield("to", mp)) != NULL) {
name = cp;
isto = 1;
}
}
} else {
isaddr = 1;
if ((name = hfield("to", mp)) != NULL)
isto = 1;
}
if (name == NULL) {
name = "";
isaddr = 0;
}
if (isaddr) {
if (value("showname"))
name = realname(name);
else {
name = prstr(skin(name));
}
}
for (fp = fmt; *fp; fp++) {
if (*fp == '%') {
if (*++fp == '-') {
fp++;
} else if (*fp == '+')
fp++;
while (digitchar(*fp&0377))
fp++;
if (*fp == '\0')
break;
} else {
#if defined (HAVE_MBTOWC) && defined (HAVE_WCWIDTH)
if (mb_cur_max > 1) {
wchar_t wc;
if ((s = mbtowc(&wc, fp, mb_cur_max)) < 0)
n = s = 1;
else {
if ((n = wcwidth(wc)) < 0)
n = 1;
}
} else
#endif /* HAVE_MBTOWC && HAVE_WCWIDTH */
{
n = s = 1;
}
subjlen -= n;
while (--s > 0)
fp++;
}
}
for (fp = fmt; *fp; fp++) {
if (*fp == '%') {
B = 0;
n = 0;
s = 1;
if (*++fp == '-') {
s = -1;
fp++;
} else if (*fp == '+')
fp++;
if (digitchar(*fp&0377)) {
do
n = 10*n + *fp - '0';
while (fp++, digitchar(*fp&0377));
}
if (*fp == '\0')
break;
n *= s;
switch (*fp) {
case '%':
putc('%', f);
subjlen--;
break;
case '>':
case '<':
c = dot == mp ? *fp&0377 : ' ';
putc(c, f);
subjlen--;
break;
case 'a':
c = dispc(mp, attrlist);
putc(c, f);
subjlen--;
break;
case 'm':
if (n == 0) {
n = 3;
if (threaded)
for (i=msgCount; i>999; i/=10)
n++;
}
subjlen -= fprintf(f, "%*d", n, mesg);
break;
case 'f':
if (n <= 0)
n = 18;
fromlen = n;
if (isto)
fromlen -= 3;
fprintf(f, "%s%s", isto ? "To " : "",
colalign(name, fromlen, 1));
subjlen -= n;
break;
case 'd':
if (n <= 0)
n = 16;
subjlen -= fprintf(f, "%*.*s", n, n, hl.l_date);
break;
case 'l':
if (n == 0)
n = 4;
if (mp->m_xlines)
subjlen -= fprintf(f, "%*ld", n,
mp->m_xlines);
else {
subjlen -= n;
while (n--)
putc(' ', f);
}
break;
case 'o':
if (n == 0)
n = -5;
subjlen -= fprintf(f, "%*lu", n,
(long)mp->m_xsize);
break;
case 'i':
if (threaded)
subjlen -= putindent(f, mp,
scrnwidth - 60);
break;
case 'S':
B = 1;
/*FALLTHRU*/
case 's':
n = n>0 ? n : subjlen - 2;
if (B)
n -= 2;
if (subjline != NULL && n >= 0) {
/* pretty pathetic */
fprintf(f, B ? "\"%s\"" : "%s",
colalign(subjline, n, 0));
}
break;
case 'U':
if (n == 0)
n = 9;
subjlen -= fprintf(f, "%*lu", n, mp->m_uid);
break;
case 'e':
if (n == 0)
n = 2;
subjlen -= fprintf(f, "%*u", n, threaded == 1 ?
mp->m_level : 0);
break;
case 't':
if (n == 0) {
n = 3;
if (threaded)
for (i=msgCount; i>999; i/=10)
n++;
}
fprintf(f, "%*ld", n, threaded ?
mp->m_threadpos : mesg);
subjlen -= n;
break;
case 'c':
if (n == 0)
n = 6;
subjlen -= fprintf(f, "%*g", n, mp->m_score);
break;
}
} else
putc(*fp&0377, f);
}
putc('\n', f);
if (out.s)
free(out.s);
if (headline)
free(headline);
if (pbuf)
ac_free(pbuf);
}
/*
* Send message described by the passed pointer to the
* passed output buffer. Return -1 on error.
* Adjust the status: field if need be.
* If doign is given, suppress ignored header fields.
* prefix is a string to prepend to each output line.
*/
int
sendmessage(struct message *mp, FILE *obuf, struct ignoretab *doign,
char *prefix)
{
int count;
FILE *ibuf;
char line[LINESIZE];
char visline[4 * LINESIZE - 3];
int ishead, infld, ignoring = 0, dostat, firstline;
char *cp, *cp2;
int c = 0;
int length;
int prefixlen = 0;
int rval;
int dovis;
struct sigaction act, saveint;
sigset_t oset;
sendsignal = 0;
rval = -1;
dovis = isatty(fileno(obuf));
sigemptyset(&act.sa_mask);
act.sa_flags = SA_RESTART;
act.sa_handler = sendint;
(void)sigaction(SIGINT, &act, &saveint);
(void)sigprocmask(SIG_UNBLOCK, &intset, &oset);
/*
* Compute the prefix string, without trailing whitespace
*/
if (prefix != NULL) {
cp2 = 0;
for (cp = prefix; *cp; cp++)
if (*cp != ' ' && *cp != '\t')
cp2 = cp;
prefixlen = cp2 == 0 ? 0 : cp2 - prefix + 1;
}
ibuf = setinput(mp);
count = mp->m_size;
ishead = 1;
dostat = doign == 0 || !isign("status", doign);
infld = 0;
firstline = 1;
/*
* Process headers first
*/
while (count > 0 && ishead) {
if (fgets(line, sizeof(line), ibuf) == NULL)
break;
count -= length = strlen(line);
if (firstline) {
/*
* First line is the From line, so no headers
* there to worry about
*/
firstline = 0;
ignoring = doign == ignoreall;
} else if (line[0] == '\n') {
/*
* If line is blank, we've reached end of
* headers, so force out status: field
* and note that we are no longer in header
* fields
*/
if (dostat) {
if (statusput(mp, obuf, prefix) == -1)
goto out;
dostat = 0;
}
ishead = 0;
ignoring = doign == ignoreall;
} else if (infld && (line[0] == ' ' || line[0] == '\t')) {
/*
* If this line is a continuation (via space or tab)
* of a previous header field, just echo it
* (unless the field should be ignored).
* In other words, nothing to do.
*/
} else {
/*
* Pick up the header field if we have one.
*/
for (cp = line; (c = *cp++) && c != ':' && !isspace(c);)
;
cp2 = --cp;
while (isspace(*cp++))
;
if (cp[-1] != ':') {
/*
* Not a header line, force out status:
* This happens in uucp style mail where
* there are no headers at all.
*/
if (dostat) {
if (statusput(mp, obuf, prefix) == -1)
goto out;
dostat = 0;
}
if (doign != ignoreall)
/* add blank line */
(void)putc('\n', obuf);
ishead = 0;
ignoring = 0;
} else {
/*
* If it is an ignored field and
* we care about such things, skip it.
*/
*cp2 = 0; /* temporarily null terminate */
if (doign && isign(line, doign))
ignoring = 1;
else if (strcasecmp(line, "status") == 0) {
/*
* If the field is "status," go compute
* and print the real Status: field
*/
if (dostat) {
if (statusput(mp, obuf, prefix) == -1)
goto out;
dostat = 0;
}
ignoring = 1;
} else {
ignoring = 0;
*cp2 = c; /* restore */
}
infld = 1;
}
}
if (!ignoring) {
/*
* Strip trailing whitespace from prefix
* if line is blank.
*/
if (prefix != NULL) {
if (length > 1)
fputs(prefix, obuf);
else
(void)fwrite(prefix, sizeof(*prefix),
prefixlen, obuf);
}
if (dovis) {
length = strvis(visline, line, VIS_SAFE|VIS_NOSLASH);
(void)fwrite(visline, sizeof(*visline), length, obuf);
} else
(void)fwrite(line, sizeof(*line), length, obuf);
if (ferror(obuf))
goto out;
}
if (sendsignal == SIGINT)
goto out;
}
/*
* Copy out message body
*/
if (doign == ignoreall)
count--; /* skip final blank line */
while (count > 0) {
if (fgets(line, sizeof(line), ibuf) == NULL) {
c = 0;
break;
}
count -= c = strlen(line);
if (prefix != NULL) {
/*
* Strip trailing whitespace from prefix
* if line is blank.
*/
if (c > 1)
fputs(prefix, obuf);
else
(void)fwrite(prefix, sizeof(*prefix),
prefixlen, obuf);
}
/*
* We can't read the record file (or inbox for recipient)
* properly with 'From ' lines in the message body (from
* forwarded messages or sentences starting with "From "),
* so we will prepend those lines with a '>'.
*/
if (strncmp(line, "From ", 5) == 0)
(void)fwrite(">", 1, 1, obuf); /* '>' before 'From ' */
if (dovis) {
length = strvis(visline, line, VIS_SAFE|VIS_NOSLASH);
(void)fwrite(visline, sizeof(*visline), length, obuf);
} else
(void)fwrite(line, sizeof(*line), c, obuf);
if (ferror(obuf) || sendsignal == SIGINT)
goto out;
}
if (doign == ignoreall && c > 0 && line[c - 1] != '\n')
/* no final blank line */
if ((c = getc(ibuf)) != EOF && putc(c, obuf) == EOF)
goto out;
rval = 0;
out:
sendsignal = 0;
(void)sigprocmask(SIG_SETMASK, &oset, NULL);
(void)sigaction(SIGINT, &saveint, NULL);
return(rval);
}
/*
* Send message described by the passed pointer to the
* passed output buffer. Return -1 on error.
* Adjust the status: field if need be.
* If doign is given, suppress ignored header fields.
* prefix is a string to prepend to each output line.
*/
int
sendmessage(struct message *mp, FILE *obuf, struct ignoretab *doign,
char *prefix)
{
long count;
FILE *ibuf;
char *cp, *cp2, line[LINESIZE];
int ishead, infld, ignoring, dostat, firstline;
int c = 0, length, prefixlen;
/*
* Compute the prefix string, without trailing whitespace
*/
if (prefix != NULL) {
cp2 = 0;
for (cp = prefix; *cp != '\0'; cp++)
if (*cp != ' ' && *cp != '\t')
cp2 = cp;
prefixlen = cp2 == NULL ? 0 : cp2 - prefix + 1;
}
ibuf = setinput(mp);
count = mp->m_size;
ishead = 1;
dostat = doign == 0 || !isign("status", doign);
infld = 0;
firstline = 1;
/*
* Process headers first
*/
while (count > 0 && ishead) {
if (fgets(line, sizeof(line), ibuf) == NULL)
break;
count -= length = strlen(line);
if (firstline) {
/*
* First line is the From line, so no headers
* there to worry about
*/
firstline = 0;
ignoring = doign == ignoreall;
} else if (line[0] == '\n') {
/*
* If line is blank, we've reached end of
* headers, so force out status: field
* and note that we are no longer in header
* fields
*/
if (dostat) {
statusput(mp, obuf, prefix);
dostat = 0;
}
ishead = 0;
ignoring = doign == ignoreall;
} else if (infld && (line[0] == ' ' || line[0] == '\t')) {
/*
* If this line is a continuation (via space or tab)
* of a previous header field, just echo it
* (unless the field should be ignored).
* In other words, nothing to do.
*/
} else {
/*
* Pick up the header field if we have one.
*/
for (cp = line; (c = *cp++) != '\0' && c != ':' &&
!isspace((unsigned char)c);)
;
cp2 = --cp;
while (isspace((unsigned char)*cp++))
;
if (cp[-1] != ':') {
/*
* Not a header line, force out status:
* This happens in uucp style mail where
* there are no headers at all.
*/
if (dostat) {
statusput(mp, obuf, prefix);
dostat = 0;
}
if (doign != ignoreall)
/* add blank line */
(void)putc('\n', obuf);
ishead = 0;
ignoring = 0;
} else {
/*
* If it is an ignored field and
* we care about such things, skip it.
*/
*cp2 = '\0'; /* temporarily null terminate */
if (doign && isign(line, doign))
ignoring = 1;
else if ((line[0] == 's' || line[0] == 'S') &&
strcasecmp(line, "status") == 0) {
/*
* If the field is "status," go compute
* and print the real Status: field
*/
if (dostat) {
statusput(mp, obuf, prefix);
dostat = 0;
}
ignoring = 1;
} else {
ignoring = 0;
*cp2 = c; /* restore */
}
infld = 1;
}
}
if (!ignoring) {
/*
* Strip trailing whitespace from prefix
* if line is blank.
*/
if (prefix != NULL) {
if (length > 1)
fputs(prefix, obuf);
else
(void)fwrite(prefix, sizeof(*prefix),
prefixlen, obuf);
}
(void)fwrite(line, sizeof(*line), length, obuf);
if (ferror(obuf))
return (-1);
}
}
/*
* Copy out message body
*/
if (doign == ignoreall)
count--; /* skip final blank line */
if (prefix != NULL)
while (count > 0) {
if (fgets(line, sizeof(line), ibuf) == NULL) {
c = 0;
break;
}
count -= c = strlen(line);
/*
* Strip trailing whitespace from prefix
* if line is blank.
*/
if (c > 1)
fputs(prefix, obuf);
else
(void)fwrite(prefix, sizeof(*prefix),
prefixlen, obuf);
(void)fwrite(line, sizeof(*line), c, obuf);
if (ferror(obuf))
return (-1);
}
else
while (count > 0) {
c = count < LINESIZE ? count : LINESIZE;
if ((c = fread(line, sizeof(*line), c, ibuf)) <= 0)
break;
count -= c;
if (fwrite(line, sizeof(*line), c, obuf) != c)
return (-1);
}
if (doign == ignoreall && c > 0 && line[c - 1] != '\n')
/* no final blank line */
if ((c = getc(ibuf)) != EOF && putc(c, obuf) == EOF)
return (-1);
return (0);
}
/*jpeg decode
* args:
* pic: pointer to picture data ( decoded image - yuyv format)
* buf: pointer to input data ( compressed jpeg )
* with: picture width
* height: picture height
*/
int jpeg_decode(uint8_t *pic, int stride, uint8_t *buf, int width, int height)
{
struct ctx ctx;
struct jpeg_decdata *decdata;
int i=0, j=0, m=0, tac=0, tdc=0;
int intwidth=0, intheight=0;
int mcusx=0, mcusy=0, mx=0, my=0;
int ypitch=0 ,xpitch=0,x=0,y=0;
int mb=0;
int max[6];
ftopict convert;
int err = 0;
int isInitHuffman = 0;
decdata = (struct jpeg_decdata*) calloc(1, sizeof(struct jpeg_decdata));
for(i=0;i<6;i++)
max[i]=0;
if (!decdata)
{
err = -1;
goto error;
}
if (buf == NULL)
{
err = -1;
goto error;
}
ctx.datap = buf;
/*check SOI (0xFFD8)*/
if (getbyte(&ctx) != 0xff)
{
err = ERR_NO_SOI;
goto error;
}
if (getbyte(&ctx) != M_SOI)
{
err = ERR_NO_SOI;
goto error;
}
/*read tables - if exist, up to start frame marker (0xFFC0)*/
if (readtables(&ctx,M_SOF0, &isInitHuffman))
{
err = ERR_BAD_TABLES;
goto error;
}
getword(&ctx); /*header lenght*/
i = getbyte(&ctx); /*precision (8 bit)*/
if (i != 8)
{
err = ERR_NOT_8BIT;
goto error;
}
intheight = getword(&ctx); /*height*/
intwidth = getword(&ctx); /*width */
if ((intheight & 7) || (intwidth & 7)) /*must be even*/
{
err = ERR_BAD_WIDTH_OR_HEIGHT;
goto error;
}
ctx.info.nc = getbyte(&ctx); /*number of components*/
if (ctx.info.nc > MAXCOMP)
{
err = ERR_TOO_MANY_COMPPS;
goto error;
}
/*for each component*/
for (i = 0; i < ctx.info.nc; i++)
{
int h, v;
ctx.comps[i].cid = getbyte(&ctx); /*component id*/
ctx.comps[i].hv = getbyte(&ctx);
v = ctx.comps[i].hv & 15; /*vertical sampling */
h = ctx.comps[i].hv >> 4; /*horizontal sampling */
ctx.comps[i].tq = getbyte(&ctx); /*quantization table used*/
if (h > 3 || v > 3)
{
err = ERR_ILLEGAL_HV;
goto error;
}
if (ctx.comps[i].tq > 3)
{
err = ERR_QUANT_TABLE_SELECTOR;
goto error;
}
}
/*read tables - if exist, up to start of scan marker (0xFFDA)*/
if (readtables(&ctx,M_SOS,&isInitHuffman))
{
err = ERR_BAD_TABLES;
goto error;
}
getword(&ctx); /* header lenght */
ctx.info.ns = getbyte(&ctx); /* number of scans */
if (!ctx.info.ns)
{
ALOGE("info ns %d/n",ctx.info.ns);
err = ERR_NOT_YCBCR_221111;
goto error;
}
/*for each scan*/
for (i = 0; i < ctx.info.ns; i++)
{
ctx.dscans[i].cid = getbyte(&ctx); /*component id*/
tdc = getbyte(&ctx);
tac = tdc & 15; /*ac table*/
tdc >>= 4; /*dc table*/
if (tdc > 1 || tac > 1)
{
err = ERR_QUANT_TABLE_SELECTOR;
goto error;
}
for (j = 0; j < ctx.info.nc; j++)
if (ctx.comps[j].cid == ctx.dscans[i].cid)
break;
if (j == ctx.info.nc)
{
err = ERR_UNKNOWN_CID_IN_SCAN;
goto error;
}
ctx.dscans[i].hv = ctx.comps[j].hv;
ctx.dscans[i].tq = ctx.comps[j].tq;
ctx.dscans[i].hudc.dhuff = dec_huffdc + tdc;
ctx.dscans[i].huac.dhuff = dec_huffac + tac;
}
i = getbyte(&ctx); /*0 */
j = getbyte(&ctx); /*63*/
m = getbyte(&ctx); /*0 */
if (i != 0 || j != 63 || m != 0)
{
ALOGE("hmm FW error,not seq DCT ??\n");
}
/*build huffman tables*/
if(!isInitHuffman)
{
if(huffman_init(&ctx) < 0)
return -ERR_BAD_TABLES;
}
/*
if (ctx->dscans[0].cid != 1 || ctx->dscans[1].cid != 2 || ctx->dscans[2].cid != 3)
{
err = ERR_NOT_YCBCR_221111;
goto error;
}
if (ctx->dscans[1].hv != 0x11 || ctx->dscans[2].hv != 0x11)
{
err = ERR_NOT_YCBCR_221111;
goto error;
}
*/
/* if internal width and external are not the same or heigth too
and pic not allocated realloc the good size and mark the change
need 1 macroblock line more ?? */
if (intwidth > width || intheight > height)
{
return -ERR_BAD_WIDTH_OR_HEIGHT;
#if 0
width = intwidth;
height = intheight;
// BytesperPixel 2 yuyv , 3 rgb24
*pic = (uint8_t*) realloc( *pic, intwidth * (intheight + 8) * 2);
#endif
}
switch (ctx.dscans[0].hv)
{
case 0x22: // 411
mb=6;
mcusx = width >> 4;
mcusy = height >> 4;
xpitch = 16 * 2;
ypitch = 16 * stride;
convert = yuv420pto422; //choose the right conversion function
break;
case 0x21: //422
mb=4;
mcusx = width >> 4;
mcusy = height >> 3;
xpitch = 16 * 2;
ypitch = 8 * stride;
convert = yuv422pto422; //choose the right conversion function
break;
case 0x11: //444
mcusx = width >> 3;
mcusy = height >> 3;
xpitch = 8 * 2;
ypitch = 8 * stride;
if (ctx.info.ns==1)
{
mb = 1;
convert = yuv400pto422; //choose the right conversion function
}
else
{
mb=3;
convert = yuv444pto422; //choose the right conversion function
}
break;
default:
err = ERR_NOT_YCBCR_221111;
goto error;
break;
}
idctqtab(ctx.quant[ctx.dscans[0].tq], decdata->dquant[0]);
idctqtab(ctx.quant[ctx.dscans[1].tq], decdata->dquant[1]);
idctqtab(ctx.quant[ctx.dscans[2].tq], decdata->dquant[2]);
setinput(&ctx.in, ctx.datap);
dec_initscans(&ctx);
ctx.dscans[0].next = 2;
ctx.dscans[1].next = 1;
ctx.dscans[2].next = 0; /* 4xx encoding */
for (my = 0,y=0; my < mcusy; my++,y+=ypitch)
{
for (mx = 0,x=0; mx < mcusx; mx++,x+=xpitch)
{
if (ctx.info.dri && !--ctx.info.nm)
if (dec_checkmarker(&ctx))
{
err = ERR_WRONG_MARKER;
goto error;
}
switch (mb)
{
case 6:
decode_mcus(&ctx.in, decdata->dcts, mb, ctx.dscans, max);
idct(decdata->dcts, decdata->out, decdata->dquant[0],
IFIX(128.5), max[0]);
idct(decdata->dcts + 64, decdata->out + 64,
decdata->dquant[0], IFIX(128.5), max[1]);
idct(decdata->dcts + 128, decdata->out + 128,
decdata->dquant[0], IFIX(128.5), max[2]);
idct(decdata->dcts + 192, decdata->out + 192,
decdata->dquant[0], IFIX(128.5), max[3]);
idct(decdata->dcts + 256, decdata->out + 256,
decdata->dquant[1], IFIX(0.5), max[4]);
idct(decdata->dcts + 320, decdata->out + 320,
decdata->dquant[2], IFIX(0.5), max[5]);
break;
case 4:
decode_mcus(&ctx.in, decdata->dcts, mb, ctx.dscans, max);
idct(decdata->dcts, decdata->out, decdata->dquant[0],
IFIX(128.5), max[0]);
idct(decdata->dcts + 64, decdata->out + 64,
decdata->dquant[0], IFIX(128.5), max[1]);
idct(decdata->dcts + 128, decdata->out + 256,
decdata->dquant[1], IFIX(0.5), max[4]);
idct(decdata->dcts + 192, decdata->out + 320,
decdata->dquant[2], IFIX(0.5), max[5]);
break;
case 3:
decode_mcus(&ctx.in, decdata->dcts, mb, ctx.dscans, max);
idct(decdata->dcts, decdata->out, decdata->dquant[0],
IFIX(128.5), max[0]);
idct(decdata->dcts + 64, decdata->out + 256,
decdata->dquant[1], IFIX(0.5), max[4]);
idct(decdata->dcts + 128, decdata->out + 320,
decdata->dquant[2], IFIX(0.5), max[5]);
break;
case 1:
decode_mcus(&ctx.in, decdata->dcts, mb, ctx.dscans, max);
idct(decdata->dcts, decdata->out, decdata->dquant[0],
IFIX(128.5), max[0]);
break;
} // switch enc411
convert(decdata->out,pic+y+x,stride); //convert to 422
}
}
m = dec_readmarker(&ctx.in);
if (m != M_EOI)
{
err = ERR_NO_EOI;
goto error;
}
free(decdata);
return 0;
error:
free(decdata);
return err;
}
