v/vlib/builtin/builtin_nix.c.v

138 lines
3.8 KiB
V
Raw Normal View History

2020-01-23 21:04:46 +01:00
// Copyright (c) 2019-2020 Alexander Medvednikov. All rights reserved.
2019-11-13 09:05:06 +01:00
// Use of this source code is governed by an MIT license
// that can be found in the LICENSE file.
module builtin
2019-12-31 08:53:53 +01:00
//pub fn vsyscall(id int
//
/*
pub const (
sys_write = 1
sys_mkdir = 83
)
const (
stdin_value = 0
stdout_value = 1
stderr_value = 2
)
fn C.puts(charptr)
*/
2020-04-05 16:08:16 +02:00
fn builtin_init() {
// Do nothing
}
pub fn println(s string) {
// 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
// }
2020-02-04 09:54:15 +01:00
// }
2020-01-05 20:13:35 +01:00
C.printf('%.*s\n', s.len, s.str)
2019-12-12 02:09:31 +01:00
}
2020-04-20 20:59:08 +02:00
fn print_backtrace_skipping_top_frames(xskipframes int) bool {
2019-11-13 09:05:06 +01:00
skipframes := xskipframes + 2
2019-12-19 21:52:45 +01:00
$if macos {
return print_backtrace_skipping_top_frames_mac(skipframes)
}
$if linux {
return print_backtrace_skipping_top_frames_linux(skipframes)
}
$if freebsd {
return print_backtrace_skipping_top_frames_freebsd(skipframes)
}
$if netbsd {
return print_backtrace_skipping_top_frames_freebsd(skipframes)
}
$if openbsd {
return print_backtrace_skipping_top_frames_freebsd(skipframes)
}
2020-04-20 20:59:08 +02:00
println('print_backtrace_skipping_top_frames is not implemented')
2019-11-13 09:05:06 +01:00
return false
}
// the functions below are not called outside this file,
// so there is no need to have their twins in builtin_windows.v
fn print_backtrace_skipping_top_frames_mac(skipframes int) bool {
2019-12-03 14:29:24 +01:00
$if macos {
2019-12-19 21:52:45 +01:00
buffer := [100]byteptr
nr_ptrs := backtrace(buffer, 100)
2020-02-07 21:29:28 +01:00
backtrace_symbols_fd(&buffer[skipframes], nr_ptrs - skipframes, 1)
2019-11-14 22:46:40 +01:00
}
2019-11-13 09:05:06 +01:00
return true
}
2019-11-25 11:54:56 +01:00
fn print_backtrace_skipping_top_frames_freebsd(skipframes int) bool {
$if freebsd {
2019-12-19 21:52:45 +01:00
buffer := [100]byteptr
nr_ptrs := backtrace(buffer, 100)
backtrace_symbols_fd(&buffer[skipframes], nr_ptrs - skipframes, 1)
2019-12-19 21:52:45 +01:00
}
return true
2019-11-25 11:54:56 +01:00
}
2019-11-13 09:05:06 +01:00
fn print_backtrace_skipping_top_frames_linux(skipframes int) bool {
$if tinyc {
println('TODO: print_backtrace_skipping_top_frames_linux $skipframes with tcc fails tests with "stack smashing detected" .')
return false
}
2019-12-19 21:52:45 +01:00
$if !android {
// backtrace is not available on Android.
2019-11-13 09:05:06 +01:00
$if glibc {
buffer := [100]byteptr
nr_ptrs := backtrace(buffer, 100)
2019-12-19 21:52:45 +01:00
nr_actual_frames := nr_ptrs - skipframes
mut sframes := []string{}
//////csymbols := backtrace_symbols(*voidptr(&buffer[skipframes]), nr_actual_frames)
csymbols := backtrace_symbols(&buffer[skipframes], nr_actual_frames)
2019-12-19 21:52:45 +01:00
for i in 0 .. nr_actual_frames {
sframes << tos2( byteptr( voidptr(csymbols[i]) ) )
2019-12-19 21:52:45 +01:00
}
2019-11-13 09:05:06 +01:00
for sframe in sframes {
executable := sframe.all_before('(')
addr := sframe.all_after('[').all_before(']')
beforeaddr := sframe.all_before('[')
2019-11-13 09:05:06 +01:00
cmd := 'addr2line -e $executable $addr'
// taken from os, to avoid depending on the os module inside builtin.v
f := C.popen(cmd.str, 'r')
if isnil(f) {
2019-12-19 21:52:45 +01:00
println(sframe)
continue
2019-11-13 09:05:06 +01:00
}
buf := [1000]byte
mut output := ''
2020-03-01 13:26:09 +01:00
for C.fgets(charptr(buf), 1000, f) != 0 {
2019-11-13 09:05:06 +01:00
output += tos(buf, vstrlen(buf))
}
2019-12-19 21:52:45 +01:00
output = output.trim_space() + ':'
2020-02-05 11:22:17 +01:00
if C.pclose(f) != 0 {
2019-12-19 21:52:45 +01:00
println(sframe)
continue
}
if output in ['??:0:', '??:?:'] {
output = ''
2019-11-13 09:05:06 +01:00
}
// See http://wiki.dwarfstd.org/index.php?title=Path_Discriminators
// NB: it is shortened here to just d. , just so that it fits, and so
// that the common error file:lineno: line format is enforced.
output = output.replace(' (discriminator', ': (d.')
println('${output:-46s} | ${addr:14s} | $beforeaddr')
2019-11-13 09:05:06 +01:00
}
// backtrace_symbols_fd(*voidptr(&buffer[skipframes]), nr_actual_frames, 1)
2019-11-13 09:05:06 +01:00
return true
2019-12-19 21:52:45 +01:00
} $else {
2019-12-31 08:53:53 +01:00
println('backtrace_symbols_fd is missing, so printing backtraces is not available.\n')
println('Some libc implementations like musl simply do not provide it.')
2019-11-13 09:05:06 +01:00
}
}
return false
}