/macosx-10.9.5/CPANInternal-140/Variable-Magic/t/ |
H A D | 30-scalar.t | 24 watch { cast $a, $wiz } { }, 'cast'; 28 watch { $b = $a } { get => 1 }, 'assign to'; 31 $b = watch { "X${a}Y" } { get => 1 }, 'interpolate'; 34 $b = watch { \$a } { }, 'reference'; 36 watch { $a = 123; () } { set => 1 }, 'assign to'; 38 watch { ++$a; () } { get => 1, set => 1 }, 'increment'; 40 watch { --$a; () } { get => 1, set => 1 }, 'decrement'; 42 watch { $a *= 1.5; () } { get => 1, set => 1 }, 'multiply in place'; 44 watch { $a /= 1.5; () } { get => 1, set => 1 }, 'divide in place'; 46 watch { [all...] |
H A D | 31-array.t | 20 watch { cast @a, $wiz } { }, 'cast'; 22 my $b = watch { $a[2] } { }, 'assign element to'; 25 my @b = watch { @a } { len => 1 }, 'assign to'; 28 $b = watch { "X@{a}Y" } { len => 1 }, 'interpolate'; 31 $b = watch { \@a } { }, 'reference'; 33 @b = watch { @a[2 .. 4] } { }, 'slice'; 36 watch { @a = qw/a b d/ } { set => 3, clear => 1 }, 'assign'; 38 watch { $a[2] = 'c' } { }, 'assign old element'; 40 watch { $a[4] = 'd' } { set => 1 }, 'assign new element'; 42 $b = watch { exist [all...] |
H A D | 24-free.t | 17 watch { 19 watch { cast $a, $wiz } { }, 'cast'; 23 watch { cast $a, $wiz } { }, 'cast 2'; 24 watch { undef $a } { }, 'explicit deletion with undef()';
|
H A D | 32-hash.t | 20 watch { cast %h, $wiz } { }, 'cast'; 22 my $s = watch { $h{foo} } +{ (fetch => 1) x VMG_UVAR }, 27 $s = watch { exists $h{foo} } +{ (exists => 1) x VMG_UVAR }, "exists ($_)"; 32 watch { %b = %h } { }, 'assign to'; 35 $s = watch { \%h } { }, 'reference'; 37 my @b = watch { @h{qw/bar qux/} } 41 watch { %h = () } { clear => 1 }, 'empty in list context'; 43 watch { %h = (a => 1, d => 3); () } 47 watch { %h = map { $_ => 1 } qw/a b d/; } 51 watch { [all...] |
H A D | 25-copy.t | 31 my $res = watch { cast @a, $wiz } { }, 'cast on tied array'; 34 watch { $a[3] = 13 } { copy => 1 }, 'tied array store'; 36 my $s = watch { $a[3] } { copy => 1 }, 'tied array fetch'; 39 $s = watch { exists $a[3] } { copy => 1 }, 'tied array exists'; 42 watch { undef @a } { }, 'tied array undef'; 65 my $res = watch { cast %h, $wiz } { }, 'cast on tied hash'; 68 watch { $h{b} = 7 } { copy => 1 }, 'tied hash store'; 70 my $s = watch { $h{c} } { copy => 1 }, 'tied hash fetch'; 73 $s = watch { exists $h{a} } { copy => 1 }, 'tied hash exists'; 76 $s = watch { delet [all...] |
H A D | 34-glob.t | 29 watch { cast *a, $wiz } +{ }, 'cast'; 31 watch { local *b = *a } +{ %get }, 'assign to'; 33 watch { *a = gensym() } +{ %get, set => 1 }, 'assign'; 35 watch { 37 watch { cast *b, $wiz } +{ }, 'cast 2'; 40 watch { undef *a } +{ %get }, 'undef'; 42 watch { dispell *a, $wiz } +{ %get }, 'dispell';
|
H A D | 21-set.t | 18 watch { cast $a, $wiz } { }, 'cast'; 22 watch { $a = $n } { set => 1 }, 'assign'; 25 watch { ++$a } { set => 1 }, 'increment'; 28 watch { --$a } { set => 1 }, 'decrement';
|
H A D | 23-clear.t | 18 watch { cast @a, $wiz } { }, 'cast array'; 20 watch { @a = () } { clear => 1 }, 'clear array'; 25 watch { cast %h, $wiz } { }, 'cast hash'; 27 watch { %h = () } { clear => 1 }, 'clear hash';
|
H A D | 27-local.t | 23 my $res = watch { cast $a, $wiz } { }, 'cast'; 26 watch { local $a } { local => 1 }, 'localized';
|
H A D | 20-get.t | 19 watch { cast $a, $wiz } { }, 'cast'; 23 watch { $b = $a } { get => 1 }, 'assign to'; 26 $b = watch { "X${a}Y" } { get => 1 }, 'interpolate';
|
H A D | 28-uvar.t | 24 my $res = watch { cast %h, $wiz } { }, 'cast'; 27 my $x = watch { $h{a} } { fetch => 1 }, 'fetch directly'; 30 $x = watch { "$h{b}" } { fetch => 1 }, 'fetch by interpolation'; 33 watch { $h{c} = 4 } { store => 1 }, 'store directly'; 35 $x = watch { $h{c} = 5 } { store => 1 }, 'fetch and store'; 38 $x = watch { exists $h{c} } { exists => 1 }, 'exists'; 41 $x = watch { delete $h{c} } { delete => 1 }, 'delete existing key'; 44 $x = watch { delete $h{z} } { delete => 1 }, 'delete non-existing key'; 50 $x = watch { $h{a} } { fetch => 1 }, 'fetch directly with also non uvar magic'; 61 $res = watch { cas [all...] |
H A D | 16-huf.t | 36 my ($res) = watch { cast %h, $wiz } { }, 'cast uvar magic on fieldhash'; 39 my ($s) = watch { $h{$obj} } { fetch => 1 }, 'fetch on magical fieldhash'; 42 watch { $h{$obj} = 7 } { store => 1 }, 'store on magical fieldhash'; 45 ($res) = watch { dispell %h, $wiz } { }, 'dispell uvar magic on fieldhash';
|
H A D | 33-code.t | 20 watch { cast &hlagh, $wiz } { }, 'cast'; 23 watch { hlagh() } { }, 'call without arguments'; 26 watch { hlagh(1, 2, 3) } { }, 'call with arguments'; 29 watch { undef *hlagh } { free => 1 }, 'undef symbol table entry'; 33 watch { *hlagh = sub { ++$y } } { }, 'redefining sub'; 35 watch { cast &hlagh, $wiz } { }, 're-cast'; 38 my ($r) = watch { \&hlagh } { }, 'reference'; 41 watch { $r->() } { }, 'call reference'; 46 watch { 51 watch { hlag [all...] |
/macosx-10.9.5/CPANInternal-140/Log-Log4perl-1.40/eg/benchmarks/ |
H A D | simple | 17 print "sp=suppressed w=watch sc=subcategory\n\n"; 19 for my $watch (0, 1) { 20 test_init({ level => "DEBUG", watch => $watch }); 21 run("sp0 sc0 w$watch", \&debug_logger); 23 test_init({ level => "ERROR", watch => $watch }); 24 run("sp1 sc0 w$watch", \&debug_logger); 26 test_init({ level => "DEBUG", watch => $watch }); [all...] |
/macosx-10.9.5/postfix-252/Postfix.StartupItem/ |
H A D | Postfix | 11 /usr/sbin/postfix-watch 19 killall -1 postfix-watch 2> /dev/null
|
/macosx-10.9.5/tcl-102/tcl_ext/incrtcl/iwidgets/generic/ |
H A D | watch.itk | 79 method watch {args} 108 proc ::iwidgets::watch {pathName args} { 194 watch create oval 0 0 2 2 -width 5 -tags clock 198 # inner perimeter of the watch. 204 watch create arc 0 0 0 0 \ 213 # of the watch. Add bindings to allow the mouse to move and set the 216 watch create arc 1 1 1 1 -extent 30 -tags minute 217 watch create arc 1 1 1 1 -extent 30 -tags hour 218 watch create arc 1 1 1 1 -tags second 221 # Create the canvas item for displaying the center of the watch i [all...] |
H A D | timeentry.itk | 5 # by combining the timefield and watch widgets together. This 7 # mouse by selecting the watch icon which brings up a popup clock. 58 # The watch widget isn't created until needed, yet we need 61 # propagated onto the watch later. 112 # watch popup. 155 # bringing up the popup watch. The default is global. 264 # creates a watch widget within a toplevel popup, calculates 265 # the position at which to display the watch, performs a grab 266 # and displays the watch. 294 # Create the watch widge [all...] |
/macosx-10.9.5/configd-596.15/scutil.tproj/ |
H A D | nc.h | 44 void do_nc_cmd(char *cmd, int argc, char **argv, Boolean watch);
|
/macosx-10.9.5/tcl-102/tcl_ext/expect/expect/example/ |
H A D | tknewsbiff | 123 watch * 128 proc watch {args} { 298 foreach watch $watch_list { 303 set ngpat [lindex $watch 0] 304 set watch [lrange $watch 1 end] 306 while {[llength $watch] > 0} { 307 switch -- [lindex $watch 0] \ 309 set threshold [lindex $watch 1] 310 set watch [lrang [all...] |
/macosx-10.9.5/tcl-102/tcl_ext/tclvfs/tclvfs/library/ |
H A D | vfslib.tcl | 58 set watch {} 61 return {initialize finalize watch read write seek cget cgetall} 116 watch { 120 upvar #0 ::vfs::_memchan(watch,$event) watch 121 if {![info exists watch]} { set watch {} } 122 set ndx [lsearch -exact $watch $chan] 124 if {$ndx == -1} { lappend watch $chan } 127 set watch [lreplac [all...] |
/macosx-10.9.5/CPANInternal-140/Variable-Magic/t/lib/Variable/Magic/ |
H A D | TestWatcher.pm | 13 our @EXPORT = qw/init_watcher watch/; 40 sub watch (&;$$) { subroutine
|
/macosx-10.9.5/tcl-102/tcl_ext/tcllib/tcllib/modules/virtchannel_core/ |
H A D | core.tcl | 47 initialize finalize watch read write seek configure cget
|
/macosx-10.9.5/ruby-104/ruby/ext/tk/lib/tkextlib/iwidgets/ |
H A D | watch.rb | 2 # tkextlib/iwidgets/watch.rb 17 TkCommandNames = ['::iwidgets::watch'.freeze].freeze 50 def watch(*args) method in class:Tk 52 tk_call(@path, 'watch', *args)
|
/macosx-10.9.5/DiskArbitration-266/DiskArbitration/ |
H A D | DiskArbitration.c | 55 CFMutableArrayRef watch; local 114 * Create the disk watch description for volume name changes. 117 watch = CFArrayCreateMutable( kCFAllocatorDefault, 0, &kCFTypeArrayCallBacks ); 119 assert( watch ); 121 CFArrayAppendValue( watch, kDADiskDescriptionVolumeNameKey ); 123 kDADiskDescriptionWatchVolumeName = watch; 126 * Create the disk watch description for volume path changes. 129 watch = CFArrayCreateMutable( kCFAllocatorDefault, 0, &kCFTypeArrayCallBacks ); 131 assert( watch ); 133 CFArrayAppendValue( watch, kDADiskDescriptionVolumePathKe 788 DARegisterDiskDescriptionChangedCallback( DASessionRef session, CFDictionaryRef match, CFArrayRef watch, DADiskDescriptionChangedCallback callback, void * context ) argument [all...] |
/macosx-10.9.5/DiskArbitration-266/diskarbitrationd/ |
H A D | DACallback.c | 33 CFArrayRef watch ) 49 if ( watch ) CFDictionarySetValue( callback, _kDACallbackWatchKey, watch );
|