############################################################################
#
#	File:     created.icn
#
#	Subject:  Procedure to determine number of structures created
#
#	Author:   Ralph E. Griswold
#
#	Date:     March 25, 2002
#
############################################################################
#
#   This file is in the public domain.
#
############################################################################
#
#  This program returns the number of structures of a given type that have
#  been created.
#
############################################################################
#
#  Links:  serial
#
############################################################################

link serial

procedure created(kind)			#: number of structures created

   return serial(proc(kind)())
   fail

end