Mercurial > octave-libgccjit
changeset 18941:9eec76b084c8
maint: remove bash script 'mkdoc', unused since cset 8ffb01c3a27a.
author | Carnë Draug <carandraug@octave.org> |
---|---|
date | Fri, 18 Jul 2014 03:19:04 +0100 |
parents | 29fc1736a6be |
children | 3136e3f8e631 |
files | scripts/mkdoc |
diffstat | 1 files changed, 0 insertions(+), 69 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/mkdoc Fri Jul 18 00:03:22 2014 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,69 +0,0 @@ -#! /bin/sh -# -# Copyright (C) 1999-2013 John W. Eaton -# -# This file is part of Octave. -# -# Octave 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. -# -# Octave 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 Octave; see the file COPYING. If not, see -# <http://www.gnu.org/licenses/>. - -## Expecting arguments in this order: -## -## SRCDIR SRCDIR-FILES ... -- LOCAL-FILES ... - -set -e - -PERL=${PERL:-'perl'} - -prefix="$1/" -shift - -if test -f gethelp; then - cat << EOF -### DO NOT EDIT! -### -### This file is generated automatically from the Octave sources. -### Edit those files instead and run make to update this file. - -EOF - for arg - do - if [ "$arg" = "--" ]; then - prefix="./" - else - $PERL -w -e ' - unless (@ARGV == 2) { die "Usage: $0 srcdir m_filename" ; } - ($srcdir, $m_fname) = ($ARGV[0], $ARGV[1]); - $full_fname = $srcdir . $m_fname; - exit unless ( $full_fname =~ m{(.*)/(@|)([^/]*)/(.*)\.m} ); - if ($2) { - $fcn = "$2$3/$4"; - } else { - $fcn = $4; - } - $re_srcdir = quotemeta($srcdir); - for (qx{ ./gethelp $fcn "$full_fname" < "$full_fname"} ) { - s/^\s+\@/\@/ unless $in_example; - s/^\s+\@group/\@group/; - s/^\s+\@end\s+group/\@end group/; - s|\@c $fcn $re_srcdir|\@c $fcn scripts/|o; - $in_example = (/\s*\@example\b/ .. /\s*\@end\s+example\b/); - print; - }' "$prefix" "$arg" - fi - done -else - echo "gethelp program seems to be missing!" 1>&2 - exit 1 -fi