icarusalg/icarusalg/Geometry/gdml/make_gdml.pl File Reference

Go to the source code of this file.

Functions
	GetOptions ("input|i:s"=>\$input,"help|h"=>\$help,"output|o:s"=>\$output)
	if (defined $help)
	if (!defined $input)
foreach	$filename (@defFiles)
	open (OUTPUT) or die("Could not open $output for writing")
print OUTPUT<< EOF;<?xml version="1.0"encoding="UTF-8"?> < gdmlxmlns:gdml="http:xmlns:xsi="http:xsi:noNamespaceSchemaLocation="GDMLSchema/gdml.xsd"> EOF foreach	$keyword (@keywords)
print OUTPUT<< EOF;< setup name="Default"version="1.0"> < worldref="volWorld"/></setup > </gdml > EOF	close (OUTPUT)
sub	usage ()

Variables
	else
	$parser = new XML::LibXML
	$dom = $parser->parse_file($input)
	defFiles = $dom->findnodes('/config/constantfiles/filename')
	gdmlFiles = $dom->findnodes('/config/gdmlfiles/filename')
	$numberConstants = -1
	keywords = qw( define materials solids structure )
	$OUTPUT = ">" . $output

Function Documentation

foreach $filename

(

@

defFiles

)

Definition at line 90 of file icarusalg/icarusalg/Geometry/gdml/make_gdml.pl.

{
    $CONSTANTS = $filename->to_literal;
    open(CONSTANTS) or die("Could not open file $CONSTANTS");

    # For each line in the file...
    foreach $line (<CONSTANTS>) 
    {
        # Find the name and value as defined in a <constant> block; e.g.:
        #   <constant name="kInch"      value="2.54" />
        # will be parsed as $name="kInch" and value = "2.54"

        # If the line begins with "<constant"... 
        if ( $line =~ /^\s*\<constant / )
        {
            # (See "perldoc perlfaq6" for the definition of a non-greedy search.)
            # Do a "non-greedy" search to get the text assigned to 'name'
            $line =~ /name="(.*?)"/;
            $name = $1;
            # Do a "non-greedy" search to get the text assigned to 'value'
            $line =~ /value="(.*?)"/;
            $value = $1;

            # Append to the list of constants.  Put parenthesis around
            # the value, to avoid potential problems with arithmetic.
            ++$numberConstants;
            $name[$numberConstants] = $name;
            $value[$numberConstants] = "($value)";
            # print "$numberConstants: $name = $value[$numberConstants]\n"; # debug
        }
    }
    close(CONSTANTS);
}

print OUTPUT<<EOF;<?xml version="1.0" encoding="UTF-8" ?><gdmlxmlns:gdml="http:xmlns:xsi="http:xsi:noNamespaceSchemaLocation="GDMLSchema/gdml.xsd"> EOF foreach $keyword

(

@

keywords

)

Definition at line 183 of file icarusalg/icarusalg/Geometry/gdml/make_gdml.pl.

{
    print OUTPUT "<$keyword>";

    # Substitute any constants in the GDML with their numeric
    # equivalents. 

    # In strict GDML, this should not be necessary; according to the
    # specification, you should be able to define a constant and use
    # it in subsequent GDML statements. If you use the standard GDML
    # parser, this not a problem. ROOT, however, uses its own parser,
    # and (as of ROOT 5.16) it could not handle variables in GDML
    # expressions. So here we side-step the problem by performing our
    # own substitutions.

    # Step through this list of constants in reverse order, to resolve
    # any dependencies.

    for ( $i = $numberConstants; $i >= 0; --$i ) 
    {
        $keyhash{$keyword} =~ s/$name[$i]/$value[$i]/g;
    }

    # Print the edited section. 
    print OUTPUT $keyhash{$keyword};

    print OUTPUT "</$keyword>\n";
}

print OUTPUT<<EOF;<setup name="Default" version="1.0"><worldref="volWorld"/></setup></gdml> EOF close

(

OUTPUT

)

GetOptions	(	"input|i:s"	,
		\	$input,
		"help|h"	,
		\	$help,
		"output|o:s"	,
		\	$output
	)

if

(

defined

$help

)

Definition at line 17 of file icarusalg/icarusalg/Geometry/gdml/make_gdml.pl.

{
    # If the user requested help, print the usage notes and exit.
    usage();
    exit;
}

if

(

!defined

$input

)

Definition at line 24 of file icarusalg/icarusalg/Geometry/gdml/make_gdml.pl.

{
    # If the user has not used "-i", then just take the first
    # non-option argument.
    if ( $#ARGV > -1 )
    {
        $input = $ARGV[0];
        if ( ! -r $input )
        {
            print "Input file $input not found\n";
            usage();
            exit;
        }
    }
    else
    {
        # Read from STDIN
        $input = "-"; 
    }
}

open

(

OUTPUT

)

sub usage

(

)

Definition at line 228 of file icarusalg/icarusalg/Geometry/gdml/make_gdml.pl.

{
    print "Usage: $0 [-h|--help] [-i|--input <xml-fragments-file>] [-o|--output <output-file>]\n";
    print "       -i/--input can be omitted; if no input file, defaults to STDIN\n";
    print "       if -o is omitted, output goes to STDOUT\n";
    print "       -h prints this message, then quits\n";
}

Variable Documentation

$dom = $parser->parse_file($input)

Definition at line 69 of file icarusalg/icarusalg/Geometry/gdml/make_gdml.pl.

$numberConstants = -1

Definition at line 76 of file icarusalg/icarusalg/Geometry/gdml/make_gdml.pl.

$OUTPUT = ">" . $output

Definition at line 167 of file icarusalg/icarusalg/Geometry/gdml/make_gdml.pl.

$parser = new XML::LibXML

Definition at line 65 of file icarusalg/icarusalg/Geometry/gdml/make_gdml.pl.

defFiles = $dom->findnodes('/config/constantfiles/filename')

Definition at line 72 of file icarusalg/icarusalg/Geometry/gdml/make_gdml.pl.

else

Initial value:

{

    if ( ! -r $input )
    {
        print "Input file $input not found or cannot be read\n";
        usage();
        exit;
    }
}

if ( ! defined $output )
{
    $output = "-"; # write to STDOUT 
}




use XML::LibXML

Definition at line 45 of file icarusalg/icarusalg/Geometry/gdml/make_gdml.pl.

gdmlFiles = $dom->findnodes('/config/gdmlfiles/filename')

Definition at line 73 of file icarusalg/icarusalg/Geometry/gdml/make_gdml.pl.

keywords = qw( define materials solids structure )

Definition at line 133 of file icarusalg/icarusalg/Geometry/gdml/make_gdml.pl.