# -*- mode: perl; -*-

$DRAFTON = $ENV{DRAFTON};
$DRAFTON //= '';
$SHOWMARKUP = $ENV{SHOWMARKUP};
$SHOWMARKUP //= '';
$FONTFAMILY = $ENV{FONTFAMILY};
$FONTFAMILY //= '';
$ALTFONT = $ENV{ALTFONT};
$ALTFONT //= '';
$USEBIBER = $ENV{USEBIBER};
$USEBIBER //= '';
$USEFOOTCITE = $ENV{USEFOOTCITE};
$USEFOOTCITE //= '';
$BIBGROUPED = $ENV{BIBGROUPED};
$BIBGROUPED //= '';
$IMGCOMPILE = $ENV{IMGCOMPILE};
$IMGCOMPILE //= '';
$NOTESON = $ENV{NOTESON};
$NOTESON //= '';
$LATEXFLAGS = $ENV{LATEXFLAGS};
$LATEXFLAGS //= '';
$BIBERFLAGS = $ENV{BIBERFLAGS};
$BIBERFLAGS //= '';
$REGEXDIRS = $ENV{REGEXDIRS};
$REGEXDIRS //= '. Dissertation Synopsis Presentation';
$TIMERON = $ENV{TIMERON};
$TIMERON //= '0';
$TIKZFILE = $ENV{TIKZFILE};
$TIKZFILE //= '';
$USEDEV = $ENV{USEDEV};
$USEDEV //= '';


$texargs = '';
if ($DRAFTON ne '') {
    $texargs = $texargs . '\newcounter{draft}' .
        '\setcounter{draft}' . '{' . $DRAFTON . '}';
}
if ($SHOWMARKUP ne '') {
    $texargs = $texargs . '\newcounter{showmarkup}' .
        '\setcounter{showmarkup}' . '{' . $SHOWMARKUP . '}';
}
if ($FONTFAMILY ne '') {
    $texargs = $texargs . '\newcounter{fontfamily}' .
        '\setcounter{fontfamily}' . '{' . $FONTFAMILY . '}';
}
if ($ALTFONT ne '') {
    $texargs = $texargs . '\newcounter{usealtfont}' .
        '\setcounter{usealtfont}' . '{' . $ALTFONT . '}';
}
if ($USEBIBER ne '') {
    $texargs = $texargs . '\newcounter{bibliosel}' .
        '\setcounter{bibliosel}' . '{' . $USEBIBER . '}';
}
if ($USEFOOTCITE ne '') {
    $texargs = $texargs . '\newcounter{usefootcite}' .
        '\setcounter{usefootcite}' . '{' . $USEFOOTCITE . '}';
}
if ($BIBGROUPED ne '') {
    $texargs = $texargs . '\newcounter{bibgrouped}' .
        '\setcounter{bibgrouped}' . '{' . $BIBGROUPED . '}';
}
if ($IMGCOMPILE ne '') {
    $texargs = $texargs . '\newcounter{imgprecompile}' .
        '\setcounter{imgprecompile}' . '{' . $IMGCOMPILE . '}';
}
if ($IMGCOMPILE ne '') {
   $LATEXFLAGS = $LATEXFLAGS . ' -shell-escape'
}
if ($NOTESON ne '') {
    $texargs = $texargs . '\newcounter{presnotes}' .
        '\setcounter{presnotes}' . '{' . $NOTESON . '}';
}
if ($TIKZFILE ne '') {
    $texargs = $texargs . '\def' . '\tikzfilename' .
	'{' . $TIKZFILE . '}';
}

# set options for all *latex
if ( (! defined &set_tex_cmds) || (! defined $pre_tex_code) ) {
    if ($xelatex_default_switches eq '') { # for latexmk < 4.59
        $xelatex_default_switches = '-no-pdf';
    }
    $tex_cmds = $LATEXFLAGS . ' %O ' . $texargs . '\input{%T}';
    $pdflatex = 'pdflatex ' . $tex_cmds;
    $xelatex = 'xelatex ' . $tex_cmds;
    $lualatex = 'lualatex ' . $tex_cmds;
} else { # for latexmk >= 4.61
    set_tex_cmds($LATEXFLAGS . ' %O %P');
    $pre_tex_code = $texargs;
}

if ($USEDEV ne '') {
    $pdflatex =~ s/pdflatex/pdflatex-dev/g;
    $xelatex =~ s/xelatex/xelatex-dev/g;
    $lualatex =~ s/lualatex/lualatex-dev/g;
}

$biber = 'biber ' . $BIBERFLAGS . ' %O %S';
$bibtex = 'bibtex8 -B -c utf8cyrillic.csf %B';

# set to 1 to count CPU time
$show_time = $TIMERON;

# maximum number of passes
$max_repeat = 7;

# record access files
$recorder = 1;

# delete bibtex generated files
$bibtex_use = 2;

# extensions to clean with -c flag
$clean_ext = '%R.bbl %R.aux %R.lof %R.log %R.lot %R.fls %R.out %R.toc %R.run.xml %R.xdv %R.snm %R.nav %R.fmt %R.nls %R.nlo';

# extensions to clean with -C flag
$clean_full_ext = '%R.bbl %R.aux %R.lof %R.log %R.lot %R.fls %R.out %R.toc %R.run.xml %R.xdv %R.snm %R.nav %R.nls %R.nlo';

# this option is for debugging
# 0 to silently delete files, 1 to show what would be deleted
$remove_dryrun = 0;

## Core latex/pdflatex auxiliary files:
@clean_regexp = ('*.aux',
                 '*.lof',
                 '*.log',
                 '*.lot',
                 '*.fls',
                 '*.out',
                 '*.toc',
                 '*.fmt');
## Intermediate documents:
# these rules might exclude image files for figures etc.
# *.ps
# *.eps
# *.pdf
push(@clean_regexp,
     '*.dvi',
     '*-converted-to.*',
     '*xdv'
    );

## Bibliography auxiliary files (bibtex/biblatex/biber):
push(@clean_regexp,
     '*.bbl',
     '*.bcf',
     '*.blg',
     '*-blx.aux',
     '*-blx.bib',
     '*.brf',
     '*.run.xml'
    );

## Build tool auxiliary files:
push(@clean_regexp,
     '*.fdb_latexmk',
     '*.synctex',
     '*.synctex.gz',
     '*.synctex.gz\(busy\)',
     '*.pdfsync',
    );


## Auxiliary and intermediate files from other packages:

# algorithms
push(@clean_regexp,
     '*.alg',
     '*.loa',
    );

# achemso
push(@clean_regexp,
     'acs-*.bib',
    );

# amsthm
push(@clean_regexp,
     '*.thm',
    );

# beamer
push(@clean_regexp,
     '*.nav',
     '*.snm',
     '*.vrb',
    );

#(e)ledmac/(e)ledpar
push(@clean_regexp,
     '*.end',
     '*.[1-9]',
     '*.[1-9][0-9]',
     '*.[1-9][0-9][0-9]',
     '*.[1-9]R',
     '*.[1-9][0-9]R',
     '*.[1-9][0-9][0-9]R',
     '*.eledsec[1-9]',
     '*.eledsec[1-9]R',
     '*.eledsec[1-9][0-9]',
     '*.eledsec[1-9][0-9]R',
     '*.eledsec[1-9][0-9][0-9]',
     '*.eledsec[1-9][0-9][0-9]R',
    );

# glossaries
push(@clean_regexp,
     '*.acn',
     '*.acr',
     '*.glg',
     '*.glo',
     '*.gls',
    );

# gnuplottex
push(@clean_regexp,
     '*-gnuplottex-*',
    );

# hyperref
push(@clean_regexp,
     '*.brf',
    );

# knitr
push(@clean_regexp,
     '*-concordance.tex',
     '*-tikzDictionary',
    );
# '*.tikz',

# listings
push(@clean_regexp,
     '*.lol',
    );

# makeidx
push(@clean_regexp,
     '*.idx',
     '*.ilg',
     '*.ind',
     '*.ist',
    );

# minitoc
push(@clean_regexp,
     '*.maf',
     '*.mtc',
     '*.mtc[0-9]',
     '*.mtc[1-9][0-9]',
    );

# minted
push(@clean_regexp,
     '_minted*',
     '*.pyg',
    );

# morewrites
push(@clean_regexp,
     '*.mw',
    );

# mylatexformat
push(@clean_regexp,
     '*.fmt',
    );

# nomencl
push(@clean_regexp,
     '*.nlo',
    );

# sagetex
push(@clean_regexp,
     '*.sagetex.sage',
     '*.sagetex.py',
     '*.sagetex.scmd',
    );

# sympy
push(@clean_regexp,
     '*.sout',
     '*.sympy',
    );
# sympy-plots-for-*.tex/

# pdfcomment
push(@clean_regexp,
     '*.upa',
     '*.upb',
    );

# pythontex
push(@clean_regexp,
     '*.pytxcode',
    );
# pythontex-files-*/

# Texpad
push(@clean_regexp,
     '.texpadtmp',
    );

# TikZ & PGF
push(@clean_regexp,
     '*.dpth',
     '*.md5',
     '*.auxlock',
    );

# todonotes
push(@clean_regexp,
     '*.tdo',
    );

# xindy
push(@clean_regexp,
     '*.xdy',
    );

# WinEdt
push(@clean_regexp,
     '*.bak',
     '*.sav',
    );

# GnuEmacs
push(@clean_regexp,
     '*~',
    );

# endfloat
push(@clean_regexp,
     '*.ttt',
     '*.fff',
     '*.aux',
     '*.bbl',
     '*.blg',
     '*.dvi',
     '*.fdb_latexmk',
     '*.fls',
     '*.glg',
     '*.glo',
     '*.gls',
     '*.idx',
     '*.ilg',
     '*.ind',
     '*.ist',
     '*.lof',
     '*.log',
     '*.lot',
     '*.nav',
     '*.nlo',
     '*.out',
     '*.pdfsync',
     '*.ps',
     '*.snm',
     '*.synctex.gz',
     '*.toc',
     '*.vrb',
     '*.maf',
     '*.mtc',
     '*.mtc0',
     '*.bak',
     '*.bcf',
     '*.run.xml',
    );

# latexindent backup
push(@clean_regexp,
     '*.bak[0-9]',
    );

# compressed pdf file
push(@clean_regexp,
     '*_compressed.pdf',
    );

# biber tool
push(@clean_regexp,
     'bibcheck.log',
     '*_bibertool.bib',
    );

########################################################
# functions

# Custom dependency and function for nomencl package
add_cus_dep( 'nlo', 'nls', 0, 'makenlo2nls' );
sub makenlo2nls {
    system( "makeindex -s nomencl.ist -o \"$_[0].nls\" \"$_[0].nlo\"" );
}

sub regexp_cleanup {
    my @clean_regexp_dirs = split /(?<=\s)/, $REGEXDIRS;
    foreach my $dir (@clean_regexp_dirs) {
        $dir =~ s/^\s*(.*?)\s*$/$1/;
        foreach my $pattern (@clean_regexp)
        {
            my @files = glob "$dir/$pattern";
            foreach my $file (@files) {
                if ($remove_dryrun == 0) {
                    unlink_or_move( glob( "$file" ) );
                } else {
                    print "Would be removed: $file\n";
                }
            }
        }
    }
}

{
    no warnings 'redefine';
    sub cleanup1 {
        # Usage: cleanup1( directory, exts_without_period, ... )
        #
        # The directory and the root file name are fixed names, so I must escape
        #   any glob metacharacters in them:
        my $dir = fix_pattern( shift );
        my $root_fixed = fix_pattern( $root_filename );
        foreach (@_) {
            my $name = /%R/ ? $_ : "%R.$_";
            $name =~ s/%R/${root_fixed}/;
            $name = $dir.$name;
            if ($remove_dryrun == 0) {
                unlink_or_move( glob( "$name" ) );
            } else {
                print "Would be removed: $name\n";
            }
        }
        if ($cleanup_mode == 1) {
            regexp_cleanup();
        }
    } #END cleanup1
}