Index: openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl 2 Mar 2002 18:26:26 -0000 1.3 +++ openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl 21 Aug 2002 18:15:37 -0000 1.4 @@ -67,8 +67,9 @@ ad_script_abort } -# Get the server root directory (supposing we run under ACS) ad_proc -public get_server_root {} { + Get the server root directory (supposing we run under ACS) +} { file dir [ns_info tcllib] } Index: openacs-4/packages/acs-templating/tcl/currency-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/currency-procs.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/acs-templating/tcl/currency-procs.tcl 12 May 2002 20:57:02 -0000 1.3 +++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl 21 Aug 2002 18:15:37 -0000 1.4 @@ -13,8 +13,9 @@ # to tie this in with the acs-lang money database as this code's far too # simplistic. -# Dispatch procedure for the currency object ad_proc -public template::util::currency { command args } { + Dispatch procedure for the currency object +} { eval template::util::currency::$command $args } @@ -25,9 +26,10 @@ return [list $leading_symbol $whole_part $separator $fractional_part $trailing_money $format] } -# Create a new currency value with some predefined value -# Basically, create and set the currency value ad_proc -public template::util::currency::acquire { type { value "" } } { + Create a new currency value with some predefined value + Basically, create and set the currency value +} { set currency_list [template::util::currency::create] return [template::util::currency::set_property $type $currency_list $value] } Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/acs-templating/tcl/date-procs.tcl 11 Jul 2002 13:48:05 -0000 1.12 +++ openacs-4/packages/acs-templating/tcl/date-procs.tcl 21 Aug 2002 18:15:37 -0000 1.13 @@ -11,12 +11,17 @@ # Prepare an array to map symbolic month names to their indices -# Dispatch procedure for the date object ad_proc -public template::util::date { command args } { + Dispatch procedure for the date object +} { eval template::util::date::$command $args } ad_proc -public template::util::date::init {} { + Sets up some initial variables and other conditions + to facilitate the data structure template::util::date + working properly and completely. +} { variable month_data variable fragment_widgets variable fragment_formats @@ -61,8 +66,9 @@ set token_exp "([join [array names fragment_widgets] |])(t*)" } -# Return the specified month name (short or long) ad_proc -public template::util::date::monthName { month length } { + Return the specified month name (short or long) +} { variable month_data if { [string equal $length long] } { @@ -80,10 +86,11 @@ } } -# Return the number of days in a month, accounting for leap years -# IS THE LEAP YEAR CODE CORRECT ? ad_proc -public template::util::date::daysInMonth { month {year 0} } { + @return the number of days in a month, accounting for leap years + LOOKATME: IS THE LEAP YEAR CODE CORRECT ? +} { variable month_data set month_desc $month_data($month) set days [lindex $month_desc 2] @@ -98,26 +105,28 @@ } } -# Create a new Date object -# I chose to implement the date objects as lists instead of -# arrays, because arrays are not first-class in TCL - ad_proc -public template::util::date::create { {year {}} {month {}} {day {}} {hours {}} {minutes {}} {seconds {}} {format "DD MONTH YYYY"} } { + Create a new Date object + I chose to implement the date objects as lists instead of + arrays, because arrays are not first-class in TCL +} { return [list $year $month $day $hours $minutes $seconds $format] } -# Create a new date with some predefined value -# Basically, create and set the date ad_proc -public template::util::date::acquire { type { value "" } } { + Create a new date with some predefined value + Basically, create and set the date +} { set the_date [template::util::date::create] return [template::util::date::set_property $type $the_date $value] } -# Create a new Date object for the current date ad_proc -public template::util::date::today {} { + Create a new Date object for the current date +} { set now [clock format [clock seconds] -format "%Y %m %d"] set today [list] @@ -130,9 +139,9 @@ return [eval create $today] } -# Create a new Date object for the current date and time ad_proc -public template::util::date::now {} { - + Create a new Date object for the current date and time +} { set now [clock format [clock seconds] -format "%Y %m %d %H %M %S"] set today [list] @@ -143,11 +152,11 @@ return [eval create $today] } -# Access properties of the Date object -# Is it better to name them symbolically, as opposed to -# using the format string codes ? - ad_proc -public template::util::date::get_property { what date } { + Access properties of the Date object + Is it better to name them symbolically, as opposed to + using the format string codes ? +} { variable month_data @@ -306,9 +315,9 @@ } } -# Perform date comparison; same syntax as string compare - ad_proc -public template::util::date::compare { date1 date2 } { + Perform date comparison; same syntax as string compare +} { for { set i 0 } { $i < 5 } { incr i } { if { [lindex $date1 $i] < [lindex $date2 $i] } { return -1 @@ -319,9 +328,9 @@ return 0 } -# mutate properties of the Date object - ad_proc -public template::util::date::set_property { what date value } { + mutate properties of the Date object +} { # Erase leading zeroes from the value, but make sure that 00 # is not completely erased set value [template::util::leadingTrim $value] @@ -383,9 +392,9 @@ } -# Get the default ranges for all the numeric fields of a Date object - ad_proc -public template::util::date::defaultInterval { what } { + Get the default ranges for all the numeric fields of a Date object +} { switch $what { year { return [list 2000 2010 1 ] } month { return [list 1 12 1] } @@ -398,10 +407,10 @@ } } - -# Set the variables for each field of the date object in -# the calling frame ad_proc -public template::util::date::unpack { date } { + Set the variables for each field of the date object in + the calling frame +} { uplevel { set year [lindex $date 0] set month [lindex $date 1] @@ -551,22 +560,23 @@ } } -# Check if a value is less than zero, but return false -# if the value is an empty string ad_proc -public template::util::negative { value } { + Check if a value is less than zero, but return false + if the value is an empty string +} { if { [string equal $value {}] } { return 0 } else { return [expr $value < 0] } } -# Validate a date object. Return 1 if the object is valid, -# 0 otherwise. Set the error_ref variable to contain -# an error message, if any ad_proc -public template::util::date::validate { date error_ref } { - + Validate a date object. Return 1 if the object is valid, + 0 otherwise. Set the error_ref variable to contain + an error message, if any +} { # If the date is empty, it's valid if { ![get_property not_null $date] } { return 1 @@ -642,9 +652,11 @@ return $return_code } -# Pad a string with leading zeroes + ad_proc -public template::util::leadingPad { string size } { + Pad a string with leading zeroes +} { if { [string equal $string {}] } { return {} @@ -656,9 +668,10 @@ } -# Trim the leading zeroes from the value, but preserve the value -# as "0" if it is "00" ad_proc -public template::util::leadingTrim { value } { + Trim the leading zeroes from the value, but preserve the value + as "0" if it is "00" +} { set empty [string equal $value {}] set value [string trimleft $value 0] if { !$empty && [string equal $value {}] } { @@ -671,6 +684,9 @@ # interval_def is in form { start stop interval } ad_proc -public template::widget::numericRange { name interval_def size {value ""} } { + Create an html fragment to display a numeric range widget + interval_def is in form { start stop interval } +} { set options [list [list "--" {}]] @@ -683,14 +699,14 @@ return [template::widget::menu $name $options [list $value] {}] } -# Create an input widget for the given date fragment -# If type is "t", uses a text widget for the fragment, with the given -# size. -# Otherwise, determines the proper widget based on the element flags, -# which may be text or a picklist - ad_proc -public template::widget::dateFragment { element_reference fragment size type value } { + Create an input widget for the given date fragment + If type is "t", uses a text widget for the fragment, with the given + size. + Otherwise, determines the proper widget based on the element flags, + which may be text or a picklist +} { upvar $element_reference element @@ -715,9 +731,10 @@ $interval $size $value] } -# Create a widget that shows the am/pm selection ad_proc -public template::widget::ampmFragment { element_reference fragment size type value } { + Create a widget that shows the am/pm selection +} { upvar $element_reference element @@ -727,10 +744,10 @@ "$element(name).$fragment" { {A.M. am} {P.M. pm}} $value {}] } -# Create a month entry widget with short or long month names - ad_proc -public template::widget::monthFragment { element_reference fragment size type value } { + Create a month entry widget with short or long month names +} { variable ::template::util::date::month_data @@ -747,27 +764,30 @@ "$element(name).$fragment" $options $value {} ] } -# Create a date entry widget according to a format string -# The format string should contain the following fields, separated -# by / \ - : . or whitespace: -# string meaning -# YYYY 4-digit year -# YY 2-digit year -# MM 2-digit month -# MON month name, short (i.e. "Jan") -# MONTH month name, long (i.e. "January") -# DD day of month -# HH12 12-hour hour -# HH24 24-hour hour -# MI minutes -# SS seconds -# AM am/pm flag -# Any format field may be followed by "t", in which case a text -# widget will be used to represent the field. -# the array in range_ref determines interval ranges; the keys -# are the date fields and the values are in form {start stop interval} ad_proc -public template::widget::date { element_reference tag_attributes } { + Create a date entry widget according to a format string + The format string should contain the following fields, separated + by / \ - : . or whitespace: + + + + + + + + + + + + + +
stringmeaning
YYYY4-digit year
YY2-digit year
MM2-digit month
MONmonth name, short (i.e. "Jan")
MONTHmonth name, long (i.e. "January")
DDday of month
HH1212-hour hour
HH2424-hour hour
MIminutes
SSseconds
AMam/pm flag
+ Any format field may be followed by "t", in which case a text + widget will be used to represent the field. + the array in range_ref determines interval ranges; the keys + are the date fields and the values are in form {start stop interval} +} { variable ::template::util::date::fragment_widgets @@ -878,9 +898,9 @@ } -# Collect a Date object from the form - ad_proc -public template::data::transform::date { element_ref } { + Collect a Date object from the form +} { upvar $element_ref element set element_id $element(id) Index: openacs-4/packages/acs-templating/tcl/debug-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/debug-procs.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/acs-templating/tcl/debug-procs.tcl 9 May 2001 05:15:58 -0000 1.2 +++ openacs-4/packages/acs-templating/tcl/debug-procs.tcl 21 Aug 2002 18:15:37 -0000 1.3 @@ -1,6 +1,7 @@ -# tracks each file by interpreter to ensure that it is up-to-date ad_proc -public watch_files {} { + tracks each file by interpreter to ensure that it is up-to-date +} { set files [list ats/paginator-procs.tcl ats/query-procs.tcl \ ats/debug-procs.tcl ats/filter-procs.tcl ats/util-procs.tcl] Index: openacs-4/packages/acs-templating/tcl/doc-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/doc-procs.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/acs-templating/tcl/doc-procs.tcl 9 May 2001 05:15:58 -0000 1.2 +++ openacs-4/packages/acs-templating/tcl/doc-procs.tcl 21 Aug 2002 18:15:37 -0000 1.3 @@ -73,9 +73,9 @@ return $directives } -# Assemble directives into data source(s) for presentation. - ad_proc -public template::get_datasources { code } { + Assemble directives into data source(s) for presentation. +} { upvar datasources:rowcount rowcount set rowcount 0 Index: openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl 19 Jan 2002 22:10:14 -0000 1.3 +++ openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl 21 Aug 2002 18:15:37 -0000 1.4 @@ -11,23 +11,18 @@ namespace eval doc::util {} -# @namespace doc::util +ad_proc -private doc::util::dbl_colon_fix { text } { -# @private doc::util::dbl_colon_fix - -ad_proc -public doc::util::dbl_colon_fix { text } { - regsub -all {::} $text {__} text return $text } -# @private sort_see -# used to sort the see list, which has structure [name {name} type {type} url {url}] -# @param element1 the first of the two list elements to be compared -# @param element2 {default actually, no default value for this because it is required} the -# second of the two elements to be compared - -ad_proc -public doc::util::sort_see { element1 element2 } { +ad_proc -private doc::util::sort_see { element1 element2 } { + used to sort the see list, which has structure [name {name} type {type} url {url}] + @param element1 the first of the two list elements to be compared + @param element2 {default actually, no default value for this because it is required} the + second of the two elements to be compared +} { if { [lindex $element1 3 ] < [lindex $element2 3] } { return -1 @@ -40,10 +35,9 @@ return [string compare -nocase [lindex $element1 1] [lindex $element2 1]] } -# @private sort_@see -# procedure to deal with @see comments - -ad_proc -public doc::sort_@see { list_ref directive_comments } { +ad_proc -private doc::sort_@see { list_ref directive_comments } { + procedure to deal with @see comments +} { upvar $list_ref see_list set type [lindex $directive_comments 0] set see_name [lindex $directive_comments 1] @@ -89,8 +83,23 @@ # @see proc doc::parse_namespace doc.html#doc::parse_namespace # @see proc doc::util::text_divider -ad_proc -public doc::util::find_marker_indices { text marker } { +ad_proc -private doc::util::find_marker_indices { text marker } { + given a body of text and a text marker, returns a list of position indices + for each occurrence of the text marker + @param text body of text to be searched through + @param marker the text-divider mark + + @return list of indices of the position immediately preceding each + occurrence of the text marker; if there are no occurrences + of the text marker, returns a zero-element list + + @see namespace doc + @see proc doc::parse_file + @see proc doc::parse_namespace doc.html#doc::parse_namespace + @see proc doc::util::text_divider +} { + set indices_list [list] set last_index -1 @@ -108,16 +117,15 @@ return $indices_list } -# @private text_divider -# divides a string variable into a list of strings, all but the first element beginning -# with the indicated text marker; the first element of the created list contains all of -# the string preceding the first occurrence of the text marker -# @param text name of string variable (not the string value itself) -# @param marker the string indicating text division +ad_proc -private doc::util::text_divider { text_ref marker } { + divides a string variable into a list of strings, all but the first element beginning + with the indicated text marker; the first element of the created list contains all of + the string preceding the first occurrence of the text marker + @param text name of string variable (not the string value itself) + @param marker the string indicating text division -# @see proc doc::util::find_marker_indices - -ad_proc -public doc::util::text_divider { text_ref marker } { + @see proc doc::util::find_marker_indices +} { upvar $text_ref text set indices_list [doc::util::find_marker_indices $text $marker] @@ -142,29 +150,25 @@ return 1 } -# @namespace util +ad_proc -private template::util::server_root {} { + uses ns_library to find the server root, may not always be accurate + because it essentially asks for the tcl library path and + strips off the last /tcl directory +} { -# @private server_root -# uses ns_library to find the server root, may not always be accurate -# because it essentially asks for the tcl library path and -# strips off the last /tcl directory - -ad_proc -public template::util::server_root {} { - set path_length [expr [llength [file split [ns_library private]]] - 1] set svr_root "/[join [lreplace [file split [ns_library private]] $path_length $path_le\ngth] / ]" return $svr_root } -# @private write_from_template -# takes a .adp template name and the name of the file to -# be written and creates the file; also puts out a notice before -# -# @param template the name of the template to be used in making the file -# @param file_name the name of the file to be created +ad_proc -private template::util::write_from_template { template file_name} { + takes a .adp template name and the name of the file to + be written and creates the file; also puts out a notice before + + @param template the name of the template to be used in making the file + @param file_name the name of the file to be created +} { -ad_proc -public template::util::write_from_template { template file_name} { - upvar template_name template_name set template_name $template uplevel { @@ -177,101 +181,94 @@ } -# @private display_value -# a proc used for debugging, just prints out a value to the error log - -ad_proc -public template::util::display_value { ref } { +ad_proc -private template::util::display_value { ref } { + a proc used for debugging, just prints out a value to the error log +} { upvar $ref value ns_log notice " $ref: $value " } -# @private proper_noun -# capitalizes the first letter of a string -# @return returns formatted string -ad_proc -public template::util::proper_noun { string_ref } { +ad_proc -private template::util::proper_noun { string_ref } { + @private proper_noun + capitalizes the first letter of a string + @return returns formatted string (UNFINISHED. FIXME.) +} { } -# @private string_range -ad_proc -public template::util::string_range { string indices } { +ad_proc -private template::util::string_range { string indices } { return [string range $string [lindex $indices 0] [lindex $indices 1]] } -# @private quote_space -# just takes a body of text and puts a space behind every double quote; -# this is done so that the text body can be treated as a list -# without causing problems resulting from list elements -# being separated by characters other than a space +ad_proc -private template::util::quote_space {text} { + just takes a body of text and puts a space behind every double quote; + this is done so that the text body can be treated as a list + without causing problems resulting from list elements + being separated by characters other than a space -# @param text req/none the body of text to be worked on + @param text req/none the body of text to be worked on -# @return same text but with a space behind each quote; double quotes -# that are already trailed by a space are unaffected - -ad_proc -public template::util::quote_space {text} { + @return same text but with a space behind each quote; double quotes + that are already trailed by a space are unaffected +} { regsub -all {"} $text {" } text regsub -all {" } $text {" } text return $text } -# @namespace doc::util - -# @private bracket_space puts a space after all closing curly brackets, does not -# add a space when brackets are already followed by a space - -ad_proc -public doc::util::bracket_space {text} { +ad_proc -private doc::util::bracket_space {text} { + puts a space after all closing curly brackets, does not + add a space when brackets are already followed by a space +} { regsub -all {(\})} $text {\1 } text regsub -all {(\}) } $text {\1 } text return $text } -# @private escape_square_brackets escapes out all square brackets -ad_proc -public doc::util::escape_square_brackets {text} { +ad_proc -private doc::util::escape_square_brackets {text} { + escapes out all square brackets +} { regsub -all {(\[)} $text {\\\1} text regsub -all {(\])} $text {\\\1} text return $text } -# @private make_text_listable - -ad_proc -public doc::util::make_text_listable {text_ref} { +ad_proc -private doc::util::make_text_listable {text_ref} { upvar $text_ref text set text [doc::util::bracket_space $text] set text [template::util::quote_space $text] set text [doc::util::escape_square_brackets $text] } -# @namespace util -# @private comment_text_normalize escapes quotes and removes comment tags -# from a body of commented text -# @param text -# @return text - -ad_proc -public template::util::comment_text_normalize {text} { +ad_proc -private template::util::comment_text_normalize {text} { + escapes quotes and removes comment tags + from a body of commented text + @param text + @return text +} { regsub -all {"} $text {\"} text regsub -all {(\n)\s*#\s*} $text {\1 } text regsub {(\A)\s*#\s*} $text {\1 } text return $text } -# @private alphabetized_insert -# takes an alphabetized list and an entry +ad_proc -private template::util::alphabetized_index {list entry} { + takes an alphabetized list and an entry + + @param list {let's see how this parses out} the alphabetized list + @param entry req the value to be inserted -# @param list {let's see how this parses out} the alphabetized list -# @param entry req the value to be inserted + @return either the proper list index for an alphabetized insertion or -1 if the entry is + already in the list +} { -# @return either the proper list index for an alphabetized insertion or -1 if the entry is -# already in the list - -ad_proc -public template::util::alphabetized_index {list entry} { - set result [lsearch -exact $list $entry] if { $result != -1 } { return -1 @@ -288,21 +285,23 @@ } -# @private proc_element_compare -# used to compare two different elements in a list of parsed data for public or private procs -ad_proc -public template::util::proc_element_compare { element1 element2 } { +ad_proc -private template::util::proc_element_compare { element1 element2 } { + used to compare two different elements in a list of parsed data for public or private procs +} { return [string compare -nocase [lindex [lindex [lindex element2 1] 0] 1] [lindex [lindex [lindex element1 1] 0] 1]] } -# @namespace doc - -# @private set_proc_name_source_txt called by parse_comment_text +# @private set_proc_name_source_txt +# called by parse_comment_text # @param comment_text this should include the source text -ad_proc -public doc::set_proc_name_source_text_comment_text { proc_block } { +ad_proc -private doc::set_proc_name_source_text_comment_text { proc_block } { + called by parse_comment_text + @param comment_text this should include the source text +} { upvar source_txt source_txt upvar proc_name proc_name upvar comment_text comment_text @@ -317,11 +316,12 @@ } -# @private parse_comment_text called by parse_namespace -# @param comment_text body of comment text to be parsed through -# @param source_text source text of the procedure +ad_proc -private doc::parse_comment_text { proc_block } { + called by parse_namespace -ad_proc -public doc::parse_comment_text { proc_block } { + @param comment_text body of comment text to be parsed through + @param source_text source text of the procedure +} { doc::set_proc_name_source_text_comment_text $proc_block @@ -405,16 +405,15 @@ } -# @private parse_namespace called by parse_file, this procedure is given the body of -# text between two namespace markers in a tcl library file and parses out procedure -# source and comments +ad_proc -private doc::parse_namespace { text_lines } { + text between two namespace markers in a tcl library file and + parses out procedure source and comments -# @author simon + @author simon -# @param text_lines namespace text body + @param text_lines namespace text body +} { -ad_proc -public doc::parse_namespace { text_lines } { - # total_result_listing will contain our complete data set, # namespace_list is just a temp variable used for easy bookkeeping; # it contains an alphabetized lists of namespaces only @@ -540,44 +539,41 @@ } -# @private parse_file -# Parse API documentation from a Tcl page -# API documentation is parsed as follows: -# Document is scanned until a @namespace directive is encountered. -# The remainder of the file is scanned for @private or @public -# directives. -# When one of these directives is encountered, the file is scanned up -# to a proc declaration and the text in between is parsed as documentation -# for a single procedure. The text between the initial @private or @public -# directive and the next directive is considered a general comment on -# the procedure -# Valid directives in a procedure doc include: -# - @author -# - @param (for hard parameters) -# - @see (should have the form namespace::procedure. A reference to an -# entire namespace should be namespace::. By convention the -# API for each namespace should be in a file of the same name, so that -# a link can be generated automatically). -# - @option (for switches such as -foo) -# - @return +ad_proc -private doc::parse_file { path } { + Parse API documentation from a Tcl page + API documentation is parsed as follows: + Document is scanned until a @namespace directive is encountered. + The remainder of the file is scanned for @private or @public + directives. + When one of these directives is encountered, the file is scanned up + to a proc declaration and the text in between is parsed as documentation + for a single procedure. The text between the initial @private or @public + directive and the next directive is considered a general comment on + the procedure + Valid directives in a procedure doc include: + - @author + - @param (for hard parameters) + - @see (should have the form namespace::procedure. A reference to an + entire namespace should be namespace::. By convention the + API for each namespace should be in a file of the same name, + so that a link can be generated automatically). + - @option (for switches such as -foo) + - @return -# Reads the text for a file and scans for a namespace directive. When -# one is encountered, reads until the next namespace or EOF and calls -# doc::parse_namespace on the accumulated lines to get procedure -# documentation. + Reads the text for a file and scans for a namespace directive. When + one is encountered, reads until the next namespace or EOF and calls + doc::parse_namespace on the accumulated lines to get procedure + documentation. -# creates a multirow variable in the variable name designated by result_ref -# with columns namespace_name, proc_name, public_private, author, param, option, see -# return and source_text + creates a multirow variable in the variable name designated by result_ref + with columns namespace_name, proc_name, public_private, + author, param, option, see, return and source_text -# Note that this format is suitable for passing to array set for -# creating a lookup on namespace name. - - -ad_proc -public doc::parse_file { path } { - + Note that this format is suitable for passing to array set for + creating a lookup on namespace name. +} { set text [template::util::read_file $path] if { [doc::util::text_divider text {\n#\s*@namespace\s+} ] } { @@ -598,18 +594,19 @@ } -# @private doc::parse_tcl_library -# takes the absolute path of the tcl library directory and parses through it +ad_proc -private doc::parse_tcl_library { dir_list } { + takes the absolute path of the tcl library directory and parses through it -# @see proc doc::parse_file doc.html#doc::parse_file -# @see namespace util util.html -# @see proc template::util::comment_text_normalize util.html#template::util::comment_text_normalize + @see proc doc::parse_file doc.html#doc::parse_file + @see namespace util util.html + @see proc template::util::comment_text_normalize util.html#template::util::comment_text_normalize -# @return a long lists of lists of lists, each list element contains a three-element list of -# the format { {info} {public procedures listing } {private procedures listing}} + @return a long lists of lists of lists, each list element contains + a three-element list of the format -ad_proc -public doc::parse_tcl_library { dir_list } { + - { {info} {public procedures listing } {private procedures listing}} +} { # namespace_list will be a list containing namespace names only, and should be ordered # with respect to namespaces in the same order as the list result