v/vlib/compiler/comptime.v

495 lines
12 KiB
V
Raw Normal View History

2019-07-29 18:21:36 +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.
module compiler
2019-07-29 18:21:36 +02:00
import (
vweb.tmpl // for `$vweb_html()`
os
2019-09-26 04:28:43 +02:00
strings
)
2019-07-29 18:21:36 +02:00
fn (p mut Parser) comp_time() {
p.check(.dollar)
2019-07-29 18:21:36 +02:00
if p.tok == .key_if {
p.check(.key_if)
p.fspace()
not := p.tok == .not
2019-07-29 18:21:36 +02:00
if not {
p.check(.not)
2019-07-29 18:21:36 +02:00
}
name := p.check_name()
p.fspace()
if name in supported_platforms {
ifdef_name := os_name_to_ifdef(name)
2019-12-03 14:09:37 +01:00
if name == 'mac' {
p.warn('use `macos` instead of `mac`')
}
2019-07-29 18:21:36 +02:00
if not {
p.genln('#ifndef $ifdef_name')
}
else {
p.genln('#ifdef $ifdef_name')
}
p.check(.lcbr)
os := os_from_string(name)
if ((!not && os != p.os) || (not && os == p.os)) &&
!p.pref.output_cross_c
{
// `$if os {` for a different target, skip everything inside
// to avoid compilation errors (like including <windows.h>
// on non-Windows systems)
mut stack := 1
for {
if p.tok == .key_return {
p.returns = true
}
if p.tok == .lcbr {
stack++
} else if p.tok == .rcbr {
stack--
2019-10-20 09:19:37 +02:00
}
if p.tok == .eof {
break
2019-10-20 09:19:37 +02:00
}
if stack <= 0 && p.tok == .rcbr {
//p.warn('exiting $stack')
p.next()
break
2019-10-20 09:19:37 +02:00
}
p.next()
2019-10-20 09:19:37 +02:00
}
} else {
p.statements_no_rcbr()
}
2019-07-29 18:21:36 +02:00
if ! (p.tok == .dollar && p.peek() == .key_else) {
p.genln('#endif')
}
}
else if name == 'x64' {
p.comptime_if_block('TARGET_IS_64BIT')
}
else if name == 'x32' {
p.comptime_if_block('TARGET_IS_32BIT')
}
else if name == 'big_endian' {
p.comptime_if_block('TARGET_ORDER_IS_BIG')
}
else if name == 'little_endian' {
p.comptime_if_block('TARGET_ORDER_IS_LITTLE')
}
2019-08-16 07:50:36 +02:00
else if name == 'debug' {
p.comptime_if_block('VDEBUG')
2019-08-16 07:50:36 +02:00
}
else if name == 'tinyc' {
2019-11-04 18:14:34 +01:00
p.comptime_if_block('__TINYC__')
}
2019-10-25 17:32:44 +02:00
else if name == 'glibc' {
2019-11-04 18:14:34 +01:00
p.comptime_if_block('__GLIBC__')
}
2019-11-04 18:14:34 +01:00
else if name == 'mingw' {
p.comptime_if_block('__MINGW32__')
}
else if name == 'msvc' {
2019-11-08 14:00:55 +01:00
p.comptime_if_block('_MSC_VER')
2019-11-04 18:14:34 +01:00
}
else if name == 'clang' {
p.comptime_if_block('__clang__')
}
2019-07-29 18:21:36 +02:00
else {
println('Supported platforms:')
println(supported_platforms)
2019-07-29 18:21:36 +02:00
p.error('unknown platform `$name`')
}
if_returns := p.returns
p.returns = false
2019-07-08 03:42:36 +02:00
//p.gen('/* returns $p.returns */')
if p.tok == .dollar && p.peek() == .key_else {
2019-11-09 20:05:44 +01:00
p.fspace()
p.next()
p.next()
2019-11-09 20:05:44 +01:00
p.fspace() // spaces before and after $else
p.check(.lcbr)
p.genln('#else')
p.statements_no_rcbr()
p.genln('#endif')
else_returns := p.returns
p.returns = if_returns && else_returns
2019-07-08 03:42:36 +02:00
//p.gen('/* returns $p.returns */')
2019-11-13 19:47:05 +01:00
} else if p.tok == .key_else {
p.error('use `$' + 'else` instead of `else` in comptime if statements')
}
2019-07-29 18:21:36 +02:00
}
else if p.tok == .key_for {
p.next()
name := p.check_name()
if name != 'field' {
p.error('for field only')
}
p.check(.key_in)
p.check_name()
p.check(.dot)
p.check_name()// fields
p.check(.lcbr)
// for p.tok != .rcbr && p.tok != .eof {
res_name := p.check_name()
println(res_name)
p.check(.dot)
p.check(.dollar)
p.check(.name)
p.check(.assign)
2019-11-11 03:06:24 +01:00
_, val := p.tmp_expr()
//p.bool_expression()
//val := p.cgen.end_tmp()
2019-07-29 18:21:36 +02:00
p.check(.rcbr)
// }
}
// $vweb.html()
2019-07-29 18:21:36 +02:00
// Compile vweb html template to V code, parse that V code and embed the resulting V functions
// that returns an html string
2019-07-29 18:21:36 +02:00
else if p.tok == .name && p.lit == 'vweb' {
mut path := p.cur_fn.name + '.html'
2019-07-31 03:41:39 +02:00
if p.pref.is_debug {
println('compiling tmpl $path')
}
if !os.exists(path) {
// Can't find the template file in current directory,
// try looking next to the vweb program, in case it's run with
// v path/to/vweb_app.v
path = os.dir(p.scanner.file_path) + '/' + path
if !os.exists(path) {
p.error('vweb HTML template "$path" not found')
}
}
p.check(.name) // skip `vweb.html()` TODO
p.check(.dot)
p.check(.name)
p.check(.lpar)
p.check(.rpar)
v_code := tmpl.compile_template(path)
2019-11-25 11:48:26 +01:00
is_strings_imorted := p.import_table.known_import('strings')
if !is_strings_imorted {
p.register_import('strings', 0) // used by v_code
}
p.import_table.register_used_import('strings')
p.genln('/////////////////// tmpl start')
2019-11-25 11:48:26 +01:00
p.statements_from_text(v_code, false)
p.genln('/////////////////// tmpl end')
receiver := p.cur_fn.args[0]
2019-11-26 07:34:04 +01:00
dot := if receiver.is_mut || receiver.ptr || receiver.typ.ends_with('*') { '->' } else { '.' }
2019-11-25 06:38:00 +01:00
p.genln('vweb__Context_html($receiver.name /*!*/$dot vweb, tmpl_res)')
}
2019-07-29 18:21:36 +02:00
else {
p.error('bad comptime expr')
}
}
// #include, #flag, #v
2019-07-29 18:21:36 +02:00
fn (p mut Parser) chash() {
hash := p.lit.trim_space()
2019-10-07 00:31:01 +02:00
// println('chsh() file=$p.file hash="$hash"')
2019-07-29 18:21:36 +02:00
p.next()
if hash.starts_with('flag ') {
if p.first_pass() {
mut flag := hash[5..]
// expand `@VROOT` `@VMOD` to absolute path
flag = flag.replace('@VROOT', p.vroot)
flag = flag.replace('@VPATH', p.pref.vpath)
flag = flag.replace('@VLIB_PATH', p.pref.vlib_path)
flag = flag.replace('@VMOD', v_modules_path)
//p.log('adding flag "$flag"')
_ = p.table.parse_cflag(flag, p.mod) or {
p.error_with_token_index(err, p.cur_tok_index()-1)
2019-10-20 09:19:37 +02:00
return
}
}
2019-07-29 18:21:36 +02:00
return
}
if hash.starts_with('include') {
2019-10-07 00:31:01 +02:00
if p.first_pass() && !p.is_vh {
/*
2019-11-05 22:32:15 +01:00
if !p.pref.building_v && !p.fileis('vlib') {
p.warn('C #includes will soon be removed from the language' +
'\ndefine the C structs and functions in V')
}
*/
if p.file_pcguard.len != 0 {
//println('p: $p.file_platform $p.file_pcguard')
p.cgen.includes << '$p.file_pcguard\n#$hash\n#endif'
return
}
2019-07-29 18:21:36 +02:00
p.cgen.includes << '#$hash'
return
}
}
// TODO remove after ui_mac.m is removed
else if hash.contains('embed') {
pos := hash.index('embed') or { return }
file := hash[pos+5..]
//if p.pref.build_mode != .default_mode {
2019-07-29 18:21:36 +02:00
p.genln('#include $file')
//}
2019-07-29 18:21:36 +02:00
}
else if hash.contains('define') {
// Move defines on top
2019-11-13 21:35:14 +01:00
if p.first_pass() {
p.cgen.includes << '#$hash'
}
}
2019-11-13 19:47:05 +01:00
//// Don't parse a non-JS V file (`#-js` flag)
2019-09-14 22:48:30 +02:00
else if hash == '-js' {
$if js {
for p.tok != .eof {
p.next()
2019-10-20 09:19:37 +02:00
}
2019-09-14 22:48:30 +02:00
} $else {
p.next()
2019-10-20 09:19:37 +02:00
}
2019-09-14 22:48:30 +02:00
}
2019-07-29 18:21:36 +02:00
else {
2019-09-14 22:48:30 +02:00
$if !js {
if !p.can_chash {
println('hash="$hash"')
2019-10-25 17:32:44 +02:00
if hash.starts_with('include') { println("include") } else {}
2019-09-14 22:48:30 +02:00
p.error('bad token `#` (embedding C code is no longer supported)')
}
2019-07-29 18:21:36 +02:00
}
p.genln(hash)
}
}
// `user.$method()` (`method` is a string)
2019-07-29 18:21:36 +02:00
fn (p mut Parser) comptime_method_call(typ Type) {
p.cgen.cur_line = ''
2019-07-29 18:21:36 +02:00
p.check(.dollar)
var := p.check_name()
2019-11-25 06:38:00 +01:00
mut j := 0
for method in typ.methods {
2019-07-29 18:21:36 +02:00
if method.typ != 'void' {
continue
}
receiver := method.args[0]
2019-11-25 06:38:00 +01:00
if !p.expr_var.ptr {
p.error('`$p.expr_var.name` needs to be a reference')
}
2019-11-25 06:38:00 +01:00
amp := if receiver.is_mut && !p.expr_var.ptr { '&' } else { '' }
if j > 0 {
2019-08-02 05:20:18 +02:00
p.gen(' else ')
}
2019-11-25 06:38:00 +01:00
p.genln('if ( string_eq($var, _STR("$method.name")) ) ' +
2019-12-08 20:22:47 +01:00
'${typ.name}_$method.name ($amp $p.expr_var.name);')
2019-11-25 06:38:00 +01:00
j++
}
p.check(.lpar)
p.check(.rpar)
2019-08-02 04:04:48 +02:00
if p.tok == .key_orelse {
p.check(.key_orelse)
p.genln('else {')
2019-08-02 04:04:48 +02:00
p.check(.lcbr)
p.statements()
}
}
2019-07-29 18:21:36 +02:00
2019-08-31 15:38:13 +02:00
fn (p mut Parser) gen_array_str(typ Type) {
if typ.has_method('str') {
return
}
2019-09-18 14:37:34 +02:00
p.add_method(typ.name, Fn{
name: 'str'
2019-08-10 23:02:48 +02:00
typ: 'string'
args: [Var{typ: typ.name, is_arg:true}]
is_method: true
is_public: true
receiver_typ: typ.name
})
elm_type := typ.name[6..]
2019-08-31 15:38:13 +02:00
elm_type2 := p.table.find_type(elm_type)
is_array := elm_type.starts_with('array_')
if is_array {
p.gen_array_str(elm_type2)
} else if p.typ_to_fmt(elm_type, 0) == '' &&
2019-08-31 15:38:13 +02:00
!p.table.type_has_method(elm_type2, 'str') {
p.error('cant print ${elm_type}[], unhandled print of ${elm_type}')
}
p.v.vgen_buf.writeln('
2019-09-26 04:28:43 +02:00
fn (a $typ.name) str() string {
mut sb := strings.new_builder(a.len * 3)
sb.write("[")
for i, elm in a {
sb.write(elm.str())
if i < a.len - 1 {
sb.write(", ")
}
}
2019-09-26 04:28:43 +02:00
sb.write("]")
return sb.str()
}
2019-09-26 04:28:43 +02:00
')
p.cgen.fns << 'string ${typ.name}_str();'
}
// `Foo { bar: 3, baz: 'hi' }` => '{ bar: 3, baz: "hi" }'
fn (p mut Parser) gen_struct_str(typ Type) {
p.add_method(typ.name, Fn{
name: 'str'
typ: 'string'
args: [Var{typ: typ.name, is_arg:true}]
is_method: true
is_public: true
receiver_typ: typ.name
})
2019-10-20 09:19:37 +02:00
2019-09-26 04:28:43 +02:00
mut sb := strings.new_builder(typ.fields.len * 20)
sb.writeln('fn (a $typ.name) str() string {\nreturn')
sb.writeln("'{")
for field in typ.fields {
sb.writeln('\t$field.name: $' + 'a.${field.name}')
2019-09-26 04:28:43 +02:00
}
2019-10-04 14:48:09 +02:00
sb.writeln("}'")
2019-09-26 04:28:43 +02:00
sb.writeln('}')
p.v.vgen_buf.writeln(sb.str())
2019-09-26 04:28:43 +02:00
// Need to manually add the definition to `fns` so that it stays
// at the top of the file.
// This function will get parsed by V after the main pass.
p.cgen.fns << 'string ${typ.name}_str();'
}
fn (p mut Parser) gen_varg_str(typ Type) {
elm_type := typ.name[5..]
elm_type2 := p.table.find_type(elm_type)
is_array := elm_type.starts_with('array_')
if is_array {
p.gen_array_str(elm_type2)
} else if elm_type2.cat == .struct_ {
p.gen_struct_str(elm_type2)
}
p.v.vgen_buf.writeln('
fn (a $typ.name) str() string {
mut sb := strings.new_builder(a.len * 3)
sb.write("[")
for i, elm in a {
sb.write(elm.str())
if i < a.len - 1 {
sb.write(", ")
}
}
sb.write("]")
return sb.str()
}')
2019-09-26 04:28:43 +02:00
p.cgen.fns << 'string ${typ.name}_str();'
}
fn (p mut Parser) gen_array_filter(str_typ string, method_ph int) {
/*
// V
a := [1,2,3,4]
b := a.filter(it % 2 == 0)
// C
array_int a = ...;
array_int tmp2 = new_array(0, 4, 4);
for (int i = 0; i < a.len; i++) {
int it = ((int*)a.data)[i];
if (it % 2 == 0) array_push(&tmp2, &it);
}
array_int b = tmp2;
*/
val_type:=str_typ[6..]
p.open_scope()
p.register_var(Var{
name: 'it'
typ: val_type
})
p.next()
p.check(.lpar)
p.cgen.resetln('')
tmp := p.get_tmp()
a := p.expr_var.name
p.cgen.set_placeholder(method_ph,'\n$str_typ $tmp = new_array(0, $a .len,sizeof($val_type));\n')
p.genln('for (int i = 0; i < ${a}.len; i++) {')
p.genln('$val_type it = (($val_type*)${a}.data)[i];')
p.gen('if (')
p.bool_expression()
p.genln(') array_push(&$tmp, &it);')
//p.genln(') array_push(&$tmp, &((($val_type*)${a}.data)[i]));')
//p.genln(') array_push(&$tmp, ${a}.data + i * ${a}.element_size);')
p.genln('}')
p.gen(tmp) // TODO why does this `gen()` work?
p.check(.rpar)
p.close_scope()
}
2019-10-26 13:25:03 +02:00
fn (p mut Parser) gen_array_map(str_typ string, method_ph int) string {
2019-10-26 13:25:03 +02:00
/*
// V
a := [1,2,3,4]
b := a.map(it * 2)
2019-10-26 13:25:03 +02:00
// C
array_int a = ...;
array_int tmp2 = new_array(0, 4, 4);
for (int i = 0; i < a.len; i++) {
int it = ((int*)a.data)[i];
_PUSH(tmp2, it * 2, tmp3, int)
}
array_int b = tmp2;
*/
val_type:=str_typ[6..]
2019-10-26 13:25:03 +02:00
p.open_scope()
p.register_var(Var{
name: 'it'
typ: val_type
})
p.next()
p.check(.lpar)
p.cgen.resetln('')
tmp := p.get_tmp()
tmp_elm := p.get_tmp()
a := p.expr_var.name
map_type, expr := p.tmp_expr()
p.cgen.set_placeholder(method_ph,'\narray $tmp = new_array(0, $a .len, ' +
'sizeof($map_type));\n')
p.genln('for (int i = 0; i < ${a}.len; i++) {')
p.genln('$val_type it = (($val_type*)${a}.data)[i];')
p.genln('_PUSH(&$tmp, $expr, $tmp_elm, $map_type)')
p.genln('}')
p.gen(tmp) // TODO why does this `gen()` work?
p.check(.rpar)
p.close_scope()
return 'array_' + map_type
2019-10-26 13:25:03 +02:00
}
2019-11-04 18:14:34 +01:00
fn (p mut Parser) comptime_if_block(name string) {
p.genln('#ifdef $name')
p.check(.lcbr)
p.statements_no_rcbr()
if ! (p.tok == .dollar && p.peek() == .key_else) {
p.genln('#endif')
}
}
fn (p mut Parser) gen_enum_flag_methods(typ mut Type) {
for method in ['set', 'clear', 'toggle', 'has'] {
typ.methods << Fn{
name: method,
typ: if method == 'has' { 'bool' } else { 'void' }
args: [Var{typ: typ.name, is_mut: true, is_arg:true}, Var{typ: typ.name, is_arg: true}]
is_method: true
is_public: true
receiver_typ: typ.name
}
}
p.v.vgen_buf.writeln('
pub fn (e mut $typ.name) set(flag $typ.name) { *e = int(*e) | (1 << int(flag)) }
pub fn (e mut $typ.name) clear(flag $typ.name) { *e = int(*e) &~ (1 << int(flag)) }
pub fn (e mut $typ.name) toggle(flag $typ.name) { *e = int(*e) ^ (1 << int(flag)) }
pub fn (e &$typ.name) has(flag $typ.name) bool { return int(*e)&(1 << int(flag)) != 0 }'
)
p.cgen.fns << 'void ${typ.name}_set($typ.name *e, $typ.name flag);'
p.cgen.fns << 'void ${typ.name}_clear($typ.name *e, $typ.name flag);'
p.cgen.fns << 'void ${typ.name}_toggle($typ.name *e, $typ.name flag);'
p.cgen.fns << 'bool ${typ.name}_has($typ.name *e, $typ.name flag);'
}