V 0.0.12 open-source release

Author: medvednikov

base64/base64.v

@@ -0,0 +1,49 @@
+// Copyright (c) 2019 Alexander Medvednikov. All rights reserved.
+// Use of this source code is governed by an MIT license
+// that can be found in the LICENSE file.
+
+module base64
+
+const (
+	Index = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	62, 63, 62, 62, 63, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 0, 0, 0,
+	0, 0, 0, 0, 0, 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, 0, 0, 0, 0, 63, 0, 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]
+)
+
+fn decode(data string) string {
+	p := data.cstr()
+	len := data.len
+	mut pad := 0
+	if len > 0 && (len % 4 != 0 || p[len - 1] == `=`) {
+		pad = 1
+	}
+	L := ((len + 3) / 4 - pad) * 4
+	str_len := L / 4 * 3 + pad
+	mut str := malloc(str_len + 2)
+	mut j := 0
+	for i := 0; i < L; i += 4 {
+		n := (Index[p[i]] << 18) | (Index[p[i + 1]] << 12) |
+			(Index[p[i + 2]] << 6) | (Index[p[i + 3]])
+		str[j] = n >> 16
+		j++
+		str[j] = n >> 8 & 0xff
+		j++
+		str[j] = n & 0xff
+		j++
+	}
+	if pad > 0 {
+		mut nn := (Index[p[L]] << 18) | (Index[p[L + 1]] << 12)
+		str[str_len - 1] = nn >> 16
+		if len > L + 2 && p[L + 2] != `=` {
+			nn = nn | (Index[p[L + 2]] << 6)
+			str[str_len] = nn >> 8 & 0xff
+		}
+	}
+	str[str_len + 1] = `\0`
+	return string(str)
+}
+

builtin/array.v

@@ -0,0 +1,223 @@
+module builtin
+
+struct array {
+	// Using a void pointer allows to implement arrays without generics and without generating
+	// extra code for every type.
+	data         voidptr
+pub:
+	len          int
+	cap          int
+	element_size int
+}
+
+// Private function, used by V (`nums := []int`)
+fn new_array(mylen int, cap, elm_size int) array {
+	arr := array {
+		len: mylen
+		cap: cap
+		element_size: elm_size
+		data: malloc(cap * elm_size)
+	}
+	return arr
+}
+
+// Private function, used by V (`nums := [1, 2, 3]`)
+fn new_array_from_c_array(len, cap, elm_size int, c_array voidptr) array {
+	arr := array {
+		len: len
+		cap: cap
+		element_size: elm_size
+		data: malloc(cap * elm_size)
+	}
+	// TODO Write all memory functions (like memcpy) in V
+	C.memcpy(arr.data, c_array, len * elm_size)
+	return arr
+}
+
+// Private function, used by V (`nums := [1, 2, 3] !`)
+fn new_array_from_c_array_no_alloc(len, cap, elm_size int, c_array voidptr) array {
+	arr := array {
+		len: len
+		cap: cap
+		element_size: elm_size
+		data: c_array
+	}
+	return arr
+}
+
+// Private function, used by V  (`[0; 100]`)
+fn array_repeat(val voidptr, nr_repeats int, elm_size int) array {
+	arr := array {
+		len: nr_repeats
+		cap: nr_repeats
+		element_size: elm_size
+		data: malloc(nr_repeats * elm_size)
+	}
+	for i := 0; i < nr_repeats; i++ {
+		C.memcpy(arr.data + i * elm_size, val, elm_size)
+	}
+	return arr
+}
+
+fn (a mut array) append_array(b array) {
+	for i := 0; i < b.len; i++ {
+		val := b[i]
+		a._push(val)
+	}
+}
+
+fn (a mut array) sort_with_compare(compare voidptr) {
+	C.qsort(a.data, a.len, a.element_size, compare)
+}
+
+fn (a mut array) insert(i int, val voidptr) {
+	if i >= a.len {
+		panic('array.insert: index larger than length')
+		return
+	}
+	a._push(val)
+	size := a.element_size
+	C.memmove(a.data + (i + 1) * size, a.data + i * size, (a.len - i) * size)
+	a.set(i, val)
+}
+
+fn (a mut array) prepend(val voidptr) {
+	a.insert(0, val)
+}
+
+fn (a mut array) delete(idx int) {
+	size := a.element_size
+	C.memmove(a.data + idx * size, a.data + (idx + 1) * size, (a.len - idx) * size)
+	a.len--
+	a.cap--
+}
+
+fn (a array) _get(i int) voidptr {
+	if i < 0 || i >= a.len {
+		panic('array index out of range: $i/$a.len')
+	}
+	return a.data + i * a.element_size
+}
+
+fn (a array) first() voidptr {
+	if a.len == 0 {
+		panic('array.first: empty array')
+	}
+	return a.data + 0
+}
+
+fn (a array) last() voidptr {
+	if a.len == 0 {
+		panic('array.last: empty array')
+	}
+	return a.data + (a.len - 1) * a.element_size
+}
+
+fn (s array) left(n int) array {
+	if n >= s.len {
+		return s
+	}
+	return s.slice(0, n)
+}
+
+fn (s array) right(n int) array {
+	if n >= s.len {
+		return s
+	}
+	return s.slice(n, s.len)
+}
+
+pub fn (s array) slice(start, _end int) array {
+	mut end := _end
+	if start > end {
+		panic('invalid slice index: $start > $end')
+	}
+	if end >= s.len {
+		end = s.len
+	}
+	l := end - start
+	res := array {
+		element_size: s.element_size
+		data: s.data + start * s.element_size
+		len: l
+		cap: l
+	}
+	return res
+}
+
+fn (a mut array) set(idx int, val voidptr) {
+	if idx < 0 || idx >= a.len {
+		panic('array index out of range: $idx / $a.len')
+	}
+	C.memcpy(a.data + a.element_size * idx, val, a.element_size)
+}
+
+fn (arr mut array) _push(val voidptr) {
+	if arr.len >= arr.cap - 1 {
+		cap := (arr.len + 1) * 2
+		// println('_push: realloc, new cap=$cap')
+		if arr.cap == 0 {
+			arr.data = malloc(cap * arr.element_size)
+		}
+		else {
+			arr.data = C.realloc(arr.data, cap * arr.element_size)
+		}
+		arr.cap = cap
+	}
+	C.memcpy(arr.data + arr.element_size * arr.len, val, arr.element_size)
+	arr.len++
+}
+
+fn (arr mut array) _push_many(val voidptr, size int) {
+	if arr.len >= arr.cap - size {
+		cap := (arr.len + size) * 2
+		// println('_push: realloc, new cap=$cap')
+		if arr.cap == 0 {
+			arr.data = malloc(cap * arr.element_size)
+		}
+		else {
+			arr.data = C.realloc(arr.data, cap * arr.element_size)
+		}
+		arr.cap = cap
+	}
+	C.memcpy(arr.data + arr.element_size * arr.len, val, arr.element_size * size)
+	arr.len += size
+}
+
+fn (a[]int) str() string {
+	mut res := '['
+	for i := 0; i < a.len; i++ {
+		val := a[i]
+		res += '$val'
+		if i < a.len - 1 {
+			res += ', '
+		}
+	}
+	res += ']'
+	return res
+}
+
+fn (a[]int) free() {
+	// println('array free')
+	C.free(a.data)
+}
+
+// TODO generic
+// "[ 'a', 'b', 'c' ]"
+fn (a[]string) str() string {
+	mut res := '['
+	for i := 0; i < a.len; i++ {
+		val := a[i]
+		res += '"$val"'
+		if i < a.len - 1 {
+			res += ', '
+		}
+	}
+	res += ']'
+	return res
+}
+
+fn free(a voidptr) {
+	C.free(a)
+}
+