From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Tue, 22 Feb 2000 22:57:09 +0000 (+0100)
Subject: patch::: 1.3.25.jcn2
X-Git-Tag: release/1.3.26~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d40e9c64ed0a15f2ea0fcf5476b32efe9fd4ba5f;p=lilypond.git

patch::: 1.3.25.jcn2

1.3.25.jcn2
===========

* lilypond as as2ly: --help and --version to stdout.  Regular identify
  to stderr.  This fixes help2man's manpage generation.

* configure: substitute full path for perl and guile in scripts.
---

diff --git a/CHANGES b/CHANGES
index a77d84589e..fbbf8f0bf8 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,11 @@
+1.3.25.jcn2
+===========
+
+* lilypond as as2ly: --help and --version to stdout.  Regular identify 
+  to stderr.  This fixes help2man's manpage generation.
+
+* configure: substitute full path for perl and guile in scripts.
+
 1.3.25.jcn1
 ===========
 
diff --git a/VERSION b/VERSION
index 4faea06aaa..ba81df2fe1 100644
--- a/VERSION
+++ b/VERSION
@@ -2,7 +2,7 @@ PACKAGE_NAME=LilyPond
 MAJOR_VERSION=1
 MINOR_VERSION=3
 PATCH_LEVEL=25
-MY_PATCH_LEVEL=jcn1
+MY_PATCH_LEVEL=jcn2
 
 # use the above to send patches: MY_PATCH_LEVEL is always empty for a
 # released version.
diff --git a/aclocal.m4 b/aclocal.m4
index c3aad4ba21..3db837d204 100644
--- a/aclocal.m4
+++ b/aclocal.m4
@@ -2,8 +2,6 @@ dnl WARNING WARNING WARNING WARNING
 dnl do not edit! this is aclocal.m4, generated from stepmake/aclocal.m4
 dnl WARNING WARNING WARNING WARNING
 dnl do not edit! this is aclocal.m4, generated from stepmake/aclocal.m4
-dnl WARNING WARNING WARNING WARNING
-dnl do not edit! this is aclocal.m4, generated from stepmake/aclocal.m4
 dnl aclocal.m4   -*-shell-script-*-
 dnl StepMake subroutines for configure.in
 
@@ -162,6 +160,8 @@ AC_DEFUN(AC_STEPMAKE_GUILE, [
     if guile-config --version 2>&1 | grep -q 'version 1\.[012]'; then
        AC_STEPMAKE_WARN(Guile version 1.3 or better needed)
     fi
+    AC_PATH_PROG(GUILE, guile, error)
+    AC_SUBST(GUILE)
 ])
 
 AC_DEFUN(AC_STEPMAKE_INIT, [
diff --git a/config.make.in b/config.make.in
index 2ace88be93..91b7accc01 100644
--- a/config.make.in
+++ b/config.make.in
@@ -46,6 +46,7 @@ BASH = @BASH@
 BISON = @BISON@
 FIND = @FIND@
 FLEX = @FLEX@
+GUILE = @GUILE@
 INIMETAFONT = @INIMETAFONT@
 INIMETAPOST = @INIMETAPOST@
 INIMETAPOST_FLAGS = @INIMETAPOST_FLAGS@
diff --git a/configure.in b/configure.in
index d1fff38d70..0b83441d4d 100644
--- a/configure.in
+++ b/configure.in
@@ -56,7 +56,7 @@ AC_DEFINE_UNQUOTED(TOPLEVEL_VERSION, "${FULL_VERSION}")
 AC_DEFINE_UNQUOTED(FLOWER_VERSION, "${FULL_FLOWER_VERSION}")
 
 AC_CHECK_PROGS(MAKEINFO, makeinfo, error)
-AC_CHECK_PROGS(PERL, perl, error)
+AC_PATH_PROG(PERL, perl, error)
 
 
 AC_STEPMAKE_END
diff --git a/lily/main.cc b/lily/main.cc
index 913810a2d4..cd2ee91d95 100644
--- a/lily/main.cc
+++ b/lily/main.cc
@@ -86,9 +86,17 @@ Long_option_init theopts[] = {
   {0,0,0, 0}
 };
 
+void
+identify (ostream* os)
+{
+  *os << gnu_lilypond_version_str () << endl;
+}
+
 void
 usage ()
 {
+  identify (&cout);
+  cout << "\n";
   cout << _f ("Usage: %s [OPTION]... [FILE]...", "lilypond");
   cout << "\n\n";
   cout << _ ("Typeset music and or play MIDI from FILE");
@@ -127,16 +135,10 @@ _(
   cout << _f ("Report bugs to %s", "bug-gnu-music@gnu.org") << endl;
 }
 
-void
-identify ()
-{
-  cerr << gnu_lilypond_version_str () << endl;
-}
-
 void
 version ()
 {
-  identify ();
+  identify (&cout);
   cout << '\n';
   cout << _f (""
   "This is free software.  It is covered by the GNU General Public License,\n"
@@ -352,7 +354,7 @@ main (int argc, char **argv)
 	  break;
 	}
     }
-  identify ();
+  identify (&cerr);
 
 #ifdef WINNT
   gh_enter (argc, argv, main_prog);
diff --git a/make/substitute.make b/make/substitute.make
index 4a991ee000..c4be0de6ae 100644
--- a/make/substitute.make
+++ b/make/substitute.make
@@ -7,6 +7,7 @@ include $(stepdir)/substitute-rules.make
 ATVARIABLES = \
   BASH\
   DATE\
+  GUILE\
   date\
   datadir\
   PACKAGE\
diff --git a/scripts/as2text.scm b/scripts/as2text.scm
index ced2dcbb38..b6cd31355f 100644
--- a/scripts/as2text.scm
+++ b/scripts/as2text.scm
@@ -1,4 +1,4 @@
-#!/usr/bin/guile \
+#!@GUILE@ \
 -e main -s
 !#
 ;;;; as2text.scm -- Translate AsciiScript to Text
@@ -28,10 +28,10 @@
       "unknown"
       subst-version))
 
-(define (show-version)
+(define (show-version port)
   (display (string-append 
 	    program-name " - LilyPond version " program-version "\n")
-	   (current-error-port)))
+	   port))
 
 (define (show-help)
   (display "Convert AsciiScript to text.
@@ -43,7 +43,7 @@ Options:
   -h,--help          this help
   -o,--output=FILE   set output file
   -v,--version       show version
-" (current-error-port)))
+"))
 
 (define (gulp-file name)
   (let ((port (if (equal? name "-")
@@ -86,7 +86,6 @@ Options:
   (set! lily-home (string-append 
 		     (dirname (dirname (car args))) 
 		     "/share/lilypond"))
-  (show-version)
   (let ((options (getopt-long args
 			      `((output (single-char #\o)
                                           (value #t))
@@ -97,11 +96,12 @@ Options:
         (if pair (cdr pair) default)))
 
     (if (assq 'help options)
-	(begin (show-help) (exit 0)))
-	    
+	(begin (show-version (current-output-port)) (show-help) (exit 0)))
+
     (if (assq 'version options)
-	(exit 0))
+	(begin (show-version (current-output-port)) (exit 0)))
 
+    (show-version (current-error-port))
     (let ((output-name (opt 'output "-"))
 	  (files (let ((foo (opt '() '())))
 		      (if (null? foo) 
@@ -394,3 +394,4 @@ Options:
 		   (c (get-char font n)))
 		  (plot-char c)
 		  (rmove-to (char-width c) 0)))))
+
diff --git a/stepmake/aclocal.m4 b/stepmake/aclocal.m4
index 930659f862..3db837d204 100644
--- a/stepmake/aclocal.m4
+++ b/stepmake/aclocal.m4
@@ -160,6 +160,8 @@ AC_DEFUN(AC_STEPMAKE_GUILE, [
     if guile-config --version 2>&1 | grep -q 'version 1\.[012]'; then
        AC_STEPMAKE_WARN(Guile version 1.3 or better needed)
     fi
+    AC_PATH_PROG(GUILE, guile, error)
+    AC_SUBST(GUILE)
 ])
 
 AC_DEFUN(AC_STEPMAKE_INIT, [