-
Notifications
You must be signed in to change notification settings - Fork 5
/
main.go
44 lines (37 loc) · 1.1 KB
/
main.go
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
package main
import (
"fmt"
"strconv"
"github.com/ian-kent/purl/perl"
)
func main() {
purl := &perl.Purl{}
purl.Init()
defer purl.Destroy()
fmt.Println("Purl::Test =>", purl.Eval(`Purl::Test()`))
fmt.Println("Assign expr =>", purl.Eval(`$a = "foo"`))
fmt.Println("Get expr =>", purl.Eval(`$a`))
fmt.Println("Get expr =>", purl.Eval(`$foo = 1`))
purl.Eval(`
sub test {
my ($foo, $bar) = @_;
return "$bar:$foo";
}
`)
fmt.Println("Invoke =>", purl.Eval(`test("foo", "bar")`))
purl.RegisterXS("Purl::Go::Test", func(args ...string) string {
fmt.Println("In Purl::Go::Test XS function!")
return "hi!"
})
fmt.Println("Invoke custom XS =>", purl.Eval(`Purl::Go->Test()`))
fmt.Println("Invoke custom XS =>", purl.Eval(`Purl::Go->Test()`))
purl.RegisterXS("Purl::Go::Test2", func(args ...string) string {
fmt.Println("In Purl::Go::Test2 XS function!")
for i, v := range args {
fmt.Printf(" %d: %s\n", i, v)
}
return strconv.Itoa(len(args))
})
fmt.Println("Invoke custom XS =>", purl.Eval(`Purl::Go->Test2()`))
fmt.Println("Invoke custom XS =>", purl.Eval(`Purl::Go->Test2("foo", "bar")`))
}