#!/usr/bin/perl -w

foreach $filename (@ARGV) {
    chomp $filename;
    open(TEXFILE, "<$filename");

    $notes_filename = $filename;
    $notes_filename =~ s/\.tex$/.pdfpc/;

    $pdf_filename = $filename;
    $pdf_filename =~ s/\.tex$/.pdf/;

    open(NOTESFILE, "\>$notes_filename");
    print NOTESFILE "[file]\n$pdf_filename\n[notes]\n";

    $note_record = 0;
    $slide_counter = 1;
    while ($line = <TEXFILE>) {
        # if this is a new frame
        if ($line =~ /^\\begin\{frame\}/) {
            $slide_counter++;
        }
        
        if ($line =~ /^\% pdfpc\:end/) {
            $note_record = 0;
            chomp $note_text;
            print NOTESFILE "\#\#\# $slide_counter\n$note_text\n";
        }
        
        # record if we're between a begin and an end
        if ($note_record) {
            $line_tmp = $line;
            $line_tmp =~ s/^\%\s*//; 
            $note_text = $note_text . $line_tmp;
        }

        # if this a new note
        if ($line =~ /^\% pdfpc\:begin/) {
            $note_text = "";
            $note_record = 1;
        }
    }

    close(TEXFILE);
    close(NOTESFILE);

}