mirror of
https://github.com/nasa/trick.git
synced 2024-12-20 13:43:10 +00:00
59 lines
3.2 KiB
Perl
59 lines
3.2 KiB
Perl
package html ;
|
|
|
|
# $Id: html.pm 3177 2013-08-22 14:39:36Z alin $
|
|
|
|
use Exporter ();
|
|
use File::Basename ;
|
|
@ISA = qw(Exporter);
|
|
@EXPORT = qw(extract_trick_header );
|
|
|
|
use strict ;
|
|
|
|
sub extract_trick_header($$$$) {
|
|
|
|
my ($file_name , $contents, $verbose, $indent) = @_ ;
|
|
my $trick_header = "" ;
|
|
my %header ;
|
|
|
|
if ($contents =~ /\/\*((.*?)PURPOSE:(.*?))\*+\//is ) {
|
|
$trick_header = $1 ;
|
|
$trick_header =~ s/^.*?([A-Za-z])/$1/s ;
|
|
$trick_header =~ s/(\))[^)]*$/$1/s ;
|
|
$trick_header =~ s/
|
|
//g ;
|
|
}
|
|
|
|
$header{doc_title} = $1 if $trick_header =~ /DOC TITLE:[^(]*(.*?)\)([A-Z _\t\n\r]+:|[ \t\n\r]*$)/si ;
|
|
$header{purpose} = $1 if $trick_header =~ /PURPOSE:[^(]*(.*?)\)([A-Z _\t\n\r]+:|[ \t\n\r]*$)/si ;
|
|
$header{reference} = $1 if $trick_header =~ /REFERENCE:[^(]*(.*?)\)([A-Z _\t\n\r]+:|[ \t\n\r]*$)/si ;
|
|
$header{requirements} = $1 if $trick_header =~ /REQUIREMENTS:[^(]*(.*?)\)([A-Z _\t\n\r]+:|[ \t\n\r]*$)/si ;
|
|
$header{"assumptions and limitations"} = $1 if $trick_header =~ /ASSUMPTIONS AND LIMITATIONS:[^(]*(.*?)\)([A-Z _\t\n\r]+:|[ \t\n\r]*$)/si ;
|
|
$header{class} = $1 if $trick_header =~ /CLASS:[^(]*(.*?)\)([A-Z _\t\n\r]+:|[ \t\n\r]*$)/si ;
|
|
$header{libdep} = $2 if $trick_header =~ /LIBRARY[ _]DEPENDENC(Y|IES):[^(]*(.*?)\)([A-Z _\t\n\r]+:|[ \t\n\r]*$)/si ;
|
|
$header{iodep} = $2 if $trick_header =~ /IO DEPENDENC(Y|IES):[^(]*(.*?)\)([A-Z _\t\n\r]+:|[ \t\n\r]*$)/si ;
|
|
$header{icg_ignore} = $2 if $trick_header =~ /ICG[ _]IGNORE[ _]TYPE(S)?:[^(]*(.*?)\)([A-Z _\t\n\r]+:|[ \t\n\r]*$)/si ;
|
|
$header{default_data} = $1 if $trick_header =~ /DEFAULT[ _]DATA:[^(]*(.*?)\)([A-Z _\t\n\r]+:|[ \t\n\r]*$)/si ;
|
|
$header{python_module} = $1 if $trick_header =~ /PYTHON[ _]MODULE:[^(]*(.*?)\)([A-Z _\t\n\r]+:|[ \t\n\r]*$)/si ;
|
|
$header{programmers} = $1 if $trick_header =~ /PROGRAMMERS:[^(]*(.*?)\)([A-Z _\t\n\r]+:|[ \t\n\r]*$)/si ;
|
|
$header{language} = $1 if $trick_header =~ /LANGUAGE:[^(]*(.*?)\)([A-Z _\t\n\r]+:|[ \t\n\r]*$)/si ;
|
|
|
|
# if ( $verbose ) {
|
|
# print " "x$indent , "/*\n" ;
|
|
# print " "x($indent+3) , "DOC TITLE:\n\t$header{doc_title})\n" if ( exists $header{doc_title} ) ;
|
|
# print " "x($indent+3) , "PURPOSE:\n\t$header{purpose})\n" if ( exists $header{purpose} ) ;
|
|
# print " "x($indent+3) , "REFERENCE:\n\t$header{reference})\n" if ( exists $header{reference} ) ;
|
|
# print " "x($indent+3) , "ASSUMPTIONS AND LIMITATIONS:\n\t$header{assump})\n" if ( exists $header{assump} ) ;
|
|
# print " "x($indent+3) , "CLASS:\n\t$header{class})\n" if ( exists $header{class} ) ;
|
|
# print " "x($indent+3) , "LIBRARY DEPENDENCIES:\n\t$header{libdep})\n" if ( exists $header{libdep} ) ;
|
|
# print " "x($indent+3) , "PROGRAMMERS:\n\t$header{program})\n" if ( exists $header{program} ) ;
|
|
# print " "x($indent+3) , "LANGUAGE:\n\t$header{language})\n" if ( exists $header{language} ) ;
|
|
# print " "x$indent , "*/\n\n" ;
|
|
# }
|
|
|
|
$header{language} = "CPP" if ( $header{language} =~ /c[p\+]+/i ) ;
|
|
|
|
return %header ;
|
|
|
|
}
|
|
|
|
1;
|