home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # Copyright (c) 1997 by Cayenne Software, Inc.
- #
- # This software is furnished under a license and may be used only in
- # accordance with the terms of such license and with the inclusion of
- # the above copyright notice. This software or any other copies thereof
- # may not be provided or otherwise made available to any other person.
- # No title to and ownership of the software is hereby transferred.
- #
- # The information in this software is subject to change without notice
- # and should not be construed as a commitment by Cadre Technologies Inc.
- #
- #---------------------------------------------------------------------------
- #
- # File : @(#)import.tcl /main/hindenburg/3
- # Original date : January 1997
- # Description : Import front end
- #
- #---------------------------------------------------------------------------
- #
-
- OTShRegister::codeGeneration
-
- source [m4_path_name tcl cginit.tcl]
-
- require caynutil.tcl
-
- set cc [ClientContext::global]
- set targetLang [m4_var get M4_target_lang]
-
- if [$cc customFileExists "gen${targetLang}" tcl tcl 1] {
- require_with_reload oldimport.tcl
- } else {
- set importerClass "[cap $targetLang]Importer"
-
- require "[string range [string tolower $importerClass] 0 9].tcl"
-
- set importer [$importerClass new]
-
- if [catch {$importer import} msg] {
- switch $errorCode {
- ERR_CPP_CONFIG {puts stderr "ERROR: $msg"}
- ERR_UNIQUE_FILENAME {puts stderr "ERROR: $msg"}
- default {puts stderr $errorInfo}
- }
- }
- }
-