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
|
#!/bin/bash
# Copyright (C) 2021 by Robert J Lee
#
# This file may be distributed and/or modified under the
# conditions of the LaTeX Project Public License, either
# version 1.3 of this license or (at your option) any later
# version. The latest version of this license is in:
#
# http://www.latex-project.org/lppl.txt
#
# and version 1.3 or later is part of all distributions of
# LaTeX version 2005/12/01 or later.
#
# A utility script to find the best seed number for a particular gamebook
#
# Prerequisites: bash, tee, tail, egrep, pdflatex, perl with Sort::Naturally
#
# To install Sort::Naturally, you can simply type "cpan install Sort::Naturally"
# assuming Perl is installed.
#
# First keep a backup of your .tex file, just in case.
#
# Next, ensure that you have a line containing "seed=<numerals>,"
# (including the comma) in your .tex file.
#
# The first occurence will be replaced with a sequence of numbers in turn,
# the PDF regenerated, and the number of output pages with each number reported
# on, first by seed number, then by reversed number of pages (smallest last).
# It's then up to you to choose the seed number appropriate for your work.
#
# Use this script with caution as it will edit your source file.
#
# The script may be placed on the system path or copied to the working directory.
file=${1}
if [[ -z $file ]]; then
echo "Usage: $0 <file>.tex"
exit 1
fi
egrep -q "seed=[0-9]+," $file || (
echo "$1 Does not contain \\usepackage[seed=123,quiet]{lcg}"
exit 2
);
pdf="pdflatex -interaction=nonstopmode $file"
cp $file $file~ || exit 3
# FOR seed in (1..1000)
for seed in $(perl -e 'for (1..1000){print "$_\n"}'); do
# edit $file and replace any seed values
perl -i -pe "s/seed=[0-9]*,/seed=$seed,/" $file
# Run it through LaTeX, stripping out the line of output containing the number of pages, and then
# add the seed value
echo $($pdf 2>&1 | grep 'pages' | tail -n 1 | perl -pe "chomp") "; seed=$seed";
done | \
# report on the output as we get it, and report on the sorted pages at the end.
# (sort numerically by first numeral on lines with identical prefix)
perl -MSort::Naturally -pe \
'{push @lines, $_}; END{print "SORTED:"; print reverse nsort(@lines)}'
|
