diff options
Diffstat (limited to 'Build/tools/etc/reindent-workingtpm.pl')
-rw-r--r-- | Build/tools/etc/reindent-workingtpm.pl | 144 |
1 files changed, 144 insertions, 0 deletions
diff --git a/Build/tools/etc/reindent-workingtpm.pl b/Build/tools/etc/reindent-workingtpm.pl new file mode 100644 index 00000000000..0c42b724b3e --- /dev/null +++ b/Build/tools/etc/reindent-workingtpm.pl @@ -0,0 +1,144 @@ + +my @WorkingTPM = qw( + 12many + a0poster aastex abbr abc abstract accfonts acmtrans acronym + active-conf aguplus algorithm2e algorithmicx algorithms + alnumsec ams amscls amsldoc-it amsltx2 amsmath amsrefs + amsthdoc-it apacite appendix arabtex archaic arcs arev + armenian arrayjob arydshln ascii assignment attachfile + aurical + babelbib beamer beamer-tut-pt beebe begriff betababel bezos + bghyphen bibhtml bibleref bibtopic bibunits bigfoot + birthday bitfield blacklettert1 blindtext booklet bophook + boxhandler breakurl bussproofs bytefield + caption carlisle cbcoptic ccaption cdpbundl cellspace + changebar chappg chem-journal chemcompounds cherokee circ + citeref cjhebrew clefval clock cmdtrack cmll colorinfo + colortbl commath compactbib complexity comprehensive + computational-complexity cool coollist coolstr cooltooltips + coordsys courier-scaled courseoutline coursepaper coverpage + crop csquotes ctable cursolatex curve curve2e curves + custom-bib cvsty cyrillic + dancers dashbox dateiliste datetime dcpic decimal digiconfigs + dinat dingbat directory dk-bib doipubmed dottex + draftwatermark dramatist dtxtut dvdcoll dvipsconfig dyntree + ebong eCards economic ednotes eemeir egameps egplot eijkhout + ellipsis elpres elsevier emulateapj endfloat endheads + engrec enumitem envbig epiolmec epsf eqparbox es-tex-faq + ESIEEcv esint esint-type1 eskd eskdx eso-pic etaremune + ethiop ethiop-t1 euro europecv eurosans everypage exam + examdesign examplep exercise expressg extarrows exteps + extpfeil extsizes + faktor fancyhdr fancynum fax featpost filecontents fixme + flagderiv flippdf floatflt floatrow flowfram fltpoint + fmtcount fncychap foekfont fontch fontspec forloop formular + fourier fp free-math-font-survey frenchle fribrief functan + galois gatech-thesis genmisc genmpage germbib ginpenc + glossary gnuplottex gost graphics graphicx-psmin greenpoint + grnumalt GuIT + HA-prosper hands hepthesis hhtensor hitec hrlatex hvfloat + hyperref hyperxmp hyphen-base hyphen-basque hyphen-german + hyphen-greek hyphen-norwegian hyphen-ukenglish + hyphen-usorbian hyplain + ibygrk icsv IEEEconf IEEEtran ifxetex inlinebib invoice + iopart-num isorot isotope + jneurosci jpsj juramisc + kalender kerkis keystroke koma-script + l2picfaq l2tabu-english labelcas labels latex latex-tds + layouts lcd lcg leaflet leawood ledmac lewis lfb lgreek lh + limap linearA lineno lipsum listings listliketab lkproof + logpap lsc lshort-bulgarian lshort-dutch lshort-english + lshort-finnish lshort-french lshort-german lshort-italian + lshort-japanese lshort-korean lshort-mongolian + lshort-polish lshort-portuguese lshort-slovak + lshort-spanish lshort-thai lshort-turkish lshort-ukrainian + lshort-vietnamese ltablex ltabptch ltxindex ltxmisc + mafr magyar mailing makebox makecell makecirc makeglos + makeplot maple marginnote mathdots mathmode maybemath + mcaption mceinleger mdwtools memoir MemoirChapStyles mentis + menu metaobj metaplot metatex metauml mfpic mftinc mhchem + mhs microtype minipage-marginpar minitoc minitoc mla-paper + moderncv movie15 msg multicap munich muthesis mwcls mwrite + nag natbib nath nature ncclatex ncctools newlfm nih noitcrul + nomencl nomentbl ntgclass ntheorem-vn numline numprint + oberdiek ocr-latex octavo ofs ogham oldstyle opcit + papercdcase paresse parrun pauldoc pdf-trans pdfcprot + pdfpages pdfscreen pdftex-def perception perltex permute + pgf phaistos pict2e pictex pittetd placeins plari plates + poemscol polynom powerdot ppr-prv pracjourn preprint + prettyref preview probsoln program protocol pseudocode + psfrag psnfss pspicture pst-3d pst-3dplot pst-bar + pst-barcode pst-blur pst-eucl pst-fr3d pst-func pst-labo + pst-lens pst-math pst-optic pst-osci pst-pdf pst-pdgr + pst-slpe pst-uml pstricks pstricks-add + qcm qtree + randbild rccol rcsinfo refstyle resume robustcommand + robustindex rsc rtkinenc rtklage + sae sauerj sauterfonts savefnmark savesym savetrees scale + scalebar scientificpaper sciposter screenplay script + sectionbox sectsty semantic semaphor seminar semioneside + seqsplit setspace sf298 sffms sgame shadbox shapepar + shorttoc showdim showexpl showlabels sidecap sides siggraph + SIstyle SIunits skaknew slideshow smalltableof smartref + snapshot songbook sort-by-letters soul sparklines spie + splines splitbib splitindex spotcolor sprite srcltx sseq + ssqquote stack stage stdclsdv stdpage stellenbosch struktex + sttools subeqn subeqnarray subfig subfloat substr sudoku + sudokubundle sugconf supertabular svn svn-multi svninfo + swebib syntax syntrace synttree + t-angles Tabbing tableaux tabulary tabvar talk tamethebeast + tengwarscript tensor teubner tex-refs texmate texshade + textcase textfit textopo textpos thesis-titlepage-fhac + thumb thumbpdf ticket titlefoot titlesec titling tocbibind + tocloft todo tokenizer toolbox tools totpages tracking + trajan trfsigns trsym tugboat twoup Type1fonts typedref + typogrid + ucthesis uhrzeit uiucthesis umich-thesis umlaute underlin + undertilde units unitsdef upquote ushort + vancouver variations varindex vector velthuis verse versions + vhistory visualfaq vmargin volumes vpe + wallpaper warning warpcol williams wordlike wrapfig + xcolor xifthen xkeyval xltxtra xq xtab xyling xypic-tut-pt + xytree + york-thesis + ); + + + +my @foo = sort {uc($a) cmp uc($b)} @WorkingTPM; + +print_foo(@foo); + + +sub firstletter { + my ($bar) = @_; + my @foo = split //, $bar; + return(uc($foo[0])); +} + +sub print_foo { + my(@foo) = @_; + my $newletter = 1; + my $curline = ""; + my $curletter = ""; + my $initshift = " "; + my $medshift = " "; + foreach $t (@foo) { + my $fl = firstletter($t); + if ($fl eq $curletter) { + if (length($curline) + 1 + length($t) >= 70) { + print "$curline\n"; + $curline = "$initshift$medshift$t"; + } else { + $curline .= " $t"; + } + } else { + print "$curline\n"; + $curline = "$initshift$t"; + $curletter = $fl; + } + } + print $curline; +} + + |