| /macosx-10.10.1/tcl-105/tests/ |
| H A D | pkgreq.test | 18 proc constraint {pkg} {
20 if {[regexp {^(dom::c|page::((analysis|compiler|transform)::.*|(gen::peg|writer)::(me|mecpu)|(reader|util::norm)::(peg|lemon))|xotcl::.*::(ldap|.*gdbm)|(doctools::(toc|idx)|pt::peg)::(import|export)::.*)$} $pkg]} {
24 if {[regexp {^(chatwidget|canvas::(mvg|snap)|char|configuration|controlwidget|diagram(|::.*)|gpx|huddle|yaml|imap4|json(|::.*)|JSONRPC|namespacex|ntext|paths|pt::.*|rest|S3|sqlite3|struct::graph::op|tablelist_tile|tcl::randomseed|text::write|vfs::webdav|xsxp|xyplot)$} $pkg]} {
28 if {[regexp {^(coroutine(|::auto)|menubar(|::.*)|tcl::(chan|transform)::.*)$} $pkg]} {
41 foreach pkg $pkgs {
42 tcltest::test pkgreq-$pkg "\[package require $pkg\]" \
43 -constraints [constraint $pkg] -setup {interp create i} \
44 -body {interp eval i "package require $pkg"} \
[all...] |
| /macosx-10.10.1/tcl-105/tcl_ext/tcllib/tcllib/support/devel/sak/validate/ |
| H A D | testsuites.tcl | 126 variable ip [interp create]
216 +pkg $p
251 proc ::sak::validate::testsuites::+claim {pkg} {
254 lappend claims($pkg) $current
258 proc ::sak::validate::testsuites::claimants {pkg} {
260 expr { [info exists claims($pkg)] && [llength $claims($pkg)] }
272 proc ::sak::validate::testsuites::+use {pkg} {
275 foreach fx $claims($pkg) { set used($fx) . }
276 unset claims($pkg)
[all...] |
| H A D | syntax.tcl | 141 +pkg $p
181 variable ip [interp create]
235 proc ::sak::validate::syntax::PCX/pcx_register {ip pkg} {
236 variable pcxpackage $pkg
346 proc ::sak::validate::syntax::+claim {pkg} {
349 lappend claims($pkg) $current
353 proc ::sak::validate::syntax::claimants {pkg} {
355 expr { [info exists claims($pkg)] && [llength $claims($pkg)] }
367 proc ::sak::validate::syntax::+use {pkg} {
[all...] |
| /macosx-10.10.1/tcl-105/tcl_ext/tklib/tklib/support/devel/sak/validate/ |
| H A D | testsuites.tcl | 126 variable ip [interp create]
216 +pkg $p
251 proc ::sak::validate::testsuites::+claim {pkg} {
254 lappend claims($pkg) $current
258 proc ::sak::validate::testsuites::claimants {pkg} {
260 expr { [info exists claims($pkg)] && [llength $claims($pkg)] }
272 proc ::sak::validate::testsuites::+use {pkg} {
275 foreach fx $claims($pkg) { set used($fx) . }
276 unset claims($pkg)
[all...] |
| H A D | syntax.tcl | 141 +pkg $p
181 variable ip [interp create]
235 proc ::sak::validate::syntax::PCX/pcx_register {ip pkg} {
236 variable pcxpackage $pkg
344 proc ::sak::validate::syntax::+claim {pkg} {
347 lappend claims($pkg) $current
351 proc ::sak::validate::syntax::claimants {pkg} {
353 expr { [info exists claims($pkg)] && [llength $claims($pkg)] }
365 proc ::sak::validate::syntax::+use {pkg} {
[all...] |
| /macosx-10.10.1/tcl-105/tcl_ext/tcllib/tcllib/modules/pt/ |
| H A D | pt_tclparam_config_tcloo.tcl | 17 namespace ensemble create
26 proc ::pt::tclparam::configuration::tcloo::def {class pkg cmd} {
43 @@PKG@@ $pkg \
70 oo::class create @@CLASS@@ {
|
| H A D | pt_tclparam_config_snit.tcl | 17 namespace ensemble create
26 proc ::pt::tclparam::configuration::snit::def {class pkg cmd} {
49 @@PKG@@ $pkg \
|
| H A D | pt_cparam_config_critcl.tcl | 17 namespace ensemble create
33 proc ::pt::cparam::configuration::critcl::def {class pkg cmd} {
40 # pkg = The name of generated package.
56 @@PKG@@ $pkg \
|
| /macosx-10.10.1/tcl-105/tcl_ext/tkimg/tkimg/tests/visualtests/ |
| H A D | testSmall.tcl | 6 foreach pkg $args {
7 set retVal [catch {package require $pkg} gPkg(ext,$pkg,version)]
8 set gPkg(ext,$pkg,avail) [expr !$retVal]
73 set ph [image create photo -width $w -height $h]
119 set zoomPh [image create photo -width $zw -height $zh]
|
| /macosx-10.10.1/CPANInternal-159.1/Class-C3-XS-0.13/inc/Module/ |
| H A D | Install.pm | 87 This is known to create infinite loops in make.
280 my ($file, $pkg) = @{$rv};
281 next if $self->{pathnames}{$pkg};
284 my $new = eval { require $file; $pkg->can('new') };
289 $self->{pathnames}{$pkg} = delete $INC{$file};
290 push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
307 my $pkg = "$self->{name}::$subpath";
308 $pkg =~ s!/!::!g;
321 if ( m/^\s*package\s+($pkg)\s*;/i ) {
322 $pkg
[all...] |
| /macosx-10.10.1/CPANInternal-159.1/Class-Trigger-0.14/inc/Module/ |
| H A D | Install.pm | 87 This is known to create infinite loops in make.
280 my ($file, $pkg) = @{$rv};
281 next if $self->{pathnames}{$pkg};
284 my $new = eval { require $file; $pkg->can('new') };
289 $self->{pathnames}{$pkg} = delete $INC{$file};
290 push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
307 my $pkg = "$self->{name}::$subpath";
308 $pkg =~ s!/!::!g;
321 if ( m/^\s*package\s+($pkg)\s*;/i ) {
322 $pkg
[all...] |
| /macosx-10.10.1/CPANInternal-159.1/DateTime-Format-Pg-0.16007/inc/Module/ |
| H A D | Install.pm | 99 This is known to create infinite loops in make.
304 my ($file, $pkg) = @{$rv};
305 next if $self->{pathnames}{$pkg};
308 my $new = eval { local $^W; require $file; $pkg->can('new') };
313 $self->{pathnames}{$pkg} =
315 push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
332 my $pkg = "$self->{name}::$subpath";
333 $pkg =~ s!/!::!g;
346 if ( m/^\s*package\s+($pkg)\s*;/i ) {
347 $pkg
[all...] |
| /macosx-10.10.1/CPANInternal-159.1/DateTime-Format-W3CDTF-0.06/inc/Module/ |
| H A D | Install.pm | 99 This is known to create infinite loops in make.
300 my ($file, $pkg) = @{$rv};
301 next if $self->{pathnames}{$pkg};
304 my $new = eval { local $^W; require $file; $pkg->can('new') };
309 $self->{pathnames}{$pkg} =
311 push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
328 my $pkg = "$self->{name}::$subpath";
329 $pkg =~ s!/!::!g;
342 if ( m/^\s*package\s+($pkg)\s*;/i ) {
343 $pkg
[all...] |
| /macosx-10.10.1/CPANInternal-159.1/Pod-ProjectDocs-0.40/inc/Module/ |
| H A D | Install.pm | 87 This is known to create infinite loops in make.
280 my ($file, $pkg) = @{$rv};
281 next if $self->{pathnames}{$pkg};
284 my $new = eval { require $file; $pkg->can('new') };
289 $self->{pathnames}{$pkg} = delete $INC{$file};
290 push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
307 my $pkg = "$self->{name}::$subpath";
308 $pkg =~ s!/!::!g;
321 if ( m/^\s*package\s+($pkg)\s*;/i ) {
322 $pkg
[all...] |
| /macosx-10.10.1/CPANInternal-159.1/Test-use-ok-0.11/inc/Module/ |
| H A D | Install.pm | 99 This is known to create infinite loops in make.
304 my ($file, $pkg) = @{$rv};
305 next if $self->{pathnames}{$pkg};
308 my $new = eval { local $^W; require $file; $pkg->can('new') };
313 $self->{pathnames}{$pkg} =
315 push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
332 my $pkg = "$self->{name}::$subpath";
333 $pkg =~ s!/!::!g;
346 if ( m/^\s*package\s+($pkg)\s*;/i ) {
347 $pkg
[all...] |
| /macosx-10.10.1/Heimdal-398.1.2/packages/mac/ |
| H A D | mac.sh | 39 --out ${imgdir}/Heimdal.pkg \
46 /usr/bin/hdiutil create -volname "Heimdal-${version}" -srcfolder ${imgdir} "heimdal-${version}.dmg" || exit 1
|
| /macosx-10.10.1/tcl-105/tcl/tcl/library/ |
| H A D | package.tcl | 80 # dir - Name of the directory in which to create the index.
144 # To do this, create a child interpreter, load the file into the
152 set c [interp create]
167 foreach pkg [info loaded] {
168 if {! [string match -nocase $loadPat [lindex $pkg 1]]} {
172 tclLog "package [lindex $pkg 1] matches '$loadPat'"
175 load [lindex $pkg 0] [lindex $pkg 1] $c
178 tclLog "warning: load [lindex $pkg 0] [lindex $pkg
[all...] |
| /macosx-10.10.1/tcl-105/tcl84/tcl/library/ |
| H A D | package.tcl | 16 namespace eval ::pkg {
82 # dir - Name of the directory in which to create the index.
150 # To do this, create a child interpreter, load the file into the
163 set c [interp create]
178 foreach pkg [info loaded] {
179 if {! [string match -nocase $loadPat [lindex $pkg 1]]} {
183 tclLog "package [lindex $pkg 1] matches '$loadPat'"
186 load [lindex $pkg 0] [lindex $pkg 1] $c
189 tclLog "warning: load [lindex $pkg
[all...] |
| /macosx-10.10.1/cups-408/cups/tools/ |
| H A D | testosx | 31 pkgdir="/tmp/cups.pkg-$user"
119 rm -rf cups.pkg
120 echo $PackageMaker -build -v -p cups.pkg \
125 $PackageMaker -build -v -p cups.pkg \
133 hdiutil create -ov -srcfolder cups.pkg cups-$version.dmg
|
| /macosx-10.10.1/ruby-106/ruby/ext/tk/lib/tkextlib/tile/ |
| H A D | style.rb | 47 if [string equal [lrange $args 0 1] {element create}] {
52 # return [eval [concat [list ::style element create [lindex $args 2] image [lindex $spec 0] -map $map] [lrange $args 5 end]]]
53 return [uplevel 1 [list ::style element create [lindex $args 2] image [lindex $spec 0] -map $map] [lrange $args 5 end]]
75 if [string equal [lrange $args 0 1] {element create}] {
80 # return [eval [concat [list ::style element create [lindex $args 2] image [lindex $spec 0] -map $map] [lrange $args 5 end]]]
81 return [uplevel 1 [list ::style element create [lindex $args 2] image [lindex $spec 0] -map $map] [lrange $args 5 end]]]
108 if [string equal [lrange $args 0 1] {element create}] {
114 # return [eval [concat [list ::ttk::style element create [lindex $args 2] image [concat $name [lindex $opts [expr $idx + 1]]]] [lreplace $opts $idx [expr $idx + 1]]]]
115 return [uplevel 1 [list ::ttk::style element create [lindex $args 2] image [concat $name [lindex $opts [expr $idx + 1]]]] [lreplace $opts $idx [expr $idx + 1]]]
133 foreach pkg [lsearc
[all...] |
| /macosx-10.10.1/tcl-105/tcl_ext/tcllib/tcllib/modules/doctools/ |
| H A D | docidx.tcl | 129 return -code error "command \"$name\" already exists, unable to create docidx object"
559 set mpip [interp create -safe] ; # interpreter for the formatting engine
560 #set mpip [interp create] ; # interpreter for the formatting engine
666 set chk_ip [interp create] ; # interpreter hosting the formal format checker
912 proc ::doctools::idx::Package {ip pkg} {
913 #puts stderr "$ip package require $pkg"
915 set indexScript [Locate $pkg]
|
| H A D | doctoc.tcl | 129 return -code error "command \"$name\" already exists, unable to create doctoc object"
559 set mpip [interp create -safe] ; # interpreter for the formatting engine
560 #set mpip [interp create] ; # interpreter for the formatting engine
666 set chk_ip [interp create] ; # interpreter hosting the formal format checker
918 proc ::doctools::toc::Package {ip pkg} {
919 #puts stderr "$ip package require $pkg"
921 set indexScript [Locate $pkg]
|
| /macosx-10.10.1/tcl-105/tcl_ext/tcllib/tcllib/ |
| H A D | sak.tcl | 94 eval $guide($m,pkg) $m __dummy__
325 set ip [interp create]
606 # Multiple packages (*). We create one hidden package to
653 # it as well. Otherwise we are in the multi-pkg branch.
1260 set box [interp create]
1509 pkg-compare $oldplist
1527 pkg-compare [location_PACKAGES]
1531 proc pkg-compare {oldplist} {
1773 proc critcl_module {pkg {extra ""}} {
1775 if {$pkg
[all...] |
| /macosx-10.10.1/tcl-105/tcl_ext/tklib/tklib/ |
| H A D | sak.tcl | 94 eval $guide($m,pkg) $m __dummy__
325 set ip [interp create]
606 # Multiple packages (*). We create one hidden package to
653 # it as well. Otherwise we are in the multi-pkg branch.
1260 set box [interp create]
1509 pkg-compare $oldplist
1527 pkg-compare [location_PACKAGES]
1531 proc pkg-compare {oldplist} {
1773 proc critcl_module {pkg {extra ""}} {
1775 if {$pkg
[all...] |
| /macosx-10.10.1/tcl-105/tcl_ext/thread/thread/lib/ |
| H A D | ttrace.tcl | 54 variable elock [$mutex create traceepochmutex]
66 variable elock [$mutex create]
480 # The code below will create traces for the following Tcl commands:
491 # Register the "load" trace. This will create the following key/value pair
509 foreach pkg [info loaded] {
510 if {[lindex $pkg 0] == $image} {
511 set initp [lindex $pkg 1]
528 # Register the "namespace" trace. This will create the following key/value
604 # Register the "variable" trace. This will create the following key/value
655 # Register the "rename" trace. It will create th
[all...] |