mirror of
https://github.com/wader/fq.git
synced 2024-11-23 18:56:52 +03:00
1ddea1ada3
Move registry to interp and add support for functions and filesystems. This will be used later for allow formats to add own functions and fq code. Add gojqextra function helpers to have more comfortable API to add functions. Takes care of argument type casting and JQValue:s and some more things. Refactor interp package to use new function helper and registry. Probably fixes a bunch of JQValue bugs and other type errors. Refactor out some mpeg nal things to mpeg format. Refactor interp jq code into display.q and init.jq. Remove undocumented aes_ctr funciton, was a test. Hopefully will add more crypto things laster.
109 lines
3.0 KiB
Plaintext
109 lines
3.0 KiB
Plaintext
include "internal";
|
|
include "query";
|
|
|
|
|
|
def _eval_error($what; $error):
|
|
error({
|
|
what: $what,
|
|
error: $error,
|
|
column: 0,
|
|
line: 1,
|
|
filename: ""
|
|
});
|
|
|
|
def _eval_error_function_not_defined($name; $args):
|
|
_eval_error(
|
|
"compile";
|
|
"function not defined: \($name)/\($args | length)"
|
|
);
|
|
|
|
# if catch_query . -> try (.) catch .catch_query
|
|
# if input_query . -> .input_query | .
|
|
# if ... | <.slurp.> -> .slurp({slurp: "<slurp>", slurp_args: [arg query ast], orig: orig query ast, rewrite: rewritten query})
|
|
# else if .output_query -> . | .output_query
|
|
#
|
|
# ex ... | slurp -> <slurp>({...})
|
|
# ex no slurp: . -> try (.input_query | . | .output_query) catch .catch_query
|
|
def _eval_query_rewrite($opts):
|
|
_query_fromtostring(
|
|
( . as $orig_query
|
|
| _query_pipe_last as $last
|
|
| ( $last
|
|
| if _query_is_func then [_query_func_name, _query_func_args]
|
|
else ["", []]
|
|
end
|
|
) as [$last_func_name, $last_func_args]
|
|
| $opts.slurps[$last_func_name] as $slurp
|
|
| if $slurp then
|
|
_query_transform_pipe_last(_query_ident)
|
|
end
|
|
| if $opts.catch_query then
|
|
# _query_query to get correct precedence and a valid query
|
|
# try (1+1) catch vs try 1 + 1 catch
|
|
_query_try(. | _query_query; $opts.catch_query)
|
|
end
|
|
| if $opts.input_query then
|
|
_query_pipe($opts.input_query; .)
|
|
end
|
|
| if $slurp then
|
|
_query_func(
|
|
$slurp;
|
|
[ # pass original, rewritten and args queries as query ast trees
|
|
( { slurp: _query_string($last_func_name)
|
|
, slurp_args:
|
|
( $last_func_args
|
|
| if . then
|
|
( map(_query_toquery)
|
|
| _query_commas
|
|
| _query_array
|
|
)
|
|
else (null | _query_array)
|
|
end
|
|
)
|
|
, orig: ($orig_query | _query_toquery)
|
|
, rewrite: _query_toquery
|
|
}
|
|
| _query_object
|
|
)
|
|
]
|
|
)
|
|
elif $opts.output_query then
|
|
_query_pipe(.; $opts.output_query)
|
|
end
|
|
)
|
|
);
|
|
|
|
# TODO: better way? what about nested eval errors?
|
|
def _eval_is_compile_error:
|
|
_is_object and .error != null and .what != null;
|
|
def _eval_compile_error_tostring:
|
|
[ (.filename // "expr")
|
|
, if .line != 1 or .column != 0 then "\(.line):\(.column)"
|
|
else empty
|
|
end
|
|
, " \(.error)"
|
|
] | join(":");
|
|
|
|
def eval($expr; $opts; on_error; on_compile_error):
|
|
( . as $c
|
|
| ($opts.filename // "expr") as $filename
|
|
| try
|
|
_eval(
|
|
$expr | _eval_query_rewrite($opts);
|
|
{filename: $filename}
|
|
)
|
|
catch
|
|
if _eval_is_compile_error then
|
|
# rewrite parse error will not have filename
|
|
( .filename = $filename
|
|
| {error: ., input: $c}
|
|
| on_compile_error
|
|
)
|
|
else
|
|
( {error: ., input: $c}
|
|
| on_error
|
|
)
|
|
end
|
|
);
|
|
def eval($expr): eval($expr; {}; .error | error; .error | error);
|