[hoc-cvs] hoc/HOC/HOC Selectors.hs,NONE,1.1

[Wolfgang T. <wth...@us...>]

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