Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Tkt [31868eeaff] Changed new package `fileutil::path` back to have a Tcl 8.4 requirement, for maximum compatibility. Modified the old implementations of the consolidated packages to redirect to the new package and implementation. Copied the tests from the latter over to ensure that these redirection wrappers are in working order. Created basic infrastructure in new directory `modules/0compatibility` holding these and any future compat packages / redirection wrappers. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | ak-31868eeaff |
Files: | files | file ages | folders |
SHA3-256: |
5186a0f24bdd2ff2376e33870b3a57b3 |
User & Date: | aku 2019-04-18 20:09:22.526 |
References
2019-04-19
| ||
04:06 | • Ticket [31868eeaff] Consolidate (duplicated) utility packages status still Open with 3 other changes artifact: 293a891c80 user: aku | |
Context
2019-04-19
| ||
05:57 | Updated feature work with latest trunk changes. Closed-Leaf check-in: 7e81531352 user: aku tags: ak-31868eeaff | |
2019-04-18
| ||
20:09 | Tkt [31868eeaff] Changed new package `fileutil::path` back to have a Tcl 8.4 requirement, for maximum compatibility. Modified the old implementations of the consolidated packages to redirect to the new package and implementation. Copied the tests from the latter over to ensure that these redirection wrappers are in working order. Created basic infrastructure in new directory `modules/0compatibility` holding these and any future compat packages / redirection wrappers. check-in: 5186a0f24b user: aku tags: ak-31868eeaff | |
06:10 | Tkt [31868eeaff] Identical configuration management utility package. (Just claiming to require 8.4 vs 8.5) Removed doctools::config (doctools2base, 8.4) Removed configuration (pt, 8.5) Consolidated as struct::map, Tcl 8.4 requirement. Version bump - struct::map 1 - T (NEW) - D (NEW) Updated internal users: - pt::peg::export 1.0.1 (I) - doctools::idx::export 0.2.1 (I) - doctools::idx::import already bumped - doctools::toc::export 0.2.1 (I) - doctools::toc::import already bumped further fixed forgotten doc updates (doctools::{idx,toc}::import) of previous commit. check-in: d7c72d4825 user: aku tags: ak-31868eeaff | |
Changes
Added modules/0compatibility/d_config.tcl.
> > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | # (c) 2019 Andreas Kupries # Redirection wrapper for deprecated package # Deprecated: # - doctools::config # Replacement: # - struct::map package require Tcl 8.4 package require struct::map namespace eval ::doctools {} proc ::doctools::config {args} { uplevel 1 [linsert $args 0 ::struct::map] } package provide doctools::config 0.1 return |
Added modules/0compatibility/d_config.test.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 | # -*- tcl -*- # config.test: Testsuite for DEPRECATED package doctools::config # # Copyright (c) 2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] testsNeedTcl 8.4 testsNeedTcltest 2.0 support { use snit/snit.tcl snit use struct/map.tcl struct::map } testing { useLocal d_config.tcl doctools::config } # --------------------------------------------------------------------- # [] constructor # [] destructor # [] get # [] names # [] set # [] unset #---------------------------------------------------------------------- ## Constructor, destructor test doctools-config-1.0 {constructor, wrong args, too many} -body { doctools::config M X } -returnCodes error -result {Error in constructor: wrong # args: should be "::struct::map::I::Snit_constructor type selfns win self"} test doctools-config-1.1 {instance, bogus method} -setup { doctools::config M } -cleanup { M destroy } -body { M bogus } -returnCodes error -result {"::M bogus" is not defined} #---------------------------------------------------------------------- ## get test doctools-config-2.0 {get, wrong args, too many} -setup { doctools::config M } -cleanup { M destroy } -body { M get X } -returnCodes error -result {wrong # args: should be "::struct::map::I::Snit_methodget type selfns win self"} test doctools-config-2.1 {get, base state, none} -setup { doctools::config M } -cleanup { M destroy } -body { M get } -result {} #---------------------------------------------------------------------- ## names test doctools-config-3.0 {names, wrong args, too many} -setup { doctools::config M } -cleanup { M destroy } -body { M names X } -returnCodes error -result {wrong # args: should be "::struct::map::I::Snit_methodnames type selfns win self"} test doctools-config-3.1 {names, base state, none} -setup { doctools::config M } -cleanup { M destroy } -body { M names } -result {} #---------------------------------------------------------------------- ## set test doctools-config-4.0 {set, wrong args, not enough} -setup { doctools::config M } -cleanup { M destroy } -body { M set } -returnCodes error -result {wrong # args: should be "::struct::map::I::Snit_methodset type selfns win self name ?value?"} test doctools-config-4.1 {set, wrong args, too many} -setup { doctools::config M } -cleanup { M destroy } -body { M set K V X } -returnCodes error -result {wrong # args: should be "::struct::map::I::Snit_methodset type selfns win self name ?value?"} test doctools-config-4.2 {set, state change, result} -setup { doctools::config M } -cleanup { M destroy } -body { list [M names] [M get] [M set K V] [M names] [M get] } -result {{} {} V K {K V}} #---------------------------------------------------------------------- ## unset test doctools-config-5.2 {unset, known key, state change, result} -setup { doctools::config M M set K V } -cleanup { M destroy } -body { list [M names] [M get] [M unset K] [M names] [M get] } -result {K {K V} {} {} {}} test doctools-config-5.3 {unset, missing key, no state change, result} -setup { doctools::config M M set K V } -cleanup { M destroy } -body { list [M names] [M get] [M unset K'] [M names] [M get] } -result {K {K V} {} K {K V}} test doctools-config-5.4 {unset, no pattern, clear, result} -setup { doctools::config M M set K V } -cleanup { M destroy } -body { list [M names] [M get] [M unset] [M names] [M get] } -result {K {K V} {} {} {}} #---------------------------------------------------------------------- testsuiteCleanup return |
Added modules/0compatibility/d_paths.tcl.
> > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | # (c) 2019 Andreas Kupries # Redirection wrapper for deprecated package # Deprecated: # - doctools::paths # Replacement: # - fileutil::paths package require Tcl 8.4 package require fileutil::paths namespace eval ::doctools {} proc ::doctools::paths {args} { uplevel 1 [linsert $args 0 ::fileutil::paths] } package provide doctools::paths 0.1 return |
Added modules/0compatibility/d_paths.test.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 | # -*- tcl -*- # paths.test: Testsuite for DEPRECATED package doctools::paths # # Copyright (c) 2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] testsNeedTcl 8.4 testsNeedTcltest 2.0 support { use snit/snit.tcl snit use fileutil/paths.tcl fileutil::paths } testing { useLocal d_paths.tcl doctools::paths } # --------------------------------------------------------------------- # [] constructor # [] destructor # [] paths # [] add # [] remove # [] clear #---------------------------------------------------------------------- ## Constructor, destructor test doctools-paths-1.0 {constructor, wrong args, too many} -body { doctools::paths P X } -returnCodes error -result {Error in constructor: wrong # args: should be "::fileutil::paths::Snit_constructor type selfns win self"} test doctools-paths-1.1 {instance, bogus method} -setup { doctools::paths P } -cleanup { P destroy } -body { P bogus } -returnCodes error -result {"::P bogus" is not defined} #---------------------------------------------------------------------- ## paths test doctools-paths-2.0 {paths, wrong args, too many} -setup { doctools::paths P } -cleanup { P destroy } -body { P paths X } -returnCodes error -result {wrong # args: should be "::fileutil::paths::Snit_methodpaths type selfns win self"} test doctools-paths-2.1 {paths, base state, none} -setup { doctools::paths P } -cleanup { P destroy } -body { P paths } -result {} #---------------------------------------------------------------------- ## add test doctools-paths-3.0 {add, wrong args, not enough} -setup { doctools::paths P } -cleanup { P destroy } -body { P add } -returnCodes error -result {wrong # args: should be "::fileutil::paths::Snit_methodadd type selfns win self path"} test doctools-paths-3.1 {add, wrong args, too many} -setup { doctools::paths P } -cleanup { P destroy } -body { P add F X } -returnCodes error -result {wrong # args: should be "::fileutil::paths::Snit_methodadd type selfns win self path"} test doctools-paths-3.2 {add, state change, result} -setup { doctools::paths P } -cleanup { P destroy } -body { list [P add F] [P paths] } -result {{} F} #---------------------------------------------------------------------- ## remove test doctools-paths-4.0 {remove, wrong args, not enough} -setup { doctools::paths P } -cleanup { P destroy } -body { P remove } -returnCodes error -result {wrong # args: should be "::fileutil::paths::Snit_methodremove type selfns win self path"} test doctools-paths-4.1 {remove, wrong args, too many} -setup { doctools::paths P } -cleanup { P destroy } -body { P remove F X } -returnCodes error -result {wrong # args: should be "::fileutil::paths::Snit_methodremove type selfns win self path"} test doctools-paths-4.2 {remove, known path, state change, result} -setup { doctools::paths P P add F } -cleanup { P destroy } -body { list [P remove F] [P paths] } -result {{} {}} test doctools-paths-4.3 {remove, missing path, no state change, result} -setup { doctools::paths P P add Z } -cleanup { P destroy } -body { list [P remove F] [P paths] } -result {{} Z} #---------------------------------------------------------------------- ## clear test doctools-paths-5.0 {clear, wrong args, too many} -setup { doctools::paths P } -cleanup { P destroy } -body { P clear X } -returnCodes error -result {wrong # args: should be "::fileutil::paths::Snit_methodclear type selfns win self"} test doctools-paths-5.1 {clear, return to base state} -setup { doctools::paths P P add F } -cleanup { P destroy } -body { list [P clear] [P paths] } -result {{} {}} #---------------------------------------------------------------------- testsuiteCleanup return |
Added modules/0compatibility/p_config.tcl.
> > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | # (c) 2019 Andreas Kupries # Redirection wrapper for deprecated package # Deprecated: # - configuration # Replacement: # - struct::map package require Tcl 8.4 package require struct::map proc ::configuration {args} { uplevel 1 [linsert $args 0 ::struct::map] } package provide configuration 1 return |
Added modules/0compatibility/p_config.test.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 | # -*- tcl -*- # config.test: Testsuite for DEPRECATED package configuration # # Copyright (c) 2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] testsNeedTcl 8.4 testsNeedTcltest 2.0 support { use snit/snit.tcl snit use struct/map.tcl struct::map } testing { useLocal p_config.tcl configuration } # --------------------------------------------------------------------- # [] constructor # [] destructor # [] get # [] names # [] set # [] unset #---------------------------------------------------------------------- ## Constructor, destructor test configuration-1.0 {constructor, wrong args, too many} -body { configuration M X } -returnCodes error -result {Error in constructor: wrong # args: should be "::struct::map::I::Snit_constructor type selfns win self"} test configuration-1.1 {instance, bogus method} -setup { configuration M } -cleanup { M destroy } -body { M bogus } -returnCodes error -result {"::M bogus" is not defined} #---------------------------------------------------------------------- ## get test configuration-2.0 {get, wrong args, too many} -setup { configuration M } -cleanup { M destroy } -body { M get X } -returnCodes error -result {wrong # args: should be "::struct::map::I::Snit_methodget type selfns win self"} test configuration-2.1 {get, base state, none} -setup { configuration M } -cleanup { M destroy } -body { M get } -result {} #---------------------------------------------------------------------- ## names test configuration-3.0 {names, wrong args, too many} -setup { configuration M } -cleanup { M destroy } -body { M names X } -returnCodes error -result {wrong # args: should be "::struct::map::I::Snit_methodnames type selfns win self"} test configuration-3.1 {names, base state, none} -setup { configuration M } -cleanup { M destroy } -body { M names } -result {} #---------------------------------------------------------------------- ## set test configuration-4.0 {set, wrong args, not enough} -setup { configuration M } -cleanup { M destroy } -body { M set } -returnCodes error -result {wrong # args: should be "::struct::map::I::Snit_methodset type selfns win self name ?value?"} test configuration-4.1 {set, wrong args, too many} -setup { configuration M } -cleanup { M destroy } -body { M set K V X } -returnCodes error -result {wrong # args: should be "::struct::map::I::Snit_methodset type selfns win self name ?value?"} test configuration-4.2 {set, state change, result} -setup { configuration M } -cleanup { M destroy } -body { list [M names] [M get] [M set K V] [M names] [M get] } -result {{} {} V K {K V}} #---------------------------------------------------------------------- ## unset test configuration-5.2 {unset, known key, state change, result} -setup { configuration M M set K V } -cleanup { M destroy } -body { list [M names] [M get] [M unset K] [M names] [M get] } -result {K {K V} {} {} {}} test configuration-5.3 {unset, missing key, no state change, result} -setup { configuration M M set K V } -cleanup { M destroy } -body { list [M names] [M get] [M unset K'] [M names] [M get] } -result {K {K V} {} K {K V}} test configuration-5.4 {unset, no pattern, clear, result} -setup { configuration M M set K V } -cleanup { M destroy } -body { list [M names] [M get] [M unset] [M names] [M get] } -result {K {K V} {} {} {}} #---------------------------------------------------------------------- testsuiteCleanup return |
Added modules/0compatibility/p_paths.tcl.
> > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | # (c) 2019 Andreas Kupries # Redirection wrapper for deprecated package # Deprecated: # - paths # Replacement: # - fileutil::paths package require Tcl 8.4 package require fileutil::paths proc ::paths {args} { uplevel 1 [linsert $args 0 ::fileutil::paths] } package provide paths 1 return |
Added modules/0compatibility/p_paths.test.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 | # -*- tcl -*- # paths.test: Testsuite for DEPRECATED package paths (pt) # # Copyright (c) 2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] testsNeedTcl 8.4 testsNeedTcltest 2.0 support { use snit/snit.tcl snit use fileutil/paths.tcl fileutil::paths } testing { useLocal p_paths.tcl paths } # --------------------------------------------------------------------- # [] constructor # [] destructor # [] paths # [] add # [] remove # [] clear #---------------------------------------------------------------------- ## Constructor, destructor test paths-1.0 {constructor, wrong args, too many} -body { paths P X } -returnCodes error -result {Error in constructor: wrong # args: should be "::fileutil::paths::Snit_constructor type selfns win self"} test paths-1.1 {instance, bogus method} -setup { paths P } -cleanup { P destroy } -body { P bogus } -returnCodes error -result {"::P bogus" is not defined} #---------------------------------------------------------------------- ## paths test paths-2.0 {paths, wrong args, too many} -setup { paths P } -cleanup { P destroy } -body { P paths X } -returnCodes error -result {wrong # args: should be "::fileutil::paths::Snit_methodpaths type selfns win self"} test paths-2.1 {paths, base state, none} -setup { paths P } -cleanup { P destroy } -body { P paths } -result {} #---------------------------------------------------------------------- ## add test paths-3.0 {add, wrong args, not enough} -setup { paths P } -cleanup { P destroy } -body { P add } -returnCodes error -result {wrong # args: should be "::fileutil::paths::Snit_methodadd type selfns win self path"} test paths-3.1 {add, wrong args, too many} -setup { paths P } -cleanup { P destroy } -body { P add F X } -returnCodes error -result {wrong # args: should be "::fileutil::paths::Snit_methodadd type selfns win self path"} test paths-3.2 {add, state change, result} -setup { paths P } -cleanup { P destroy } -body { list [P add F] [P paths] } -result {{} F} #---------------------------------------------------------------------- ## remove test paths-4.0 {remove, wrong args, not enough} -setup { paths P } -cleanup { P destroy } -body { P remove } -returnCodes error -result {wrong # args: should be "::fileutil::paths::Snit_methodremove type selfns win self path"} test paths-4.1 {remove, wrong args, too many} -setup { paths P } -cleanup { P destroy } -body { P remove F X } -returnCodes error -result {wrong # args: should be "::fileutil::paths::Snit_methodremove type selfns win self path"} test paths-4.2 {remove, known path, state change, result} -setup { paths P P add F } -cleanup { P destroy } -body { list [P remove F] [P paths] } -result {{} {}} test paths-4.3 {remove, missing path, no state change, result} -setup { paths P P add Z } -cleanup { P destroy } -body { list [P remove F] [P paths] } -result {{} Z} #---------------------------------------------------------------------- ## clear test paths-5.0 {clear, wrong args, too many} -setup { paths P } -cleanup { P destroy } -body { P clear X } -returnCodes error -result {wrong # args: should be "::fileutil::paths::Snit_methodclear type selfns win self"} test paths-5.1 {clear, return to base state} -setup { paths P P add F } -cleanup { P destroy } -body { list [P clear] [P paths] } -result {{} {}} #---------------------------------------------------------------------- testsuiteCleanup return |
Added modules/0compatibility/pkgIndex.tcl.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | # Compatibility wrapper for deprecated packages. ## # Stages # [D1] Next Release - Noted deprecated, with redirection wrappers # [D2] Release After - Wrappers become Boockers, throwing error noting redirection # [D3] Release Beyond - All removed. ## # Currently in deprecation # - D1 doctools::path (doctools2base) # - D1 doctools::config (doctools2base) # - D1 configuration (pt) # - D1 paths (pt) # # :Attention: # - Original `doctools::paths` Tcl 8.4 required # Replacement `fileutilutil::paths` Tcl 8.5 required! if {![package vsatisfies [package provide Tcl] 8.4]} {return} package ifneeded configuration 1 [list source [file join $dir p_config.tcl]] package ifneeded doctools::config 0.1 [list source [file join $dir d_config.tcl]] package ifneeded doctools::paths 0.1 [list source [file join $dir d_paths.tcl]] package ifneeded paths 1 [list source [file join $dir p_paths.tcl]] if {![package vsatisfies [package provide Tcl] 8.5]} {return} if {![package vsatisfies [package provide Tcl] 8.6]} {return} |
Changes to modules/doctools2idx/container.test.
1 2 3 4 5 6 7 8 9 10 11 12 | # -*- tcl -*- # idx.test: Tests for the doctools::idx package. Index management. # # Copyright (c) 2009-2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | # -*- tcl -*- # idx.test: Tests for the doctools::idx package. Index management. # # Copyright (c) 2009-2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] testsNeedTcl 8.4 testsNeedTcltest 2 support { use struct/list.tcl struct::list use snit/snit.tcl snit use fileutil/fileutil.tcl fileutil use fileutil/paths.tcl fileutil::paths |
︙ | ︙ |
Changes to modules/doctools2idx/import.tcl.
︙ | ︙ | |||
10 11 12 13 14 15 16 | # Each object manages a set of plugins for the conversion of keyword # indices into some textual representation. I.e. this object manages # the conversion to specialized serializations of keyword indices. # ### ### ### ######### ######### ######### ## Requisites | | | | | 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | # Each object manages a set of plugins for the conversion of keyword # indices into some textual representation. I.e. this object manages # the conversion to specialized serializations of keyword indices. # ### ### ### ######### ######### ######### ## Requisites package require Tcl 8.4 package require struct::map package require doctools::idx::structure package require fileutil::paths package require pluginmgr package require snit # ### ### ### ######### ######### ######### ## API snit::type ::doctools::idx::import { # ### ### ### ######### ######### ######### ## Options :: None # ### ### ### ######### ######### ######### ## Creation, destruction. constructor {} { install myconfig using ::struct::map ${selfns}::config install myinclude using ::fileutil::paths ${selfns}::include return } destructor { $myconfig destroy $myinclude destroy # Clear the cache of loaded import plugins. |
︙ | ︙ |
Changes to modules/doctools2idx/import.test.
1 2 3 4 5 6 7 8 9 10 11 12 13 | # -*- tcl -*- # -- idx_import.test: # -- Tests for package "doctools::idx::import": Management of import plugins. # # Copyright (c) 2009-2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | # -*- tcl -*- # -- idx_import.test: # -- Tests for package "doctools::idx::import": Management of import plugins. # # Copyright (c) 2009-2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] testsNeedTcl 8.4 testsNeedTcltest 2 support { use struct/list.tcl struct::list use snit/snit.tcl snit use fileutil/fileutil.tcl fileutil use fileutil/paths.tcl fileutil::paths |
︙ | ︙ |
Changes to modules/doctools2toc/container.test.
1 2 3 4 5 6 7 8 9 10 11 12 | # -*- tcl -*- # toc.test: Tests for the doctools::toc package. ToC management. # # Copyright (c) 2009-2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | # -*- tcl -*- # toc.test: Tests for the doctools::toc package. ToC management. # # Copyright (c) 2009-2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] testsNeedTcl 8.4 testsNeedTcltest 2 support { useAccel [useTcllibC] struct/tree.tcl struct::tree TestAccelInit struct::tree use struct/list.tcl struct::list |
︙ | ︙ |
Changes to modules/doctools2toc/import.tcl.
︙ | ︙ | |||
10 11 12 13 14 15 16 | # Each object manages a set of plugins for the conversion of keyword # indices into some textual representation. I.e. this object manages # the conversion to specialized serializations of keyword indices. # ### ### ### ######### ######### ######### ## Requisites | | | | | 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | # Each object manages a set of plugins for the conversion of keyword # indices into some textual representation. I.e. this object manages # the conversion to specialized serializations of keyword indices. # ### ### ### ######### ######### ######### ## Requisites package require Tcl 8.4 package require struct::map package require doctools::toc::structure package require fileutil::paths package require pluginmgr package require snit # ### ### ### ######### ######### ######### ## API snit::type ::doctools::toc::import { # ### ### ### ######### ######### ######### ## Options :: None # ### ### ### ######### ######### ######### ## Creation, destruction. constructor {} { install myconfig using ::struct::map ${selfns}::config install myinclude using ::fileutil::paths ${selfns}::include return } destructor { $myconfig destroy $myinclude destroy # Clear the cache of loaded import plugins. |
︙ | ︙ |
Changes to modules/doctools2toc/import.test.
1 2 3 4 5 6 7 8 9 10 11 12 13 | # -*- tcl -*- # -- toc_import.test: # -- Tests for package "doctools::toc::import": Management of import plugins. # # Copyright (c) 2009-2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | # -*- tcl -*- # -- toc_import.test: # -- Tests for package "doctools::toc::import": Management of import plugins. # # Copyright (c) 2009-2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] testsNeedTcl 8.4 testsNeedTcltest 2 support { use struct/list.tcl struct::list use snit/snit.tcl snit use fileutil/fileutil.tcl fileutil use fileutil/paths.tcl fileutil::paths |
︙ | ︙ |
Changes to modules/fileutil/paths.man.
1 2 3 4 5 6 7 8 9 10 11 | [comment {-*- text -*- doctools manpage}] [vset VERSION 1] [manpage_begin fileutil::paths n [vset VERSION]] [titledesc {Manage search path pools}] [require fileutil::paths [opt [vset VERSION]]] [description] Provides a snit class whose instances manage a pool of (search) paths. [section API] | > | 1 2 3 4 5 6 7 8 9 10 11 12 | [comment {-*- text -*- doctools manpage}] [vset VERSION 1] [manpage_begin fileutil::paths n [vset VERSION]] [titledesc {Manage search path pools}] [require Tcl 8.4] [require fileutil::paths [opt [vset VERSION]]] [description] Provides a snit class whose instances manage a pool of (search) paths. [section API] |
︙ | ︙ |
Changes to modules/fileutil/paths.tcl.
︙ | ︙ | |||
8 9 10 11 12 13 14 | # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # Each object instance manages a list of paths. # ### ### ### ######### ######### ######### ## Requisites | | | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # Each object instance manages a list of paths. # ### ### ### ######### ######### ######### ## Requisites package require Tcl 8.4 package require snit # ### ### ### ######### ######### ######### ## API snit::type ::fileutil::paths { |
︙ | ︙ | |||
33 34 35 36 37 38 39 | ## Methods :: Querying and manipulating the list of paths. method paths {} { return $mypaths } method add {path} { | > | | 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | ## Methods :: Querying and manipulating the list of paths. method paths {} { return $mypaths } method add {path} { set pos [lsearch $mypaths $path] if {$pos >= 0 } return lappend mypaths $path return } method remove {path} { set pos [lsearch $mypaths $path] if {$pos < 0} return |
︙ | ︙ |
Changes to modules/fileutil/paths.test.
1 2 3 4 5 6 7 8 9 10 11 12 | # -*- tcl -*- # paths.test: Testsuite for package fileutil::paths # # Copyright (c) 2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] | | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # -*- tcl -*- # paths.test: Testsuite for package fileutil::paths # # Copyright (c) 2019 by Andreas Kupries <[email protected]> # All rights reserved. # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] testsNeedTcl 8.4 testsNeedTcltest 2.0 support { use snit/snit.tcl snit } testing { useLocal paths.tcl fileutil::paths } # --------------------------------------------------------------------- # [] constructor |
︙ | ︙ |
Changes to modules/fileutil/pkgIndex.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 | if {![package vsatisfies [package provide Tcl] 8.2]} {return} package ifneeded fileutil 1.16 [list source [file join $dir fileutil.tcl]] if {![package vsatisfies [package provide Tcl] 8.3]} {return} package ifneeded fileutil::traverse 0.6 [list source [file join $dir traverse.tcl]] if {![package vsatisfies [package provide Tcl] 8.4]} {return} package ifneeded fileutil::multi 0.1 [list source [file join $dir multi.tcl]] package ifneeded fileutil::multi::op 0.5.3 [list source [file join $dir multiop.tcl]] package ifneeded fileutil::decode 0.2.1 [list source [file join $dir decode.tcl]] if {![package vsatisfies [package provide Tcl] 8.5]} return | > | > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | if {![package vsatisfies [package provide Tcl] 8.2]} {return} package ifneeded fileutil 1.16 [list source [file join $dir fileutil.tcl]] if {![package vsatisfies [package provide Tcl] 8.3]} {return} package ifneeded fileutil::traverse 0.6 [list source [file join $dir traverse.tcl]] if {![package vsatisfies [package provide Tcl] 8.4]} {return} package ifneeded fileutil::multi 0.1 [list source [file join $dir multi.tcl]] package ifneeded fileutil::multi::op 0.5.3 [list source [file join $dir multiop.tcl]] package ifneeded fileutil::decode 0.2.1 [list source [file join $dir decode.tcl]] package ifneeded fileutil::paths 1 [list source [file join $dir paths.tcl]] if {![package vsatisfies [package provide Tcl] 8.5]} return if {![package vsatisfies [package provide Tcl] 8.6]} return |
Changes to modules/pt/pt_peg_import.man.
1 2 3 4 5 6 7 8 9 10 11 12 | [comment {-*- tcl -*- doctools manpage}] [vset VERSION 1.0.1] [manpage_begin pt::peg::import n [vset VERSION]] [include include/module.inc] [titledesc {PEG Import}] [require snit] [require fileutil::paths] [require pt::peg] [require pluginmgr] [require pt::peg::import [opt [vset VERSION]]] [description] [include include/ref_intro.inc] | > | 1 2 3 4 5 6 7 8 9 10 11 12 13 | [comment {-*- tcl -*- doctools manpage}] [vset VERSION 1.0.1] [manpage_begin pt::peg::import n [vset VERSION]] [include include/module.inc] [titledesc {PEG Import}] [require Tcl 8.5] [require snit] [require fileutil::paths] [require pt::peg] [require pluginmgr] [require pt::peg::import [opt [vset VERSION]]] [description] [include include/ref_intro.inc] |
︙ | ︙ |
Changes to modules/pt/pt_peg_import.tcl.
︙ | ︙ | |||
11 12 13 14 15 16 17 | # expression grammars from some textual representation. I.e. this # object manages the conversion from specialized serializations of # parsing expression grammars into their standard form. # ### ### ### ######### ######### ######### ## Requisites | | | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | # expression grammars from some textual representation. I.e. this # object manages the conversion from specialized serializations of # parsing expression grammars into their standard form. # ### ### ### ######### ######### ######### ## Requisites package require Tcl 8.4 package require fileutil::paths package require pt::peg package require pluginmgr package require snit # ### ### ### ######### ######### ######### ## API |
︙ | ︙ |
Changes to support/installation/modules.tcl.
︙ | ︙ | |||
29 30 31 32 33 34 35 36 37 38 39 40 41 42 | # -------------------------------------------------------------- # @@ Registration START Exclude calendar Exclude exif # name pkg doc example Module aes _tcl _man _null Module amazon-s3 _tcl _man _null Module asn _tcl _man _null Module base32 _tcl _man _null Module base64 _tcl _man _null Module bee _tcl _man _null | > > > > > | 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | # -------------------------------------------------------------- # @@ Registration START Exclude calendar Exclude exif # name pkg doc example Module 0compatibility _tcl _null _null # Wrapper packages redirecting deprecated/moved packages to their old # implementations. See pkgIndex.tcl for more notes. # name pkg doc example Module aes _tcl _man _null Module amazon-s3 _tcl _man _null Module asn _tcl _man _null Module base32 _tcl _man _null Module base64 _tcl _man _null Module bee _tcl _man _null |
︙ | ︙ |