Changeset 2080 for trunk/lang/tcl/scripts/objects.tcl

Timestamp:

Feb 2, 2011, 4:51:29 PM (14 years ago)

Author:

mmc

Message:

Part 1 of a major reorganization of content. Moving "instant" to "builder"
and setting up "builder" more like the "gui" part as a package. Moving the
Rappture::object stuff from the builder into the main installation, so it
can be shared by the tester as well. Moving "driver" into gui/scripts
where it belongs. Creating a new "launcher.tcl" script that decides
which of the three parts to launch based on command line options. Still
need to sort out the Makefiles to get this all right...

File:

• trunk/lang/tcl/scripts/objects.tcl (copied) (copied from trunk/instant/objects.tcl) (3 diffs)

trunk/lang/tcl/scripts/objects.tcl

@@ -17 +17 @@
 # ======================================================================
 #  AUTHOR:  Michael McLennan, Purdue University
-#  Copyright (c) 2004-2010  Purdue Research Foundation
+#  Copyright (c) 2004-2011  Purdue Research Foundation
 #
 #  See the file "license.terms" for information on usage and
@@ -26 +26 @@
 namespace eval Rappture { # forward declaration }
 namespace eval Rappture::objects {
+    # location of system object info
+    variable installdir [file dirname [file normalize [info script]]]
+
     #
     # Set up a safe interpreter for loading object defn files...
@@ -61 +64 @@
     # this variable will hold the name of the object file being parsed
     variable currFile ""
+}
+
+# ----------------------------------------------------------------------
+# USAGE: Rappture::objects::init
+#
+# Called at the beginning of a Rappture program to initialize the
+# object system.  Loads all object definitions in the "objects"
+# directory found at the system location.  Object types can be
+# queried by calling Rappture::objects::get.
+# ----------------------------------------------------------------------
+proc Rappture::objects::init {} {
+    variable installdir
+
+    # load supporting type definitions
+    foreach fname [glob [file join $installdir types *.tcl]] {
+        source $fname
+    }
+
+    # load supporting validation procs
+    foreach fname [glob [file join $installdir validations *.tcl]] {
+        source $fname
+    }
+
+    # load the base class
+    Rappture::objects::load [file join $installdir objects base.rp]
+
+    # load any other classes found
+    foreach dir [glob -nocomplain -types d [file join $installdir objects *]] {
+        Rappture::objects::load [file join $dir *.rp]
+    }
 }