module:    dylan-user
author:    jonathan bachrach
Copyright:    Original Code is Copyright (c) 1995-2004 Functional Objects, Inc.
              All rights reserved.
License:      Functional Objects Library Public License Version 1.0
Dual-license: GNU Lesser General Public License
Warranty:     Distributed WITHOUT WARRANTY OF ANY KIND

define library walker
  use funtional-dylan;
  use mop;
  use collections;
  use io;
  export walker;
end library;

define module walker
  use functional-dylan;
  use dylan-extensions;
  use format-out;
  use internal, import: {allocate, table-values};
  use mop;
  use byte-vector;
  use collectors;
  export
    <slot-sequence-type>,
    <walker-slot-descriptor>,
    <walker-slot-sequence-type>,
    walker-slot-value,
    walker-slot-value-setter,
    as-walker-slot-descriptor;

  export
    <walker-defaulted-descriptor>,
    make-walker-defaulted-descriptor,
    walker-defaulted-getter?,
    walker-default-getter,
    walker-default-thunk,
    walker-default-slot-descriptor,
    <walker-defaulted-slot-sequence-type>;
    
  export
    walker-allocate-object,
    walker-allocate-simple-object,
    walker-allocate-repeated-object;

  export
    dont-walk-slots-definer,
    dont-walk-object-definer,
    <walker>,
    walker-walked,
    walker-reset,
    maybe-do-deep-walk,
    deep-walk;
  export // hygiene glitch
    walker-shallow-getters;
  export
    dont-copy-slots-definer,
    dont-copy-object-definer,
    <copier>,
    maybe-do-deep-copy,
    do-deep-copy,
    deep-copy;
  export // hygiene glitch
    deep-copy-getter-value;
  export
    shallow-copy-instance;
  export
    copier-reset;
  export
    walker-instance-statistics,
    walker-display-statistics,
    walker-merge-statistics,
    walker-stats,
    walker-statistics;
end module;

// eof