/macosx-10.9.5/tcl-102/tcl_ext/tcllib/tcllib/examples/tepam/ |
H A D | 1b_procedure_interactive_widgets.demo | 20 # This demo shows how the interactive procedure calls open the argument entry form 25 namespace import -force tepam::*; # Import tepam::procedure and tepam::argument_dialogbox 36 procedure entry_example { 56 procedure checkbox_example { 77 procedure radiobox_example { 97 procedure checkbutton_example { 116 procedure listbox_example { 137 procedure listbox_example { 158 procedure file_example { 161 -description "This procedure allow [all...] |
H A D | 1a_procedure_subcommand.demo | 20 # This demo shows how how procedure sub commands can be created and called 25 namespace import -force tepam::*; # Import tepam::procedure and tepam::argument_dialogbox 31 # This section declares a main procedure, a sub command for this procedure, 33 # of the main procedure). 35 procedure {my_procedure} { 43 procedure {my_procedure sub1} { 51 procedure {my_procedure sub2 sub21} { 63 # Calling the main procedure with the -help switch displays a help description 64 # for the procedure an [all...] |
H A D | 1c_procedure_interactive_aux.demo | 20 # This demo shows two features for interactive procedure calls. 28 namespace import -force tepam::*; # Import tepam::procedure and tepam::argument_dialogbox 34 # In case a procedure is called interactively, additional argument attributes can be provided 37 # For example, if a procedure takes as argument a file name it may be beneficial to specify for 41 procedure copy { 44 -description "This procedure allows copying a file." 59 # Commenting the declared procedure arguments correctly will allows the interactive 68 procedure path_search {
|
/macosx-10.9.5/CPANInternal-140/JSON-RPC-1.03/lib/JSON/RPC/ |
H A D | Procedure.pm | 25 my $procedure = JSON::RPC::Procedure->new( 33 A container for JSON RPC procedure information
|
H A D | Dispatch.pm | 131 foreach my $procedure (@$procedures) { 132 if ( ! $procedure->{method} ) { 146 my $matched = $router->match( $procedure->{method} ); 148 my $message = "Procedure '$procedure->{method}' not found"; 165 warn "Procedure '$procedure->{method}' maps to action $action"; 169 my $params = $procedure->params; 179 my $result = $code->( $handler, $procedure->params, $procedure, @args ); 192 id => $procedure->id, 208 id => $procedure [all...] |
/macosx-10.9.5/tcl-102/tcl_ext/tcllib/tcllib/modules/stooop/ |
H A D | stooop.tcl | 60 {class: %C, procedure: %p, object: %O, arguments: %a} 75 set trace(dataFormat) {class: %C, procedure: %p, array: %A, object: %O, member: %m, operation: %o, value: %v} 189 # if procedure is a member of a known class, class and procedure names are set 195 # procedure is defined 197 upvar 1 $fullClassVariable fullClass $procedureVariable procedure\ 204 # a member procedure is being defined inside a class namespace 206 set procedure $name ;# member procedure name is full name 209 # procedure i [all...] |
/macosx-10.9.5/tcl-102/tcl_ext/tcllib/tcllib/modules/tepam/ |
H A D | proc_namespaces.test | 6 # This file is part of the enhanced procedure and argument manager's regression 7 # test. It validates the declaration and call of the procedure sub commands. 39 test tepam-ns.main1.dcl.main "tepam, main namespace - parent procedure declaration" \ 40 -body {tepam::procedure Parent1 {} {return Parent1-[Child]}} \ 43 test tepam-ns.main1.dcl.chld "tepam, main namespace - child procedure declaration" \ 44 -body {tepam::procedure Child {} {return Child}} \ 48 test tepam-ns.main1.exe1 "tepam, main namespace - parent procedure execution" \ 52 test tepam-ns.main1.exe2 "tepam, main namespace - parent procedure execution" \ 59 test tepam-ns.main2.dcl.main "tepam, main namespace - parent procedure declaration" \ 60 -body {tepam::procedure [all...] |
H A D | proc_subproc.test | 6 # This file is part of the enhanced procedure and argument manager's regression 7 # test. It validates the declaration and call of the procedure sub commands. 29 ######## Main procedure and sub procedures, top-down declaration ######## 32 test tepam-sp.dcl_td.dcl.1 "tepam, sub procedure top-down declaration - main procedure declaration" \ 33 -body {tepam::procedure {MainProc1} {} {return Proc1}} \ 36 test tepam-sp.dcl_td.dcl.2 "tepam, sub procedure top-down declaration - first sub procedure declaration" \ 37 -body {tepam::procedure {MainProc1 SubProc1} {} {return Proc11}} \ 40 test tepam-sp.dcl_td.dcl.3 "tepam, sub procedure to [all...] |
H A D | proc_call_arg_nun.test | 6 # This file is part of the enhanced procedure and argument manager's regression 62 tepam::procedure Procedure_Arg_0a {-args {}} {return ""} 63 tepam::procedure Procedure_Arg_0b {} {return ""} 88 tepam::procedure Procedure_Arg_1 { 133 tepam::procedure Procedure_Arg_2b { 160 tepam::procedure Procedure_Arg_2 { 191 tepam::procedure Procedure_Arg_2a { 222 tepam::procedure Procedure_Arg_2d { 261 tepam::procedure Procedure_Arg_2e { 300 tepam::procedure Procedure_Arg_2 [all...] |
H A D | proc_call_arg_unn.test | 6 # This file is part of the enhanced procedure and argument manager's regression 60 tepam::procedure Procedure_Arg_0a {-args {}} {return ""} 61 tepam::procedure Procedure_Arg_0b {} {return ""} 83 tepam::procedure Procedure_Arg_1 { 128 tepam::procedure Procedure_Arg_2b { 155 tepam::procedure Procedure_Arg_2 { 186 tepam::procedure Procedure_Arg_2a { 217 tepam::procedure Procedure_Arg_2d { 256 tepam::procedure Procedure_Arg_2e { 295 tepam::procedure Procedure_Arg_2 [all...] |
/macosx-10.9.5/CPANInternal-140/JSON-RPC/lib/JSON/RPC/ |
H A D | Server.pm | 187 my $procedure = $self->_find_procedure($method); 189 unless ($procedure) { 201 unless ($params = $self->_argument_type_check($procedure->{argument_type}, $obj->{params})) { 208 $result = ref $params ? eval q| $procedure->{code}->($self, $params) | 209 : eval q| $procedure->{code}->($self) | 220 $result = eval q| $procedure->{code}->($self, @params) |; 316 if ( my $procedure = JSON::RPC::Procedure::check($pkg, $code) ) { 317 return if ($procedure->{return_type} and $procedure->{return_type} eq 'Private'); 318 $procedure [all...] |
H A D | Procedure.pm | 21 my $procedure = $Procedure->{$pkg}{$code} || { return_type => undef, argument_type => undef }; 24 return_type => $procedure->{return_type}, 25 argument_type => $procedure->{argument_type}, 143 Means that a client can call this procedure. 147 Means that a client can't call this procedure.
|
/macosx-10.9.5/CPANInternal-140/JSON-RPC-0.96/lib/JSON/RPC/ |
H A D | Server.pm | 187 my $procedure = $self->_find_procedure($method); 189 unless ($procedure) { 201 unless ($params = $self->_argument_type_check($procedure->{argument_type}, $obj->{params})) { 208 $result = ref $params ? eval q| $procedure->{code}->($self, $params) | 209 : eval q| $procedure->{code}->($self) | 220 $result = eval q| $procedure->{code}->($self, @params) |; 316 if ( my $procedure = JSON::RPC::Procedure::check($pkg, $code) ) { 317 return if ($procedure->{return_type} and $procedure->{return_type} eq 'Private'); 318 $procedure [all...] |
H A D | Procedure.pm | 21 my $procedure = $Procedure->{$pkg}{$code} || { return_type => undef, argument_type => undef }; 24 return_type => $procedure->{return_type}, 25 argument_type => $procedure->{argument_type}, 143 Means that a client can call this procedure. 147 Means that a client can't call this procedure.
|
/macosx-10.9.5/CPANInternal-140/JSON-RPC-1.03/lib/JSON/RPC/Legacy/ |
H A D | Server.pm | 187 my $procedure = $self->_find_procedure($method); 189 unless ($procedure) { 201 unless ($params = $self->_argument_type_check($procedure->{argument_type}, $obj->{params})) { 208 $result = ref $params ? eval q| $procedure->{code}->($self, $params) | 209 : eval q| $procedure->{code}->($self) | 220 $result = eval q| $procedure->{code}->($self, @params) |; 316 if ( my $procedure = JSON::RPC::Legacy::Procedure::check($pkg, $code) ) { 317 return if ($procedure->{return_type} and $procedure->{return_type} eq 'Private'); 318 $procedure [all...] |
H A D | Procedure.pm | 21 my $procedure = $Procedure->{$pkg}{$code} || { return_type => undef, argument_type => undef }; 24 return_type => $procedure->{return_type}, 25 argument_type => $procedure->{argument_type}, 143 Means that a client can call this procedure. 147 Means that a client can't call this procedure.
|
/macosx-10.9.5/ncurses-42/ncurses/misc/ |
H A D | chkdef.cmd | 110 CleanQueue: procedure
|
H A D | cmpdef.cmd | 129 CleanQueue: procedure
|
H A D | makedef.cmd | 174 CleanQueue: procedure
|
/macosx-10.9.5/zlib-53/zlib/contrib/delphi/ |
H A D | ZLib.pas | 20 TFree = procedure (AppData, Block: Pointer); cdecl; 53 procedure Progress(Sender: TObject); dynamic; 133 procedure CompressBuf(const InBuf: Pointer; InBytes: Integer; 143 procedure DecompressBuf(const InBuf: Pointer; InBytes: Integer; 151 procedure DecompressToUserBuf(const InBuf: Pointer; InBytes: Integer; 212 procedure adler32; external; 213 procedure compressBound; external; 214 procedure crc32; external; 215 procedure deflateInit2_; external; 216 procedure deflateParam [all...] |
/macosx-10.9.5/CPANInternal-140/JSON-RPC/ex/ |
H A D | MyApp.pm | 130 This is a private procedure, so client can't call this. 137 This is a reserved procedure returns a C<Service Description> object. 147 returns a hash reference contains procedure names and its code reference.
|
/macosx-10.9.5/CPANInternal-140/JSON-RPC-0.96/ex/ |
H A D | MyApp.pm | 130 This is a private procedure, so client can't call this. 137 This is a reserved procedure returns a C<Service Description> object. 147 returns a hash reference contains procedure names and its code reference.
|
/macosx-10.9.5/ruby-104/ruby/ext/tk/lib/tkextlib/tkDND/ |
H A D | tkdnd.rb | 93 procedure(tk_call('dnd', 'bindtarget', @path, type, event)) 95 procedure(tk_call('dnd', 'bindtarget', @path, type)) 143 procedure(tk_call('dnd', 'bindsource', @path, type))
|
/macosx-10.9.5/ruby-104/ruby/ext/tk/lib/tk/ |
H A D | package.rb | 26 procedure(tk_call('package', 'ifneeded', pkg, ver)) 103 procedure(tk_call('package', 'unknown'))
|
/macosx-10.9.5/tcl-102/tcl_ext/tclx/tclx/tests/ |
H A D | tryeval.test | 115 (procedure "test_try_eval" line 2) 132 (procedure "test_try_eval" line 2) 153 (procedure "test_try_eval" line 2) 173 (procedure "test_try_eval" line 2)
|