ClauseFormatter/make.php at master · HebrewTools/ClauseFormatter · GitHub

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
<?php
function get_word_text($word) {
	if ($word['deleted'])
		return '';
	$text = trim($word['text']);
	if (in_array('subject', $word['specials']))
		$text = '\subj{' . $text . '}';
	if (in_array('predicate', $word['specials']))
		$text = '\pred{' . $text . '}';
	if (isset($word['note']))
		$text .= '\note{' . $word['note'] . '}';
	return $text;
}

$clause_indents = [];
function make_tex_clause($clause) {
	$tex	= '';
	if (in_array('diacritical', $clause['specials'])) {
		global $clause_indents;
		if (isset($clause_indents[$clause['indent']])) {
			$tex .= '\saveclausenrb' .
				'\clausenrb=' . $clause_indents[$clause['indent']] . "\n";
		}
	}
	$tex .= '\clausei' . $clause['indent'] . '{';
	if (in_array('diacritical', $clause['specials']))
		$tex .= '\diacritical{}';
	$tex .= implode(' ', array_map('get_word_text', $clause['words'])) . '}';
	if (in_array('diacritical', $clause['specials']))
		$tex .= '\restoreclausenrb';
	return $tex;
}

function make_tex_clauses($verse) {
	$tex = '';
	if (count($verse['clauses']) == 1) {
		$tex .= make_tex_clause($verse['clauses'][0]) . "\n";
	} else {
		global $clause_indents;
		$clause_indents = [];
		$tex .= '\clauses{' . "\n";
		$diacriticals = 0;
		foreach ($verse['clauses'] as $i => $clause) {
			$tex .= make_tex_clause($clause) . "\n";
			if (in_array('diacritical', $clause['specials']))
				$diacriticals++;
			$clause_indents[$clause['indent']] = $i - $diacriticals;
		}
		$tex .= "}\n";
	}
	return $tex;
}

function make_tex_verses($verses) {
	return implode("\n", array_map('make_tex_clauses', $verses));
}

function cleanup($dir) {
	array_map('unlink', glob($dir . '/*'));
	rmdir($dir);
}

function new_dir() {
	do { $dir = 'tmp/tmp' . rand(); } while (file_exists($dir));
	mkdir($dir);
	return $dir;
}

function make_dir($verses) {
	$dir = new_dir();

	$tex = make_tex_verses($verses);

	copy('clauses.sty', $dir . '/clauses.sty');

	$format = file_get_contents('format.tex');
	$result = str_replace('%%%CLAUSES%%%', $tex, $format);
	$result = str_replace('%%%FIRSTVERSE%%%', $verses[0]['ref'] - 1, $result);
	file_put_contents($dir . '/result.tex', $result);

	return $dir;
}

function build($dir) {
	exec("cd $dir && PATH=/usr/bin:\$PATH TEXMFHOME=/home/camil/texmf xelatex result.tex",
		$output, $return_var);
	return $return_var;
}