projects / unix-history / blobdiff
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
BSD 4_4 release
[unix-history] / usr / src / old / dbx / commands.y
diff --git a/usr/src/old/dbx/commands.y b/usr/src/old/dbx/commands.y
index 36f518d..9b48a61 100644 (file)
--- a/usr/src/old/dbx/commands.y
+++ b/usr/src/old/dbx/commands.y
@@ -1,10 +1,41 @@
 %{
 
 %{
 
-/* Copyright (c) 1982 Regents of the University of California */
-
-static char sccsid[] = "@(#)commands.y 1.9 8/17/83";
+/*
+ * Copyright (c) 1983 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.
+ */
 
 
-static char rcsid[] = "$Header: commands.y,v 1.3 84/03/27 10:19:59 linton Exp $";
+#ifndef lint
+static char sccsid[] = "@(#)commands.y 5.6 (Berkeley) 6/1/90";
+#endif /* not lint */
 
 /*
  * Yacc grammar for debugger commands.
 
 /*
  * Yacc grammar for debugger commands.
@@ -17,6 +48,7 @@ static char rcsid[] = "$Header: commands.y,v 1.3 84/03/27 10:19:59 linton Exp $"
 #include "process.h"
 #include "source.h"
 #include "scanner.h"
 #include "process.h"
 #include "source.h"
 #include "scanner.h"
+#include "keywords.h"
 #include "names.h"
 #include "lists.h"
 
 #include "names.h"
 #include "lists.h"
 
@@ -27,12 +59,12 @@ private String curformat = "X";
 %term
     ALIAS AND ASSIGN AT CALL CATCH CONT DEBUG DELETE DIV DOWN DUMP
     EDIT FILE FUNC GRIPE HELP IF IGNORE IN LIST MOD NEXT NEXTI NIL NOT OR
 %term
     ALIAS AND ASSIGN AT CALL CATCH CONT DEBUG DELETE DIV DOWN DUMP
     EDIT FILE FUNC GRIPE HELP IF IGNORE IN LIST MOD NEXT NEXTI NIL NOT OR
-    PRINT PSYM QUIT RERUN RETURN RUN SH SKIP SOURCE STATUS STEP STEPI
-    STOP STOPI TRACE TRACEI UP
-    USE WHATIS WHEN WHERE WHEREIS WHICH
+    PRINT PSYM QUIT RERUN RETURN RUN SET SH SKIP SOURCE STATUS STEP STEPI
+    STOP STOPI TRACE TRACEI UNALIAS UNSET UP USE
+    WHATIS WHEN WHERE WHEREIS WHICH
 
 
-%term INT REAL NAME STRING
-%term LFORMER RFORMER ABSTRACTION ARROW
+%term INT CHAR REAL NAME STRING
+%term ARROW
 
 %right INT
 %binary REDIRECT
 
 %right INT
 %binary REDIRECT
@@ -40,8 +72,8 @@ private String curformat = "X";
 %left '+' '-' OR
 %left UNARYSIGN
 %left '*' '/' DIV MOD AND
 %left '+' '-' OR
 %left UNARYSIGN
 %left '*' '/' DIV MOD AND
-%left NOT '(' '[' '.' '^' ARROW
 %left '\\'
 %left '\\'
+%left NOT '(' '[' '.' '^' ARROW
 
 %union {
     Name y_name;
 
 %union {
     Name y_name;
@@ -50,6 +82,7 @@ private String curformat = "X";
     Integer y_int;
     Operator y_op;
     long y_long;
     Integer y_int;
     Operator y_op;
     long y_long;
+    char y_char;
     double y_real;
     String y_string;
     Boolean y_bool;
     double y_real;
     String y_string;
     Boolean y_bool;
@@ -58,25 +91,25 @@ private String curformat = "X";
 };
 
 %type <y_op>       trace stop
 };
 
 %type <y_op>       trace stop
-%type <y_long>     INT count
+%type <y_long>     INT count signal
+%type <y_char>     CHAR
 %type <y_real>     REAL
 %type <y_string>    STRING redirectout filename opt_filename mode
 %type <y_name>     ALIAS AND ASSIGN AT CALL CATCH CONT
 %type <y_name>     DEBUG DELETE DIV DOWN DUMP
 %type <y_name>     EDIT FILE FUNC GRIPE HELP IF IGNORE IN LIST MOD
 %type <y_name>     NEXT NEXTI NIL NOT OR
 %type <y_real>     REAL
 %type <y_string>    STRING redirectout filename opt_filename mode
 %type <y_name>     ALIAS AND ASSIGN AT CALL CATCH CONT
 %type <y_name>     DEBUG DELETE DIV DOWN DUMP
 %type <y_name>     EDIT FILE FUNC GRIPE HELP IF IGNORE IN LIST MOD
 %type <y_name>     NEXT NEXTI NIL NOT OR
-%type <y_name>     PRINT PSYM QUIT RERUN RETURN RUN SH SKIP SOURCE STATUS
+%type <y_name>     PRINT PSYM QUIT RERUN RETURN RUN SET SH SKIP SOURCE STATUS
 %type <y_name>     STEP STEPI STOP STOPI TRACE TRACEI
 %type <y_name>     STEP STEPI STOP STOPI TRACE TRACEI
-%type <y_name>     UP USE WHATIS WHEN WHERE WHEREIS WHICH
+%type <y_name>     UNALIAS UNSET UP USE WHATIS WHEN WHERE WHEREIS WHICH
 %type <y_name>     name NAME keyword
 %type <y_node>      opt_qual_symbol symbol
 %type <y_node>     command rcommand cmd step what where examine
 %type <y_node>     event opt_exp_list opt_cond
 %type <y_node>     exp_list exp term boolean_exp constant address
 %type <y_node>     integer_list alias_command list_command line_number
 %type <y_name>     name NAME keyword
 %type <y_node>      opt_qual_symbol symbol
 %type <y_node>     command rcommand cmd step what where examine
 %type <y_node>     event opt_exp_list opt_cond
 %type <y_node>     exp_list exp term boolean_exp constant address
 %type <y_node>     integer_list alias_command list_command line_number
-%type <y_node>     search_command pattern
 %type <y_cmdlist>   actions
 %type <y_cmdlist>   actions
-%type <y_list>      sourcepath
+%type <y_list>      sourcepath name_list
 
 %%
 
 
 %%
 
@@ -89,6 +122,9 @@ command_nl:
     command_line '\n'
 |
     command_line ';'
     command_line '\n'
 |
     command_line ';'
+{
+       chkalias = true;
+}
 |
     '\n'
 ;
 |
     '\n'
 ;
@@ -97,8 +133,7 @@ command_line:
     command
 {
        if ($1 != nil) {
     command
 {
        if ($1 != nil) {
-            if(debug_flag[2]) {dumptree(stderr,$1); fflush (stderr);}
-           eval($1);
+           topeval($1);
        }
 }
 |
        }
 }
 |
@@ -107,12 +142,10 @@ command_line:
        if ($1 != nil) {
            if ($2 != nil) {
                setout($2);
        if ($1 != nil) {
            if ($2 != nil) {
                setout($2);
-                if(debug_flag[2]) {dumptree(stderr,$1); fflush (stderr);}
-               eval($1);
+               topeval($1);
                unsetout();
            } else {
                unsetout();
            } else {
-                if(debug_flag[2]) {dumptree(stderr,$1); fflush (stderr);}
-               eval($1);
+               topeval($1);
            }
        }
 }
            }
        }
 }
@@ -138,22 +171,27 @@ command:
        $$ = $1;
 }
 |
        $$ = $1;
 }
 |
-    ASSIGN term '=' exp
+    ASSIGN exp '=' exp
 {
 {
-       $$ = build(O_ASSIGN, $2, $4);
+       $$ = build(O_ASSIGN, unrval($2), $4);
 }
 |
 }
 |
-    CATCH INT
+    CATCH signal
 {
        $$ = build(O_CATCH, $2);
 }
 {
        $$ = build(O_CATCH, $2);
 }
+|
+    CATCH
+{
+       $$ = build(O_CATCH, 0);
+}
 |
     CONT
 {
        $$ = build(O_CONT, (long) DEFSIG);
 }
 |
 |
     CONT
 {
        $$ = build(O_CONT, (long) DEFSIG);
 }
 |
-    CONT INT
+    CONT signal
 {
        $$ = build(O_CONT, $2);
 }
 {
        $$ = build(O_CONT, $2);
 }
@@ -203,19 +241,24 @@ command:
        $$ = build(O_HELP);
 }
 |
        $$ = build(O_HELP);
 }
 |
-    IGNORE INT
+    IGNORE signal
 {
        $$ = build(O_IGNORE, $2);
 }
 {
        $$ = build(O_IGNORE, $2);
 }
+|
+    IGNORE
+{
+       $$ = build(O_IGNORE, 0);
+}
 |
     list_command
 {
        $$ = $1;
 }
 |
 |
     list_command
 {
        $$ = $1;
 }
 |
-    PSYM term
+    PSYM exp
 {
 {
-       $$ = build(O_PSYM, $2);
+       $$ = build(O_PSYM, unrval($2));
 }
 |
     QUIT
 }
 |
     QUIT
@@ -242,6 +285,21 @@ command:
        run();
        /* NOTREACHED */
 }
        run();
        /* NOTREACHED */
 }
+|
+    SET name '=' exp
+{
+       $$ = build(O_SET, build(O_NAME, $2), $4);
+}
+|
+    SET name
+{
+       $$ = build(O_SET, build(O_NAME, $2), nil);
+}
+|
+    SET
+{
+       $$ = build(O_SET, nil, nil);
+}
 |
     SH
 {
 |
     SH
 {
@@ -293,6 +351,16 @@ command:
 {
        $$ = build($1, nil, nil, $2);
 }
 {
        $$ = build($1, nil, nil, $2);
 }
+|
+    UNALIAS name
+{
+       $$ = build(O_UNALIAS, build(O_NAME, $2));
+}
+|
+    UNSET name
+{
+       $$ = build(O_UNSET, build(O_NAME, $2));
+}
 |
     UP
 {
 |
     UP
 {
@@ -322,7 +390,7 @@ command:
        }
 }
 |
        }
 }
 |
-    WHATIS term
+    WHATIS opt_qual_symbol
 {
        $$ = build(O_WHATIS, $2);
 }
 {
        $$ = build(O_WHATIS, $2);
 }
@@ -332,9 +400,9 @@ command:
        $$ = build(O_ADDEVENT, $2, $4);
 }
 |
        $$ = build(O_ADDEVENT, $2, $4);
 }
 |
-    WHEREIS symbol
+    WHEREIS name
 {
 {
-       $$ = build(O_WHEREIS, $2);
+       $$ = build(O_WHEREIS, build(O_SYM, lookup($2)));
 }
 |
     WHICH symbol
 }
 |
     WHICH symbol
@@ -342,32 +410,37 @@ command:
        $$ = build(O_WHICH, $2);
 }
 |
        $$ = build(O_WHICH, $2);
 }
 |
-    search_command
-{
-       $$ = $1;
-}
-;
-
-
-search_command:
-    '/' pattern
+    '/'
 {
 {
-       $$ = build(O_SEARCH, build(O_LCON, 1), $2);
+       $$ = build(O_SEARCH,
+           build(O_LCON, (long) '/'),
+           build(O_SCON, strdup(scanner_linebuf))
+       );
+       gobble();
+       insertinput("\n");
 }
 |
 }
 |
-    '?' pattern
+    '?'
 {
 {
-       $$ = build(O_SEARCH, build(O_LCON, 0), $2);
+       $$ = build(O_SEARCH,
+           build(O_LCON, (long) '?'),
+           build(O_SCON, strdup(scanner_linebuf))
+       );
+       gobble();
+       insertinput("\n");
 }
 ;
 }
 ;
-
-pattern:
-    STRING
+signal:
+    INT
 {
 {
-       $$ = build(O_SCON, $1);
+       $$ = $1;
+}
+|
+    name
+{
+       $$ = siglookup(ident($1));
 }
 ;
 }
 ;
-
 runcommand:
     run arglist
 |
 runcommand:
     run arglist
 |
@@ -495,17 +568,32 @@ rcommand:
 |
     CALL term '(' opt_exp_list ')'
 {
 |
     CALL term '(' opt_exp_list ')'
 {
-       $$ = build(O_CALL, $2, $4);
+       $$ = build(O_CALLPROC, $2, $4);
 }
 |
     DEBUG INT
 {
        $$ = build(O_DEBUG, $2);
 }
 }
 |
     DEBUG INT
 {
        $$ = build(O_DEBUG, $2);
 }
+|
+    DEBUG '-' INT
+{
+       $$ = build(O_DEBUG, -$3);
+}
+|
+    DUMP opt_qual_symbol
+{
+       $$ = build(O_DUMP, $2);
+}
+|
+    DUMP '.'
+{
+       $$ = build(O_DUMP, nil);
+}
 |
     DUMP
 {
 |
     DUMP
 {
-       $$ = build(O_DUMP);
+       $$ = build(O_DUMP, build(O_SYM, curfunc));
 }
 |
     STATUS
 }
 |
     STATUS
@@ -518,6 +606,19 @@ alias_command:
 {
        $$ = build(O_ALIAS, build(O_NAME, $2), build(O_NAME, $3));
 }
 {
        $$ = build(O_ALIAS, build(O_NAME, $2), build(O_NAME, $3));
 }
+|
+    ALIAS name STRING
+{
+       $$ = build(O_ALIAS, build(O_NAME, $2), build(O_SCON, $3));
+}
+|
+    ALIAS name '(' name_list ')' STRING
+{
+       $$ = build(O_ALIAS,
+           build(O_COMMA, build(O_NAME, $2), (Node) $4),
+           build(O_SCON, $6)
+       );
+}
 |
     ALIAS name
 {
 |
     ALIAS name
 {
@@ -529,6 +630,19 @@ alias_command:
        $$ = build(O_ALIAS, nil, nil);
 }
 ;
        $$ = build(O_ALIAS, nil, nil);
 }
 ;
+name_list:
+    name_list ',' name
+{
+       $$ = $1;
+       list_append(list_item($3), nil, $$);
+}
+|
+    name
+{
+       $$ = list_alloc();
+       list_append(list_item($1), nil, $$);
+}
+;
 trace:
     TRACE
 {
 trace:
     TRACE
 {
@@ -563,14 +677,14 @@ what:
 }
 ;
 where:
 }
 ;
 where:
-    IN term
+    IN exp
 {
 {
-       $$ = $2;
+       $$ = unrval($2);
 }
 |
     AT line_number
 {
 }
 |
     AT line_number
 {
-       $$ = build(O_QLINE, build(O_SCON, cursource), $2);
+       $$ = build(O_QLINE, build(O_SCON, strdup(cursource)), $2);
 }
 |
     AT STRING ':' line_number
 }
 |
     AT STRING ':' line_number
@@ -611,7 +725,7 @@ list_command:
 {
        $$ = build(O_LIST,
            build(O_LCON, (long) cursrcline),
 {
        $$ = build(O_LIST,
            build(O_LCON, (long) cursrcline),
-           build(O_LCON, (long) cursrcline + 9)
+           build(O_LCON, (long) cursrcline + srcwindowlen() - 1)
        );
 }
 |
        );
 }
 |
@@ -627,7 +741,7 @@ list_command:
 |
     LIST opt_qual_symbol
 {
 |
     LIST opt_qual_symbol
 {
-       $$ = build(O_LIST, $2);
+       $$ = build(O_LIST, $2, $2);
 }
 ;
 integer_list:
 }
 ;
 integer_list:
@@ -662,11 +776,6 @@ examine:
 {
        $$ = build(O_EXAMINE, $5, $1, $3, 0);
 }
 {
        $$ = build(O_EXAMINE, $5, $1, $3, 0);
 }
-|
-    '/' count mode
-{
-       $$ = build(O_EXAMINE, $3, build(O_LCON, (long) prtaddr), nil, $2);
-}
 |
     address '=' mode
 {
 |
     address '=' mode
 {
@@ -678,6 +787,11 @@ address:
 {
        $$ = build(O_LCON, $1);
 }
 {
        $$ = build(O_LCON, $1);
 }
+|
+    '.'
+{
+       $$ = build(O_LCON, (long) prtaddr);
+}
 |
     '&' term
 {
 |
     '&' term
 {
@@ -703,12 +817,38 @@ address:
 {
        $$ = build(O_INDIR, $2);
 }
 {
        $$ = build(O_INDIR, $2);
 }
+|
+    '-' address %prec UNARYSIGN
+{
+       $$ = build(O_NEG, $2);
+}
 |
     '(' exp ')'
 {
        $$ = $2;
 }
 ;
 |
     '(' exp ')'
 {
        $$ = $2;
 }
 ;
+term:
+    symbol
+{
+       $$ = $1;
+}
+|
+    term '.' name
+{
+       $$ = unrval(dot($1, $3));
+}
+|
+    term ARROW name
+{
+       $$ = unrval(dot($1, $3));
+}
+|
+    term '[' exp_list ']'
+{
+       $$ = unrval(subscript($1, $3));
+}
+;
 count:
     /* empty */
 {
 count:
     /* empty */
 {
@@ -755,20 +895,55 @@ exp_list:
 }
 ;
 exp:
 }
 ;
 exp:
-    term
+    symbol
 {
        $$ = build(O_RVAL, $1);
 }
 |
 {
        $$ = build(O_RVAL, $1);
 }
 |
-    constant
+    exp '[' exp_list ']'
 {
 {
-       $$ = $1;
+       $$ = subscript(unrval($1), $3);
+}
+|
+    exp '.' name
+{
+       $$ = dot($1, $3);
+}
+|
+    exp ARROW name
+{
+       $$ = dot($1, $3);
+}
+|
+    '*' exp %prec UNARYSIGN
+{
+       $$ = build(O_INDIR, $2);
+}
+|
+    exp '^' %prec UNARYSIGN
+{
+       $$ = build(O_INDIR, $1);
 }
 |
     exp '\\' opt_qual_symbol
 {
        $$ = build(O_TYPERENAME, $1, $3);
 }
 }
 |
     exp '\\' opt_qual_symbol
 {
        $$ = build(O_TYPERENAME, $1, $3);
 }
+|
+    exp '\\' '&' opt_qual_symbol %prec '\\'
+{
+       $$ = renameptr($1, $4);
+}
+|
+    exp '(' opt_exp_list ')'
+{
+       $$ = build(O_CALL, unrval($1), $3);
+}
+|
+    constant
+{
+       $$ = $1;
+}
 |
     '+' exp %prec UNARYSIGN
 {
 |
     '+' exp %prec UNARYSIGN
 {
@@ -870,57 +1045,6 @@ exp:
        $$ = $2;
 }
 ;
        $$ = $2;
 }
 ;
-term:
-    symbol
-{
-       $$ = $1;
-}
-|
-    term '[' exp_list ']'
-{
-       $$ = subscript($1, $3);
-}
-|
-    term '.' name
-{
-       $$ = dot($1, $3);
-}
-|
-    term ARROW name
-{
-       $$ = dot($1, $3);
-}
-|
-    '*' term %prec UNARYSIGN
-{
-       $$ = build(O_INDIR, $2);
-}
-|
-    '*' '(' exp ')' %prec UNARYSIGN
-{
-       $$ = build(O_INDIR, $3);
-}
-|
-    term '^' %prec UNARYSIGN
-{
-       $$ = build(O_INDIR, $1);
-}
-|
-    '#' term %prec UNARYSIGN
-{
-       $$ = concrete($2);
-}
-|
-    '#' '(' exp ')' %prec UNARYSIGN
-{
-       $$ = concrete($3);
-}
-|
-    term '(' opt_exp_list ')'
-{
-       $$ = build(O_CALL, $1, $3);
-}
-;
 boolean_exp:
     exp
 {
 boolean_exp:
     exp
 {
@@ -933,6 +1057,11 @@ constant:
 {
        $$ = build(O_LCON, $1);
 }
 {
        $$ = build(O_LCON, $1);
 }
+|
+    CHAR
+{
+       $$ = build(O_CCON, $1);
+}
 |
     REAL
 {
 |
     REAL
 {
@@ -958,7 +1087,10 @@ opt_qual_symbol:
 symbol:
     name
 {
 symbol:
     name
 {
-       $$ = build(O_SYM, which($1));
+       $$ = findvar($1);
+       if ($$ == nil) {
+           $$ = build(O_SYM, which($1));
+       }
 }
 |
     '.' name
 }
 |
     '.' name
@@ -980,7 +1112,7 @@ keyword:
     ALIAS | AND | ASSIGN | AT | CALL | CATCH | CONT | DEBUG | DELETE | DIV | 
     DOWN | DUMP | EDIT | FILE | FUNC | GRIPE | HELP | IGNORE | IN | LIST |
     MOD | NEXT | NEXTI | NIL | NOT | OR | PRINT | PSYM | QUIT |
     ALIAS | AND | ASSIGN | AT | CALL | CATCH | CONT | DEBUG | DELETE | DIV | 
     DOWN | DUMP | EDIT | FILE | FUNC | GRIPE | HELP | IGNORE | IN | LIST |
     MOD | NEXT | NEXTI | NIL | NOT | OR | PRINT | PSYM | QUIT |
-    RERUN | RETURN | RUN | SH | SKIP | SOURCE | STATUS | STEP | STEPI |
-    STOP | STOPI | TRACE | TRACEI | UP |
-    USE | WHATIS | WHEN | WHERE | WHEREIS | WHICH
+    RERUN | RETURN | RUN | SET | SH | SKIP | SOURCE | STATUS | STEP | STEPI |
+    STOP | STOPI | TRACE | TRACEI | UNALIAS | UNSET | UP | USE |
+    WHATIS | WHEN | WHERE | WHEREIS | WHICH
 ;
 ;
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.