summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/stex/bin/idcheck
blob: d832ac7788ecd579d181eb86c134d089bb8dc46c (plain)
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
#!/usr/bin/perl -w
use strict;

use Getopt::Long;
use File::Path;
use Pod::Usage;
use TexId;



my $tex = TexId->new(progress => 1);



$tex->load_file_data('../GenCS/notes.tex');

my ($a, $b) = $tex->environments();
print $b, "\n";

print $tex->snippath(), "\n";

$tex->parse('../GenCS/notes.tex');
#print join(', ', $tex->use_env_list('omtext')), "\n";

#print $tex->edit_dist('anaIU', 'aanUI'), "\n";

$tex->check_uniq;
$tex->check_prefix;
$tex->apply_changes;