1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
# This shows how to use Asymptote (http://asymptote.sourceforge.net/,
# or http://www.ctan.org/pkg/asymptote/)
# with latexmk. Asymptote is a vector graphics language with a
# processing program that generates graphics files that can be used in
# a LaTex file.
#
# The definitions in this file enable automatic compilation of .asy files
# containing asymptote code to be compiled to graphics files. The .asy files
# may be created as stand-alone files or may be created during a *latex
# run by the use of the asymptote package with a document that contains
# sections of asymptote code.
# The following definitions arrange to run asy with the correct output
# file type. They run asy in a verbose mode so that dependency
# information on imported files can be extracted. To avoid adding a
# lot of extra printout on the screen of unimportant messages, the
# output is sent to a log file. Since this includes error messages,
# which the user should see, latexmk types out error messages and the
# like. These definitions need latexmk 4.48 or later.
add_cus_dep("asy","eps",0,"asy2eps");
add_cus_dep("asy","pdf",0,"asy2pdf");
add_cus_dep("asy","tex",0,"asy2tex");
sub asy2eps { return asy2x( $_[0], 'eps' ); }
sub asy2pdf { return asy2x( $_[0], 'pdf' ); }
sub asy2tex { return asy2x( $_[0], 'tex' ); }
sub asy2x {
my ($base, $fmt ) = @_;
my $log_file = "$base.log";
my $cmd = "asy -vv -noV -f \"$fmt\" -o \"$base.$fmt\" \"$base\" > '$log_file' 2>&1";
print "asy2x: Running '$cmd'\n";
my $ret = system($cmd);
my $FH = undef;
if (! open( $FH, "<", $log_file ) ) {
warn "asy2x: Couldn't read log file '$log_file':\n $!";
return $ret;
}
my %imports = ("$base.asy" => 1);
while (<$FH>) {
s/\s*$//;
if (/^(Including|Loading) .* from (.*)$/) {
my $import = $2;
# Convert MSWin directory separator to /
$import =~ s(\\)(/)g;
$imports{$import} = 1;
}
elsif ( /^error/ || /^.*\.asy: \d/ ) {
warn "==Message from asy: $_\n";
$ret = 1;
}
elsif ( /^kpsewhich / || /^Processing / || /^Using /
|| /^Welcome / || /^Wrote /|| /^cd /|| /^gs /
) {
}
else {
# warn "==Message from asy: $_\n";
}
}
close $FH;
show_hash( '', \%imports );
rdb_set_source( $rule, keys %imports );
return $ret;
}
|