ipl/packs/loadfuncpp/examples/coexp.icn


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15


link loadfuncpp

procedure main()
    activate := loadfuncpp("./coexp.so", "activate")
    refresh  := loadfuncpp("./coexp.so", "refresh")
	x := create 1 to 7
	@x
	@x
	write( activate(x) )
	x := refresh(x)
	write( activate(x) )
end