Update of /cvsroot/hoc/hoc/HOC/HOC
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17599/HOC/HOC
Added Files:
Selectors.hs
Log Message:
Add another way to get at a SEL:
$(sel 'fooBar) corresponds to @selector(foo:bar:)
--- NEW FILE: Selectors.hs ---
module HOC.Selectors where
import HOC.TH
import HOC.SelectorMarshaller ( SelectorInfo(..) )
sel n = [| selectorInfoSel $(varE selInfo) |]
where selInfo = infoName `fromSameModuleAs_v` n
infoName = "info_" ++ nameBase n
|
