% Copyright (C) 1993 Digital Equipment Corporation
% All rights reserved.
% See the file COPYRIGHT for a full description.
% Last modified on Mon Sep 20 12:28:24 PDT 1993 by kalsow
% Quake functions to instantiate a generic sequence
% with elements of type "elt.T". The resulting modules
% are named 'nmSeq' and 'nmSeqRep'.
readonly proc _build_sequence (nm, elt, vis) is
local seq = nm & "Seq"
local rep = nm & "SeqRep"
build_generic_intf (seq, "Sequence", [elt], vis)
build_generic_intf (rep, "SequenceRep", [elt, seq], vis)
build_generic_impl (seq, "Sequence", [elt, seq, rep])
readonly proc sequence (nm, elt) is
_build_sequence (nm, elt, HIDDEN)
readonly proc Sequence (nm, elt) is
_build_sequence (nm, elt, VISIBLE)