v/vlib/builtin/builtin.v

298 lines
6.3 KiB
V
Raw Normal View History

2020-01-23 21:04:46 +01:00
// Copyright (c) 2019-2020 Alexander Medvednikov. All rights reserved.
2019-06-23 04:21:30 +02:00
// Use of this source code is governed by an MIT license
// that can be found in the LICENSE file.
2019-06-22 20:20:28 +02:00
module builtin
__global (
g_m2_buf byteptr
g_m2_ptr byteptr
)
2019-12-11 16:41:25 +01:00
type FnExitCb = fn()
fn C.atexit(f FnExitCb) int
pub fn exit(code int) {
2019-06-23 10:15:30 +02:00
C.exit(code)
2019-06-22 20:20:28 +02:00
}
// isnil returns true if an object is nil (only for C objects).
pub fn isnil(v voidptr) bool {
return v == 0
}
/*
2019-12-19 21:52:45 +01:00
fn on_panic(f fn(int)int) {
2019-06-22 20:20:28 +02:00
// TODO
}
*/
2019-06-22 20:20:28 +02:00
2019-12-19 21:52:45 +01:00
pub fn print_backtrace() {
// at the time of backtrace_symbols_fd call, the C stack would look something like this:
// 1 frame for print_backtrace_skipping_top_frames
// 1 frame for print_backtrace itself
// ... print the rest of the backtrace frames ...
// => top 2 frames should be skipped, since they will not be informative to the developer
print_backtrace_skipping_top_frames(2)
2019-06-22 20:20:28 +02:00
}
2019-07-30 15:08:14 +02:00
// replaces panic when -debug arg is passed
fn panic_debug(line_no int, file string, mod string, fn_name string, s string) {
// NB: the order here is important for a stabler test output
// module is less likely to change than function, etc...
// During edits, the line number will change most frequently,
// so it is last
eprintln('================ V panic ================')
eprintln(' module: $mod')
eprintln(' function: ${fn_name}()')
eprintln(' message: $s')
eprintln(' file: $file')
eprintln(' line: ' + line_no.str())
eprintln('=========================================')
// recent versions of tcc print better backtraces automatically
$if !tinyc {
print_backtrace_skipping_top_frames(1)
}
2020-05-31 12:57:26 +02:00
break_if_debugger_attached()
2019-07-30 15:08:14 +02:00
C.exit(1)
}
2019-06-22 20:20:28 +02:00
pub fn panic(s string) {
eprintln('V panic: $s')
// recent versions of tcc print better backtraces automatically
$if !tinyc {
print_backtrace()
}
2020-05-31 12:57:26 +02:00
break_if_debugger_attached()
2019-06-22 20:20:28 +02:00
C.exit(1)
}
pub fn eprintln(s string) {
// eprintln is used in panics, so it should not fail at all
if s.str == 0 {
eprintln('eprintln(NIL)')
2019-10-04 14:48:09 +02:00
}
C.fflush(C.stdout)
C.fflush(C.stderr)
C.write(2, s.str, s.len)
C.write(2, c'\n', 1)
C.fflush(C.stderr)
2019-06-22 20:20:28 +02:00
}
2019-12-28 11:02:06 +01:00
pub fn eprint(s string) {
if s.str == 0 {
eprintln('eprint(NIL)')
2019-12-28 11:02:06 +01:00
}
C.fflush(C.stdout)
C.fflush(C.stderr)
C.write(2, s.str, s.len)
C.fflush(C.stderr)
2019-12-28 11:02:06 +01:00
}
2019-06-22 20:20:28 +02:00
pub fn print(s string) {
C.write(1, s.str, s.len)
2019-06-22 20:20:28 +02:00
}
2020-05-22 11:18:18 +02:00
const (
new_line_character = '\n'
)
//#include "@VROOT/vlib/darwin/darwin.m"
//fn C.nsstring2(s string) voidptr
//fn C.NSLog(x voidptr)
2020-08-22 17:22:14 +02:00
//#include <asl.h>
fn C.asl_log(voidptr, voidptr, int, charptr)
2020-05-22 11:18:18 +02:00
pub fn println(s string) {
$if windows {
print(s)
print(new_line_character)
} $else {
// For debugging .app applications (no way to read stdout) so that it's printed to macOS Console
/*
$if macos {
C.asl_log(0, 0, C.ASL_LEVEL_ERR, s.str)
}
*/
2020-05-22 11:18:18 +02:00
// TODO: a syscall sys_write on linux works, except for the v repl.
// Probably it is a stdio buffering issue. Needs more testing...
// $if linux {
// $if !android {
// snl := s + '\n'
// C.syscall(/* sys_write */ 1, /* stdout_value */ 1, snl.str, s.len+1)
// return
// }
// }
C.printf('%.*s\n', s.len, s.str)
}
}
__global (
total_m = i64(0)
nr_mallocs = int(0)
)
2020-08-09 11:22:11 +02:00
[unsafe]
2019-06-22 20:20:28 +02:00
pub fn malloc(n int) byteptr {
2019-12-16 19:29:32 +01:00
if n <= 0 {
2019-12-16 20:22:04 +01:00
panic('malloc(<=0)')
2019-06-22 20:20:28 +02:00
}
2019-12-14 00:46:55 +01:00
$if prealloc {
2020-07-11 11:25:53 +02:00
//println('p')
2019-12-11 16:41:25 +01:00
res := g_m2_ptr
unsafe {
g_m2_ptr += n
}
2019-12-11 16:41:25 +01:00
nr_mallocs++
return res
} $else {
ptr := unsafe {C.malloc(n)}
2019-12-11 16:41:25 +01:00
if ptr == 0 {
panic('malloc($n) failed')
}
return ptr
2019-12-14 00:46:55 +01:00
}
2019-12-19 21:52:45 +01:00
/*
TODO
2019-06-22 20:20:28 +02:00
#ifdef VPLAY
if n > 10000 {
panic('allocating more than 10 KB is not allowed in the playground')
}
#endif
#ifdef DEBUG_ALLOC
total_m += n
println('\n\n\nmalloc($n) total=$total_m')
2019-06-22 20:20:28 +02:00
print_backtrace()
#endif
*/
}
2020-07-11 13:22:16 +02:00
//#include <malloc/malloc.h>
//fn malloc_size(b byteptr) int
2020-08-09 11:22:11 +02:00
[unsafe]
2020-07-11 12:37:51 +02:00
pub fn v_realloc(b byteptr, n u32) byteptr {
2020-07-11 13:22:16 +02:00
$if prealloc {
unsafe {
new_ptr := malloc(int(n))
size := 0 //malloc_size(b)
C.memcpy(new_ptr, b, size)
return new_ptr
}
2020-07-11 13:22:16 +02:00
} $else {
ptr := unsafe {C.realloc(b, n)}
2020-07-11 13:22:16 +02:00
if ptr == 0 {
panic('realloc($n) failed')
}
return ptr
}
2019-06-22 20:20:28 +02:00
}
2020-08-09 11:22:11 +02:00
[unsafe]
pub fn v_calloc(n int) byteptr {
return C.calloc(1, n)
}
2019-06-22 20:20:28 +02:00
2020-08-09 11:22:11 +02:00
[unsafe]
pub fn vcalloc(n int) byteptr {
if n < 0 {
2019-12-16 20:22:04 +01:00
panic('calloc(<=0)')
} else if n == 0 {
return byteptr(0)
2019-06-22 20:20:28 +02:00
}
return C.calloc(1, n)
2019-06-22 20:20:28 +02:00
}
2020-08-09 11:22:11 +02:00
[unsafe]
pub fn free(ptr voidptr) {
2020-07-11 13:22:16 +02:00
$if prealloc {
return
}
C.free(ptr)
}
2019-10-31 11:08:01 +01:00
pub fn memdup(src voidptr, sz int) voidptr {
if sz == 0 {
return vcalloc(1)
}
unsafe {
mem := malloc(sz)
return C.memcpy(mem, src, sz)
}
2019-06-22 20:20:28 +02:00
}
fn v_ptr_free(ptr voidptr) {
2020-07-11 13:22:16 +02:00
$if prealloc {
return
}
C.free(ptr)
}
2019-06-22 20:20:28 +02:00
2019-11-06 21:04:40 +01:00
pub fn is_atty(fd int) int {
$if windows {
2019-11-16 00:30:50 +01:00
mut mode := u32(0)
osfh := voidptr(C._get_osfhandle(fd))
C.GetConsoleMode(osfh, voidptr(&mode))
return int(mode)
} $else {
2019-11-06 21:04:40 +01:00
return C.isatty(fd)
}
}
2020-04-25 08:36:53 +02:00
fn __as_cast(obj voidptr, obj_type int, expected_type int) voidptr {
2020-04-25 08:36:53 +02:00
if obj_type != expected_type {
panic('as cast: cannot cast $obj_type to $expected_type')
}
return obj
}
// VAssertMetaInfo is used during assertions. An instance of it
// is filled in by compile time generated code, when an assertion fails.
pub struct VAssertMetaInfo {
pub:
fpath string // the source file path of the assertion
line_nr int // the line number of the assertion
fn_name string // the function name in which the assertion is
src string // the actual source line of the assertion
op string // the operation of the assertion, i.e. '==', '<', 'call', etc ...
llabel string // the left side of the infix expressions as source
rlabel string // the right side of the infix expressions as source
lvalue string // the stringified *actual value* of the left side of a failed assertion
rvalue string // the stringified *actual value* of the right side of a failed assertion
}
fn __print_assert_failure(i &VAssertMetaInfo) {
eprintln('${i.fpath}:${i.line_nr+1}: FAIL: fn ${i.fn_name}: assert ${i.src}')
2020-06-13 16:20:45 +02:00
if i.op.len > 0 && i.op != 'call' {
eprintln(' left value: ${i.llabel} = ${i.lvalue}')
if i.rlabel == i.rvalue {
eprintln(' right value: $i.rlabel')
}
else {
eprintln(' right value: ${i.rlabel} = ${i.rvalue}')
}
}
}
pub struct MethodArgs {
pub:
typ int
}
pub struct FunctionData {
pub:
name string
attrs []string
args []MethodArgs
return_type int
typ int
}
pub struct FieldData {
pub:
name string
attrs []string
is_pub bool
is_mut bool
typ int
}