1043-str.spl (431B)
1 2 var hello str = "Hello"; 3 4 fn strlen(x str) i32 { 5 var n i32 = 0; 6 while x[n] != 0 { 7 n++; 8 } 9 return n; 10 } 11 12 fn dump(x str, xlen i32) { 13 var n i32 = 0; 14 while n < xlen { 15 _hexout_(x[n]); 16 n++; 17 } 18 } 19 20 var strtab [5]str = { "aaa", "bbb", "xxx", "ddd", "eee" }; 21 22 fn start() i32 { 23 dump(hello, strlen(hello)); 24 var n i32 = 0; 25 strtab[2] = "ccc"; 26 while n < 5 { 27 dump(strtab[n], strlen(strtab[n])); 28 n++; 29 } 30 return strlen(hello); 31 }