Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Friday, October 16, 2026
[BACK] [TXT][DIR] Up to [Platon] / iotta / Iotta / Output

Diff for iotta/Iotta/Output/MkName.pm between version 1.1 and 1.2

version 1.1, 2003/02/16 15:48:12 version 1.2, 2003/03/30 11:33:55
Line 12  sub run {
Line 12  sub run {
         #print "using template ".$s->templ." for $outp\n";          #print "using template ".$s->templ." for $outp\n";
         $$meta{$outp} = $s->templ;          $$meta{$outp} = $s->templ;
         my $f = $$meta{$inp};          my $f = $$meta{$inp};
           my $dir = $f;
         $$meta{$outp} =~ s/\@INPUT\@/$f/g;          $$meta{$outp} =~ s/\@INPUT\@/$f/g;
         $f =~ s#^.*/##;          $f =~ s#^.*/##;
         #$f =~ s#\..*$##;          $dir =~ s#^(.*)/.*?#$1#;
         $$meta{$outp} =~ s/\@BASE\@/$f/g;          $$meta{$outp} =~ s/\@BASE\@/$f/g;
           $f =~ s#\..*?$##;
           $$meta{$outp} =~ s/\@STEM\@/$f/g;
           $$meta{$outp} =~ s/\@DIR\@/$dir/g;
         $s->next->run ($meta, $data) if ($s->next);          $s->next->run ($meta, $data) if ($s->next);
         return 0;          return 0;
 }  }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top