23 lines
418 B
Awk
23 lines
418 B
Awk
#!/usr/bin/awk -f
|
|
|
|
BEGIN { FS="[(); ]" }
|
|
|
|
/small_angle constant real default radians/ {
|
|
x1 += 1;
|
|
d1 = sprintf("\\newcommand{\\smallAngle}{\\frac{\\pi}{%d}}",180/$8);
|
|
}
|
|
/isolation_threshold constant real default / {
|
|
x2 += 1;
|
|
d2 = sprintf("\\newcommand{\\isolationThreshold}{%.2f}",$7);
|
|
|
|
}
|
|
|
|
END{
|
|
if(x1 == 1 && x2 == 1) {
|
|
print d1 > "vars.inc.tex"
|
|
print d2 >> "vars.inc.tex"
|
|
} else {
|
|
exit 1
|
|
}
|
|
}
|