Meta
view release on metacpan or search on metacpan
Meta/Baseline/Switch.pm view on Meta::CPAN
#!/bin/echo This is a perl module and should not be run
package Meta::Baseline::Switch;
use strict qw(vars refs subs);
use Meta::Ds::Array qw();
use Meta::Utils::System qw();
use Meta::Baseline::Lang::Aspe qw();
use Meta::Baseline::Lang::Temp qw();
use Meta::Baseline::Lang::Ccxx qw();
use Meta::Baseline::Lang::Cxxx qw();
use Meta::Baseline::Lang::Sgml qw();
use Meta::Baseline::Lang::Java qw();
use Meta::Baseline::Lang::Lily qw();
use Meta::Baseline::Lang::Perl qw();
use Meta::Baseline::Lang::Pyth qw();
use Meta::Baseline::Lang::Rule qw();
use Meta::Baseline::Lang::Txtx qw();
use Meta::Baseline::Lang::Data qw();
use Meta::Baseline::Lang::Rcxx qw();
use Meta::Baseline::Lang::Patc qw();
use Meta::Baseline::Lang::Ascx qw();
use Meta::Baseline::Lang::Html qw();
use Meta::Baseline::Lang::Cssx qw();
use Meta::Baseline::Lang::Dirx qw();
use Meta::Baseline::Lang::Cook qw();
use Meta::Baseline::Lang::Aegi qw();
use Meta::Baseline::Lang::Xmlx qw();
use Meta::Baseline::Lang::Xslt qw();
use Meta::Baseline::Lang::Pngx qw();
use Meta::Baseline::Lang::Pgnx qw();
use Meta::Baseline::Lang::Jpgx qw();
use Meta::Baseline::Lang::Epsx qw();
use Meta::Baseline::Lang::Awkx qw();
use Meta::Baseline::Lang::Conf qw();
use Meta::Baseline::Lang::Targ qw();
use Meta::Baseline::Lang::Texx qw();
use Meta::Baseline::Lang::Deps qw();
use Meta::Baseline::Lang::Chec qw();
use Meta::Baseline::Lang::Clas qw();
use Meta::Baseline::Lang::Dvix qw();
use Meta::Baseline::Lang::Chun qw();
use Meta::Baseline::Lang::Objs qw();
use Meta::Baseline::Lang::Psxx qw();
use Meta::Baseline::Lang::Info qw();
use Meta::Baseline::Lang::Rtfx qw();
use Meta::Baseline::Lang::Mifx qw();
use Meta::Baseline::Lang::Midi qw();
use Meta::Baseline::Lang::Bins qw();
use Meta::Baseline::Lang::Dlls qw();
use Meta::Baseline::Lang::Libs qw();
use Meta::Baseline::Lang::Pyob qw();
use Meta::Baseline::Lang::Dtdx qw();
use Meta::Baseline::Lang::Swig qw();
use Meta::Baseline::Lang::Gzxx qw();
use Meta::Baseline::Lang::Pack qw();
use Meta::Baseline::Lang::Dslx qw();
use Meta::Baseline::Lang::Pdfx qw();
use Meta::Baseline::Lang::Dbxx qw();
use Meta::Baseline::Lang::Manx qw();
use Meta::Baseline::Lang::Nrfx qw();
use Meta::Baseline::Lang::Bdbx qw();
use Meta::Baseline::Lang::Late qw();
use Meta::Baseline::Lang::Lyxx qw();
use Meta::Info::Enum qw();
use Meta::Utils::Output qw();
use Meta::Pdmt::BuildInfo qw();
use Meta::Tool::Gzip qw();
use Meta::Tool::Ps2Pdf qw();
use Error qw(:try);
our($VERSION,@ISA);
$VERSION="0.57";
@ISA=qw();
#sub get_count($);
#sub get_own($);
#sub get_module($);
#sub get_type_enum();
#sub get_lang_enum();
#sub run_module($$$$$$);
#sub TEST($);
my($arra);
BEGIN {
$arra=Meta::Ds::Array->new();
$arra->push("Meta::Baseline::Lang::Aspe");
$arra->push("Meta::Baseline::Lang::Temp");
$arra->push("Meta::Baseline::Lang::Ccxx");
$arra->push("Meta::Baseline::Lang::Cxxx");
$arra->push("Meta::Baseline::Lang::Sgml");
$arra->push("Meta::Baseline::Lang::Java");
$arra->push("Meta::Baseline::Lang::Lily");
$arra->push("Meta::Baseline::Lang::Perl");
$arra->push("Meta::Baseline::Lang::Pyth");
$arra->push("Meta::Baseline::Lang::Rule");
$arra->push("Meta::Baseline::Lang::Txtx");
$arra->push("Meta::Baseline::Lang::Data");
$arra->push("Meta::Baseline::Lang::Rcxx");
$arra->push("Meta::Baseline::Lang::Patc");
$arra->push("Meta::Baseline::Lang::Ascx");
$arra->push("Meta::Baseline::Lang::Html");
$arra->push("Meta::Baseline::Lang::Cssx");
$arra->push("Meta::Baseline::Lang::Dirx");
$arra->push("Meta::Baseline::Lang::Cook");
$arra->push("Meta::Baseline::Lang::Aegi");
$arra->push("Meta::Baseline::Lang::Xmlx");
$arra->push("Meta::Baseline::Lang::Xslt");
$arra->push("Meta::Baseline::Lang::Pngx");
$arra->push("Meta::Baseline::Lang::Pgnx");
$arra->push("Meta::Baseline::Lang::Jpgx");
$arra->push("Meta::Baseline::Lang::Epsx");
$arra->push("Meta::Baseline::Lang::Awkx");
$arra->push("Meta::Baseline::Lang::Conf");
$arra->push("Meta::Baseline::Lang::Targ");
$arra->push("Meta::Baseline::Lang::Texx");
$arra->push("Meta::Baseline::Lang::Deps");
$arra->push("Meta::Baseline::Lang::Chec");
$arra->push("Meta::Baseline::Lang::Clas");
$arra->push("Meta::Baseline::Lang::Dvix");
$arra->push("Meta::Baseline::Lang::Chun");
$arra->push("Meta::Baseline::Lang::Objs");
$arra->push("Meta::Baseline::Lang::Psxx");
$arra->push("Meta::Baseline::Lang::Info");
$arra->push("Meta::Baseline::Lang::Rtfx");
$arra->push("Meta::Baseline::Lang::Mifx");
$arra->push("Meta::Baseline::Lang::Midi");
$arra->push("Meta::Baseline::Lang::Bins");
$arra->push("Meta::Baseline::Lang::Dlls");
$arra->push("Meta::Baseline::Lang::Libs");
$arra->push("Meta::Baseline::Lang::Pyob");
$arra->push("Meta::Baseline::Lang::Dtdx");
$arra->push("Meta::Baseline::Lang::Swig");
$arra->push("Meta::Baseline::Lang::Gzxx");
$arra->push("Meta::Baseline::Lang::Pack");
$arra->push("Meta::Baseline::Lang::Dslx");
$arra->push("Meta::Baseline::Lang::Pdfx");
$arra->push("Meta::Baseline::Lang::Dbxx");
$arra->push("Meta::Baseline::Lang::Manx");
$arra->push("Meta::Baseline::Lang::Nrfx");
$arra->push("Meta::Baseline::Lang::Bdbx");
$arra->push("Meta::Baseline::Lang::Late");
$arra->push("Meta::Baseline::Lang::Lyxx");
}
#__DATA__
sub get_count($) {
my($modu)=@_;
# Meta::Utils::Output::print("arra is [".$Meta::Baseline::Switch::arra."]\n");
my($count)=0;
for(my($i)=0;$i<$arra->size();$i++) {
my($curr)=$arra->getx($i);
if($curr->my_file($modu)) {
$count++;
}
}
return($count);
}
sub get_own($) {
my($modu)=@_;
# Meta::Utils::Output::print("arra is [".$Meta::Baseline::Switch::arra."]\n");
my(@arra);
for(my($i)=0;$i<$arra->size();$i++) {
my($curr)=$arra->getx($i);
if($curr->my_file($modu)) {
push(@arra,$curr);
}
Meta/Baseline/Switch.pm view on Meta::CPAN
0.01 MV perl code quality
0.02 MV more perl quality
0.03 MV more perl quality
0.04 MV get basic Simul up and running
0.05 MV perl documentation
0.06 MV more perl quality
0.07 MV perl qulity code
0.08 MV more perl code quality
0.09 MV revision change
0.10 MV better general cook schemes
0.11 MV cook updates
0.12 MV pictures in docbooks
0.13 MV revision in files
0.14 MV revision for perl files and better sanity checks
0.15 MV languages.pl test online
0.16 MV history change
0.17 MV add rtf format to website,work on papers,add dtd lang
0.18 MV introduce docbook xml and docbook deps
0.19 MV cleanups
0.20 MV good xml support
0.21 MV more on data sets
0.22 MV move def to xml directory
0.23 MV bring back sgml to working condition
0.24 MV automatic data sets
0.25 MV web site and docbook style sheets
0.26 MV write some papers and custom dssls
0.27 MV spelling and papers
0.28 MV fix docbook and other various stuff
0.29 MV add zipping subsystem
0.30 MV convert dtd to html
0.31 MV PDMT/SWIG support
0.32 MV Revision in DocBook files stuff
0.33 MV PDMT stuff
0.34 MV C++ and temp stuff
0.35 MV finish lit database and convert DocBook to SGML
0.36 MV update web site
0.37 MV XML rules
0.38 MV perl packaging
0.39 MV perl packaging
0.40 MV BuildInfo object change
0.41 MV PDMT
0.42 MV md5 project
0.43 MV database
0.44 MV perl module versions in files
0.45 MV movies and small fixes
0.46 MV graph visualization
0.47 MV thumbnail user interface
0.48 MV more thumbnail issues
0.49 MV paper writing
0.50 MV website construction
0.51 MV improve the movie db xml
0.52 MV web site automation
0.53 MV SEE ALSO section fix
0.54 MV move tests to modules
0.55 MV finish papers
0.56 MV teachers project
0.57 MV md5 issues
=head1 SEE ALSO
Error(3), Meta::Baseline::Lang::Aegi(3), Meta::Baseline::Lang::Ascx(3), Meta::Baseline::Lang::Aspe(3), Meta::Baseline::Lang::Awkx(3), Meta::Baseline::Lang::Bdbx(3), Meta::Baseline::Lang::Bins(3), Meta::Baseline::Lang::Ccxx(3), Meta::Baseline::Lang::C...
=head1 TODO
-make the get_type_enum and get_lang_enum return variables which are prepared in BEGIN.
( run in 0.560 second using v1.01-cache-2.11-cpan-39bf76dae61 )