v/vlib/builtin/builtin.v

146 lines
3.1 KiB
V
Raw Normal View History

2019-06-23 04:21:30 +02:00
// 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.
2019-06-22 20:20:28 +02:00
module builtin
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
}
fn on_panic(f fn (int) int) {
// TODO
}
pub fn print_backtrace_skipping_top_frames(skipframes int) {
2019-06-22 20:20:28 +02:00
$if mac {
buffer := [100]byteptr
2019-06-22 20:20:28 +02:00
nr_ptrs := C.backtrace(buffer, 100)
C.backtrace_symbols_fd(&buffer[skipframes], nr_ptrs-skipframes, 1)
return
}
$if linux {
if C.backtrace_symbols_fd != 0 {
buffer := [100]byteptr
nr_ptrs := C.backtrace(buffer, 100)
C.backtrace_symbols_fd(&buffer[skipframes], nr_ptrs-skipframes, 1)
return
}else{
C.printf('backtrace_symbols_fd is missing, so printing backtraces is not available.\n')
C.printf('Some libc implementations like musl simply do not provide it.\n')
}
2019-06-22 20:20:28 +02:00
}
C.printf('print_backtrace_skipping_top_frames is not implemented on this platform for now...\n')
}
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, mod, fn_name, s string) {
println('================ V panic ================')
println(' module: $mod')
println(' function: ${fn_name}()')
println(' file: $file')
println(' line: ' + line_no.str())
println(' message: $s')
println('=========================================')
print_backtrace_skipping_top_frames(1)
2019-07-30 15:08:14 +02:00
C.exit(1)
}
2019-06-22 20:20:28 +02:00
pub fn panic(s string) {
2019-06-23 10:01:55 +02:00
println('V panic: $s')
2019-06-22 20:20:28 +02:00
print_backtrace()
C.exit(1)
}
pub fn println(s string) {
// Should never happen
if isnil(s.str) {
panic('println(NIL)')
}
2019-07-24 12:16:45 +02:00
$if windows {
C._putws(s.to_wide())
2019-07-24 12:16:45 +02:00
} $else {
C.printf('%.*s\n', s.len, s.str)
}
2019-06-22 20:20:28 +02:00
}
pub fn eprintln(s string) {
if isnil(s.str) {
panic('eprintln(NIL)')
}
$if mac {
C.fprintf(stderr, '%.*s\n', s.len, s.str)
}
// TODO issues with stderr and cross compiling for Linux
$else {
2019-06-23 10:01:55 +02:00
println(s)
2019-06-22 20:20:28 +02:00
}
}
pub fn print(s string) {
2019-07-24 12:16:45 +02:00
$if windows {
C.wprintf(s.to_wide())
} $else {
C.printf('%.*s', s.len, s.str)
}
2019-06-22 20:20:28 +02:00
}
__global total_m i64 = 0
//__global nr_mallocs int = 0
2019-06-22 20:20:28 +02:00
pub fn malloc(n int) byteptr {
if n < 0 {
panic('malloc(<0)')
}
//nr_mallocs++
2019-06-28 17:07:03 +02: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
2019-06-28 17:07:03 +02:00
*/
2019-06-22 20:20:28 +02:00
ptr := C.malloc(n)
if isnil(ptr) {
panic('malloc($n) failed')
}
return ptr
}
pub fn calloc(n int) byteptr {
if n < 0 {
panic('calloc(<0)')
}
2019-06-24 08:06:38 +02:00
return C.calloc(n, 1)
2019-06-22 20:20:28 +02:00
}
pub fn free(ptr voidptr) {
C.free(ptr)
}
2019-06-22 20:20:28 +02:00
fn memdup(src voidptr, sz int) voidptr {
mem := malloc(sz)
return C.memcpy(mem, src, sz)
}