miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

proper scoping for ADTs, I think

Browse Source
This commit is contained in:
Nathan Braswell
2015-11-19 16:27:36 -05:00
parent 466b2310db
commit 21f4824a01
3 changed files with 142 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
tests/test_adt.krak
View File

@@ -10,6 +10,41 @@ adt maybe_int {
an_int: int
}
fun TestObj(num: int): TestObj {
print("gonna makke object in function ")
println(num)
var toRet.construct(num): TestObj
return toRet
}
obj TestObj (Object) {
var obj_num: int
fun construct(num:int): *TestObj {
obj_num = num
print("constructed object ")
println(obj_num)
}
fun copy_construct(old: *TestObj) {
obj_num = old->obj_num + 100
print("copy constructed object ")
print(obj_num)
print(" from ")
println(old->obj_num)
}
fun destruct() {
print("destructed object ")
println(obj_num)
}
fun operator==(other: ref TestObj): bool {
return obj_num == other.obj_num;
}
}
adt maybe_object {
no_obj,
an_obj: TestObj,
an_int: int
}
fun handle_possibility(it: maybe_int) {
if (it == maybe_int::no_int()) {
println("no int")
@@ -68,6 +103,42 @@ fun main():int {
maybe_int::an_int(the_int) println("matched an int incorrectly!")
maybe_int::no_int() println("matched no int correctly!")
}
var obj_item = maybe_object::no_obj()
match (obj_item) {
maybe_object::no_obj() println("matched no_obj correctly")
maybe_object::an_obj(obj_instance) {
print("matched an_obj incorrectly ")
println(obj_instance.obj_num)
}
maybe_object::an_int(int_thiny) {
print("matched an_intj incorrectly ")
println(int_thiny)
}
}
obj_item = maybe_object::an_obj(TestObj(100))
match (obj_item) {
maybe_object::no_obj() println("matched no_obj incorrectly")
maybe_object::an_obj(obj_instance) {
print("matched an_obj correctly ")
println(obj_instance.obj_num)
}
maybe_object::an_int(int_thiny) {
print("matched an_intj incorrectly ")
println(int_thiny)
}
}
obj_item = maybe_object::an_int(1337)
match (obj_item) {
maybe_object::no_obj() println("matched no_obj incorrectly")
maybe_object::an_obj(obj_instance) {
print("matched an_obj incorrectly ")
println(obj_instance.obj_num)
}
maybe_object::an_int(int_thiny) {
print("matched an_int correctly ")
println(int_thiny)
}
}
return 0
}

3
tests/test_grammer.krak
View File

@@ -119,7 +119,8 @@ fun main():int {
var parse.construct(a): parser
/*var result = parse.parse_input(string("a"), string("fun name"))*/
var result = parse.parse_input(read_file(string("to_parse.krak")), string("fun name"))
var result = parse.parse_input(read_file(string("test_adt.krak")), string("fun name"))
/*var result = parse.parse_input(read_file(string("to_parse.krak")), string("fun name"))*/
/*var result = parse.parse_input(string("inport a;"), string("fun name"))*/
/*var result = parse.parse_input(string("fun main():int { return 0; }"), string("fun name"))*/
/*var result = parse.parse_input(string("ad"), string("fun name"))*/