Searched refs:procedure (Results 1 - 25 of 143) sorted by relevance

123456

/macosx-10.9.5/tcl-102/tcl_ext/tcllib/tcllib/examples/tepam/
H A D1b_procedure_interactive_widgets.demo20 # 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 D1a_procedure_subcommand.demo20 # 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 D1c_procedure_interactive_aux.demo20 # 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 DProcedure.pm25 my $procedure = JSON::RPC::Procedure->new(
33 A container for JSON RPC procedure information
H A DDispatch.pm131 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 Dstooop.tcl60 {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 Dproc_namespaces.test6 # 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 Dproc_subproc.test6 # 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 Dproc_call_arg_nun.test6 # 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 Dproc_call_arg_unn.test6 # 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 DServer.pm187 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 DProcedure.pm21 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 DServer.pm187 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 DProcedure.pm21 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 DServer.pm187 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 DProcedure.pm21 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 Dchkdef.cmd110 CleanQueue: procedure
H A Dcmpdef.cmd129 CleanQueue: procedure
H A Dmakedef.cmd174 CleanQueue: procedure
/macosx-10.9.5/zlib-53/zlib/contrib/delphi/
H A DZLib.pas20 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 DMyApp.pm130 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 DMyApp.pm130 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 Dtkdnd.rb93 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 Dpackage.rb26 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 Dtryeval.test115 (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)

Completed in 206 milliseconds

123456