#!/usr/bin/perl
# create my resume in TeX and HTML and TXT
# December 1980-January 2002


$name = 'Avi J. Silterra';

$webpage = 'http://www.andrew.cmu.edu/~ajs2/';

$email = 'ajs2@andrew.cmu.edu';

$permaddress =
'24 Avon Road
Rochester, NY 14625
(716) 381-9152';

$localaddress = 
'1900 Wightman St Fl 1
Pittsburgh, PA 15217 
(412) 422-1012'; 


@education = (
'Carnegie Mellon University
Pittsburgh, PA
(September 1999 - May 2003)
Junior: Double major - BS in Discrete Mathematics and Logic/Logic and Computation. GPA: 3.83/4.00'

,'Penfield School District
Rochester NY
May 1999
Regents Diploma'
);

@objectives = ('Internship or summer full time employment involving research in formal logic, 
computer science, or mathematics.');

@experience = (
'Research Fellowship
May 2001-Aug 2001
Research on a distributed resource discovery algorithm( Name Dropper ).'

,'Graduate Classes
Aug 2001--May 2002
Mathematical Logic, Discrete Mathematics, Model Theory I, 
Lambda Calculus, Philosophy of Mathematics, Algebra I'

,'Undergraduate Classes
Aug 1999--May 2001
Category Theory, Constructive Logic, Computability and 
Incompleteness, Minds Machines and Knowledge, Algebraic Structures, 
Combinatorial Analysis, Logic in AI, Great Theoretical Ideas in CS, Graph 
Theory, Advanced Calculus I, Calculus in 3D, Differential Equations, 
Principles of Programming, Fundamental Structures of CS, Probability and 
Mathematical Statistics I'

,'School of Computer Science (SCS) CMU 
Aug 2000--Dec 2001
Course Assistant for 15-100, 111, 113 (introductory level classes)'

,'Institute for Complex Engineered Systems (ICES) CMU
Feb 2001--Mar 2001
Programmer for composable design simulation group'
);

$addPubs      = 0;
@publications = ();

$addCompSkills = 1;    # 1 yes, 0 no
@compskills = (
'Programming Languages:  ML, LISP (Scheme), Java, C, C++, Perl', 
'Mathematical Software: \\LaTeX, GAP, R, Maple, Mathematica',
'Operating Systems:  Unix (Linux, SunOS, Solaris), MS-DOS, Windows, Apple',
'WWW Technologies:  ASP, JavaScript, HTML, Java'
);


$addHonors = 1;    # these are really activities, I modified the program =-O
@honors = (
'Alpha Phi Omega - Service Fraternity',
'Pi Mu Epsilon   - Mathematical Honor Society',
'Society of Women Engineers -   Maverick male member'
);

## print out the TeX version

open(STDOUT, '>res.tex');

# header stuff

print("
%Lex's resume, automatically generated from $0 on: ", scalar(localtime), "
\\nofiles
\\documentstyle[resume]{article}
\\begin{document}
");

print("\\name{{\\bf $name}\\\\");
$temp = $webpage;
$temp =~ s/~/\\~{}/;
print($temp, "\\\\$email}\n");


# addresses
print("\\addresses { {\\bf Permanent Address} \\\\\n");
$temp = $permaddress;
$temp =~ s/\n/\\\\\n/g;
print("$temp\n");
print("}\n");
print("{ {\\bf Current Address} \\\\\n");
$temp = $localaddress;
$temp =~ s/\n/\\\\\n/g;
print("$temp\n");
print("}\n");

print("\\begin{llist}\n");

print("\\sectiontitle{Objective}\n");
foreach $line (@objectives){
    print("$line\\\\\n");
}
print("\\vspace{-1em}\n"); #formatting

# Education
print("\\sectiontitle{Education}\n");
foreach $place (@education) {
    $place =~ /(.*)\n(.*)\n(.*)\n(.*)/;
    print("\\employer{$1} \\location{$2}\n");
    print("$4. $3.\n\n");
}

# Experience
print("\\sectiontitle{Experience}\n");
foreach $place (@experience) {
    $place =~ /(.*)\n(.*)\n((.|\n)*)/;
    print("\\employer{$1} \\dates{$2}\n");
    print("$3\n\n");
}

# publications
if($addPubs){
  print("\\sectiontitle{Publications}\n");
  foreach $p (@publications) {
    $pub = $p;
    $pub =~ s/<em>/{\\em /;
		    $pub =~ s/<\/em>/}/;
    print("$pub\n\n");
  }
}

# Computer skills
if($addCompSkills) {
print("\\sectiontitle{Computer Skills}\n");
foreach $line (@compskills) {
    print("$line \\\\\n");
}
}

# Honors
if($addHonors) {
print("\\sectiontitle{Activities}\n");
foreach $line (@honors) {
    print("$line\\\\\n");
}
}


# finish up
print("\\end{llist}\\end{document}\n");
close(STDOUT);


## HTML version
open(STDOUT, '>res.html');

print(
"<title>Resume of Avi J. Silterra</title>
<h1>Avi J. Silterra</h1>
");

print("<h2>Objective</h2>\n<ul>\n");
foreach $line (@objectives){
    print("<li>$line\n");
}
print("</ul>\n");

print("<h2>Education</h2>\n<ul>\n");
foreach $place (@education) {
    $place =~ /(.*)\n(.*)\n(.*)\n(.*)/;
    print("<li>$4. $1, $2. $3.\n");
}
print("</ul>\n");

# Experience
print("<h2>Experience</h2>\n<ul>\n");
foreach $place (@experience) {
    $place =~ /(.*)\n(.*)\n((.|\n)*)/;
    print("<li><b>$1 ($2)</b>. $3\n");
}
print("</ul>\n");

# Publications
if($addPubs){
print("<h2>Publications</h2>\n");
print("<ul>\n");
foreach $publ (@publications) {
    print("<li>$publ\n");
}
print("</ul>\n");
}

# Computer skills
if($addCompSkills) {
print("<h2>Computer Skills</h2>\n<ul>");
foreach $line (@compskills) {
    print("<li>$line\n");
}
print("</ul>\n");
}

# Honors
if($addHonors) {
print("<h2>Activities</h2><ul>\n");
foreach $line (@honors) {
    print("<li>$line\n");
}
print("</ul>");
}

print("<h2>Contact Information</h2>\n");
print("<a href=\"mailto:$email\">$email</a>\n");
print("<pre><strong>Permanent Address</strong>\n$permaddress\n\n<strong>Current Address</strong>\n$localaddress\n</pre>\n");
print("<hr><a href=\"$webpage\">My home page: $webpage</a>\n");
# finish up
close(STDOUT);




## TXT version
open(STDOUT, '>res.txt');

print( "$name\n\n\n");

print("OBJECTIVE\n\n");
foreach $line (@objectives) {
    print("$line\n");
}

print("EDUCATION\n\n");
foreach $place (@education) {
    $place =~ /(.*)\n(.*)\n(.*)\n(.*)/;
    print("$4.\n$1, $2. $3.\n\n");
}
print("\n");

# Experience
print("EXPERIENCE\n\n");
foreach $place (@experience) {
    $place =~ /(.*)\n(.*)\n((.|\n)*)/;
    print("$1 ($2).\n$3\n\n");
}
print("\n");


# Publications
if($addPubs){
print("PUBLICATIONS\n\n");
foreach $p (@publications) {
    $publ = $p;
    $publ =~ s|<em>||;
    $publ =~ s|</em>||;
    print("$publ\n");
}
print("\n\n");
}

# Computer skills
if($addCompSkills) {
print("COMPUTER SKILLS\n\n");
foreach $line (@compskills) {
    print("$line\n");
}
print("\n\n");
}

# Honors
if($addHonors) {
print("Activities\n\n");
foreach $line (@honors) {
    print("$line\n");
}
print("\n\n");
}


# hmm, i guess put contact info at the end.
print("CONTACT INFORMATION\n\n");
print("$email\n\n");
print("$webpage\n\n");
print("Permanent address:\n");
print("$permaddress\n\n");
print("Current address:\n");
print("\n$localaddress\n");

# finish up
close(STDOUT);