</para>
<programlisting>
// StartEnd.c
-#include <Rts.h>
+#include <Rts.h>
extern void __stginit_Adder(void);
// Initialize Haskell runtime
char** args = argv;
- hs_init(&argc, &args);
+ hs_init(&argc, &args);
// Tell Haskell about all root modules
hs_add_root(__stginit_Adder);
End Sub
Public Sub Test()
-MsgBox "12 + 5 = " & Adder(12, 5)
+MsgBox "12 + 5 = " & Adder(12, 5)
End Sub
</programlisting>
<para>
// Tester.cpp
#include "HsFFI.h"
#include "Adder_stub.h"
-#include <stdio.h>
+#include <stdio.h>
extern "C" {
void HsStart();
12 + 5 = 17
</screen>
+</sect3>
+
</sect2>
</sect1>