@ tefigel

##########################################################################
#
#   25 October 2004 - Copyright (c) so.mus.ar. s.a.s. - www.somusar.com
#
#   Main tefigel script for this somusar/sopromach[tm] POC.
#
#   This proof-of-concept based on Kathleen Dollard's article
#   "Generate .NET Code With XSLT" (see
# http://www.fawcette.com/vsm/2003_05/magazine/features/dollard/default_pf.aspx
#   )
#
##########################################################################

interface(THIS_SCRIPT,INPUT_MODEL)

#   Define target dataset name
if INPUT_MODEL=
   set DATASET=Northwind
else
   set DATASET=INPUT_MODEL
endif

vb_gen/setup

# Scan XML model to retrieve different types of information
for PARSE_ACTION=PKey,Relation,Table
   xml_process(PARSE_ACTION)
endfor

# Output VB code -- Performs actual template-driven code generation
msg Generating "DATASET.vb"
output DATASET.vb
templates/vb_body

exit 0