--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/liboctave/oct-alloc.h	Thu Nov 07 04:46:54 1996 +0000
@@ -0,0 +1,68 @@
+/*
+
+Copyright (C) 1996 John W. Eaton
+
+This file is part of Octave.
+
+Octave is free software; you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by the
+Free Software Foundation; either version 2, or (at your option) any
+later version.
+
+Octave is distributed in the hope that it will be useful, but WITHOUT
+ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License
+along with Octave; see the file COPYING.  If not, write to the Free
+Software Foundation, 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+
+*/
+
+#if !defined (octave_oct_alloc_h)
+#define octave_oct_alloc_h 1
+
+class
+octave_allocator
+{
+public:
+
+  octave_allocator (size_t item_sz, int grow_sz = 256)
+    : head (0), grow_size (grow_sz),
+      item_size (item_sz > sizeof (link *) ? item_sz : sizeof (link *))
+  { }
+
+  // Get an object from the free list, possibly increasing the size of
+  // the free list.
+  void *alloc (size_t size);
+
+  // Put objects back on the free list.
+  void free (void *p, size_t size);
+
+private:
+
+  // Structure for internal free list management.
+  struct link { link *next; };
+
+  // Front of the free list.
+  link *head;
+
+  // How many objects to get each time we call the global operator new.
+  int grow_size;
+
+  // The size of each item on the list (or, if that is smaller than
+  // the size of list*, the size of list*.
+  size_t item_size;
+
+  // How to grow the free list.
+  bool grow (void);
+};
+
+#endif
+
+/*
+;;; Local Variables: ***
+;;; mode: C++ ***
+;;; End: ***
+*/