Lines Matching defs:method
43 method def {name {cp {}}} {} ; # Define a DSL command.
44 method def/ {name arity {cp {}}} {} ; # Ditto, with explicit arity.
45 method defl {names} {} ; # Def many, simple names (cp = name)
46 method defd {dict} {} ; # s.a. name/cp dict
47 method deflva {args} {} ; # s.a. defl, var arg form
48 method defdva {args} {} ; # s.a. defd, var arg form
50 method undefva {args} {} ; # Remove DSL commands from the map.
51 method undefl {names} {} ; # Ditto, names given as list.
54 method runl {alist} {} ; # execute list of words
55 method run {args} {} ; # ditto, words as varargs
56 method run_next {} {} ; # run the next command in the input.
57 method run_next_while {accept} {} ; # s.a., while acceptable command
58 method run_next_until {reject} {} ; # s.a., until rejectable command
59 method run_next_if {accept} {} ; # s.a., if acceptable command
60 method run_next_ifnot {reject} {} ; # s.a., if not rejectable command
63 method peek {} {} ; # peek at next word in input
64 method next {} {} ; # pull next word from input
65 method insert {at args} {} ; # insert words back into the input
66 method push {args} {} ; # ditto, at == 0
81 method Definitions {alist} {
135 variable cmd -array {} ; # array (command name -> method cmd prefix)
140 ## DSL words map to method-prefixes, i.e. method names + fixed
145 method def {name {mp {}}} {
147 # Derive method-prefix from DSL word.
153 # No need to check for an empty method-prefix. That cannot
160 # Get method arguments, check for problems.
168 # method-prefix.
175 method def/ {name ay {mp {}}} {
182 # Derive method-prefix from DSL word.
187 # No need to check for an empty method-prefix. That cannot
200 method deflva {args} { $self defl $args ; return }
201 method defdva {args} { $self defd $args ; return }
202 method defl {names} { foreach n $names { $self def $n } ; return }
203 method defd {dict} {
213 method undefva {args} { $self undefl $args ; return }
214 method undefl {names} {
228 method run {args} {
232 method runl {alist} {
246 method run_next_while {accept} {
254 method run_next_until {reject} {
262 method run_next_if {accept} {
270 method run_next_ifnot {reject} {
278 method run_next {} {
310 # responsible for reading them from input via the method
330 method next {} {
337 method peek {} {
342 method peekall {} {
347 method replace {args} {
351 method replacel {alist} {
357 method insert {at args} {
361 method insertl {at alist} {
367 method push {args} {
371 method pushl {alist} {
377 method add {args} {
381 method addl {alist} {
388 method unknown {cmdprefix} {
393 method ErrorForUnknown {word} {
405 # Macro to declare the method of a component as proc. We use this
412 snit::macro wip::methodasproc {var method suffix} {
413 proc $method$suffix {args} [string map [list @v@ $var @m@ $method] {
426 # WIP. The only thing left is to call the method 'wip_setup' in the
436 # Standard method to create the processor component. The user has
437 # to manually add a call of this method to the constructor.
439 method wip${suffix}_setup {} [string map [list @@ $suffix] {