#!/usr/local/bin/perl -w
# -*- cperl -*-
=head1 NAME

tex2outlineTxt

=head1 SYNOPSYS

 RCS:$Id$

=head1 DESCRIPTION

=head1 HISTORY

 ORIGIN: created from templateApp.pl version 3.4 by Min-Yen Kan <kanmy@comp.nus.edu.sg>

 RCS:$Log$

=cut

require 5.0;
use Getopt::Std;
# use strict 'vars';
# use diagnostics;

### USER customizable section
my $tmpfile .= $0; $tmpfile =~ s/[\.\/]//g;
$tmpfile .= $$ . time;
if ($tmpfile =~ /^([-\@\w.]+)$/) { $tmpfile = $1; }		      # untaint tmpfile variable
$tmpfile = "/tmp/" . $tmpfile;
$0 =~ /([^\/]+)$/; my $progname = $1;
my $outputVersion = "1.0";
### END user customizable section

### Ctrl-C handler
sub quitHandler {
  print STDERR "\n# $progname fatal\t\tReceived a 'SIGINT'\n# $progname - exiting cleanly\n";
  exit;
}

### HELP Sub-procedure
sub Help {
  print STDERR "usage: $progname -h\t\t\t\t[invokes help]\n";
  print STDERR "       $progname -v\t\t\t\t[invokes version]\n";
  print STDERR "       $progname [-q] filename(s)...\n";
  print STDERR "Options:\n";
  print STDERR "\t-q\tQuiet Mode (don't echo license)\n";
  print STDERR "\n";
  print STDERR "Will accept input on STDIN as a single file.\n";
  print STDERR "\n";
}

### VERSION Sub-procedure
sub Version {
  if (system ("perldoc $0")) {
    die "Need \"perldoc\" in PATH to print version information";
  }
  exit;
}

sub License {
  print STDERR "# Copyright 2003 \251 by Min-Yen Kan\n";
}

###
### MAIN program
###

my $cmdLine = $0 . " " . join (" ", @ARGV);
if ($#ARGV == -1) { 		        # invoked with no arguments, possible error in execution? 
  print STDERR "# $progname info\t\tNo arguments detected, waiting for input on command line.\n";  
  print STDERR "# $progname info\t\tIf you need help, stop this program and reinvoke with \"-h\".\n";
}

$SIG{'INT'} = 'quitHandler';
getopts ('hqv');

# use (!defined $opt_X) for options with arguments
if (!$opt_q) { License(); }		# call License, if asked for
if ($opt_v) { Version(); exit(0); }	# call Version, if asked for
if ($opt_h) { Help(); exit (0); }	# call help, if asked for

## standardize input stream (either STDIN on first arg on command line)
my $fh;
my $filename;
if ($filename = shift) {
 NEWFILE:
  if (!(-e $filename)) { die "# $progname crash\t\tFile \"$filename\" doesn't exist"; }
  open (IF, $filename) || die "# $progname crash\t\tCan't open \"$filename\"";
  $fh = "IF";
} else {
  $filename = "<STDIN>";
  $fh = "STDIN";
}

# printHeader();

my $level = 1;
while (<$fh>) {
  if (/^\%/) { next; }			# skip comments
  elsif (/^\s+$/) { next; }		# skip blank lines
  else {
    s/\\\\\s*$//g;
    s/\\nl\s*$//g;
    s/\\\%/%/g;
    s/\'\'/"/g;
    s/\`\`/"/g;

    if (/^\\heading\{(.+)\}/) {
#      printText ("$1");
      print "
\n$1
\n";
    } elsif (/\\blob (.+)/) {
      my $blob = $1;
#      printItem($level, $blob);
      print "\t$blob
\n";
    } elsif (/^\s*\\begin\{(tabular|document)/i) {		      # omit certain \begin commands
      next;
    } elsif (/^\s*\\(end|documentclass|usepackage)/i) {		      # omit \end commands
      next;
    } elsif (/^\s*\\vspace/i) {					      # omit \end commands
      next;
    } elsif (/^\s*\\/) {					      # other commands not recognized
      print "\t$_
\n";
    } else {
      print "\t$_
\n";
    }
  }
}

close ($fh);

printTrailer();

if ($filename = shift) {
  goto NEWFILE;
}

###
### END of main program
###

sub printHeader {
  print <<HEAD;
{\\rtf1\\ansi\\ansicpg1252\\uc1\\deff0\\stshfdbch13\\stshfloch0\\stshfhich0\\stshfbi0\\deflang1033\\deflangfe2052{\\fonttbl{\\f0\\froman\\fcharset0\\fprq2{\\*\\panose 02020603050405020304}Times New Roman;}
{\\f2\\fmodern\\fcharset0\\fprq1{\\*\\panose 02070309020205020404}Courier New;}{\\f3\\froman\\fcharset2\\fprq2{\\*\\panose 05050102010706020507}Symbol;}{\\f10\\fnil\\fcharset2\\fprq2{\\*\\panose 05000000000000000000}Wingdings;}
{\\f13\\fnil\\fcharset134\\fprq2{\\*\\panose 02010600030101010101}SimSun{\\*\\falt ??\\'a1\\'a7??};}{\\f36\\fnil\\fcharset134\\fprq2{\\*\\panose 00000000000000000000}\@SimSun;}{\\f38\\froman\\fcharset238\\fprq2 Times New Roman CE;}
{\\f39\\froman\\fcharset204\\fprq2 Times New Roman Cyr;}{\\f41\\froman\\fcharset161\\fprq2 Times New Roman Greek;}{\\f42\\froman\\fcharset162\\fprq2 Times New Roman Tur;}{\\f43\\froman\\fcharset177\\fprq2 Times New Roman (Hebrew);}
{\\f44\\froman\\fcharset178\\fprq2 Times New Roman (Arabic);}{\\f45\\froman\\fcharset186\\fprq2 Times New Roman Baltic;}{\\f46\\froman\\fcharset163\\fprq2 Times New Roman (Vietnamese);}{\\f58\\fmodern\\fcharset238\\fprq1 Courier New CE;}
{\\f59\\fmodern\\fcharset204\\fprq1 Courier New Cyr;}{\\f61\\fmodern\\fcharset161\\fprq1 Courier New Greek;}{\\f62\\fmodern\\fcharset162\\fprq1 Courier New Tur;}{\\f63\\fmodern\\fcharset177\\fprq1 Courier New (Hebrew);}
{\\f64\\fmodern\\fcharset178\\fprq1 Courier New (Arabic);}{\\f65\\fmodern\\fcharset186\\fprq1 Courier New Baltic;}{\\f66\\fmodern\\fcharset163\\fprq1 Courier New (Vietnamese);}{\\f170\\fnil\\fcharset0\\fprq2 SimSun Western{\\*\\falt ??\\'a1\\'a7??};}
{\\f400\\fnil\\fcharset0\\fprq2 \@SimSun Western;}}{\\colortbl;\\red0\\green0\\blue0;\\red0\\green0\\blue255;\\red0\\green255\\blue255;\\red0\\green255\\blue0;\\red255\\green0\\blue255;\\red255\\green0\\blue0;\\red255\\green255\\blue0;\\red255\\green255\\blue255;\\red0\\green0\\blue128;
\\red0\\green128\\blue128;\\red0\\green128\\blue0;\\red128\\green0\\blue128;\\red128\\green0\\blue0;\\red128\\green128\\blue0;\\red128\\green128\\blue128;\\red192\\green192\\blue192;}{\\stylesheet{\\ql \\li0\\ri0\\widctlpar\\aspalpha\\aspnum\\faauto\\adjustright\\rin0\\lin0\\itap0 
\\fs24\\lang1033\\langfe2052\\loch\\f0\\hich\\af0\\dbch\\af13\\cgrid\\langnp1033\\langfenp2052 \\snext0 Normal;}{\\*\\cs10 \\additive \\ssemihidden Default Paragraph Font;}{\\*
\\ts11\\tsrowd\\trftsWidthB3\\trpaddl108\\trpaddr108\\trpaddfl3\\trpaddft3\\trpaddfb3\\trpaddfr3\\tscellwidthfts0\\tsvertalt\\tsbrdrt\\tsbrdrl\\tsbrdrb\\tsbrdrr\\tsbrdrdgl\\tsbrdrdgr\\tsbrdrh\\tsbrdrv 
\\ql \\li0\\ri0\\widctlpar\\aspalpha\\aspnum\\faauto\\adjustright\\rin0\\lin0\\itap0 \\fs20\\lang1024\\langfe1024\\loch\\f0\\hich\\af0\\dbch\\af13\\cgrid\\langnp1024\\langfenp1024 \\snext11 \\ssemihidden Normal Table;}{\\*\\cs15 \\additive \\fs20 \\sbasedon10 \\styrsid12337716 
Style 10 pt;}}{\\*\\listtable{\\list\\listtemplateid-1101475498\\listhybrid{\\listlevel\\levelnfc23\\levelnfcn23\\leveljc0\\leveljcn0\\levelfollow0\\levelstartat1\\levelspace360\\levelindent0{\\leveltext\\leveltemplateid67698689\\'01\\u-3913 ?;}{\\levelnumbers;}\\f3\\fbias0 
\\fi-360\\li720\\jclisttab\\tx720\\lin720 }{\\listlevel\\levelnfc23\\levelnfcn23\\leveljc0\\leveljcn0\\levelfollow0\\levelstartat1\\levelspace360\\levelindent0{\\leveltext\\leveltemplateid67698691\\'01o;}{\\levelnumbers;}\\f2\\fbias0 \\fi-360\\li1440\\jclisttab\\tx1440\\lin1440 }
{\\listlevel\\levelnfc23\\levelnfcn23\\leveljc0\\leveljcn0\\levelfollow0\\levelstartat1\\levelspace360\\levelindent0{\\leveltext\\leveltemplateid67698693\\'01\\u-3929 ?;}{\\levelnumbers;}\\f10\\fbias0 \\fi-360\\li2160\\jclisttab\\tx2160\\lin2160 }{\\listlevel\\levelnfc23
\\levelnfcn23\\leveljc0\\leveljcn0\\levelfollow0\\levelstartat1\\levelspace360\\levelindent0{\\leveltext\\leveltemplateid67698689\\'01\\u-3913 ?;}{\\levelnumbers;}\\f3\\fbias0 \\fi-360\\li2880\\jclisttab\\tx2880\\lin2880 }{\\listlevel\\levelnfc23\\levelnfcn23\\leveljc0
\\leveljcn0\\levelfollow0\\levelstartat1\\levelspace360\\levelindent0{\\leveltext\\leveltemplateid67698691\\'01o;}{\\levelnumbers;}\\f2\\fbias0 \\fi-360\\li3600\\jclisttab\\tx3600\\lin3600 }{\\listlevel\\levelnfc23\\levelnfcn23\\leveljc0\\leveljcn0\\levelfollow0\\levelstartat1
\\levelspace360\\levelindent0{\\leveltext\\leveltemplateid67698693\\'01\\u-3929 ?;}{\\levelnumbers;}\\f10\\fbias0 \\fi-360\\li4320\\jclisttab\\tx4320\\lin4320 }{\\listlevel\\levelnfc23\\levelnfcn23\\leveljc0\\leveljcn0\\levelfollow0\\levelstartat1\\levelspace360\\levelindent0
{\\leveltext\\leveltemplateid67698689\\'01\\u-3913 ?;}{\\levelnumbers;}\\f3\\fbias0 \\fi-360\\li5040\\jclisttab\\tx5040\\lin5040 }{\\listlevel\\levelnfc23\\levelnfcn23\\leveljc0\\leveljcn0\\levelfollow0\\levelstartat1\\levelspace360\\levelindent0{\\leveltext
\\leveltemplateid67698691\\'01o;}{\\levelnumbers;}\\f2\\fbias0 \\fi-360\\li5760\\jclisttab\\tx5760\\lin5760 }{\\listlevel\\levelnfc23\\levelnfcn23\\leveljc0\\leveljcn0\\levelfollow0\\levelstartat1\\levelspace360\\levelindent0{\\leveltext\\leveltemplateid67698693
\\'01\\u-3929 ?;}{\\levelnumbers;}\\f10\\fbias0 \\fi-360\\li6480\\jclisttab\\tx6480\\lin6480 }{\\listname ;}\\listid2093426802}}{\\*\\listoverridetable{\\listoverride\\listid2093426802\\listoverridecount0\\ls1}}{\\*\\rsidtbl \\rsid354383\\rsid419932\\rsid795985\\rsid869110
\\rsid945697\\rsid1056177\\rsid1141139\\rsid1382905\\rsid1508174\\rsid1589310\\rsid1780451\\rsid1789057\\rsid1793797\\rsid1903776\\rsid1972557\\rsid2193952\\rsid2308391\\rsid2648178\\rsid2907177\\rsid3043813\\rsid3089302\\rsid3492707\\rsid3690234\\rsid3892346\\rsid4075225
\\rsid4524140\\rsid4526057\\rsid4749689\\rsid5072499\\rsid6041209\\rsid6098920\\rsid6099702\\rsid6821546\\rsid6826020\\rsid6838186\\rsid7017228\\rsid7085994\\rsid7162651\\rsid7425308\\rsid7608632\\rsid7757762\\rsid7757779\\rsid7931232\\rsid8476791\\rsid8480702\\rsid8522252
\\rsid8716293\\rsid8945404\\rsid8998817\\rsid8999556\\rsid9204632\\rsid9334463\\rsid9383055\\rsid9511357\\rsid9581765\\rsid9779073\\rsid9787750\\rsid9842863\\rsid10054326\\rsid10113153\\rsid10242761\\rsid10512231\\rsid10753572\\rsid10951386\\rsid11231218\\rsid11757503
\\rsid11816178\\rsid12132529\\rsid12337716\\rsid12658566\\rsid12666532\\rsid12780298\\rsid12927072\\rsid13126251\\rsid13320942\\rsid14180473\\rsid14567973\\rsid14696500\\rsid14776997\\rsid15481676\\rsid15542167\\rsid15618261\\rsid15673262\\rsid15879300\\rsid15949696
\\rsid16275195\\rsid16283669\\rsid16321870\\rsid16330628\\rsid16332013\\rsid16591513\\rsid16647532}{\\*\\generator Microsoft Word 10.0.4219;}{\\info{\\title A}{\\author Min-Yen Kan}{\\operator Min-Yen Kan}{\\creatim\\yr2003\\mo12\\dy17\\hr9\\min9}
{\\revtim\\yr2003\\mo12\\dy17\\hr9\\min10}{\\version1}{\\edmins1}{\\nofpages1}{\\nofwords2}{\\nofchars14}{\\*\\company NUS}{\\nofcharsws15}{\\vern16469}}\\widowctrl\\ftnbj\\aenddoc\\noxlattoyen\\expshrtn\\noultrlspc\\dntblnsbdb\\nospaceforul\\formshade\\horzdoc\\dgmargin
\\dghspace180\\dgvspace180\\dghorigin1800\\dgvorigin1440\\dghshow1\\dgvshow1
\\jexpand\\viewkind1\\viewscale100\\pgbrdrhead\\pgbrdrfoot\\splytwnine\\ftnlytwnine\\htmautsp\\nolnhtadjtbl\\useltbaln\\alntblind\\lytcalctblwd\\lyttblrtgr\\lnbrkrule\\nobrkwrptbl\\snaptogridincell\\allowfieldendsel\\wrppunct\\asianbrkrule\\rsidroot15879300 \\fet0\\sectd 
\\linex0\\endnhere\\sectlinegrid360\\sectdefaultcl\\sftnbj {\\*\\pnseclvl1\\pnucrm\\pnstart1\\pnindent720\\pnhang {\\pntxta .}}{\\*\\pnseclvl2\\pnucltr\\pnstart1\\pnindent720\\pnhang {\\pntxta .}}{\\*\\pnseclvl3\\pndec\\pnstart1\\pnindent720\\pnhang {\\pntxta .}}{\\*\\pnseclvl4
\\pnlcltr\\pnstart1\\pnindent720\\pnhang {\\pntxta )}}{\\*\\pnseclvl5\\pndec\\pnstart1\\pnindent720\\pnhang {\\pntxtb (}{\\pntxta )}}{\\*\\pnseclvl6\\pnlcltr\\pnstart1\\pnindent720\\pnhang {\\pntxtb (}{\\pntxta )}}{\\*\\pnseclvl7\\pnlcrm\\pnstart1\\pnindent720\\pnhang {\\pntxtb (}
{\\pntxta )}}{\\*\\pnseclvl8\\pnlcltr\\pnstart1\\pnindent720\\pnhang {\\pntxtb (}{\\pntxta )}}{\\*\\pnseclvl9\\pnlcrm\\pnstart1\\pnindent720\\pnhang {\\pntxtb (}{\\pntxta )}}\\pard\\plain \\ql \\li0\\ri0\\widctlpar\\aspalpha\\aspnum\\faauto\\adjustright\\rin0\\lin0\\itap0 
HEAD
}

sub printTrailer {
  print "\}\n";
}

sub mycr {
  print "\{\\pard \\par\}\n";
}

sub printItem {
  my $level = shift @_;
  my $arg = shift @_;

  if ($level = 1) {
    print "\\par {\\listtext\\pard\\plain\\f3\\insrsid14567973 \\loch\\af3\\dbch\\af13\\hich\\f3 \\'b7\\tab}\\hich\\af0\\dbch\\af13\\loch\\f0 $arg\n";
  }
}

sub printText {
  my $arg = shift @_;
}