mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
samples: add Terra samples
source: https://github.com/zdevito/terra/tree/master/tests
This commit is contained in:
25
samples/Terra/fnptrc.t
Normal file
25
samples/Terra/fnptrc.t
Normal file
@@ -0,0 +1,25 @@
|
||||
|
||||
C = terralib.includecstring [[
|
||||
struct Foo {
|
||||
int (*bar)(int);
|
||||
};
|
||||
int runptr(int (*bar)(int), int a) {
|
||||
return bar(a);
|
||||
}
|
||||
]]
|
||||
|
||||
terra add1(a : int) return a + 1 end
|
||||
|
||||
terra what0()
|
||||
return C.runptr(add1,1)
|
||||
end
|
||||
|
||||
assert(what0() == 2)
|
||||
|
||||
terra what()
|
||||
var c : C.Foo
|
||||
c.bar = add1
|
||||
return c.bar(1)
|
||||
end
|
||||
|
||||
assert(what() == 2)
|
||||
Reference in New Issue
Block a user