/
string_type.go
59 lines (46 loc) · 1.09 KB
/
string_type.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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
package gfoo
import (
"fmt"
"io"
)
var TString StringType
type StringType struct {
ValTypeBase
}
func (_ *StringType) Bool(val Val) bool {
return len(val.data.(string)) != 0
}
func (_ *StringType) Compare(x, y Val) Order {
return CompareString(x.data.(string), y.data.(string))
}
func (_ *StringType) Dump(val Val, out io.Writer) error {
_, err := fmt.Fprintf(out, "\"%v\"", val.data.(string))
return err
}
func (_ *StringType) Iter(val Val, pos Pos) (Iter, error) {
in := []rune(val.data.(string))
i := 0
return func(thread *Thread, pos Pos) (Val, error) {
if i < len(in) {
v := NewVal(&TChar, in[i])
i++
return v, nil
}
return Nil, nil
}, nil
}
func (self *StringType) Negate(val *Val) {
val.Init(&TBool, !self.Bool(*val))
}
func (_ *StringType) New(name string, parents...Type) ValType {
t := new(StringType)
t.Init(name, parents...)
return t
}
func (_ *StringType) Print(val Val, out io.Writer) error {
_, err := io.WriteString(out, val.data.(string))
return err
}
func (self *StringType) Unquote(val Val, scope *Scope, pos Pos) Form {
return NewLiteral(val, pos)
}