1 // { dg-do assemble }
2 // { dg-require-effective-target ilp32 } */
3 // { dg-options "-w -fpermissive" }
4 // prms-id: 784
5
6 //# 1 "GctSymbol.GctSymbol.CHMap.cc"
7 // This may look like C code, but it is really -*- C++ -*-
8 /*
9 Copyright (C) 1988, 2000, 2002 Free Software Foundation
10 written by Doug Lea (dl@rocky.oswego.edu)
11
12 This file is part of the GNU C++ Library. This library is free
13 software; you can redistribute it and/or modify it under the terms of
14 the GNU Library General Public License as published by the Free
15 Software Foundation; either version 2 of the License, or (at your
16 option) any later version. This library is distributed in the hope
17 that it will be useful, but WITHOUT ANY WARRANTY; without even the
18 implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
19 PURPOSE. See the GNU Library General Public License for more details.
20 You should have received a copy of the GNU Library General Public
21 License along with this library; if not, write to the Free Software
22 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
23 */
24
25
26 //#pragma implementation
27
28 //# 1 "GctSymbol.GctSymbol.CHMap.h" 1
29 // This may look like C code, but it is really -*- C++ -*-
30 /*
31 Copyright (C) 1988 Free Software Foundation
32 written by Doug Lea (dl@rocky.oswego.edu)
33
34 This file is part of the GNU C++ Library. This library is free
35 software; you can redistribute it and/or modify it under the terms of
36 the GNU Library General Public License as published by the Free
37 Software Foundation; either version 2 of the License, or (at your
38 option) any later version. This library is distributed in the hope
39 that it will be useful, but WITHOUT ANY WARRANTY; without even the
40 implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
41 PURPOSE. See the GNU Library General Public License for more details.
42 You should have received a copy of the GNU Library General Public
43 License along with this library; if not, write to the Free Software
44 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
45 */
46
47
48
49
50 //#pragma interface
51
52
53
54 //# 1 "GctSymbol.GctSymbol.Map.h" 1
55 // This may look like C code, but it is really -*- C++ -*-
56 /*
57 Copyright (C) 1988 Free Software Foundation
58 written by Doug Lea (dl@rocky.oswego.edu)
59
60 This file is part of the GNU C++ Library. This library is free
61 software; you can redistribute it and/or modify it under the terms of
62 the GNU Library General Public License as published by the Free
63 Software Foundation; either version 2 of the License, or (at your
64 option) any later version. This library is distributed in the hope
65 that it will be useful, but WITHOUT ANY WARRANTY; without even the
66 implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
67 PURPOSE. See the GNU Library General Public License for more details.
68 You should have received a copy of the GNU Library General Public
69 License along with this library; if not, write to the Free Software
70 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
71 */
72
73
74
75
76 //#pragma interface
77
78
79
80 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/Pix.h" 1
81
82
83
84 typedef void* Pix;
85
86 //# 26 "GctSymbol.GctSymbol.Map.h" 2
87
88 //# 1 "GctSymbol.defs.h" 1
89 // This may look like C code, but it is really -*- C++ -*-
90 /*
91 Copyright (C) 1988 Free Software Foundation
92 written by Doug Lea (dl@rocky.oswego.edu)
93
94 This file is part of the GNU C++ Library. This library is free
95 software; you can redistribute it and/or modify it under the terms of
96 the GNU Library General Public License as published by the Free
97 Software Foundation; either version 2 of the License, or (at your
98 option) any later version. This library is distributed in the hope
99 that it will be useful, but WITHOUT ANY WARRANTY; without even the
100 implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
101 PURPOSE. See the GNU Library General Public License for more details.
102 You should have received a copy of the GNU Library General Public
103 License along with this library; if not, write to the Free Software
104 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
105 */
106
107
108
109
110
111
112
113 //# 1 "../../GctSymbol.h" 1
114 // -*- C++ -*-
115
116
117
118 //
119 // GctSymbol class
120 //
121 // Expects to be included by Gct.h
122 //
123 // Wendell Baker, Berkeley CAD Group, 1992 (wbaker@ic.Berkeley.EDU)
124 //
125
126
127
128
129
130 //#pragma interface
131
132
133
134
135
136 //# 25 "../../GctSymbol.h" 2
137
138 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/String.h" 1
139 // This may look like C code, but it is really -*- C++ -*-
140 /*
141 Copyright (C) 1988 Free Software Foundation
142 written by Doug Lea (dl@rocky.oswego.edu)
143
144 This file is part of the GNU C++ Library. This library is free
145 software; you can redistribute it and/or modify it under the terms of
146 the GNU Library General Public License as published by the Free
147 Software Foundation; either version 2 of the License, or (at your
148 option) any later version. This library is distributed in the hope
149 that it will be useful, but WITHOUT ANY WARRANTY; without even the
150 implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
151 PURPOSE. See the GNU Library General Public License for more details.
152 You should have received a copy of the GNU Library General Public
153 License along with this library; if not, write to the Free Software
154 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
155 */
156
157
158
159
160 //#pragma interface
161
162
163
164 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/stream.h" 1
165
166
167
168 // Compatibility with old library.
169
170
171 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h" 1
172 // This is part of the iostream library, providing -*- C++ -*- input/output.
173 // Copyright (C) 1991 Per Bothner.
174 //
175 // This library is free software; you can redistribute it and/or
176 // modify it under the terms of the GNU Library General Public
177 // License as published by the Free Software Foundation; either
178 // version 2 of the License, or (at your option) any later version.
179 //
180 // This library is distributed in the hope that it will be useful,
181 // but WITHOUT ANY WARRANTY; without even the implied warranty of
182 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
183 // Library General Public License for more details.
184 //
185 // You should have received a copy of the GNU Library General Public
186 // License along with this library; if not, write to the Free
187 // Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
188
189
190
191 //#pragma interface
192
193
194
195
196 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/streambuf.h" 1
197 // This is part of the iostream library, providing -*- C++ -*- input/output.
198 // Copyright (C) 1991 Per Bothner.
199 //
200 // This library is free software; you can redistribute it and/or
201 // modify it under the terms of the GNU Library General Public
202 // License as published by the Free Software Foundation; either
203 // version 2 of the License, or (at your option) any later version.
204 //
205 // This library is distributed in the hope that it will be useful,
206 // but WITHOUT ANY WARRANTY; without even the implied warranty of
207 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
208 // Library General Public License for more details.
209 //
210 // You should have received a copy of the GNU Library General Public
211 // License along with this library; if not, write to the Free
212 // Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
213
214
215
216
217 //#pragma interface
218
219
220 /* KLUDGES!! */
221 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/stddef.h" 1
222
223
224 extern "C" {
225
226
227
228 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/mips/lib/gcc/decstatn/cygnus-1.96/include/stddef.h" 1
229
230
231
232
233
234
235 /* This avoids lossage on Sunos but only if stdtypes.h comes first.
236 There's no way to win with the other order! Sun lossage. */
237
238 /* In case nobody has defined these types, but we aren't running under
239 GCC 2.00, make sure that __PTRDIFF_TYPE__, __SIZE__TYPE__, and
240 __WCHAR_TYPE__ have reasonable values. This can happen if the
241 parts of GCC is compiled by an older compiler, that actually
242 include gstddef.h, such as collect2. */
243
244 /* Signed type of difference of two pointers. */
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259 typedef long int ptrdiff_t;
260
261
262
263
264
265
266 /* Unsigned type of `sizeof' something. */
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281 typedef unsigned int size_t;
282
283
284
285
286
287
288 /* Data type for wide chars. */
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311 /* A null pointer constant. */
312
313
314
315
316 /* Offset of member MEMBER in a struct of type TYPE. */
317
318
319
320
321
322 //# 7 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/stddef.h" 2
323
324
325
326
327 }
328
329 //# 25 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/streambuf.h" 2
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346 class ostream; class streambuf;
347
348 typedef long streamoff, streampos;
349
350 struct _ios_fields { // The data members of an ios.
351 streambuf *_strbuf;
352 ostream* _tie;
353 long _width;
354 unsigned long _flags;
355 char _fill;
356 unsigned char _state;
357 unsigned short _precision;
358 };
359
360
361 enum state_value { _good = 0, _eof = 1, _fail = 2, _bad = 4 };
362
363
364 class ios : public _ios_fields {
365 public:
366 enum io_state { goodbit=0, eofbit=1, failbit=2, badbit=4 };
367 enum open_mode {
368 in=1,
369 out=2,
370 ate=4,
371 app=8,
372 trunc=16,
373 nocreate=32,
374 noreplace=64 };
375 enum seek_dir { beg, cur, end};
376 enum { skipws=01, left=02, right=04, internal=010,
377 dec=020, oct=040, hex=0100,
378 showbase=0200, showpoint=0400, uppercase=01000, showpos=02000,
379 scientific=04000, fixed=0100000, unitbuf=020000, stdio=040000,
380 dont_close=0x80000000 //Don't close streambuf when destroying stream
381 };
382
tie()383 ostream* tie() { return _tie; }
tie(ostream * val)384 ostream* tie(ostream* val) { ostream* save=_tie; _tie=val; return save; }
385
386 // Methods to change the format state.
fill()387 char fill() { return _fill; }
fill(char newf)388 char fill(char newf) { char oldf = _fill; _fill = newf; return oldf; }
flags()389 unsigned long flags() { return _flags; }
flags(unsigned long new_val)390 unsigned long flags(unsigned long new_val) {
391 unsigned long old_val = _flags; _flags = new_val; return old_val; }
precision()392 unsigned short precision() { return _precision; }
precision(int newp)393 unsigned short precision(int newp) {
394 unsigned short oldp = _precision; _precision = (unsigned short)newp;
395 return oldp; }
setf(unsigned long val)396 unsigned long setf(unsigned long val) {
397 unsigned long oldbits = _flags;
398 _flags |= val; return oldbits; }
setf(unsigned long val,unsigned long mask)399 unsigned long setf(unsigned long val, unsigned long mask) {
400 unsigned long oldbits = _flags;
401 _flags = (_flags & ~mask) | (val & mask); return oldbits; }
unsetf(unsigned long mask)402 unsigned long unsetf(unsigned long mask) {
403 unsigned long oldbits = _flags & mask;
404 _flags &= ~mask; return oldbits; }
width()405 long width() { return _width; }
width(long val)406 long width(long val) { long save = _width; _width = val; return save; }
407
408 static const unsigned long basefield;
409 static const unsigned long adjustfield;
410 static const unsigned long floatfield;
411
rdbuf()412 streambuf* rdbuf() { return _strbuf; }
413 void clear(int state = 0) { _state = state; }
good()414 int good() { return _state == 0; }
eof()415 int eof() { return _state & ios::eofbit; }
fail()416 int fail() { return _state & (ios::badbit|ios::failbit); }
bad()417 int bad() { return _state & ios::badbit; }
rdstate()418 int rdstate() { return _state; }
set(int flag)419 void set(int flag) { _state |= flag; }
420 operator void*() { return fail() ? (void*)0 : (void*)this; }
421 int operator!() { return fail(); }
422
423
unset(state_value flag)424 void unset(state_value flag) { _state &= ~flag; }
425 void close();
426 int is_open();
427 int readable();
428 int writable();
429
430
431 protected:
ios(streambuf * sb)432 ios(streambuf*sb) { _strbuf=sb; _state=0; _width=0; _fill=' ';
433 _flags=ios::skipws; _precision=6; }
434 };
435
436
437
438
439 typedef ios::seek_dir _seek_dir;
440
441
442 // Magic numbers and bits for the _flags field.
443 // The magic numbers use the high-order bits of _flags;
444 // the remaining bits are abailable for variable flags.
445 // Note: The magic numbers must all be negative if stdio
446 // emulation is desired.
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462 struct __streambuf {
463 // NOTE: If this is changed, also change __FILE in stdio/stdio.h!
464 int _flags; /* High-order word is _IO_MAGIC; rest is flags. */
465 char* _gptr; /* Current get pointer */
466 char* _egptr; /* End of get area. */
467 char* _eback; /* Start of putback+get area. */
468 char* _pbase; /* Start of put area. */
469 char* _pptr; /* Current put pointer. */
470 char* _epptr; /* End of put area. */
471 char* _base; /* Start of reserve area. */
472 char* _ebuf; /* End of reserve area. */
473 struct streambuf *_chain;
474 };
475
476 struct streambuf : private __streambuf {
477 friend class ios;
478 friend class istream;
479 friend class ostream;
480 protected:
481 static streambuf* _list_all; /* List of open streambufs. */
xchainstreambuf482 streambuf*& xchain() { return _chain; }
483 void _un_link();
484 void _link_in();
gptrstreambuf485 char* gptr() const { return _gptr; }
pptrstreambuf486 char* pptr() const { return _pptr; }
egptrstreambuf487 char* egptr() const { return _egptr; }
epptrstreambuf488 char* epptr() const { return _epptr; }
pbasestreambuf489 char* pbase() const { return _pbase; }
ebackstreambuf490 char* eback() const { return _eback; }
ebufstreambuf491 char* ebuf() const { return _ebuf; }
basestreambuf492 char* base() const { return _base; }
xput_charstreambuf493 void xput_char(char c) { *_pptr++ = c; }
xflagsstreambuf494 int xflags() { return _flags; }
xflagsstreambuf495 int xflags(int f) { int fl = _flags; _flags = f; return fl; }
xsetflagsstreambuf496 void xsetflags(int f) { _flags |= f; }
gbumpstreambuf497 void gbump(int n) { _gptr += n; }
pbumpstreambuf498 void pbump(int n) { _pptr += n; }
499 void setb(char* b, char* eb, int a=0);
setpstreambuf500 void setp(char* p, char* ep) { _pbase=_pptr=p; _epptr=ep; }
setgstreambuf501 void setg(char* eb, char* g, char *eg) { _eback=eb; _gptr=g; _egptr=eg; }
502 public:
503 static int flush_all();
504 static void flush_all_linebuffered(); // Flush all line buffered files.
505 virtual int underflow(); // Leave public for now
506 virtual int overflow(int c = (-1) ); // Leave public for now
507 virtual int doallocate();
508 virtual streampos seekoff(streamoff, _seek_dir, int mode=ios::in|ios::out);
509 virtual streampos seekpos(streampos pos, int mode = ios::in|ios::out);
510 int sputbackc(char c);
511 int sungetc();
512 streambuf();
513 virtual ~streambuf();
unbufferedstreambuf514 int unbuffered() { return _flags & 2 ? 1 : 0; }
linebufferedstreambuf515 int linebuffered() { return _flags & 0x4000 ? 1 : 0; }
unbufferedstreambuf516 void unbuffered(int i)
517 { if (i) _flags |= 2 ; else _flags &= ~2 ; }
linebufferedstreambuf518 void linebuffered(int i)
519 { if (i) _flags |= 0x4000 ; else _flags &= ~0x4000 ; }
allocatestreambuf520 int allocate() {
521 if (base() || unbuffered()) return 0;
522 else return doallocate(); }
523 virtual int sync();
524 virtual int pbackfail(int c);
525 virtual int ungetfail();
526 virtual streambuf* setbuf(char* p, int len);
in_availstreambuf527 int in_avail() { return _egptr - _gptr; }
out_waitingstreambuf528 int out_waiting() { return _pptr - _pbase; }
529 virtual int sputn(const char* s, int n);
530 virtual int sgetn(char* s, int n);
531 long sgetline(char* buf, size_t n, char delim, int putback_delim);
sbumpcstreambuf532 int sbumpc() {
533 if (_gptr >= _egptr && underflow() == (-1) ) return (-1) ;
534 else return *(unsigned char*)_gptr++; }
sgetcstreambuf535 int sgetc() {
536 if (_gptr >= _egptr && underflow() == (-1) ) return (-1) ;
537 else return *(unsigned char*)_gptr; }
snextcstreambuf538 int snextc() {
539 if (++_gptr >= _egptr && underflow() == (-1) ) return (-1) ;
540 else return *(unsigned char*)_gptr; }
sputcstreambuf541 int sputc(int c) {
542 if (_pptr >= _epptr) return overflow(c);
543 return *_pptr++ = c, (unsigned char)c; }
544 int vscan(char const *fmt0, char* ap);
545 int vform(char const *fmt0, char* ap);
546 };
547
548 struct __file_fields {
549 char _fake;
550 char _shortbuf[1];
551 short _fileno;
552 int _blksize;
553 char* _save_gptr;
554 char* _save_egptr;
555 long _offset;
556 };
557
558 class filebuf : public streambuf {
559 struct __file_fields _fb;
560 void init();
561 public:
562 filebuf();
563 filebuf(int fd);
564 filebuf(int fd, char* p, int len);
565 ~filebuf();
566 filebuf* attach(int fd);
567 filebuf* open(const char *filename, const char *mode);
568 filebuf* open(const char *filename, int mode, int prot = 0664);
569 virtual int underflow();
570 virtual int overflow(int c = (-1) );
is_open()571 int is_open() { return _fb._fileno >= 0; }
fd()572 int fd() { return is_open() ? _fb._fileno : (-1) ; }
573 filebuf* close();
574 virtual int doallocate();
575 virtual streampos seekoff(streamoff, _seek_dir, int mode=ios::in|ios::out);
576 int sputn(const char* s, int n);
577 int sgetn(char* s, int n);
578 protected: // See documentation in filebuf.C.
579 virtual int pbackfail(int c);
580 virtual int sync();
is_reading()581 int is_reading() { return eback() != egptr(); }
cur_ptr()582 char* cur_ptr() { return is_reading() ? gptr() : pptr(); }
583 /* System's idea of pointer */
file_ptr()584 char* file_ptr() { return _fb._save_gptr ? _fb._save_egptr : egptr(); }
585 int do_flush();
586 // Low-level operations (Usually invoke system calls.)
587 virtual int sys_read(char* buf, size_t size);
588 virtual long sys_seek(long , _seek_dir);
589 virtual long sys_write(const void*, long);
590 virtual int sys_stat(void*); // Actually, a (struct stat*)
591 virtual int sys_close();
592 };
593
594
readable()595 inline int ios::readable() { return rdbuf()->_flags & 4 ; }
writable()596 inline int ios::writable() { return rdbuf()->_flags & 8 ; }
is_open()597 inline int ios::is_open() {return rdbuf()->_flags & 4 +8 ;}
598
599
600
601
602 //# 25 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h" 2
603
604
605 class istream; class ostream;
606 typedef istream& (*__imanip)(istream&);
607 typedef ostream& (*__omanip)(ostream&);
608
609 extern istream& ws(istream& ins);
610 extern ostream& flush(ostream& outs);
611 extern ostream& endl(ostream& outs);
612 extern ostream& ends(ostream& outs);
613
614 class ostream : public ios
615 {
616 void do_osfx();
617 public:
618 ostream();
619 ostream(streambuf* sb, ostream* tied=(__null) );
620 ~ostream();
621
opfx()622 int opfx() { if (!good()) return 0; if (_tie) _tie->flush(); return 1; }
osfx()623 void osfx() { if (flags() & (ios::unitbuf|ios::stdio))
624 do_osfx(); }
ostreambuf()625 streambuf* ostreambuf() const { return _strbuf; }
626 ostream& flush();
627 ostream& put(char c);
628 ostream& write(const char *s, int n);
write(const unsigned char * s,int n)629 ostream& write(const unsigned char *s, int n) { return write((char*)s, n);}
write(const void * s,int n)630 ostream& write(const void *s, int n) { return write((char*)s, n);}
631 ostream& seekp(streampos);
632 ostream& seekp(streamoff, _seek_dir);
633 streampos tellp();
634 ostream& form(const char *format ...);
635 ostream& vform(const char *format, char* args);
636 };
637
638 ostream& operator<<(ostream&, char c);
639 ostream& operator<<(ostream& os, unsigned char c) { return os << (char)c; }
640 //ostream& operator<<(ostream &os, signed char c) { return os << (char)c; }
641 extern ostream& operator<<(ostream&, const char *s);
642 inline ostream& operator<<(ostream& os, const unsigned char *s)
643 { return os << (const char*)s; }
644 //inline ostream& operator<<(ostream& os, const signed char *s)
645 //{ return os << (const char*)s; }
646 ostream& operator<<(ostream&, void *p);
647 ostream& operator<<(ostream&, int n);
648 ostream& operator<<(ostream&, long n);
649 ostream& operator<<(ostream&, unsigned int n);
650 ostream& operator<<(ostream&, unsigned long n);
651 ostream& operator<<(ostream& os, short n) {return os << (int)n;}
652 ostream& operator<<(ostream& os, unsigned short n)
653 {return os << (unsigned int)n;}
654 ostream& operator<<(ostream&, float n);
655 ostream& operator<<(ostream&, double n);
656 ostream& operator<<(ostream& os, __omanip func) { return (*func)(os); }
657 ostream& operator<<(ostream&, streambuf*);
658
659 class istream : public ios
660 {
661 size_t _gcount;
662 public:
663 istream();
664 istream(streambuf* sb, ostream*tied=(__null) );
665 ~istream();
istreambuf()666 streambuf* istreambuf() const { return _strbuf; }
667 istream& get(char& c);
668 istream& get(unsigned char& c);
669 istream& read(char *ptr, int n);
read(unsigned char * ptr,int n)670 istream& read(unsigned char *ptr, int n) { return read((char*)ptr, n); }
read(void * ptr,int n)671 istream& read(void *ptr, int n) { return read((char*)ptr, n); }
get()672 int get() { return _strbuf->sbumpc(); }
673 istream& getline(char* ptr, int len, char delim = '\n');
674 istream& get(char* ptr, int len, char delim = '\n');
675 istream& gets(char **s, char delim = '\n');
ipfx(int need)676 int ipfx(int need) {
677 if (!good()) { set(ios::failbit); return 0; }
678 if (_tie && (need == 0 || rdbuf()->in_avail())) ; //??? THIS LINE IS QUESTIONABLE */
679 if (!need && (flags() & ios::skipws) && !ws(*this)) return 0;
680 return 1;
681 }
ipfx0()682 int ipfx0() { // Optimized version of ipfx(0).
683 if (!good()) { set(ios::failbit); return 0; }
684 if (_tie) _tie->flush();
685 if ((flags() & ios::skipws) && !ws(*this)) return 0;
686 return 1;
687 }
ipfx1()688 int ipfx1() { // Optimized version of ipfx(1).
689 if (!good()) { set(ios::failbit); return 0; }
690 if (_tie && rdbuf()->in_avail() == 0) _tie->flush();
691 return 1;
692 }
gcount()693 size_t gcount() { return _gcount; }
694 istream& seekg(streampos);
695 istream& seekg(streamoff, _seek_dir);
696 streampos tellg();
putback(char ch)697 istream& putback(char ch) {
698 if (good() && _strbuf->sputbackc(ch) == (-1) ) clear(ios::badbit);
699 return *this;}
unget()700 istream& unget() {
701 if (good() && _strbuf->sungetc() == (-1) ) clear(ios::badbit);
702 return *this;}
703
unget(char ch)704 istream& unget(char ch) { return putback(ch); }
705 int skip(int i);
706
707 };
708
709 istream& operator>>(istream&, char*);
710 istream& operator>>(istream& is, unsigned char* p) { return is >> (char*)p; }
711 //istream& operator>>(istream& is, signed char* p) { return is >> (char*)p; }
712 istream& operator>>(istream&, char& c);
713 istream& operator>>(istream&, unsigned char& c);
714 //istream& operator>>(istream&, signed char& c);
715 istream& operator>>(istream&, int&);
716 istream& operator>>(istream&, long&);
717 istream& operator>>(istream&, short&);
718 istream& operator>>(istream&, unsigned int&);
719 istream& operator>>(istream&, unsigned long&);
720 istream& operator>>(istream&, unsigned short&);
721 istream& operator>>(istream&, float&);
722 istream& operator>>(istream&, double&);
723 istream& operator>>(istream& is, __imanip func) { return (*func)(is); }
724
725 class iostream : public ios {
726 size_t _gcount;
727 public:
728 iostream();
729 operator istream&() { return *(istream*)this; }
730 operator ostream&() { return *(ostream*)this; }
731 ~iostream();
732 // NOTE: These duplicate istream methods.
get(char & c)733 istream& get(char& c) { return ((istream*)this)->get(c); }
get(unsigned char & c)734 istream& get(unsigned char& c) { return ((istream*)this)->get(c); }
read(char * ptr,int n)735 istream& read(char *ptr, int n) { return ((istream*)this)->read(ptr, n); }
read(unsigned char * ptr,int n)736 istream& read(unsigned char *ptr, int n)
737 { return ((istream*)this)->read((char*)ptr, n); }
read(void * ptr,int n)738 istream& read(void *ptr, int n)
739 { return ((istream*)this)->read((char*)ptr, n); }
get()740 int get() { return _strbuf->sbumpc(); }
741 istream& getline(char* ptr, int len, char delim = '\n')
742 { return ((istream*)this)->getline(ptr, len, delim); }
743 istream& get(char* ptr, int len, char delim = '\n')
744 { return ((istream*)this)->get(ptr, len, delim); }
745 istream& gets(char **s, char delim = '\n')
746 { return ((istream*)this)->gets(s, delim); }
ipfx(int need)747 int ipfx(int need) { return ((istream*)this)->ipfx(need); }
ipfx0()748 int ipfx0() { return ((istream*)this)->ipfx0(); }
ipfx1()749 int ipfx1() { return ((istream*)this)->ipfx1(); }
gcount()750 size_t gcount() { return _gcount; }
putback(char ch)751 istream& putback(char ch) { return ((istream*)this)->putback(ch); }
unget()752 istream& unget() { return ((istream*)this)->unget(); }
seekg(streampos pos)753 istream& seekg(streampos pos) { return ((istream*)this)->seekg(pos); }
seekg(streamoff off,_seek_dir dir)754 istream& seekg(streamoff off, _seek_dir dir)
755 { return ((istream*)this)->seekg(off, dir); }
tellg()756 streampos tellg() { return ((istream*)this)->tellg(); }
757
unget(char ch)758 istream& unget(char ch) { return putback(ch); }
759
760
761 // NOTE: These duplicate ostream methods.
opfx()762 int opfx() { return ((ostream*)this)->opfx(); }
osfx()763 void osfx() { ((ostream*)this)->osfx(); }
flush()764 ostream& flush() { return ((ostream*)this)->flush(); }
put(char c)765 ostream& put(char c) { return ((ostream*)this)->put(c); }
write(const char * s,int n)766 ostream& write(const char *s, int n)
767 { return ((ostream*)this)->write(s, n); }
write(const unsigned char * s,int n)768 ostream& write(const unsigned char *s, int n)
769 { return ((ostream*)this)->write((char*)s, n); }
write(const void * s,int n)770 ostream& write(const void *s, int n)
771 { return ((ostream*)this)->write((char*)s, n); }
772 ostream& form(const char *format ...);
vform(const char * format,char * args)773 ostream& vform(const char *format, char* args)
774 { return ((ostream*)this)->vform(format, args); }
seekp(streampos pos)775 ostream& seekp(streampos pos) { return ((ostream*)this)->seekp(pos); }
seekp(streamoff off,_seek_dir dir)776 ostream& seekp(streamoff off, _seek_dir dir)
777 { return ((ostream*)this)->seekp(off, dir); }
tellp()778 streampos tellp() { return ((ostream*)this)->tellp(); }
779 };
780
781 extern istream cin;
782 extern ostream cout, cerr, clog; // clog->rdbuf() == cerr->rdbuf()
783
put(char c)784 inline ostream& ostream::put(char c) { _strbuf->sputc(c); return *this; }
785
786 struct Iostream_init { } ; // Compatibility hack for AT&T libraray.
787
788
789 //# 7 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/stream.h" 2
790
791
792 extern char* form(char*, ...);
793
794 extern char* dec(long, int=0);
795 extern char* dec(int, int=0);
796 extern char* dec(unsigned long, int=0);
797 extern char* dec(unsigned int, int=0);
798
799 extern char* hex(long, int=0);
800 extern char* hex(int, int=0);
801 extern char* hex(unsigned long, int=0);
802 extern char* hex(unsigned int, int=0);
803
804 extern char* oct(long, int=0);
805 extern char* oct(int, int=0);
806 extern char* oct(unsigned long, int=0);
807 extern char* oct(unsigned int, int=0);
808
WS(istream & str)809 inline istream& WS(istream& str) { return ws(str); }
810
811
812 //# 26 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/String.h" 2
813
814 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/Regex.h" 1
815 // This may look like C code, but it is really -*- C++ -*-
816 /*
817 Copyright (C) 1988 Free Software Foundation
818 written by Doug Lea (dl@rocky.oswego.edu)
819
820 This file is part of the GNU C++ Library. This library is free
821 software; you can redistribute it and/or modify it under the terms of
822 the GNU Library General Public License as published by the Free
823 Software Foundation; either version 2 of the License, or (at your
824 option) any later version. This library is distributed in the hope
825 that it will be useful, but WITHOUT ANY WARRANTY; without even the
826 implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
827 PURPOSE. See the GNU Library General Public License for more details.
828 You should have received a copy of the GNU Library General Public
829 License along with this library; if not, write to the Free Software
830 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
831 */
832
833
834
835
836 //#pragma interface
837
838
839
840
841
842
843
844
845
846 struct re_pattern_buffer; // defined elsewhere
847 struct re_registers;
848
849 class Regex
850 {
851 private:
852
Regex(const Regex &)853 Regex(const Regex&) {} // no X(X&)
854 void operator = (const Regex&) {} // no assignment
855
856 protected:
857 re_pattern_buffer* buf;
858 re_registers* reg;
859
860 public:
861 Regex(const char* t,
862 int fast = 0,
863 int bufsize = 40,
864 const char* transtable = 0);
865
866 ~Regex();
867
868 int match(const char* s, int len, int pos = 0) const;
869 int search(const char* s, int len,
870 int& matchlen, int startpos = 0) const;
871 int match_info(int& start, int& length, int nth = 0) const;
872
873 int OK() const; // representation invariant
874 };
875
876 // some built in regular expressions
877
878 extern const Regex RXwhite; // = "[ \n\t\r\v\f]+"
879 extern const Regex RXint; // = "-?[0-9]+"
880 extern const Regex RXdouble; // = "-?\\(\\([0-9]+\\.[0-9]*\\)\\|
881 // \\([0-9]+\\)\\|\\(\\.[0-9]+\\)\\)
882 // \\([eE][---+]?[0-9]+\\)?"
883 extern const Regex RXalpha; // = "[A-Za-z]+"
884 extern const Regex RXlowercase; // = "[a-z]+"
885 extern const Regex RXuppercase; // = "[A-Z]+"
886 extern const Regex RXalphanum; // = "[0-9A-Za-z]+"
887 extern const Regex RXidentifier; // = "[A-Za-z_][A-Za-z0-9_]*"
888
889
890
891 //# 27 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/String.h" 2
892
893
894 struct StrRep // internal String representations
895 {
896 unsigned short len; // string length
897 unsigned short sz; // allocated space
898 char s[1]; // the string starts here
899 // (at least 1 char for trailing null)
900 // allocated & expanded via non-public fcts
901 };
902
903 // primitive ops on StrReps -- nearly all String fns go through these.
904
905 StrRep* Salloc(StrRep*, const char*, int, int);
906 StrRep* Scopy(StrRep*, StrRep*);
907 StrRep* Sresize(StrRep*, int);
908 StrRep* Scat(StrRep*, const char*, int, const char*, int);
909 StrRep* Scat(StrRep*, const char*, int,const char*,int, const char*,int);
910 StrRep* Sprepend(StrRep*, const char*, int);
911 StrRep* Sreverse(StrRep*, StrRep*);
912 StrRep* Supcase(StrRep*, StrRep*);
913 StrRep* Sdowncase(StrRep*, StrRep*);
914 StrRep* Scapitalize(StrRep*, StrRep*);
915
916 // These classes need to be defined in the order given
917
918 class String;
919 class SubString;
920
921 class SubString
922 {
923 friend class String;
924 protected:
925
926 String& S; // The String I'm a substring of
927 unsigned short pos; // starting position in S's rep
928 unsigned short len; // length of substring
929
930 void assign(StrRep*, const char*, int = -1);
931 SubString(String& x, int p, int l);
932 SubString(const SubString& x);
933
934 public:
935
936 // Note there are no public constructors. SubStrings are always
937 // created via String operations
938
939 ~SubString();
940
941 void operator = (const String& y);
942 void operator = (const SubString& y);
943 void operator = (const char* t);
944 void operator = (char c);
945
946 // return 1 if target appears anywhere in SubString; else 0
947
948 int contains(char c) const;
949 int contains(const String& y) const;
950 int contains(const SubString& y) const;
951 int contains(const char* t) const;
952 int contains(const Regex& r) const;
953
954 // return 1 if target matches entire SubString
955
956 int matches(const Regex& r) const;
957
958 // IO
959
960 friend ostream& operator<<(ostream& s, const SubString& x);
961
962 // status
963
964 unsigned int length() const;
965 int empty() const;
966 const char* chars() const;
967
968 int OK() const;
969
970 };
971
972
973 class String
974 {
975 friend class SubString;
976
977 protected:
978 StrRep* rep; // Strings are pointers to their representations
979
980 // some helper functions
981
982 int search(int, int, const char*, int = -1) const;
983 int search(int, int, char) const;
984 int match(int, int, int, const char*, int = -1) const;
985 int _gsub(const char*, int, const char* ,int);
986 int _gsub(const Regex&, const char*, int);
987 SubString _substr(int, int);
988
989 public:
990
991 // constructors & assignment
992
993 String();
994 String(const String& x);
995 String(const SubString& x);
996 String(const char* t);
997 String(const char* t, int len);
998 String(char c);
999
1000 ~String();
1001
1002 void operator = (const String& y);
1003 void operator = (const char* y);
1004 void operator = (char c);
1005 void operator = (const SubString& y);
1006
1007 // concatenation
1008
1009 void operator += (const String& y);
1010 void operator += (const SubString& y);
1011 void operator += (const char* t);
1012 void operator += (char c);
1013
1014 void prepend(const String& y);
1015 void prepend(const SubString& y);
1016 void prepend(const char* t);
1017 void prepend(char c);
1018
1019
1020 // procedural versions:
1021 // concatenate first 2 args, store result in last arg
1022
1023 friend void cat(const String&, const String&, String&);
1024 friend void cat(const String&, const SubString&, String&);
1025 friend void cat(const String&, const char*, String&);
1026 friend void cat(const String&, char, String&);
1027
1028 friend void cat(const SubString&, const String&, String&);
1029 friend void cat(const SubString&, const SubString&, String&);
1030 friend void cat(const SubString&, const char*, String&);
1031 friend void cat(const SubString&, char, String&);
1032
1033 friend void cat(const char*, const String&, String&);
1034 friend void cat(const char*, const SubString&, String&);
1035 friend void cat(const char*, const char*, String&);
1036 friend void cat(const char*, char, String&);
1037
1038 // double concatenation, by request. (yes, there are too many versions,
1039 // but if one is supported, then the others should be too...)
1040 // Concatenate first 3 args, store in last arg
1041
1042 friend void cat(const String&,const String&, const String&,String&);
1043 friend void cat(const String&,const String&,const SubString&,String&);
1044 friend void cat(const String&,const String&, const char*, String&);
1045 friend void cat(const String&,const String&, char, String&);
1046 friend void cat(const String&,const SubString&,const String&,String&);
1047 friend void cat(const String&,const SubString&,const SubString&,String&);
1048 friend void cat(const String&,const SubString&, const char*, String&);
1049 friend void cat(const String&,const SubString&, char, String&);
1050 friend void cat(const String&,const char*, const String&, String&);
1051 friend void cat(const String&,const char*, const SubString&, String&);
1052 friend void cat(const String&,const char*, const char*, String&);
1053 friend void cat(const String&,const char*, char, String&);
1054
1055 friend void cat(const char*, const String&, const String&,String&);
1056 friend void cat(const char*,const String&,const SubString&,String&);
1057 friend void cat(const char*,const String&, const char*, String&);
1058 friend void cat(const char*,const String&, char, String&);
1059 friend void cat(const char*,const SubString&,const String&,String&);
1060 friend void cat(const char*,const SubString&,const SubString&,String&);
1061 friend void cat(const char*,const SubString&, const char*, String&);
1062 friend void cat(const char*,const SubString&, char, String&);
1063 friend void cat(const char*,const char*, const String&, String&);
1064 friend void cat(const char*,const char*, const SubString&, String&);
1065 friend void cat(const char*,const char*, const char*, String&);
1066 friend void cat(const char*,const char*, char, String&);
1067
1068
1069 // searching & matching
1070
1071 // return position of target in string or -1 for failure
1072
1073 int index(char c, int startpos = 0) const;
1074 int index(const String& y, int startpos = 0) const;
1075 int index(const SubString& y, int startpos = 0) const;
1076 int index(const char* t, int startpos = 0) const;
1077 int index(const Regex& r, int startpos = 0) const;
1078
1079 // return 1 if target appears anyhere in String; else 0
1080
1081 int contains(char c) const;
1082 int contains(const String& y) const;
1083 int contains(const SubString& y) const;
1084 int contains(const char* t) const;
1085 int contains(const Regex& r) const;
1086
1087 // return 1 if target appears anywhere after position pos
1088 // (or before, if pos is negative) in String; else 0
1089
1090 int contains(char c, int pos) const;
1091 int contains(const String& y, int pos) const;
1092 int contains(const SubString& y, int pos) const;
1093 int contains(const char* t, int pos) const;
1094 int contains(const Regex& r, int pos) const;
1095
1096 // return 1 if target appears at position pos in String; else 0
1097
1098 int matches(char c, int pos = 0) const;
1099 int matches(const String& y, int pos = 0) const;
1100 int matches(const SubString& y, int pos = 0) const;
1101 int matches(const char* t, int pos = 0) const;
1102 int matches(const Regex& r, int pos = 0) const;
1103
1104 // return number of occurences of target in String
1105
1106 int freq(char c) const;
1107 int freq(const String& y) const;
1108 int freq(const SubString& y) const;
1109 int freq(const char* t) const;
1110
1111 // SubString extraction
1112
1113 // Note that you can't take a substring of a const String, since
1114 // this leaves open the possiblility of indirectly modifying the
1115 // String through the SubString
1116
1117 SubString at(int pos, int len);
1118 SubString operator () (int pos, int len); // synonym for at
1119
1120 SubString at(const String& x, int startpos = 0);
1121 SubString at(const SubString& x, int startpos = 0);
1122 SubString at(const char* t, int startpos = 0);
1123 SubString at(char c, int startpos = 0);
1124 SubString at(const Regex& r, int startpos = 0);
1125
1126 SubString before(int pos);
1127 SubString before(const String& x, int startpos = 0);
1128 SubString before(const SubString& x, int startpos = 0);
1129 SubString before(const char* t, int startpos = 0);
1130 SubString before(char c, int startpos = 0);
1131 SubString before(const Regex& r, int startpos = 0);
1132
1133 SubString through(int pos);
1134 SubString through(const String& x, int startpos = 0);
1135 SubString through(const SubString& x, int startpos = 0);
1136 SubString through(const char* t, int startpos = 0);
1137 SubString through(char c, int startpos = 0);
1138 SubString through(const Regex& r, int startpos = 0);
1139
1140 SubString from(int pos);
1141 SubString from(const String& x, int startpos = 0);
1142 SubString from(const SubString& x, int startpos = 0);
1143 SubString from(const char* t, int startpos = 0);
1144 SubString from(char c, int startpos = 0);
1145 SubString from(const Regex& r, int startpos = 0);
1146
1147 SubString after(int pos);
1148 SubString after(const String& x, int startpos = 0);
1149 SubString after(const SubString& x, int startpos = 0);
1150 SubString after(const char* t, int startpos = 0);
1151 SubString after(char c, int startpos = 0);
1152 SubString after(const Regex& r, int startpos = 0);
1153
1154
1155 // deletion
1156
1157 // delete len chars starting at pos
1158 void del(int pos, int len);
1159
1160 // delete the first occurrence of target after startpos
1161
1162 void del(const String& y, int startpos = 0);
1163 void del(const SubString& y, int startpos = 0);
1164 void del(const char* t, int startpos = 0);
1165 void del(char c, int startpos = 0);
1166 void del(const Regex& r, int startpos = 0);
1167
1168 // global substitution: substitute all occurrences of pat with repl
1169
1170 int gsub(const String& pat, const String& repl);
1171 int gsub(const SubString& pat, const String& repl);
1172 int gsub(const char* pat, const String& repl);
1173 int gsub(const char* pat, const char* repl);
1174 int gsub(const Regex& pat, const String& repl);
1175
1176 // friends & utilities
1177
1178 // split string into array res at separators; return number of elements
1179
1180 friend int split(const String& x, String res[], int maxn,
1181 const String& sep);
1182 friend int split(const String& x, String res[], int maxn,
1183 const Regex& sep);
1184
1185 friend String common_prefix(const String& x, const String& y,
1186 int startpos = 0);
1187 friend String common_suffix(const String& x, const String& y,
1188 int startpos = -1);
1189 friend String replicate(char c, int n);
1190 friend String replicate(const String& y, int n);
1191 friend String join(String src[], int n, const String& sep);
1192
1193 // simple builtin transformations
1194
1195 friend String reverse(const String& x);
1196 friend String upcase(const String& x);
1197 friend String downcase(const String& x);
1198 friend String capitalize(const String& x);
1199
1200 // in-place versions of above
1201
1202 void reverse();
1203 void upcase();
1204 void downcase();
1205 void capitalize();
1206
1207 // element extraction
1208
1209 char& operator [] (int i);
1210 char elem(int i) const;
1211 char firstchar() const;
1212 char lastchar() const;
1213
1214 // conversion
1215
1216 operator const char*() const;
1217 const char* chars() const;
1218
1219
1220 // IO
1221
1222 friend ostream& operator<<(ostream& s, const String& x);
1223 friend ostream& operator<<(ostream& s, const SubString& x);
1224 friend istream& operator>>(istream& s, String& x);
1225
1226 friend int readline(istream& s, String& x,
1227 char terminator = '\n',
1228 int discard_terminator = 1);
1229
1230 // status
1231
1232 unsigned int length() const;
1233 int empty() const;
1234
1235 // preallocate some space for String
1236 void alloc(int newsize);
1237
1238 // report current allocation (not length!)
1239
1240 int allocation() const;
1241
1242
1243 volatile void error(const char* msg) const;
1244
1245 int OK() const;
1246 };
1247
1248 typedef String StrTmp; // for backward compatibility
1249
1250 // other externs
1251
1252 int compare(const String& x, const String& y);
1253 int compare(const String& x, const SubString& y);
1254 int compare(const String& x, const char* y);
1255 int compare(const SubString& x, const String& y);
1256 int compare(const SubString& x, const SubString& y);
1257 int compare(const SubString& x, const char* y);
1258 int fcompare(const String& x, const String& y); // ignore case
1259
1260 extern StrRep _nilStrRep;
1261 extern String _nilString;
1262
1263 // other inlines
1264
1265 String operator + (const String& x, const String& y);
1266 String operator + (const String& x, const SubString& y);
1267 String operator + (const String& x, const char* y);
1268 String operator + (const String& x, char y);
1269 String operator + (const SubString& x, const String& y);
1270 String operator + (const SubString& x, const SubString& y);
1271 String operator + (const SubString& x, const char* y);
1272 String operator + (const SubString& x, char y);
1273 String operator + (const char* x, const String& y);
1274 String operator + (const char* x, const SubString& y);
1275
1276 int operator==(const String& x, const String& y);
1277 int operator!=(const String& x, const String& y);
1278 int operator> (const String& x, const String& y);
1279 int operator>=(const String& x, const String& y);
1280 int operator< (const String& x, const String& y);
1281 int operator<=(const String& x, const String& y);
1282 int operator==(const String& x, const SubString& y);
1283 int operator!=(const String& x, const SubString& y);
1284 int operator> (const String& x, const SubString& y);
1285 int operator>=(const String& x, const SubString& y);
1286 int operator< (const String& x, const SubString& y);
1287 int operator<=(const String& x, const SubString& y);
1288 int operator==(const String& x, const char* t);
1289 int operator!=(const String& x, const char* t);
1290 int operator> (const String& x, const char* t);
1291 int operator>=(const String& x, const char* t);
1292 int operator< (const String& x, const char* t);
1293 int operator<=(const String& x, const char* t);
1294 int operator==(const SubString& x, const String& y);
1295 int operator!=(const SubString& x, const String& y);
1296 int operator> (const SubString& x, const String& y);
1297 int operator>=(const SubString& x, const String& y);
1298 int operator< (const SubString& x, const String& y);
1299 int operator<=(const SubString& x, const String& y);
1300 int operator==(const SubString& x, const SubString& y);
1301 int operator!=(const SubString& x, const SubString& y);
1302 int operator> (const SubString& x, const SubString& y);
1303 int operator>=(const SubString& x, const SubString& y);
1304 int operator< (const SubString& x, const SubString& y);
1305 int operator<=(const SubString& x, const SubString& y);
1306 int operator==(const SubString& x, const char* t);
1307 int operator!=(const SubString& x, const char* t);
1308 int operator> (const SubString& x, const char* t);
1309 int operator>=(const SubString& x, const char* t);
1310 int operator< (const SubString& x, const char* t);
1311 int operator<=(const SubString& x, const char* t);
1312
1313
1314
1315
1316 // status reports, needed before defining other things
1317
length()1318 inline unsigned int String::length() const { return rep->len; }
empty()1319 inline int String::empty() const { return rep->len == 0; }
chars()1320 inline const char* String::chars() const { return &(rep->s[0]); }
allocation()1321 inline int String::allocation() const { return rep->sz; }
alloc(int newsize)1322 inline void String::alloc(int newsize) { rep = Sresize(rep, newsize); }
1323
length()1324 inline unsigned int SubString::length() const { return len; }
empty()1325 inline int SubString::empty() const { return len == 0; }
chars()1326 inline const char* SubString::chars() const { return &(S.rep->s[pos]); }
1327
1328
1329 // constructors
1330
String()1331 inline String::String()
1332 : rep(&_nilStrRep) {}
String(const String & x)1333 inline String::String(const String& x)
1334 : rep(Scopy(0, x.rep)) {}
String(const char * t)1335 inline String::String(const char* t)
1336 : rep(Salloc(0, t, -1, -1)) {}
String(const char * t,int tlen)1337 inline String::String(const char* t, int tlen)
1338 : rep(Salloc(0, t, tlen, tlen)) {}
String(const SubString & y)1339 inline String::String(const SubString& y)
1340 : rep(Salloc(0, y.chars(), y.length(), y.length())) {}
String(char c)1341 inline String::String(char c)
1342 : rep(Salloc(0, &c, 1, 1)) {}
1343
~String()1344 inline String::~String() { if (rep != &_nilStrRep) delete rep; }
1345
SubString(const SubString & x)1346 inline SubString::SubString(const SubString& x)
1347 :S(x.S), pos(x.pos), len(x.len) {}
SubString(String & x,int first,int l)1348 inline SubString::SubString(String& x, int first, int l)
1349 :S(x), pos(first), len(l) {}
1350
~SubString()1351 inline SubString::~SubString() {}
1352
1353 // assignment
1354
1355 inline void String::operator = (const String& y)
1356 {
1357 rep = Scopy(rep, y.rep);
1358 }
1359
1360 inline void String::operator=(const char* t)
1361 {
1362 rep = Salloc(rep, t, -1, -1);
1363 }
1364
1365 inline void String::operator=(const SubString& y)
1366 {
1367 rep = Salloc(rep, y.chars(), y.length(), y.length());
1368 }
1369
1370 inline void String::operator=(char c)
1371 {
1372 rep = Salloc(rep, &c, 1, 1);
1373 }
1374
1375
1376 inline void SubString::operator = (const char* ys)
1377 {
1378 assign(0, ys);
1379 }
1380
1381 inline void SubString::operator = (char ch)
1382 {
1383 assign(0, &ch, 1);
1384 }
1385
1386 inline void SubString::operator = (const String& y)
1387 {
1388 assign(y.rep, y.chars(), y.length());
1389 }
1390
1391 inline void SubString::operator = (const SubString& y)
1392 {
1393 assign(y.S.rep, y.chars(), y.length());
1394 }
1395
1396 // Zillions of cats...
1397
cat(const String & x,const String & y,String & r)1398 inline void cat(const String& x, const String& y, String& r)
1399 {
1400 r.rep = Scat(r.rep, x.chars(), x.length(), y.chars(), y.length());
1401 }
1402
cat(const String & x,const SubString & y,String & r)1403 inline void cat(const String& x, const SubString& y, String& r)
1404 {
1405 r.rep = Scat(r.rep, x.chars(), x.length(), y.chars(), y.length());
1406 }
1407
cat(const String & x,const char * y,String & r)1408 inline void cat(const String& x, const char* y, String& r)
1409 {
1410 r.rep = Scat(r.rep, x.chars(), x.length(), y, -1);
1411 }
1412
cat(const String & x,char y,String & r)1413 inline void cat(const String& x, char y, String& r)
1414 {
1415 r.rep = Scat(r.rep, x.chars(), x.length(), &y, 1);
1416 }
1417
cat(const SubString & x,const String & y,String & r)1418 inline void cat(const SubString& x, const String& y, String& r)
1419 {
1420 r.rep = Scat(r.rep, x.chars(), x.length(), y.chars(), y.length());
1421 }
1422
cat(const SubString & x,const SubString & y,String & r)1423 inline void cat(const SubString& x, const SubString& y, String& r)
1424 {
1425 r.rep = Scat(r.rep, x.chars(), x.length(), y.chars(), y.length());
1426 }
1427
cat(const SubString & x,const char * y,String & r)1428 inline void cat(const SubString& x, const char* y, String& r)
1429 {
1430 r.rep = Scat(r.rep, x.chars(), x.length(), y, -1);
1431 }
1432
cat(const SubString & x,char y,String & r)1433 inline void cat(const SubString& x, char y, String& r)
1434 {
1435 r.rep = Scat(r.rep, x.chars(), x.length(), &y, 1);
1436 }
1437
cat(const char * x,const String & y,String & r)1438 inline void cat(const char* x, const String& y, String& r)
1439 {
1440 r.rep = Scat(r.rep, x, -1, y.chars(), y.length());
1441 }
1442
cat(const char * x,const SubString & y,String & r)1443 inline void cat(const char* x, const SubString& y, String& r)
1444 {
1445 r.rep = Scat(r.rep, x, -1, y.chars(), y.length());
1446 }
1447
cat(const char * x,const char * y,String & r)1448 inline void cat(const char* x, const char* y, String& r)
1449 {
1450 r.rep = Scat(r.rep, x, -1, y, -1);
1451 }
1452
cat(const char * x,char y,String & r)1453 inline void cat(const char* x, char y, String& r)
1454 {
1455 r.rep = Scat(r.rep, x, -1, &y, 1);
1456 }
1457
cat(const String & a,const String & x,const String & y,String & r)1458 inline void cat(const String& a, const String& x, const String& y, String& r)
1459 {
1460 r.rep = Scat(r.rep, a.chars(), a.length(), x.chars(), x.length(), y.chars(), y.length());
1461 }
1462
cat(const String & a,const String & x,const SubString & y,String & r)1463 inline void cat(const String& a, const String& x, const SubString& y, String& r)
1464 {
1465 r.rep = Scat(r.rep, a.chars(), a.length(), x.chars(), x.length(), y.chars(), y.length());
1466 }
1467
cat(const String & a,const String & x,const char * y,String & r)1468 inline void cat(const String& a, const String& x, const char* y, String& r)
1469 {
1470 r.rep = Scat(r.rep, a.chars(), a.length(), x.chars(), x.length(), y, -1);
1471 }
1472
cat(const String & a,const String & x,char y,String & r)1473 inline void cat(const String& a, const String& x, char y, String& r)
1474 {
1475 r.rep = Scat(r.rep, a.chars(), a.length(), x.chars(), x.length(), &y, 1);
1476 }
1477
cat(const String & a,const SubString & x,const String & y,String & r)1478 inline void cat(const String& a, const SubString& x, const String& y, String& r)
1479 {
1480 r.rep = Scat(r.rep, a.chars(), a.length(), x.chars(), x.length(), y.chars(), y.length());
1481 }
1482
cat(const String & a,const SubString & x,const SubString & y,String & r)1483 inline void cat(const String& a, const SubString& x, const SubString& y, String& r)
1484 {
1485 r.rep = Scat(r.rep, a.chars(), a.length(), x.chars(), x.length(), y.chars(), y.length());
1486 }
1487
cat(const String & a,const SubString & x,const char * y,String & r)1488 inline void cat(const String& a, const SubString& x, const char* y, String& r)
1489 {
1490 r.rep = Scat(r.rep, a.chars(), a.length(), x.chars(), x.length(), y, -1);
1491 }
1492
cat(const String & a,const SubString & x,char y,String & r)1493 inline void cat(const String& a, const SubString& x, char y, String& r)
1494 {
1495 r.rep = Scat(r.rep, a.chars(), a.length(), x.chars(), x.length(), &y, 1);
1496 }
1497
cat(const String & a,const char * x,const String & y,String & r)1498 inline void cat(const String& a, const char* x, const String& y, String& r)
1499 {
1500 r.rep = Scat(r.rep, a.chars(), a.length(), x, -1, y.chars(), y.length());
1501 }
1502
cat(const String & a,const char * x,const SubString & y,String & r)1503 inline void cat(const String& a, const char* x, const SubString& y, String& r)
1504 {
1505 r.rep = Scat(r.rep, a.chars(), a.length(), x, -1, y.chars(), y.length());
1506 }
1507
cat(const String & a,const char * x,const char * y,String & r)1508 inline void cat(const String& a, const char* x, const char* y, String& r)
1509 {
1510 r.rep = Scat(r.rep, a.chars(), a.length(), x, -1, y, -1);
1511 }
1512
cat(const String & a,const char * x,char y,String & r)1513 inline void cat(const String& a, const char* x, char y, String& r)
1514 {
1515 r.rep = Scat(r.rep, a.chars(), a.length(), x, -1, &y, 1);
1516 }
1517
1518
cat(const char * a,const String & x,const String & y,String & r)1519 inline void cat(const char* a, const String& x, const String& y, String& r)
1520 {
1521 r.rep = Scat(r.rep, a, -1, x.chars(), x.length(), y.chars(), y.length());
1522 }
1523
cat(const char * a,const String & x,const SubString & y,String & r)1524 inline void cat(const char* a, const String& x, const SubString& y, String& r)
1525 {
1526 r.rep = Scat(r.rep, a, -1, x.chars(), x.length(), y.chars(), y.length());
1527 }
1528
cat(const char * a,const String & x,const char * y,String & r)1529 inline void cat(const char* a, const String& x, const char* y, String& r)
1530 {
1531 r.rep = Scat(r.rep, a, -1, x.chars(), x.length(), y, -1);
1532 }
1533
cat(const char * a,const String & x,char y,String & r)1534 inline void cat(const char* a, const String& x, char y, String& r)
1535 {
1536 r.rep = Scat(r.rep, a, -1, x.chars(), x.length(), &y, 1);
1537 }
1538
cat(const char * a,const SubString & x,const String & y,String & r)1539 inline void cat(const char* a, const SubString& x, const String& y, String& r)
1540 {
1541 r.rep = Scat(r.rep, a, -1, x.chars(), x.length(), y.chars(), y.length());
1542 }
1543
cat(const char * a,const SubString & x,const SubString & y,String & r)1544 inline void cat(const char* a, const SubString& x, const SubString& y, String& r)
1545 {
1546 r.rep = Scat(r.rep, a, -1, x.chars(), x.length(), y.chars(), y.length());
1547 }
1548
cat(const char * a,const SubString & x,const char * y,String & r)1549 inline void cat(const char* a, const SubString& x, const char* y, String& r)
1550 {
1551 r.rep = Scat(r.rep, a, -1, x.chars(), x.length(), y, -1);
1552 }
1553
cat(const char * a,const SubString & x,char y,String & r)1554 inline void cat(const char* a, const SubString& x, char y, String& r)
1555 {
1556 r.rep = Scat(r.rep, a, -1, x.chars(), x.length(), &y, 1);
1557 }
1558
cat(const char * a,const char * x,const String & y,String & r)1559 inline void cat(const char* a, const char* x, const String& y, String& r)
1560 {
1561 r.rep = Scat(r.rep, a, -1, x, -1, y.chars(), y.length());
1562 }
1563
cat(const char * a,const char * x,const SubString & y,String & r)1564 inline void cat(const char* a, const char* x, const SubString& y, String& r)
1565 {
1566 r.rep = Scat(r.rep, a, -1, x, -1, y.chars(), y.length());
1567 }
1568
cat(const char * a,const char * x,const char * y,String & r)1569 inline void cat(const char* a, const char* x, const char* y, String& r)
1570 {
1571 r.rep = Scat(r.rep, a, -1, x, -1, y, -1);
1572 }
1573
cat(const char * a,const char * x,char y,String & r)1574 inline void cat(const char* a, const char* x, char y, String& r)
1575 {
1576 r.rep = Scat(r.rep, a, -1, x, -1, &y, 1);
1577 }
1578
1579
1580 // operator versions
1581
1582 inline void String::operator +=(const String& y)
1583 {
1584 cat(*this, y, *this);
1585 }
1586
1587 inline void String::operator +=(const SubString& y)
1588 {
1589 cat(*this, y, *this);
1590 }
1591
1592 inline void String::operator += (const char* y)
1593 {
1594 cat(*this, y, *this);
1595 }
1596
1597 inline void String:: operator +=(char y)
1598 {
1599 cat(*this, y, *this);
1600 }
1601
1602 // constructive concatenation
1603
1604
1605
1606 inline String operator + (const String& x, const String& y) return r; // { dg-error "" }
1607 {
1608 cat(x, y, r); // { dg-error "" }
1609 }
1610
1611 inline String operator + (const String& x, const SubString& y) return r; // { dg-error "" }
1612 {
1613 cat(x, y, r); // { dg-error "" }
1614 }
1615
1616 inline String operator + (const String& x, const char* y) return r; // { dg-error "" }
1617 {
1618 cat(x, y, r); // { dg-error "" }
1619 }
1620
1621 inline String operator + (const String& x, char y) return r; // { dg-error "" }
1622 {
1623 cat(x, y, r); // { dg-error "" }
1624 }
1625
1626 inline String operator + (const SubString& x, const String& y) return r; // { dg-error "" }
1627 {
1628 cat(x, y, r); // { dg-error "" }
1629 }
1630
1631 inline String operator + (const SubString& x, const SubString& y) return r; // { dg-error "" }
1632 {
1633 cat(x, y, r); // { dg-error "" }
1634 }
1635
1636 inline String operator + (const SubString& x, const char* y) return r; // { dg-error "" }
1637 {
1638 cat(x, y, r); // { dg-error "" }
1639 }
1640
1641 inline String operator + (const SubString& x, char y) return r; // { dg-error "" }
1642 {
1643 cat(x, y, r); // { dg-error "" }
1644 }
1645
1646 inline String operator + (const char* x, const String& y) return r; // { dg-error "" }
1647 {
1648 cat(x, y, r); // { dg-error "" }
1649 }
1650
1651 inline String operator + (const char* x, const SubString& y) return r; // { dg-error "" }
1652 {
1653 cat(x, y, r); // { dg-error "" }
1654 }
1655
1656 inline String reverse(const String& x) return r; // { dg-error "" }
1657 {
1658 r.rep = Sreverse(x.rep, r.rep); // { dg-error "" }
1659 }
1660
1661 inline String upcase(const String& x) return r; // { dg-error "" }
1662 {
1663 r.rep = Supcase(x.rep, r.rep); // { dg-error "" }
1664 }
1665
1666 inline String downcase(const String& x) return r; // { dg-error "" }
1667 {
1668 r.rep = Sdowncase(x.rep, r.rep); // { dg-error "" }
1669 }
1670
1671 inline String capitalize(const String& x) return r; // { dg-error "" }
1672 {
1673 r.rep = Scapitalize(x.rep, r.rep); // { dg-error "" }
1674 }
1675
1676 //# 883 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/String.h"
1677
1678
1679 // prepend
1680
prepend(const String & y)1681 inline void String::prepend(const String& y)
1682 {
1683 rep = Sprepend(rep, y.chars(), y.length());
1684 }
1685
prepend(const char * y)1686 inline void String::prepend(const char* y)
1687 {
1688 rep = Sprepend(rep, y, -1);
1689 }
1690
prepend(char y)1691 inline void String::prepend(char y)
1692 {
1693 rep = Sprepend(rep, &y, 1);
1694 }
1695
prepend(const SubString & y)1696 inline void String::prepend(const SubString& y)
1697 {
1698 rep = Sprepend(rep, y.chars(), y.length());
1699 }
1700
1701 // misc transformations
1702
1703
reverse()1704 inline void String::reverse()
1705 {
1706 rep = Sreverse(rep, rep);
1707 }
1708
1709
upcase()1710 inline void String::upcase()
1711 {
1712 rep = Supcase(rep, rep);
1713 }
1714
1715
downcase()1716 inline void String::downcase()
1717 {
1718 rep = Sdowncase(rep, rep);
1719 }
1720
1721
capitalize()1722 inline void String::capitalize()
1723 {
1724 rep = Scapitalize(rep, rep);
1725 }
1726
1727 // element extraction
1728
1729 inline char& String::operator [] (int i)
1730 {
1731 if (((unsigned)i) >= length()) error("invalid index");
1732 return rep->s[i];
1733 }
1734
elem(int i)1735 inline char String::elem (int i) const
1736 {
1737 if (((unsigned)i) >= length()) error("invalid index");
1738 return rep->s[i];
1739 }
1740
firstchar()1741 inline char String::firstchar() const
1742 {
1743 return elem(0);
1744 }
1745
lastchar()1746 inline char String::lastchar() const
1747 {
1748 return elem(length() - 1);
1749 }
1750
1751 // searching
1752
index(char c,int startpos)1753 inline int String::index(char c, int startpos) const
1754 {
1755 return search(startpos, length(), c);
1756 }
1757
index(const char * t,int startpos)1758 inline int String::index(const char* t, int startpos) const
1759 {
1760 return search(startpos, length(), t);
1761 }
1762
index(const String & y,int startpos)1763 inline int String::index(const String& y, int startpos) const
1764 {
1765 return search(startpos, length(), y.chars(), y.length());
1766 }
1767
index(const SubString & y,int startpos)1768 inline int String::index(const SubString& y, int startpos) const
1769 {
1770 return search(startpos, length(), y.chars(), y.length());
1771 }
1772
index(const Regex & r,int startpos)1773 inline int String::index(const Regex& r, int startpos) const
1774 {
1775 int unused; return r.search(chars(), length(), unused, startpos);
1776 }
1777
contains(char c)1778 inline int String::contains(char c) const
1779 {
1780 return search(0, length(), c) >= 0;
1781 }
1782
contains(const char * t)1783 inline int String::contains(const char* t) const
1784 {
1785 return search(0, length(), t) >= 0;
1786 }
1787
contains(const String & y)1788 inline int String::contains(const String& y) const
1789 {
1790 return search(0, length(), y.chars(), y.length()) >= 0;
1791 }
1792
contains(const SubString & y)1793 inline int String::contains(const SubString& y) const
1794 {
1795 return search(0, length(), y.chars(), y.length()) >= 0;
1796 }
1797
contains(char c,int p)1798 inline int String::contains(char c, int p) const
1799 {
1800 return match(p, length(), 0, &c, 1) >= 0;
1801 }
1802
contains(const char * t,int p)1803 inline int String::contains(const char* t, int p) const
1804 {
1805 return match(p, length(), 0, t) >= 0;
1806 }
1807
contains(const String & y,int p)1808 inline int String::contains(const String& y, int p) const
1809 {
1810 return match(p, length(), 0, y.chars(), y.length()) >= 0;
1811 }
1812
contains(const SubString & y,int p)1813 inline int String::contains(const SubString& y, int p) const
1814 {
1815 return match(p, length(), 0, y.chars(), y.length()) >= 0;
1816 }
1817
contains(const Regex & r)1818 inline int String::contains(const Regex& r) const
1819 {
1820 int unused; return r.search(chars(), length(), unused, 0) >= 0;
1821 }
1822
contains(const Regex & r,int p)1823 inline int String::contains(const Regex& r, int p) const
1824 {
1825 return r.match(chars(), length(), p) >= 0;
1826 }
1827
1828
matches(const SubString & y,int p)1829 inline int String::matches(const SubString& y, int p) const
1830 {
1831 return match(p, length(), 1, y.chars(), y.length()) >= 0;
1832 }
1833
matches(const String & y,int p)1834 inline int String::matches(const String& y, int p) const
1835 {
1836 return match(p, length(), 1, y.chars(), y.length()) >= 0;
1837 }
1838
matches(const char * t,int p)1839 inline int String::matches(const char* t, int p) const
1840 {
1841 return match(p, length(), 1, t) >= 0;
1842 }
1843
matches(char c,int p)1844 inline int String::matches(char c, int p) const
1845 {
1846 return match(p, length(), 1, &c, 1) >= 0;
1847 }
1848
matches(const Regex & r,int p)1849 inline int String::matches(const Regex& r, int p) const
1850 {
1851 int l = (p < 0)? -p : length() - p;
1852 return r.match(chars(), length(), p) == l;
1853 }
1854
1855
contains(const char * t)1856 inline int SubString::contains(const char* t) const
1857 {
1858 return S.search(pos, pos+len, t) >= 0;
1859 }
1860
contains(const String & y)1861 inline int SubString::contains(const String& y) const
1862 {
1863 return S.search(pos, pos+len, y.chars(), y.length()) >= 0;
1864 }
1865
contains(const SubString & y)1866 inline int SubString::contains(const SubString& y) const
1867 {
1868 return S.search(pos, pos+len, y.chars(), y.length()) >= 0;
1869 }
1870
contains(char c)1871 inline int SubString::contains(char c) const
1872 {
1873 return S.search(pos, pos+len, 0, c) >= 0;
1874 }
1875
contains(const Regex & r)1876 inline int SubString::contains(const Regex& r) const
1877 {
1878 int unused; return r.search(chars(), len, unused, 0) >= 0;
1879 }
1880
matches(const Regex & r)1881 inline int SubString::matches(const Regex& r) const
1882 {
1883 return r.match(chars(), len, 0) == len;
1884 }
1885
1886
gsub(const String & pat,const String & r)1887 inline int String::gsub(const String& pat, const String& r)
1888 {
1889 return _gsub(pat.chars(), pat.length(), r.chars(), r.length());
1890 }
1891
gsub(const SubString & pat,const String & r)1892 inline int String::gsub(const SubString& pat, const String& r)
1893 {
1894 return _gsub(pat.chars(), pat.length(), r.chars(), r.length());
1895 }
1896
gsub(const Regex & pat,const String & r)1897 inline int String::gsub(const Regex& pat, const String& r)
1898 {
1899 return _gsub(pat, r.chars(), r.length());
1900 }
1901
gsub(const char * pat,const String & r)1902 inline int String::gsub(const char* pat, const String& r)
1903 {
1904 return _gsub(pat, -1, r.chars(), r.length());
1905 }
1906
gsub(const char * pat,const char * r)1907 inline int String::gsub(const char* pat, const char* r)
1908 {
1909 return _gsub(pat, -1, r, -1);
1910 }
1911
1912
1913
1914 inline ostream& operator<<(ostream& s, const String& x)
1915 {
1916 s << x.chars(); return s;
1917 }
1918
1919 // a zillion comparison operators
1920
1921 inline int operator==(const String& x, const String& y)
1922 {
1923 return compare(x, y) == 0;
1924 }
1925
1926 inline int operator!=(const String& x, const String& y)
1927 {
1928 return compare(x, y) != 0;
1929 }
1930
1931 inline int operator>(const String& x, const String& y)
1932 {
1933 return compare(x, y) > 0;
1934 }
1935
1936 inline int operator>=(const String& x, const String& y)
1937 {
1938 return compare(x, y) >= 0;
1939 }
1940
1941 inline int operator<(const String& x, const String& y)
1942 {
1943 return compare(x, y) < 0;
1944 }
1945
1946 inline int operator<=(const String& x, const String& y)
1947 {
1948 return compare(x, y) <= 0;
1949 }
1950
1951 inline int operator==(const String& x, const SubString& y)
1952 {
1953 return compare(x, y) == 0;
1954 }
1955
1956 inline int operator!=(const String& x, const SubString& y)
1957 {
1958 return compare(x, y) != 0;
1959 }
1960
1961 inline int operator>(const String& x, const SubString& y)
1962 {
1963 return compare(x, y) > 0;
1964 }
1965
1966 inline int operator>=(const String& x, const SubString& y)
1967 {
1968 return compare(x, y) >= 0;
1969 }
1970
1971 inline int operator<(const String& x, const SubString& y)
1972 {
1973 return compare(x, y) < 0;
1974 }
1975
1976 inline int operator<=(const String& x, const SubString& y)
1977 {
1978 return compare(x, y) <= 0;
1979 }
1980
1981 inline int operator==(const String& x, const char* t)
1982 {
1983 return compare(x, t) == 0;
1984 }
1985
1986 inline int operator!=(const String& x, const char* t)
1987 {
1988 return compare(x, t) != 0;
1989 }
1990
1991 inline int operator>(const String& x, const char* t)
1992 {
1993 return compare(x, t) > 0;
1994 }
1995
1996 inline int operator>=(const String& x, const char* t)
1997 {
1998 return compare(x, t) >= 0;
1999 }
2000
2001 inline int operator<(const String& x, const char* t)
2002 {
2003 return compare(x, t) < 0;
2004 }
2005
2006 inline int operator<=(const String& x, const char* t)
2007 {
2008 return compare(x, t) <= 0;
2009 }
2010
2011 inline int operator==(const SubString& x, const String& y)
2012 {
2013 return compare(y, x) == 0;
2014 }
2015
2016 inline int operator!=(const SubString& x, const String& y)
2017 {
2018 return compare(y, x) != 0;
2019 }
2020
2021 inline int operator>(const SubString& x, const String& y)
2022 {
2023 return compare(y, x) < 0;
2024 }
2025
2026 inline int operator>=(const SubString& x, const String& y)
2027 {
2028 return compare(y, x) <= 0;
2029 }
2030
2031 inline int operator<(const SubString& x, const String& y)
2032 {
2033 return compare(y, x) > 0;
2034 }
2035
2036 inline int operator<=(const SubString& x, const String& y)
2037 {
2038 return compare(y, x) >= 0;
2039 }
2040
2041 inline int operator==(const SubString& x, const SubString& y)
2042 {
2043 return compare(x, y) == 0;
2044 }
2045
2046 inline int operator!=(const SubString& x, const SubString& y)
2047 {
2048 return compare(x, y) != 0;
2049 }
2050
2051 inline int operator>(const SubString& x, const SubString& y)
2052 {
2053 return compare(x, y) > 0;
2054 }
2055
2056 inline int operator>=(const SubString& x, const SubString& y)
2057 {
2058 return compare(x, y) >= 0;
2059 }
2060
2061 inline int operator<(const SubString& x, const SubString& y)
2062 {
2063 return compare(x, y) < 0;
2064 }
2065
2066 inline int operator<=(const SubString& x, const SubString& y)
2067 {
2068 return compare(x, y) <= 0;
2069 }
2070
2071 inline int operator==(const SubString& x, const char* t)
2072 {
2073 return compare(x, t) == 0;
2074 }
2075
2076 inline int operator!=(const SubString& x, const char* t)
2077 {
2078 return compare(x, t) != 0;
2079 }
2080
2081 inline int operator>(const SubString& x, const char* t)
2082 {
2083 return compare(x, t) > 0;
2084 }
2085
2086 inline int operator>=(const SubString& x, const char* t)
2087 {
2088 return compare(x, t) >= 0;
2089 }
2090
2091 inline int operator<(const SubString& x, const char* t)
2092 {
2093 return compare(x, t) < 0;
2094 }
2095
2096 inline int operator<=(const SubString& x, const char* t)
2097 {
2098 return compare(x, t) <= 0;
2099 }
2100
2101
2102 // a helper needed by at, before, etc.
2103
_substr(int first,int l)2104 inline SubString String::_substr(int first, int l)
2105 {
2106 if (first >= length() ) // ??? THIS LINE IS QUESTIONABLE
2107 return SubString(_nilString, 0, 0) ;
2108 else
2109 return SubString(*this, first, l);
2110 }
2111
2112
2113
2114
2115
2116 //# 26 "../../GctSymbol.h" 2
2117
2118
2119 //# 1 "../../../../../../mips/include/Gct/Object/GctHashObject.h" 1
2120 // -*- C++ -*-
2121
2122
2123
2124 //
2125 // GctHashObject class (is abstract)
2126 //
2127 // Expects to be included by Object.h or where needed explicitly.
2128 //
2129 // Wendell Baker, Berkeley CAD Group, 1992 (wbaker@ic.Berkeley.EDU)
2130 //
2131
2132
2133
2134
2135
2136 //#pragma interface
2137
2138
2139
2140 //# 1 "../../../../../../mips/include/Gct/Object/GctObject.h" 1
2141 // -*- C++ -*-
2142
2143
2144
2145 //
2146 // GctObject class (is abstract)
2147 //
2148 // Expects to be included by Object.h or where needed explicitly.
2149 //
2150 // Wendell Baker, Berkeley CAD Group, 1992 (wbaker@ic.Berkeley.EDU)
2151 //
2152
2153
2154
2155
2156
2157 //#pragma interface
2158
2159
2160
2161 //# 1 "/sandbox/wbaker/wbaker0/source/mips/include/tostrstream.h" 1
2162 // -*- C++ -*-
2163
2164
2165
2166 //
2167 // tostrstream class
2168 //
2169 // A terminated oststream - an ostsrstream that auto-terminates on str()
2170 //
2171 // Wendell Baker, Berkeley CAD Group, 1992 (wbaker@ic.Berkeley.EDU)
2172 //
2173
2174
2175
2176
2177
2178 //#pragma interface
2179
2180
2181
2182 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/strstream.h" 1
2183 // This is part of the iostream library, providing input/output for C++.
2184 // Copyright (C) 1991 Per Bothner.
2185 //
2186 // This library is free software; you can redistribute it and/or
2187 // modify it under the terms of the GNU Library General Public
2188 // License as published by the Free Software Foundation; either
2189 // version 2 of the License, or (at your option) any later version.
2190 //
2191 // This library is distributed in the hope that it will be useful,
2192 // but WITHOUT ANY WARRANTY; without even the implied warranty of
2193 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
2194 // Library General Public License for more details.
2195 //
2196 // You should have received a copy of the GNU Library General Public
2197 // License along with this library; if not, write to the Free
2198 // Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
2199
2200
2201
2202
2203 //#pragma interface
2204
2205 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h" 1
2206 // This is part of the iostream library, providing -*- C++ -*- input/output.
2207 // Copyright (C) 1991 Per Bothner.
2208 //
2209 // This library is free software; you can redistribute it and/or
2210 // modify it under the terms of the GNU Library General Public
2211 // License as published by the Free Software Foundation; either
2212 // version 2 of the License, or (at your option) any later version.
2213 //
2214 // This library is distributed in the hope that it will be useful,
2215 // but WITHOUT ANY WARRANTY; without even the implied warranty of
2216 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
2217 // Library General Public License for more details.
2218 //
2219 // You should have received a copy of the GNU Library General Public
2220 // License along with this library; if not, write to the Free
2221 // Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
2222
2223 //# 210 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h"
2224
2225 //# 23 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/strstream.h" 2
2226
2227
2228 class strstreambuf : public streambuf {
2229 size_t *lenp; /* current (logical) length (i.e. valid data bytes) */
2230 size_t *sizep; /* allocated (physical) buffer size */
2231 char **bufp;
2232 size_t _len;
2233 size_t _size;
2234 char *buf;
2235 int _frozen;
2236 protected:
2237 virtual int overflow(int = (-1) );
2238 public:
2239 strstreambuf();
2240 strstreambuf(int initial);
2241 strstreambuf(char *ptr, int size, char *pstart = (__null) );
2242 ~strstreambuf();
frozen()2243 int frozen() { return _frozen; }
2244 void freeze(int n=1) { _frozen = n != 0; }
2245 size_t pcount();
2246 char *str();
2247 };
2248
2249 class istrstream : public istream {
2250 public:
2251 istrstream(char*);
2252 istrstream(char*, int);
rdbuf()2253 strstreambuf* rdbuf() { return (strstreambuf*)_strbuf; }
2254 };
2255
2256 class ostrstream : public ostream {
2257 public:
2258 ostrstream();
2259 ostrstream(char *cp, int n, int mode=ios::out);
pcount()2260 size_t pcount() { return ((strstreambuf*)_strbuf)->pcount(); }
str()2261 char *str() { return ((strstreambuf*)_strbuf)->str(); }
2262 void freeze(int n = 1) { ((strstreambuf*)_strbuf)->freeze(n); }
frozen()2263 int frozen() { return ((strstreambuf*)_strbuf)->frozen(); }
rdbuf()2264 strstreambuf* rdbuf() { return (strstreambuf*)_strbuf; }
2265 };
2266
2267
2268 //# 25 "/sandbox/wbaker/wbaker0/source/mips/include/tostrstream.h" 2
2269
2270
2271 //
2272 // tostrstream class
2273 //
2274 // An isteam class that doesn't have that nasty skipws parameter that
2275 // you have to remember to set. This class simply provides the istream
2276 // functionality with a set of constructors which defaults skipws to
2277 // FALSE (instead of defaulting to TRUE as is the case with plain istream).
2278 //
2279 class tostrstream: public ostrstream {
2280 public:
tostrstream()2281 tostrstream(): ostrstream()
2282 { }
2283 // This constructor defines cp as the buffer to use for the
2284 // stream (instead of one of its own devising); it does NOT
2285 // initialize the ostrstream to contain cp (of length n).
ostrtream(cp,n,mode)2286 tostrstream(char *cp, int n, int mode=ios::out): ostrtream(cp, n, mode) // { dg-error "" }
2287 { }
str()2288 char *str()
2289 {
2290 char *s = ostrstream::str();
2291 s[ostrstream::pcount()] = '\0';
2292 return s;
2293 }
2294 };
2295
2296
2297 //# 25 "../../../../../../mips/include/Gct/Object/GctObject.h" 2
2298
2299
2300 //# 1 "/sandbox/wbaker/wbaker0/source/mips/include/Gtt/GttObject.h" 1
2301 // -*- C++ -*-
2302
2303
2304
2305 //
2306 // GttObject class (is abstract)
2307 //
2308 // Expects to be included where needed explicitly.
2309 //
2310 // Wendell Baker, Berkeley CAD Group, 1992 (wbaker@ic.Berkeley.EDU)
2311 //
2312
2313
2314
2315
2316
2317 //#pragma interface
2318
2319
2320
2321 //# 1 "/sandbox/wbaker/wbaker0/source/mips/include/tostrstream.h" 1
2322 // -*- C++ -*-
2323 //# 52 "/sandbox/wbaker/wbaker0/source/mips/include/tostrstream.h"
2324
2325 //# 25 "/sandbox/wbaker/wbaker0/source/mips/include/Gtt/GttObject.h" 2
2326
2327
2328 //# 1 "/sandbox/wbaker/wbaker0/source/mips/include/Gtt/GttErrorHandler.h" 1
2329 // -*- C++ -*-
2330
2331
2332
2333 //
2334 // GttErrorHandler class
2335 //
2336 // Expects to be included by Gtt.h
2337 //
2338 // Wendell Baker, Berkeley CAD Group, 1992 (wbaker@ic.Berkeley.EDU)
2339 //
2340
2341
2342
2343
2344
2345 //#pragma interface
2346
2347
2348
2349 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/bool.h" 1
2350
2351
2352
2353
2354
2355
2356
2357 //# 25 "/sandbox/wbaker/wbaker0/source/mips/include/Gtt/GttErrorHandler.h" 2
2358
2359
2360 //# 1 "/sandbox/wbaker/wbaker0/source/mips/include/stuff++.h" 1
2361 // -*- C++ -*-
2362
2363
2364
2365 //
2366 // Fake up a libstuff++
2367 //
2368 // This is done as a complete and utter hack; this library has no function
2369 // at all being in the boot area; it is here solely in order to provide a
2370 // libstuff++ against which the Makefiles can resolve link lines.
2371 //
2372 // The only reason that this is done is to allow the STANDARD_C++_LIBRARIES
2373 // as provided by the Makefile templates in the boot area to be the same
2374 // ones that are used by the tools outside this hierarchy.
2375 //
2376 // The tools outside this hierarchy use a different libstuff++; one that is
2377 // written in C++. This one is not written in C++ in order to be simpler.
2378 //
2379
2380
2381
2382
2383
2384 //#pragma interface
2385
2386
2387
2388 extern "C" {
2389 //# 1 "/sandbox/wbaker/wbaker0/source/mips/include/stuff.h" 1
2390
2391
2392
2393 /*
2394 * Useful stuff
2395 */
2396
2397 /*
2398 */
2399
2400 //# 1 "/sandbox/wbaker/wbaker0/source/mips/include/ansi.h" 1
2401
2402
2403
2404
2405 /*
2406 * ANSI Compiler Support
2407 *
2408 * David Harrison
2409 * University of California, Berkeley
2410 * 1988
2411 *
2412 * ANSI compatible compilers are supposed to define the preprocessor
2413 * directive __STDC__. Based on this directive, this file defines
2414 * certain ANSI specific macros.
2415 *
2416 * ARGS:
2417 * Used in function prototypes. Example:
2418 * extern int foo
2419 * ARGS((char *blah, double threshold));
2420 */
2421
2422 /*
2423 *
2424 * Modifications
2425 * Wendell C Baker
2426 * University of California, Berkeley
2427 */
2428
2429 /* Function prototypes */
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457 //# 15 "/sandbox/wbaker/wbaker0/source/mips/include/stuff.h" 2
2458
2459
2460
2461 /*
2462 * If g++, then we stub out part of this thing and let the C++ types take
2463 * over and do the same job; some compatibility must be given however
2464 */
2465
2466 /*
2467 * Use the GNU libg++ definition
2468 */
2469 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/bool.h" 1
2470
2471
2472
2473
2474
2475
2476
2477 //# 26 "/sandbox/wbaker/wbaker0/source/mips/include/stuff.h" 2
2478
2479 //# 35 "/sandbox/wbaker/wbaker0/source/mips/include/stuff.h"
2480
2481
2482 /*
2483 * Make various pieces of C code that use the old ``Boolean''
2484 * be compatible by faking up the definition of Boolean using
2485 * the new bool type.
2486 */
2487
2488
2489 //# 58 "/sandbox/wbaker/wbaker0/source/mips/include/stuff.h"
2490
2491
2492 typedef long FitAny; /* can fit any integral type */
2493
2494 /*
2495 * typedef char *String; - DO NOT USE THIS - it conflicts with C++
2496 * typedef char **Stringv; - just use char* and char** instead.
2497 * - void* can be used for arbitrary pointers
2498 */
2499
2500
2501
2502
2503 extern int nocase_strcmp (char *, char *) ;
2504 extern int nocase_strncmp (char *, char *, int) ;
2505
2506 extern bool nocase_strequal (char *, char *) ;
2507 extern bool nocase_strnequal (char *, char *, int) ;
2508
2509 extern bool lead_strequal (char *, char *) ;
2510 extern bool nocase_lead_strequal (char *, char *) ;
2511
2512 extern int strhash (char *, int) ;
2513 extern int nocase_strhash (char *, int) ;
2514
2515 extern int sign (int) ;
2516
2517 /*
2518 * Some useful macros.
2519 */
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549 //# 33 "/sandbox/wbaker/wbaker0/source/mips/include/stuff++.h" 2
2550
2551 }
2552
2553 //
2554 // This is here because we wish to provide externs for the two
2555 // functions btoa(bool, unsigned = 0) and operator<<(ostream&, bool)
2556 // because they are not provided in bool.h.
2557 //
2558 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/bool.h" 1
2559
2560
2561
2562
2563
2564
2565
2566 //# 41 "/sandbox/wbaker/wbaker0/source/mips/include/stuff++.h" 2
2567
2568 extern const char *stringify(bool b);
2569 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h" 1
2570 // This is part of the iostream library, providing -*- C++ -*- input/output.
2571 // Copyright (C) 1991 Per Bothner.
2572 //
2573 // This library is free software; you can redistribute it and/or
2574 // modify it under the terms of the GNU Library General Public
2575 // License as published by the Free Software Foundation; either
2576 // version 2 of the License, or (at your option) any later version.
2577 //
2578 // This library is distributed in the hope that it will be useful,
2579 // but WITHOUT ANY WARRANTY; without even the implied warranty of
2580 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
2581 // Library General Public License for more details.
2582 //
2583 // You should have received a copy of the GNU Library General Public
2584 // License along with this library; if not, write to the Free
2585 // Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
2586
2587 //# 210 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h"
2588
2589 //# 43 "/sandbox/wbaker/wbaker0/source/mips/include/stuff++.h" 2
2590
2591 extern ostream& operator<<(ostream&, bool);
2592
2593 // Should this be kept separate? bool isn't, but then is
2594 // included here only to define ostream& operator<<(ostream&, bool)
2595 //# 1 "/sandbox/wbaker/wbaker0/source/mips/include/unit.h" 1
2596 // -*- C++ -*-
2597
2598
2599
2600 //
2601 // unit enum
2602 //
2603 // Wendell Baker, Berkeley CAD Group, 1991 (wbaker@ic.Berkeley.EDU)
2604 //
2605
2606
2607 //
2608 // unit enum
2609 //
2610 // This _looks_ silly, but it has an important theoretical basis in category
2611 // theory. For the pragmatic reason for its existence, see the example below.
2612 //
2613 enum unit {
2614 UNIT = 1,
2615 };
2616
2617 extern const char *stringify(unit u);
2618
2619 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h" 1
2620 // This is part of the iostream library, providing -*- C++ -*- input/output.
2621 // Copyright (C) 1991 Per Bothner.
2622 //
2623 // This library is free software; you can redistribute it and/or
2624 // modify it under the terms of the GNU Library General Public
2625 // License as published by the Free Software Foundation; either
2626 // version 2 of the License, or (at your option) any later version.
2627 //
2628 // This library is distributed in the hope that it will be useful,
2629 // but WITHOUT ANY WARRANTY; without even the implied warranty of
2630 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
2631 // Library General Public License for more details.
2632 //
2633 // You should have received a copy of the GNU Library General Public
2634 // License along with this library; if not, write to the Free
2635 // Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
2636
2637 //# 210 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h"
2638
2639 //# 28 "/sandbox/wbaker/wbaker0/source/mips/include/unit.h" 2
2640
2641 extern ostream& operator<<(ostream&, unit);
2642
2643 //
2644 // A unit is used in cases where the type signature of an overloaded
2645 // function must be differentiated in some stronger way than can be
2646 // denoted unambiguously in the C++ syntax. This enum is used to give
2647 // one of the functions a different type signature, thereby allowing
2648 // the overloading.
2649 //
2650 // The use of ``unit'' instead of int or bool is important because a unit
2651 // has only one possible value; therefore it adds no more information to
2652 // the code. For example, say a bool was used instead, then in the testing
2653 // phase, would have to ask: what if TRUE was given, what if FALSE was given.
2654 // The problem is compounded if char or int is used.
2655 //
2656 // Example:
2657 //
2658 // class ID {
2659 // public:
2660 // ID(); // construct a null ID
2661 // ID(unit); // alloc a ID with a new id
2662 // private:
2663 // static unsigned high_water;
2664 // unsigned id;
2665 // };
2666 //
2667 // Try working this example save that ID implements all of the generic
2668 // features of the identifier object, but the high_water is stored
2669 // in the heir. That is what originally motivated the creation of unit.
2670 //
2671
2672
2673 //# 48 "/sandbox/wbaker/wbaker0/source/mips/include/stuff++.h" 2
2674
2675
2676 //
2677 // In the spirit of the standard GNU error handler functions
2678 // as described in
2679 // typedef void (*one_arg_error_handler_t)(const char*);
2680 // a one argument error handler function pointer
2681 // typedef void (*two_arg_error_handler_t)(const char*, const char*);
2682 // a two argument error handler function pointer
2683 //
2684 // And now the NEW
2685 //
2686 // typedef void (*zero_arg_error_handler_t)();
2687 // a zero argument error handler function pointer
2688 //
2689 typedef void (*zero_arg_error_handler_t)();
2690
2691 //
2692 // In the spirit of the default GNU error handler functions
2693 // as described in
2694 // extern void default_one_arg_error_handler(const char *message);
2695 // print out message on stderr, and do the default thing (abort)
2696 // extern void default_two_arg_error_handler(const char *kind, const char *message);
2697 // print out kind and message on stderr, and do the default thing (abort)
2698 //
2699 // And now the NEW
2700 //
2701 // extern void default_zero_arg_error_handler(const char *message);
2702 // do the default thing (abort)
2703 //
2704 extern void default_zero_arg_error_handler();
2705
2706 // Guaranteed to exit (1)
2707 extern void exit_zero_arg_error_handler();
2708 extern void exit_one_arg_error_handler(const char *message);
2709 extern void exit_two_arg_error_handler(const char *kind, const char *message);
2710
2711 // Guaranteed to abort()
2712 extern void abort_zero_arg_error_handler();
2713 extern void abort_one_arg_error_handler(const char *message);
2714 extern void abort_two_arg_error_handler(const char *kind, const char *message);
2715
2716 //
2717 // In the spirit of the standard GNU error handlers
2718 // as described in
2719 // extern void verbose_File_error_handler(const char*);
2720 // perror and set errno = 0
2721 // extern void quiet_File_error_handler(const char*);
2722 // set errno = 0
2723 // extern void fatal_File_error_handler(const char*);
2724 // perror and exit 1
2725 //
2726 // And now the NEW
2727 //
2728 // extern void preserve_File_error_handler(const char *message);
2729 // no perror, no assignment to errno.
2730 //
2731 extern void preserve_File_error_handler(const char *message);
2732
2733
2734 //# 27 "/sandbox/wbaker/wbaker0/source/mips/include/Gtt/GttErrorHandler.h" 2
2735
2736 //# 1 "/sandbox/wbaker/wbaker0/source/mips/include/tostrstream.h" 1
2737 // -*- C++ -*-
2738 //# 52 "/sandbox/wbaker/wbaker0/source/mips/include/tostrstream.h"
2739
2740 //# 28 "/sandbox/wbaker/wbaker0/source/mips/include/Gtt/GttErrorHandler.h" 2
2741
2742
2743 //
2744 // It is expected that this will be virtually multiply inherited
2745 // into all of the classes that need error reporting services.
2746 //
2747 // The typical way to have that done is by inheriting the GttObject
2748 // as a virtual base class.
2749 //
2750
2751 //
2752 // GttErrorHandler class
2753 //
2754 class GttErrorHandler {
2755 public:
2756 GttErrorHandler();
2757 GttErrorHandler(const char *program);
2758 virtual ~GttErrorHandler();
2759
2760 //
2761 // Error messages
2762 // - an unacceptable, but expected and recoverable condition
2763 // was detected (but the test fails)
2764 // - errors are for ``the expected environment was not found''
2765 // rather than for ``file couldn't be opened''
2766 // - these messages cannot be shut off
2767 // - the error handler determines the recovery action
2768 // TODO - one day exceptions will be used here
2769 //
2770 static void error(const char *message);
2771 static void error(tostrstream& message);
2772
2773 static void error(const char *function, const char *message);
2774 static void error(const char *function, tostrstream& message);
2775
2776 static void error(const char *class_name, const char *method, const char *message);
2777 static void error(const char *class_name, const char *method, tostrstream& message);
2778
2779 //
2780 // Fatal messages
2781 // - an unacceptable and unexpected error was detected
2782 // the data invariants were violated, there is no recovery
2783 // - these messages cannot be shut off
2784 // - the error handler determines the recovery action
2785 // TODO - one day exceptions will be used here
2786 //
2787 static void fatal(const char *message);
2788 static void fatal(tostrstream& message);
2789
2790 static void fatal(const char *function, const char *message);
2791 static void fatal(const char *function, tostrstream& message);
2792
2793 static void fatal(const char *class_name, const char *method, const char *message);
2794 static void fatal(const char *class_name, const char *method, tostrstream& message);
2795 private:
2796 //
2797 // Two underscores are used here in order to prevent confusion of these
2798 // private variables with any of the heir's private variables. Note that
2799 // access control is different than visibility in C++, so all the variable
2800 // names in a class hierarchy must be unique.
2801 //
2802
2803 static bool __partial_init;
2804 static void __partial_initialize();
2805 static bool __full_init;
2806 static void __full_initialize(const char *program);
2807 static char *__program;
2808
2809 static void __handle_error();
2810 static void __handle_fatal();
2811 static void __add_newline(const char *message);
2812
2813 static bool __output_valid();
2814 static ostream *__output;
2815 };
2816
2817
2818 //# 27 "/sandbox/wbaker/wbaker0/source/mips/include/Gtt/GttObject.h" 2
2819
2820
2821 //
2822 // GttObject class (is abstract)
2823 //
2824 class GttObject: virtual public GttErrorHandler {
2825 protected:
2826 GttObject();
2827 GttObject(const GttObject&);
2828 virtual ~GttObject(); // ensure descendants have virtual destructors
2829
2830 public:
2831 //
2832 // I/O Support
2833 //
2834 // The value typically persists only long enough for an i/o operation
2835 // to be performed (see the defintion of output via operator<<(... ) below)
2836 virtual const char *stringify();
2837 protected:
2838 // This is the buffer into which the printed representation of this
2839 // object will be put when the time comes. It is associated with the
2840 // object so it will never go away (so long as the object exists).
2841 // Use a pointer so that you only pay for the space when I/O is used
2842 tostrstream *stringbuf;
2843 void clear_stringbuf();
2844
2845 public:
2846 //
2847 // Consistency
2848 //
2849 // The global data invariant for the whole object (heirs included).
2850 // This OK function will call the local invariant function ok() if
2851 // necessary and in addition the OK functions of the heirs
2852 // This is expected to compute the data invariant of the object.
2853 // It will execute GctErrorHandler::fatal if there is wrong.
2854 virtual void OK() const;
2855
2856 protected:
2857 //
2858 // consistency
2859 //
2860 // This function computes the invariant which is local to this object.
2861 // It does not call any of the ancestor's OK() or ok() functions.
2862 // It is not a virtual function so that it can be called from within a
2863 // constructor with impunity. Thus this function MUST NOT call any
2864 // virtual functions either; it should call them by their full name if
2865 // that is necessary. The global OK() function will call this function
2866 // as necessary.
2867 //
2868 // This function must NOT NEVER EVER be made virtual.
2869 void ok() const;
2870
2871 protected:
2872 //
2873 // Class Name
2874 //
2875 // This must return a static (constant) string which is the name
2876 // of the class being declared. By convention, not all classes
2877 // must have one of these, but the major root abstract class must
2878 // have one in order to allow the stringify() to work approximately
2879 // correctly.
2880 virtual const char *class_name() const = 0;
2881 };
2882
2883 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h" 1
2884 // This is part of the iostream library, providing -*- C++ -*- input/output.
2885 // Copyright (C) 1991 Per Bothner.
2886 //
2887 // This library is free software; you can redistribute it and/or
2888 // modify it under the terms of the GNU Library General Public
2889 // License as published by the Free Software Foundation; either
2890 // version 2 of the License, or (at your option) any later version.
2891 //
2892 // This library is distributed in the hope that it will be useful,
2893 // but WITHOUT ANY WARRANTY; without even the implied warranty of
2894 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
2895 // Library General Public License for more details.
2896 //
2897 // You should have received a copy of the GNU Library General Public
2898 // License along with this library; if not, write to the Free
2899 // Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
2900
2901 //# 210 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h"
2902
2903 //# 91 "/sandbox/wbaker/wbaker0/source/mips/include/Gtt/GttObject.h" 2
2904
2905 extern ostream& operator<<(ostream&, GttObject&);
2906
2907 // There may be other X& operator<<(X&, GttObject&) defined in the
2908 // packages defining class X. For example see the definition of
2909 // GttUnitObject& operator<<(GttUnitObject&, GttObject&) in Unit.
2910
2911
2912 //# 27 "../../../../../../mips/include/Gct/Object/GctObject.h" 2
2913
2914
2915 //# 1 "../../../../../../mips/include/Gct/GctErrorHandler.h" 1
2916 // -*- C++ -*-
2917
2918
2919
2920 //
2921 // GctErrorHandler class
2922 //
2923 // Expects to be included by Gct.h
2924 //
2925 // Wendell Baker, Berkeley CAD Group, 1991 (wbaker@ic.Berkeley.EDU)
2926 //
2927
2928
2929
2930
2931
2932 //#pragma interface
2933
2934
2935
2936 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/bool.h" 1
2937
2938
2939
2940
2941
2942
2943
2944 //# 25 "../../../../../../mips/include/Gct/GctErrorHandler.h" 2
2945
2946 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/String.h" 1
2947 // This may look like C code, but it is really -*- C++ -*-
2948 /*
2949 Copyright (C) 1988 Free Software Foundation
2950 written by Doug Lea (dl@rocky.oswego.edu)
2951
2952 This file is part of the GNU C++ Library. This library is free
2953 software; you can redistribute it and/or modify it under the terms of
2954 the GNU Library General Public License as published by the Free
2955 Software Foundation; either version 2 of the License, or (at your
2956 option) any later version. This library is distributed in the hope
2957 that it will be useful, but WITHOUT ANY WARRANTY; without even the
2958 implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
2959 PURPOSE. See the GNU Library General Public License for more details.
2960 You should have received a copy of the GNU Library General Public
2961 License along with this library; if not, write to the Free Software
2962 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
2963 */
2964
2965
2966 //# 1321 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/String.h"
2967
2968 //# 26 "../../../../../../mips/include/Gct/GctErrorHandler.h" 2
2969
2970 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h" 1
2971 // This is part of the iostream library, providing -*- C++ -*- input/output.
2972 // Copyright (C) 1991 Per Bothner.
2973 //
2974 // This library is free software; you can redistribute it and/or
2975 // modify it under the terms of the GNU Library General Public
2976 // License as published by the Free Software Foundation; either
2977 // version 2 of the License, or (at your option) any later version.
2978 //
2979 // This library is distributed in the hope that it will be useful,
2980 // but WITHOUT ANY WARRANTY; without even the implied warranty of
2981 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
2982 // Library General Public License for more details.
2983 //
2984 // You should have received a copy of the GNU Library General Public
2985 // License along with this library; if not, write to the Free
2986 // Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
2987
2988 //# 210 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h"
2989
2990 //# 27 "../../../../../../mips/include/Gct/GctErrorHandler.h" 2
2991
2992
2993 //# 1 "/sandbox/wbaker/wbaker0/source/mips/include/stuff++.h" 1
2994 // -*- C++ -*-
2995 //# 107 "/sandbox/wbaker/wbaker0/source/mips/include/stuff++.h"
2996
2997 //# 29 "../../../../../../mips/include/Gct/GctErrorHandler.h" 2
2998
2999 //# 1 "/sandbox/wbaker/wbaker0/source/mips/include/tostrstream.h" 1
3000 // -*- C++ -*-
3001 //# 52 "/sandbox/wbaker/wbaker0/source/mips/include/tostrstream.h"
3002
3003 //# 30 "../../../../../../mips/include/Gct/GctErrorHandler.h" 2
3004
3005
3006 //# 1 "/sandbox/wbaker/wbaker0/source/mips/include/Gtt/GttObject.h" 1
3007 // -*- C++ -*-
3008 //# 98 "/sandbox/wbaker/wbaker0/source/mips/include/Gtt/GttObject.h"
3009
3010 //# 32 "../../../../../../mips/include/Gct/GctErrorHandler.h" 2
3011
3012
3013 //
3014 // It is expected that this will be virtually multiply inherited
3015 // into all of the classes that need error reporting services.
3016 //
3017 // The typical way to have that done is by inheriting the GctObject
3018 // as a virtual base class.
3019 //
3020
3021 //
3022 // GctErrorHandler class
3023 //
3024 // GPP_1_96_BUG
3025 // NOTE - virtual public GttObject should be MI into GctObject - but that
3026 // causes g++ 1.96 to segfault; so we must inherit GttObject here and use SI
3027 // GPP_1_96_BUG
3028 class GctErrorHandler: virtual public GttObject {
3029 public:
3030 GctErrorHandler();
3031 GctErrorHandler(const String& program);
3032 virtual ~GctErrorHandler();
3033
3034 //
3035 // Debugging messages
3036 // - these are turned off for production code.
3037 // - these messages can be shut off
3038 //
3039 static void debug(const char *message);
3040 static void debug(tostrstream& message);
3041
3042 static void debug(const char *function, const char *message);
3043 static void debug(const char *function, tostrstream& message);
3044
3045 static void debug(const char *class_name, const char *method, const char *message);
3046 static void debug(const char *class_name, const char *method, tostrstream& message);
3047
3048 static bool debug(); // current debug switch
3049 static void debug(bool value); // change the debug switch
3050
3051 //
3052 // Informational messages
3053 // - these correspond to a ``verbose'' mode
3054 // - these are not errors, just chatty progress reports
3055 // - these messages can be shut off
3056 //
3057 static void note(const char *message);
3058 static void note(tostrstream& message);
3059
3060 static void note(const char *function, const char *message);
3061 static void note(const char *function, tostrstream& message);
3062
3063 static void note(const char *class_name, const char *method, const char *message);
3064 static void note(const char *class_name, const char *method, tostrstream& message);
3065
3066 static bool note(); // current note switch
3067 static void note(bool value); // change the note switch
3068
3069 //
3070 // Warning messages
3071 // - warnings are system-recoverable errors
3072 // - the system has noticed something and taken some
3073 // corrective action
3074 // - these messages can be shut off
3075 //
3076 static void warning(const char *message);
3077 static void warning(tostrstream& message);
3078
3079 static void warning(const char *function, const char *message);
3080 static void warning(const char *function, tostrstream& message);
3081
3082 static void warning(const char *class_name, const char *method, const char *message);
3083 static void warning(const char *class_name, const char *method, tostrstream& message);
3084
3085 static bool warning(); // current warning switch
3086 static void warning(bool value); // change the warning switch
3087
3088 //
3089 // Error messages
3090 // - an unacceptable, but expected and recoverable
3091 // condition was detected
3092 // - errors are for ``the expected environment was not found''
3093 // rather than for ``file couldn't be opened''
3094 // - these messages cannot be shut off
3095 // - the error handler determines the recovery action
3096 // TODO - one day exceptions will be used here
3097 //
3098 static void error(const char *message);
3099 static void error(tostrstream& message);
3100
3101 static void error(const char *function, const char *message);
3102 static void error(const char *function, tostrstream& message);
3103
3104 static void error(const char *class_name, const char *method, const char *message);
3105 static void error(const char *class_name, const char *method, tostrstream& message);
3106
3107 // can't turn off errors - no ``static void error(bool value);''
3108 static zero_arg_error_handler_t error(); // current error handler
3109 static void error(zero_arg_error_handler_t handler);// change the error handler
3110
3111 static void error_is_lib_error_handler(); // change the error handler
3112 static void error_is_exit(); // change the error handler
3113
3114 // Describes the fatal handler - WATCHOUT - implicitly uses AllocRing
3115 static const char *error_handler_description();
3116
3117 //
3118 // Fatal messages
3119 // - an unacceptable and unexpected error was detected
3120 // the data invariants were violated, there is no recovery
3121 // - these messages cannot be shut off
3122 // - the error handler determines the recovery action
3123 // TODO - one day exceptions will be used here
3124 //
3125 static void fatal(const char *message);
3126 static void fatal(tostrstream& message);
3127
3128 static void fatal(const char *function, const char *message);
3129 static void fatal(const char *function, tostrstream& message);
3130
3131 static void fatal(const char *class_name, const char *method, const char *message);
3132 static void fatal(const char *class_name, const char *method, tostrstream& message);
3133
3134 // can't turn off fatals - no ``static void fatal(bool value);''
3135 static zero_arg_error_handler_t fatal(); // return the fatal handler
3136 static void fatal(zero_arg_error_handler_t handler); // change the fatal handler
3137
3138 static void fatal_is_exit(); // change the fatal handler
3139 static void fatal_is_abort(); // change the fatal handler
3140
3141 // Describes the fatal handler - WATCHOUT - implicitly uses AllocRing
3142 static const char *fatal_handler_description();
3143 private:
3144 //
3145 // Two underscores are used here in order to prevent confusion of these
3146 // private variables with any of the heir's private variables. Note that
3147 // access control is different than visibility in C++, so all the variable
3148 // names in a class hierarchy must be unique.
3149 //
3150 static bool __debug;
3151 static bool __note;
3152 static bool __warning;
3153 static void (*__error_handler)(); // can't turn off errors
3154 static void (*__fatal_handler)(); // can't turn off fatals
3155
3156 static bool __partial_init;
3157 static void __partial_initialize();
3158 static bool __full_init;
3159 static void __full_initialize(const char *program);
3160 static char *__program;
3161
3162 static void __handle_error();
3163 static void __handle_fatal();
3164 static void __add_newline(const char *message);
3165 static void __message_switch(bool value, bool& flag, const char *description);
3166 static void __message_switch(bool value, bool& flag);
3167 static const char *__describe_handler(zero_arg_error_handler_t handler);
3168
3169 static bool __output_valid();
3170 static ostream *__output;
3171
3172 // GPP_1_96_BUG
3173 const char *class_name() const;
3174 // GPP_1_96_BUG
3175 };
3176
3177
3178 //# 29 "../../../../../../mips/include/Gct/Object/GctObject.h" 2
3179
3180
3181 //
3182 // GctObject class (is abstract)
3183 //
3184 class GctObject: virtual public GctErrorHandler /*, virtual public GttObject*/ {
3185 protected:
3186 GctObject();
3187 GctObject(const GctObject&);
3188 virtual ~GctObject(); // ensure descendants have virtual destructors
3189
3190 public:
3191 //
3192 // I/O Support
3193 //
3194 // The value typically persists only long enough for an i/o operation
3195 // to be performed (see the defintion of output via operator<<(... ) below)
3196 virtual const char *stringify();
3197 protected:
3198 // This is the buffer into which the printed representation of this
3199 // object will be put when the time comes. It is associated with the
3200 // object so it will never go away (so long as the object exists).
3201 // Use a pointer so that you only pay for the space when I/O is used
3202 tostrstream *stringbuf;
3203 void clear_stringbuf();
3204
3205 public:
3206 //
3207 // Consistency (global consistency)
3208 //
3209 // The global data invariant for the whole object (heirs included).
3210 // This OK function will call the local invariant function ok() if
3211 // necessary and in addition the OK functions of the heirs
3212 // This is expected to compute the data invariant of the object.
3213 // It will execute GctErrorHandler::fatal if there is wrong.
3214 virtual void OK() const;
3215
3216 protected:
3217 //
3218 // consistency (local consistency)
3219 //
3220 // This function computes the invariant which is local to this object.
3221 // It does not call any of the ancestor's OK() or ok() functions.
3222 // It is not a virtual function so that it can be called from within a
3223 // constructor with impunity. Thus this function MUST NOT call any
3224 // virtual functions either; it should call them by their full name if
3225 // that is necessary. The global OK() function will call this function
3226 // as necessary.
3227 //
3228 // This function must NOT NEVER EVER be made virtual.
3229 void ok() const;
3230 protected:
3231 //
3232 // Class Name
3233 //
3234 // This must return a static (constant) string which is the name
3235 // of the class being declared. By convention, not all classes
3236 // must have one of these, but the major root abstract class must
3237 // have one in order to allow the stringify() to work approximately
3238 // correctly.
3239 virtual const char *class_name() const = 0;
3240
3241 public:
3242 //
3243 // The ``id'' of this object
3244 //
3245 // NOTE - we explicitly allow the situation where this function
3246 // can return the address of the object - the ``this'' pointer
3247 // instead of a computed id field (the __object_id field below).
3248 //
3249 // This function is protected because we don't want too much dependence
3250 // on this notion of object identity. I want to be able to rip it
3251 // out if it becomes to cumbersome.
3252 unsigned objectId() const;
3253 private:
3254 //
3255 // Symbolic ID
3256 //
3257 // NOTE - Normally this would be implemented by the `this' pointer.
3258 // TODO - remove this for production code
3259 //
3260 // However, in order to make the test suites run on all machines, we
3261 // make this into a symbolic id that is maintained with each object.
3262 // Thus the valid outputs are always consistent across all machines.
3263 unsigned __object_id;
3264 static unsigned __next_id;
3265 };
3266
3267 //# 1 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h" 1
3268 // This is part of the iostream library, providing -*- C++ -*- input/output.
3269 // Copyright (C) 1991 Per Bothner.
3270 //
3271 // This library is free software; you can redistribute it and/or
3272 // modify it under the terms of the GNU Library General Public
3273 // License as published by the Free Software Foundation; either
3274 // version 2 of the License, or (at your option) any later version.
3275 //
3276 // This library is distributed in the hope that it will be useful,
3277 // but WITHOUT ANY WARRANTY; without even the implied warranty of
3278 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
3279 // Library General Public License for more details.
3280 //
3281 // You should have received a copy of the GNU Library General Public
3282 // License along with this library; if not, write to the Free
3283 // Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
3284
3285 //# 210 "/projects/gnu-cygnus/gnu-cygnus-8/common/g++-include/iostream.h"
3286
3287 //# 117 "../../../../../../mips/include/Gct/Object/GctObject.h" 2
3288
3289 extern ostream& operator<<(ostream&, GctObject&);
3290
3291
3292 //# 25 "../../../../../../mips/include/Gct/Object/GctHashObject.h" 2
3293
3294
3295 //
3296 // GctHashObject class (is abstract)
3297 //
3298 class GctHashObject: virtual public GctObject {
3299 protected:
3300 GctHashObject();
3301 GctHashObject(const GctHashObject&);
3302
3303 public:
3304 //
3305 // hash support
3306 //
3307 virtual unsigned hash() const;
3308 };
3309
3310
3311 //# 28 "../../GctSymbol.h" 2
3312
3313
3314 //
3315 // GctSymbol
3316 //
3317 class GctSymbol: virtual public GctHashObject, String {
3318 public:
3319 GctSymbol(); // vacuous symbol required for genclass usage
3320 GctSymbol(const char*);
3321 GctSymbol(const String&);
3322 GctSymbol(const GctSymbol&);
3323
3324 operator const char *() const;
3325
3326 bool operator==(const GctSymbol&) const;
3327 bool operator!=(const GctSymbol&) const;
3328
3329 bool operator<=(const GctSymbol&) const;
3330 bool operator<(const GctSymbol&) const;
3331 bool operator>=(const GctSymbol&) const;
3332 bool operator>(const GctSymbol&) const;
3333
3334 unsigned hash() const;
3335
3336 // I/O Support
3337 const char *stringify();
3338
3339 // Consistency
3340 void OK() const;
3341 private:
3342 const char *class_name() const;
3343 };
3344
3345 extern unsigned hash(GctSymbol&); // genclass support (no const)
3346
3347 //
3348 // Inline functions
3349 //
3350 // Note - none of the String operators save for operator const char *()
3351 // are String member functions, instead, they are anonymous functions
3352 // which work by overloading.
3353 //
3354
3355
3356
3357
3358
3359 GctSymbol::operator const char *() const
3360 {
3361
3362
3363
3364
3365
3366 return String::operator const char *();
3367 }
3368
3369 bool
3370 GctSymbol::operator==(const GctSymbol& other) const
3371 {
3372
3373
3374
3375
3376
3377 return (bool)::operator==(*this, other);
3378 }
3379
3380 bool
3381 GctSymbol::operator!=(const GctSymbol& other) const
3382 {
3383
3384
3385
3386
3387
3388 return (bool)::operator!=(*this, other);
3389 }
3390
3391 bool
3392 GctSymbol::operator<=(const GctSymbol& other) const
3393 {
3394
3395
3396
3397
3398
3399 return (bool)::operator<=(*this, other);
3400 }
3401
3402 bool
3403 GctSymbol::operator<(const GctSymbol& other) const
3404 {
3405
3406
3407
3408
3409
3410 return (bool)::operator<(*this, other);
3411 }
3412
3413 bool
3414 GctSymbol::operator>=(const GctSymbol& other) const
3415 {
3416
3417
3418
3419
3420
3421 return (bool)::operator>=(*this, other);
3422 }
3423
3424 bool
3425 GctSymbol::operator>(const GctSymbol& other) const
3426 {
3427
3428
3429
3430
3431
3432 return (bool)::operator>(*this, other);
3433 }
3434
3435
3436 //# 25 "GctSymbol.defs.h" 2
3437
3438
3439 // equality operator
3440
3441
3442
3443
3444 // less-than-or-equal
3445
3446
3447
3448
3449 // comparison : less-than -> 0
3450
3451
3452
3453
3454 // hash function
3455
3456 extern unsigned int hash(GctSymbol&);
3457
3458
3459
3460 // initial capacity for structures requiring one
3461
3462
3463
3464
3465
3466
3467
3468 //# 27 "GctSymbol.GctSymbol.Map.h" 2
3469
3470
3471 class GctSymbolGctSymbolMap
3472 {
3473 protected:
3474 int count;
3475 GctSymbol def;
3476
3477 public:
3478 GctSymbolGctSymbolMap(GctSymbol& dflt);
3479 virtual ~GctSymbolGctSymbolMap();
3480
3481 int length(); // current number of items
3482 int empty();
3483
3484 virtual int contains(GctSymbol& key); // is key mapped?
3485
3486 virtual void clear(); // delete all items
3487
3488 virtual GctSymbol& operator [] (GctSymbol& key) = 0; // access contents by key
3489
3490 virtual void del(GctSymbol& key) = 0; // delete entry
3491
3492 virtual Pix first() = 0; // Pix of first item or 0
3493 virtual void next(Pix& i) = 0; // advance to next or 0
3494 virtual GctSymbol& key(Pix i) = 0; // access key at i
3495 virtual GctSymbol& contents(Pix i) = 0; // access contents at i
3496
3497 virtual int owns(Pix i); // is i a valid Pix ?
3498 virtual Pix seek(GctSymbol& key); // Pix of key
3499
3500 GctSymbol& dflt(); // access default val
3501
3502 void error(const char* msg);
3503 virtual int OK() = 0; // rep invariant
3504 };
3505
3506
3507
~GctSymbolGctSymbolMap()3508 inline GctSymbolGctSymbolMap::~GctSymbolGctSymbolMap() {}
3509
length()3510 inline int GctSymbolGctSymbolMap::length()
3511 {
3512 return count;
3513 }
3514
empty()3515 inline int GctSymbolGctSymbolMap::empty()
3516 {
3517 return count == 0;
3518 }
3519
dflt()3520 inline GctSymbol& GctSymbolGctSymbolMap::dflt()
3521 {
3522 return def;
3523 }
3524
GctSymbolGctSymbolMap(GctSymbol & dflt)3525 inline GctSymbolGctSymbolMap::GctSymbolGctSymbolMap(GctSymbol& dflt) :def(dflt)
3526 {
3527 count = 0;
3528 }
3529
3530
3531
3532
3533 //# 26 "GctSymbol.GctSymbol.CHMap.h" 2
3534
3535
3536
3537
3538
3539 struct GctSymbolGctSymbolCHNode
3540 {
3541 GctSymbolGctSymbolCHNode* tl;
3542 GctSymbol hd;
3543 GctSymbol cont;
3544 GctSymbolGctSymbolCHNode();
3545 GctSymbolGctSymbolCHNode(GctSymbol& h, GctSymbol& c, GctSymbolGctSymbolCHNode* t = 0);
3546 ~GctSymbolGctSymbolCHNode();
3547 };
3548
3549
3550
GctSymbolGctSymbolCHNode()3551 inline GctSymbolGctSymbolCHNode::GctSymbolGctSymbolCHNode() {}
3552
GctSymbolGctSymbolCHNode(GctSymbol & h,GctSymbol & c,GctSymbolGctSymbolCHNode * t)3553 inline GctSymbolGctSymbolCHNode::GctSymbolGctSymbolCHNode(GctSymbol& h, GctSymbol& c, GctSymbolGctSymbolCHNode* t)
3554 : hd(h), cont(c), tl(t) {}
3555
~GctSymbolGctSymbolCHNode()3556 inline GctSymbolGctSymbolCHNode::~GctSymbolGctSymbolCHNode() {}
3557
3558
3559
3560
3561 typedef GctSymbolGctSymbolCHNode* GctSymbolGctSymbolCHNodePtr;
3562
3563
3564
3565
3566 class GctSymbolGctSymbolCHMap : public GctSymbolGctSymbolMap
3567 {
3568 protected:
3569 GctSymbolGctSymbolCHNode** tab;
3570 unsigned int size;
3571
3572 public:
3573 GctSymbolGctSymbolCHMap(GctSymbol& dflt,unsigned int sz=100 );
3574 GctSymbolGctSymbolCHMap(GctSymbolGctSymbolCHMap& a);
3575 ~GctSymbolGctSymbolCHMap();
3576
3577 GctSymbol& operator [] (GctSymbol& key);
3578
3579 void del(GctSymbol& key);
3580
3581 Pix first();
3582 void next(Pix& i);
3583 GctSymbol& key(Pix i);
3584 GctSymbol& contents(Pix i);
3585
3586 Pix seek(GctSymbol& key);
3587 int contains(GctSymbol& key);
3588
3589 void clear();
3590 int OK();
3591 };
3592
3593
3594
~GctSymbolGctSymbolCHMap()3595 inline GctSymbolGctSymbolCHMap::~GctSymbolGctSymbolCHMap()
3596 {
3597 clear();
3598 delete tab;
3599 }
3600
contains(GctSymbol & key)3601 inline int GctSymbolGctSymbolCHMap::contains(GctSymbol& key)
3602 {
3603 return seek(key) != 0;
3604 }
3605
key(Pix p)3606 inline GctSymbol& GctSymbolGctSymbolCHMap::key(Pix p)
3607 {
3608 if (p == 0) error("null Pix");
3609 return ((GctSymbolGctSymbolCHNode*)p)->hd;
3610 }
3611
contents(Pix p)3612 inline GctSymbol& GctSymbolGctSymbolCHMap::contents(Pix p)
3613 {
3614 if (p == 0) error("null Pix");
3615 return ((GctSymbolGctSymbolCHNode*)p)->cont;
3616 }
3617
3618
3619
3620
3621 //# 22 "GctSymbol.GctSymbol.CHMap.cc" 2
3622
3623
3624 // The nodes are linked together serially via a version
3625 // of a trick used in some vtables: odd pointers are
3626 // actually links to the next table entry.
3627 // Not terrible, but not wonderful either
3628
goodCHptr(GctSymbolGctSymbolCHNode * t)3629 static inline int goodCHptr(GctSymbolGctSymbolCHNode* t)
3630 {
3631 return ((((unsigned)t) & 1) == 0);
3632 }
3633
index_to_CHptr(int i)3634 static inline GctSymbolGctSymbolCHNode* index_to_CHptr(int i)
3635 {
3636 return (GctSymbolGctSymbolCHNode*)((i << 1) + 1);
3637 }
3638
CHptr_to_index(GctSymbolGctSymbolCHNode * t)3639 static inline int CHptr_to_index(GctSymbolGctSymbolCHNode* t)
3640 {
3641 return ( ((unsigned) t) >> 1);
3642 }
3643
GctSymbolGctSymbolCHMap(GctSymbol & dflt,unsigned int sz)3644 GctSymbolGctSymbolCHMap::GctSymbolGctSymbolCHMap(GctSymbol& dflt, unsigned int sz)
3645 :GctSymbolGctSymbolMap(dflt)
3646 {
3647 tab = (GctSymbolGctSymbolCHNode**)(new GctSymbolGctSymbolCHNodePtr[size = sz]);
3648 for (unsigned int i = 0; i < size; ++i) tab[i] = index_to_CHptr(i+1);
3649 count = 0;
3650 }
3651
GctSymbolGctSymbolCHMap(GctSymbolGctSymbolCHMap & a)3652 GctSymbolGctSymbolCHMap::GctSymbolGctSymbolCHMap(GctSymbolGctSymbolCHMap& a) :GctSymbolGctSymbolMap(a.def)
3653 {
3654 tab = (GctSymbolGctSymbolCHNode**)(new GctSymbolGctSymbolCHNodePtr[size = a.size]);
3655 for (unsigned int i = 0; i < size; ++i) tab[i] = index_to_CHptr(i+1);
3656 count = 0;
3657 for (Pix p = a.first(); p; a.next(p)) (*this)[a.key(p)] = a.contents(p); // { dg-bogus "" } type `GctSymbol' is derived from private `String'
3658 }
3659