129 lines
2.2 KiB
Go
129 lines
2.2 KiB
Go
package hcl
|
|
|
|
/*
|
|
#cgo CFLAGS: -I/home/hyung-hwan/xxx/include -g -Wall
|
|
#cgo LDFLAGS: -L/home/hyung-hwan/xxx/lib -lhcl -ldl -lquadmath
|
|
|
|
#include <hcl.h>
|
|
#include <hcl-utl.h>
|
|
*/
|
|
import "C"
|
|
|
|
import (
|
|
"fmt"
|
|
"runtime"
|
|
"unsafe"
|
|
)
|
|
|
|
type HCL struct {
|
|
c *C.hcl_t
|
|
inst_no int
|
|
|
|
io struct {
|
|
r IOHandle
|
|
w IOHandle
|
|
}
|
|
}
|
|
|
|
type Ext struct {
|
|
inst_no int
|
|
}
|
|
|
|
var inst_table InstanceTable
|
|
|
|
func deregister_instance(g *HCL) {
|
|
if g.inst_no >= 0 {
|
|
inst_table.delete_instance(g.inst_no)
|
|
g.inst_no = -1
|
|
}
|
|
}
|
|
|
|
func New() (*HCL, error) {
|
|
var c *C.hcl_t
|
|
var g *HCL
|
|
var ext *Ext
|
|
var errnum C.hcl_errnum_t
|
|
|
|
c = C.hcl_openstd(C.hcl_oow_t(unsafe.Sizeof(*ext)), &errnum)
|
|
if c == nil {
|
|
var buf [64]C.hcl_uch_t
|
|
var ptr *C.hcl_uch_t
|
|
var err error
|
|
|
|
ptr = C.hcl_errnum_to_errucstr(errnum, &buf[0], C.hcl_oow_t(cap(buf)))
|
|
err = fmt.Errorf("%s", string(ucstr_to_rune_slice(ptr)))
|
|
return nil, err
|
|
}
|
|
|
|
ext = (*Ext)(unsafe.Pointer(C.hcl_getxtn(c)))
|
|
|
|
g = &HCL{c: c, inst_no: -1}
|
|
|
|
runtime.SetFinalizer(g, deregister_instance)
|
|
g.inst_no = inst_table.add_instance(c, g)
|
|
ext.inst_no = g.inst_no
|
|
|
|
return g, nil
|
|
}
|
|
|
|
func (hcl *HCL) Close() {
|
|
C.hcl_close(hcl.c)
|
|
deregister_instance(hcl)
|
|
}
|
|
|
|
func (hcl *HCL) Ignite(memsize uintptr) error {
|
|
if C.hcl_ignite(hcl.c, C.hcl_oow_t(memsize)) <= -1 {
|
|
return fmt.Errorf("unable to ignite: %s", string(ucstr_to_rune_slice(C.hcl_geterrstr(hcl.c))))
|
|
}
|
|
|
|
return nil
|
|
}
|
|
|
|
func (hcl *HCL) AddBuiltinPrims() error {
|
|
if C.hcl_addbuiltinprims(hcl.c) <= -1 {
|
|
}
|
|
return nil
|
|
}
|
|
|
|
func (hcl *HCL) AttachIO() error {
|
|
return nil
|
|
}
|
|
|
|
func (hcl *HCL) FeedString(str []rune) error {
|
|
return nil
|
|
}
|
|
|
|
func (hcl *HCL) BeginFeed() {
|
|
}
|
|
|
|
func (hcl *HCL) EndFeed() {
|
|
}
|
|
|
|
func (hcl *HCL) Execute() {
|
|
}
|
|
|
|
func ucstr_to_rune_slice(str *C.hcl_uch_t) []rune {
|
|
return uchars_to_rune_slice(str, uintptr(C.hcl_count_ucstr(str)))
|
|
}
|
|
|
|
func uchars_to_rune_slice(str *C.hcl_uch_t, len uintptr) []rune {
|
|
var res []rune
|
|
var i uintptr
|
|
|
|
// TODO: proper encoding...
|
|
res = make([]rune, len)
|
|
for i = 0; i < len; i++ {
|
|
res[i] = *(*rune)(unsafe.Pointer(uintptr(unsafe.Pointer(str)) + unsafe.Sizeof(*str)*i))
|
|
}
|
|
return res
|
|
}
|
|
|
|
func c_to_go(c *C.hcl_t) *HCL {
|
|
var ext *Ext
|
|
var inst Instance
|
|
|
|
ext = (*Ext)(unsafe.Pointer(C.hcl_getxtn(c)))
|
|
inst = inst_table.slot_to_instance(ext.inst_no)
|
|
return inst.g
|
|
}
|