[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Groff-commit] groff/contrib/glilypond ChangeLog ChangeLog.0x ...
|
From: |
Werner LEMBERG |
|
Subject: |
[Groff-commit] groff/contrib/glilypond ChangeLog ChangeLog.0x ... |
|
Date: |
Sun, 11 Aug 2013 08:30:12 +0000 |
CVSROOT: /sources/groff
Module name: groff
Changes by: Werner LEMBERG <wl> 13/08/11 08:30:12
Added files:
contrib/glilypond: ChangeLog ChangeLog.0x Makefile.sub
README.txt args.pl glilypond.man glilypond.pl
oop_fh.pl subs.pl
Log message:
Revert accidental removal of previous files.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/glilypond/ChangeLog?cvsroot=groff&rev=1.14
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/glilypond/ChangeLog.0x?cvsroot=groff&rev=1.5
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/glilypond/Makefile.sub?cvsroot=groff&rev=1.8
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/glilypond/README.txt?cvsroot=groff&rev=1.4
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/glilypond/args.pl?cvsroot=groff&rev=1.6
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/glilypond/glilypond.man?cvsroot=groff&rev=1.4
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/glilypond/glilypond.pl?cvsroot=groff&rev=1.9
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/glilypond/oop_fh.pl?cvsroot=groff&rev=1.6
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/glilypond/subs.pl?cvsroot=groff&rev=1.8
Patches:
Index: ChangeLog
===================================================================
RCS file: ChangeLog
diff -N ChangeLog
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ ChangeLog 11 Aug 2013 08:30:04 -0000 1.14
@@ -0,0 +1,141 @@
+2013-05-10 Bernd Warken <address@hidden>
+
+ * glilypond.pl: Correct position information. Add debug code.
+
+ * args.pl, oop_fh.pl, subs.pl: Correct position information.
+
+2013-04-25 Bernd Warken <address@hidden>
+
+ * Makefile.sub: minor corrections.
+
+2013-04-24 Bernd Warken <address@hidden>
+
+ Public `glilypond' version `v1.1'.
+
+ * args.pl, sub.pl, glilypond.man: Change option `-v' to mean
+ `--verbose' instead of former `--version' such as many GNU
+ programs do. Correct sub `&usage()' and man-page.
+
+ * args.pl, glilypond.pl, oop_fh.pl, subs.pl: Remove spaces in
+ ` -> ', some `( ... )', and some `{ ... }' places for better
+ readability of the Perl source code.
+
+2013-04-24 Bernd Warken <address@hidden>
+
+ * args.pl, oop_fh.pl: Remove 1st line calling `perl'.
+
+ * subs.pl: Remove 1st line calling `perl'. Remove sub
+ `&perl_version()'. Adjust sub `&usage()'.
+
+ * glilypond.pl: Keep 1st line, which will be reset by running
+ `make'. Remove all parts of Perl testing.
+
+ * perl_test.pl: Remove this file.
+
+ * README.txt: Add information about needed Perl version.
+
+ * Makefile.sub: Corrections for removing Perl test. Use `$<'.
+
+2013-04-24 Bernd Warken <address@hidden>
+
+ * Makefile.sub: Remove Perl test.
+
+2013-04-12 Bernd Warken <address@hidden>
+
+ * glilypond.pl: Fix END for early exit of `--version'.
+
+2013-04-12 Bernd Warken <address@hidden>
+
+ * subs.pl: Replace `state' by global variable. So the Perl
+ version can be older.
+
+ * perl_test.pl: Replace the Perl version by `v5.6', analogously to
+ `groffer'.
+
+2013-04-11 Bernd Warken <address@hidden>
+
+ * Makefile.sub: Corrections for Emacs.
+
+2013-04-11 Bernd Warken <address@hidden>
+
+ * old groff_lilypond: There is now a free `git' package containing
+ all old versions of the former name `groff_lilypond v0.*'. They
+ work with `lilypond' parts in `roff' files, but were not
+ installed. This package can be got at:
+
+ $ git clone address@hidden:RUNOFF/groff_lilypond.git
+
+ The new versions `glilypond 1.*' are not included there.
+
+2013-03-29 Bernd Warken <address@hidden>
+
+ Published version is `v1.0'.
+
+ Run `autoconf' again.
+
+2013-03-29 Bernd Warken <address@hidden>
+
+ * <groff_src_dir>/m4/groff.m4, <groff_src_dir>/configure.ac: Add
+ libdir information for `glilypond'.
+
+ * <groff_src_dir>/Makefile.in: Add
+ `<groff_src_dir>/contrib/glilypond'.
+
+ Run `autoconf'.
+
+ `glilypond' can now be installed to the system.
+
+2013-03-29 Bernd Warken <address@hidden>
+
+ Rename `groff_lilypond' to `glilypond'. So remove the former
+ source directory `<groff_src_dir>/contrib/lilypond' and newly
+ install `<groff_src_dir>/contrib/glilypond', which now has many
+ files. The new version starts at `v1.0'.
+
+ Version will now be v1.*. All former files of versions v0.*
+ vanished or were renamed. This is not yet an information about
+ publishing.
+
+ * ChangeLog.0x: old `ChangeLog' file for the old `groff_lilypond'
+ versions v0.*. In the future, this file won't be changed any
+ more.
+
+ * ChangeLog: New file. It is this file. It displays the history
+ of `glilypond' versions v1.* or later.
+
+ * glilypond.pl: New main Perl file written from
+ `groff_lilypond.pl' in a totally different way. It is split now
+ into 4 Perl files.
+
+ * args.pl: New Perl file. It handles the command line options for
+ a run of `glilypond.pl'.
+
+ * oop_fh.pl: New Perl file. OOP handling of file handles.
+
+ * perl_test.pl: Test whether the actual Perl program has a
+ suitable versions. For `Makefile.sub' and `glilypond.pl'.
+
+ * subs.pl: New Perl file. Defines the global subs for
+ `glilypond.pl'.
+
+ * Makefile.sub: Newly written `Makefile' for this subdirectory of
+ `groff'. `glilypond' should be able to be installed by `make'
+ with this file.
+
+ * glilypond.man: Newly written man-page for `glilypond'.
+
+ * README.txt: New file about the installation.
+
+########################################################################
+
+Copyright 2013
+ Free Software Foundation, Inc.
+
+Copying and distribution of this file, with or without modification,
+are permitted in any medium without royalty provided the copyright
+notice and this notice are preserved.
+
+Local Variables:
+version-control: never
+coding: utf-8
+End:
Index: ChangeLog.0x
===================================================================
RCS file: ChangeLog.0x
diff -N ChangeLog.0x
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ ChangeLog.0x 11 Aug 2013 08:30:05 -0000 1.5
@@ -0,0 +1,103 @@
+2013-04-11 Bernd Warken <address@hidden>
+
+ * old groff_lilypond: There is now a free `git' package containing
+ all old versions of the former name `groff_lilypond v0.*'. They
+ work with `lilypond' parts in `roff' files, but were not
+ installed. This package can be got at:
+
+ $ git clone address@hidden:RUNOFF/groff_lilypond.git
+
+ The new versions `glilypond 1.*' are not included there.
+
+2013-03-28 Bernd Warken <address@hidden>
+
+ Rename `groff_lilypond' to `glilypond' for *.pl and *.man files.
+ Split the single Perl script into several minor *.pl files.
+ Construct `Makefile.sub' in order to have installed `glilypond'.
+ Public versions will be v1.x.
+ Rename `ChangeLog' to `ChangeLog.0x' for the old versions of
+ `groff_lilypond' v0.*. New `ChangeLog' for the new versions
+ `glilypond' 1.*.
+
+ * groff_lilypond.pl: Vanished. Renamed to `glilypond.pl'.
+ * groff_lilypond.man: Vanished. Renamed to `glilypond.man'.
+ * ChangeLog.0x: Moved from `ChangeLog'. It is this file. It
+ describes only the old `groff_lilypond' versions v0.*. See file
+ `ChangeLog' for the files of the new `glilypond' v1.*.
+
+2013-03-11 Bernd Warken <address@hidden>
+
+ * groff_lilypond.pl: Publishing groff_lilypond version v0.6.
+ New options: -e|--eps_dir, -l|--license, -k|--keep_files,
+ -p|--prefix=..., -t|--temp_dir=...
+ Install --eps_dir as directory for the useful EPS files.
+ * groff_lilypond.man: Include the new options. Add section
+ SEE ALSO.
+
+2013-03-03 Bernd Warken <address@hidden>
+
+ * groff_lilypond.pl: New code with Perl references.
+ Publishing groff_lilypond version v0.5.
+ New options: --usage, -V|--Verbose|--verbose, --file_prefix=...,
+ -o|--output=..., --temp_dir=...
+ Perl >=5.10.0 needed.
+ * groff_lilypond.man: Include the new options.
+
+2013-02-23 Bernd Warken <address@hidden>
+
+ * groff_lilypond_pl: Remove `.lilypond include' for lilypond
+ regions. Within `groff' mode. it is still allowed.
+ * groff_lilypond.man: Update `.lilypond include'.
+
+2013-02-23 Bernd Warken <address@hidden>
+
+ New version v0.4 of groff_lilypond.
+ * groff_lilypond_pl: Major rewrite.
+ New options: --file_prefix, --temp_dir, and --license.
+ * groff_lilypond.man: documents the new features.
+
+2013-02-16 Bernd Warken <address@hidden>
+
+ * groff_lilypond.man: Minor corrections.
+
+2013-02-12 Bernd Warken <address@hidden>
+
+ * groff_lilypond.pl: Add deletion of unused temporary files.
+
+2013-02-12 Bernd Warken <address@hidden>
+
+ * contrib/lilypond: Version v0.3 for groff_lilypond
+ * groff_lilypond.pl: A new request was added for importing
+ lilypond files:
+ .lilypond include ...
+ The argument handling was improved.
+
+2013-02-11 Bernd Warken <address@hidden>
+
+ * contrib/lilypond: Version v0.2 for groff_lilypond
+ * groff_lilypond.pl: Now there are 2 modes for generationg the EPS
+ files: --ly2eps (the default) and --pdf2eps (that's the old mode
+ from version v0.1 with pdf to ps to eps). With ly2eps mode,
+ lilypond generates the EPS files itself, for each page one EPS
+ file.
+ * groff_lilypond.man: Corresponding updated man-page
+
+2013-02-10 Bernd Warken <address@hidden>
+
+ * contrib/lilypond: New files for adding lilypond parts into groff
+ files. These files will not yet be installed.
+ * groff_lilypond.pl: Program written in Perl, version v0.1
+ * groff_lilypond.man: Corresponding man-page
+
+Copyright 2013
+ Free Software Foundation, Inc.
+
+Copying and distribution of this file, with or without modification,
+are permitted in any medium without royalty provided the copyright
+notice and this notice are preserved.
+
+Local Variables:
+version-control: never
+mode: change-log-mode
+coding: utf-8
+End:
Index: Makefile.sub
===================================================================
RCS file: Makefile.sub
diff -N Makefile.sub
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ Makefile.sub 11 Aug 2013 08:30:06 -0000 1.8
@@ -0,0 +1,86 @@
+# Makefile.sub for `glilypond' (integration into the `groff' source tree)
+
+# File position: <groff-source>/contrib/lilypond/Makefile.sub
+
+# Copyright (C) 2013
+# Free Software Foundation, Inc.
+# Written by Werner Lemberg <address@hidden> and
+# Bernd Warken <address@hidden>.
+
+# Last update: 25 Apr 2013
+
+# This file is part of `glilypond' which is part of `groff'.
+
+# `groff' is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# `groff' is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+########################################################################
+
+MAN1=glilypond.n
+
+MOSTLYCLEANADD=glilypond $(MAN1)
+
+# not all make programs have $(RM) predefined.
+RM=rm -f
+
+all: glilypond
+
+
+# files going to lib directory `$(glilypond_dir)'
+
+GLILYPOND_LIB=$(srcdir)/subs.pl \
+ $(srcdir)/oop_fh.pl \
+ $(srcdir)/args.pl
+
+GLILYPOND_LIB_=`echo $(GLILYPOND_LIB) | sed 's|$(srcdir)/||g'`
+
+
+# create perl executable `glilypond', being stored into `bindir'
+
+glilypond: $(srcdir)/glilypond.pl
+ sed -f "$(SH_DEPS_SED_SCRIPT)" \
+ -e "s|@g@|$(g)|g" \
+ -e "s|@BINDIR@|$(DESTDIR)$(bindir)|g" \
+ -e "s|@glilypond_dir@|$(DESTDIR)$(glilypond_dir)|g" \
+ -e "s|@VERSION@|$(version)$(revision)|g" \
+ $(srcdir)/glilypond.pl >$@
+ chmod +x $@
+
+
+install_data: glilypond $(GLILYPOND_LIB)
+ -test -d $(DESTDIR)$(bindir) \
+ || $(mkinstalldirs) $(DESTDIR)$(bindir)
+ $(RM) $(DESTDIR)$(bindir)/$<
+ $(INSTALL_SCRIPT) glilypond $(DESTDIR)$(bindir)/$<
+ -test -d $(DESTDIR)$(glilypond_dir) \
+ || $(mkinstalldirs) $(DESTDIR)$(glilypond_dir)
+ for f in $(GLILYPOND_); do \
+ $(RM) $(DESTDIR)$(glilypond_dir)/$$f; \
+ $(INSTALL_SCRIPT) $(srcdir)/$$f $(DESTDIR)$(glilypond_dir)/$$f;
\
+ done
+
+
+uninstall_sub:
+ $(RM) $(DESTDIR)$(bindir)/glilypond;
+ for f in $(GLILYPOND_); do \
+ $(RM) $(DESTDIR)$(glilypond_dir)/$$f; \
+ done
+ -rmdir $(DESTDIR)$(glilypond_dir)
+
+########################################################################
+# Emacs settings
+########################################################################
+#
+# Local Variables:
+# mode: makefile
+# End:
Index: README.txt
===================================================================
RCS file: README.txt
diff -N README.txt
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ README.txt 11 Aug 2013 08:30:07 -0000 1.4
@@ -0,0 +1,39 @@
+ Copyright (C) 2013
+ Free Software Foundation, Inc.
+
+ Written by Bernd Warken <address@hidden>
+
+ Last update: 24 Apr 2013
+
+ Copying and distribution of this file, with or without modification,
+ are permitted in any medium without royalty provided the copyright
+ notice and this notice are preserved.
+
+ This file is part of `glilypond', which is part of `groff'.
+
+
+########################################################################
+
+In order to run `glilypond', your system must have installed Perl of at
+least version `v5.6'.
+
+
+########################################################################
+
+In order to have this program installed by `make', the creation of a
+libdir (library directory) must be programmed in some system files.
+The following actions must be taken:
+
+1) <groff_src_dir>/m4/groff.m4:
+Add `AC_DEFUN([GROFF_GROFFERDIR_DEFAULT])'.
+
+2) <groff_src_dir>/configure.ac:
+Add `GROFF_GROFFERDIR_DEFAULT'.
+
+3) <groff_src_dir>/Makefile.in:
+Add several informations of `glilypond_dir'
+
+With that, the program `autoconf' can be run in order to update the
+configure files and Makefile's.
+
+Now `$glilypond_dir' can be used as libdir.
Index: args.pl
===================================================================
RCS file: args.pl
diff -N args.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ args.pl 11 Aug 2013 08:30:08 -0000 1.6
@@ -0,0 +1,504 @@
+########################################################################
+# Legalese
+########################################################################
+
+my $License = q*
+groff_lilypond - integrate `lilypond' into `groff' files
+
+Source file position: `<groff-source>/contrib/glilypond/args.pl'
+Installed position: `<prefix>/lib/groff/glilypond'
+
+Copyright (C) 2013 Free Software Foundation, Inc.
+ Written by Bernd Warken <address@hidden>
+
+Last update: 10 May 2013
+
+This file is part of `GNU groff'.
+
+ `GNU groff' is free software: you can redistribute it and/or modify it
+under the terms of the `GNU General Public License' as published by the
+`Free Software Foundation', either version 3 of the License, or (at your
+option) any later version.
+
+ `GNU groff' is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the `GNU
+General Public License' for more details.
+
+ You should have received a copy of the 'GNU General Public License`
+along with `groff', see the files `COPYING' and `LICENSE' in the top
+directory of the `groff' source package. If not, see
+<http://www.gnu.org/licenses/>.
+*;
+
+##### end legalese
+
+
+# use strict;
+# use warnings;
+# use diagnostics;
+
+use integer;
+
+our ( $Globals, $Args, $stderr, $v, $out );
+
+# ----------
+# subs for second run, for remaining long options after splitting and
+# transfer
+# ----------
+
+my %opts_with_arg =
+ (
+
+ '--eps_dir' => sub {
+ $Args->{'eps_dir'} = shift;
+ },
+
+ '--output' => sub {
+ $Args->{'output'} = shift;
+ },
+
+ '--prefix' => sub {
+ $Args->{'prefix'} = shift;
+ },
+
+ '--temp_dir' => sub {
+ $Args->{'temp_dir'} = shift;
+ },
+
+ ); # end of %opts_with_arg
+
+
+my %opts_noarg =
+ (
+
+ '--help' => sub {
+ &usage;
+ exit;
+ },
+
+ '--keep_all' => sub {
+ $Args->{'keep_all'} = TRUE;
+ },
+
+ '--license' => sub {
+ &license;
+ exit;
+ },
+
+ '--ly2eps' => sub {
+ $Args->{'eps_func'} = 'ly';
+ },
+
+ '--pdf2eps' => sub {
+ $Args->{'eps_func'} = 'pdf';
+ },
+
+ '--verbose' => sub {
+ $Args->{'verbose'} = TRUE;
+ },
+
+ '--version' => sub {
+ &version;
+ exit;
+ },
+
+ ); # end of %opts_noarg
+
+
+# used variables in both runs
+
+my @files = EMPTYARRAY;
+
+
+#----------
+# first run for command line arguments
+#----------
+
+# global variables for first run
+
+my @splitted_args;
+my $double_minus = FALSE;
+my $arg = EMPTYSTRING;
+my $has_arg = FALSE;
+
+
+# Split short option collections and transfer these to suitable long
+# options from above. Note that `-v' now means `--verbose' in version
+# `v1.1', earlier versions had `--version' for `-v'.
+
+my %short_opts =
+ (
+ '?' => '--help',
+ 'e' => '--eps_dir',
+ 'h' => '--help',
+ 'l' => '--license',
+ 'k' => '--keep_all',
+ 'o' => '--output',
+ 'p' => '--prefix',
+ 't' => '--temp_dir',
+ 'v' => '--verbose',
+ 'V' => '--verbose',
+ );
+
+
+# transfer long option abbreviations to the long options from above
+
+my @long_opts;
+
+$long_opts[3] =
+ { # option abbreviations of 3 characters
+ '--e' => '--eps_dir',
+ '--f' => '--prefix', # --f for --file_prefix
+ '--h' => '--help',
+ '--k' => '--keep_all', # and --keep_files
+ '--o' => '--output',
+ '--p' => '--prefix', # and --file_prefix
+ '--t' => '--temp_dir',
+ '--u' => '--help', # '--usage' is mapped to `--help'
+ };
+
+$long_opts[4] =
+ { # option abbreviations of 4 characters
+ '--li' => '--license',
+ '--ly' => '--ly2eps',
+ '--pd' => '--pdf2eps',
+ '--pr' => '--prefix',
+ };
+
+$long_opts[6] =
+ { # option abbreviations of 6 characters
+ '--verb' => '--verbose',
+ '--vers' => '--version',
+ };
+
+
+# subs for short splitting and replacing long abbreviations
+
+my $split_short = sub {
+
+ my @chars = split //, $1; # omit leading dash
+
+ # if result is TRUE: run `next SPLIT' afterwards
+
+ CHARS: while ( @chars ) {
+ my $c = shift @chars;
+
+ unless ( exists $short_opts{$c} ) {
+ $stderr->print( "Unknown short option `-$c'." );
+ next CHARS;
+ }
+
+ # short option exists
+
+ # map or transfer to special long option from above
+ my $transopt = $short_opts{$c};
+
+ if ( exists $opts_noarg{$transopt} ) {
+ push @splitted_args, $transopt;
+ $Args->{'verbose'} = TRUE if ( $transopt eq '--verbose' );
+ next CHARS;
+ }
+
+ if ( exists $opts_with_arg{$transopt} ) {
+ push @splitted_args, $transopt;
+
+ if ( @chars ) {
+ # if @chars is not empty, option $transopt has argument
+ # in this arg, the rest of characters in @chars
+ push @splitted_args, join "", @chars;
+ @chars = EMPTYARRAY;
+ return TRUE; # use `next SPLIT' afterwards
+ }
+
+ # optarg is the next argument
+ $has_arg = $transopt;
+ return TRUE; # use `next SPLIT' afterwards
+ } # end of if %opts_with_arg
+ } # end of while CHARS
+ return FALSE; # do not do anything
+}; # end of sub for short_opt_collection
+
+
+my $split_long = sub {
+ my $from_arg = shift;
+ $from_arg =~ /^([^=]+)/;
+ my $opt_part = lc($1);
+ my $optarg = undef;
+ if ( $from_arg =~ /=(.*)$/ ) {
+ $optarg = $1;
+ }
+
+ N: for my $n ( qw/6 4 3/ ) {
+ $opt_part =~ / # match $n characters
+ ^
+ (
+ .{$n}
+ )
+ /x;
+ my $argn = $1; # get the first $n characters
+
+ # no match, so luck for fewer number of chars
+ next N unless ( $argn );
+
+ next N unless ( exists $long_opts[$n]->{$argn} );
+ # not in $n hash, so go on to next loop for $n
+
+ # now $n-hash has arg
+
+ # map or transfer to special long opt from above
+ my $transopt = $long_opts[$n]->{$argn};
+
+ # test on option without arg
+ if ( exists $opts_noarg{$transopt} ) { # opt has no arg
+ $stderr->print( 'Option ' . $transopt . 'has no argument: ' .
+ $from_arg . '.' ) if ( defined($optarg) );
+ push @splitted_args, $transopt;
+ $Args->{'verbose'} = TRUE if ( $transopt eq '--verbose' );
+ return TRUE; # use `next SPLIT' afterwards
+ } # end of if %opts_noarg
+
+ # test on option with arg
+ if ( exists $opts_with_arg{$transopt} ) { # opt has arg
+ push @splitted_args, $transopt;
+
+ # test on optarg in arg
+ if ( defined($optarg) ) {
+ push @splitted_args, $1;
+ return TRUE; # use `next SPLIT' afterwards
+ } # end of if optarg in arg
+
+ # has optarg in next arg
+ $has_arg = $transopt;
+ return TRUE; # use `next SPLIT' afterwards
+ } # end of if %opts_with_arg
+
+ # not with and without option, so is not permitted
+ $stderr->print( "`" . $transopt .
+ "' is unknown long option from `" . $from_arg . "'" );
+ return TRUE; # use `next SPLIT' afterwards
+ } # end of for N
+ return FALSE; # do nothing
+}; # end of split_long()
+
+
+#----------
+# do split and transfer arguments
+#----------
+sub run_first {
+
+ SPLIT: foreach (@ARGV) {
+ # Transform long and short options into some given long options.
+ # Split long opts with arg into 2 args (no `=').
+ # Transform short option collections into given long options.
+ chomp;
+
+ if ( $has_arg ) {
+ push @splitted_args, $_;
+ $has_arg = EMPTYSTRING;
+ next SPLIT;
+ }
+
+ if ( $double_minus ) {
+ push @files, $_;
+ next SPLIT;
+ }
+
+ if ( $_ eq '-' ) { # file arg `-'
+ push @files, $_;
+ next SPLIT;
+ }
+
+ if ( $_ eq '--' ) { # POSIX arg `--'
+ push @splitted_args, $_;
+ $double_minus = TRUE;
+ next SPLIT;
+ }
+
+ if ( / # short option or collection of short options
+ ^
+ -
+ (
+ [^-]
+ .*
+ )
+ $
+ /x ) {
+ $split_short->($1);
+ next SPLIT;
+ } # end of short option
+
+ if ( /^--/ ) { # starts with 2 dashes, a long option
+ $split_long->($_);
+ next SPLIT;
+ } # end of long option
+
+ # unknown option without leading dash is a file name
+ push @files, $_;
+ next SPLIT;
+ } # end of foreach SPLIT
+
+ # all args are considered
+ $stderr->print( "Option `$has_arg' needs an argument." )
+ if ( $has_arg );
+
+
+ push @files, '-' unless ( @files );
+ @ARGV = @splitted_args;
+
+}; # end of first run, splitting with map or transfer
+
+
+#----------
+# open or ignore verbose output
+#----------
+sub install_verbose {
+ if ( $Args->{'verbose'} ) { # `--verbose' was used
+ # make verbose output into $v
+ my $s = $v->get(); # get content of string so far as array ref, close
+
+ $v = new FH_STDERR(); # make verbose output into STDERR
+ if ( $s ) {
+ for ( @$s ) {
+ # print the file content into new verbose output
+ $v->print($_);
+ }
+ }
+ # verbose output is now active (into STDERR)
+ $v->print( "Option `-v' means `--verbose'." );
+ $v->print( "Version information is printed by option `--version'." );
+ $v->print( "#" x 72 );
+
+ } else { # `--verbose' was not used
+ # do not be verbose, make verbose invisible
+
+ $v->close(); # close and ignore the string content
+
+ $v = new FH_NULL();
+ # this is either into /dev/null or in an ignored string
+
+ } # end if-else about verbose
+ # `$v->print' works now in any case
+
+ $v->print( "Verbose output was chosen." );
+
+ my $s = $Globals->{'prog_is_installed'} ? '' : ' not';
+ $v->print( $Globals->{'prog'} . " is" . $s .
+ " installed." );
+
+ $v->print( 'The command line options are:' );
+
+ $s = " options:";
+ $s .= " `" . $_ . "'" for ( @ARGV );
+ $v->print( $s );
+
+ $s = " file names:";
+ $s .= " `" . $_ . "'\n" for ( @files );
+ $v->print( $s );
+} # end install_verbose()
+
+
+#----------
+# second run of command line arguments
+#----------
+sub run_second {
+ # Second run of args with new @ARGV from the former splitting.
+ # Arguments are now splitted and transformed into special long options.
+
+ my $double_minus = FALSE;
+ my $has_arg = FALSE;
+
+ ARGS: for my $arg ( @ARGV ) {
+
+ # ignore `--', file names are handled later on
+ last ARGS if ( $arg eq '--' );
+
+ if ( $has_arg ) {
+ unless ( exists $opts_with_arg{$has_arg} ) {
+ $stderr->print( "`\%opts_with_args' does not have key `" .
+ $has_arg . "'." );
+ next ARGS;
+ }
+
+ $opts_with_arg{$has_arg}->($arg);
+ $has_arg = FALSE;
+ next ARGS;
+ } # end of $has_arg
+
+ if ( exists $opts_with_arg{$arg} ) {
+ $has_arg = $arg;
+ next ARGS;
+ }
+
+ if ( exists $opts_noarg{$arg} ) {
+ $opts_noarg{$arg}->();
+ next ARGS;
+ }
+
+ # not a suitable option
+ $stderr->print( "Wrong option `" . $arg . "'." );
+ next ARGS;
+
+ } # end of for ARGS:
+
+
+ if ( $has_arg ) { # after last argument
+ die "Option `$has_arg' needs an argument.";
+ }
+
+ }; # end of second run
+
+
+sub handle_args {
+ # handling the output of args
+
+ if ( $Args->{'output'} ) { # `--output' was set in the arguments
+ my $out_path = &path2abs($Args->{'output'});
+ die "Output file name $Args->{'output'} cannot be used."
+ unless ( $out_path );
+
+ my ( $file, $dir );
+ ( $file, $dir ) = File::Basename::fileparse($out_path)
+ or die "Could not handle output file path `" . $out_path . "': " .
+ "directory name `" . $dir . "' and file name `" . $file . "'.";
+
+ die "Could not find output directory for `" . $Args->{'output'} . "'"
+ unless ( $dir );
+ die "Could not find output file: `" . $Args->{'output'} .
+ "'" unless ( $file );
+
+ if ( -d $dir ) {
+ die "Could not write to output directory `" . $dir . "'."
+ unless ( -w $dir );
+ } else {
+ $dir = &make_dir($dir);
+ die "Could not create output directory in: `" . $out_path . "'."
+ unless ( $dir );
+ }
+
+ # now $dir is a writable directory
+
+ if ( -e $out_path ) {
+ die "Could not write to output file `" . $out_path . "'."
+ unless ( -w $out_path );
+ }
+
+ $out = new FH_FILE( $out_path );
+ $v->print( "Output goes to file `" . $out_path . "'." );
+ } else { # `--output' was not set
+ $out = new FH_STDOUT();
+ }
+ # no $out is the right behavior for standard output
+
+# $Args->{'prefix'} .= '_' . $Args->{'eps_func'} . '2eps';
+
+ @ARGV = @files;
+}
+
+
+1;
+########################################################################
+### Emacs settings
+# Local Variables:
+# mode: CPerl
+# End:
Index: glilypond.man
===================================================================
RCS file: glilypond.man
diff -N glilypond.man
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ glilypond.man 11 Aug 2013 08:30:09 -0000 1.4
@@ -0,0 +1,916 @@
+.TH glilypond @MAN1EXT@ "@MDATE@" "Groff Version @VERSION@"
+.SH NAME
+glilypond \[em] integrate \f[CI]lilypond\f[P] parts into \f[CI]groff\f[]
+.
+.\" This .SH was moved to this place in order to appease `apropos'.
+.
+.\" --------------------------------------------------------------------
+.\" Legalese
+.\" --------------------------------------------------------------------
+.
+.de authors
+This file was written by Bernd Warken
+.MT address@hidden
+.ME .
+.
+Last update: 25 Apr 2013
+..
+.
+.
+.\" The following macro .copying contains the license information for this
file.
+.de copying
+.nh
+.nf
+glilypond - integrate lilypond into groff files
+
+Source file position: <groff-source>/contrib/lilypond/glilypond.man
+Installed position: <prefix>/share/man/man1/glilypond.1
+
+Copyright \(co 2013
+ Free Software Foundation, Inc.
+
+This file is part of GNU groff.
+
+GNU groff is free software: you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by the
+Free Software Foundation, either version 3 of the License, or ("at
+your option") any later version.
+
+GNU groff is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with groff], see the files COPYING and LICENSE in the top
+directory of the groff source package.
+
+.hy
+.fi
+If not, see the GNU licenses at
+.UR http://www.gnu.org/licenses/
+.UE .
+..
+.
+.
+.\" --------------------------------------------------------------------
+.\" Setup
+.\" --------------------------------------------------------------------
+.
+.ds Ellipsis "\&.\|.\|.\&\"
+.
+.
+.\" --------------------------------------------------------------------
+.\" Macro definitions
+.\" --------------------------------------------------------------------
+.
+.\" --------------------------------------------------------------------
+.\" .FONT (<font name> <text> [<font name> <text> ...])
+.\"
+.\" Print in different fonts: R, I, B, CR, CI, CB
+.\"
+.de1 FONT
+. if (\\n[.$] = 0) \{\
+. nop \&\f[P]\&
+. return
+. \}
+. ds result \&
+. while (\\n[.$] >= 2) \{\
+. as result \,\f[\\$1]\\$2
+. if !"\\$1"P" .as result \f[P]
+. shift 2
+. \}
+. if (\\n[.$] = 1) .as result \,\f[\\$1]
+. nh
+. nop \\*[result]\&
+. hy
+..
+.
+.
+.\" --------------------------------------------------------------------
+.\" .OP+ (<option> [ [ | option] ...] [<optarg> [<end>] ])
+.\"
+.\" like .OP, but with 1st arg split and and optional final character
+.\" Example: `.OP+ -p | --prefix ly .' gets `[-t|--prefix ly].'
+.\" Example: `.OP+ -h | --help | --usage' gets `[-h|--help|--usage]'
+.\" Example: `.OP+ -v | --verbose "" ,' gets `[-v|--verbose],'
+.\"
+.de1 OP+
+. if ( \\n[.$] == 0 ) \{\
+. nop \&\f[CR][]\fR\&
+. return
+. \}
+. nh
+. ds result \&\f[CR][\f[CB]\\$1
+. shift
+. while (\\n[.$] >= 2) \{\
+. ie '\\$1'|' .as result \f[CR]|\f[CB]\\$2
+. el \{\
+. ie '\\$1'' .as result \f[CR]]\fR\\$2
+. el .as result \fI\ \\$1\f[CR]]\fR\\$2
+. nop \\*[result]\&
+. hy
+. return
+. \}
+. shift 2
+. \}
+. as result \fI\ \\$1\f[CR]]\fR
+. nop \\*[result]\&
+. hy
+..
+.
+.\" --------------------------------------------------------------------
+.SH "SYNOPSIS"
+.\" --------------------------------------------------------------------
+.
+.SY glilypond
+.OP+ options
+.OP+ -
+.OP+ --
+.OP+ \%filespec \*[Ellipsis]
+.YS
+.
+.
+.\" --------------------------------------------------------------------
+.SH DESCRIPTION
+.\" --------------------------------------------------------------------
+.
+.FONT CB glilypond
+transforms sheet music written in the
+.FONT CI lilypond
+language into the
+.BR groff (@MAN7EXT@)
+language using the
+.FONT CB .PSPIC
+request, such that
+.BR groff (@MAN1EXT@)
+can transform it into a format that can be displayed directly.
+.
+.
+.P
+Files in
+.FONT CI groff
+language and
+.FONT CI "standard input"
+can be provided as arguments.
+.
+.
+.\" --------------------------------------------------------------------
+.SH "OPTION OVERVIEW"
+.\" --------------------------------------------------------------------
+.
+.\" --------------------------------------------------------------------
+.SS "Breaking Options"
+.\" --------------------------------------------------------------------
+.
+.SY
+.OP+ -? | -h | --help | --usage
+.YS
+.SY
+.OP+ --version
+.YS
+.SY
+.OP+ -l | --license
+.YS
+.
+.
+.\" --------------------------------------------------------------------
+.SS "Options for building EPS Files"
+.\" --------------------------------------------------------------------
+.
+.TP
+.OP+ --ly2eps
+Here the
+.FONT CB lilypond
+program creates
+.FONT CI eps
+files directly.
+.
+This is the default.
+.
+.
+.TP
+.OP+ --pdf2eps
+The program
+.FONT CB glilypond
+generates a
+.FONT CI pdf
+file using
+.FONT CB lilypond R .
+.
+Then the
+.FONT CI eps
+file is generated by
+.FONT CB pdf2ps
+and
+.FONT CB ps2eps R .
+.
+.
+.\" --------------------------------------------------------------------
+.SS "Directories and Files"
+.\" --------------------------------------------------------------------
+.
+.TP
+.OP+ -e | --eps_dir directory_name
+Normally all
+.FONT CI EPS
+files are sent to the temporary directory.
+.
+With this option, you can generate your own directory, in which all useful
+.FONT CI EPS
+files are send.
+.
+So at last, the temporary directory can be removed.
+.
+.
+.TP
+.OP+ -p | --prefix begin_of_name
+Normally all temporary files get names that start with the
+.FONT CB ly CI \*[Ellipsis]
+prefix.
+.
+With this option, you can freely change this prefix.
+.
+.
+.TP
+.OP+ -k | --keep_all
+Normally all temporary files without the
+.FONT CI eps
+files are deleted.
+.
+With this opton, all generated files either by the
+.FONT CB lilypond
+program or other format transposers are kept.
+.
+.
+.TP
+.OP+ -t | --temp_dir dir
+With this option, you call a directory that is the base for the
+temporary directory.
+.
+This directory name is used as is without any extensions.
+.
+If this directory does not exist it is be created.
+.
+The temporary directory is created by Perl's security operations
+directly under this directory.
+.
+In this temporary directory, the temporary files are stored.
+.
+.
+.\" --------------------------------------------------------------------
+.SS "Output"
+.\" --------------------------------------------------------------------
+.
+.TP
+.OP+ -o | --output file_name
+Normally all
+.FONT CI groff
+output of this program is sent to
+.FONT CB STDOUT R .
+.
+With this option, that can be changed, such that the output is stored
+into a file named in the option argument
+.IR file_name .
+.
+.
+.TP
+.OP+ -v | -V | --verbose
+A lot more of information is sent to STDERR.
+.
+.
+.\" --------------------------------------------------------------------
+.SS "Short Option Collections"
+.\" --------------------------------------------------------------------
+.
+The argument handling of options
+.
+.
+.P
+.FONT CI "Short options"
+are arguments that start with a single dash
+.FONT CB \- R .
+.
+Such an argument can consist of arbitrary many options without option
+argument, composed as a collection of option characters following the
+single dash.
+.
+.
+.P
+Such a collection can be terminated by an option character that
+expects an option argument.
+.
+If this option character is not the last character of the argument,
+the follwing final part of the argument is the option argument.
+.
+If it is the last character of the argument, the next argument is
+taken as the option argument.
+.
+.
+.P
+This is the standard for
+.FONT CI POSIX
+and
+.FONT CI GNU
+option management.
+.
+.
+.P
+For example,
+.
+.TP
+.FONT CB \-kVesome_dir
+is a collection of the short options
+.FONT CB \-k
+and
+.FONT CB \-V
+without option argument, followed by the short option
+.FONT CB \-e
+with option argument that is the following part of the argument
+.FONT CB some_dir R .
+.
+So this argument could also be written as several arguments
+.FONT CB "\-k \-V \-e some_dir" R .
+.
+.
+.\" --------------------------------------------------------------------
+.SS "Handling of Long Options"
+.\" --------------------------------------------------------------------
+.
+Arguments that start with a double dash
+.FONT CB \-\-
+are so-called
+.FONT CI "long options" R .
+.
+Each double dash argument can only have a single long option.
+.
+.
+.P
+.FONT CI "Long options"
+have or have not an option argument.
+.
+An option argument can be the next argument or can be appended with an
+equal sign
+.FONT CB =
+to the same argument as the long option.
+.
+.
+.TP
+.FONT CB \-\-help
+is a long option without an option argument.
+.
+.TP
+.FONT CB "\-\-eps_dir some_dir"
+.TQ
+.FONT CB "\-\-eps_dir=some_dir"
+is the long option
+.FONT CB "\-\-eps_dir
+with the option argument
+.FONT CB some_dir R .
+.
+.
+.P
+Moreover the program allows abbreviations of long options, as much as
+possible.
+.
+.
+.P
+The
+.FONT CI "long option"
+.FONT CB \-\-keep_all
+can be abbreviated from
+.FONT CB \-\-keep_al
+up to
+.FONT CB \-\-k
+because the program does not have another
+.FONT CI "long option"
+whose name starts with the character
+.FONT CB k R .
+.
+.
+.P
+On the other hand, the option
+.FONT CB \-\-version
+cannot be abbreviated further than
+.FONT CB \-\-vers
+because there is also the
+.FONT CI "long option " CB \-\-verbose
+that can be abbreviated up to
+.FONT CB \-\-verb R .
+.
+.
+.P
+An option argument can also be appended to an abbreviation.
+.
+So is
+.FONT CB \-\-e=some_dir
+the same as
+.FONT CB "\-\-eps_dir some_dir" R .
+.
+.
+.P
+Moreover the program allows an arbitrary usage of upper and lower case
+in the option name.
+.
+This is
+.FONT CI Perl
+style.
+.
+.
+.P
+For example, the
+.FONT CI "long option"
+.FONT CB \-\-keep_all
+can as well be written as
+.FONT CB \-\-Keep_All
+or even as an abbreviation like
+.FONT CB \-\-KeE R .
+.
+.
+.\" --------------------------------------------------------------------
+.SH FILESPEC ARGUMENTS
+.\" --------------------------------------------------------------------
+.
+An argument that is not an option or an option argument is called a
+.FONT CI filespec
+argument.
+.
+.
+.P
+Without any
+.I filespec
+argument,
+.FONT CI "standard input"
+is read.
+.
+.
+.P
+Each
+.I filespec
+argument must either be the name of a readable file or a dash
+.FONT CB -
+for
+.FONT CI "standard input" R .
+.
+Each input must be written in the
+.FONT CI roff
+or
+.FONT CI groff
+language and can include
+.FONT CI lilypond
+parts.
+.
+.
+.P
+Normally arguments starting with a dash
+.FONT CB \-
+are interpreted as an option.
+.
+But if you use an argument that consists only of a doubled dash
+.FONT CB \-\- R ,
+all following arguments are taken as
+.FONT CI filespec
+argument, even if such an argument starts with a dash.
+.
+This is handled according to the
+.FONT CI GNU
+standard.
+.
+.
+.\" --------------------------------------------------------------------
+.SH "THE LILYPOND PARTS IN ROFF INPUT"
+.\" --------------------------------------------------------------------
+.
+.\" --------------------------------------------------------------------
+.SS "Integrated Lilypond Codes"
+.\" --------------------------------------------------------------------
+.
+A
+.FONT CI lilypond
+part within a structure written in the
+.FONT CI groff
+language is the whole part between the marks
+.EX
+.FONT CB ".lilypond start"
+.EE
+and
+.EX
+.FONT CB ".lilypond end"
+.EE
+.
+.
+.P
+A
+.FONT CI groff
+input can have several of these
+.FONT CI lilypond
+parts.
+.
+.
+.P
+When processing such a
+.FONT CI lilypond
+part between
+.FONT CB ".lilypond start"
+and
+.FONT CB ".lilypond end"
+we say that the
+.FONT CB glilypond
+program is in
+.FONT CI "lilypond mode" R .
+.
+.
+.P
+These
+.FONT CI lilypond
+parts are sent into temporary
+.FONT CI lilypond
+files with the file name extension
+.FONT CB .ly R .
+.
+These files are transformed later on into
+.FONT CI EPS
+files.
+.
+.
+.\" --------------------------------------------------------------------
+.SS "Inclusion of ly-Files"
+.\" --------------------------------------------------------------------
+.
+An additional command line for file inclusion of
+.FONT CI lilypond
+files is given by
+.EX
+.FONT CB ".lilypond include" I " file_name"
+.EE
+in
+.FONT CI groff
+input.
+.
+For each such
+.FONT CI include
+command, one file of
+.FONT CI lilypond
+code can be included into the
+.FONT CI groff
+code.
+.
+Arbitrarily many of these commands can be included in the
+.FONT CI groff
+input.
+.
+.
+.P
+These include commands can only be used outside the
+.FONT CI lilypond
+parts.
+.
+Within the
+.FONT CI "lilypond mode" R ,
+this inclusion is not possible.
+.
+So
+.FONT CB ".lilypond include"
+may not be used in
+.FONT CI "lilypond mode" R ,
+i.e. between
+.FONT CB ".lilypond start"
+and
+.FONT CB ".lilypond end" R .
+.
+.
+These included
+.FONT CI ly R -files
+are also transformed into
+.FONT CI EPS
+files.
+.
+.
+.\" --------------------------------------------------------------------
+.SH "GENERATED FILES"
+.\" --------------------------------------------------------------------
+.
+By the transformation process of
+.FONT CI lilypond
+parts into
+.FONT CI EPS
+files, there are many files generated.
+.
+By default, these files are regarded as temporary files and as such
+stored in a temporary directory.
+.
+.
+.P
+This process can be changed by command line options.
+.
+.
+.\" --------------------------------------------------------------------
+.SS "Command Line Options for Directories"
+.\" --------------------------------------------------------------------
+.
+The temporary directory for this program is either created
+automatically or can be named by the option
+.OP+ -t | --temp_dir dir .
+.
+.
+.P
+Moreover, the
+.FONT CI EPS
+files that are later on referred by
+.FONT CB .PSPIC
+command in the final
+.FONT CI groff
+output can be stored in a different directory that can be set by the
+command line option
+.OP+ -e | --eps_dir directory_name .
+.
+With this option, the temporary directory can be removed completely at
+the end of the program.
+.
+.
+.P
+The beginning of the names of the temporary files can be set by the
+command line option
+.OP+ -p | --prefix begin_of_name .
+.
+.
+.P
+All of the temporary files except the
+.FONT CI EPS
+files are deleted finally.
+.
+This can be changed by setting the command line option
+.OP+ -k | --keep_files
+.
+With this, all temporary files and directories are kept, not deleted.
+.
+.
+.P
+These
+.FONT CI EPS
+files are stored in a temporary or
+.FONT CI EPS
+directory.
+.
+But they cannot be deleted by the transformation process because they
+are needed for the display which can take a long time.
+.
+.
+.\" --------------------------------------------------------------------
+.SH "TRANSFORMATION PROCESSES FOR GENERATING EPS FILES"
+.\" --------------------------------------------------------------------
+.
+.\" --------------------------------------------------------------------
+.SS "Mode ly2eps"
+.\" --------------------------------------------------------------------
+.
+This mode is the default.
+.
+It can also be chosen by the option
+.FONT CB --ly2eps R .
+.
+.
+.P
+In this mode, the
+.FONT CB .ly
+files are transformed by the
+.FONT CB lilypond
+program into many files of different formats, including
+.FONT CI eps
+files, using
+.EX
+.FONT CB "$ lilypond \-\-ps \-dbackend=eps \-dgs\-load\-fonts \-\-output=" I
file\-name
+.EE
+for each
+.FONT CB .ly
+file.
+.
+The output
+.I file\-name
+must be provided without an extension, its directory is temporary..
+.
+.
+.P
+There are many
+.FONT CI EPS
+files created.
+.
+One having the complete transformed
+.FONT CB ly
+file, named
+.FONT I file\-name CB .eps R .
+.
+.
+.P
+Moreover there are
+.FONT CI EPS
+files for each page, named
+.FONT I file\-name CB \- I digit CB .eps R .
+.
+.
+.P
+The last step to be done is replacing all
+.FONT CI lilypond
+parts by the collection of the corresponding
+.FONT CI EPS
+page files.
+.
+This is done by
+.FONT CI groff
+commands
+.EX
+.FONT CB ".PSPIC " CI file-name CB \- I digit CB .eps
+.EE
+.
+.
+.\" --------------------------------------------------------------------
+.SS "Mode pdf2eps"
+.\" --------------------------------------------------------------------
+.
+This mode can be chosen by the option
+.FONT CB --pdf2eps R .
+.
+.
+.P
+In this mode, the
+.FONT CB .ly
+files are transformed by the
+.BR lilypond (1)
+program into
+.FONT CI pdf
+files, using
+.EX
+.FONT CB "lilypond \-\-pdf \-\-output=" I file-name
+.EE
+for each
+.FONT CB .ly
+file.
+.
+The
+.I file-name
+must be provided without the extension
+.FONT CB .pdf R .
+.
+By this process, a file
+.FONT CI file-name CB .pdf
+is generated.
+.
+.
+.P
+The next step is to transform these
+.FONT CI PDF
+files into a
+.FONT CI PS
+file.
+.
+This is done by the
+.BR pdf2ps (1)
+program using
+.EX
+.FONT R "$ " CB "pdf2ps " CI file-name CB ".pdf " CI file-name CB ".ps"
+.EE
+.
+.
+The next step creates an
+.FONT CI EPS
+file from the
+.FONT CI PS
+file.
+.
+This is done by the
+.BR ps2eps (1)
+program using
+.EX
+.FONT R "$ " CB "ps2eps " CI file-name CB ".ps"
+.EE
+.
+.
+.P
+By that, a file
+.FONT CI file-name CB .eps
+is created for each
+.FONT CI lilypond
+part in the
+.FONT CI groff
+file or standard input.
+.
+.
+.P
+The last step to be done is replacing all
+.FONT CI lilypond
+parts by the
+.FONT CI groff
+command
+.EX
+.FONT CB ".PSPIC " CI file-name CB .eps
+.EE
+.
+.
+.\" --------------------------------------------------------------------
+.SH "THE GENERATED NEW ROFF STRUCTURE"
+.\" --------------------------------------------------------------------
+.
+The new
+.BR groff (@MAN7EXT@)
+structure generated by
+.FONT CB glilypond
+is either
+.
+.TP
+1)
+sent to standard output and can there be saved into a file or piped into
+.BR groff (@MAN1EXT@)
+or
+.BR groffer (@MAN1EXT@)
+or
+.
+.TP
+2)
+stored into a file by given the option
+.OP -o\fR|\fB\~--output file_name
+.
+.
+.\" --------------------------------------------------------------------
+.SH "SEE ALSO"
+.\" --------------------------------------------------------------------
+.
+.TP
+.BR groff (@MAN1EXT@)
+the usage of the groff program and pointers to the documentation and
+availability of the
+.FONT CI groff
+system.
+.
+The main source of information for the
+.FONT CI groff
+szstem is the
+.FONT CB groff
+.BR info (1)
+file.
+.
+.
+.TP
+.BR groff (@MAN7EXT@)
+documents the
+.FONT CI groff
+language.
+.
+.
+.TP
+.BR groff_tmac (@MAN5EXT@)
+contains documentation of the
+.FONT CB .PSPIC
+request.
+.
+.
+.TP
+.BR lilypond (1)
+The documentation of the
+.FONT CB lilypond
+program.
+.
+The main source of information for the
+.FONT CI lilypond
+language is the
+.FONT CB lilypond
+.BR info (1)
+file.
+.
+.
+.TP
+.BR pdf2ps (1)
+transform a
+.FONT CI PDF
+file into a
+.FONT CI Postscript
+format.
+.
+.
+.TP
+.BR ps2eps (1)
+transform a
+.FONT CI PS
+file into an
+.FONT CI EPS
+format.
+.
+.
+.\" --------------------------------------------------------------------
+.SH "AUTHORS"
+.\" --------------------------------------------------------------------
+.authors
+.
+.
+.\" --------------------------------------------------------------------
+.SH "COPYING"
+.\" --------------------------------------------------------------------
+.copying
+.
+.
+.\" --------------------------------------------------------------------
+.\" Emacs settings
+.\" --------------------------------------------------------------------
+.
+.\" Local Variables:
+.\" mode: nroff
+.\" End:
Index: glilypond.pl
===================================================================
RCS file: glilypond.pl
diff -N glilypond.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ glilypond.pl 11 Aug 2013 08:30:10 -0000 1.9
@@ -0,0 +1,763 @@
+#! /usr/bin/env perl
+
+package main;
+
+########################################################################
+# debugging
+########################################################################
+
+# See `Mastering Perl', chapter 4.
+
+# use strict;
+# use warnings;
+# use diagnostics;
+
+use Carp;
+$SIG[__DIE__] = sub { &Carp::croak; };
+
+use Data::Dumper;
+
+########################################################################
+# Legalese
+########################################################################
+
+our $Legalese;
+
+{
+ use constant VERSION => 'v1.1'; # version of glilypond
+ use constant LASTUPDATE => '10 May 2013'; # date of last update
+
+### This constant `LICENSE' is the license for this file `GPL' >= 3
+ use constant LICENSE => q*
+glilypond - integrate `lilypond' into `groff' files
+
+Source file position: `<groff-source>/contrib/glilypond/glilypond.pl'
+Installed position: `<prefix>/bin/glilypond'
+
+Copyright (C) 2013 Free Software Foundation, Inc.
+ Written by Bernd Warken <address@hidden>
+
+This file is part of `GNU groff'.
+
+ `GNU groff' is free software: you can redistribute it and/or modify it
+under the terms of the `GNU General Public License' as published by the
+`Free Software Foundation', either version 3 of the License, or (at your
+option) any later version.
+
+ `GNU groff' is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the `GNU
+General Public License' for more details.
+
+ You should have received a copy of the 'GNU General Public License`
+along with `groff', see the files `COPYING' and `LICENSE' in the top
+directory of the `groff' source package. If not, see
+<http://www.gnu.org/licenses/>.
+*;
+
+
+ $Legalese =
+ {
+ 'version' => VERSION,
+ 'last_update' => LASTUPDATE,
+ 'license' => LICENSE,
+ }
+
+}
+
+##### end legalese
+
+
+########################################################################
+# global variables and BEGIN
+########################################################################
+
+use integer;
+use utf8;
+
+use Cwd qw[];
+use File::Basename qw[];
+use File::Copy qw[];
+use File::HomeDir qw[];
+use File::Spec qw[];
+use File::Path qw[];
+use File::Temp qw[];
+use FindBin qw[];
+use POSIX qw[];
+
+
+BEGIN {
+
+ use constant FALSE => 0;
+ use constant TRUE => 1;
+ use constant EMPTYSTRING => '';
+ use constant EMPTYARRAY => ();
+ use constant EMPTYHASH => ();
+
+ our $Globals =
+ {
+ 'before_make' => FALSE,
+ 'groff_version' => EMPTYSTRING,
+ 'prog' => EMPTYSTRING,
+ };
+
+ {
+ ( my $volume, my $directory, $Globals->{'prog'} ) =
+ File::Spec->splitpath($0);
+ # $Globals->{'prog'} is `glilypond' when installed,
+ # `glilypond.pl' when not
+ }
+
+
+ $\ = "\n"; # adds newline at each print
+ $/ = "\n"; # newline separates input
+ $| = 1; # flush after each print or write command
+
+
+ {
+ {
+ # script before run of `make'
+ my $at = '@';
+ $Globals->{'before_make'} = TRUE if '@VERSION@' eq "${at}VERSION${at}";
+ }
+
+ my $file_test_pl;
+ my $glilypond_libdir;
+
+ if ( $Globals->{'before_make'} ) { # in source, not yet installed
+ my $glilypond_dir = $FindBin::Bin;
+ $glilypond_dir = Cwd::realpath($glilypond_dir);
+ $glilypond_libdir = $glilypond_dir;
+
+ } else { # already installed
+ $Globals->{'groff_version'} = '@VERSION@';
+ $glilypond_libdir = '@glilypond_dir@';
+ }
+
+ unshift(@INC, $glilypond_libdir);
+
+ umask 0077; # octal output: `printf "%03o", umask;'
+ }
+
+ require 'subs.pl';
+}
+
+die "test: ";
+########################################################################
+# OOP declarations for some file handles
+########################################################################
+
+require 'oop_fh.pl';
+
+our $stdout = new FH_STDOUT();
+our $stderr = new FH_STDERR();
+
+# verbose printing, not clear wether this will be set by `--verbose',
+# so store this now into a string, which can be gotten later on, when
+# it will become either STDERR or /dev/null
+our $v = new FH_STRING();
+
+# for standard output, either STDOUT or output file
+our $out;
+
+# end of FH
+
+
+########################################################################
+# Args: command line arguments
+########################################################################
+
+# command line arguments are handled in 2 runs:
+# 1) split short option collections, `=' optargs, and transfer abbrevs
+# 2) handle the transferred options with subs
+
+our $Args =
+ {
+ 'eps_dir' => EMPTYSTRING, # can be overwritten by `--eps_dir'
+
+ # `eps-func' has 2 possible values:
+ # 1) `ly' from `--ly2eps' (default)
+ # 2) `pdf' `--pdf2eps'
+ 'eps_func' => 'ly',
+
+ # files names of temporary files start with this string,
+ # can be overwritten by `--prefix'
+ 'prefix' => 'ly',
+
+ # delete or do not delete temporary files
+ 'keep_all' => FALSE,
+
+ # the roff output goes normally to STDOUT, can be a file with `--output'
+ 'output' => EMPTYSTRING,
+
+ # temporary directory, can be overwritten by `--temp_dir',
+ # empty for default of the program
+ 'temp_dir' => EMPTYSTRING,
+
+ # regulates verbose output (on STDERR), overwritten by `--verbose'
+ 'verbose' => FALSE,
+ };
+
+{ # `Args'
+ require 'args.pl';
+ &run_first();
+ &install_verbose();
+ &run_second();
+ &handle_args();
+}
+
+# end `Args'
+
+
+########################################################################
+# temporary directory .../tmp/groff/USER/lilypond/TIME
+########################################################################
+
+our $Temp =
+ {
+ # store the current directory
+ 'cwd' => Cwd::getcwd(),
+
+ # directory for EPS files
+ 'eps_dir' => EMPTYSTRING,
+
+ # temporary directory
+ 'temp_dir' => EMPTYSTRING,
+ };
+
+{ # `Temp'
+
+ if ( $Args->{'temp_dir'} ) {
+
+ #----------
+ # temporary directory was set by `--temp_dir'
+ #----------
+
+ my $dir = $Args->{'temp_dir'};
+
+ $dir = &path2abs($dir);
+ $dir = &make_dir($dir) or
+ die "The directory `$dir' cannot be used temporarily: $!";
+
+
+ # now `$dir' is a writable directory
+
+ opendir( my $dh, $dir ) or
+ die "Could not open temporary directory `$dir': $!";
+ my $file_name;
+ my $found = FALSE;
+ my $prefix = $Args->{'prefix'};
+ my $re = qr<
+ ^
+ $prefix
+ _
+ >x;
+
+ READDIR: while ( defined($file_name = readdir($dh)) ) {
+ chomp $file_name;
+ if ( $file_name =~ /$re/ ) { # file name starts with $prefix_
+ $found = TRUE;
+ last READDIR;
+ }
+ next;
+ }
+
+ $Temp->{'temp_dir'} = $dir;
+ my $n = 0;
+ while ( $found ) {
+ $dir = File::Spec->catdir( $Temp->{'temp_dir'}, ++$n );
+ next if ( -e $dir );
+
+ $dir = &make_dir($dir) or next;
+
+ $found = FALSE;
+ last;
+ }
+
+ $Temp->{'temp_dir'} = $dir;
+
+
+ } else { # $Args->{'temp_dir'} not given by `--temp_dir'
+
+ #----------
+ # temporary directory was not set
+ #----------
+
+ { # search for or create a temporary directory
+
+ my @tempdirs = EMPTYARRAY;
+ {
+ my $tmpdir = File::Spec->tmpdir();
+ push @tempdirs, $tmpdir if ( $tmpdir && -d $tmpdir && -w $tmpdir );
+
+ my $root_dir = File::Spec->rootdir(); # `/' in Unix
+ my $root_tmp = File::Spec->catdir($root_dir, 'tmp');
+ push @tempdirs, $root_tmp
+ if ( $root_tmp ne $tmpdir && -d $root_tmp && -w $root_tmp );
+
+ # home directory of the actual user
+ my $home = File::HomeDir->my_home;
+ my $home_tmp = File::Spec->catdir($home, 'tmp');
+ push @tempdirs, $home_tmp if ( -d $home_tmp && -w $home_tmp );
+
+ # `/var/tmp' in Unix
+ my $var_tmp = File::Spec->catdir('', 'var', 'tmp');
+ push @tempdirs, $var_tmp if ( -d $var_tmp && -w $var_tmp );
+ }
+
+
+ my @path_extension = qw( groff ); # TEMPDIR/groff/USER/lilypond/<NUMBER>
+ {
+ # `$<' is UID of actual user,
+ # `getpwuid' gets user name in scalar context
+ my $user = getpwuid($<);
+ push @path_extension, $user if ( $user );
+
+ push @path_extension, qw( lilypond );
+ }
+
+
+ TEMPS: foreach ( @tempdirs ) {
+
+ my $dir; # final directory name in `while' loop
+ $dir = &path2abs($_);
+ next TEMPS unless ( $dir );
+
+ # beginning of directory name
+ my @dir_begin =
+ ( File::Spec->splitdir($dir), @path_extension );
+
+
+ my $n = 0;
+ my $dir_blocked = TRUE;
+ BLOCK: while ( $dir_blocked ) {
+ # should become the final dir name
+ $dir = File::Spec->catdir(@dir_begin, ++$n);
+ next BLOCK if ( -d $dir );
+
+ # dir name is now free, create it, and end the blocking
+ my $res = &make_dir( $dir );
+ die "Could not create directory: $dir" unless ( $res );
+
+ $dir = $res;
+ $dir_blocked = FALSE;
+ }
+
+ next TEMPS unless ( -d $dir && -w $dir );
+
+ # $dir is now a writable directory
+ $Temp->{'temp_dir'} = $dir; # tmp/groff/USER/lilypond/TIME
+ last TEMPS;
+ } # end foreach tmp directories
+ } # end to create a temporary directory
+
+ die "Could not find a temporary directory" unless
+ ( $Temp->{'temp_dir'} && -d $Temp->{'temp_dir'} &&
+ -w $Temp->{'temp_dir'} );
+
+ } # end temporary directory
+
+ $v->print( "Temporary directory: `" . $Temp->{'temp_dir'} . "'\n" );
+ $v->print( "file_prefix: `" . $Args->{'prefix'} . "'" );
+
+
+ #----------
+ # EPS directory
+ #----------
+
+ my $make_dir = FALSE;
+ if ( $Args->{'eps_dir'} ) { # set by `--eps_dir'
+ my $dir = $Args->{'eps_dir'};
+
+ $dir = &path2abs($dir);
+
+ if ( -e $dir ) {
+ goto EMPTY unless ( -w $dir );
+
+ # `$dir' is writable
+ if ( -d $dir ) {
+ my $upper_dir = $dir;
+
+ my $found = FALSE;
+ opendir( my $dh, $upper_dir ) or $found = TRUE;
+ my $prefix = $Args->{'prefix'};
+ my $re = qr<
+ ^
+ $prefix
+ _
+ >x;
+ while ( not $found ) {
+ my $file_name = readdir($dh);
+ if ( $file_name =~ /$re/ ) { # file name starts with $prefix_
+ $found = TRUE;
+ last;
+ }
+ next;
+ }
+
+ my $n = 0;
+ while ( $found ) {
+ $dir = File::Spec->catdir($upper_dir, ++$n);
+ next if ( -d $dir );
+ $found = FALSE;
+ }
+ $make_dir = TRUE;
+ $Temp->{'eps_dir'} = $dir;
+ } else { # `$dir' is not a dir, so unlink it to create it as dir
+ if ( unlink $dir ) { # could remove `$dir'
+ $Temp->{'eps_dir'} = $dir;
+ $make_dir = TRUE;
+ } else { # could not remove
+ stderr->print( "Could not use EPS dir `" . $dir .
+ "', use temp dir." );
+ } # end of unlink
+ } # end test of -d $dir
+ } else {
+ $make_dir = TRUE;
+ } # end of if -e $dir
+
+
+ if ( $make_dir ) { # make directory `$dir'
+ my $made = FALSE;
+ $dir = &make_dir($dir) and $made = TRUE;
+
+ if ( $made ) {
+ $Temp->{'eps_dir'} = $dir;
+ $v->print( "Directory for useful EPS files is `" . $dir . "'." );
+ } else {
+ $v->print( "The EPS directory `" . $dir . "' cannot be used: $!" );
+ }
+ } else { # `--eps_dir' was not set, so take the temporary directory
+ $Temp->{'eps_dir'} = $Args->{'temp_dir'};
+ } # end of make dir
+ }
+
+ EMPTY: unless ( $Temp->{'eps_dir'} ) {
+ # EPS-dir not set or available, use temp dir,
+ # but leave $Temp->{'}eps_dir'} empty
+ $v->print( "Directory for useful EPS files is the " .
+ "temporary directory `" . $Temp->{'temp_dir'} . "'." );
+ }
+
+} # end `Temp'
+
+
+########################################################################
+# Read: read files or stdin
+########################################################################
+
+our $Read =
+ {
+ 'file_numbered' => EMPTYSTRING,
+ 'file_ly' => EMPTYSTRING, # `$file_numbered.ly'
+ };
+
+{ # read files or stdin
+
+ my $ly_number = 0; # number of lilypond file
+
+ # `$Args->{'prefix'}_[0-9]'
+
+ my $lilypond_mode = FALSE;
+
+ my $arg1; # first argument for `.lilypond'
+ my $arg2; # argument for `.lilypond include'
+
+ my $path_ly; # path of ly-file
+
+
+ my $check_file = sub { # for argument of `.lilypond include'
+ my $file = shift; # argument is a file name
+ $file = &path2abs($file);
+ unless ( $file ) {
+ die "Line `.lilypond include' without argument";
+ return '';
+ }
+ unless ( -f $file && -r $file ) {
+ die "Argument `$file' in `.lilypond include' is not a readable file";
+ }
+
+ return $file;
+ }; # end sub &$check_file()
+
+
+ my $increase_ly_number = sub {
+ ++$ly_number;
+ $Read->{'file_numbered'} = $Args->{'prefix'} . '_' . $ly_number;
+ $Read->{'file_ly'} = $Read->{'file_numbered'} . '.ly';
+ $path_ly = File::Spec->catdir($Temp->{'temp_dir'}, $Read->{'file_ly'} );
+ };
+
+
+ my %eps_subs =
+ (
+ 'ly' => \&create_ly2eps, # lilypond creates EPS files
+ 'pdf' => \&create_pdf2eps, # lilypond creates PDF file
+ );
+
+ # about lines starting with `.lilypond'
+
+ my $ly;
+ my $fh_include_file;
+ my %lilypond_args =
+ (
+
+ 'start' => sub {
+ $v->print( "\nline: `.lilypond start'" );
+ die "Line `.lilypond stop' expected." if ( $lilypond_mode );
+
+ $lilypond_mode = TRUE;
+ &$increase_ly_number;
+
+ $v->print( "ly-file: `" . $path_ly . "'" );
+
+ $ly = new FH_FILE($path_ly);
+ },
+
+
+ 'end' => sub {
+ $v->print( "line: `.lilypond end'\n" );
+ die "Expected line `.lilypond start'." unless ( $lilypond_mode );
+
+ $lilypond_mode = FALSE;
+ $ly->close();
+
+ if ( exists $eps_subs{ $Args->{'eps_func'} } ) {
+ $eps_subs{ $Args->{'eps_func'} }->();
+ } else {
+ die "Wrong argument for \%eps_subs: " . $Args->{'eps_func'} . "'";
+ }
+ },
+
+
+ 'include' => sub { # `.lilypond include file...'
+
+ # this may not be used within lilypond mode
+ next LILYPOND if ( $lilypond_mode );
+
+ my $file_arg = shift;
+
+ my $file = &$check_file($file_arg);
+ next LILYPOND unless ( $file );
+ # file can be read now
+
+
+ # `$fh_write_ly' must be opened
+ &$increase_ly_number;
+
+ $ly = new FH_FILE($path_ly);
+
+ my $include = new FH_READ_FILE($file);
+ my $res = $include->read-all(); # is a refernce to an array
+ foreach ( @$res ) {
+ chomp;
+ $ly->print($_);
+ }
+ $ly->close();
+
+ if ( exists $eps_subs{ $Args->{'eps_func'} } ) {
+ $eps_subs{ $Args->{'eps_func'} }->();
+ } else {
+ die "Wrong argument for \$eps_subs: `" . $Args->{'eps_func'} . "'";
+ }
+ }, # end `.lilypond include'
+
+ ); # end definition %lilypond_args
+
+
+ LILYPOND: foreach (<>) {
+ chomp;
+ my $line = $_;
+
+
+ # now the lines with '.lilypond ...'
+
+ if ( /
+ ^
+ [.']
+ \s*
+ lilypond
+ (
+ .*
+ )
+ $
+ /x ) { # .lilypond ...
+ my $args = $1;
+ $args =~ s/
+ ^
+ \s*
+ //x;
+ $args =~ s/
+ \s*
+ $
+ //x;
+ $args =~ s/
+ ^
+ (
+ \S*
+ )
+ \s*
+ //x;
+ my $arg1 = $1; # `start', `end' or `include'
+ $args =~ s/["'`]//g;
+ my $arg2 = $args; # file argument for `.lilypond include'
+
+ if ( exists $lilypond_args{$arg1} ) {
+ $lilypond_args{$arg1}->($arg2);
+ next;
+ } else {
+ # not a suitable argument of `.lilypond'
+ $stderr->print( "Unknown command: `$arg1' `$arg2': `$line'" );
+ }
+
+ next LILYPOND;
+ } # end if for .lilypond
+
+
+ if ( $lilypond_mode ) { # do lilypond-mode
+ # see `.lilypond start'
+ $ly->print( $line );
+ next LILYPOND;
+ } # do lilypond-mode
+
+ # unknown line without lilypond
+ unless ( /
+ ^
+ [.']
+ \s*
+ lilypond
+ /x ) { # not a `.lilypond' line
+ $out->print($line);
+ next LILYPOND;
+ }
+
+ } # end foreach <>
+} # end Read
+
+
+########################################################################
+# clean up
+########################################################################
+
+END {
+
+ exit unless ( defined($Temp->{'temp_dir'}) );
+
+ if ( $Args->{'keep_all'} ) {
+ # With --keep_all, no temporary files are removed.
+ $v->print( "keep_all: `TRUE'" );
+ $v->print( "No temporary files will be deleted:" );
+
+ opendir my $dh_temp, $Temp->{'temp_dir'} or
+ die "Cannot open " . $Temp->{'temp_dir'} . ": $!";
+ for ( sort readdir $dh_temp ) {
+ next if ( / # omit files starting with a dot
+ ^
+ \.
+ /x );
+ if ( /
+ ^
+ $Args->{'prefix'}
+ _
+ /x ) {
+ my $file = File::Spec->catfile( $Temp->{'temp_dir'}, $_ );
+ $v->print( "- " . $file );
+ next;
+ }
+ next;
+ } # end for sort readdir
+ closedir $dh_temp;
+
+ } else { # keep_all is not set
+ # Remove all temporary files except the eps files.
+
+ $v->print( "keep_all: `FALSE'" );
+ $v->print( "All temporary files except *.eps will be deleted" );
+
+
+ if ( $Temp->{'eps_dir'} ) {
+ # EPS files are in another dir, remove temp dir
+
+ if ( &is_subdir( $Temp->{'eps_dir'}, $Temp->{'temp_dir'} ) ) {
+ $v->print( "EPS dir is subdir of temp dir, so keep both." );
+ } else { # remove temp dir
+ $v->print( "Try to remove temporary directory `" .
+ $Temp->{'temp_dir'} ."':" );
+ if ( File::Path::remove_tree($Temp->{'temp_dir'}) ) {
+ # remove succeeds
+ $v->print( "...done." );
+ } else { # did not remove
+ $v->print( "Failure to remove temporary directory." );
+ } # end test on remove
+ } # end is subdir
+
+ } else { # no EPS dir, so keep EPS files
+
+ opendir my $dh_temp, $Temp->{'temp_dir'} or
+ die "Cannot open " . $Temp->{'temp_dir'} . ": $!";
+ for ( sort readdir $dh_temp ) {
+ next if ( / # omit files starting with a dot
+ ^
+ \.
+ /x );
+ next if ( / # omit EPS-files
+ \.eps
+ $
+ /x );
+ if ( /
+ ^
+ $Args->{'prefix'}
+ _
+ /x ) { # this includes `PREFIX_temp*'
+ my $file = File::Spec->catfile( $Temp->{'temp_dir'}, $_ );
+ $v->print( "Remove `" . $file . "'" );
+ unlink $file or $stderr->print( "Could not remove `$file': $!" );
+ next;
+ } # end if prefix
+ next;
+ } # end for readdir temp dir
+ closedir $dh_temp;
+ } # end if-else EPS files
+ } # end if-else keep files
+
+
+ if ( $Temp->{'eps_dir'} ) {
+ # EPS files in $Temp->{'eps_dir'} are always kept
+ $v->print( "As EPS directrory is set as `" .
+ $Temp->{'eps_dir'} . "', no EPS files there will be deleted." );
+
+ opendir my $dh_temp, $Temp->{'eps_dir'} or
+ die "Cannot open `" . $Temp->{'eps_dir'} . ": $!";
+ for ( sort readdir $dh_temp ) {
+ next if ( / # omit files starting with a dot
+ ^
+ \.
+ /x );
+ if ( /
+ ^
+ $Args->{'prefix'}
+ _
+ .*
+ \.eps
+ $
+ /x ) {
+ my $file = File::Spec->catfile( $Temp->{'eps_dir'}, $_ );
+ $v->print( "- " . $file );
+ next;
+ } # end if *.eps
+ next;
+ } # end for sort readdir
+ closedir $dh_temp;
+
+ }
+
+ 1;
+} # end package Clean
+
+
+1;
+########################################################################
+### Emacs settings
+# Local Variables:
+# mode: CPerl
+# End:
Index: oop_fh.pl
===================================================================
RCS file: oop_fh.pl
diff -N oop_fh.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ oop_fh.pl 11 Aug 2013 08:30:11 -0000 1.6
@@ -0,0 +1,311 @@
+my $License = q*
+########################################################################
+# Legalese
+########################################################################
+
+Source file position: `<groff-source>/contrib/glilypond/oop_fh.pl'
+Installed position: `<prefix>/lib/groff/glilypond/oop_fh.pl'
+
+Copyright (C) 2013 Free Software Foundation, Inc.
+ Written by Bernd Warken <address@hidden>
+
+Last update: 10 May 2013
+
+This file is part of `glilypond', which is part of `GNU groff'.
+
+glilypond - integrate `lilypond' into `groff' files
+
+ `GNU groff' is free software: you can redistribute it and/or modify it
+under the terms of the `GNU General Public License' as published by the
+`Free Software Foundation', either version 3 of the License, or (at your
+option) any later version.
+
+ `GNU groff' is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the `GNU
+General Public License' for more details.
+
+ You should have received a copy of the 'GNU General Public License`
+along with `groff', see the files `COPYING' and `LICENSE' in the top
+directory of the `groff' source package. If not, see
+<http://www.gnu.org/licenses/>.
+*;
+
+##### end legalese
+
+
+# use strict;
+# use warnings;
+# use diagnostics;
+
+use integer;
+
+########################################################################
+# OOP for writing file handles that are open by default, like STD*
+########################################################################
+
+# -------------------------- _FH_WRITE_OPENED --------------------------
+
+{ # FH_OPENED: base class for all opened file handles, like $TD*
+
+ package _FH_WRITE_OPENED;
+ use strict;
+
+ sub new {
+ my ( $pkg, $std ) = @_;
+ bless {
+ 'fh' => $std,
+ }
+ }
+
+ sub open {
+ }
+
+ sub close {
+ }
+
+ sub print {
+ my $self = shift;
+ for ( @_ ) {
+ print { $self->{'fh'} } $_;
+ }
+ }
+
+}
+
+
+# ------------------------------ FH_STDOUT ----------------------------
+
+{ # FH_STDOUT: print to noral output STDOUT
+
+ package FH_STDOUT;
+ use strict;
+ @FH_STDOUT::ISA = qw( _FH_WRITE_OPENED );
+
+ sub new {
+ &_FH_WRITE_OPENED::new( '_FH_WRITE_OPENED', *STDOUT );
+ }
+
+} # end FH_STDOUT
+
+
+# ------------------------------ FH_STDERR -----------------------------
+
+{ # FH_STDERR: print to STDERR
+
+ package FH_STDERR;
+ use strict;
+ @FH_STDERR::ISA = qw( _FH_WRITE_OPENED );
+
+ sub new {
+ &_FH_WRITE_OPENED::new( 'FH_OPENED', *STDERR );
+ }
+
+} # end FH_STDERR
+
+
+########################################################################
+# OOP for file handles that write into a file or string
+########################################################################
+
+# ------------------------------- FH_FILE ------------------------------
+
+{ # FH_FILE: base class for writing into a file or string
+
+ package FH_FILE;
+ use strict;
+
+ sub new {
+ my ( $pkg, $file ) = @_;
+ bless {
+ 'fh' => undef,
+ 'file' => $file,
+ 'opened' => main::FALSE,
+ }
+ }
+
+ sub DESTROY {
+ my $self = shift;
+ $self->close();
+ }
+
+ sub open {
+ my $self = shift;
+ my $file = $self->{'file'};
+ if ( $file && -e $file ) {
+ die "file $file is not writable" unless ( -w $file );
+ die "$file is a directory" if ( -d $file );
+ }
+ open $self->{'fh'}, ">", $self->{'file'}
+ or die "could not open file `$file' for writing: $!";
+ $self->{'opened'} = main::TRUE;
+ }
+
+ sub close {
+ my $self = shift;
+ close $self->{'fh'} if ( $self->{'opened'} );
+ $self->{'opened'} = main::FALSE;
+ }
+
+ sub print {
+ my $self = shift;
+ $self->open() unless ( $self->{'opened'} );
+ for ( @_ ) {
+ print { $self->{'fh'} } $_;
+ }
+ }
+
+} # end FH_FILE
+
+
+# ------------------------------ FH_STRING -----------------------------
+
+{ # FH_STRING: write into a string
+
+ package FH_STRING; # write to \string
+ use strict;
+ @FH_STRING::ISA = qw( FH_FILE );
+
+ sub new {
+ my $pkg = shift; # string is a reference to scalar
+ bless
+ {
+ 'fh' => undef,
+ 'string' => '',
+ 'opened' => main::FALSE,
+ }
+ }
+
+ sub open {
+ my $self = shift;
+ open $self->{'fh'}, ">", \ $self->{'string'}
+ or die "could not open string for writing: $!";
+ $self->{'opened'} = main::TRUE;
+ }
+
+ sub get { # get string, move to array ref, close, and return array ref
+ my $self = shift;
+ return '' unless ( $self->{'opened'} );
+ my $a = &string2array( $self->{'string'} );
+ $self->close();
+ return $a;
+ }
+
+} # end FH_STRING
+
+
+# -------------------------------- FH_NULL -----------------------------
+
+{ # FH_NULL: write to null device
+
+ package FH_NULL;
+ use strict;
+ @FH_NULL::ISA = qw( FH_FILE FH_STRING );
+
+ use File::Spec;
+
+ my $devnull = File::Spec->devnull();
+ $devnull = '' unless ( -e $devnull && -w $devnull );
+
+ sub new {
+ my $pkg = shift;
+ if ( $devnull ) {
+ &FH_FILE::new( $pkg, $devnull );
+ } else {
+ &FH_STRING::new( $pkg );
+ }
+ } # end new()
+
+} # end FH_NULL
+
+
+########################################################################
+# OOP for reading file handles
+########################################################################
+
+# ---------------------------- FH_READ_FILE ----------------------------
+
+{ # FH_READ_FILE: read a file
+
+ package FH_READ_FILE;
+ use strict;
+
+ sub new {
+ my ( $pkg, $file ) = @_;
+ die "File `$file' cannot be read." unless ( -f $file && -r $file );
+ bless {
+ 'fh' => undef,
+ 'file' => $file,
+ 'opened' => main::FALSE,
+ }
+ }
+
+ sub DESTROY {
+ my $self = shift;
+ $self->close();
+ }
+
+ sub open {
+ my $self = shift;
+ my $file = $self->{'file'};
+ if ( $file && -e $file ) {
+ die "file $file is not writable" unless ( -r $file );
+ die "$file is a directory" if ( -d $file );
+ }
+ open $self->{'fh'}, "<", $self->{'file'}
+ or die "could not read file `$file': $!";
+ $self->{'opened'} = main::TRUE;
+ }
+
+ sub close {
+ my $self = shift;
+ close $self->{'fh'} if ( $self->{'opened'} );
+ $self->{'opened'} = main::FALSE;
+ }
+
+ sub read_line {
+ # Read 1 line of the file into a chomped string.
+ # Do not close the read handle at the end.
+ my $self = shift;
+ $self->open() unless ( $self->{'opened'} );
+
+ my $res;
+ if ( defined($res = CORE::readline($self->{'fh'}) ) ) {
+ chomp $res;
+ return $res;
+ } else {
+ $self->close();
+ return undef;
+ }
+ }
+
+ sub read_all {
+ # Read the complete file into an array reference.
+ # Close the read handle at the end.
+ # Return array reference.
+ my $self = shift;
+ $self->open() unless ( $self->{'opened'} );
+
+ my $res = [];
+ my $line;
+ while ( defined ( $line = CORE::readline $self->{'fh'} ) ) {
+ chomp $line;
+ push @$res, $line;
+ }
+ $self->close();
+ $self->{'opened'} = main::FALSE;
+ return $res;
+ }
+
+}
+
+# end of OOP definitions
+
+package main;
+
+1;
+########################################################################
+### Emacs settings
+# Local Variables:
+# mode: CPerl
+# End:
Index: subs.pl
===================================================================
RCS file: subs.pl
diff -N subs.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ subs.pl 11 Aug 2013 08:30:12 -0000 1.8
@@ -0,0 +1,469 @@
+my $License = q*
+########################################################################
+# Legalese
+########################################################################
+
+Subroutines for `glilypond'.
+
+Source file position: `<groff-source>/contrib/glilypond/subs.pl'
+Installed position: `<prefix>/lib/groff/glilypond/subs.pl'
+
+Copyright (C) 2013 Free Software Foundation, Inc.
+ Written by Bernd Warken <address@hidden>
+
+ Last update: 10 May 2013
+
+This file is part of `glilypond', which is part of `GNU groff'.
+
+ `GNU groff' is free software: you can redistribute it and/or modify it
+under the terms of the `GNU General Public License' as published by the
+`Free Software Foundation', either version 3 of the License, or (at your
+option) any later version.
+
+ `GNU groff' is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the `GNU
+General Public License' for more details.
+
+ You should have received a copy of the 'GNU General Public License`
+along with `groff', see the files `COPYING' and `LICENSE' in the top
+directory of the `groff' source package. If not, see
+<http://www.gnu.org/licenses/>.
+*;
+
+##### end legalese
+
+
+# use strict;
+# use warnings;
+# use diagnostics;
+
+use integer;
+use utf8;
+use feature 'state';
+
+
+########################################################################
+# subs for using several times
+########################################################################
+
+sub create_ly2eps { # `--ly2eps' default
+ our ( $out, $Read, $Temp );
+
+ my $prefix = $Read->{'file_numbered'}; # with dir change to temp dir
+
+ # `$ lilypond --ps -dbackend=eps -dgs-load-fonts \
+ # output=file_without_extension file.ly'
+ # extensions are added automatically
+ my $opts = '--ps -dbackend=eps -dinclude-eps-fonts -dgs-load-fonts ' .
+ "--output=$prefix $prefix";
+ &run_lilypond("$opts");
+
+ Cwd::chdir $Temp->{'cwd'} or
+ die "Could not change to former directory `" .
+ $Temp->{'cwd'} . "': $!";
+
+ my $eps_dir = $Temp->{'eps_dir'};
+ my $dir = $Temp->{'temp_dir'};
+ opendir( my $dh, $dir ) or
+ die "could not open temporary directory `$dir': $!";
+
+ my $re = qr<
+ ^
+ $prefix
+ -
+ .*
+ \.eps
+ $
+ >x;
+ my $file;
+ while ( readdir( $dh ) ) {
+ chomp;
+ $file = $_;
+ if ( /$re/ ) {
+ my $file_path = File::Spec->catfile($dir, $file);
+ if ( $eps_dir ) {
+ my $could_copy = FALSE;
+ File::Copy::copy($file_path, $eps_dir)
+ and $could_copy = TRUE;
+ if ( $could_copy ) {
+ unlink $file_path;
+ $file_path = File::Spec->catfile($eps_dir, $_);
+ }
+ }
+ $out->print( '.PSPIC ' . $file_path );
+ }
+ } # end while readdir
+ closedir( $dh );
+} # end sub create_ly2eps()
+
+
+sub create_pdf2eps { # `--pdf2eps'
+ our ( $v, $stdout, $stderr, $out, $Read, $Temp );
+
+ my $prefix = $Read->{'file_numbered'}; # with dir change to temp dir
+
+ &run_lilypond("--pdf --output=$prefix $prefix");
+
+ my $file_pdf = $prefix . '.pdf';
+ my $file_ps = $prefix . '.ps';
+
+ # pdf2ps in temp dir
+ my $temp_file = &next_temp_file;
+ $v->print( "\n##### run of `pdf2ps'" );
+ # `$ pdf2ps file.pdf file.ps'
+ my $output = `pdf2ps $file_pdf $file_ps 2> $temp_file`;
+ die 'Program pdf2ps does not work.' if ( $? );
+ &shell_handling($output, $temp_file);
+ $v->print( "##### end run of `pdf2ps'\n" );
+
+ # ps2eps in temp dir
+ $temp_file = &next_temp_file;
+ $v->print( "\n##### run of `ps2eps'" );
+ # `$ ps2eps file.ps'
+ $output = `ps2eps $file_ps 2> $temp_file`;
+ die 'Program ps2eps does not work.' if ( $? );
+ &shell_handling($output, $temp_file);
+ $v->print( "##### end run of `ps2eps'\n" );
+
+ # change back to former dir
+ Cwd::chdir $Temp->{'cwd'} or
+ die "Could not change to former directory `" .
+ $Temp->{'cwd'} . "': $!";
+
+ # handling of .eps file
+ my $file_eps = $prefix . '.eps';
+ my $eps_path = File::Spec->catfile($Temp->{'temp_dir'}, $file_eps);
+ if ( $Temp->{'eps_dir'} ) {
+ my $has_copied = FALSE;
+ File::Copy::copy( $eps_path, $Temp->{'eps_dir'} )
+ and $has_copied = TRUE;
+ if ( $has_copied ) {
+ unlink $eps_path;
+ $eps_path = File::Spec->catfile( $Temp->{'eps_dir'}, $file_eps );
+ } else {
+ $stderr->print( "Could not use EPS-directory." );
+ } # end Temp->{'eps_dir'}
+ }
+ # print into groff output
+ $out->print( '.PSPIC ' . $eps_path );
+} # end sub create_pdf2eps()
+
+
+sub is_subdir { # arg1 is subdir of arg2 (is longer)
+ my ( $dir1, $dir2 ) = @_;
+ $dir1 = &path2abs( $dir1 );;
+ $dir2 = &path2abs( $dir2 );;
+ my @split1 = File::Spec->splitdir($dir1);
+ my @split2 = File::Spec->splitdir($dir2);
+ for ( @split2 ) {
+ next if ( $_ eq shift @split1 );
+ return FALSE;
+ }
+ return TRUE;
+}
+
+
+sub license {
+ our ( $Legalese, $stdout );
+ &version;
+ $stdout->print( $Legalese->{'license'} );
+} # end sub license()
+
+
+sub make_dir { # make directory or check if it exists
+ our ( $v, $Args );
+
+ my $dir_arg = shift;
+ chomp $dir_arg;
+ $dir_arg =~ s/^\s*(.*)\s*$/$1/;
+
+ unless ( $dir_arg ) {
+ $v->print( "make_dir(): empty argument" );
+ return FALSE;
+ }
+
+ unless ( File::Spec->file_name_is_absolute($dir_arg) ) {
+ my $res = Cwd::realpath($dir_arg);
+ $res = File::Spec->canonpath($dir_arg) unless ( $res );
+ $dir_arg = $res if ( $res );
+ }
+
+ return $dir_arg if ( -d $dir_arg && -w $dir_arg );
+
+
+ # search thru the dir parts
+ my @dir_parts = File::Spec->splitdir($dir_arg);
+ my @dir_grow;
+ my $dir_grow;
+ my $can_create = FALSE; # dir could be created if TRUE
+
+ DIRPARTS: for ( @dir_parts ) {
+ push @dir_grow, $_;
+ next DIRPARTS unless ( $_ ); # empty string for root directory
+
+ # from array to path dir string
+ $dir_grow = File::Spec->catdir(@dir_grow);
+
+ next DIRPARTS if ( -d $dir_grow );
+
+ if ( -e $dir_grow ) { # exists, but not a dir, so must be removed
+ die "Couldn't create dir `$dir_arg', it is blocked by `$dir_grow'."
+ unless ( -w $dir_grow );
+
+ # now it's writable, but not a dir, so it can be removed
+ unlink ( $dir_grow ) or
+ die "Couldn't remove `$dir_grow', " .
+ "so I cannot create dir `$dir_arg': $!";
+ }
+
+ # $dir_grow does no longer exist, so the former dir must be writable
+ # in order to create the directory
+ pop @dir_grow;
+ $dir_grow = File::Spec->catdir(@dir_grow);
+
+ die "`$dir_grow' is not writable, " .
+ "so directory `$dir_arg' can't be createdd."
+ unless ( -w $dir_grow );
+
+ # former directory is writable, so `$dir_arg' can be created
+
+ File::Path::make_path( $dir_arg,
+ {
+ mask => oct('0700'),
+ verbose => $Args->{'verbose'},
+ }
+ ) # `mkdir -P'
+ or die "Could not create directory `$dir_arg': $!";
+
+ last DIRPARTS;
+ }
+
+ die "`$dir_arg' is not a writable directory"
+ unless ( -d $dir_arg && -w $dir_arg );
+
+ return $dir_arg;
+
+} # end sub make_dir()
+
+
+my $number = 0;
+sub next_temp_file {
+ our ( $Temp, $v, $Args );
+ ++$number;
+ my $temp_basename = $Args->{'prefix'} . '_temp_' . $number;
+ my $temp_file = File::Spec->catfile( $Temp->{'temp_dir'} ,
+ $temp_basename );
+ $v->print( "next temporary file: `$temp_file'" );
+ return $temp_file;
+} # end sub next_temp_file()
+
+
+sub path2abs {
+ our ( $Temp, $Args );
+
+ my $path = shift;
+ $path =~ s/
+ ^
+ \s*
+ (
+ .*
+ )
+ \s*
+ $
+ /$1/x;
+
+ die "path2abs(): argument is empty." unless ( $path );
+
+ # Perl does not support shell `~' for home dir
+ if ( $path =~ /
+ ^
+ ~
+ /x ) {
+ if ( $path eq '~' ) { # only own home
+ $path = File::HomeDir->my_home;
+ } elsif ( $path =~ m<
+ ^
+ ~ /
+ (
+ .*
+ )
+ $
+ >x ) { # subdir of own home
+ $path = File::Spec->catdir( $Temp->{'cwd'}, $1 );
+ } elsif ( $path =~ m<
+ ^
+ ~
+ (
+ [^/]+
+ )
+ $
+ >x ) { # home of other user
+ $path = File::HomeDir->users_home($1);
+ } elsif ( $path =~ m<
+ ^
+ ~
+ (
+ [^/]+
+ )
+ /+
+ (
+ .*
+ )
+ $
+ >x ) { # subdir of other home
+ $path = File::Spec->
+ catdir( File::HomeDir->users_home($1), $2 );
+ }
+ }
+
+ $path = File::Spec->rel2abs($path);
+
+ # now $path is absolute
+ return $path;
+} # end sub path2abs()
+
+
+sub run_lilypond {
+ # arg is the options collection for `lilypond' to run
+ # either from ly or pdf
+
+ our ( $Temp, $v );
+
+ my $opts = shift;
+ chomp $opts;
+
+ my $temp_file = &next_temp_file;
+ my $output = EMPTYSTRING;
+
+ # change to temp dir
+ Cwd::chdir $Temp->{'temp_dir'} or
+ die "Could not change to temporary directory `" .
+ $Temp->{'temp_dir'} . "': $!";
+
+ $v->print( "\n##### run of `lilypond " . $opts . "'" );
+ $output = `lilypond $opts 2>$temp_file`;
+ die "Program lilypond does not work, see `$temp_file': $?"
+ if ( $? );
+ chomp $output;
+ &shell_handling($output, $temp_file);
+ $v->print( "##### end run of `lilypond'\n" );
+
+ # stay in temp dir
+} # end sub run_lilypond()
+
+
+sub shell_handling {
+ # Handle ``-shell-command output in a string (arg1).
+ # stderr goes to temporary file $TempFile.
+
+ our ( $out, $v, $Args );
+
+ my $out_string = shift;
+ my $temp_file = shift;
+
+ my $a = &string2array($out_string); # array ref
+ for ( @$a ) {
+ $out->print( $_ );
+ }
+
+ $temp_file && -f $temp_file && -r $temp_file ||
+ die "shell_handling(): $temp_file is not a readable file.";
+ my $temp = new FH_READ_FILE($temp_file);
+ my $res = $temp->read_all();
+ for ( @$res ) {
+ chomp;
+ $v->print($_);
+ }
+
+ unlink $temp_file unless ( $Args->{'keep_all'} );
+} # end sub shell_handling()
+
+
+sub string2array {
+ my $s = shift;
+ my @a = ();
+ for ( split "\n", $s ) {
+ chomp;
+ push @a, $_;
+ }
+ return address@hidden;
+} # end string2array()
+
+
+sub usage { # for `--help'
+ our ( $Globals, $Args );
+
+ my $p = $Globals->{'prog'};
+ my $usage = EMPTYSTRING;
+ $usage = '###### usage:' . "\n" if ( $Args->{'verbose'} );
+ $usage .= qq*Options for $p:
+Read a `roff' file or standard input and transform `lilypond' parts
+(everything between `.lilypond start' and `.lilypond end') into
+`EPS'-files that can be read by groff using `.PSPIC'.
+
+There is also a command `.lilypond include <file_name>' that can
+include a complete `lilypond' file into the `groff' document.
+
+
+# Breaking options:
+$p -?|-h|--help|--usage # usage
+$p --version # version information
+$p --license # the license is GPL >= 3
+
+
+# Normal options:
+$p [options] [--] [filename ...]
+
+There are 2 options for influencing the way how the `EPS' files for the
+`roff' display are generated:
+--ly2eps `lilypond' generates `EPS' files directly (default)
+--pdf2eps `lilypond' generates a `PDF' file that is transformed
+
+-k|--keep_all do not delete any temporary files
+-v|--verbose print much information to STDERR
+
+Options with an argument:
+-e|--eps_dir=... use a directory for the EPS files
+-o|--output=... sent output in the groff language into file ...
+-p|--prefix=... start for the names of temporary files
+-t|--temp_dir=... provide the directory for temporary files.
+
+The directories set are created when they do not exist.
+*;
+
+ # old options:
+ # --keep_files -k: do not delete any temporary files
+ # --file_prefix=... -p: start for the names of temporary files
+
+ $main::stdout->print( $usage );
+} # end sub usage()
+
+
+sub version { # for `--version'
+ our ( $Globals, $Legalese, $stdout, $Args );
+ my $end;
+ if ( $Globals->{'groff_version'} ) {
+ $end = " version $Globals->{'groff_version'}";
+ } else {
+ $end = '.';
+ }
+
+ my $output = EMPTYSTRING;
+ $output = "###### version:\n" if ( $Args->{'verbose'} );
+ $output .= "`" . $Globals->{'prog'} . "' version `" .
+ $Legalese->{'version'} . "' of `" .
+ $Legalese->{'last_update'} . "' is part of `GNU groff'" . $end;
+
+ $stdout->print($output);
+} # end sub version()
+
+
+# end of subs
+
+1;
+########################################################################
+### Emacs settings
+# Local Variables:
+# mode: CPerl
+# End:
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Groff-commit] groff/contrib/glilypond ChangeLog ChangeLog.0x ...,
Werner LEMBERG <=