blob: 5dca24efd31da13bfc1b67d4b25614d87d5dedb4 (
plain)
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
|
set cc [c create]
$cc struct Name {
char* first;
char* last;
}
$cc struct Person {
Name name;
char* state;
}
$cc proc omar {} Person {
Person ret = (Person) {
.name = (Name) { .first = "Omar", .last = "Rizwan" },
.state = "NJ"
};
return ret;
}
# Test autocasting of Person to Person*.
$cc proc getFirstFromPointer {Person* p} char* {
return p->name.first;
}
$cc proc plural {int npersons Person[] persons} void {}
$cc compile
puts [omar]
assert {[getFirstFromPointer [omar]] eq "Omar"}
assert {[dict get [omar] name last] eq "Rizwan"}
plural 2 [list \
[dict create name [dict create first Omar last Rizwan] state NJ] \
[dict create name [dict create first Californian last Resident] state CA]]
set cc [c create]
$cc proc plusone {int a} int {
return a + 1;
}
$cc proc dostuff {void* v} int {
return 300;
}
$cc compile
assert {[plusone 3] eq 4}
catch {plusone Wrong} err
assert {[string match {expected integer but got "Wrong"*} $err]}
catch {dostuff hi} err
assert {[string match {failed to convert argument from Tcl to C*} $err]}
|
