aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/g++.old-deja/g++.brendan/crash19.C
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/testsuite/g++.old-deja/g++.brendan/crash19.C')
-rw-r--r--gcc/testsuite/g++.old-deja/g++.brendan/crash19.C1704
1 files changed, 0 insertions, 1704 deletions
diff --git a/gcc/testsuite/g++.old-deja/g++.brendan/crash19.C b/gcc/testsuite/g++.old-deja/g++.brendan/crash19.C
deleted file mode 100644
index 1738c736297..00000000000
--- a/gcc/testsuite/g++.old-deja/g++.brendan/crash19.C
+++ /dev/null
@@ -1,1704 +0,0 @@
-// Special g++ Options:
-// Build don't link:
-// GROUPS passed old-abort
-typedef unsigned long _G_clock_t;
-typedef long _G_dev_t;
-typedef long int _G_fpos_t;
-typedef long _G_gid_t;
-typedef unsigned long _G_ino_t;
-typedef unsigned short _G_mode_t;
-typedef short _G_nlink_t;
-typedef long _G_off_t;
-typedef long _G_pid_t;
-typedef int _G_ptrdiff_t;
-typedef int _G_sigset_t;
-typedef unsigned int _G_size_t;
-typedef long _G_time_t;
-typedef long _G_uid_t;
-typedef unsigned int _G_wchar_t;
-typedef int _G_ssize_t;
-typedef double * _G_va_list;
-class ostream; class streambuf; class backupbuf;
-extern "C" int __underflow(streambuf*);
-extern "C" int __overflow(streambuf*, int);
-typedef _G_off_t streamoff;
-typedef _G_off_t streampos;
-typedef unsigned long __fmtflags;
-typedef unsigned char __iostate;
-struct _ios_fields {
- streambuf *_strbuf;
- ostream* _tie;
- int _width;
- __fmtflags _flags;
- _G_wchar_t _fill;
- __iostate _state;
- __iostate _exceptions;
- int _precision;
-};
-enum state_value {
- _good = 0 ,
- _eof = 1 ,
- _fail = 2 ,
- _bad = 4 };
-enum open_mode {
- input = 1 ,
- output = 2 ,
- atend = 4 ,
- append = 8 };
-class ios : public _ios_fields {
- public:
- typedef __fmtflags fmtflags;
- typedef int iostate;
- typedef int openmode;
- enum io_state {
- goodbit = 0 ,
- eofbit = 1 ,
- failbit = 2 ,
- badbit = 4 };
- enum open_mode {
- in = 1 ,
- out = 2 ,
- ate = 4 ,
- app = 8 ,
- trunc = 16 ,
- nocreate = 32 ,
- noreplace = 64 ,
- bin = 128 };
- enum seek_dir { beg, cur, end};
- enum { skipws=01, left=02, right=04, internal=010,
- dec=020, oct=040, hex=0100,
- showbase=0200, showpoint=0400, uppercase=01000, showpos=02000,
- scientific=04000, fixed=010000, unitbuf=020000, stdio=040000,
- dont_close=0x80000000
- };
- enum {
- basefield=dec+oct+hex,
- floatfield = scientific+fixed,
- adjustfield = left+right+internal
- };
- ostream* tie() const { return _tie; }
- ostream* tie(ostream* val) { ostream* save=_tie; _tie=val; return save; }
- _G_wchar_t fill() const { return (_G_wchar_t)_fill; }
- _G_wchar_t fill(_G_wchar_t newf)
- {_G_wchar_t oldf = (_G_wchar_t)_fill; _fill = (char)newf; return oldf;}
- fmtflags flags() const { return _flags; }
- fmtflags flags(fmtflags new_val) {
- fmtflags old_val = _flags; _flags = new_val; return old_val; }
- int precision() const { return _precision; }
- int precision(int newp) {
- unsigned short oldp = _precision; _precision = (unsigned short)newp;
- return oldp; }
- fmtflags setf(fmtflags val) {
- fmtflags oldbits = _flags;
- _flags |= val; return oldbits; }
- fmtflags setf(fmtflags val, fmtflags mask) {
- fmtflags oldbits = _flags;
- _flags = (_flags & ~mask) | (val & mask); return oldbits; }
- fmtflags unsetf(fmtflags mask) {
- fmtflags oldbits = _flags & mask;
- _flags &= ~mask; return oldbits; }
- int width() const { return _width; }
- int width(int val) { int save = _width; _width = val; return save; }
- void _throw_failure() { }
- streambuf* rdbuf() const { return _strbuf; }
- void clear(iostate state = 0) {
- _state = _strbuf ? state : state|badbit;
- if (_state & _exceptions) _throw_failure(); }
- void set(iostate flag) { _state |= flag;
- if (_state & _exceptions) _throw_failure(); }
- int good() const { return _state == 0; }
- int eof() const { return _state & ios::eofbit; }
- int fail() const { return _state & (ios::badbit|ios::failbit); }
- int bad() const { return _state & ios::badbit; }
- iostate rdstate() const { return _state; }
- operator void*() const { return fail() ? (void*)0 : (void*)(-1); }
- int operator!() const { return fail(); }
- iostate exception(iostate enable) {
- iostate old = _exceptions; _exceptions = enable;
- if (_state & _exceptions) _throw_failure();
- return old; }
- static int sync_with_stdio(int on);
- static void sync_with_stdio() { sync_with_stdio(1); }
- void unset(state_value flag) { _state &= ~flag; }
- void close();
- int is_open();
- int readable();
- int writable();
- protected:
- ios(streambuf* sb = 0, ostream* tie = 0);
- virtual ~ios();
- void init(streambuf* sb) { _state=0; _strbuf=sb; }
-};
-typedef ios::seek_dir _seek_dir;
-class streammarker {
- friend class streambuf;
- friend int __underflow(streambuf*);
- struct streammarker *_next;
- streambuf *_sbuf;
- streampos _spos;
- void set_streampos(streampos sp) { _spos = sp; }
- void set_offset(int offset) { _pos = offset; _spos = (streampos)(-2); }
- int _pos;
- public:
- streammarker(streambuf *sb);
- ~streammarker();
- int saving() { return _spos == -2; }
- int delta(streammarker&);
- int delta();
-};
-struct __streambuf {
- int _flags;
- char* _gptr;
- char* _egptr;
- char* _eback;
- char* _pbase; // ERROR - inacessible
- char* _pptr; // ERROR - inacessible
- char* _epptr;
- char* _base;
- char* _ebuf;
- struct streambuf *_chain;
- friend class streammarker;
- char *_other_gbase;
- char *_aux_limit;
- char *_other_egptr;
- streammarker *_markers;
- unsigned short _cur_column;
- char _unused;
- char _shortbuf[1];
-};
-extern unsigned __adjust_column(unsigned start, const char *line, int count);
-struct streambuf : private __streambuf {
- friend class ios;
- friend class istream;
- friend class ostream;
- friend class streammarker;
- friend int __underflow(streambuf*);
- protected:
- static streambuf* _list_all;
- streambuf*& xchain() { return _chain; }
- void _un_link();
- void _link_in();
- char* gptr() const { return _gptr; }
- char* pptr() const { return _pptr; }
- char* egptr() const { return _egptr; }
- char* epptr() const { return _epptr; }
- char* pbase() const { return _pbase; }
- char* eback() const { return _eback; }
- char* base() const { return _base; }
- char* ebuf() const { return _ebuf; }
- int blen() const { return _ebuf - _base; }
- void xput_char(char c) { *_pptr++ = c; }
- int xflags() { return _flags; }
- int xflags(int f) { int fl = _flags; _flags = f; return fl; }
- void xsetflags(int f) { _flags |= f; }
- void xsetflags(int f, int mask) { _flags = (_flags & ~mask) | (f & mask); }
- void gbump(int n) { _gptr += n; }
- void pbump(int n) { _pptr += n; }
- void setb(char* b, char* eb, int a=0);
- void setp(char* p, char* ep) { _pbase=_pptr=p; _epptr=ep; }
- void setg(char* eb, char* g, char *eg) { _eback=eb; _gptr=g; _egptr=eg; }
- char *shortbuf() { return _shortbuf; }
- int in_backup() { return _flags & 0x100 ; }
- char *Gbase() { return in_backup() ? _other_gbase : _eback; }
- char *eGptr() { return in_backup() ? _other_egptr : _egptr; }
- char *Bbase() { return in_backup() ? _eback : _other_gbase; }
- char *Bptr() { return _aux_limit; }
- char *eBptr() { return in_backup() ? _egptr : _other_egptr; }
- char *Nbase() { return _other_gbase; }
- char *eNptr() { return _other_egptr; }
- int have_backup() { return _other_gbase != __null ; }
- int have_markers() { return _markers != __null ; }
- int _least_marker();
- void switch_to_main_get_area();
- void switch_to_backup_area();
- void free_backup_area();
- void unsave_markers();
- int put_mode() { return _flags & 0x800 ; }
- int switch_to_get_mode();
- streambuf(int flags=0);
- public:
- static int flush_all();
- static void flush_all_linebuffered();
- virtual int underflow() = 0;
- virtual int overflow(int c = (-1) ) = 0;
- virtual int doallocate();
- virtual streampos seekoff(streamoff, _seek_dir, int mode=ios::in|ios::out);
- virtual streampos seekpos(streampos pos, int mode = ios::in|ios::out);
- int seekmark(streammarker& mark, int delta = 0);
- int sputbackc(char c);
- int sungetc();
- virtual ~streambuf();
- int unbuffered() { return _flags & 2 ? 1 : 0; }
- int linebuffered() { return _flags & 0x200 ? 1 : 0; }
- void unbuffered(int i)
- { if (i) _flags |= 2 ; else _flags &= ~2 ; }
- void linebuffered(int i)
- { if (i) _flags |= 0x200 ; else _flags &= ~0x200 ; }
- int allocate() {
- if (base() || unbuffered()) return 0;
- else return doallocate(); }
- void allocbuf() { if (base() == __null ) doallocbuf(); }
- void doallocbuf();
- virtual int sync();
- virtual int pbackfail(int c);
- virtual streambuf* setbuf(char* p, int len);
- int in_avail() { return _egptr - _gptr; }
- int out_waiting() { return _pptr - _pbase; }
- virtual int xsputn(const char* s, int n);
- int sputn(const char* s, int n) { return xsputn(s, n); }
- int padn(char pad, int n);
- virtual int xsgetn(char* s, int n);
- int sgetn(char* s, int n) { return xsgetn(s, n); }
- int ignore(int);
- virtual int get_column();
- virtual int set_column(int);
- long sgetline(char* buf, _G_size_t n, char delim, int putback_delim);
- int sbumpc() {
- if (_gptr >= _egptr && __underflow(this) == (-1) ) return (-1) ;
- else return *(unsigned char*)_gptr++; }
- int sgetc() {
- if (_gptr >= _egptr && __underflow(this) == (-1) ) return (-1) ;
- else return *(unsigned char*)_gptr; }
- int snextc() {
- if (_gptr >= _egptr && __underflow(this) == (-1) ) return (-1) ;
- return _gptr++, sgetc(); }
- int sputc(int c) {
- if (_pptr >= _epptr) return __overflow(this, (unsigned char)c);
- else return *_pptr++ = c, (unsigned char)c; }
- void stossc() { if (_gptr < _egptr) _gptr++; }
- int vscan(char const *fmt0, _G_va_list ap, ios* stream = __null );
- int scan(char const *fmt0 ...);
- int vform(char const *fmt0, _G_va_list ap);
- int form(char const *fmt0 ...);
-};
-class backupbuf : public streambuf {
- friend class streammarker;
- protected:
- backupbuf(int flags=0) : streambuf(flags| 0x4000 ) { }
- public:
- virtual int pbackfail(int c);
- virtual int underflow();
- virtual int overflow(int c = (-1) );
-};
-struct __file_fields {
- short _fileno;
- int _blksize;
- _G_fpos_t _offset;
-};
-class filebuf : public backupbuf {
- protected:
- struct __file_fields _fb;
- void init();
- public:
- static const int openprot;
- filebuf();
- filebuf(int fd);
- filebuf(int fd, char* p, int len);
- ~filebuf();
- filebuf* attach(int fd);
- filebuf* open(const char *filename, const char *mode);
- filebuf* open(const char *filename, ios::openmode mode, int prot = 0664);
- virtual int underflow();
- virtual int overflow(int c = (-1) );
- int is_open() const { return _fb._fileno >= 0; }
- int fd() const { return is_open() ? _fb._fileno : (-1) ; }
- filebuf* close();
- virtual int doallocate();
- virtual streampos seekoff(streamoff, _seek_dir, int mode=ios::in|ios::out);
- virtual streambuf* setbuf(char* p, int len);
- int xsputn(const char* s, int n);
- int xsgetn(char* s, int n);
- virtual int sync();
- protected:
- int is_reading() { return eback() != egptr(); }
- char* cur_ptr() { return is_reading() ? gptr() : pptr(); }
- char* file_ptr() { return eGptr(); }
- int do_write(const char *data, int to_do);
- int do_flush() { return do_write(_pbase, _pptr-_pbase); }// ERROR -
- virtual _G_ssize_t sys_read(char* buf, _G_size_t size);
- virtual _G_fpos_t sys_seek(_G_fpos_t, _seek_dir);
- virtual _G_ssize_t sys_write(const void*, long);
- virtual int sys_stat(void*);
- virtual int sys_close();
-};
-inline ios::ios(streambuf* sb , ostream* tie ) {
- _state = sb ? ios::goodbit : ios::badbit; _exceptions=0;
- _strbuf=sb; _tie = tie; _width=0; _fill=' ';
- _flags=ios::skipws|ios::dec; _precision=6; }
-inline ios::~ios() {
- if (!(_flags & (unsigned int)ios::dont_close)) delete _strbuf; }
-class istream; class ostream;
-typedef ios& (*__manip)(ios&);
-typedef istream& (*__imanip)(istream&);
-typedef ostream& (*__omanip)(ostream&);
-extern istream& ws(istream& ins);
-extern ostream& flush(ostream& outs);
-extern ostream& endl(ostream& outs);
-extern ostream& ends(ostream& outs);
-class ostream : virtual public ios
-{
- void do_osfx();
- public:
- ostream() { }
- ostream(streambuf* sb, ostream* tied=__null );
- int opfx() {
- if (!good()) return 0; else { if (_tie) _tie->flush(); return 1;} }
- void osfx() { if (flags() & (ios::unitbuf|ios::stdio))
- do_osfx(); }
- streambuf* ostreambuf() const { return _strbuf; }
- ostream& flush();
- ostream& put(char c) { _strbuf->sputc(c); return *this; }
- ostream& put(unsigned char c) { return put((char)c); }
- ostream& write(const char *s, int n);
- ostream& write(const unsigned char *s, int n) { return write((const char*)s, n);}
- ostream& put(signed char c) { return put((char)c); }
- ostream& write(const signed char *s, int n) { return write((const char*)s, n);}
- ostream& write(const void *s, int n) { return write((const char*)s, n);}
- ostream& seekp(streampos);
- ostream& seekp(streamoff, _seek_dir);
- streampos tellp();
- ostream& form(const char *format ...);
- ostream& vform(const char *format, _G_va_list args);
- ostream& operator<<(char c);
- ostream& operator<<(unsigned char c) { return (*this) << (char)c; }
- ostream& operator<<(signed char c) { return (*this) << (char)c; }
- ostream& operator<<(const char *s);
- ostream& operator<<(const unsigned char *s)
- { return (*this) << (const char*)s; }
- ostream& operator<<(const signed char *s)
- { return (*this) << (const char*)s; }
- ostream& operator<<(void *p);
- ostream& operator<<(int n);
- ostream& operator<<(unsigned int n);
- ostream& operator<<(long n);
- ostream& operator<<(unsigned long n);
- ostream& operator<<(long long n);
- ostream& operator<<(unsigned long long n);
- ostream& operator<<(short n) {return operator<<((int)n);}
- ostream& operator<<(unsigned short n) {return operator<<((unsigned int)n);}
- ostream& operator<<(double n);
- ostream& operator<<(float n) { return operator<<((double)n); }
- ostream& operator<<(__omanip func) { return (*func)(*this); }
- ostream& operator<<(__manip func) {(*func)(*this); return *this;}
- ostream& operator<<(streambuf*);
-};
-class istream : virtual public ios
-{
- _G_ssize_t _gcount;
- int _skip_ws();
- public:
- istream() { _gcount = 0; }
- istream(streambuf* sb, ostream*tied=__null );
- streambuf* istreambuf() const { return _strbuf; }
- istream& get(char* ptr, int len, char delim = '\n');
- istream& get(unsigned char* ptr, int len, char delim = '\n')
- { return get((char*)ptr, len, delim); }
- istream& get(char& c);
- istream& get(unsigned char& c) { return get((char&)c); }
- istream& getline(char* ptr, int len, char delim = '\n');
- istream& getline(unsigned char* ptr, int len, char delim = '\n')
- { return getline((char*)ptr, len, delim); }
- istream& get(signed char& c) { return get((char&)c); }
- istream& get(signed char* ptr, int len, char delim = '\n')
- { return get((char*)ptr, len, delim); }
- istream& getline(signed char* ptr, int len, char delim = '\n')
- { return getline((char*)ptr, len, delim); }
- istream& read(char *ptr, int n);
- istream& read(unsigned char *ptr, int n) { return read((char*)ptr, n); }
- istream& read(signed char *ptr, int n) { return read((char*)ptr, n); }
- istream& read(void *ptr, int n) { return read((char*)ptr, n); }
- istream& get(streambuf& sb, char delim = '\n');
- istream& gets(char **s, char delim = '\n');
- int ipfx(int need) {
- if (!good()) { set(ios::failbit); return 0; }
- if (_tie && (need == 0 || rdbuf()->in_avail() < need)) _tie->flush();
- if (!need && (flags() & ios::skipws)) return _skip_ws();
- return 1;
- }
- int ipfx0() {
- if (!good()) { set(ios::failbit); return 0; }
- if (_tie) _tie->flush();
- if (flags() & ios::skipws) return _skip_ws();
- return 1;
- }
- int ipfx1() {
- if (!good()) { set(ios::failbit); return 0; }
- if (_tie && rdbuf()->in_avail() == 0) _tie->flush();
- return 1;
- }
- int get() { if (!ipfx1()) return (-1) ;
- int ch = _strbuf->sbumpc();
- if (ch == (-1) ) set(ios::eofbit);
- return ch; }
- int peek() { if (!ipfx1()) return (-1) ;
- int ch = _strbuf->sgetc();
- if (ch == (-1) ) set(ios::eofbit);
- return ch; }
- _G_ssize_t gcount() { return _gcount; }
- istream& ignore(int n=1, int delim = (-1) );
- istream& seekg(streampos);
- istream& seekg(streamoff, _seek_dir);
- streampos tellg();
- istream& putback(char ch) {
- if (good() && _strbuf->sputbackc(ch) == (-1) ) clear(ios::badbit);
- return *this;}
- istream& unget() {
- if (good() && _strbuf->sungetc() == (-1) ) clear(ios::badbit);
- return *this;}
- istream& scan(const char *format ...);
- istream& vscan(const char *format, _G_va_list args);
- istream& unget(char ch) { return putback(ch); }
- int skip(int i);
- istream& operator>>(char*);
- istream& operator>>(unsigned char* p) { return operator>>((char*)p); }
- istream& operator>>(signed char*p) { return operator>>((char*)p); }
- istream& operator>>(char& c);
- istream& operator>>(unsigned char& c) {return operator>>((char&)c);}
- istream& operator>>(signed char& c) {return operator>>((char&)c);}
- istream& operator>>(int&);
- istream& operator>>(long&);
- istream& operator>>(long long&);
- istream& operator>>(short&);
- istream& operator>>(unsigned int&);
- istream& operator>>(unsigned long&);
- istream& operator>>(unsigned long long&);
- istream& operator>>(unsigned short&);
- istream& operator>>(float&);
- istream& operator>>(double&);
- istream& operator>>( __manip func) {(*func)(*this); return *this;}
- istream& operator>>(__imanip func) { return (*func)(*this); }
- istream& operator>>(streambuf*);
-};
-class iostream : public istream, public ostream
-{
- _G_ssize_t _gcount;
- public:
- iostream() { _gcount = 0; }
- iostream(streambuf* sb, ostream*tied=__null );
-};
-extern istream cin;
-extern ostream cout, cerr, clog;
-struct Iostream_init { } ;
-inline ios& dec(ios& i)
-{ i.setf(ios::dec, ios::dec|ios::hex|ios::oct); return i; }
-inline ios& hex(ios& i)
-{ i.setf(ios::hex, ios::dec|ios::hex|ios::oct); return i; }
-inline ios& oct(ios& i)
-{ i.setf(ios::oct, ios::dec|ios::hex|ios::oct); return i; }
-extern char* form(const char*, ...);
-extern char* dec(long, int=0);
-extern char* dec(int, int=0);
-extern char* dec(unsigned long, int=0);
-extern char* dec(unsigned int, int=0);
-extern char* hex(long, int=0);
-extern char* hex(int, int=0);
-extern char* hex(unsigned long, int=0);
-extern char* hex(unsigned int, int=0);
-extern char* oct(long, int=0);
-extern char* oct(int, int=0);
-extern char* oct(unsigned long, int=0);
-extern char* oct(unsigned int, int=0);
-inline istream& WS(istream& str) { return ws(str); }
-typedef double *__gnuc_va_list;
-extern "C" {
- typedef struct {
- int __cnt;
- unsigned char *__ptr;
- unsigned char *__base;
- unsigned short __flag;
- unsigned char __fileL;
- unsigned char __fileH;
- } FILE;
- typedef struct {
- int __cnt;
- unsigned char *__ptr;
- unsigned char *__base;
- unsigned short __flag;
- unsigned char __fileL;
- unsigned char __fileH;
- unsigned char *__bufendp;
- unsigned char __smbuf[8 ];
- } _FILEX;
- typedef unsigned int size_t;
- typedef long int fpos_t;
- typedef double *__va_list;
- extern FILE __iob[];
- extern int remove(const char *);
- extern int rename(const char *, const char *);
- extern FILE *tmpfile(void);
- extern char *tmpnam(char *);
- extern int fclose(FILE *);
- extern int fflush(FILE *);
- extern FILE *fopen(const char *, const char *);
- extern FILE *freopen(const char *, const char *, FILE *);
- extern void setbuf(FILE *, char *);
- extern int setvbuf(FILE *, char *, int, size_t);
- extern int fprintf(FILE *, const char *, ...);
- extern int fscanf(FILE *, const char *,...);
- extern int printf(const char *,...);
- extern int scanf(const char *,...);
- extern int sprintf(char *, const char *,...);
- extern int sscanf(const char *, const char *,...);
- extern int vprintf(const char *, __va_list);
- extern int vfprintf(FILE *, const char *, __va_list);
- extern int vsprintf(char *, const char *, __va_list);
- extern int fgetc(FILE *);
- extern char *fgets(char *, int, FILE *);
- extern int fputc(int, FILE *);
- extern int fputs(const char *, FILE *);
- extern int getc(FILE *);
- extern int getchar(void);
- extern char *gets(char *);
- extern int putc(int, FILE *);
- extern int putchar(int);
- extern int puts(const char *);
- extern int ungetc(int, FILE *);
- extern int fgetpos(FILE *, fpos_t *);
- extern int fseek(FILE *, long int, int);
- extern int fsetpos(FILE *, const fpos_t *);
- extern long int ftell(FILE *);
- extern void rewind(FILE *);
- extern void clearerr(FILE *);
- extern int feof(FILE *);
- extern int ferror(FILE *);
- extern void perror(const char *);
- extern size_t fread(void *, size_t, size_t, FILE *);
- extern size_t fwrite(const void *, size_t, size_t, FILE *);
- extern int __flsbuf(unsigned char, FILE *);
- extern int __filbuf(FILE *);
- extern int fileno(FILE *);
- extern FILE *fdopen(int, const char *);
- extern int getw(FILE *);
- extern int putw(int, FILE *);
- extern int pclose(FILE *);
- extern FILE *popen(const char *, const char *);
- extern char *tempnam(const char *, const char *);
- extern char *ctermid(char *);
- extern char *cuserid(char *);
- extern int nl_fprintf(FILE *, const char * ,...);
- extern int nl_fscanf(FILE *, const char * ,...);
- extern int nl_printf(const char * ,...);
- extern int nl_scanf(const char * ,...);
- extern int nl_sprintf(char *, const char * ,...);
- extern int nl_sscanf(const char *, const char * ,...);
- extern unsigned char *__bufendtab[];
-}
-extern "C" {
- extern int __nl_char_size;
- typedef struct {
- int quot;
- int rem;
- } div_t;
- typedef struct {
- long int quot;
- long int rem;
- } ldiv_t;
- typedef unsigned int wchar_t;
- extern double atof(const char *);
- extern int atoi(const char *);
- extern long int atol(const char *);
- extern double strtod(const char *, char **);
- extern long int strtol(const char *, char **, int);
- extern unsigned long int strtoul(const char *, char **, int);
- extern int rand(void);
- extern void srand(unsigned int);
- extern int atexit(void (*) (void));
- extern void exit(int);
- extern char *getenv(const char *);
- extern int system(const char *);
- inline int abs(int d) { return (d>0)?d:-d; }
- extern div_t div(int, int);
- extern ldiv_t ldiv(long int, long int);
- extern long int labs(long int);
- extern int mblen(const char *, size_t);
- extern int mbtowc(wchar_t *, const char *, size_t);
- extern int wctomb(char *, wchar_t);
- extern size_t mbstowcs(wchar_t *, const char *, size_t);
- extern size_t wcstombs(char *, const wchar_t *, size_t);
- extern void free(void *);
- extern void qsort(void *, size_t, size_t, int (*)(const void *, const void *));
- extern void abort(void);
- extern void *bsearch(const void *, const void *, size_t, size_t, int (*) (const void *, const void *));
- extern void *calloc(size_t, size_t);
- extern void *malloc(size_t);
- extern void *realloc(void *, size_t);
- extern void setkey(const char *);
- extern void lcong48( unsigned short [] );
- extern double wcstod( const wchar_t *, wchar_t ** );
- extern long wcstol( const wchar_t *, wchar_t **, int );
- extern unsigned long wcstoul( const wchar_t *, wchar_t **, int );
- extern double drand48(void);
- extern double erand48(unsigned short []);
- extern long jrand48(unsigned short []);
- extern long lrand48(void);
- extern long mrand48(void);
- extern long nrand48(unsigned short []);
- extern void srand48(long);
- extern unsigned short *seed48(unsigned short []);
- extern int putenv(const char *);
- extern int clearenv(void);
- extern int getopt(int, char * const [], const char *);
- extern char *getpass(const char *);
- extern char *optarg;
- extern int optind;
- extern int opterr;
- struct mallinfo {
- int arena;
- int ordblks;
- int smblks;
- int hblks;
- int hblkhd;
- int usmblks;
- int fsmblks;
- int uordblks;
- int fordblks;
- int keepcost;
- };
- typedef struct {
- unsigned int word1, word2, word3, word4;
- } long_double;
-extern "C" {
- typedef long gid_t;
- typedef long uid_t;
- struct passwd {
- char *pw_name;
- char *pw_passwd;
- uid_t pw_uid;
- gid_t pw_gid;
- char *pw_age;
- char *pw_comment;
- char *pw_gecos;
- char *pw_dir;
- char *pw_shell;
- long pw_audid;
- int pw_audflg;
- };
- extern struct passwd *getpwuid(uid_t);
- extern struct passwd *getpwnam(const char *);
- struct s_passwd {
- char *pw_name;
- char *pw_passwd;
- char *pw_age;
- long pw_audid;
- int pw_audflg;
- };
- struct comment {
- char *c_dept;
- char *c_name;
- char *c_acct;
- char *c_bin;
- };
- extern void setpwent(void);
- extern void endpwent(void);
- extern struct passwd *getpwent(void);
- extern struct passwd *fgetpwent(FILE *);
- extern struct s_passwd *getspwent(void);
- extern struct s_passwd *getspwuid(int);
- extern struct s_passwd *getspwaid(int);
- extern struct s_passwd *getspwnam(char *);
- extern struct s_passwd *fgetspwent(FILE *);
-}
-extern int errno;
- extern "C" {
- extern int errno;
- }
-extern "C" {
- extern void perror(const char*);
- extern int sys_nerr;
- extern char *sys_errlist[];
- extern char *strerror (int);
-}
- extern const char *fcvt(double, size_t, int *, int *);
- extern char *gcvt(double, size_t, char *);
- extern char *ecvt(double, size_t, int *, int *);
- extern char *nl_gcvt(double, size_t, char *, int);
- extern char *_ldecvt(long_double, size_t, int *, int *);
- extern char *_ldfcvt(long_double, size_t, int *, int *);
- extern char *_ldgcvt(long_double, size_t, char *);
- extern int getpw(int, char *);
- extern long a64l(const char *);
- extern char *l64a(long);
- extern void l3tol(long *, const char *, int);
- extern void ltol3(char *, const long *, int);
- extern char *getmsg(int, int, int, char *, int);
- extern double nl_atof(const char *, int);
- extern double nl_strtod(const char *, char **, int);
- extern char *ltostr(long, int);
- extern char *ultostr(unsigned long, int);
- extern char *ltoa(long);
- extern char *ultoa(unsigned long);
- extern void memorymap(int);
- extern struct mallinfo mallinfo(void);
- extern int mallopt(int, int);
-}
-typedef void * POINTER;
-typedef FILE * FILE_PTR;
-typedef void (*DISPLAYER) (POINTER obj, FILE_PTR fp, FILE_PTR errorFile) ;
-typedef void (*DESTROYER) (POINTER obj, FILE_PTR errorFile) ;
-typedef void (*RCOUNT_INC) (POINTER obj, FILE_PTR errorFile) ;
-typedef int (*COMPARE) (POINTER obj1, POINTER obj2) ;
-typedef unsigned long (*HASH_ADDR) (POINTER obj, FILE_PTR errorFile) ;
-typedef unsigned long (*HASH_SKIP) (POINTER obj, FILE_PTR errorFile) ;
-typedef POINTER
- (*ACCESS_FCT) (POINTER target, POINTER sample, FILE_PTR errorFile) ;
-typedef POINTER DATA_PTR;
- typedef long dev_t;
- typedef unsigned long ino_t;
- typedef unsigned short mode_t;
- typedef short nlink_t;
- typedef long off_t;
- typedef long pid_t;
- typedef long time_t;
- typedef int ssize_t;
- typedef unsigned short __site_t;
- typedef unsigned short __cnode_t;
- typedef unsigned long clock_t;
- typedef long key_t;
- typedef unsigned short __ushort;
- typedef long __daddr_t;
- typedef char *__caddr_t;
- typedef long __swblk_t;
- typedef unsigned char u_char;
- typedef unsigned short u_short;
- typedef unsigned int u_int;
- typedef unsigned long u_long;
- typedef unsigned int uint;
- typedef unsigned short ushort;
- typedef __swblk_t swblk_t;
- typedef __daddr_t daddr_t;
- typedef __site_t site_t;
- typedef __cnode_t cnode_t;
- typedef __caddr_t caddr_t;
- typedef long paddr_t;
- typedef short cnt_t;
- typedef unsigned int space_t;
- typedef unsigned int prot_t;
- typedef unsigned long cdno_t;
- typedef unsigned short use_t;
- typedef struct _physadr { int r[1]; } *physadr;
- typedef struct _quad { long val[2]; } quad;
- typedef short cpu_t;
- typedef struct label_t {
- int lbl_rp;
- int lbl_sp;
- int lbl_s[17];
- int lbl_ss[1];
- double lbl_sf[4];
- } label_t;
- typedef char *dm_message;
- typedef long aid_t;
- typedef pid_t sid_t;
- typedef long fd_mask;
- typedef struct fd_set {
- fd_mask fds_bits[ ((( 2048 )+(( (sizeof(fd_mask) * 8) )-1))/( (sizeof(fd_mask) * 8) )) ];
- } fd_set;
-POINTER malloc (size_t size ) ;
-POINTER calloc (size_t n , size_t size ) ;
-void free (POINTER c ) ;
-void mem_report (void ) ;
-typedef int BOOLEAN;
-typedef enum
-{
- eNoErrors = -1,
- eUnknownProcessingError = 0,
- eAlgorithmFailure = 100,
- eAlreadyLocked = 200,
- eAttCount = 300,
- eAttRedefinition = 400,
- eBasicMatrixError = 500,
- eBadAddress = 600,
- eBadAttribute = 700,
- eBadFileNumber = 800,
- eBadMode = 900,
- eBadVersion = 1000,
- eColumnError = 1100,
- eConstraintError = 1200,
- eLBConstraintError = 1300,
- eUBConstraintError = 1400,
- eDatabaseError = 1500,
- eDataExists = 1600,
- eDataNotFound = 1700,
- eDictError = 1800,
- eDiffAtt = 1900,
- eDomain = 2000,
- eDuplicateAtt = 2100,
- eDuplicateKey = 2200,
- eElementMismatch = 2300,
- eEmptyAtt = 2400,
- eEmptyDict = 2450,
- eEmptyLink = 2500,
- eEmptyQueue = 2600,
- eEmptyStack = 2700,
- eEntityExists = 2800,
- eEntityNotFound = 2900,
- eEtaComputeError = 3000,
- eEtaFileError = 3100,
- eEtaInverseConsistency = 3200,
- eFileExists = 3300,
- eFileNotFound = 3400,
- eFunctionMismatch = 3500,
- eFunctionNotAvailable = 3600,
- eFunctionNotFound = 3700,
- eFunctionTypeConflict = 3800,
- eGraphError = 3900,
- eIllegalBMatrixOp = 4000,
- eIllegalData = 4100,
- eIllegalDeletion = 4200,
- eIllegalDictOp = 4300,
- eIllegalEtaFileOp = 4400,
- eIllegalFunctionRequest = 4500,
- eIllegalFunctionType = 4600,
- eIllegalGraphOp = 4700,
- eIllegalGraphType = 4800,
- eIllegalIndex = 4900,
- eIllegalInsertion = 5000,
- eIllegalListOp = 5100,
- eIllegalLPTokenOp = 5200,
- eIllegalLPTokenType = 5300,
- eIllegalMatrixOp = 5400,
- eIllegalMatrixSize = 5500,
- eIllegalMatrixState = 5600,
- eIllegalMatrixType = 5700,
- eIllegalNBMatrixOp = 5800,
- eIllegalOperation = 5900,
- eIllegalOption = 6000,
- eIllegalOverload = 6100,
- eIllegalSeek = 6200,
- eIllegalType = 6300,
- eIllegalVectorOp = 6400,
- eIllegalVectorType = 6500,
- eIllFormedADT = 6600,
- eInconsistentData = 6700,
- eInternalError = 6800,
- eInUse = 6900,
- eInvalidArgument = 7000,
- eInvalidAtt = 7100,
- eInvalidData = 7200,
- eInvalidIndex = 7300,
- eInvalidMatrixOp = 7400,
- eInvalidOperation = 7500,
- eInvalidOption = 7600,
- eInvalidParam = 7700,
- eInvalidVectorOp = 7800,
- eKeyNotFound = 7900,
- eLinkNotEmpty = 8000,
- eListError = 8100,
- eLockAccess = 8200,
- eLockExists = 8300,
- eLockNotFound = 8400,
- eLockReadOnly = 8500,
- eLockTrunc = 8600,
- eLPTokenError = 8700,
- eLPTokenMisuse = 8800,
- eMatrixError = 8900,
- eMatrixMismatch = 9000,
- eMatrixMultiplicationError = 9100,
- eMissingData = 9200,
- eMysteryError = 9300,
- eNameTooLong = 9400,
- eNeverLocked = 9500,
- eNoAccess = 9600,
- eNoLockReq = 9800,
- eNoMoreAtt = 9900,
- eNoMoreElements = 10000,
- eNonBasicMatrixError = 10100,
- eNonInvertibleMatrix = 10200,
- eNonsenseData = 10300,
- eNoSuchKey = 10400,
- eNotEnoughSpace = 10500,
- eNotFetched = 10600,
- eNotLocked = 10700,
- eNotSupported = 10800,
- eNullPointer = 10900,
- eNullInternalPointer = 11000,
- eNullCompare = 11050,
- eNullData = 11070,
- eNullDestroyer = 11100,
- eNullDisplayer = 11200,
- eNullFunction = 11300,
- eRemove = 11400,
- eRoundoff = 11500,
- eQueueNotEmpty = 11600,
- eSparseGraphError = 11700,
- eStackError = 11800,
- eStackNotEmpty = 11900,
- eTLRSProceduralError = 12000,
- eTooManyAtt = 12100,
- eTooManyLocks = 12200,
- eTypeConflict = 12300,
- eUnexpectedType = 12400,
- eUnixError = 12500,
- eVectorMismatch = 12600,
- eProcessingError = 15000,
- eActionKludge = 15100,
- eNotImplemented = 15200,
- eNotStable = 15300,
- eNotReleased = 15400,
- eBeingWorkedOn = 15500
-} eErrorState;
-extern "C" {
-extern eErrorState spider_errno;
-extern char err_string[];
-POINTER mallocate (size_t n ) ;
-size_t pagesize (void ) ;
-POINTER page_mallocate (void ) ;
-POINTER make_memory_token (int size , int page_cnt, const char *name) ;
-POINTER mem_malloc (POINTER mptr ) ;
-void mem_free (POINTER mptr , POINTER obj ) ;
-const char *get_double_string (char *buffer , double num ) ;
-int spider_strcat (const char *proc , char *str1 , const char *str2 , int maxlen ) ;
-void init_errors (void ) ;
-void append_abort (const char *proc ) ;
-void append_message (const char *proc , const char *msg ) ;
-void set_errno (eErrorState err ) ;
-void spider_perror (const char *proc , FILE_PTR errorFile ) ;
-void append_not_implemented (const char *proc , int *target_errno ) ;
-const char *GetBooleanString (BOOLEAN bool ) ;// ERROR - use of bool as identifier
-double truncate_value (double x , double epsilon ) ;
-double log2 (double x ) ;
-int ceil_log2 (double x ) ;
-int floor_log2 (double x ) ;
-}
-extern "C" {
-extern char char80[], char128[], char160[], char512[];
-extern char char1000[], char2000[];
-extern char char320[];
-BOOLEAN Get_EM_StderrFlag (void ) ;
-void Set_EM_StderrFlag (BOOLEAN printToStderr ) ;
-void CheckReleaseState (eErrorState releaseState , const char *procName, FILE_PTR errorFile ) ;
-void PrintErrorString (const char *errorString , FILE_PTR errorFile ) ;
-const char *get_error_header (eErrorState errorState ) ;
-void print_error_header (eErrorState errorState , FILE_PTR errorFile ) ;
-void PrintErrorMessage (eErrorState errorState , const char *message , FILE_PTR errorFile ) ;
-}
-extern "C" {
-extern short show_increment_rcount;
-extern int errno;
-extern int bmk_errno;
-extern int ck_errno;
-extern int db_errno;
-extern int dict_errno;
-extern int glh_errno;
-extern int graph_errno;
-extern int hash_errno;
-extern int link_errno;
-extern int lp_errno;
-extern int matrix_errno;
-extern int nbmk_errno;
-extern int network_errno;
-extern int queue_errno;
-extern int set_kernel_errno;
-extern int stack_errno;
-}
-extern "C" {
-const char *spider_version_string (void ) ;
-int spider_version (void ) ;
-const char *spider_errstring (void ) ;
-void append_perror (const char *s ) ;
-void unix_perror (const char *s ) ;
-}
-typedef struct node a_dict_node, * DICT_NODE;
-struct node {
- POINTER info;
- DICT_NODE left;
- DICT_NODE right;
- DICT_NODE prev;
- DICT_NODE next;
-};
-typedef struct tree a_dict, * DICT;
-struct tree {
- int size;
- COMPARE comp;
- DICT_NODE header;
- DICT_NODE last_accessed;
- DICT_NODE list_head;
- DICT_NODE list_tail;
-};
-typedef enum { PREORDER = -1, INORDER, POSTORDER } traversal_t;
-extern "C" {
-void dict_set_nopages (int desired_nopages ) ;
-void dict_err (void ) ;
-const char *traversal_string (traversal_t tr ) ;
-DICT make_dictionary (COMPARE cmp ) ;
-int dict_insert (POINTER item , DICT dict ) ;
-int dict_delete (POINTER item , DICT dict ) ;
-POINTER dict_access (POINTER item , DICT dict ) ;
-POINTER dict_low (DICT dict ) ;
-POINTER dict_nlow (DICT dict ) ;
-POINTER dict_big (DICT dict ) ;
-POINTER dict_nbig (DICT dict ) ;
-POINTER dict_first (DICT dict ) ;
-POINTER dict_next (DICT dict ) ;
-POINTER dict_last (DICT dict ) ;
-POINTER dict_prev (DICT dict ) ;
-int clear_dictionary (DICT dict , DESTROYER destroy , FILE *errorFile ) ;
-int dict_size (const a_dict *dict ) ;
-POINTER dict_elem (int index , DICT dict ) ;
-int dict_compare (DICT d1 , DICT d2 ) ;
-DICT dict_copy (DICT di , COMPARE cmp ) ;
-int dict_change_compare (DICT di , COMPARE cmp ) ;
-int dict_height (DICT di ) ;
-void dict_print_stats (FILE *fp , DICT di ) ;
-void dict_print (FILE *fp , DICT di , traversal_t tr , DISPLAYER display ) ;
-const char *dict_version (void ) ;
-void init_dict_errors (void ) ;
-const char *dict_errstring (void ) ;
-void dict_append_perror (const char *s ) ;
-void dict_perror (const char *s ) ;
-extern int dict_errno;
-}
-typedef struct q_item {
- struct q_item *next;
- POINTER data;
-} a_q_item, *Q_ITEM;
-typedef struct {
- int rcount;
- Q_ITEM first;
- Q_ITEM last;
- int count;
-} a_queue, *QUEUE;
-extern "C" {
-void queue_err (void) ;
-void queue_set_nopages (int desired_nopages) ;
-QUEUE make_queue (void ) ;
-POINTER queue_look (const a_queue * Q ) ;
-POINTER queue_last (const a_queue * Q ) ;
-POINTER queue_remove (QUEUE Q ) ;
-int queue_append (QUEUE Q , POINTER data ) ;
-int queue_size (const a_queue * Q ) ;
-void queue_destroy (POINTER ptr , FILE_PTR errorFile ) ;
-void IncrementQRCount (POINTER ptr , FILE_PTR errorFile ) ;
-const char *queue_version (void ) ;
-void init_queue_errors (void ) ;
-const char *queue_errstring (void ) ;
-void queue_append_perror (const char *s ) ;
-void queue_perror (const char *s ) ;
-extern int queue_errno;
-}
-typedef struct s_item {
- struct s_item *next;
- POINTER data;
-} a_s_item, *S_ITEM;
-typedef struct stack {
- int rcount;
- S_ITEM top;
- int count;
-} a_stack, *STACK;
-extern "C" {
-void stack_err (void) ;
-void stack_set_nopages (int desired_nopages) ;
-STACK make_stack (void ) ;
-POINTER stack_look (const a_stack * S ) ;
-POINTER stack_pop (STACK S ) ;
-int stack_push (STACK S , POINTER data ) ;
-int stack_size (const a_stack * S ) ;
-void stack_destroy (POINTER ptr , FILE_PTR errorFile ) ;
-void IncrementSRCount (POINTER ptr , FILE_PTR errorFile ) ;
-const char *stack_version (void ) ;
-void init_stack_errors (void ) ;
-const char *stack_errstring (void ) ;
-void stack_append_perror (const char *s ) ;
-void stack_perror (const char *s ) ;
-extern int stack_errno;
-}
-typedef const char *(*STRINGER)(const void *ptr);
-int default_compare(const void *p1, const void *p2);
-void default_displayer(const void *ptr, FILE *fp, FILE *errorFile);
-const char *default_stringer(const void *ptr);
-const char *object_stringer(const void *ptr);
-class object {
- static long current_id;
- static long next_id();
-protected:
- void display2(ostream &fp = cout) const;
- long id;
-public:
- object() { id = next_id(); }
- object(const object &obj) { id = next_id(); }
- virtual ~object()
- {
- if (799 >= 999 ) cout << "~object() executing..." << '\n'; ;
- }
- object & operator = (const object & obj)
- {
- return( *this );
- }
- virtual int compare(const void *p2) const;
- virtual void display(ostream & fp = cout) const
- {
- display2(fp);
- }
- operator char *() const;
-};
-ostream & operator << (ostream & fp, object & obj);
-int operator < (object & obj1, object & obj2);
-int operator <= (object & obj1, object & obj2);
-int operator > (object & obj1, object & obj2);
-int operator >= (object & obj1, object & obj2);
-int operator == (object & obj1, object & obj2);
-int operator != (object & obj1, object & obj2);
-void null_destroy(void *p, FILE *errorFile);
-void object_destroy(void *p, FILE *errorFile);
-int object_compare(const void *p1, const void *p2);
-void object_display(const void *p, FILE *fp, FILE *errorFile);
-class dict : public object {
- class internal {
- public:
- DICT di;
- int errno;
- COMPARE compare_f;
- DISPLAYER display_f;
- DESTROYER destroy_f;
- STRINGER string_f;
- int count;
- void append_error(int expr, const char *proc)
- {
- if (expr) dict_append_perror(proc);
- errno = dict_errno;
- }
- void obj_error(int expr, const char *proc, const void *obj)
- {
- if (expr) {
- dict_append_perror((*string_f)(obj));
- dict_append_perror(proc);
- }
- errno = dict_errno;
- }
- internal(COMPARE cmp, DESTROYER destroyer,
- DISPLAYER displayer, STRINGER str_f)
- {// ERROR - candidate for bad call
- if (799 >= 800 ) cout << "Creating new dictionary..." << '\n'; ;
- if (cmp == __null ) cmp = &default_compare;
- if (displayer == __null ) displayer = &default_displayer;
- if (str_f == __null ) str_f = &default_stringer;
- compare_f = cmp;
- display_f = displayer;
- destroy_f = destroyer;
- string_f = str_f;
- di = make_dictionary(compare_f);
- append_error(di == __null , "dict internal");
- if (di == __null ) {
- dict_perror("build dictionary");
- exit(errno);
- }
- count = 1;
- }
- ~internal()
- {
- if (799 >= 800 ) cout << "dict ~internal executing" << '\n'; ;
- int err = clear_dictionary(di, destroy_f, (&__iob[2]) );
- append_error(err, "clear dictionary");
- if (err) dict_perror("dict ~internal");
- free((void *)di);
- }
- };// ERROR - candidate list for bad call
- internal *rep;
-protected:
- int & errno() { return( rep->errno ); }
- COMPARE compare_f() { return( rep->compare_f ); }
- DISPLAYER display_f() { return( rep->display_f ); }
- DESTROYER destroy_f() { return( rep->destroy_f ); }
- STRINGER string_f() { return( rep->string_f ); }
- void append_error(int expr, const char *proc)
- {
- rep->append_error(expr, proc);
- }
- void obj_error(int expr, const char *proc, const void *obj)
- {
- rep->obj_error(expr, proc, obj);
- }
-public:
- static int err;
- static int val;
- static void *p;
- dict()
- {
- if (799 >= 800 ) cout << "Default constructor executing..." << '\n'; ;
- rep = new internal( &default_compare, &null_destroy,
- &default_displayer, &default_stringer);// ERROR - no matching fn call
- }
- dict(COMPARE cmp,
- DESTROYER destroyer = __null ,
- DISPLAYER displayer = &default_displayer,
- STRINGER str_f = &default_stringer)
- {// ERROR - invalid type for default argument -- not expecting const
- rep = new internal(cmp, destroyer, displayer, str_f);
- }
- dict(const dict &di2)
- {
- rep = di2.rep;
- rep->count ++;
- if (799 >= 800 ) cout << "Incrementing count to " << rep->count << '\n'; ;
- }
- dict & operator = (const dict &di2)
- {
- di2.rep->count ++;
- if (799 >= 800 ) cout << "Incrementing di2 count to " << di2.rep->count << '\n'; ;
- if (799 >= 800 ) cout << "Decrementing lvalue count to " << rep->count-1 << '\n'; ;
- if (--rep->count <= 0) {
- delete rep;
- }
- rep = di2.rep;
- return( *this );
- }
- ~dict()
- {
- if (799 >= 800 ) cout << "~dict executing..." << '\n'; ;
- if (799 >= 800 ) cout << "Decrementing dict::internal count to " << rep->count-1 << '\n'; ;
- if (--rep->count <= 0) delete rep;
- }
- int insert(POINTER item)
- {
- err = dict_insert(item, rep->di);
- obj_error(err, "insert", item);
- return errno();
- }
- int remove(POINTER item)
- {
- err = dict_delete(item, rep->di);
- obj_error(err, "remove", item);
- return errno();
- }
- POINTER access(POINTER item)
- {
- p = dict_access(item, rep->di);
- obj_error(p == __null , "access", item);
- return(p);
- }
- POINTER low()
- {
- p = dict_low(rep->di);
- append_error(p == __null , "low");
- return(p);
- }
- POINTER nlow()
- {
- p = dict_nlow(rep->di);
- append_error(p == __null , "nlow");
- return(p);
- }
- POINTER big()
- {
- p = dict_big(rep->di);
- append_error(p == __null , "big");
- return(p);
- }
- POINTER nbig()
- {
- p = dict_nbig(rep->di);
- append_error(p == __null , "nbig");
- return(p);
- }
- POINTER first()
- {
- p = dict_first(rep->di);
- append_error(p == __null , "first");
- return(p);
- }
- POINTER last()
- {
- p = dict_last(rep->di);
- append_error(p == __null , "last");
- return(p);
- }
- POINTER next()
- {
- p = dict_next(rep->di);
- append_error(p == __null , "next");
- return(p);
- }
- POINTER prev()
- {
- p = dict_prev(rep->di);
- append_error(p == __null , "prev");
- return(p);
- }
- int clear(DESTROYER destroy, FILE *fp = (&__iob[2]) )
- {
- err = clear_dictionary(rep->di, destroy, fp);
- append_error(err, "clear");
- return errno();
- }
- int clear(FILE *fp = (&__iob[2]) )
- {
- err = clear_dictionary(rep->di, rep->destroy_f, fp);
- append_error(err, "clear");
- return errno();
- }
- int size()
- {
- val = dict_size(rep->di);
- append_error(val < 0, "size");
- return(val);
- }
- POINTER elem(int index)
- {
- p = dict_elem(index, rep->di);
- append_error(p == __null , "elem");
- return(p);
- }
- int compare(dict &di2)
- {
- val = dict_compare(rep->di, di2.rep->di);
- return(val);
- }
- int height()
- {
- val = dict_height(rep->di);
- append_error(val < 0, "height");
- return(val);
- }
- const char * version()
- {
- return( dict_version() );
- }
- void display(FILE *fp = (&__iob[1]) )
- {
- dict_print_stats(fp, rep->di);
- }
- void print(FILE *fp = (&__iob[1]) , traversal_t tr = INORDER)
- {
- fprintf(fp, "====== DICTIONARY (count=%d) ======\n",
- rep->count);
- dict_print(fp, rep->di, tr, rep->display_f);
- }
- void print(traversal_t tr, FILE *fp = (&__iob[1]) )
- {
- fprintf(fp, "====== DICTIONARY (count=%d) ======\n",
- rep->count);
- dict_print(fp, rep->di, tr, rep->display_f);
- }
- void error(const char *s = "class dict")
- {
- dict_errno = errno();
- dict_perror(s);
- errno() = 0;
- }
- void error_append(const char *s = "class dict")
- {
- dict_append_perror(s);
- }
- const char * errstring()
- {
- return( dict_errstring() );
- }
-};
-ostream & operator << (ostream & fp, traversal_t tr);
-class queue : public object {
- class internal {
- public:
- QUEUE Q;
- QUEUE Q2;
- int errno;
- DISPLAYER display_f;
- DESTROYER destroy_f;
- STRINGER string_f;
- int count;
- int swap()
- {
- QUEUE tmp = Q;
- Q = Q2;
- Q2 = tmp;
- }
- void append_error(int expr, const char *proc)
- {
- if (expr) queue_append_perror(proc);
- errno = queue_errno;
- }
- void obj_error(int expr, const char *proc, const void *obj)
- {
- if (expr) {
- queue_append_perror((*string_f)(obj));
- queue_append_perror(proc);
- }
- errno = queue_errno;
- }
- internal(DESTROYER destroyer,
- DISPLAYER displayer, STRINGER str_f)
- {// ERROR - candidate for bad call
- if (799 >= 800 ) cout << "Creating new queue..." << '\n'; ;
- if (displayer == __null ) displayer = &default_displayer;
- if (str_f == __null ) str_f = &default_stringer;
- display_f = displayer;
- destroy_f = destroyer;
- string_f = str_f;
- Q = make_queue();
- append_error(Q == __null , "queue internal");
- errno = queue_errno;
- if (Q == __null ) {
- queue_perror("build queue");
- exit(errno);
- }
- Q2 = make_queue();
- append_error(Q2 == __null , "queue internal");
- if (Q2 == __null ) {
- queue_perror("build second queue");
- exit(errno);
- }
- count = 1;
- }
- ~internal()
- {
- if (799 >= 800 ) cout << "queue ~internal executing" << '\n'; ;
- while ((p = queue_remove(Q)) != __null ) {
- if (destroy_f != __null ) {
- (*destroy_f)((POINTER)&p, (&__iob[2]) );
- }
- }
- queue_errno = 0;
- queue_destroy((POINTER)&Q, (&__iob[2]) );
- if (queue_errno) {
- append_error(queue_errno,
- "queue_destroy(Q)");
- queue_perror("queue ~internal");
- }
- queue_errno = 0;
- queue_destroy((POINTER)&Q2, (&__iob[2]) );
- if (queue_errno) {
- append_error(queue_errno,
- "queue_destroy(Q2)");
- queue_perror("queue ~internal");
- }
- }
- };// ERROR - list of candidates for bad call
- internal *rep;
-protected:
- int & errno() { return( rep->errno ); }
- DISPLAYER display_f() { return( rep->display_f ); }
- DESTROYER destroy_f() { return( rep->destroy_f ); }
- STRINGER string_f() { return( rep->string_f ); }
- void append_error(int expr, const char *proc)
- {
- rep->append_error(expr, proc);
- }
- void obj_error(int expr, const char *proc, const void *obj)
- {
- rep->obj_error(expr, proc, obj);
- }
-public:
- static int err;
- static int val;
- static void *p;
- queue()
- {
- if (799 >= 800 ) cout << "Default constructor executing..." << '\n'; ;
- rep = new internal( &null_destroy,
- &default_displayer, &default_stringer);// ERROR - no matching fn for call
- }
- queue(DESTROYER destroyer = __null ,
- DISPLAYER displayer = &default_displayer,
- STRINGER str_f = &default_stringer)
- {// ERROR - invalid type for default argument -- not expecting const
- rep = new internal(destroyer, displayer, str_f);
- }
- queue(const queue &Q2)
- {
- rep = Q2.rep;
- rep->count ++;
- if (799 >= 800 ) cout << "Incrementing count to " << rep->count << '\n'; ;
- }
- queue & operator = (const queue &Q2)
- {
- Q2.rep->count ++;
- if (799 >= 800 ) cout << "Incrementing Q2 count to " << Q2.rep->count << '\n'; ;
- if (799 >= 800 ) cout << "Decrementing lvalue count to " << rep->count-1 << '\n'; ;
- if (--rep->count <= 0) {
- delete rep;
- }
- rep = Q2.rep;
- return( *this );
- }
- ~queue()
- {
- if (799 >= 800 ) cout << "~queue executing..." << '\n'; ;
- if (799 >= 800 ) cout << "Decrementing queue::internal count to " << rep->count-1 << '\n'; ;
- if (--rep->count <= 0) delete rep;
- }
- void error(const char *s = "class queue")
- {
- queue_errno = errno();
- queue_perror(s);
- errno() = 0;
- }
- void error_append(const char *s = "class queue")
- {
- queue_append_perror(s);
- }
- const char * errstring()
- {
- return( queue_errstring() );
- }
- int append(POINTER item)
- {
- err = queue_append(rep->Q, (POINTER)item);
- obj_error(err, "append", item);
- return errno();
- }
- POINTER remove()
- {
- p = queue_remove(rep->Q);
- append_error(p == __null , "remove");
- return(p);
- }
- POINTER look(POINTER item)
- {
- p = queue_look(rep->Q);
- append_error(p == __null , "look");
- return(p);
- }
- POINTER last(POINTER item)
- {
- p = queue_last(rep->Q);
- append_error(p == __null , "last");
- return(p);
- }
- int size()
- {
- val = queue_size(rep->Q);
- append_error(val < 0, "size");
- return(val);
- }
- const char * version()
- {
- return( queue_version() );
- }
- void display(FILE *fp = (&__iob[1]) )
- {
- int i = 1;
- POINTER ptr;
- fprintf(fp, "====== QUEUE DISPLAY (size %d) ======\n",
- size());
- while (ptr = remove()) {
- err = queue_append(rep->Q2, ptr);
- if (err) {
- obj_error(err, "append", ptr);
- error("queue_append(rep->Q2)");
- }
- fprintf(fp, "[%d] ", i++);
- (*rep->display_f)(ptr, fp, (&__iob[2]) );
- }
- rep->swap();
- }
-};
-long object::current_id = 0;
-long object::next_id()
-{
- return( ++current_id );
-}
-void object::display2(ostream & fp) const
-{
- fp << "object #" << id;
-}
-ostream & operator << (ostream & fp, object & obj)
-{
- obj.display(fp);
- return(fp);
-}
-int object::compare(const void *p2) const
-{
- const object & z2 = *(const object *) p2;
- if (799 >= 1000 ) cout << "*** object::compare " << *this << " with " << z2 << '\n'; ;
- return( id - z2.id );
-}
-int operator < (object & obj1, object & obj2)
-{
- if (obj1.compare( &obj2 ) < 0) return(1);
- else return(0);
-}
-int operator <= (object & obj1, object & obj2)
-{
- if (obj1.compare( &obj2 ) <= 0) return(1);
- else return(0);
-}
-int operator > (object & obj1, object & obj2)
-{
- if (obj1.compare( &obj2 ) > 0) return(1);
- else return(0);
-}
-int operator >= (object & obj1, object & obj2)
-{
- if (obj1.compare( &obj2 ) >= 0) return(1);
- else return(0);
-}
-int operator == (object & obj1, object & obj2)
-{
- if (obj1.compare( &obj2 ) == 0) return(1);
- else return(0);
-}
-int operator != (object & obj1, object & obj2)
-{
- if (obj1.compare( &obj2 ) != 0) return(1);
- else return(0);
-}
-void null_destroy(void *p, FILE *errorFile)
-{
-}
-int object_compare(const void *p1, const void *p2)
-{
- const object *obj1 = (const object *) p1;
- if (799 >= 1000 ) cout << "*** Comparing " << *obj1 << " to address " << long(p2) << '\n'; ;
- return( obj1->compare(p2) );
-}
-void object_display(const void *p, FILE *fp, FILE *errorFile)
-{
- cout << *(object *)p << '\n';
-}
-void object_destroy(void *p, FILE *errorFile)
-{
- object **pObj = (object **)p;
- object *obj = *pObj;
- if (obj == __null ) {
- if (799 >= 10 ) cout << "+ object_destroy: NIL object passed in" << '\n'; ;
- return;
- }
- if (799 >= 998 ) cout << "+ object_destroy: delete obj:" << '\n'; ;
- if (799 >= 998 ) cout << *obj << '\n'; ;
- if (799 >= 998 ) cout << "====================================================" << '\n'; ;
- delete obj;
- *pObj = __null ;
-}
-int default_compare(const void *p1, const void *p2)
-{
- long L1 = long(p1);
- long L2 = long(p2);
- if (799 >= 1000 ) cout << "+ default_compare " << long(p1) << ',' << long(p2) << '\n'; ;
- if (L1 < L2) return(-1);
- else if (L1 > L2) return(1);
- else return(0);
-}
-const char * default_stringer(const void *ptr)
-{
- static char buf[100];
- sprintf(buf, "ADDRESS %lu", (unsigned long)ptr);
- return(buf);
-}
-void default_displayer(const void *ptr, FILE *fp, FILE *errorFile)
-{
- fprintf(fp, "%s\n", default_stringer(ptr));
-}
-object::operator char *() const
-{
- const int max = 10;
- const int maxChar = 16;
- static char buf[max][maxChar];
- static int index = 0;
- char *s = buf[index++ % max];
- sprintf(s, "object #%d", id);
- return(s);
-}
-const char * object_stringer(const void *ptr)
-{
- object & obj = *(object *)ptr;
- return((char *)obj);
-}
-int dict::err;
-int dict::val;
-POINTER dict::p;
-ostream & operator << (ostream & fp, traversal_t tr)
-{
- fp << traversal_string(tr);
- return(fp);
-}
-int queue::err;
-int queue::val;
-POINTER queue::p;
generated by cgit v1.2.3 (git 2.25.1) at 2024-06-05 01:12:42 +0000