Source Code 1994 March/Source_Code_CD-ROM_Walnut_Creek_March_1994.iso/compsrcs/unix/volume26/byacc19/part02

Text File | 1993-07-04 | 72.6 KB | 4,086 lines

Newsgroups: comp.sources.unix
From: [e-mail] (Roger Corbett)
Subject: v26i290: byacc-1.9 - Berkeley YACC, Part02/03
Sender: [e-mail]
Approved: [e-mail]

Submitted-By: [e-mail] (Roger Corbett)
Posting-Number: Volume 26, Issue 290
Archive-Name: byacc-1.9/part02

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#        "End of archive 2 (of 3)."
# Contents:  output.c test/ftp.output test/ftp.y
# Wrapped by [e-mail] on Mon Jul  5 19:23:04 1993
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'output.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'output.c'\"
else
echo shar: Extracting \"'output.c'\" \(22710 characters\)
sed "s/^X//" >'output.c' <<'END_OF_FILE'
X#include "defs.h"
X
Xstatic int nvectors;
Xstatic int nentries;
Xstatic short **froms;
Xstatic short **tos;
Xstatic short *tally;
Xstatic short *width;
Xstatic short *state_count;
Xstatic short *order;
Xstatic short *base;
Xstatic short *pos;
Xstatic int maxtable;
Xstatic short *table;
Xstatic short *check;
Xstatic int lowzero;
Xstatic int high;
X
X
Xoutput()
X{
X    free_itemsets();
X    free_shifts();
X    free_reductions();
X    output_prefix();
X    output_stored_text();
X    output_defines();
X    output_rule_data();
X    output_yydefred();
X    output_actions();
X    free_parser();
X    output_debug();
X    output_stype();
X    if (rflag) write_section(tables);
X    write_section(header);
X    output_trailing_text();
X    write_section(body);
X    output_semantic_actions();
X    write_section(trailer);
X}
X
X
Xoutput_prefix()
X{
X    if (symbol_prefix == NULL)
X    symbol_prefix = "yy";
X    else
X    {
X    ++outline;
X    fprintf(code_file, "#define yyparse %sparse\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yylex %slex\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yyerror %serror\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yychar %schar\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yyval %sval\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yylval %slval\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yydebug %sdebug\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yynerrs %snerrs\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yyerrflag %serrflag\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yyss %sss\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yyssp %sssp\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yyvs %svs\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yyvsp %svsp\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yylhs %slhs\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yylen %slen\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yydefred %sdefred\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yydgoto %sdgoto\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yysindex %ssindex\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yyrindex %srindex\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yygindex %sgindex\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yytable %stable\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yycheck %scheck\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yyname %sname\n", symbol_prefix);
X    ++outline;
X    fprintf(code_file, "#define yyrule %srule\n", symbol_prefix);
X    }
X    ++outline;
X    fprintf(code_file, "#define YYPREFIX \"%s\"\n", symbol_prefix);
X}
X
X
Xoutput_rule_data()
X{
X    register int i;
X    register int j;
X
X
X    fprintf(output_file, "short %slhs[] = {%42d,", symbol_prefix,
X        symbol_value[start_symbol]);
X
X    j = 10;
X    for (i = 3; i < nrules; i++)
X    {
X    if (j >= 10)
X    {
X        if (!rflag) ++outline;
X        putc('\n', output_file);
X        j = 1;
X    }
X        else
X        ++j;
X
X        fprintf(output_file, "%5d,", symbol_value[rlhs[i]]);
X    }
X    if (!rflag) outline += 2;
X    fprintf(output_file, "\n};\n");
X
X    fprintf(output_file, "short %slen[] = {%42d,", symbol_prefix, 2);
X
X    j = 10;
X    for (i = 3; i < nrules; i++)
X    {
X    if (j >= 10)
X    {
X        if (!rflag) ++outline;
X        putc('\n', output_file);
X        j = 1;
X    }
X    else
X      j++;
X
X        fprintf(output_file, "%5d,", rrhs[i + 1] - rrhs[i] - 1);
X    }
X    if (!rflag) outline += 2;
X    fprintf(output_file, "\n};\n");
X}
X
X
Xoutput_yydefred()
X{
X    register int i, j;
X
X    fprintf(output_file, "short %sdefred[] = {%39d,", symbol_prefix,
X        (defred[0] ? defred[0] - 2 : 0));
X
X    j = 10;
X    for (i = 1; i < nstates; i++)
X    {
X    if (j < 10)
X        ++j;
X    else
X    {
X        if (!rflag) ++outline;
X        putc('\n', output_file);
X        j = 1;
X    }
X
X    fprintf(output_file, "%5d,", (defred[i] ? defred[i] - 2 : 0));
X    }
X
X    if (!rflag) outline += 2;
X    fprintf(output_file, "\n};\n");
X}
X
X
Xoutput_actions()
X{
X    nvectors = 2*nstates + nvars;
X
X    froms = NEW2(nvectors, short *);
X    tos = NEW2(nvectors, short *);
X    tally = NEW2(nvectors, short);
X    width = NEW2(nvectors, short);
X
X    token_actions();
X    FREE(lookaheads);
X    FREE(LA);
X    FREE(LAruleno);
X    FREE(accessing_symbol);
X
X    goto_actions();
X    FREE(goto_map + ntokens);
X    FREE(from_state);
X    FREE(to_state);
X
X    sort_actions();
X    pack_table();
X    output_base();
X    output_table();
X    output_check();
X}
X
X
Xtoken_actions()
X{
X    register int i, j;
X    register int shiftcount, reducecount;
X    register int max, min;
X    register short *actionrow, *r, *s;
X    register action *p;
X
X    actionrow = NEW2(2*ntokens, short);
X    for (i = 0; i < nstates; ++i)
X    {
X    if (parser[i])
X    {
X        for (j = 0; j < 2*ntokens; ++j)
X        actionrow[j] = 0;
X
X        shiftcount = 0;
X        reducecount = 0;
X        for (p = parser[i]; p; p = p->next)
X        {
X        if (p->suppressed == 0)
X        {
X            if (p->action_code == SHIFT)
X            {
X            ++shiftcount;
X            actionrow[p->symbol] = p->number;
X            }
X            else if (p->action_code == REDUCE && p->number != defred[i])
X            {
X            ++reducecount;
X            actionrow[p->symbol + ntokens] = p->number;
X            }
X        }
X        }
X
X        tally[i] = shiftcount;
X        tally[nstates+i] = reducecount;
X        width[i] = 0;
X        width[nstates+i] = 0;
X        if (shiftcount > 0)
X        {
X        froms[i] = r = NEW2(shiftcount, short);
X        tos[i] = s = NEW2(shiftcount, short);
X        min = MAXSHORT;
X        max = 0;
X        for (j = 0; j < ntokens; ++j)
X        {
X            if (actionrow[j])
X            {
X            if (min > symbol_value[j])
X                min = symbol_value[j];
X            if (max < symbol_value[j])
X                max = symbol_value[j];
X            *r++ = symbol_value[j];
X            *s++ = actionrow[j];
X            }
X        }
X        width[i] = max - min + 1;
X        }
X        if (reducecount > 0)
X        {
X        froms[nstates+i] = r = NEW2(reducecount, short);
X        tos[nstates+i] = s = NEW2(reducecount, short);
X        min = MAXSHORT;
X        max = 0;
X        for (j = 0; j < ntokens; ++j)
X        {
X            if (actionrow[ntokens+j])
X            {
X            if (min > symbol_value[j])
X                min = symbol_value[j];
X            if (max < symbol_value[j])
X                max = symbol_value[j];
X            *r++ = symbol_value[j];
X            *s++ = actionrow[ntokens+j] - 2;
X            }
X        }
X        width[nstates+i] = max - min + 1;
X        }
X    }
X    }
X    FREE(actionrow);
X}
X
Xgoto_actions()
X{
X    register int i, j, k;
X
X    state_count = NEW2(nstates, short);
X
X    k = default_goto(start_symbol + 1);
X    fprintf(output_file, "short %sdgoto[] = {%40d,", symbol_prefix, k);
X    save_column(start_symbol + 1, k);
X
X    j = 10;
X    for (i = start_symbol + 2; i < nsyms; i++)
X    {
X    if (j >= 10)
X    {
X        if (!rflag) ++outline;
X        putc('\n', output_file);
X        j = 1;
X    }
X    else
X        ++j;
X
X    k = default_goto(i);
X    fprintf(output_file, "%5d,", k);
X    save_column(i, k);
X    }
X
X    if (!rflag) outline += 2;
X    fprintf(output_file, "\n};\n");
X    FREE(state_count);
X}
X
Xint
Xdefault_goto(symbol)
Xint symbol;
X{
X    register int i;
X    register int m;
X    register int n;
X    register int default_state;
X    register int max;
X
X    m = goto_map[symbol];
X    n = goto_map[symbol + 1];
X
X    if (m == n) return (0);
X
X    for (i = 0; i < nstates; i++)
X    state_count[i] = 0;
X
X    for (i = m; i < n; i++)
X    state_count[to_state[i]]++;
X
X    max = 0;
X    default_state = 0;
X    for (i = 0; i < nstates; i++)
X    {
X    if (state_count[i] > max)
X    {
X        max = state_count[i];
X        default_state = i;
X    }
X    }
X
X    return (default_state);
X}
X
X
X
Xsave_column(symbol, default_state)
Xint symbol;
Xint default_state;
X{
X    register int i;
X    register int m;
X    register int n;
X    register short *sp;
X    register short *sp1;
X    register short *sp2;
X    register int count;
X    register int symno;
X
X    m = goto_map[symbol];
X    n = goto_map[symbol + 1];
X
X    count = 0;
X    for (i = m; i < n; i++)
X    {
X    if (to_state[i] != default_state)
X        ++count;
X    }
X    if (count == 0) return;
X
X    symno = symbol_value[symbol] + 2*nstates;
X
X    froms[symno] = sp1 = sp = NEW2(count, short);
X    tos[symno] = sp2 = NEW2(count, short);
X
X    for (i = m; i < n; i++)
X    {
X    if (to_state[i] != default_state)
X    {
X        *sp1++ = from_state[i];
X        *sp2++ = to_state[i];
X    }
X    }
X
X    tally[symno] = count;
X    width[symno] = sp1[-1] - sp[0] + 1;
X}
X
Xsort_actions()
X{
X  register int i;
X  register int j;
X  register int k;
X  register int t;
X  register int w;
X
X  order = NEW2(nvectors, short);
X  nentries = 0;
X
X  for (i = 0; i < nvectors; i++)
X    {
X      if (tally[i] > 0)
X    {
X      t = tally[i];
X      w = width[i];
X      j = nentries - 1;
X
X      while (j >= 0 && (width[order[j]] < w))
X        j--;
X
X      while (j >= 0 && (width[order[j]] == w) && (tally[order[j]] < t))
X        j--;
X
X      for (k = nentries - 1; k > j; k--)
X        order[k + 1] = order[k];
X
X      order[j + 1] = i;
X      nentries++;
X    }
X    }
X}
X
X
Xpack_table()
X{
X    register int i;
X    register int place;
X    register int state;
X
X    base = NEW2(nvectors, short);
X    pos = NEW2(nentries, short);
X
X    maxtable = 1000;
X    table = NEW2(maxtable, short);
X    check = NEW2(maxtable, short);
X
X    lowzero = 0;
X    high = 0;
X
X    for (i = 0; i < maxtable; i++)
X    check[i] = -1;
X
X    for (i = 0; i < nentries; i++)
X    {
X    state = matching_vector(i);
X
X    if (state < 0)
X        place = pack_vector(i);
X    else
X        place = base[state];
X
X    pos[i] = place;
X    base[order[i]] = place;
X    }
X
X    for (i = 0; i < nvectors; i++)
X    {
X    if (froms[i])
X        FREE(froms[i]);
X    if (tos[i])
X        FREE(tos[i]);
X    }
X
X    FREE(froms);
X    FREE(tos);
X    FREE(pos);
X}
X
X
X/*  The function matching_vector determines if the vector specified by    */
X/*  the input parameter matches a previously considered    vector.  The    */
X/*  test at the start of the function checks if the vector represents    */
X/*  a row of shifts over terminal symbols or a row of reductions, or a    */
X/*  column of shifts over a nonterminal symbol.  Berkeley Yacc does not    */
X/*  check if a column of shifts over a nonterminal symbols matches a    */
X/*  previously considered vector.  Because of the nature of LR parsing    */
X/*  tables, no two columns can match.  Therefore, the only possible    */
X/*  match would be between a row and a column.  Such matches are    */
X/*  unlikely.  Therefore, to save time, no attempt is made to see if a    */
X/*  column matches a previously considered vector.            */
X/*                                    */
X/*  Matching_vector is poorly designed.  The test could easily be made    */
X/*  faster.  Also, it depends on the vectors being in a specific    */
X/*  order.                                */
X
Xint
Xmatching_vector(vector)
Xint vector;
X{
X    register int i;
X    register int j;
X    register int k;
X    register int t;
X    register int w;
X    register int match;
X    register int prev;
X
X    i = order[vector];
X    if (i >= 2*nstates)
X    return (-1);
X
X    t = tally[i];
X    w = width[i];
X
X    for (prev = vector - 1; prev >= 0; prev--)
X    {
X    j = order[prev];
X    if (width[j] != w || tally[j] != t)
X        return (-1);
X
X    match = 1;
X    for (k = 0; match && k < t; k++)
X    {
X        if (tos[j][k] != tos[i][k] || froms[j][k] != froms[i][k])
X        match = 0;
X    }
X
X    if (match)
X        return (j);
X    }
X
X    return (-1);
X}
X
X
X
Xint
Xpack_vector(vector)
Xint vector;
X{
X    register int i, j, k, l;
X    register int t;
X    register int loc;
X    register int ok;
X    register short *from;
X    register short *to;
X    int newmax;
X
X    i = order[vector];
X    t = tally[i];
X    assert(t);
X
X    from = froms[i];
X    to = tos[i];
X
X    j = lowzero - from[0];
X    for (k = 1; k < t; ++k)
X    if (lowzero - from[k] > j)
X        j = lowzero - from[k];
X    for (;; ++j)
X    {
X    if (j == 0)
X        continue;
X    ok = 1;
X    for (k = 0; ok && k < t; k++)
X    {
X        loc = j + from[k];
X        if (loc >= maxtable)
X        {
X        if (loc >= MAXTABLE)
X            fatal("maximum table size exceeded");
X
X        newmax = maxtable;
X        do { newmax += 200; } while (newmax <= loc);
X        table = (short *) REALLOC(table, newmax*sizeof(short));
X        if (table == 0) no_space();
X        check = (short *) REALLOC(check, newmax*sizeof(short));
X        if (check == 0) no_space();
X        for (l  = maxtable; l < newmax; ++l)
X        {
X            table[l] = 0;
X            check[l] = -1;
X        }
X        maxtable = newmax;
X        }
X
X        if (check[loc] != -1)
X        ok = 0;
X    }
X    for (k = 0; ok && k < vector; k++)
X    {
X        if (pos[k] == j)
X        ok = 0;
X    }
X    if (ok)
X    {
X        for (k = 0; k < t; k++)
X        {
X        loc = j + from[k];
X        table[loc] = to[k];
X        check[loc] = from[k];
X        if (loc > high) high = loc;
X        }
X
X        while (check[lowzero] != -1)
X        ++lowzero;
X
X        return (j);
X    }
X    }
X}
X
X
X
Xoutput_base()
X{
X    register int i, j;
X
X    fprintf(output_file, "short %ssindex[] = {%39d,", symbol_prefix, base[0]);
X
X    j = 10;
X    for (i = 1; i < nstates; i++)
X    {
X    if (j >= 10)
X    {
X        if (!rflag) ++outline;
X        putc('\n', output_file);
X        j = 1;
X    }
X    else
X        ++j;
X
X    fprintf(output_file, "%5d,", base[i]);
X    }
X
X    if (!rflag) outline += 2;
X    fprintf(output_file, "\n};\nshort %srindex[] = {%39d,", symbol_prefix,
X        base[nstates]);
X
X    j = 10;
X    for (i = nstates + 1; i < 2*nstates; i++)
X    {
X    if (j >= 10)
X    {
X        if (!rflag) ++outline;
X        putc('\n', output_file);
X        j = 1;
X    }
X    else
X        ++j;
X
X    fprintf(output_file, "%5d,", base[i]);
X    }
X
X    if (!rflag) outline += 2;
X    fprintf(output_file, "\n};\nshort %sgindex[] = {%39d,", symbol_prefix,
X        base[2*nstates]);
X
X    j = 10;
X    for (i = 2*nstates + 1; i < nvectors - 1; i++)
X    {
X    if (j >= 10)
X    {
X        if (!rflag) ++outline;
X        putc('\n', output_file);
X        j = 1;
X    }
X    else
X        ++j;
X
X    fprintf(output_file, "%5d,", base[i]);
X    }
X
X    if (!rflag) outline += 2;
X    fprintf(output_file, "\n};\n");
X    FREE(base);
X}
X
X
X
Xoutput_table()
X{
X    register int i;
X    register int j;
X
X    ++outline;
X    fprintf(code_file, "#define YYTABLESIZE %d\n", high);
X    fprintf(output_file, "short %stable[] = {%40d,", symbol_prefix,
X        table[0]);
X
X    j = 10;
X    for (i = 1; i <= high; i++)
X    {
X    if (j >= 10)
X    {
X        if (!rflag) ++outline;
X        putc('\n', output_file);
X        j = 1;
X    }
X    else
X        ++j;
X
X    fprintf(output_file, "%5d,", table[i]);
X    }
X
X    if (!rflag) outline += 2;
X    fprintf(output_file, "\n};\n");
X    FREE(table);
X}
X
X
X
Xoutput_check()
X{
X    register int i;
X    register int j;
X
X    fprintf(output_file, "short %scheck[] = {%40d,", symbol_prefix,
X        check[0]);
X
X    j = 10;
X    for (i = 1; i <= high; i++)
X    {
X    if (j >= 10)
X    {
X        if (!rflag) ++outline;
X        putc('\n', output_file);
X        j = 1;
X    }
X    else
X        ++j;
X
X    fprintf(output_file, "%5d,", check[i]);
X    }
X
X    if (!rflag) outline += 2;
X    fprintf(output_file, "\n};\n");
X    FREE(check);
X}
X
X
Xint
Xis_C_identifier(name)
Xchar *name;
X{
X    register char *s;
X    register int c;
X
X    s = name;
X    c = *s;
X    if (c == '"')
X    {
X    c = *++s;
X    if (!isalpha(c) && c != '_' && c != '$')
X        return (0);
X    while ((c = *++s) != '"')
X    {
X        if (!isalnum(c) && c != '_' && c != '$')
X        return (0);
X    }
X    return (1);
X    }
X
X    if (!isalpha(c) && c != '_' && c != '$')
X    return (0);
X    while (c = *++s)
X    {
X    if (!isalnum(c) && c != '_' && c != '$')
X        return (0);
X    }
X    return (1);
X}
X
X
Xoutput_defines()
X{
X    register int c, i;
X    register char *s;
X
X    for (i = 2; i < ntokens; ++i)
X    {
X    s = symbol_name[i];
X    if (is_C_identifier(s))
X    {
X        fprintf(code_file, "#define ");
X        if (dflag) fprintf(defines_file, "#define ");
X        c = *s;
X        if (c == '"')
X        {
X        while ((c = *++s) != '"')
X        {
X            putc(c, code_file);
X            if (dflag) putc(c, defines_file);
X        }
X        }
X        else
X        {
X        do
X        {
X            putc(c, code_file);
X            if (dflag) putc(c, defines_file);
X        }
X        while (c = *++s);
X        }
X        ++outline;
X        fprintf(code_file, " %d\n", symbol_value[i]);
X        if (dflag) fprintf(defines_file, " %d\n", symbol_value[i]);
X    }
X    }
X
X    ++outline;
X    fprintf(code_file, "#define YYERRCODE %d\n", symbol_value[1]);
X
X    if (dflag && unionized)
X    {
X    fclose(union_file);
X    union_file = fopen(union_file_name, "r");
X    if (union_file == NULL) open_error(union_file_name);
X    while ((c = getc(union_file)) != EOF)
X        putc(c, defines_file);
X    fprintf(defines_file, " YYSTYPE;\nextern YYSTYPE %slval;\n",
X        symbol_prefix);
X    }
X}
X
X
Xoutput_stored_text()
X{
X    register int c;
X    register FILE *in, *out;
X
X    fclose(text_file);
X    text_file = fopen(text_file_name, "r");
X    if (text_file == NULL)
X    open_error(text_file_name);
X    in = text_file;
X    if ((c = getc(in)) == EOF)
X    return;
X    out = code_file;
X    if (c ==  '\n')
X    ++outline;
X    putc(c, out);
X    while ((c = getc(in)) != EOF)
X    {
X    if (c == '\n')
X        ++outline;
X    putc(c, out);
X    }
X    if (!lflag)
X    fprintf(out, line_format, ++outline + 1, code_file_name);
X}
X
X
Xoutput_debug()
X{
X    register int i, j, k, max;
X    char **symnam, *s;
X
X    ++outline;
X    fprintf(code_file, "#define YYFINAL %d\n", final_state);
X    outline += 3;
X    fprintf(code_file, "#ifndef YYDEBUG\n#define YYDEBUG %d\n#endif\n",
X        tflag);
X    if (rflag)
X    fprintf(output_file, "#ifndef YYDEBUG\n#define YYDEBUG %d\n#endif\n",
X        tflag);
X
X    max = 0;
X    for (i = 2; i < ntokens; ++i)
X    if (symbol_value[i] > max)
X        max = symbol_value[i];
X    ++outline;
X    fprintf(code_file, "#define YYMAXTOKEN %d\n", max);
X
X    symnam = (char **) MALLOC((max+1)*sizeof(char *));
X    if (symnam == 0) no_space();
X
X    /* Note that it is  not necessary to initialize the element        */
X    /* symnam[max].                            */
X    for (i = 0; i < max; ++i)
X    symnam[i] = 0;
X    for (i = ntokens - 1; i >= 2; --i)
X    symnam[symbol_value[i]] = symbol_name[i];
X    symnam[0] = "end-of-file";
X
X    if (!rflag) ++outline;
X    fprintf(output_file, "#if YYDEBUG\nchar *%sname[] = {", symbol_prefix);
X    j = 80;
X    for (i = 0; i <= max; ++i)
X    {
X    if (s = symnam[i])
X    {
X        if (s[0] == '"')
X        {
X        k = 7;
X        while (*++s != '"')
X        {
X            ++k;
X            if (*s == '\\')
X            {
X            k += 2;
X            if (*++s == '\\')
X                ++k;
X            }
X        }
X        j += k;
X        if (j > 80)
X        {
X            if (!rflag) ++outline;
X            putc('\n', output_file);
X            j = k;
X        }
X        fprintf(output_file, "\"\\\"");
X        s = symnam[i];
X        while (*++s != '"')
X        {
X            if (*s == '\\')
X            {
X            fprintf(output_file, "\\\\");
X            if (*++s == '\\')
X                fprintf(output_file, "\\\\");
X            else
X                putc(*s, output_file);
X            }
X            else
X            putc(*s, output_file);
X        }
X        fprintf(output_file, "\\\"\",");
X        }
X        else if (s[0] == '\'')
X        {
X        if (s[1] == '"')
X        {
X            j += 7;
X            if (j > 80)
X            {
X            if (!rflag) ++outline;
X            putc('\n', output_file);
X            j = 7;
X            }
X            fprintf(output_file, "\"'\\\"'\",");
X        }
X        else
X        {
X            k = 5;
X            while (*++s != '\'')
X            {
X            ++k;
X            if (*s == '\\')
X            {
X                k += 2;
X                if (*++s == '\\')
X                ++k;
X            }
X            }
X            j += k;
X            if (j > 80)
X            {
X            if (!rflag) ++outline;
X            putc('\n', output_file);
X            j = k;
X            }
X            fprintf(output_file, "\"'");
X            s = symnam[i];
X            while (*++s != '\'')
X            {
X            if (*s == '\\')
X            {
X                fprintf(output_file, "\\\\");
X                if (*++s == '\\')
X                fprintf(output_file, "\\\\");
X                else
X                putc(*s, output_file);
X            }
X            else
X                putc(*s, output_file);
X            }
X            fprintf(output_file, "'\",");
X        }
X        }
X        else
X        {
X        k = strlen(s) + 3;
X        j += k;
X        if (j > 80)
X        {
X            if (!rflag) ++outline;
X            putc('\n', output_file);
X            j = k;
X        }
X        putc('"', output_file);
X        do { putc(*s, output_file); } while (*++s);
X        fprintf(output_file, "\",");
X        }
X    }
X    else
X    {
X        j += 2;
X        if (j > 80)
X        {
X        if (!rflag) ++outline;
X        putc('\n', output_file);
X        j = 2;
X        }
X        fprintf(output_file, "0,");
X    }
X    }
X    if (!rflag) outline += 2;
X    fprintf(output_file, "\n};\n");
X    FREE(symnam);
X
X    if (!rflag) ++outline;
X    fprintf(output_file, "char *%srule[] = {\n", symbol_prefix);
X    for (i = 2; i < nrules; ++i)
X    {
X    fprintf(output_file, "\"%s :", symbol_name[rlhs[i]]);
X    for (j = rrhs[i]; ritem[j] > 0; ++j)
X    {
X        s = symbol_name[ritem[j]];
X        if (s[0] == '"')
X        {
X        fprintf(output_file, " \\\"");
X        while (*++s != '"')
X        {
X            if (*s == '\\')
X            {
X            if (s[1] == '\\')
X                fprintf(output_file, "\\\\\\\\");
X            else
X                fprintf(output_file, "\\\\%c", s[1]);
X            ++s;
X            }
X            else
X            putc(*s, output_file);
X        }
X        fprintf(output_file, "\\\"");
X        }
X        else if (s[0] == '\'')
X        {
X        if (s[1] == '"')
X            fprintf(output_file, " '\\\"'");
X        else if (s[1] == '\\')
X        {
X            if (s[2] == '\\')
X            fprintf(output_file, " '\\\\\\\\");
X            else
X            fprintf(output_file, " '\\\\%c", s[2]);
X            s += 2;
X            while (*++s != '\'')
X            putc(*s, output_file);
X            putc('\'', output_file);
X        }
X        else
X            fprintf(output_file, " '%c'", s[1]);
X        }
X        else
X        fprintf(output_file, " %s", s);
X    }
X    if (!rflag) ++outline;
X    fprintf(output_file, "\",\n");
X    }
X
X    if (!rflag) outline += 2;
X    fprintf(output_file, "};\n#endif\n");
X}
X
X
Xoutput_stype()
X{
X    if (!unionized && ntags == 0)
X    {
X    outline += 3;
X    fprintf(code_file, "#ifndef YYSTYPE\ntypedef int YYSTYPE;\n#endif\n");
X    }
X}
X
X
Xoutput_trailing_text()
X{
X    register int c, last;
X    register FILE *in, *out;
X
X    if (line == 0)
X    return;
X
X    in = input_file;
X    out = code_file;
X    c = *cptr;
X    if (c == '\n')
X    {
X    ++lineno;
X    if ((c = getc(in)) == EOF)
X        return;
X    if (!lflag)
X    {
X        ++outline;
X        fprintf(out, line_format, lineno, input_file_name);
X    }
X    if (c == '\n')
X        ++outline;
X    putc(c, out);
X    last = c;
X    }
X    else
X    {
X    if (!lflag)
X    {
X        ++outline;
X        fprintf(out, line_format, lineno, input_file_name);
X    }
X    do { putc(c, out); } while ((c = *++cptr) != '\n');
X    ++outline;
X    putc('\n', out);
X    last = '\n';
X    }
X
X    while ((c = getc(in)) != EOF)
X    {
X    if (c == '\n')
X        ++outline;
X    putc(c, out);
X    last = c;
X    }
X
X    if (last != '\n')
X    {
X    ++outline;
X    putc('\n', out);
X    }
X    if (!lflag)
X    fprintf(out, line_format, ++outline + 1, code_file_name);
X}
X
X
Xoutput_semantic_actions()
X{
X    register int c, last;
X    register FILE *out;
X
X    fclose(action_file);
X    action_file = fopen(action_file_name, "r");
X    if (action_file == NULL)
X    open_error(action_file_name);
X
X    if ((c = getc(action_file)) == EOF)
X    return;
X
X    out = code_file;
X    last = c;
X    if (c == '\n')
X    ++outline;
X    putc(c, out);
X    while ((c = getc(action_file)) != EOF)
X    {
X    if (c == '\n')
X        ++outline;
X    putc(c, out);
X    last = c;
X    }
X
X    if (last != '\n')
X    {
X    ++outline;
X    putc('\n', out);
X    }
X
X    if (!lflag)
X    fprintf(out, line_format, ++outline + 1, code_file_name);
X}
X
X
Xfree_itemsets()
X{
X    register core *cp, *next;
X
X    FREE(state_table);
X    for (cp = first_state; cp; cp = next)
X    {
X    next = cp->next;
X    FREE(cp);
X    }
X}
X
X
Xfree_shifts()
X{
X    register shifts *sp, *next;
X
X    FREE(shift_table);
X    for (sp = first_shift; sp; sp = next)
X    {
X    next = sp->next;
X    FREE(sp);
X    }
X}
X
X
X
Xfree_reductions()
X{
X    register reductions *rp, *next;
X
X    FREE(reduction_table);
X    for (rp = first_reduction; rp; rp = next)
X    {
X    next = rp->next;
X    FREE(rp);
X    }
X}
END_OF_FILE
if test 22710 -ne `wc -c <'output.c'`; then
    echo shar: \"'output.c'\" unpacked with wrong size!
fi
# end of 'output.c'
fi
if test -f 'test/ftp.output' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'test/ftp.output'\"
else
echo shar: Extracting \"'test/ftp.output'\" \(22197 characters\)
sed "s/^X//" >'test/ftp.output' <<'END_OF_FILE'
X   0  $accept : cmd_list $end
X
X   1  cmd_list :
X   2           | cmd_list cmd
X   3           | cmd_list rcmd
X
X   4  cmd : USER SP username CRLF
X   5      | PASS SP password CRLF
X   6      | PORT SP host_port CRLF
X   7      | PASV CRLF
X   8      | TYPE SP type_code CRLF
X   9      | STRU SP struct_code CRLF
X  10      | MODE SP mode_code CRLF
X  11      | ALLO SP NUMBER CRLF
X  12      | ALLO SP NUMBER SP R SP NUMBER CRLF
X  13      | RETR check_login SP pathname CRLF
X  14      | STOR check_login SP pathname CRLF
X  15      | APPE check_login SP pathname CRLF
X  16      | NLST check_login CRLF
X  17      | NLST check_login SP STRING CRLF
X  18      | LIST check_login CRLF
X  19      | LIST check_login SP pathname CRLF
X  20      | STAT check_login SP pathname CRLF
X  21      | STAT CRLF
X  22      | DELE check_login SP pathname CRLF
X  23      | RNTO SP pathname CRLF
X  24      | ABOR CRLF
X  25      | CWD check_login CRLF
X  26      | CWD check_login SP pathname CRLF
X  27      | HELP CRLF
X  28      | HELP SP STRING CRLF
X  29      | NOOP CRLF
X  30      | MKD check_login SP pathname CRLF
X  31      | RMD check_login SP pathname CRLF
X  32      | PWD check_login CRLF
X  33      | CDUP check_login CRLF
X  34      | SITE SP HELP CRLF
X  35      | SITE SP HELP SP STRING CRLF
X  36      | SITE SP UMASK check_login CRLF
X  37      | SITE SP UMASK check_login SP octal_number CRLF
X  38      | SITE SP CHMOD check_login SP octal_number SP pathname CRLF
X  39      | SITE SP IDLE CRLF
X  40      | SITE SP IDLE SP NUMBER CRLF
X  41      | STOU check_login SP pathname CRLF
X  42      | SYST CRLF
X  43      | SIZE check_login SP pathname CRLF
X  44      | MDTM check_login SP pathname CRLF
X  45      | QUIT CRLF
X  46      | error CRLF
X
X  47  rcmd : RNFR check_login SP pathname CRLF
X
X  48  username : STRING
X
X  49  password :
X  50           | STRING
X
X  51  byte_size : NUMBER
X
X  52  host_port : NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER
X
X  53  form_code : N
X  54            | T
X  55            | C
X
X  56  type_code : A
X  57            | A SP form_code
X  58            | E
X  59            | E SP form_code
X  60            | I
X  61            | L
X  62            | L SP byte_size
X  63            | L byte_size
X
X  64  struct_code : F
X  65              | R
X  66              | P
X
X  67  mode_code : S
X  68            | B
X  69            | C
X
X  70  pathname : pathstring
X
X  71  pathstring : STRING
X
X  72  octal_number : NUMBER
X
X  73  check_login :
X
Xstate 0
X    $accept : . cmd_list $end  (0)
X    cmd_list : .  (1)
X
X    .  reduce 1
X
X    cmd_list  goto 1
X
X
Xstate 1
X    $accept : cmd_list . $end  (0)
X    cmd_list : cmd_list . cmd  (2)
X    cmd_list : cmd_list . rcmd  (3)
X
X    $end  accept
X    error  shift 2
X    USER  shift 3
X    PASS  shift 4
X    QUIT  shift 5
X    PORT  shift 6
X    PASV  shift 7
X    TYPE  shift 8
X    STRU  shift 9
X    MODE  shift 10
X    RETR  shift 11
X    STOR  shift 12
X    APPE  shift 13
X    ALLO  shift 14
X    RNFR  shift 15
X    RNTO  shift 16
X    ABOR  shift 17
X    DELE  shift 18
X    CWD  shift 19
X    LIST  shift 20
X    NLST  shift 21
X    SITE  shift 22
X    STAT  shift 23
X    HELP  shift 24
X    NOOP  shift 25
X    MKD  shift 26
X    RMD  shift 27
X    PWD  shift 28
X    CDUP  shift 29
X    STOU  shift 30
X    SYST  shift 31
X    SIZE  shift 32
X    MDTM  shift 33
X    .  error
X
X    cmd  goto 34
X    rcmd  goto 35
X
X
Xstate 2
X    cmd : error . CRLF  (46)
X
X    CRLF  shift 36
X    .  error
X
X
Xstate 3
X    cmd : USER . SP username CRLF  (4)
X
X    SP  shift 37
X    .  error
X
X
Xstate 4
X    cmd : PASS . SP password CRLF  (5)
X
X    SP  shift 38
X    .  error
X
X
Xstate 5
X    cmd : QUIT . CRLF  (45)
X
X    CRLF  shift 39
X    .  error
X
X
Xstate 6
X    cmd : PORT . SP host_port CRLF  (6)
X
X    SP  shift 40
X    .  error
X
X
Xstate 7
X    cmd : PASV . CRLF  (7)
X
X    CRLF  shift 41
X    .  error
X
X
Xstate 8
X    cmd : TYPE . SP type_code CRLF  (8)
X
X    SP  shift 42
X    .  error
X
X
Xstate 9
X    cmd : STRU . SP struct_code CRLF  (9)
X
X    SP  shift 43
X    .  error
X
X
Xstate 10
X    cmd : MODE . SP mode_code CRLF  (10)
X
X    SP  shift 44
X    .  error
X
X
Xstate 11
X    cmd : RETR . check_login SP pathname CRLF  (13)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 45
X
X
Xstate 12
X    cmd : STOR . check_login SP pathname CRLF  (14)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 46
X
X
Xstate 13
X    cmd : APPE . check_login SP pathname CRLF  (15)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 47
X
X
Xstate 14
X    cmd : ALLO . SP NUMBER CRLF  (11)
X    cmd : ALLO . SP NUMBER SP R SP NUMBER CRLF  (12)
X
X    SP  shift 48
X    .  error
X
X
Xstate 15
X    rcmd : RNFR . check_login SP pathname CRLF  (47)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 49
X
X
Xstate 16
X    cmd : RNTO . SP pathname CRLF  (23)
X
X    SP  shift 50
X    .  error
X
X
Xstate 17
X    cmd : ABOR . CRLF  (24)
X
X    CRLF  shift 51
X    .  error
X
X
Xstate 18
X    cmd : DELE . check_login SP pathname CRLF  (22)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 52
X
X
Xstate 19
X    cmd : CWD . check_login CRLF  (25)
X    cmd : CWD . check_login SP pathname CRLF  (26)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 53
X
X
Xstate 20
X    cmd : LIST . check_login CRLF  (18)
X    cmd : LIST . check_login SP pathname CRLF  (19)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 54
X
X
Xstate 21
X    cmd : NLST . check_login CRLF  (16)
X    cmd : NLST . check_login SP STRING CRLF  (17)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 55
X
X
Xstate 22
X    cmd : SITE . SP HELP CRLF  (34)
X    cmd : SITE . SP HELP SP STRING CRLF  (35)
X    cmd : SITE . SP UMASK check_login CRLF  (36)
X    cmd : SITE . SP UMASK check_login SP octal_number CRLF  (37)
X    cmd : SITE . SP CHMOD check_login SP octal_number SP pathname CRLF  (38)
X    cmd : SITE . SP IDLE CRLF  (39)
X    cmd : SITE . SP IDLE SP NUMBER CRLF  (40)
X
X    SP  shift 56
X    .  error
X
X
Xstate 23
X    cmd : STAT . check_login SP pathname CRLF  (20)
X    cmd : STAT . CRLF  (21)
X    check_login : .  (73)
X
X    CRLF  shift 57
X    SP  reduce 73
X
X    check_login  goto 58
X
X
Xstate 24
X    cmd : HELP . CRLF  (27)
X    cmd : HELP . SP STRING CRLF  (28)
X
X    SP  shift 59
X    CRLF  shift 60
X    .  error
X
X
Xstate 25
X    cmd : NOOP . CRLF  (29)
X
X    CRLF  shift 61
X    .  error
X
X
Xstate 26
X    cmd : MKD . check_login SP pathname CRLF  (30)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 62
X
X
Xstate 27
X    cmd : RMD . check_login SP pathname CRLF  (31)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 63
X
X
Xstate 28
X    cmd : PWD . check_login CRLF  (32)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 64
X
X
Xstate 29
X    cmd : CDUP . check_login CRLF  (33)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 65
X
X
Xstate 30
X    cmd : STOU . check_login SP pathname CRLF  (41)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 66
X
X
Xstate 31
X    cmd : SYST . CRLF  (42)
X
X    CRLF  shift 67
X    .  error
X
X
Xstate 32
X    cmd : SIZE . check_login SP pathname CRLF  (43)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 68
X
X
Xstate 33
X    cmd : MDTM . check_login SP pathname CRLF  (44)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 69
X
X
Xstate 34
X    cmd_list : cmd_list cmd .  (2)
X
X    .  reduce 2
X
X
Xstate 35
X    cmd_list : cmd_list rcmd .  (3)
X
X    .  reduce 3
X
X
Xstate 36
X    cmd : error CRLF .  (46)
X
X    .  reduce 46
X
X
Xstate 37
X    cmd : USER SP . username CRLF  (4)
X
X    STRING  shift 70
X    .  error
X
X    username  goto 71
X
X
Xstate 38
X    cmd : PASS SP . password CRLF  (5)
X    password : .  (49)
X
X    STRING  shift 72
X    CRLF  reduce 49
X
X    password  goto 73
X
X
Xstate 39
X    cmd : QUIT CRLF .  (45)
X
X    .  reduce 45
X
X
Xstate 40
X    cmd : PORT SP . host_port CRLF  (6)
X
X    NUMBER  shift 74
X    .  error
X
X    host_port  goto 75
X
X
Xstate 41
X    cmd : PASV CRLF .  (7)
X
X    .  reduce 7
X
X
Xstate 42
X    cmd : TYPE SP . type_code CRLF  (8)
X
X    A  shift 76
X    E  shift 77
X    I  shift 78
X    L  shift 79
X    .  error
X
X    type_code  goto 80
X
X
Xstate 43
X    cmd : STRU SP . struct_code CRLF  (9)
X
X    F  shift 81
X    P  shift 82
X    R  shift 83
X    .  error
X
X    struct_code  goto 84
X
X
Xstate 44
X    cmd : MODE SP . mode_code CRLF  (10)
X
X    B  shift 85
X    C  shift 86
X    S  shift 87
X    .  error
X
X    mode_code  goto 88
X
X
Xstate 45
X    cmd : RETR check_login . SP pathname CRLF  (13)
X
X    SP  shift 89
X    .  error
X
X
Xstate 46
X    cmd : STOR check_login . SP pathname CRLF  (14)
X
X    SP  shift 90
X    .  error
X
X
Xstate 47
X    cmd : APPE check_login . SP pathname CRLF  (15)
X
X    SP  shift 91
X    .  error
X
X
Xstate 48
X    cmd : ALLO SP . NUMBER CRLF  (11)
X    cmd : ALLO SP . NUMBER SP R SP NUMBER CRLF  (12)
X
X    NUMBER  shift 92
X    .  error
X
X
Xstate 49
X    rcmd : RNFR check_login . SP pathname CRLF  (47)
X
X    SP  shift 93
X    .  error
X
X
Xstate 50
X    cmd : RNTO SP . pathname CRLF  (23)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 95
X    pathstring  goto 96
X
X
Xstate 51
X    cmd : ABOR CRLF .  (24)
X
X    .  reduce 24
X
X
Xstate 52
X    cmd : DELE check_login . SP pathname CRLF  (22)
X
X    SP  shift 97
X    .  error
X
X
Xstate 53
X    cmd : CWD check_login . CRLF  (25)
X    cmd : CWD check_login . SP pathname CRLF  (26)
X
X    SP  shift 98
X    CRLF  shift 99
X    .  error
X
X
Xstate 54
X    cmd : LIST check_login . CRLF  (18)
X    cmd : LIST check_login . SP pathname CRLF  (19)
X
X    SP  shift 100
X    CRLF  shift 101
X    .  error
X
X
Xstate 55
X    cmd : NLST check_login . CRLF  (16)
X    cmd : NLST check_login . SP STRING CRLF  (17)
X
X    SP  shift 102
X    CRLF  shift 103
X    .  error
X
X
Xstate 56
X    cmd : SITE SP . HELP CRLF  (34)
X    cmd : SITE SP . HELP SP STRING CRLF  (35)
X    cmd : SITE SP . UMASK check_login CRLF  (36)
X    cmd : SITE SP . UMASK check_login SP octal_number CRLF  (37)
X    cmd : SITE SP . CHMOD check_login SP octal_number SP pathname CRLF  (38)
X    cmd : SITE SP . IDLE CRLF  (39)
X    cmd : SITE SP . IDLE SP NUMBER CRLF  (40)
X
X    HELP  shift 104
X    UMASK  shift 105
X    IDLE  shift 106
X    CHMOD  shift 107
X    .  error
X
X
Xstate 57
X    cmd : STAT CRLF .  (21)
X
X    .  reduce 21
X
X
Xstate 58
X    cmd : STAT check_login . SP pathname CRLF  (20)
X
X    SP  shift 108
X    .  error
X
X
Xstate 59
X    cmd : HELP SP . STRING CRLF  (28)
X
X    STRING  shift 109
X    .  error
X
X
Xstate 60
X    cmd : HELP CRLF .  (27)
X
X    .  reduce 27
X
X
Xstate 61
X    cmd : NOOP CRLF .  (29)
X
X    .  reduce 29
X
X
Xstate 62
X    cmd : MKD check_login . SP pathname CRLF  (30)
X
X    SP  shift 110
X    .  error
X
X
Xstate 63
X    cmd : RMD check_login . SP pathname CRLF  (31)
X
X    SP  shift 111
X    .  error
X
X
Xstate 64
X    cmd : PWD check_login . CRLF  (32)
X
X    CRLF  shift 112
X    .  error
X
X
Xstate 65
X    cmd : CDUP check_login . CRLF  (33)
X
X    CRLF  shift 113
X    .  error
X
X
Xstate 66
X    cmd : STOU check_login . SP pathname CRLF  (41)
X
X    SP  shift 114
X    .  error
X
X
Xstate 67
X    cmd : SYST CRLF .  (42)
X
X    .  reduce 42
X
X
Xstate 68
X    cmd : SIZE check_login . SP pathname CRLF  (43)
X
X    SP  shift 115
X    .  error
X
X
Xstate 69
X    cmd : MDTM check_login . SP pathname CRLF  (44)
X
X    SP  shift 116
X    .  error
X
X
Xstate 70
X    username : STRING .  (48)
X
X    .  reduce 48
X
X
Xstate 71
X    cmd : USER SP username . CRLF  (4)
X
X    CRLF  shift 117
X    .  error
X
X
Xstate 72
X    password : STRING .  (50)
X
X    .  reduce 50
X
X
Xstate 73
X    cmd : PASS SP password . CRLF  (5)
X
X    CRLF  shift 118
X    .  error
X
X
Xstate 74
X    host_port : NUMBER . COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER  (52)
X
X    COMMA  shift 119
X    .  error
X
X
Xstate 75
X    cmd : PORT SP host_port . CRLF  (6)
X
X    CRLF  shift 120
X    .  error
X
X
Xstate 76
X    type_code : A .  (56)
X    type_code : A . SP form_code  (57)
X
X    SP  shift 121
X    CRLF  reduce 56
X
X
Xstate 77
X    type_code : E .  (58)
X    type_code : E . SP form_code  (59)
X
X    SP  shift 122
X    CRLF  reduce 58
X
X
Xstate 78
X    type_code : I .  (60)
X
X    .  reduce 60
X
X
Xstate 79
X    type_code : L .  (61)
X    type_code : L . SP byte_size  (62)
X    type_code : L . byte_size  (63)
X
X    SP  shift 123
X    NUMBER  shift 124
X    CRLF  reduce 61
X
X    byte_size  goto 125
X
X
Xstate 80
X    cmd : TYPE SP type_code . CRLF  (8)
X
X    CRLF  shift 126
X    .  error
X
X
Xstate 81
X    struct_code : F .  (64)
X
X    .  reduce 64
X
X
Xstate 82
X    struct_code : P .  (66)
X
X    .  reduce 66
X
X
Xstate 83
X    struct_code : R .  (65)
X
X    .  reduce 65
X
X
Xstate 84
X    cmd : STRU SP struct_code . CRLF  (9)
X
X    CRLF  shift 127
X    .  error
X
X
Xstate 85
X    mode_code : B .  (68)
X
X    .  reduce 68
X
X
Xstate 86
X    mode_code : C .  (69)
X
X    .  reduce 69
X
X
Xstate 87
X    mode_code : S .  (67)
X
X    .  reduce 67
X
X
Xstate 88
X    cmd : MODE SP mode_code . CRLF  (10)
X
X    CRLF  shift 128
X    .  error
X
X
Xstate 89
X    cmd : RETR check_login SP . pathname CRLF  (13)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 129
X    pathstring  goto 96
X
X
Xstate 90
X    cmd : STOR check_login SP . pathname CRLF  (14)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 130
X    pathstring  goto 96
X
X
Xstate 91
X    cmd : APPE check_login SP . pathname CRLF  (15)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 131
X    pathstring  goto 96
X
X
Xstate 92
X    cmd : ALLO SP NUMBER . CRLF  (11)
X    cmd : ALLO SP NUMBER . SP R SP NUMBER CRLF  (12)
X
X    SP  shift 132
X    CRLF  shift 133
X    .  error
X
X
Xstate 93
X    rcmd : RNFR check_login SP . pathname CRLF  (47)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 134
X    pathstring  goto 96
X
X
Xstate 94
X    pathstring : STRING .  (71)
X
X    .  reduce 71
X
X
Xstate 95
X    cmd : RNTO SP pathname . CRLF  (23)
X
X    CRLF  shift 135
X    .  error
X
X
Xstate 96
X    pathname : pathstring .  (70)
X
X    .  reduce 70
X
X
Xstate 97
X    cmd : DELE check_login SP . pathname CRLF  (22)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 136
X    pathstring  goto 96
X
X
Xstate 98
X    cmd : CWD check_login SP . pathname CRLF  (26)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 137
X    pathstring  goto 96
X
X
Xstate 99
X    cmd : CWD check_login CRLF .  (25)
X
X    .  reduce 25
X
X
Xstate 100
X    cmd : LIST check_login SP . pathname CRLF  (19)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 138
X    pathstring  goto 96
X
X
Xstate 101
X    cmd : LIST check_login CRLF .  (18)
X
X    .  reduce 18
X
X
Xstate 102
X    cmd : NLST check_login SP . STRING CRLF  (17)
X
X    STRING  shift 139
X    .  error
X
X
Xstate 103
X    cmd : NLST check_login CRLF .  (16)
X
X    .  reduce 16
X
X
Xstate 104
X    cmd : SITE SP HELP . CRLF  (34)
X    cmd : SITE SP HELP . SP STRING CRLF  (35)
X
X    SP  shift 140
X    CRLF  shift 141
X    .  error
X
X
Xstate 105
X    cmd : SITE SP UMASK . check_login CRLF  (36)
X    cmd : SITE SP UMASK . check_login SP octal_number CRLF  (37)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 142
X
X
Xstate 106
X    cmd : SITE SP IDLE . CRLF  (39)
X    cmd : SITE SP IDLE . SP NUMBER CRLF  (40)
X
X    SP  shift 143
X    CRLF  shift 144
X    .  error
X
X
Xstate 107
X    cmd : SITE SP CHMOD . check_login SP octal_number SP pathname CRLF  (38)
X    check_login : .  (73)
X
X    .  reduce 73
X
X    check_login  goto 145
X
X
Xstate 108
X    cmd : STAT check_login SP . pathname CRLF  (20)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 146
X    pathstring  goto 96
X
X
Xstate 109
X    cmd : HELP SP STRING . CRLF  (28)
X
X    CRLF  shift 147
X    .  error
X
X
Xstate 110
X    cmd : MKD check_login SP . pathname CRLF  (30)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 148
X    pathstring  goto 96
X
X
Xstate 111
X    cmd : RMD check_login SP . pathname CRLF  (31)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 149
X    pathstring  goto 96
X
X
Xstate 112
X    cmd : PWD check_login CRLF .  (32)
X
X    .  reduce 32
X
X
Xstate 113
X    cmd : CDUP check_login CRLF .  (33)
X
X    .  reduce 33
X
X
Xstate 114
X    cmd : STOU check_login SP . pathname CRLF  (41)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 150
X    pathstring  goto 96
X
X
Xstate 115
X    cmd : SIZE check_login SP . pathname CRLF  (43)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 151
X    pathstring  goto 96
X
X
Xstate 116
X    cmd : MDTM check_login SP . pathname CRLF  (44)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 152
X    pathstring  goto 96
X
X
Xstate 117
X    cmd : USER SP username CRLF .  (4)
X
X    .  reduce 4
X
X
Xstate 118
X    cmd : PASS SP password CRLF .  (5)
X
X    .  reduce 5
X
X
Xstate 119
X    host_port : NUMBER COMMA . NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER  (52)
X
X    NUMBER  shift 153
X    .  error
X
X
Xstate 120
X    cmd : PORT SP host_port CRLF .  (6)
X
X    .  reduce 6
X
X
Xstate 121
X    type_code : A SP . form_code  (57)
X
X    C  shift 154
X    N  shift 155
X    T  shift 156
X    .  error
X
X    form_code  goto 157
X
X
Xstate 122
X    type_code : E SP . form_code  (59)
X
X    C  shift 154
X    N  shift 155
X    T  shift 156
X    .  error
X
X    form_code  goto 158
X
X
Xstate 123
X    type_code : L SP . byte_size  (62)
X
X    NUMBER  shift 124
X    .  error
X
X    byte_size  goto 159
X
X
Xstate 124
X    byte_size : NUMBER .  (51)
X
X    .  reduce 51
X
X
Xstate 125
X    type_code : L byte_size .  (63)
X
X    .  reduce 63
X
X
Xstate 126
X    cmd : TYPE SP type_code CRLF .  (8)
X
X    .  reduce 8
X
X
Xstate 127
X    cmd : STRU SP struct_code CRLF .  (9)
X
X    .  reduce 9
X
X
Xstate 128
X    cmd : MODE SP mode_code CRLF .  (10)
X
X    .  reduce 10
X
X
Xstate 129
X    cmd : RETR check_login SP pathname . CRLF  (13)
X
X    CRLF  shift 160
X    .  error
X
X
Xstate 130
X    cmd : STOR check_login SP pathname . CRLF  (14)
X
X    CRLF  shift 161
X    .  error
X
X
Xstate 131
X    cmd : APPE check_login SP pathname . CRLF  (15)
X
X    CRLF  shift 162
X    .  error
X
X
Xstate 132
X    cmd : ALLO SP NUMBER SP . R SP NUMBER CRLF  (12)
X
X    R  shift 163
X    .  error
X
X
Xstate 133
X    cmd : ALLO SP NUMBER CRLF .  (11)
X
X    .  reduce 11
X
X
Xstate 134
X    rcmd : RNFR check_login SP pathname . CRLF  (47)
X
X    CRLF  shift 164
X    .  error
X
X
Xstate 135
X    cmd : RNTO SP pathname CRLF .  (23)
X
X    .  reduce 23
X
X
Xstate 136
X    cmd : DELE check_login SP pathname . CRLF  (22)
X
X    CRLF  shift 165
X    .  error
X
X
Xstate 137
X    cmd : CWD check_login SP pathname . CRLF  (26)
X
X    CRLF  shift 166
X    .  error
X
X
Xstate 138
X    cmd : LIST check_login SP pathname . CRLF  (19)
X
X    CRLF  shift 167
X    .  error
X
X
Xstate 139
X    cmd : NLST check_login SP STRING . CRLF  (17)
X
X    CRLF  shift 168
X    .  error
X
X
Xstate 140
X    cmd : SITE SP HELP SP . STRING CRLF  (35)
X
X    STRING  shift 169
X    .  error
X
X
Xstate 141
X    cmd : SITE SP HELP CRLF .  (34)
X
X    .  reduce 34
X
X
Xstate 142
X    cmd : SITE SP UMASK check_login . CRLF  (36)
X    cmd : SITE SP UMASK check_login . SP octal_number CRLF  (37)
X
X    SP  shift 170
X    CRLF  shift 171
X    .  error
X
X
Xstate 143
X    cmd : SITE SP IDLE SP . NUMBER CRLF  (40)
X
X    NUMBER  shift 172
X    .  error
X
X
Xstate 144
X    cmd : SITE SP IDLE CRLF .  (39)
X
X    .  reduce 39
X
X
Xstate 145
X    cmd : SITE SP CHMOD check_login . SP octal_number SP pathname CRLF  (38)
X
X    SP  shift 173
X    .  error
X
X
Xstate 146
X    cmd : STAT check_login SP pathname . CRLF  (20)
X
X    CRLF  shift 174
X    .  error
X
X
Xstate 147
X    cmd : HELP SP STRING CRLF .  (28)
X
X    .  reduce 28
X
X
Xstate 148
X    cmd : MKD check_login SP pathname . CRLF  (30)
X
X    CRLF  shift 175
X    .  error
X
X
Xstate 149
X    cmd : RMD check_login SP pathname . CRLF  (31)
X
X    CRLF  shift 176
X    .  error
X
X
Xstate 150
X    cmd : STOU check_login SP pathname . CRLF  (41)
X
X    CRLF  shift 177
X    .  error
X
X
Xstate 151
X    cmd : SIZE check_login SP pathname . CRLF  (43)
X
X    CRLF  shift 178
X    .  error
X
X
Xstate 152
X    cmd : MDTM check_login SP pathname . CRLF  (44)
X
X    CRLF  shift 179
X    .  error
X
X
Xstate 153
X    host_port : NUMBER COMMA NUMBER . COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER  (52)
X
X    COMMA  shift 180
X    .  error
X
X
Xstate 154
X    form_code : C .  (55)
X
X    .  reduce 55
X
X
Xstate 155
X    form_code : N .  (53)
X
X    .  reduce 53
X
X
Xstate 156
X    form_code : T .  (54)
X
X    .  reduce 54
X
X
Xstate 157
X    type_code : A SP form_code .  (57)
X
X    .  reduce 57
X
X
Xstate 158
X    type_code : E SP form_code .  (59)
X
X    .  reduce 59
X
X
Xstate 159
X    type_code : L SP byte_size .  (62)
X
X    .  reduce 62
X
X
Xstate 160
X    cmd : RETR check_login SP pathname CRLF .  (13)
X
X    .  reduce 13
X
X
Xstate 161
X    cmd : STOR check_login SP pathname CRLF .  (14)
X
X    .  reduce 14
X
X
Xstate 162
X    cmd : APPE check_login SP pathname CRLF .  (15)
X
X    .  reduce 15
X
X
Xstate 163
X    cmd : ALLO SP NUMBER SP R . SP NUMBER CRLF  (12)
X
X    SP  shift 181
X    .  error
X
X
Xstate 164
X    rcmd : RNFR check_login SP pathname CRLF .  (47)
X
X    .  reduce 47
X
X
Xstate 165
X    cmd : DELE check_login SP pathname CRLF .  (22)
X
X    .  reduce 22
X
X
Xstate 166
X    cmd : CWD check_login SP pathname CRLF .  (26)
X
X    .  reduce 26
X
X
Xstate 167
X    cmd : LIST check_login SP pathname CRLF .  (19)
X
X    .  reduce 19
X
X
Xstate 168
X    cmd : NLST check_login SP STRING CRLF .  (17)
X
X    .  reduce 17
X
X
Xstate 169
X    cmd : SITE SP HELP SP STRING . CRLF  (35)
X
X    CRLF  shift 182
X    .  error
X
X
Xstate 170
X    cmd : SITE SP UMASK check_login SP . octal_number CRLF  (37)
X
X    NUMBER  shift 183
X    .  error
X
X    octal_number  goto 184
X
X
Xstate 171
X    cmd : SITE SP UMASK check_login CRLF .  (36)
X
X    .  reduce 36
X
X
Xstate 172
X    cmd : SITE SP IDLE SP NUMBER . CRLF  (40)
X
X    CRLF  shift 185
X    .  error
X
X
Xstate 173
X    cmd : SITE SP CHMOD check_login SP . octal_number SP pathname CRLF  (38)
X
X    NUMBER  shift 183
X    .  error
X
X    octal_number  goto 186
X
X
Xstate 174
X    cmd : STAT check_login SP pathname CRLF .  (20)
X
X    .  reduce 20
X
X
Xstate 175
X    cmd : MKD check_login SP pathname CRLF .  (30)
X
X    .  reduce 30
X
X
Xstate 176
X    cmd : RMD check_login SP pathname CRLF .  (31)
X
X    .  reduce 31
X
X
Xstate 177
X    cmd : STOU check_login SP pathname CRLF .  (41)
X
X    .  reduce 41
X
X
Xstate 178
X    cmd : SIZE check_login SP pathname CRLF .  (43)
X
X    .  reduce 43
X
X
Xstate 179
X    cmd : MDTM check_login SP pathname CRLF .  (44)
X
X    .  reduce 44
X
X
Xstate 180
X    host_port : NUMBER COMMA NUMBER COMMA . NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER  (52)
X
X    NUMBER  shift 187
X    .  error
X
X
Xstate 181
X    cmd : ALLO SP NUMBER SP R SP . NUMBER CRLF  (12)
X
X    NUMBER  shift 188
X    .  error
X
X
Xstate 182
X    cmd : SITE SP HELP SP STRING CRLF .  (35)
X
X    .  reduce 35
X
X
Xstate 183
X    octal_number : NUMBER .  (72)
X
X    .  reduce 72
X
X
Xstate 184
X    cmd : SITE SP UMASK check_login SP octal_number . CRLF  (37)
X
X    CRLF  shift 189
X    .  error
X
X
Xstate 185
X    cmd : SITE SP IDLE SP NUMBER CRLF .  (40)
X
X    .  reduce 40
X
X
Xstate 186
X    cmd : SITE SP CHMOD check_login SP octal_number . SP pathname CRLF  (38)
X
X    SP  shift 190
X    .  error
X
X
Xstate 187
X    host_port : NUMBER COMMA NUMBER COMMA NUMBER . COMMA NUMBER COMMA NUMBER COMMA NUMBER  (52)
X
X    COMMA  shift 191
X    .  error
X
X
Xstate 188
X    cmd : ALLO SP NUMBER SP R SP NUMBER . CRLF  (12)
X
X    CRLF  shift 192
X    .  error
X
X
Xstate 189
X    cmd : SITE SP UMASK check_login SP octal_number CRLF .  (37)
X
X    .  reduce 37
X
X
Xstate 190
X    cmd : SITE SP CHMOD check_login SP octal_number SP . pathname CRLF  (38)
X
X    STRING  shift 94
X    .  error
X
X    pathname  goto 193
X    pathstring  goto 96
X
X
Xstate 191
X    host_port : NUMBER COMMA NUMBER COMMA NUMBER COMMA . NUMBER COMMA NUMBER COMMA NUMBER  (52)
X
X    NUMBER  shift 194
X    .  error
X
X
Xstate 192
X    cmd : ALLO SP NUMBER SP R SP NUMBER CRLF .  (12)
X
X    .  reduce 12
X
X
Xstate 193
X    cmd : SITE SP CHMOD check_login SP octal_number SP pathname . CRLF  (38)
X
X    CRLF  shift 195
X    .  error
X
X
Xstate 194
X    host_port : NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER . COMMA NUMBER COMMA NUMBER  (52)
X
X    COMMA  shift 196
X    .  error
X
X
Xstate 195
X    cmd : SITE SP CHMOD check_login SP octal_number SP pathname CRLF .  (38)
X
X    .  reduce 38
X
X
Xstate 196
X    host_port : NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA . NUMBER COMMA NUMBER  (52)
X
X    NUMBER  shift 197
X    .  error
X
X
Xstate 197
X    host_port : NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER . COMMA NUMBER  (52)
X
X    COMMA  shift 198
X    .  error
X
X
Xstate 198
X    host_port : NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA . NUMBER  (52)
X
X    NUMBER  shift 199
X    .  error
X
X
Xstate 199
X    host_port : NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER .  (52)
X
X    .  reduce 52
X
X
X65 terminals, 16 nonterminals
X74 grammar rules, 200 states
END_OF_FILE
if test 22197 -ne `wc -c <'test/ftp.output'`; then
    echo shar: \"'test/ftp.output'\" unpacked with wrong size!
fi
# end of 'test/ftp.output'
fi
if test -f 'test/ftp.y' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'test/ftp.y'\"
else
echo shar: Extracting \"'test/ftp.y'\" \(22998 characters\)
sed "s/^X//" >'test/ftp.y' <<'END_OF_FILE'
X/*
X * Copyright (c) 1985, 1988 Regents of the University of California.
X * All rights reserved.
X *
X * Redistribution and use in source and binary forms are permitted
X * provided that the above copyright notice and this paragraph are
X * duplicated in all such forms and that any documentation,
X * advertising materials, and other materials related to such
X * distribution and use acknowledge that the software was developed
X * by the University of California, Berkeley.  The name of the
X * University may not be used to endorse or promote products derived
X * from this software without specific prior written permission.
X * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
X * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
X * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
X *
X *    @(#)ftpcmd.y    5.20.1.1 (Berkeley) 3/2/89
X */
X
X/*
X * Grammar for FTP commands.
X * See RFC 959.
X */
X
X%{
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)ftpcmd.y    5.20.1.1 (Berkeley) 3/2/89";
X#endif /* not lint */
X
X#include <sys/param.h>
X#include <sys/socket.h>
X
X#include <netinet/in.h>
X
X#include <arpa/ftp.h>
X
X#include <stdio.h>
X#include <signal.h>
X#include <ctype.h>
X#include <pwd.h>
X#include <setjmp.h>
X#include <syslog.h>
X#include <sys/stat.h>
X#include <time.h>
X
Xextern    struct sockaddr_in data_dest;
Xextern    int logged_in;
Xextern    struct passwd *pw;
Xextern    int guest;
Xextern    int logging;
Xextern    int type;
Xextern    int form;
Xextern    int debug;
Xextern    int timeout;
Xextern    int maxtimeout;
Xextern  int pdata;
Xextern    char hostname[], remotehost[];
Xextern    char proctitle[];
Xextern    char *globerr;
Xextern    int usedefault;
Xextern  int transflag;
Xextern  char tmpline[];
Xchar    **glob();
X
Xstatic    int cmd_type;
Xstatic    int cmd_form;
Xstatic    int cmd_bytesz;
Xchar    cbuf[512];
Xchar    *fromname;
X
Xchar    *index();
X%}
X
X%token
X    A    B    C    E    F    I
X    L    N    P    R    S    T
X
X    SP    CRLF    COMMA    STRING    NUMBER
X
X    USER    PASS    ACCT    REIN    QUIT    PORT
X    PASV    TYPE    STRU    MODE    RETR    STOR
X    APPE    MLFL    MAIL    MSND    MSOM    MSAM
X    MRSQ    MRCP    ALLO    REST    RNFR    RNTO
X    ABOR    DELE    CWD    LIST    NLST    SITE
X    STAT    HELP    NOOP    MKD    RMD    PWD
X    CDUP    STOU    SMNT    SYST    SIZE    MDTM
X
X    UMASK    IDLE    CHMOD
X
X    LEXERR
X
X%start    cmd_list
X
X%%
X
Xcmd_list:    /* empty */
X    |    cmd_list cmd
X        = {
X            fromname = (char *) 0;
X        }
X    |    cmd_list rcmd
X    ;
X
Xcmd:        USER SP username CRLF
X        = {
X            user((char *) $3);
X            free((char *) $3);
X        }
X    |    PASS SP password CRLF
X        = {
X            pass((char *) $3);
X            free((char *) $3);
X        }
X    |    PORT SP host_port CRLF
X        = {
X            usedefault = 0;
X            if (pdata >= 0) {
X                (void) close(pdata);
X                pdata = -1;
X            }
X            reply(200, "PORT command successful.");
X        }
X    |    PASV CRLF
X        = {
X            passive();
X        }
X    |    TYPE SP type_code CRLF
X        = {
X            switch (cmd_type) {
X
X            case TYPE_A:
X                if (cmd_form == FORM_N) {
X                    reply(200, "Type set to A.");
X                    type = cmd_type;
X                    form = cmd_form;
X                } else
X                    reply(504, "Form must be N.");
X                break;
X
X            case TYPE_E:
X                reply(504, "Type E not implemented.");
X                break;
X
X            case TYPE_I:
X                reply(200, "Type set to I.");
X                type = cmd_type;
X                break;
X
X            case TYPE_L:
X#if NBBY == 8
X                if (cmd_bytesz == 8) {
X                    reply(200,
X                        "Type set to L (byte size 8).");
X                    type = cmd_type;
X                } else
X                    reply(504, "Byte size must be 8.");
X#else /* NBBY == 8 */
X                UNIMPLEMENTED for NBBY != 8
X#endif /* NBBY == 8 */
X            }
X        }
X    |    STRU SP struct_code CRLF
X        = {
X            switch ($3) {
X
X            case STRU_F:
X                reply(200, "STRU F ok.");
X                break;
X
X            default:
X                reply(504, "Unimplemented STRU type.");
X            }
X        }
X    |    MODE SP mode_code CRLF
X        = {
X            switch ($3) {
X
X            case MODE_S:
X                reply(200, "MODE S ok.");
X                break;
X
X            default:
X                reply(502, "Unimplemented MODE type.");
X            }
X        }
X    |    ALLO SP NUMBER CRLF
X        = {
X            reply(202, "ALLO command ignored.");
X        }
X    |    ALLO SP NUMBER SP R SP NUMBER CRLF
X        = {
X            reply(202, "ALLO command ignored.");
X        }
X    |    RETR check_login SP pathname CRLF
X        = {
X            if ($2 && $4 != NULL)
X                retrieve((char *) 0, (char *) $4);
X            if ($4 != NULL)
X                free((char *) $4);
X        }
X    |    STOR check_login SP pathname CRLF
X        = {
X            if ($2 && $4 != NULL)
X                store((char *) $4, "w", 0);
X            if ($4 != NULL)
X                free((char *) $4);
X        }
X    |    APPE check_login SP pathname CRLF
X        = {
X            if ($2 && $4 != NULL)
X                store((char *) $4, "a", 0);
X            if ($4 != NULL)
X                free((char *) $4);
X        }
X    |    NLST check_login CRLF
X        = {
X            if ($2)
X                send_file_list(".");
X        }
X    |    NLST check_login SP STRING CRLF
X        = {
X            if ($2 && $4 != NULL)
X                send_file_list((char *) $4);
X            if ($4 != NULL)
X                free((char *) $4);
X        }
X    |    LIST check_login CRLF
X        = {
X            if ($2)
X                retrieve("/bin/ls -lgA", "");
X        }
X    |    LIST check_login SP pathname CRLF
X        = {
X            if ($2 && $4 != NULL)
X                retrieve("/bin/ls -lgA %s", (char *) $4);
X            if ($4 != NULL)
X                free((char *) $4);
X        }
X    |    STAT check_login SP pathname CRLF
X        = {
X            if ($2 && $4 != NULL)
X                statfilecmd((char *) $4);
X            if ($4 != NULL)
X                free((char *) $4);
X        }
X    |    STAT CRLF
X        = {
X            statcmd();
X        }
X    |    DELE check_login SP pathname CRLF
X        = {
X            if ($2 && $4 != NULL)
X                delete((char *) $4);
X            if ($4 != NULL)
X                free((char *) $4);
X        }
X    |    RNTO SP pathname CRLF
X        = {
X            if (fromname) {
X                renamecmd(fromname, (char *) $3);
X                free(fromname);
X                fromname = (char *) 0;
X            } else {
X                reply(503, "Bad sequence of commands.");
X            }
X            free((char *) $3);
X        }
X    |    ABOR CRLF
X        = {
X            reply(225, "ABOR command successful.");
X        }
X    |    CWD check_login CRLF
X        = {
X            if ($2)
X                cwd(pw->pw_dir);
X        }
X    |    CWD check_login SP pathname CRLF
X        = {
X            if ($2 && $4 != NULL)
X                cwd((char *) $4);
X            if ($4 != NULL)
X                free((char *) $4);
X        }
X    |    HELP CRLF
X        = {
X            help(cmdtab, (char *) 0);
X        }
X    |    HELP SP STRING CRLF
X        = {
X            register char *cp = (char *)$3;
X
X            if (strncasecmp(cp, "SITE", 4) == 0) {
X                cp = (char *)$3 + 4;
X                if (*cp == ' ')
X                    cp++;
X                if (*cp)
X                    help(sitetab, cp);
X                else
X                    help(sitetab, (char *) 0);
X            } else
X                help(cmdtab, (char *) $3);
X        }
X    |    NOOP CRLF
X        = {
X            reply(200, "NOOP command successful.");
X        }
X    |    MKD check_login SP pathname CRLF
X        = {
X            if ($2 && $4 != NULL)
X                makedir((char *) $4);
X            if ($4 != NULL)
X                free((char *) $4);
X        }
X    |    RMD check_login SP pathname CRLF
X        = {
X            if ($2 && $4 != NULL)
X                removedir((char *) $4);
X            if ($4 != NULL)
X                free((char *) $4);
X        }
X    |    PWD check_login CRLF
X        = {
X            if ($2)
X                pwd();
X        }
X    |    CDUP check_login CRLF
X        = {
X            if ($2)
X                cwd("..");
X        }
X    |    SITE SP HELP CRLF
X        = {
X            help(sitetab, (char *) 0);
X        }
X    |    SITE SP HELP SP STRING CRLF
X        = {
X            help(sitetab, (char *) $5);
X        }
X    |    SITE SP UMASK check_login CRLF
X        = {
X            int oldmask;
X
X            if ($4) {
X                oldmask = umask(0);
X                (void) umask(oldmask);
X                reply(200, "Current UMASK is %03o", oldmask);
X            }
X        }
X    |    SITE SP UMASK check_login SP octal_number CRLF
X        = {
X            int oldmask;
X
X            if ($4) {
X                if (($6 == -1) || ($6 > 0777)) {
X                    reply(501, "Bad UMASK value");
X                } else {
X                    oldmask = umask($6);
X                    reply(200,
X                        "UMASK set to %03o (was %03o)",
X                        $6, oldmask);
X                }
X            }
X        }
X    |    SITE SP CHMOD check_login SP octal_number SP pathname CRLF
X        = {
X            if ($4 && ($8 != NULL)) {
X                if ($6 > 0777)
X                    reply(501,
X                "CHMOD: Mode value must be between 0 and 0777");
X                else if (chmod((char *) $8, $6) < 0)
X                    perror_reply(550, (char *) $8);
X                else
X                    reply(200, "CHMOD command successful.");
X            }
X            if ($8 != NULL)
X                free((char *) $8);
X        }
X    |    SITE SP IDLE CRLF
X        = {
X            reply(200,
X                "Current IDLE time limit is %d seconds; max %d",
X                timeout, maxtimeout);
X        }
X    |    SITE SP IDLE SP NUMBER CRLF
X        = {
X            if ($5 < 30 || $5 > maxtimeout) {
X                reply(501,
X            "Maximum IDLE time must be between 30 and %d seconds",
X                    maxtimeout);
X            } else {
X                timeout = $5;
X                (void) alarm((unsigned) timeout);
X                reply(200,
X                    "Maximum IDLE time set to %d seconds",
X                    timeout);
X            }
X        }
X    |    STOU check_login SP pathname CRLF
X        = {
X            if ($2 && $4 != NULL)
X                store((char *) $4, "w", 1);
X            if ($4 != NULL)
X                free((char *) $4);
X        }
X    |    SYST CRLF
X        = {
X#ifdef unix
X#ifdef BSD
X            reply(215, "UNIX Type: L%d Version: BSD-%d",
X                NBBY, BSD);
X#else /* BSD */
X            reply(215, "UNIX Type: L%d", NBBY);
X#endif /* BSD */
X#else /* unix */
X            reply(215, "UNKNOWN Type: L%d", NBBY);
X#endif /* unix */
X        }
X
X        /*
X         * SIZE is not in RFC959, but Postel has blessed it and
X         * it will be in the updated RFC.
X         *
X         * Return size of file in a format suitable for
X         * using with RESTART (we just count bytes).
X         */
X    |    SIZE check_login SP pathname CRLF
X        = {
X            if ($2 && $4 != NULL)
X                sizecmd((char *) $4);
X            if ($4 != NULL)
X                free((char *) $4);
X        }
X
X        /*
X         * MDTM is not in RFC959, but Postel has blessed it and
X         * it will be in the updated RFC.
X         *
X         * Return modification time of file as an ISO 3307
X         * style time. E.g. YYYYMMDDHHMMSS or YYYYMMDDHHMMSS.xxx
X         * where xxx is the fractional second (of any precision,
X         * not necessarily 3 digits)
X         */
X    |    MDTM check_login SP pathname CRLF
X        = {
X            if ($2 && $4 != NULL) {
X                struct stat stbuf;
X                if (stat((char *) $4, &stbuf) < 0)
X                    perror_reply(550, "%s", (char *) $4);
X                else if ((stbuf.st_mode&S_IFMT) != S_IFREG) {
X                    reply(550, "%s: not a plain file.",
X                        (char *) $4);
X                } else {
X                    register struct tm *t;
X                    struct tm *gmtime();
X                    t = gmtime(&stbuf.st_mtime);
X                    reply(213,
X                        "19%02d%02d%02d%02d%02d%02d",
X                        t->tm_year, t->tm_mon+1, t->tm_mday,
X                        t->tm_hour, t->tm_min, t->tm_sec);
X                }
X            }
X            if ($4 != NULL)
X                free((char *) $4);
X        }
X    |    QUIT CRLF
X        = {
X            reply(221, "Goodbye.");
X            dologout(0);
X        }
X    |    error CRLF
X        = {
X            yyerrok;
X        }
X    ;
Xrcmd:        RNFR check_login SP pathname CRLF
X        = {
X            char *renamefrom();
X
X            if ($2 && $4) {
X                fromname = renamefrom((char *) $4);
X                if (fromname == (char *) 0 && $4) {
X                    free((char *) $4);
X                }
X            }
X        }
X    ;
X
Xusername:    STRING
X    ;
X
Xpassword:    /* empty */
X        = {
X            *(char **)&($$) = "";
X        }
X    |    STRING
X    ;
X
Xbyte_size:    NUMBER
X    ;
X
Xhost_port:    NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA
X        NUMBER COMMA NUMBER
X        = {
X            register char *a, *p;
X
X            a = (char *)&data_dest.sin_addr;
X            a[0] = $1; a[1] = $3; a[2] = $5; a[3] = $7;
X            p = (char *)&data_dest.sin_port;
X            p[0] = $9; p[1] = $11;
X            data_dest.sin_family = AF_INET;
X        }
X    ;
X
Xform_code:    N
X    = {
X        $$ = FORM_N;
X    }
X    |    T
X    = {
X        $$ = FORM_T;
X    }
X    |    C
X    = {
X        $$ = FORM_C;
X    }
X    ;
X
Xtype_code:    A
X    = {
X        cmd_type = TYPE_A;
X        cmd_form = FORM_N;
X    }
X    |    A SP form_code
X    = {
X        cmd_type = TYPE_A;
X        cmd_form = $3;
X    }
X    |    E
X    = {
X        cmd_type = TYPE_E;
X        cmd_form = FORM_N;
X    }
X    |    E SP form_code
X    = {
X        cmd_type = TYPE_E;
X        cmd_form = $3;
X    }
X    |    I
X    = {
X        cmd_type = TYPE_I;
X    }
X    |    L
X    = {
X        cmd_type = TYPE_L;
X        cmd_bytesz = NBBY;
X    }
X    |    L SP byte_size
X    = {
X        cmd_type = TYPE_L;
X        cmd_bytesz = $3;
X    }
X    /* this is for a bug in the BBN ftp */
X    |    L byte_size
X    = {
X        cmd_type = TYPE_L;
X        cmd_bytesz = $2;
X    }
X    ;
X
Xstruct_code:    F
X    = {
X        $$ = STRU_F;
X    }
X    |    R
X    = {
X        $$ = STRU_R;
X    }
X    |    P
X    = {
X        $$ = STRU_P;
X    }
X    ;
X
Xmode_code:    S
X    = {
X        $$ = MODE_S;
X    }
X    |    B
X    = {
X        $$ = MODE_B;
X    }
X    |    C
X    = {
X        $$ = MODE_C;
X    }
X    ;
X
Xpathname:    pathstring
X    = {
X        /*
X         * Problem: this production is used for all pathname
X         * processing, but only gives a 550 error reply.
X         * This is a valid reply in some cases but not in others.
X         */
X        if (logged_in && $1 && strncmp((char *) $1, "~", 1) == 0) {
X            *(char **)&($$) = *glob((char *) $1);
X            if (globerr != NULL) {
X                reply(550, globerr);
X                $$ = NULL;
X            }
X            free((char *) $1);
X        } else
X            $$ = $1;
X    }
X    ;
X
Xpathstring:    STRING
X    ;
X
Xoctal_number:    NUMBER
X    = {
X        register int ret, dec, multby, digit;
X
X        /*
X         * Convert a number that was read as decimal number
X         * to what it would be if it had been read as octal.
X         */
X        dec = $1;
X        multby = 1;
X        ret = 0;
X        while (dec) {
X            digit = dec%10;
X            if (digit > 7) {
X                ret = -1;
X                break;
X            }
X            ret += digit * multby;
X            multby *= 8;
X            dec /= 10;
X        }
X        $$ = ret;
X    }
X    ;
X
Xcheck_login:    /* empty */
X    = {
X        if (logged_in)
X            $$ = 1;
X        else {
X            reply(530, "Please login with USER and PASS.");
X            $$ = 0;
X        }
X    }
X    ;
X
X%%
X
Xextern jmp_buf errcatch;
X
X#define    CMD    0    /* beginning of command */
X#define    ARGS    1    /* expect miscellaneous arguments */
X#define    STR1    2    /* expect SP followed by STRING */
X#define    STR2    3    /* expect STRING */
X#define    OSTR    4    /* optional SP then STRING */
X#define    ZSTR1    5    /* SP then optional STRING */
X#define    ZSTR2    6    /* optional STRING after SP */
X#define    SITECMD    7    /* SITE command */
X#define    NSTR    8    /* Number followed by a string */
X
Xstruct tab {
X    char    *name;
X    short    token;
X    short    state;
X    short    implemented;    /* 1 if command is implemented */
X    char    *help;
X};
X
Xstruct tab cmdtab[] = {        /* In order defined in RFC 765 */
X    { "USER", USER, STR1, 1,    "<sp> username" },
X    { "PASS", PASS, ZSTR1, 1,    "<sp> password" },
X    { "ACCT", ACCT, STR1, 0,    "(specify account)" },
X    { "SMNT", SMNT, ARGS, 0,    "(structure mount)" },
X    { "REIN", REIN, ARGS, 0,    "(reinitialize server state)" },
X    { "QUIT", QUIT, ARGS, 1,    "(terminate service)", },
X    { "PORT", PORT, ARGS, 1,    "<sp> b0, b1, b2, b3, b4" },
X    { "PASV", PASV, ARGS, 1,    "(set server in passive mode)" },
X    { "TYPE", TYPE, ARGS, 1,    "<sp> [ A | E | I | L ]" },
X    { "STRU", STRU, ARGS, 1,    "(specify file structure)" },
X    { "MODE", MODE, ARGS, 1,    "(specify transfer mode)" },
X    { "RETR", RETR, STR1, 1,    "<sp> file-name" },
X    { "STOR", STOR, STR1, 1,    "<sp> file-name" },
X    { "APPE", APPE, STR1, 1,    "<sp> file-name" },
X    { "MLFL", MLFL, OSTR, 0,    "(mail file)" },
X    { "MAIL", MAIL, OSTR, 0,    "(mail to user)" },
X    { "MSND", MSND, OSTR, 0,    "(mail send to terminal)" },
X    { "MSOM", MSOM, OSTR, 0,    "(mail send to terminal or mailbox)" },
X    { "MSAM", MSAM, OSTR, 0,    "(mail send to terminal and mailbox)" },
X    { "MRSQ", MRSQ, OSTR, 0,    "(mail recipient scheme question)" },
X    { "MRCP", MRCP, STR1, 0,    "(mail recipient)" },
X    { "ALLO", ALLO, ARGS, 1,    "allocate storage (vacuously)" },
X    { "REST", REST, ARGS, 0,    "(restart command)" },
X    { "RNFR", RNFR, STR1, 1,    "<sp> file-name" },
X    { "RNTO", RNTO, STR1, 1,    "<sp> file-name" },
X    { "ABOR", ABOR, ARGS, 1,    "(abort operation)" },
X    { "DELE", DELE, STR1, 1,    "<sp> file-name" },
X    { "CWD",  CWD,  OSTR, 1,    "[ <sp> directory-name ]" },
X    { "XCWD", CWD,    OSTR, 1,    "[ <sp> directory-name ]" },
X    { "LIST", LIST, OSTR, 1,    "[ <sp> path-name ]" },
X    { "NLST", NLST, OSTR, 1,    "[ <sp> path-name ]" },
X    { "SITE", SITE, SITECMD, 1,    "site-cmd [ <sp> arguments ]" },
X    { "SYST", SYST, ARGS, 1,    "(get type of operating system)" },
X    { "STAT", STAT, OSTR, 1,    "[ <sp> path-name ]" },
X    { "HELP", HELP, OSTR, 1,    "[ <sp> <string> ]" },
X    { "NOOP", NOOP, ARGS, 1,    "" },
X    { "MKD",  MKD,  STR1, 1,    "<sp> path-name" },
X    { "XMKD", MKD,  STR1, 1,    "<sp> path-name" },
X    { "RMD",  RMD,  STR1, 1,    "<sp> path-name" },
X    { "XRMD", RMD,  STR1, 1,    "<sp> path-name" },
X    { "PWD",  PWD,  ARGS, 1,    "(return current directory)" },
X    { "XPWD", PWD,  ARGS, 1,    "(return current directory)" },
X    { "CDUP", CDUP, ARGS, 1,    "(change to parent directory)" },
X    { "XCUP", CDUP, ARGS, 1,    "(change to parent directory)" },
X    { "STOU", STOU, STR1, 1,    "<sp> file-name" },
X    { "SIZE", SIZE, OSTR, 1,    "<sp> path-name" },
X    { "MDTM", MDTM, OSTR, 1,    "<sp> path-name" },
X    { NULL,   0,    0,    0,    0 }
X};
X
Xstruct tab sitetab[] = {
X    { "UMASK", UMASK, ARGS, 1,    "[ <sp> umask ]" },
X    { "IDLE", IDLE, ARGS, 1,    "[ <sp> maximum-idle-time ]" },
X    { "CHMOD", CHMOD, NSTR, 1,    "<sp> mode <sp> file-name" },
X    { "HELP", HELP, OSTR, 1,    "[ <sp> <string> ]" },
X    { NULL,   0,    0,    0,    0 }
X};
X
Xstruct tab *
Xlookup(p, cmd)
X    register struct tab *p;
X    char *cmd;
X{
X
X    for (; p->name != NULL; p++)
X        if (strcmp(cmd, p->name) == 0)
X            return (p);
X    return (0);
X}
X
X#include <arpa/telnet.h>
X
X/*
X * getline - a hacked up version of fgets to ignore TELNET escape codes.
X */
Xchar *
Xgetline(s, n, iop)
X    char *s;
X    register FILE *iop;
X{
X    register c;
X    register char *cs;
X
X    cs = s;
X/* tmpline may contain saved command from urgent mode interruption */
X    for (c = 0; tmpline[c] != '\0' && --n > 0; ++c) {
X        *cs++ = tmpline[c];
X        if (tmpline[c] == '\n') {
X            *cs++ = '\0';
X            if (debug)
X                syslog(LOG_DEBUG, "command: %s", s);
X            tmpline[0] = '\0';
X            return(s);
X        }
X        if (c == 0)
X            tmpline[0] = '\0';
X    }
X    while ((c = getc(iop)) != EOF) {
X        c &= 0377;
X        if (c == IAC) {
X            if ((c = getc(iop)) != EOF) {
X            c &= 0377;
X            switch (c) {
X            case WILL:
X            case WONT:
X                c = getc(iop);
X                printf("%c%c%c", IAC, DONT, 0377&c);
X                (void) fflush(stdout);
X                continue;
X            case DO:
X            case DONT:
X                c = getc(iop);
X                printf("%c%c%c", IAC, WONT, 0377&c);
X                (void) fflush(stdout);
X                continue;
X            case IAC:
X                break;
X            default:
X                continue;    /* ignore command */
X            }
X            }
X        }
X        *cs++ = c;
X        if (--n <= 0 || c == '\n')
X            break;
X    }
X    if (c == EOF && cs == s)
X        return (NULL);
X    *cs++ = '\0';
X    if (debug)
X        syslog(LOG_DEBUG, "command: %s", s);
X    return (s);
X}
X
Xstatic int
Xtoolong()
X{
X    time_t now;
X    extern char *ctime();
X    extern time_t time();
X
X    reply(421,
X      "Timeout (%d seconds): closing control connection.", timeout);
X    (void) time(&now);
X    if (logging) {
X        syslog(LOG_INFO,
X            "User %s timed out after %d seconds at %s",
X            (pw ? pw -> pw_name : "unknown"), timeout, ctime(&now));
X    }
X    dologout(1);
X}
X
Xyylex()
X{
X    static int cpos, state;
X    register char *cp, *cp2;
X    register struct tab *p;
X    int n;
X    char c, *strpbrk();
X    char *copy();
X
X    for (;;) {
X        switch (state) {
X
X        case CMD:
X            (void) signal(SIGALRM, toolong);
X            (void) alarm((unsigned) timeout);
X            if (getline(cbuf, sizeof(cbuf)-1, stdin) == NULL) {
X                reply(221, "You could at least say goodbye.");
X                dologout(0);
X            }
X            (void) alarm(0);
X#ifdef SETPROCTITLE
X            if (strncasecmp(cbuf, "PASS", 4) != NULL)
X                setproctitle("%s: %s", proctitle, cbuf);
X#endif /* SETPROCTITLE */
X            if ((cp = index(cbuf, '\r'))) {
X                *cp++ = '\n';
X                *cp = '\0';
X            }
X            if ((cp = strpbrk(cbuf, " \n")))
X                cpos = cp - cbuf;
X            if (cpos == 0)
X                cpos = 4;
X            c = cbuf[cpos];
X            cbuf[cpos] = '\0';
X            upper(cbuf);
X            p = lookup(cmdtab, cbuf);
X            cbuf[cpos] = c;
X            if (p != 0) {
X                if (p->implemented == 0) {
X                    nack(p->name);
X                    longjmp(errcatch,0);
X                    /* NOTREACHED */
X                }
X                state = p->state;
X                *(char **)&yylval = p->name;
X                return (p->token);
X            }
X            break;
X
X        case SITECMD:
X            if (cbuf[cpos] == ' ') {
X                cpos++;
X                return (SP);
X            }
X            cp = &cbuf[cpos];
X            if ((cp2 = strpbrk(cp, " \n")))
X                cpos = cp2 - cbuf;
X            c = cbuf[cpos];
X            cbuf[cpos] = '\0';
X            upper(cp);
X            p = lookup(sitetab, cp);
X            cbuf[cpos] = c;
X            if (p != 0) {
X                if (p->implemented == 0) {
X                    state = CMD;
X                    nack(p->name);
X                    longjmp(errcatch,0);
X                    /* NOTREACHED */
X                }
X                state = p->state;
X                *(char **)&yylval = p->name;
X                return (p->token);
X            }
X            state = CMD;
X            break;
X
X        case OSTR:
X            if (cbuf[cpos] == '\n') {
X                state = CMD;
X                return (CRLF);
X            }
X            /* FALLTHROUGH */
X
X        case STR1:
X        case ZSTR1:
X        dostr1:
X            if (cbuf[cpos] == ' ') {
X                cpos++;
X                state = state == OSTR ? STR2 : ++state;
X                return (SP);
X            }
X            break;
X
X        case ZSTR2:
X            if (cbuf[cpos] == '\n') {
X                state = CMD;
X                return (CRLF);
X            }
X            /* FALLTHROUGH */
X
X        case STR2:
X            cp = &cbuf[cpos];
X            n = strlen(cp);
X            cpos += n - 1;
X            /*
X             * Make sure the string is nonempty and \n terminated.
X             */
X            if (n > 1 && cbuf[cpos] == '\n') {
X                cbuf[cpos] = '\0';
X                *(char **)&yylval = copy(cp);
X                cbuf[cpos] = '\n';
X                state = ARGS;
X                return (STRING);
X            }
X            break;
X
X        case NSTR:
X            if (cbuf[cpos] == ' ') {
X                cpos++;
X                return (SP);
X            }
X            if (isdigit(cbuf[cpos])) {
X                cp = &cbuf[cpos];
X                while (isdigit(cbuf[++cpos]))
X                    ;
X                c = cbuf[cpos];
X                cbuf[cpos] = '\0';
X                yylval = atoi(cp);
X                cbuf[cpos] = c;
X                state = STR1;
X                return (NUMBER);
X            }
X            state = STR1;
X            goto dostr1;
X
X        case ARGS:
X            if (isdigit(cbuf[cpos])) {
X                cp = &cbuf[cpos];
X                while (isdigit(cbuf[++cpos]))
X                    ;
X                c = cbuf[cpos];
X                cbuf[cpos] = '\0';
X                yylval = atoi(cp);
X                cbuf[cpos] = c;
X                return (NUMBER);
X            }
X            switch (cbuf[cpos++]) {
X
X            case '\n':
X                state = CMD;
X                return (CRLF);
X
X            case ' ':
X                return (SP);
X
X            case ',':
X                return (COMMA);
X
X            case 'A':
X            case 'a':
X                return (A);
X
X            case 'B':
X            case 'b':
X                return (B);
X
X            case 'C':
X            case 'c':
X                return (C);
X
X            case 'E':
X            case 'e':
X                return (E);
X
X            case 'F':
X            case 'f':
X                return (F);
X
X            case 'I':
X            case 'i':
X                return (I);
X
X            case 'L':
X            case 'l':
X                return (L);
X
X            case 'N':
X            case 'n':
X                return (N);
X
X            case 'P':
X            case 'p':
X                return (P);
X
X            case 'R':
X            case 'r':
X                return (R);
X
X            case 'S':
X            case 's':
X                return (S);
X
X            case 'T':
X            case 't':
X                return (T);
X
X            }
X            break;
X
X        default:
X            fatal("Unknown state in scanner.");
X        }
X        yyerror((char *) 0);
X        state = CMD;
X        longjmp(errcatch,0);
X    }
X}
X
Xupper(s)
X    register char *s;
X{
X    while (*s != '\0') {
X        if (islower(*s))
X            *s = toupper(*s);
X        s++;
X    }
X}
X
Xchar *
Xcopy(s)
X    char *s;
X{
X    char *p;
X    extern char *malloc(), *strcpy();
X
X    p = malloc((unsigned) strlen(s) + 1);
X    if (p == NULL)
X        fatal("Ran out of memory.");
X    (void) strcpy(p, s);
X    return (p);
X}
X
Xhelp(ctab, s)
X    struct tab *ctab;
X    char *s;
X{
X    register struct tab *c;
X    register int width, NCMDS;
X    char *type;
X
X    if (ctab == sitetab)
X        type = "SITE ";
X    else
X        type = "";
X    width = 0, NCMDS = 0;
X    for (c = ctab; c->name != NULL; c++) {
X        int len = strlen(c->name);
X
X        if (len > width)
X            width = len;
X        NCMDS++;
X    }
X    width = (width + 8) &~ 7;
X    if (s == 0) {
X        register int i, j, w;
X        int columns, lines;
X
X        lreply(214, "The following %scommands are recognized %s.",
X            type, "(* =>'s unimplemented)");
X        columns = 76 / width;
X        if (columns == 0)
X            columns = 1;
X        lines = (NCMDS + columns - 1) / columns;
X        for (i = 0; i < lines; i++) {
X            printf("   ");
X            for (j = 0; j < columns; j++) {
X                c = ctab + j * lines + i;
X                printf("%s%c", c->name,
X                    c->implemented ? ' ' : '*');
X                if (c + lines >= &ctab[NCMDS])
X                    break;
X                w = strlen(c->name) + 1;
X                while (w < width) {
X                    putchar(' ');
X                    w++;
X                }
X            }
X            printf("\r\n");
X        }
X        (void) fflush(stdout);
X        reply(214, "Direct comments to ftp-bugs@%s.", hostname);
X        return;
X    }
X    upper(s);
X    c = lookup(ctab, s);
X    if (c == (struct tab *)0) {
X        reply(502, "Unknown command %s.", s);
X        return;
X    }
X    if (c->implemented)
X        reply(214, "Syntax: %s%s %s", type, c->name, c->help);
X    else
X        reply(214, "%s%-*s\t%s; unimplemented.", type, width,
X            c->name, c->help);
X}
X
Xsizecmd(filename)
Xchar *filename;
X{
X    switch (type) {
X    case TYPE_L:
X    case TYPE_I: {
X        struct stat stbuf;
X        if (stat(filename, &stbuf) < 0 ||
X            (stbuf.st_mode&S_IFMT) != S_IFREG)
X            reply(550, "%s: not a plain file.", filename);
X        else
X            reply(213, "%lu", stbuf.st_size);
X        break;}
X    case TYPE_A: {
X        FILE *fin;
X        register int c, count;
X        struct stat stbuf;
X        fin = fopen(filename, "r");
X        if (fin == NULL) {
X            perror_reply(550, filename);
X            return;
X        }
X        if (fstat(fileno(fin), &stbuf) < 0 ||
X            (stbuf.st_mode&S_IFMT) != S_IFREG) {
X            reply(550, "%s: not a plain file.", filename);
X            (void) fclose(fin);
X            return;
X        }
X
X        count = 0;
X        while((c=getc(fin)) != EOF) {
X            if (c == '\n')    /* will get expanded to \r\n */
X                count++;
X            count++;
X        }
X        (void) fclose(fin);
X
X        reply(213, "%ld", count);
X        break;}
X    default:
X        reply(504, "SIZE not implemented for Type %c.", "?AEIL"[type]);
X    }
X}
END_OF_FILE
if test 22998 -ne `wc -c <'test/ftp.y'`; then
    echo shar: \"'test/ftp.y'\" unpacked with wrong size!
fi
# end of 'test/ftp.y'
fi
echo shar: End of archive 2 \(of 3\).
cp /dev/null ark2isdone
MISSING=""
for I in 1 2 3 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 3 archives.
    rm -f ark[1-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0