<%= [string tolower @all_subprograms.name@] %>
@all_subprograms.label@
The command $proc is an available command on the server and might be found in the Tcl - or [ns_info name] + or [ns_info name] documentation or in documentation for a loadable module.
-You can try searching the Tcl documentation yourself. +You can try searching the Tcl documentation yourself.
Index: openacs-4/packages/acs-api-browser/www/tcl-doc-search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/tcl-doc-search.tcl,v diff -u -r1.8.2.2 -r1.8.2.3 --- openacs-4/packages/acs-api-browser/www/tcl-doc-search.tcl 22 May 2016 19:22:51 -0000 1.8.2.2 +++ openacs-4/packages/acs-api-browser/www/tcl-doc-search.tcl 2 Aug 2016 10:14:41 -0000 1.8.2.3 @@ -11,28 +11,27 @@ csrf { security::csrf::validate } } -set tcl_docs_root "http://tcl.tk/man/tcl[info tclversion]/TclCmd/" -set tcl_docs_url "${tcl_docs_root}contents.htm" -with_catch errmsg { - set tcl_docs_index_result [util_memoize [list util::http::get -url $tcl_docs_url]] - set tcl_docs_index_page [dict get $tcl_docs_index_result page] -} { - ad_return_error "Cannot Connect" "We're sorry, but we're having problems connecting to the server containing the Tcl documentation: $tcl_docs_url" - ad_script_abort -} +# +# Try Tcl command documentation +# -set tcl_proc [lindex $tcl_proc 0] -set len [string length $tcl_proc] +regexp {^(.*)/[^/]+} $::apidoc::tcl_api_html_index _ root +append root / -for { set i [expr { $len-1 }] } { $i >= 0 } { incr i -1 } { - set search_for [string range $tcl_proc 0 $i] - if { [regexp "\]+)\">$search_for" $tcl_docs_index_page match relative_url] } { - ad_returnredirect -allow_complete_url "$tcl_docs_root$relative_url" - ad_script_abort - } +set url [apidoc::get_doc_url \ + -cmd $tcl_proc \ + -index $::apidoc::tcl_api_html_index \ + -root $root \ + -host $root] + +if {$url ne ""} { + ns_log notice "api-doc/www/proc-view got URL <$url>" + ad_returnredirect -allow_complete_url $url + ad_script_abort } +set tcl_docs_url $::apidoc::tcl_api_html_index set title "Tcl API Procedure Search for: \"$tcl_proc\"" set context [list "Tcl API Search: $tcl_proc"] Index: openacs-4/packages/acs-api-browser/www/tcl-proc-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/tcl-proc-view.tcl,v diff -u -r1.10.2.3 -r1.10.2.4 --- openacs-4/packages/acs-api-browser/www/tcl-proc-view.tcl 22 May 2016 19:22:51 -0000 1.10.2.3 +++ openacs-4/packages/acs-api-browser/www/tcl-proc-view.tcl 2 Aug 2016 10:14:41 -0000 1.10.2.4 @@ -11,25 +11,11 @@ csrf { security::csrf::validate } } -set ns_api_index_result [util_memoize [list ::util::http::get -url $::apidoc::ns_api_html_index]] -set ns_api_index_page [dict get $ns_api_index_result page] +set url [apidoc::get_doc_url -cmd $tcl_proc \ + -index $::apidoc::ns_api_html_index \ + -root $::apidoc::ns_api_root \ + -host $::apidoc::ns_api_host] -# -# Since man pages contain often a summary of multiple commands, try -# abbreviation in case the full name is not found (e.g. man page "nsv" -# contains "nsv_array", "nsv_set" etc.) -# -set url "" -for {set i [string length $tcl_proc]} {$i > 1} {incr i -1} { - set proc [string range $tcl_proc 0 $i] - set url [apidoc::search_on_webindex \ - -page $ns_api_index_page \ - -root $::apidoc::ns_api_root \ - -host $::apidoc::ns_api_host \ - -proc $proc] - if {$url ne ""} break -} - if {$url ne ""} { ad_returnredirect -allow_complete_url $url ad_script_abort