From 5e02c12a82d9a0910da5d73f697326257d157e9d Mon Sep 17 00:00:00 2001
From: Austen Adler <stonewareslord@gmail.com>
Date: Fri, 19 Aug 2016 11:10:32 -0400
Subject: [PATCH] Added some non working code to process the top block comment

---
 process.pl | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/process.pl b/process.pl
index 32411be..301dcab 100755
--- a/process.pl
+++ b/process.pl
@@ -39,3 +39,34 @@ sub process_file {
   }
   return $data;
 }
+#sub process_comment {
+#  # The data string
+#  my $data = $_[0];
+#  # Is the author line in there?
+#  my $author = 0;
+#  # Is the description there?
+#  my $desc = 0;
+#  # Is the first name there?
+#  my $fname = 0;
+#  # Are we still in the top comment area?
+#  my $incomment = 1;
+#  # If there is no top comment in the beginning, add the base comment
+#  if ($data !~ /^\s*\/\*\*/) {
+#    $data = "/**\n * \@file $filename\n * \@author Austen Adler (agadler)\n * TODO: Description\n */\n$data";
+#    $author = 1;
+#    $desc = 1;
+#    $fname = 1;
+#  } else {
+#    # Otherwise process an existing comment
+#    while ($incomment) {
+#      if (/\s*\*\//) {
+#        $incomment = 0;
+#      } elsif (/\s*\* \@author/) {
+#      } elsif (/\s*\* \@file $filename/) {
+#      } elsif (/\s*\* \@author/) {
+#      }
+#    }
+#    
+#  }
+#  return $data;
+#}