Update of /cvsroot/hoc/hoc/HOC
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12043/HOC
Modified Files:
HOC.conf.in HOC.hs
Log Message:
A monster commit, brought to you by the Greater Toronto Airport Authority
and Czech Airlines.
HOC now supports:
* Marshalling of exceptions
NSExceptions get marshalled into Haskell exceptions that can be caught
using Foundation.NSException.catchNS.
Haskell exceptions get wrapped in a (private) subclass of NSException
and marshalled back if they re-enter Haskell land.
* importing of extern constants
$(declareExternConst "NSDeviceRGBColorSpace" [t| NSString () |])
* importing of global functions (e.g. NSRectFill) using HOC marshalling:
$(declareExternFun "NSRectFill" [t| NSRect -> IO () |])
* ifgen generates constant & function declarations automatically from
Foundation and AppKit headers.
Index: HOC.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/HOC/HOC.hs,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- HOC.hs 30 Jul 2005 02:41:53 -0000 1.11
+++ HOC.hs 27 Sep 2005 11:55:22 -0000 1.12
@@ -41,6 +41,9 @@
declareCEnum,
declareAnonymousCEnum,
+ declareExternConst,
+ declareExternFun,
+
-- debugging & statistics:
objectMapStatistics
@@ -61,3 +64,5 @@
import HOC.NewlyAllocated
import HOC.Super
import HOC.CEnum
+import HOC.ExternConstants
+import HOC.ExternFunctions
Index: HOC.conf.in
===================================================================
RCS file: /cvsroot/hoc/hoc/HOC/HOC.conf.in,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- HOC.conf.in 29 Jul 2005 03:39:43 -0000 1.3
+++ HOC.conf.in 27 Sep 2005 11:55:22 -0000 1.4
@@ -23,7 +23,11 @@
HOC.NewClass,
HOC.Super,
HOC.CEnum,
- HOC.NameCaseChange
+ HOC.NameCaseChange,
+ HOC.Dyld,
+ HOC.ExternConstants,
+ HOC.Exception,
+ HOC.ExternFunctions
hs-libraries: "HOC", "HOC_cbits"
depends: base, template-haskell
|
