Category : OS/2 Files
Archive   : GPPDEV8F.ZIP
Filename : VEC.HP

// This may look like C code, but it is really -*- C++ -*-
/*
Copyright (C) 1988 Free Software Foundation
written by Doug Lea ([email protected])

This file is part of the GNU C++ Library. This library is free
software; you can redistribute it and/or modify it under the terms of
the GNU Library General Public License as published by the Free
Software Foundation; either version 2 of the License, or (at your
option) any later version. This library is distributed in the hope
that it will be useful, but WITHOUT ANY WARRANTY; without even the
implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
PURPOSE. See the GNU Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free Software
Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
*/


#ifndef _Vec_h
#ifdef __GNUG__
#pragma interface
#endif
#define _Vec_h 1

#include
#include ".defs.h"

#ifndef __typedefs
#define __typedefs 1
typedef void (*Procedure)();
typedef (*Mapper)();
typedef (*Combiner)(, );
typedef int (*Predicate)();
typedef int (*Comparator)(, );
#endif


class Vec
{
protected:
int len;
*s;

Vec(int l, * d);
public:
Vec ();
Vec (int l);
Vec (int l, fill_value);
Vec (Vec&);
~Vec ();

Vec & operator = (Vec & a);
Vec at(int from = 0, int n = -1);

int capacity();
void resize(int newlen);

& operator [] (int n);
& elem(int n);

friend Vec concat(Vec & a, Vec & b);
friend Vec map(Mapper f, Vec & a);
friend Vec merge(Vec & a, Vec & b, Comparator f);
friend Vec combine(Combiner f, Vec & a, Vec & b);
friend Vec reverse(Vec & a);

void reverse();
void sort(Comparator f);
void fill( val, int from = 0, int n = -1);

void apply(Procedure f);
reduce(Combiner f, base);
int index( targ);

friend int operator == (Vec& a, Vec& b);
friend int operator != (Vec& a, Vec& b);

void error(const char* msg);
void range_error();
};

extern void default_Vec_error_handler(const char*);
extern one_arg_error_handler_t Vec_error_handler;

extern one_arg_error_handler_t
set_Vec_error_handler(one_arg_error_handler_t f);


inline Vec::Vec()
{
len = 0; s = 0;
}

inline Vec::Vec(int l)
{
s = new [len = l];
}


inline Vec::Vec(int l, * d) :len(l), s(d) {}


inline Vec::~Vec()
{
delete [] s;
}


inline & Vec::operator [] (int n)
{
if ((unsigned)n >= (unsigned)len)
range_error();
return s[n];
}

inline & Vec::elem(int n)
{
return s[n];
}


inline int Vec::capacity()
{
return len;
}



inline int operator != (Vec& a, Vec& b)
{
return !(a == b);
}

#endif