#!/bin/sh
#-*- tcl -*- \
exec tclsh "$0" "$@"

#------------------------------------------------------------------------
#
#	ScienceArchive TK GUI interface
#
#       Peter Kunszt, July 20, 1999
#------------------------------------------------------------------------
#
# (c) Copyright The Johns Hopkins University 1999
# All Rights Reserved
#
#-------------------------------------------------------------------------
#	Read DDL files and convert them into a GUI datafile
#-------------------------------------------------------------------------

set auto_path "[pwd] $auto_path"

getDDLInfo [getDDLFiles]
resolveInheritance
getInheritedMembers
putDDLInfo "schema.dat"
set flagNames { objFlags objFlags2 flags flags2 flag1 flag2 status primTarget secTarget }
set flagID { OBJECT1 OBJECT2 OBJECT1 OBJECT2 OBJECT1 OBJECT2 STATUS PRIMTARGET SECTARGET }
putFlagNames $flagNames $flagID "schema.dat"
puts "schema.dat written."
