Changeset 1731

Timestamp:

2000-11-30T18:42:24+13:00 (23 years ago)

Author:

jrm21

Message:

New and improved! Now gets #include information from std C files as well.
(It should have done it before anyway)

File:

• trunk/gsdl/perllib/plugins/SRCPlug.pm (modified) (7 diffs)

trunk/gsdl/perllib/plugins/SRCPlug.pm

@@ -1 +1 @@
 ###########################################################################
 #
-# SRCPlug.pm -- source code  plugin
+# SRCPlug.pm -- source code plugin
+#
 # A component of the Greenstone digital library software
 # from the New Zealand Digital Library Project at the 
@@ -25 +26 @@
 # John McPherson Nov 2000
 # originally based on TEXTPlug
+
 # filename is currently used for Title ( optionally minus some prefix )
+
+# Current languages:
+#   text: READMEs/Makefiles
+#   C/C++   (currently extracts #include statements and C++ class decls)
+#   Perl    (currently only done as text)
+#   Shell   (currently only done as text)
+
 
 package SRCPlug;
@@ -75 +84 @@
 }
 
+
+
 # do plugin specific processing of doc_obj
 sub process {
@@ -111 +122 @@
     if ($filetype eq "C++") 
     {
-    return process_c_plus_plus($textref,$pluginfo, $base_dir, 
+    process_c_plus_plus($textref,$pluginfo, $base_dir, 
                    $file, $metadata, $doc_obj);
-    }
+    } elsif ($filetype eq "C")
+    {
+    get_includes_metadata($textref, $doc_obj);
+    }
+
+
      # default operation...
      # insert preformat tags and add text to document object
@@ -122 +138 @@
 
 
-sub process_c_plus_plus {
-    my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj) = @_;
-
+
+
+sub get_includes_metadata {
+    my ($textref, $doc_obj) = @_;
+    
     my $topsection = $doc_obj->get_top_section();
-
-
 
     # Get '#include' directives for metadata
@@ -159 +175 @@
     }
     }
-
+}
+
+
+
+sub process_c_plus_plus {
+    my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj) = @_;
+
+    my $topsection = $doc_obj->get_top_section();
+
+
+    # Check for include metadata
+    get_includes_metadata($textref, $doc_obj);
 
 
@@ -200 +227 @@
     } # end of "class"
 
-
-
-
-    # insert preformat tags and add text to document object
-    $doc_obj->add_utf8_text($topsection, "<pre>\n$$textref\n</pre>");
-
     return 1;
 }