mirror of
https://github.com/vlang/v.git
synced 2023-08-10 21:13:21 +03:00
![Delyan Angelov](/assets/img/avatar_default.png)
* Move compiler/ under vlib/compiler/ . * Add a minimal compiler/main.v driver program. * Cleanup compiler/main.v . * Make most compiler tests pass again. * Apply the fix by @joe-conigliaro , so that the rest of the compiler tests are fixed too. * Thanks to @avitkauskas, now the vlib/vcompiler/tests/str_gen_test.v test does not need to be special cased anymore. * Reapply @joe-conigliaro fix for vgen.
191 lines
4.2 KiB
V
191 lines
4.2 KiB
V
// 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 compiler
|
|
|
|
import os
|
|
|
|
// parsed cflag
|
|
struct CFlag{
|
|
mod string // the module in which the flag was given
|
|
os string // eg. windows | darwin | linux
|
|
name string // eg. -I
|
|
value string // eg. /path/to/include
|
|
}
|
|
|
|
fn (c &CFlag) str() string {
|
|
return 'CFlag{ name: "$c.name" value: "$c.value" mod: "$c.mod" os: "$c.os" }'
|
|
}
|
|
|
|
// get flags for current os
|
|
fn (v &V) get_os_cflags() []CFlag {
|
|
mut flags := []CFlag
|
|
for flag in v.table.cflags {
|
|
if flag.os == ''
|
|
|| (flag.os == 'linux' && v.os == .linux)
|
|
|| (flag.os == 'darwin' && v.os == .mac)
|
|
|| (flag.os == 'freebsd' && v.os == .freebsd)
|
|
|| (flag.os == 'windows' && (v.os == .windows || v.os == .msvc)) {
|
|
flags << flag
|
|
}
|
|
}
|
|
return flags
|
|
}
|
|
|
|
fn (v &V) get_rest_of_module_cflags(c &CFlag) []CFlag {
|
|
mut flags := []CFlag
|
|
cflags := v.get_os_cflags()
|
|
for flag in cflags {
|
|
if c.mod == flag.mod {
|
|
if c.name == flag.name && c.value == flag.value && c.os == flag.os { continue }
|
|
flags << flag
|
|
}
|
|
}
|
|
return flags
|
|
}
|
|
|
|
// format flag
|
|
fn (cf &CFlag) format() string {
|
|
mut value := cf.value
|
|
if cf.name == '-l' && value.len>0 {
|
|
return '${cf.name}${value}'.trim_space()
|
|
}
|
|
// convert to absolute path
|
|
if cf.name == '-I' || cf.name == '-L' || value.ends_with('.o') {
|
|
value = '"'+os.realpath(value)+'"'
|
|
}
|
|
return '$cf.name $value'.trim_space()
|
|
}
|
|
|
|
// check if cflag is in table
|
|
fn (table &Table) has_cflag(cflag CFlag) bool {
|
|
for cf in table.cflags {
|
|
if cf.os == cflag.os && cf.name == cflag.name && cf.value == cflag.value {
|
|
return true
|
|
}
|
|
}
|
|
return false
|
|
}
|
|
|
|
// parse the flags to (table.cflags) []CFlag
|
|
// Note: clean up big time (joe-c)
|
|
fn (table mut Table) parse_cflag(cflag string, mod string) {
|
|
allowed_flags := [
|
|
'framework',
|
|
'library',
|
|
'I', 'l', 'L',
|
|
]
|
|
mut flag := cflag.trim_space()
|
|
if flag == '' {
|
|
return
|
|
}
|
|
mut fos := ''
|
|
mut name := ''
|
|
if flag.starts_with('linux') || flag.starts_with('darwin') || flag.starts_with('freebsd') || flag.starts_with('windows') {
|
|
pos := flag.index(' ')
|
|
fos = flag.left(pos).trim_space()
|
|
flag = flag.right(pos).trim_space()
|
|
}
|
|
for {
|
|
mut index := -1
|
|
mut value := ''
|
|
if flag[0] == `-` {
|
|
for f in allowed_flags {
|
|
i := 1+f.len
|
|
if i < flag.len && f == flag.substr(1,i) {
|
|
name = flag.left(i).trim_space()
|
|
flag = flag.right(i).trim_space()
|
|
break
|
|
}
|
|
}
|
|
}
|
|
for i in [flag.index(' '), flag.index(',')] {
|
|
if index == -1 || (i != -1 && i < index) {
|
|
index = i
|
|
}
|
|
}
|
|
if index != -1 && flag[index] == ` ` && flag[index+1] == `-` {
|
|
for f in allowed_flags {
|
|
i := index+f.len
|
|
if i < flag.len && f == flag.substr(index, i) {
|
|
index = i
|
|
break
|
|
}
|
|
}
|
|
value = flag.left(index).trim_space()
|
|
flag = flag.right(index).trim_space()
|
|
}
|
|
else if index != -1 && index < flag.len-2 && flag[index] == `,` {
|
|
value = flag.left(index).trim_space()
|
|
flag = flag.right(index+1).trim_space()
|
|
}
|
|
else {
|
|
value = flag.trim_space()
|
|
index = -1
|
|
}
|
|
cf := CFlag{
|
|
mod: mod,
|
|
os: fos,
|
|
name: name,
|
|
value: value
|
|
}
|
|
if !table.has_cflag(cf) {
|
|
table.cflags << cf
|
|
}
|
|
if index == -1 {
|
|
break
|
|
}
|
|
}
|
|
}
|
|
|
|
//TODO: implement msvc specific c_options_before_target and c_options_after_target ...
|
|
fn (cflags []CFlag) c_options_before_target() string {
|
|
$if msvc {
|
|
return ''
|
|
}
|
|
// -I flags, optimization flags and so on
|
|
mut args:=[]string
|
|
for flag in cflags {
|
|
if flag.name != '-l' {
|
|
args << flag.format()
|
|
}
|
|
}
|
|
return args.join(' ')
|
|
}
|
|
|
|
fn (cflags []CFlag) c_options_after_target() string {
|
|
$if msvc {
|
|
return ''
|
|
}
|
|
// -l flags (libs)
|
|
mut args:=[]string
|
|
for flag in cflags {
|
|
if flag.name == '-l' {
|
|
args << flag.format()
|
|
}
|
|
}
|
|
return args.join(' ')
|
|
}
|
|
|
|
fn (cflags []CFlag) c_options_without_object_files() string {
|
|
mut args:=[]string
|
|
for flag in cflags {
|
|
if flag.value.ends_with('.o') || flag.value.ends_with('.obj') {
|
|
continue
|
|
}
|
|
args << flag.format()
|
|
}
|
|
return args.join(' ')
|
|
}
|
|
|
|
fn (cflags []CFlag) c_options_only_object_files() string {
|
|
mut args:=[]string
|
|
for flag in cflags {
|
|
if flag.value.ends_with('.o') || flag.value.ends_with('.obj') {
|
|
args << flag.format()
|
|
}
|
|
}
|
|
return args.join(' ')
|
|
}
|