hyung-hwan/hawk
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

touched up t/h-003.hawk

Browse Source
This commit is contained in:
hyung-hwan 2022-04-09 06:10:39 +00:00
parent 4079fb4047
commit ea33f599fc
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hawk/t/bibtex-to-html.hawk
View File

@ -494,8 +494,9 @@ function do_line( n,name,s)
function output_filename(input_filename) function output_filename(input_filename)
{ {
## HAWK - for use in t/h-003.hawk ## HAWK - for use in t/h-003.hawk
return length(OUTPUT_FILENAME) > 0? OUTPUT_FILENAME: "/dev/stdout"; if (length(T_OUT_NAME) > 0) return T_OUT_NAME;
## END HAWK
if (input_filename != _last_input_filename) if (input_filename != _last_input_filename)
{ # optimization: we cache last function result for speed { # optimization: we cache last function result for speed

14
hawk/t/h-003.hawk
View File

@ -39,7 +39,7 @@ function are_files_identical(a, b)
return !diff; return !diff;
} }
function run_test (x, more_opts, in_name, redir, out_name) function run_test (x, more_opts, in_name, set_out_name, out_name)
{ {
@local cmd, inf, expf, outf, same; @local cmd, inf, expf, outf, same;
@ -51,13 +51,13 @@ function run_test (x, more_opts, in_name, redir, out_name)
outf = sprintf("/tmp/%s.%d.out", out_name, sys::getpid()); outf = sprintf("/tmp/%s.%d.out", out_name, sys::getpid());
##print TDIR, inf, expf, outf; ##print TDIR, inf, expf, outf;
if (redir) if (set_out_name)
{ {
cmd=sprintf("%s %s -f %s/%s.hawk --modlibdirs=%s %s > %s", ARGV[0], more_opts, TDIR, x, hawk::modlibdirs(), inf, outf); cmd=sprintf("%s %s -vT_OUT_NAME=%s -f %s/%s.hawk --modlibdirs=%s %s", ARGV[0], more_opts, outf, TDIR, x, hawk::modlibdirs(), inf);
} }
else else
{ {
cmd=sprintf("%s %s -vOUTPUT_FILENAME=%s -f %s/%s.hawk --modlibdirs=%s %s", ARGV[0], more_opts, outf, TDIR, x, hawk::modlibdirs(), inf); cmd=sprintf("%s %s -f %s/%s.hawk --modlibdirs=%s %s > %s", ARGV[0], more_opts, TDIR, x, hawk::modlibdirs(), inf, outf);
} }
##print cmd; ##print cmd;
system (cmd); system (cmd);
@ -77,9 +77,9 @@ function run_test (x, more_opts, in_name, redir, out_name)
function main() function main()
{ {
run_test ("journal-toc", "", @nil, 1, @nil); run_test ("journal-toc", "", @nil, 0, @nil);
run_test ("journal-toc", "-vHTML=1", "journal-toc", 1, "journal-toc-html"); run_test ("journal-toc", "-vHTML=1", "journal-toc", 0, "journal-toc-html");
run_test ("bibtex-to-html", "", "journal-toc", 0, "bibtex-to-html"); run_test ("bibtex-to-html", "", "journal-toc", 1, "bibtex-to-html");
tap_end (); tap_end ();
} }