BSD 4_4 release

[unix-history] / usr / src / usr.bin / rdist / gram.y

diff --git a/usr/src/usr.bin/rdist/gram.y b/usr/src/usr.bin/rdist/gram.y
index 0920c64..7f40f87 100644 (file)
--- a/usr/src/usr.bin/rdist/gram.y
+++ b/usr/src/usr.bin/rdist/gram.y
@@ -1,7 +1,40 @@
 %{
 %{

+/*
+ * Copyright (c) 1983, 1993
+ *     The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+

 #ifndef lint
 #ifndef lint

-static char *sccsid = "@(#)gram.y      4.8 (Berkeley) 84/02/09";
-#endif
+static char sccsid[] = "@(#)gram.y     8.1 (Berkeley) 6/9/93";
+#endif /* not lint */

 
 #include "defs.h"
 
 
 #include "defs.h"
 


@@ -10,6 +43,8 @@ struct        cmd *last_cmd;
 struct namelist *last_n;
 struct subcmd *last_sc;
 
 struct namelist *last_n;
 struct subcmd *last_sc;
 

+static char  *makestr __P((char *));
+

 %}
 
 %term EQUAL    1
 %}
 
 %term EQUAL    1


@@ -17,14 +52,16 @@ struct      subcmd *last_sc;
 %term RP       3
 %term SM       4
 %term ARROW    5
 %term RP       3
 %term SM       4
 %term ARROW    5

-%term DCOLON   6
-%term NAME     7
-%term STRING   8
-%term INSTALL  9
-%term NOTIFY   10
-%term EXCEPT   11
-%term SPECIAL  12
-%term OPTION   13
+%term COLON    6
+%term DCOLON   7
+%term NAME     8
+%term STRING   9
+%term INSTALL  10
+%term NOTIFY   11
+%term EXCEPT   12
+%term PATTERN  13
+%term SPECIAL  14
+%term OPTION   15

 
 %union {
        int intval;
 
 %union {
        int intval;


@@ -35,7 +72,7 @@ struct        subcmd *last_sc;
 
 %type <intval> OPTION, options
 %type <string> NAME, STRING
 
 %type <intval> OPTION, options
 %type <string> NAME, STRING

-%type <subcmd> INSTALL, NOTIFY, EXCEPT, SPECIAL, cmdlist, cmd
+%type <subcmd> INSTALL, NOTIFY, EXCEPT, PATTERN, SPECIAL, cmdlist, cmd

 %type <namel> namelist, names, opt_namelist
 
 %%
 %type <namel> namelist, names, opt_namelist
 
 %%


@@ -48,10 +85,16 @@ command:      NAME EQUAL namelist = {
                        (void) lookup($1, INSERT, $3);
                }
                | namelist ARROW namelist cmdlist = {
                        (void) lookup($1, INSERT, $3);
                }
                | namelist ARROW namelist cmdlist = {

-                       insert($1, $3, $4);
+                       insert(NULL, $1, $3, $4);
+               }
+               | NAME COLON namelist ARROW namelist cmdlist = {
+                       insert($1, $3, $5, $6);

                }
                | namelist DCOLON NAME cmdlist = {
                }
                | namelist DCOLON NAME cmdlist = {

-                       append($1, $3, $4);
+                       append(NULL, $1, $3, $4);
+               }
+               | NAME COLON namelist DCOLON NAME cmdlist = {
+                       append($1, $3, $5, $6);

                }
                | error
                ;
                }
                | error
                ;


@@ -98,10 +141,13 @@ cmd:                 INSTALL options opt_namelist SM = {
                        $1->sc_options = $2 | options;
                        if ($3 != NULL) {
                                nl = expand($3, E_VARS);
                        $1->sc_options = $2 | options;
                        if ($3 != NULL) {
                                nl = expand($3, E_VARS);

-                               if (nl->n_next != NULL)
-                                       yyerror("only one name allowed\n");
-                               $1->sc_name = nl->n_name;
-                               free(nl);
+                               if (nl) {
+                                       if (nl->n_next != NULL)
+                                           yyerror("only one name allowed\n");
+                                       $1->sc_name = nl->n_name;
+                                       free(nl);
+                               } else
+                                       $1->sc_name = NULL;

                        }
                        $$ = $1;
                }
                        }
                        $$ = $1;
                }


@@ -115,6 +161,16 @@ cmd:                 INSTALL options opt_namelist SM = {
                                $1->sc_args = expand($2, E_ALL);
                        $$ = $1;
                }
                                $1->sc_args = expand($2, E_ALL);
                        $$ = $1;
                }

+               | PATTERN namelist SM = {
+                       struct namelist *nl;
+                       char *cp, *re_comp();
+
+                       for (nl = $2; nl != NULL; nl = nl->n_next)
+                               if ((cp = re_comp(nl->n_name)) != NULL)
+                                       yyerror(cp);
+                       $1->sc_args = expand($2, E_VARS);
+                       $$ = $1;
+               }

                | SPECIAL opt_namelist STRING SM = {
                        if ($2 != NULL)
                                $1->sc_args = expand($2, E_ALL);
                | SPECIAL opt_namelist STRING SM = {
                        if ($2 != NULL)
                                $1->sc_args = expand($2, E_ALL);


@@ -144,6 +200,7 @@ opt_namelist:         /* VOID */ = {
 int    yylineno = 1;
 extern FILE *fin;
 
 int    yylineno = 1;
 extern FILE *fin;
 

+int

 yylex()
 {
        static char yytext[INMAX];
 yylex()
 {
        static char yytext[INMAX];


@@ -203,8 +260,10 @@ again:
                                        break;
                                }
                        }
                                        break;
                                }
                        }

-                       if (c == '\n')
+                       if (c == '\n') {
+                               yylineno++;

                                c = ' '; /* can't send '\n' */
                                c = ' '; /* can't send '\n' */

+                       }

                        *cp1++ = c;
                }
                if (c != '"')
                        *cp1++ = c;
                }
                if (c != '"')


@@ -213,11 +272,11 @@ again:
                yylval.string = makestr(yytext);
                return(STRING);
 
                yylval.string = makestr(yytext);
                return(STRING);
 

-       case ':':  /* :: */
+       case ':':  /* : or :: */

                if ((c = getc(fin)) == ':')
                        return(DCOLON);
                ungetc(c, fin);
                if ((c = getc(fin)) == ':')
                        return(DCOLON);
                ungetc(c, fin);

-               c = ':';
+               return(COLON);

        }
        cp1 = yytext;
        cp2 = &yytext[INMAX - 1];
        }
        cp1 = yytext;
        cp2 = &yytext[INMAX - 1];


@@ -237,7 +296,7 @@ again:
                }
                *cp1++ = c;
                c = getc(fin);
                }
                *cp1++ = c;
                c = getc(fin);

-               if (c == EOF || any(c, " \t()=;\n")) {
+               if (c == EOF || any(c, " \"'\t()=;:\n")) {

                        ungetc(c, fin);
                        break;
                }
                        ungetc(c, fin);
                        break;
                }


@@ -264,6 +323,14 @@ again:
                case 'y':
                        yylval.intval = YOUNGER;
                        return(OPTION);
                case 'y':
                        yylval.intval = YOUNGER;
                        return(OPTION);

+
+               case 'h':
+                       yylval.intval = FOLLOW;
+                       return(OPTION);
+
+               case 'i':
+                       yylval.intval = IGNLNKS;
+                       return(OPTION);

                }
        }
        if (!strcmp(yytext, "install"))
                }
        }
        if (!strcmp(yytext, "install"))


@@ -272,6 +339,8 @@ again:
                c = NOTIFY;
        else if (!strcmp(yytext, "except"))
                c = EXCEPT;
                c = NOTIFY;
        else if (!strcmp(yytext, "except"))
                c = EXCEPT;

+       else if (!strcmp(yytext, "except_pat"))
+               c = PATTERN;

        else if (!strcmp(yytext, "special"))
                c = SPECIAL;
        else {
        else if (!strcmp(yytext, "special"))
                c = SPECIAL;
        else {


@@ -282,6 +351,7 @@ again:
        return(c);
 }
 
        return(c);
 }
 

+int

 any(c, str)
        register int c;
        register char *str;
 any(c, str)
        register int c;
        register char *str;


@@ -295,7 +365,9 @@ any(c, str)
 /*
  * Insert or append ARROW command to list of hosts to be updated.
  */
 /*
  * Insert or append ARROW command to list of hosts to be updated.
  */

-insert(files, hosts, subcmds)
+void
+insert(label, files, hosts, subcmds)
+       char *label;

        struct namelist *files, *hosts;
        struct subcmd *subcmds;
 {
        struct namelist *files, *hosts;
        struct subcmd *subcmds;
 {


@@ -326,6 +398,7 @@ insert(files, hosts, subcmds)
                        fatal("ran out of memory\n");
                nc->c_type = ARROW;
                nc->c_name = h->n_name;
                        fatal("ran out of memory\n");
                nc->c_type = ARROW;
                nc->c_name = h->n_name;

+               nc->c_label = label;

                nc->c_files = files;
                nc->c_cmds = subcmds;
                nc->c_next = c;
                nc->c_files = files;
                nc->c_cmds = subcmds;
                nc->c_next = c;


@@ -343,7 +416,9 @@ insert(files, hosts, subcmds)
  * Append DCOLON command to the end of the command list since these are always
  * executed in the order they appear in the distfile.
  */
  * Append DCOLON command to the end of the command list since these are always
  * executed in the order they appear in the distfile.
  */

-append(files, stamp, subcmds)
+void
+append(label, files, stamp, subcmds)
+       char *label;

        struct namelist *files;
        char *stamp;
        struct subcmd *subcmds;
        struct namelist *files;
        char *stamp;
        struct subcmd *subcmds;


@@ -355,6 +430,7 @@ append(files, stamp, subcmds)
                fatal("ran out of memory\n");
        c->c_type = DCOLON;
        c->c_name = stamp;
                fatal("ran out of memory\n");
        c->c_type = DCOLON;
        c->c_name = stamp;

+       c->c_label = label;

        c->c_files = expand(files, E_ALL);
        c->c_cmds = subcmds;
        c->c_next = NULL;
        c->c_files = expand(files, E_ALL);
        c->c_cmds = subcmds;
        c->c_next = NULL;


@@ -369,12 +445,11 @@ append(files, stamp, subcmds)
 /*
  * Error printing routine in parser.
  */
 /*
  * Error printing routine in parser.
  */

+void

 yyerror(s)
        char *s;
 {
 yyerror(s)
        char *s;
 {

-       extern int yychar;
-
-       nerrs++;
+       ++nerrs;

        fflush(stdout);
        fprintf(stderr, "rdist: line %d: %s\n", yylineno, s);
 }
        fflush(stdout);
        fprintf(stderr, "rdist: line %d: %s\n", yylineno, s);
 }


@@ -382,7 +457,7 @@ yyerror(s)
 /*
  * Return a copy of the string.
  */
 /*
  * Return a copy of the string.
  */

-char *
+static char *

 makestr(str)
        char *str;
 {
 makestr(str)
        char *str;
 {


@@ -417,11 +492,9 @@ makenl(name)
  * Make a sub command for lists of variables, commands, etc.
  */
 struct subcmd *
  * Make a sub command for lists of variables, commands, etc.
  */
 struct subcmd *

-makesubcmd(type, name)
+makesubcmd(type)

        int type;
        int type;

-       register char *name;

 {
 {

-       register char *cp;

        register struct subcmd *sc;
 
        sc = ALLOC(subcmd);
        register struct subcmd *sc;
 
        sc = ALLOC(subcmd);