casile 0.14.4

The command line interface to the CaSILE toolkit, a book publishing workflow employing SILE and other wizardry
Documentation 
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

#!@PERL@

use utf8;
use open ':std', ':encoding(UTF-8)';

my $offset = 0;
my $last = 0;

sub calculate_offset {
	my ($i) = @_;
	if ($i == 1) {
		$offset += $last;
	}
	$last = $i;
}

sub add_offset {
	my ($i) = @_;
	my $j = $i + $offset;
	return "[^$j]";
}

for my $line (<>) {
	if (my @matches = $line =~ /(?<!^)\[\^(\d+)\]/g) {
		for my $count (@matches) {
			calculate_offset($count);
		}
	}
	$line =~ s/\[\^(\d+)\]/add_offset($1)/ge;
	print $line;
}