nsf

Clone
Stefan Sobernig <stefan.sobernig@wu.ac.at>
committed
263cd75
on 04 Jun 13
Adjusted nxdoc for the recent changes to NSF/NX
2-1-0-rc + 55 more
apps/utils/nxdoc (+2 -2)
79 79         namespace eval ::nxdoc::internal {
80 80           proc getIndexedCmds {{choice 0}} {
81 81             if {[array exists ::nxdoc::include]} {
82 82               array set out [list 0 "" 1 ""]
83 83               foreach {v cmd} [lreverse [array get ::nxdoc::include]] {
84 84                 lappend out($v) $cmd
85 85               }
86 86               return [lindex [array get out $choice] 1]
87 87             }
88 88           }
89 89         }
90 90       }
91 91       if {[catch {$i eval [join $sources ";"]} err]} {
92 92         : -local barf "Sourcing index files failed with error message '$err'"
93 93       }
94 94      
95 95       lappend :includes {*}[$i eval [list ::nxdoc::internal::getIndexedCmds 1]]
96 96       interp delete $i
97 97     }
98 98
99       :protected class method objectparameter {} {
100         set slots [:info slot objects]
  99     :protected method __objectparameter {} {
  100       set slots [[current class] info slots]
101 101       foreach slot $slots {
102 102         lappend defs([$slot position]) [$slot getParameterSpec]
103 103       }
104 104       set parameterdefinitions [list]
105 105       foreach p [lsort [array names defs]] {
106 106         lappend parameterdefinitions {*}$defs($p)
107 107       }
108 108       return [concat $parameterdefinitions ...:alias,args]
109 109     }
110 110    
111 111     :protected method init {} {
112 112
113 113       set prj [@project newFromSources \
114 114                    -frontend ${:frontend} \
115 115                    {*}[expr {[info exists :includes]?[list -include ${:includes}]:""}] \
116 116                    {*}[expr {[info exists :excludes]?[list -exclude ${:excludes}]:""}] \
117 117                    ${:sources} \
118 118                    -name ${:doctitle} \
119 119                    -url ${:docurl} \
120 120                    -version ${:docversion} \