1999-08-09 Jason Molenda (jsm@bugshack.cygnus.com)

* README-gdb, gdb/testsuite/gdb.c++/ref-types2.cc,
	gdb/testsuite/gdb.c++/ref-types2.exp, readline/MANIFEST.doc,
	readline/doc/inc-hist.texi:  Removed in the 1999-08-02 snapshot.
This commit is contained in:
Jason Molenda 1999-08-09 19:26:28 +00:00
parent 0825afba5d
commit 169f3bd8b5
4 changed files with 0 additions and 685 deletions

View File

@ -1,47 +0,0 @@
int f()
{
int f1;
f1 = 1;
return f1;
}
int main(void)
{
char C;
unsigned char UC;
short S;
unsigned short US;
int I;
unsigned int UI;
long L;
unsigned long UL;
float F;
double D;
char &rC = C;
unsigned char &rUC = UC;
short &rS = S;
unsigned short &rUS = US;
int &rI = I;
unsigned int &rUI = UI;
long &rL = L;
unsigned long &rUL = UL;
float &rF = F;
double &rD = D;
C = 'A';
UC = 21;
S = -14;
US = 7;
I = 102;
UI = 1002;
L = -234;
UL = 234;
F = 1.25E10;
D = -1.375E-123;
I = f();
#ifdef usestubs
set_debug_traps();
breakpoint();
#endif
return 0;
}

View File

@ -1,463 +0,0 @@
# Tests for reference types with elementary type variables in GDB.
# Copyright (C) 1998, 1999 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu
# written by Elena Zannoni (ezannoni@cygnus.com)
if $tracelevel then {
strace $tracelevel
}
#
# test running programs
#
set prms_id 0
set bug_id 0
set testfile "ref-types2"
set srcfile ${testfile}.cc
set binfile ${objdir}/${subdir}/${testfile}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
}
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
#
# set it up at a breakpoint so we can play with the variable values
#
if ![runto_main] then {
perror "couldn't run to breakpoint"
continue
}
send_gdb "break f\n" ; gdb_expect -re ".*$gdb_prompt $"
send_gdb "cont\n"
gdb_expect {
-re "Break.* f \\(\\) at .*:$decimal.*$gdb_prompt $" {
send_gdb "up\n"
gdb_expect {
-re ".*$gdb_prompt $" {}
timeout { fail "up from f" }
}
}
-re "$gdb_prompt $" { fail "continue to f" }
timeout { fail "(timeout) continue to f" }
}
send_gdb "print C\n"
gdb_expect {
-re ".\[0-9\]* = 65 \'A\'.*$gdb_prompt $" {
pass "print value of C"
}
-re ".*$gdb_prompt $" { fail "print value of C" }
timeout { fail "(timeout) print value of C" }
}
send_gdb "ptype C\n"
gdb_expect {
-re "type = char.*$gdb_prompt $" { pass "ptype C" }
-re ".*$gdb_prompt $" { fail "ptype C" }
timeout { fail "(timeout) ptype C" }
}
send_gdb "print UC\n"
gdb_expect {
-re ".\[0-9\]* = 21 '\.025'\.*$gdb_prompt $" {
pass "print value of UC"
}
-re ".*$gdb_prompt $" { fail "print value of UC" }
timeout { fail "(timeout) print value of UC" }
}
send_gdb "ptype UC\n"
gdb_expect {
-re "type = unsigned char.*$gdb_prompt $" { pass "ptype UC" }
-re ".*$gdb_prompt $" { fail "ptype UC" }
timeout { fail "(timeout) ptype UC" }
}
send_gdb "print S\n"
gdb_expect {
-re ".\[0-9\]* = -14.*$gdb_prompt $" {
pass "print value of S"
}
-re ".*$gdb_prompt $" { fail "print value of S" }
timeout { fail "(timeout) print value of S" }
}
send_gdb "ptype S\n"
gdb_expect {
-re "type = short.*$gdb_prompt $" { pass "ptype S" }
-re ".*$gdb_prompt $" { fail "ptype S" }
timeout { fail "(timeout) ptype S" }
}
send_gdb "print US\n"
gdb_expect {
-re ".\[0-9\]* = 7.*$gdb_prompt $" {
pass "print value of US"
}
-re ".*$gdb_prompt $" { fail "print value of US" }
timeout { fail "(timeout) print value of US" }
}
send_gdb "ptype US\n"
gdb_expect {
-re "type = unsigned short.*$gdb_prompt $" { pass "ptype US" }
-re "type = short unsigned.*$gdb_prompt $" { pass "ptype US" }
-re ".*$gdb_prompt $" { fail "ptype US" }
timeout { fail "(timeout) ptype US" }
}
send_gdb "print I\n"
gdb_expect {
-re ".\[0-9\]* = 102.*$gdb_prompt $" {
pass "print value of I"
}
-re ".*$gdb_prompt $" { fail "print value of I" }
timeout { fail "(timeout) print value of I" }
}
send_gdb "ptype I\n"
gdb_expect {
-re "type = int.*$gdb_prompt $" { pass "ptype I" }
-re ".*$gdb_prompt $" { fail "ptype I" }
timeout { fail "(timeout) ptype I" }
}
send_gdb "print UI\n"
gdb_expect {
-re ".\[0-9\]* = 1002.*$gdb_prompt $" {
pass "print value of UI"
}
-re ".*$gdb_prompt $" { fail "print value of UI" }
timeout { fail "(timeout) print value of UI" }
}
send_gdb "ptype UI\n"
gdb_expect {
-re "type = unsigned int.*$gdb_prompt $" { pass "ptype UI" }
-re ".*$gdb_prompt $" { fail "ptype UI" }
timeout { fail "(timeout) ptype UI" }
}
send_gdb "print L\n"
gdb_expect {
-re ".\[0-9\]* = -234.*$gdb_prompt $" {
pass "print value of L"
}
-re ".*$gdb_prompt $" { fail "print value of L" }
timeout { fail "(timeout) print value of L" }
}
send_gdb "ptype L\n"
gdb_expect {
-re "type = long.*$gdb_prompt $" { pass "ptype L" }
-re ".*$gdb_prompt $" { fail "ptype L" }
timeout { fail "(timeout) ptype L" }
}
send_gdb "print UL\n"
gdb_expect {
-re ".\[0-9\]* = 234.*$gdb_prompt $" {
pass "print value of UL"
}
-re ".*$gdb_prompt $" { fail "print value of UL" }
timeout { fail "(timeout) print value of UL" }
}
send_gdb "ptype UL\n"
gdb_expect {
-re "type = unsigned long.*$gdb_prompt $" { pass "ptype UL" }
-re "type = long unsigned.*$gdb_prompt $" { pass "ptype UL" }
-re ".*$gdb_prompt $" { fail "ptype UL" }
timeout { fail "(timeout) ptype UL" }
}
send_gdb "print F\n"
gdb_expect {
-re ".\[0-9\]* = 1.2\[0-9\]*e\\+10.*$gdb_prompt $" {
pass "print value of F"
}
-re ".*$gdb_prompt $" { fail "print value of F" }
timeout { fail "(timeout) print value of F" }
}
send_gdb "ptype F\n"
gdb_expect {
-re "type = float.*$gdb_prompt $" { pass "ptype F" }
-re ".*$gdb_prompt $" { fail "ptype F" }
timeout { fail "(timeout) ptype F" }
}
send_gdb "print D\n"
gdb_expect {
-re ".\[0-9\]* = -1.375e-123.*$gdb_prompt $" {
pass "print value of D"
}
-re ".*$gdb_prompt $" { fail "print value of D" }
timeout { fail "(timeout) print value of D" }
}
send_gdb "ptype D\n"
gdb_expect {
-re "type = double.*$gdb_prompt $" { pass "ptype D" }
-re ".*$gdb_prompt $" { fail "ptype D" }
timeout { fail "(timeout) ptype D" }
}
#
# test reference types
#
send_gdb "ptype rC\n"
gdb_expect {
-re "type = char &.*$gdb_prompt $" { pass "ptype rC" }
-re ".*$gdb_prompt $" { fail "ptype rC" }
timeout { fail "(timeout) ptype rC" }
}
send_gdb "ptype rUC\n"
gdb_expect {
-re "type = unsigned char &.*$gdb_prompt $" { pass "ptype rUC" }
-re ".*$gdb_prompt $" { fail "ptype rUC" }
timeout { fail "(timeout) ptype rUC" }
}
send_gdb "ptype rS\n"
gdb_expect {
-re "type = short &.*$gdb_prompt $" { pass "ptype rS" }
-re "type = short int &.*$gdb_prompt $" { pass "ptype rS" }
-re ".*$gdb_prompt $" { fail "ptype rS" }
timeout { fail "(timeout) ptype rS" }
}
send_gdb "ptype rUS\n"
gdb_expect {
-re "type = unsigned short &.*$gdb_prompt $" { pass "ptype rUS" }
-re "type = short unsigned int &.*$gdb_prompt $" { pass "ptype rUS" }
-re ".*$gdb_prompt $" { fail "ptype rUS" }
timeout { fail "(timeout) ptype rUS" }
}
send_gdb "ptype rI\n"
gdb_expect {
-re "type = int &.*$gdb_prompt $" { pass "ptype rI" }
-re ".*$gdb_prompt $" { fail "ptype rI" }
timeout { fail "(timeout) ptype rI" }
}
send_gdb "ptype rUI\n"
gdb_expect {
-re "type = unsigned int &.*$gdb_prompt $" { pass "ptype rUI" }
-re ".*$gdb_prompt $" { fail "ptype rUI" }
timeout { fail "(timeout) ptype rUI" }
}
send_gdb "ptype rL\n"
gdb_expect {
-re "type = long &.*$gdb_prompt $" { pass "ptype rL" }
-re "type = long int &.*$gdb_prompt $" { pass "ptype rL" }
-re ".*$gdb_prompt $" { fail "ptype rL" }
timeout { fail "(timeout) ptype rL" }
}
send_gdb "ptype rUL\n"
gdb_expect {
-re "type = unsigned long &.*$gdb_prompt $" { pass "ptype rUL" }
-re "type = long unsigned int &.*$gdb_prompt $" { pass "ptype rUL" }
-re ".*$gdb_prompt $" { fail "ptype rUL" }
timeout { fail "(timeout) ptype rUL" }
}
send_gdb "ptype rF\n"
gdb_expect {
-re "type = float &.*$gdb_prompt $" { pass "ptype rF" }
-re ".*$gdb_prompt $" { fail "ptype rF" }
timeout { fail "(timeout) ptype rF" }
}
send_gdb "ptype rD\n"
gdb_expect {
-re "type = double &.*$gdb_prompt $" { pass "ptype rD" }
-re ".*$gdb_prompt $" { fail "ptype rD" }
timeout { fail "(timeout) ptype rD" }
}
send_gdb "print rC\n"
gdb_expect {
-re ".\[0-9\]* = \\(char &\\) @$hex: 65 \'A\'.*$gdb_prompt $" {
pass "print value of rC"
}
-re ".*$gdb_prompt $" { fail "print value of rC" }
timeout { fail "(timeout) print value of rC" }
}
send_gdb "print rUC\n"
gdb_expect {
-re ".\[0-9\]* = \\(unsigned char &\\) @$hex: 21 \'.025\'.*$gdb_prompt $" {
pass "print value of rUC"
}
-re ".*$gdb_prompt $" { fail "print value of rUC" }
timeout { fail "(timeout) print value of rUC" }
}
send_gdb "print rS\n"
gdb_expect {
-re ".\[0-9\]* = \\(short &\\) @$hex: -14.*$gdb_prompt $" {
pass "print value of rS"
}
-re ".\[0-9\]* = \\(short int &\\) @$hex: -14.*$gdb_prompt $" {
pass "print value of rS"
}
-re ".*$gdb_prompt $" { fail "print value of rS" }
timeout { fail "(timeout) print value of rS" }
}
send_gdb "print rUS\n"
gdb_expect {
-re ".\[0-9\]* = \\(unsigned short &\\) @$hex: 7.*$gdb_prompt $" {
pass "print value of rUS"
}
-re ".\[0-9\]* = \\(short unsigned int &\\) @$hex: 7.*$gdb_prompt $" {
pass "print value of rUS"
}
-re ".*$gdb_prompt $" { fail "print value of rUS" }
timeout { fail "(timeout) print value of rUS" }
}
send_gdb "print rI\n"
gdb_expect {
-re ".\[0-9\]* = \\(int &\\) @$hex: 102.*$gdb_prompt $" {
pass "print value of rI"
}
-re ".*$gdb_prompt $" { fail "print value of rI" }
timeout { fail "(timeout) print value of rI" }
}
send_gdb "print rUI\n"
gdb_expect {
-re ".\[0-9\]* = \\(unsigned int &\\) @$hex: 1002.*$gdb_prompt $" {
pass "print value of UI"
}
-re ".*$gdb_prompt $" { fail "print value of rUI" }
timeout { fail "(timeout) print value of rUI" }
}
send_gdb "print rL\n"
gdb_expect {
-re ".\[0-9\]* = \\(long &\\) @$hex: -234.*$gdb_prompt $" {
pass "print value of rL"
}
-re ".\[0-9\]* = \\(long int &\\) @$hex: -234.*$gdb_prompt $" {
pass "print value of rL"
}
-re ".*$gdb_prompt $" { fail "print value of rL" }
timeout { fail "(timeout) print value of rL" }
}
send_gdb "print rUL\n"
gdb_expect {
-re ".\[0-9\]* = \\(unsigned long &\\) @$hex: 234.*$gdb_prompt $" {
pass "print value of rUL"
}
-re ".\[0-9\]* = \\(long unsigned int &\\) @$hex: 234.*$gdb_prompt $" {
pass "print value of rUL"
}
-re ".*$gdb_prompt $" { fail "print value of rUL" }
timeout { fail "(timeout) print value of rUL" }
}
send_gdb "print rF\n"
gdb_expect {
-re ".\[0-9\]* = \\(float &\\) @$hex: 1.2\[0-9\]*e\\+10.*$gdb_prompt $" {
pass "print value of rF"
}
-re ".*$gdb_prompt $" { fail "print value of rF" }
timeout { fail "(timeout) print value of rF" }
}
send_gdb "print rD\n"
gdb_expect {
-re ".\[0-9\]* = \\(double &\\) @$hex: -1.375e-123.*$gdb_prompt $" {
pass "print value of rD"
}
-re ".*$gdb_prompt $" { fail "print value of rD" }
timeout { fail "(timeout) print value of rD" }
}

View File

@ -1,16 +0,0 @@
#
# Master Manifest file for documentation-only distribution
#
doc d
MANIFEST.doc f
doc/readline.ps f
doc/history.ps f
doc/readline.dvi f
doc/history.dvi f
doc/readline.info f
doc/history.info f
doc/readline.html f
doc/readline_toc.html f
doc/history.html f
doc/history_toc.html f
doc/readline.0 f

View File

@ -1,159 +0,0 @@
@ignore
This file is completely identical to hsuser.texinfo, except that it has the
reference to the programming manual removed. There are definately better ways
to do this!
This file documents the user interface to the GNU History library.
Copyright (C) 1988, 1991 Free Software Foundation, Inc.
Authored by Brian Fox.
Permission is granted to make and distribute verbatim copies of this manual
provided the copyright notice and this permission notice are preserved on
all copies.
Permission is granted to process this file through Tex and print the
results, provided the printed document carries copying permission notice
identical to this one except for the removal of this paragraph (this
paragraph not being relevant to the printed manual).
Permission is granted to copy and distribute modified versions of this
manual under the conditions for verbatim copying, provided also that the
GNU Copyright statement is available to the distributee, and provided that
the entire resulting derived work is distributed under the terms of a
permission notice identical to this one.
Permission is granted to copy and distribute translations of this manual
into another language, under the above conditions for modified versions.
@end ignore
@node Using History Interactively
@appendix Using History Interactively
This chapter describes how to use the GNU History Library interactively,
from a user's standpoint.
@menu
* History Interaction:: What it feels like using History as a user.
@end menu
@node History Interaction
@section History Interaction
@cindex expansion
The History library provides a history expansion feature similar
to the history expansion in @code{csh}. The following text describes the
syntax you use to manipulate history information.
History expansion takes two parts. In the first part, determine
which line from the previous history will be used for substitution.
This line is called the @dfn{event}.
In the second part, select portions of that line for inclusion into the
current line. These portions are called @dfn{words}.
@value{GDBN} breaks the line into words in the same
way that the Bash shell does, so that several English (or Unix) words
surrounded by quotes are considered one word.
@menu
* Event Designators:: How to specify which history line to use.
* Word Designators:: Specifying which words are of interest.
* Modifiers:: Modifying the results of susbstitution.
@end menu
@node Event Designators
@subsection Event Designators
@cindex event designators
An @dfn{event designator} is a reference to a command line entry in the
history list.
@table @asis
@item @code{!}
Start a history subsititution, except when followed by a space, tab, or
the end of the line... @key{=} or @key{(}.
@item @code{!!}
Refer to the previous command. This is a synonym for @code{!-1}.
@item @code{!n}
Refer to command line @var{n}.
@item @code{!-n}
Refer to the command line @var{n} lines back.
@item @code{!string}
Refer to the most recent command starting with @var{string}.
@item @code{!?string}[@code{?}]
Refer to the most recent command containing @var{string}.
@end table
@node Word Designators
@subsection Word Designators
A @key{:} separates the event designator from the @dfn{word designator}.
It can be omitted if the word designator begins with a @key{^}, @key{$},
@key{*} or @key{%}. Words are numbered from the beginning of the line,
with the first word being denoted by a 0 (zero).
@table @code
@item 0 (zero)
The zero'th word. For many applications, this is the command word.
@item n
The @var{n}'th word.
@item ^
The first argument. that is, word 1.
@item $
The last argument.
@item %
The word matched by the most recent @code{?string?} search.
@item x-y
A range of words; @code{-@var{y}} Abbreviates @code{0-@var{y}}.
@item *
All of the words, excepting the zero'th. This is a synonym for @code{1-$}.
It is not an error to use @key{*} if there is just one word in the event.
The empty string is returned in that case.
@end table
@node Modifiers
@subsection Modifiers
After the optional word designator, you can add a sequence of one or more
of the following @dfn{modifiers}, each preceded by a @key{:}.
@table @code
@item #
The entire command line typed so far. This means the current command,
not the previous command.
@c
@c FIXME: If it doesn't belong here, let's put it where it does.
@c
@c so it technically isn't a word designator and doesn't belong in
@c this section.
@item h
Remove a trailing pathname component, leaving only the head.
@item r
Remove a trailing suffix of the form @samp{.}@var{suffix}, leaving the basename.
@item e
Remove all but the suffix.
@item t
Remove all leading pathname components, leaving the tail.
@item p
Print the new command but do not execute it.
@end table