[svn:parrot] r36933 - trunk/tools/dev

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sun Feb 22 19:20:27 2009
New Revision: 36933
URL: https://trac.parrot.org/parrot/changeset/36933

Log:
[install] add option : --with-doc

Modified:
   trunk/tools/dev/mk_language_shell.pl

Modified: trunk/tools/dev/mk_language_shell.pl
==============================================================================
--- trunk/tools/dev/mk_language_shell.pl	Sun Feb 22 19:00:58 2009	(r36932)
+++ trunk/tools/dev/mk_language_shell.pl	Sun Feb 22 19:20:27 2009	(r36933)
@@ -12,6 +12,7 @@
 
 option:
 
+ --with-doc
  --with-ops
  --with-pmc
 
@@ -28,9 +29,7 @@
 files and directories (relative to C<path>, which defaults
 to F<languages/xyz> if an explicit C<path> isn't given):
 
-    MAINTAINER
     README
-    STATUS
     Configure.pl
     xyz.pir
     config/makefiles/ops.in
@@ -74,8 +73,9 @@
 use Getopt::Long;
 use Parrot::Config qw/ %PConfig /;
 
-my ($with_ops, $with_pmc);
+my ($with_doc, $with_ops, $with_pmc);
 GetOptions(
+    'with-doc' => \$with_doc,
     'with-ops' => \$with_ops,
     'with-pmc' => \$with_pmc,
 );
@@ -94,6 +94,7 @@
 my $rev = '$Revision$';
 $rev =~ s/^\D*(\d+)\D*$/r$1/;
 
+my $no_doc = $with_doc ? '' : '#';
 my $no_ops = $with_ops ? '' : '#';
 my $no_pmc = $with_pmc ? '' : '#';
 
@@ -115,6 +116,7 @@
     s{\@Id\@}     {\$Id\$}ig;
     s{\@script\@} {$script}ig;
     s{\@rev\@}    {$rev}ig;
+    s{\@no_doc\@} {$no_doc}ig;
     s{\@no_ops\@} {$no_ops}ig;
     s{\@no_pmc\@} {$no_pmc}ig;
     if (/^__(.*)__$/) { start_new_file("$path$PConfig{slash}$1"); }
@@ -146,6 +148,10 @@
         print "skipping $filepath\n";
         return;
     }
+    if (!$with_doc and $filepath =~ /doc/) {
+        print "no doc: skipping $filepath\n";
+        return;
+    }
     if (!$with_ops and $filepath =~ /ops/) {
         print "no ops: skipping $filepath\n";
         return;
@@ -154,6 +160,10 @@
         print "no pmc: skipping $filepath\n";
         return;
     }
+    if (!$with_ops and!$with_pmc and $filepath =~ /dynext/) {
+        print "no dynext: skipping $filepath\n";
+        return;
+    }
     my ($volume, $dir, $base) = File::Spec->splitpath($filepath);
     my $filedir = File::Spec->catpath($volume, $dir);
     unless (-d $filedir) {
@@ -179,17 +189,6 @@
 See doc/@lang at .pod for the documentation, and
 doc/running.pod for the command-line options.
 
-__MAINTAINER__
-# @Id@
-
-N: My Name
-E: My Email
-
-__STATUS__
-Number of tests passing:
-Percentage of implementation finished:
-TODO:
-
 __Configure.pl__
 # @Id@
 
@@ -486,7 +485,7 @@
 @no_pmc at PMC_DEPS = config/makefiles/pmc.in $(PMC_DIR)/@lclang at .pmc
 @no_ops at OPS_DEPS = config/makefiles/ops.in $(OPS_DIR)/@lclang at .ops
 
-DOCS = MAINTAINER README
+DOCS = README
 
 # the default target
 @lclang at .pbc: $(SOURCES)
@@ -563,24 +562,24 @@
 	$(CHMOD) 0755 $(BIN_DIR)/parrot- at lclang@@exe@
 	-$(MKPATH) $(LIB_DIR)/languages/@lclang@
 	$(CP) @lclang at .pbc $(LIB_DIR)/languages/@lclang@/@lclang at .pbc
-	-$(MKPATH) $(MANDIR)/man1
-	$(POD2MAN) doc/running.pod > $(MANDIR)/man1/parrot- at lclang@.1
-	-$(MKPATH) $(DOC_DIR)/languages/@lclang@
-	$(CP) $(DOCS) $(DOC_DIR)/languages/@lclang@
+ at no_doc@	-$(MKPATH) $(MANDIR)/man1
+ at no_doc@	$(POD2MAN) doc/running.pod > $(MANDIR)/man1/parrot- at lclang@.1
+ at no_doc@	-$(MKPATH) $(DOC_DIR)/languages/@lclang@
+ at no_doc@	$(CP) $(DOCS) $(DOC_DIR)/languages/@lclang@
 
 uninstall:
 @no_ops@	$(MAKE) $(OPS_DIR) uninstall
 @no_pmc@	$(MAKE) $(PMC_DIR) uninstall
 	$(RM_F) $(BIN_DIR)/parrot- at lclang@@exe@
 	$(RM_RF) $(LIB_DIR)/languages/@lclang@
-	$(RM_F) $(MANDIR)/man1/parrot- at lclang@.1
-	$(RM_RF) $(DOC_DIR)/languages/@lclang@
+ at no_doc@	$(RM_F) $(MANDIR)/man1/parrot- at lclang@.1
+ at no_doc@	$(RM_RF) $(DOC_DIR)/languages/@lclang@
 
 win32-inno-installer: installable
-	-$(MKPATH) man/man1
-	$(POD2MAN) doc/running.pod > man/man1/parrot- at lclang@.1
-	-$(MKPATH) man/html
-	pod2html --infile doc/running.pod --outfile man/html/parrot- at lclang@.html
+ at no_doc@	-$(MKPATH) man/man1
+ at no_doc@	$(POD2MAN) doc/running.pod > man/man1/parrot- at lclang@.1
+ at no_doc@	-$(MKPATH) man/html
+ at no_doc@	pod2html --infile doc/running.pod --outfile man/html/parrot- at lclang@.html
 	$(CP) installable_ at lclang@@exe@ parrot- at lclang@.exe
 	cd @build_dir@ && $(PERL) tools/dev/mk_inno_language.pl @lclang@
 	cd @build_dir@ && iscc parrot- at lclang@.iss
@@ -658,8 +657,6 @@
 
 __dynext/.ignore__
 
-__library/.ignore__
-
 __ at lclang@.pir__
 =head1 TITLE