bugfix: 'final' not passed to generic

This commit is contained in:
Araq 2011-07-29 01:25:05 +02:00
commit dce8949b9b
10 changed files with 68 additions and 80 deletions

View file

@ -15,7 +15,7 @@ type
TA[T] = object
# Cannot instanciate:
# Cannot instantiate:
type
TA[T] = object
a: PA[T]

View file

@ -1,23 +1,24 @@
import tables
import lists
type
TEventArgs = object of TObject
TEventArgs = object of TObject
type
TEventEmitter = object of TObject
events*: TTable[string, TDoublyLinkedList[proc(e : TEventArgs)]]
proc on*(emitter : var TEventEmitter, event : string, func : proc(e : TEventArgs)) =
if hasKey(emitter.events, event) == false:
var list: TDoublyLinkedList[proc(e : TEventArgs)]
add(emitter.events,event,list) #if not, add it.
append(emitter.events[event], func) #adds the function to the event's list. I get a error here too.
TEventEmitter = object of TObject
events*: TTable[string, TDoublyLinkedList[proc(e : TEventArgs)]]
proc on*(emitter: var TEventEmitter, event: string, func: proc(e: TEventArgs)) =
if not hasKey(emitter.events, event):
var list: TDoublyLinkedList[proc(e: TEventArgs)]
add(emitter.events,event,list) #if not, add it.
#append(emitter.events[event], func)
#adds the function to the event's list. I get a error here too.
proc emit*(emitter : TEventEmitter, event : string, args : TEventArgs) =
for func in items(emitter.events[event]):
func(args) #call function with args.
proc initEmitter(emitter : TEventEmitter) =
emitter.events = initTable[string, TSinglyLinkedList[TObject]]()
proc emit*(emitter: TEventEmitter, event: string, args: TEventArgs) =
for func in nodes(emitter.events[event]):
func.value(args) #call function with args.
proc initEmitter(emitter: TEventEmitter) =
emitter.events = initTable[string, TDoublyLinkedList[proc(e: TEventArgs)]]()
var ee : TEventEmitter
ee.on("print", proc(e : TEventArgs) = echo("pie"))
var ee: TEventEmitter
ee.on("print", proc(e: TEventArgs) = echo("pie"))
ee.emit("print")

View file

@ -1,5 +1,5 @@
discard """
file: "tvarres1.nim"
file: "tvarres2.nim"
line: 11
errormsg: "expression has no address"
"""