started taking ffi out of the main vm, putting it to a separate module

moo/kernel/FFI.moo

@@ -0,0 +1,69 @@
+class FFI(Object)
+{
+	dcl name handle funcs.
+
+	method(#class) new: aString
+	{
+		^self new open: aString.
+	}
+
+	method open: aString
+	{
+		self.funcs := Dictionary new.
+		self.name := aString.
+
+		self.handle := self privateOpen: self.name.
+
+		"[ self.handle := self privateOpen: self.name ] 
+			on: Exception do: [
+			]
+			on: XException do: [
+			]."
+
+		^self.
+	}
+
+	method close
+	{
+		self privateClose: self.handle.
+		self.handle := nil.
+	}
+
+	method call: aFunctionName withSig: aString withArgs: anArray
+	{
+		| f |
+
+	##	f := self.funcs at: aFunctionName.
+	##	f isNil ifTrue: [
+	##		f := self privateGetSymbol: aFunctionName in: self.handle.
+	##		f isNil ifTrue: [ self error: 'No such function' ].
+	##		self.funcs at: aFunctionName put: f.
+	##	].
+f := self privateGetSymbol: aFunctionName in: self.handle.
+f isNil ifTrue: [ self error: 'No such function' ].
+
+		^self privateCall: f withSig: aString withArgs: anArray
+	}
+
+	method privateOpen: aString
+	{
+		<primitive: #_ffi_open>
+		^nil. ## TODO: Error signal: 'can not open'
+	}
+
+	method privateClose: aHandle
+	{
+		<primitive: #_ffi_close>
+	}
+
+	method privateCall: aSymbol withSig: aString withArgs: anArray
+	{
+		<primitive: #_ffi_call>
+	}
+
+	method privateGetSymbol: aString in: aHandle
+	{
+		<primitive: #_ffi_getsym>
+		^nil.
+	}
+}

moo/kernel/Moo.moo

@@ -9,77 +9,6 @@
 
 (* -------------------------------------------------------------------------- *)
 
-class FFI(Object)
-{
-	dcl name handle funcs.
-
-	method(#class) new: aString
-	{
-		^self new open: aString.
-	}
-
-	method open: aString
-	{
-		self.funcs := Dictionary new.
-		self.name := aString.
-
-		self.handle := self privateOpen: self.name.
-
-		"[ self.handle := self privateOpen: self.name ] 
-			on: Exception do: [
-			]
-			on: XException do: [
-			]."
-
-		^self.
-	}
-
-	method close
-	{
-		self privateClose: self.handle.
-		self.handle := nil.
-	}
-
-	method call: aFunctionName withSig: aString withArgs: anArray
-	{
-		| f |
-
-	##	f := self.funcs at: aFunctionName.
-	##	f isNil ifTrue: [
-	##		f := self privateGetSymbol: aFunctionName in: self.handle.
-	##		f isNil ifTrue: [ self error: 'No such function' ].
-	##		self.funcs at: aFunctionName put: f.
-	##	].
-f := self privateGetSymbol: aFunctionName in: self.handle.
-f isNil ifTrue: [ self error: 'No such function' ].
-
-		^self privateCall: f withSig: aString withArgs: anArray
-	}
-
-	method privateOpen: aString
-	{
-		<primitive: #_ffi_open>
-		^nil. ## TODO: Error signal: 'can not open'
-	}
-
-	method privateClose: aHandle
-	{
-		<primitive: #_ffi_close>
-	}
-
-	method privateCall: aSymbol withSig: aString withArgs: anArray
-	{
-		<primitive: #_ffi_call>
-	}
-
-	method privateGetSymbol: aString in: aHandle
-	{
-		<primitive: #_ffi_getsym>
-		^nil.
-	}
-}
-
-(* -------------------------------------------------------------------------- *)
-
+(*#include 'FFI.moo'.*)
 #include 'Stdio.moo'.
 #include 'Console.moo'.