mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
23 lines
399 B
Perl
23 lines
399 B
Perl
|
|
|
|
terra foo(a : int, b : int)
|
|
return a + b
|
|
end
|
|
|
|
local ffi = require 'ffi'
|
|
|
|
local name = (ffi.os == "Windows" and "foo.dll" or "foo.so")
|
|
|
|
local args = {}
|
|
|
|
if ffi.os == "Windows" then
|
|
args = {"/IMPLIB:foo.lib","/EXPORT:foo" }
|
|
end
|
|
|
|
terralib.saveobj(name,{ foo = foo }, args)
|
|
|
|
local foo2 = terralib.externfunction("foo", {int,int} -> int )
|
|
terralib.linklibrary("./"..name)
|
|
|
|
assert(4 == foo2(1,3))
|