Test code with comments and cleanups (01dbfa89) | Commits | 3DICC / SqueakNim

Authored by Göran Krampe 2015-02-27 17:06:38 +0100

1 parent 032258fd

Showing 7 changed files with 56 additions and 18 deletions

src/.gitignore 0 → 100644

+nimcache

tests/.gitignore 0 → 100644

tests/Test.nim 0 → 100644

		1	+import Test1
		2	+
		3	+# Just to try out the Nim Test1.foo proc from Nim
		4	+# nim c -r Test.nim
		5	+
		6	+when isMainModule:
		7	+ var v1, v2: Vector3
		8	+ v1 = Vector3(x:1, y:2, z:3)
		9	+ v2 = Vector3(x:4, y:5, z:6)
		10	+ echo foo(v1, v2, 14)

tests/Test.nim.cfg 0 → 100644

tests/Test1.nim 0 → 100644

		1	+# This import adds macros to generate FFI Smalltalk code
		2	+import squeaknim
		3	+
		4	+# Just compile with "nim c Test1.nim", copy resulting lib and Test1.st
		5	+# to a Squeak directory, file in Test1.st and then it should be fine
		6	+# to call foo, see class side of Test1
		7	+
		8	+type
		9	+ MyFloat = float32
		10	+ Vector3* = object
		11	+ x, y, z*: MyFloat
		12	+
		13	+# This sets the name of the FFI module (and class) and a Smalltalk prefix
		14	+# to avoid collisions for generated classes, like Vector3 which turns into
		15	+# URVector3 in Smalltalk
		16	+setModulename "Test1", "UR"
		17	+
		18	+# Generate the Smalltalk class URVector3 representing Vector3
		19	+wrapObject(Vector3)
		20	+
		21	+# Generate declarations for Smalltalk code
		22	+writeExternalLibrary()
		23	+
		24	+# Here follows Nim procedures that will be callable via FFI
		25	+# Note that exportSt pragma to export.
		26	+
		27	+proc foo*(a, b: Vector3, c: int): cstring {.exportSt: "bar".} =
		28	+ # Just a silly test proc
		29	+ result = "x plus y plus c " & $(a.x + b.y + c.float)
		30	+
		31	+# Write the Smalltalk code to file
		32	+writeSmallTalkCode("Test1.st")

tests/Test1.nim.cfg 0 → 100644

tests/test1.nim deleted

1	-
2	-import squeaknim
3	-
4	-type
5	- MyFloat = float32
6	- Vector3 = object
7	- x, y, z: MyFloat
8	-
9	-setModulename "urhonimo", "UR"
10	-
11	-wrapObject(Vector3)
12	-
13	-writeExternalLibrary()
14	-
15	-proc foo(a, b: Vector3): cstring {.exportSt: "bar".} =
16	- result = "some string here"
17	-
18	-writeSmallTalkCode("test1.st")