[ViewVC] Diff of: cvsroot/COMP/SCRAM/src/Runtime.pm

Comparing COMP/SCRAM/src/Runtime.pm (file contents):
Revision 1.1 by williamc, Thu Mar 30 12:18:54 2000 UTC vs.
Revision 1.2 by williamc, Mon Aug 28 08:35:12 2000 UTC

-+
+#
-+
+# Runtime.pm
-+
+#
-+
+# Written by Christopher Williams
-+
+#
-+
+# Description
-+
+# -----------
-+
+# Prepare a runtime environment
-+
+#
-+
+# Interface
-+
+# ---------
-+
+# new()         : A new Runtime object
-+
+# file(file)    : Specify an environment description file
-+
+# doc(var)      : Print out any documentation for the runtime env
-+
+# list()        : return a list of all variables set
-+
+# printenv(shell) : output environment to stdout in shell format
-+
+# getvalue(var) : return a string - modified by type for the var specified
-+
-+
+package Runtime;
-+
+require 5.004;
-+
+use ActiveDoc::SimpleDoc;
-+
-+
+sub new {
-+
+        my $class=shift;
-+
+        $self={};
-+
+        $self->{Arch}=1;
-+
+        $self->{validtypes}={ 'path'=>1 };
-+
+        push @{$self->{ARCHBLOCK}}, $self->{Arch};
-+
+        bless $self, $class;
-+
+        return $self;
-+
+}
-+
-+
+sub file {
-+
+        my $self=shift;
-+
+        my $filename=shift;
-+
+        $self->_parsefile($filename);
-+
+}
-+
-+
+sub printenv {
-+
+        my $self=shift;
-+
+        my $shell=shift;
-+
-+
+        foreach $var ( @{$self->{'varlist'}} ) {
-+
+          $self->_printoutenv($shell,$var,
-+
+                $self->_expandvar($self->getvalue($var)));
-+
+        }
-+
+}
-+
-+
+sub list {
-+
+        my $self=shift;
-+
+        return @{$self->{'varlist'}};
-+
+}
-+
-+
+sub doc {
-+
+        my $self=shift;
-+
+        my $var=shift;
-+
+        return $self->{vardoc}{$var};
-+
+}
-+
-+
+sub getvalue {
-+
+        my $self=shift;
-+
+        my $name=shift;
-+
-+
+        my $string;
-+
+        my @vals=@{$self->{vars}{$name}};
-+
-+
+        if ( defined $self->{'vartype'}{$name} ) { #any type proceesing
-+
+           $string=&{"_".$self->{'vartype'}{$name}}(@vals);
-+
+        }
-+
+        else {
-+
+           $string=$vals[0];
-+
+        }
-+
+        return $string;
-+
+}
-+
-+
+# ---- Support Routines
-+
+sub _expandvar {
-+
+        my $self=shift;
-+
+        my $string=shift;
-+
-+
+        return "" , if ( ! defined $string );
-+
+         $string=~s{
-+
+                \$\((\w+)\)
-+
+        }{
-+
+          if (defined $ENV{$1}) {
-+
+                $self->_expandvar($ENV{$1});
-+
+          } else {
-+
+                "\$".$1;
-+
+          }
-+
+        }egx;
-+
+         $string=~s{
-+
+                \$(\w+)
-+
+        }{
-+
+          if (defined $ENV{$1}) {
-+
+                $self->_expandvar($ENV{$1});
-+
+          } else {
-+
+                "\$".$1;
-+
+          }
-+
+        }egx;
-+
+        return $string;
-+
+}
-+
-+
+sub _path {
-+
+        my $self=shift;
-+
+        my @vals=@_;
-+
-+
+        @vals=$self->_removedoubles(@vals);
-+
+        my $string=join ":", @vals;
-+
+        return $string;
-+
+}
-+
-+
+sub _parsefile {
-+
+        my $self=shift;
-+
+        my $filename=shift;
-+
-+
+        $self->{switch}=ActiveDoc::SimpleDoc->new();
-+
+        $self->{switch}->newparse("runtime");
-+
+        $self->{switch}->addignoretags("runtime");
-+
+        $self->{switch}->filetoparse($filename);
-+
+        $self->{switch}->addtag("runtime","Runtime",
-+
+             \&Runtime_start, $self,
-+
+             \&Runtime_text, $self,
-+
+             \&Runtime_end, $self);
-+
+        $self->{switch}->addtag("runtime","Architecture",
-+
+             \&Arch_Start, $self, "",$self, \&Arch_End, $self);
-+
+        $self->{Runtimecontext}=0;
-+
+        $self->{switch}->parse("runtime");
-+
+}
-+
-+
+sub _printoutenv {
-+
+        my $self=shift;
-+
+        my $shell=shift;
-+
+        my $variable=shift;
-+
+        my $value=shift;
-+
-+
+        if ( $shell eq "csh" ) {
-+
+          print "setenv $variable \"$value\";\n";
-+
+        }
-+
+        elsif ( $shell eq "sh" ) {
-+
+          print "$variable=\"$value\";\n";
-+
+          print "export $variable;\n";
-+
+        }
-+
+}
-+
-+
+# ------ Tag Routines
-+
-+
+sub Runtime_start {
-+
+        my $self=shift;
-+
+        my $name=shift;
-+
+        my $hashref=shift;
-+
-+
+        $self->{switch}->checktag($name,$hashref,'name');
-+
+        $self->{switch}->checktag($name,$hashref,'value');
-+
+        if ( $self->{Arch} ) {
-+
+          if ( $self->{Runtimecontext} == 1 ) {
-+
+           $self->{switch}->parseerror("No </$name> before new tag");
-+
+          }
-+
+          $self->{Runtimecontext}=1;
-+
-+
+          push @{$self->{'varlist'}}, $$hashref{'name'};
-+
+          push @{$self->{'vars'}{$$hashref{'name'}}}, $$hashref{'value'};
-+
+          if ( defined $$hashref{'type'} ) {
-+
+             if ( ( exists $self->{'vartype'}{$$hashref{'name'}} ) &&
-+
+                ( $self->{'vartype'}{$$hashref{'name'}} ne $$hashref{'type'}) ){
-+
+                   $self->{switch}->parseerror("Redefinition of Variable".
-+
+                        " type for ".$$hashref{'name'});
-+
+             }
-+
+             $self->{'vartype'}{$$hashref{'name'}}=$$hashref{'type'};
-+
+             if ( defined $self->{validtypes}{$$hashref{'type'}} ) {
-+
+                $self->{switch}->parseerror(
-+
+                     "Unknown type ".$$hashref{'type'});
-+
+             }
-+
+          }
-+
+          else {
-+
+             $self->{'vartype'}{$$hashref{'name'}}=undef;
-+
+          }
-+
+        }
-+
+}
-+
-+
+sub Runtime_text {
-+
+        my $self=shift;
-+
+        my $name=shift;
-+
+        my @vars=@_;
-+
-+
+        if ( $self->{Arch} ) {
-+
+            my $var=$self->{varlist}[$#{$self->{varlist}}];
-+
+            $self->{'vardoc'}{$var}=$self->{'vardoc'}{$var}.
-+
+                         (join "", @vars);
-+
+        }
-+
+}
-+
-+
+sub Runtime_end {
-+
+        my $self=shift;
-+
+        my $name=shift;
-+
+        if ( $self->{Arch} ) {
-+
+           $self->{Runtimecontext}=0;
-+
+        }
-+
+}
-+
-+
+sub Arch_Start {
-+
+        my $self=shift;
-+
+        my $name=shift;
-+
+        my $hashref=shift;
-+
-+
+        $toolswitch->checktag($name, $hashref,'name');
-+
+        ( ($ENV{SCRAM_ARCH}=~/$$hashref{name}.*/) )? ($self->{Arch}=1)
-+
+                                                : ($self->{Arch}=0);
-+
+        push @{$self->{ARCHBLOCK}}, $self->{Arch};
-+
+}
-+
-+
+sub Arch_End {
-+
+        my $self=shift;
-+
+        my $name=shift;
-+
-+
+        pop @{$self->{ARCHBLOCK}};
-+
+        $self->{Arch}=$self->{ARCHBLOCK}[$#{$self->{ARCHBLOCK}}];
-+
+}
-+

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing COMP/SCRAM/src/Runtime.pm (file contents): Revision 1.1 by williamc, Thu Mar 30 12:18:54 2000 UTC vs. Revision 1.2 by williamc, Mon Aug 28 08:35:12 2000 UTC

Diff Legend

Comparing COMP/SCRAM/src/Runtime.pm (file contents):
Revision 1.1 by williamc, Thu Mar 30 12:18:54 2000 UTC vs.
Revision 1.2 by williamc, Mon Aug 28 08:35:12 2000 UTC