Index: xotcl/apps/actiweb/univ/UNIVERSAL.xotcl
===================================================================
diff -u -rf7894d9be99a8da3a04218abcdb9bd46b6d625c8 -r435b41481fb51bf000ebe736d8574fefbeec1710
--- xotcl/apps/actiweb/univ/UNIVERSAL.xotcl (.../UNIVERSAL.xotcl) (revision f7894d9be99a8da3a04218abcdb9bd46b6d625c8)
+++ xotcl/apps/actiweb/univ/UNIVERSAL.xotcl (.../UNIVERSAL.xotcl) (revision 435b41481fb51bf000ebe736d8574fefbeec1710)
@@ -1,5 +1,5 @@
#!/usr/local/bin/xotclsh
-#$Id: UNIVERSAL.xotcl,v 1.1 2004/05/23 22:50:39 neumann Exp $
+#$Id: UNIVERSAL.xotcl,v 1.2 2005/09/09 21:07:23 neumann Exp $
package require XOTcl; namespace import -force xotcl::*
array set opts {
-ssl 0 -instanceFile UNIVERSAL.rdf -cssFile UNIVERSAL.css -root . -pkgdir .}
@@ -45,10 +45,12 @@
#
# instantiate parser and parser an example text into a node tree
#
+
+#puts stderr "parsing [loadFile $opts(-instanceFile)]"
RDFParser R
R parse [loadFile $opts(-instanceFile)]
+puts stderr "parsing done"
-
#
# load the nodetree from the parser into the triple database
#
@@ -83,7 +85,7 @@
set result ""
foreach c [my info children] {
if {![my isContainer $c] &&
- [$c info class] != "::RDFTriple"} {lappend result $c}
+ [$c istype Resource]} {lappend result $c}
}
return $result
}
@@ -97,10 +99,12 @@
}
return $result
}
+
# create an Instance of the Resource Database
RDFdb tv::db
+
# define Resources with its methods
Class Resource
Resource instproc dump {} {
@@ -214,11 +218,11 @@
}
LrManager instproc nav {} {
- set right [my selfAction "catalog"]
- set result [my html-title "Universal Navigation Bar"]
+ set right [my selfAction "catalog"]
+ set result [my html-title "Universal Navigation Bar"]
set rdfsrc [my selfAction "source $::opts(-instanceFile)"]
set csssrc [my selfAction "source $::opts(-root)/$::opts(-cssFile)"]
- set src [my selfAction "source [info script]"]
+ set src [my selfAction "source [info script]"]
append result \n \
"
\n\
All local Resources
@@ -231,8 +235,8 @@
}
LrManager instproc default {} {
- set right [my selfAction "catalog"]
- set nav [my selfAction "nav"]
+ set right [my selfAction "catalog"]
+ set nav [my selfAction "nav"]
set result [my html-title "Universal"]
append result ""
}
-
LrManager instproc init args {
next
::receiver exportObjs [self] ;# export object
my exportProcs details catalog nav source ;# export methods
}
-# create an instance of the Rearning Resource manager
+# create an instance of the Learning Resource manager
LrManager univ
receiver proc default {} {univ default} ;# call it like index.html as default
# Invoke Tiple Visitor to feed the database
tv interprete
#puts stderr [tv::db prettyTriples]
+
receiver startEventLoop ;# Start event loop