octave-nkf: build-aux/mk-opts.pl annotate

annotate build-aux/mk-opts.pl @ 19898:4197fc428c7d

maint: Update copyright notices for 2015.

author	John W. Eaton <jwe@octave.org>
date	Wed, 11 Feb 2015 14:19:08 -0500
parents	d63878346099
children	075a5e2e1ba5

rev	line source
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1 #! /usr/bin/perl -w
7019 4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	2 #
19898 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 17744 diff changeset	3 # Copyright (C) 2002-2015 John W. Eaton
7019 4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	4 #
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	5 # This file is part of Octave.
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	6 #
7019 4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	7 # Octave is free software; you can redistribute it and/or modify it
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	8 # under the terms of the GNU General Public License as published by the
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	9 # Free Software Foundation; either version 3 of the License, or (at
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	10 # your option) any later version.
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	11 #
7019 4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	12 # Octave is distributed in the hope that it will be useful, but WITHOUT
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	13 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	14 # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	15 # for more details.
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	16 #
7019 4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	17 # You should have received a copy of the GNU General Public License
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	18 # along with Octave; see the file COPYING. If not, see
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe] jwe parents: 7017 diff changeset	19 # <http://www.gnu.org/licenses/>.
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	20
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	21 # Generate option handling code from a simpler input files for
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	22 # Octave's functions like lsode, dassl, etc.
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	23
8202 cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 7806 diff changeset	24 # FIXME:
3999 b4b4515af951 [project @ 2002-07-24 18:12:52 by jwe] jwe parents: 3998 diff changeset	25 #
b4b4515af951 [project @ 2002-07-24 18:12:52 by jwe] jwe parents: 3998 diff changeset	26 # * Improve default documentation and/or individual documentation
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	27 # in data files.
3999 b4b4515af951 [project @ 2002-07-24 18:12:52 by jwe] jwe parents: 3998 diff changeset	28 #
b4b4515af951 [project @ 2002-07-24 18:12:52 by jwe] jwe parents: 3998 diff changeset	29 # * Fix print/show code to display/return something more informative
b4b4515af951 [project @ 2002-07-24 18:12:52 by jwe] jwe parents: 3998 diff changeset	30 # for special values (for example, -1 ==> infinite in some cases).
b4b4515af951 [project @ 2002-07-24 18:12:52 by jwe] jwe parents: 3998 diff changeset	31 # Probably need more information in the data files for this.
b4b4515af951 [project @ 2002-07-24 18:12:52 by jwe] jwe parents: 3998 diff changeset	32
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	33 # Input file format:
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	34 #
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	35 # CLASS = string
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	36 # FCN_NAME = string
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	37 # INCLUDE = file
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	38 # DOC_STRING doc END_DOC_STRING
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	39 # OPTION
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	40 # NAME = string
4050 6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	41 # DOC_ITEM doc END_DOC_ITEM
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	42 # TYPE = string
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	43 # SET_ARG_TYPE = string (optional, defaults to TYPE)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	44 # INIT_VALUE = string \| INIT_BODY code END_INIT_BODY
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	45 # SET_EXPR = string \| SET_BODY code END_SET_BODY \| SET_CODE code END_SET_CODE
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	46 # END_OPTION
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	47 #
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	48 # END_* must appear at beginning of line (whitespace ignored).
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	49
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	50 ################################################################################
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	51 # Load packages to
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	52 # 1) process command line options
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	53 ################################################################################
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	54 use Getopt::Long;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	55
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	56 ################################################################################
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	57 # Extract command line arguments
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	58 &parse_options;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	59
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	60 $DEFN_FILE = shift @ARGV;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	61 open (DEFN_FILE) or die "unable to open input definition file $DEFN_FILE";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	62
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	63 ################################################################################
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	64 # Initialize variables
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	65 $BLANK_LINE = qr/^\s*$/;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	66 $COMMENT = qr/^\s*#/;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	67
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	68 ################################################################################
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	69 # Process file
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	70 $OPT_NUM = 0;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	71
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	72 &parse_input;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	73
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	74 &process_data;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	75
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	76 # Produce desired style of output
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	77 &emit_opt_class_header if $opt_class_header;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	78 &emit_opt_handler_fcns if $opt_handler_fcns;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	79 &emit_options_debug if $opt_debug;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	80
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	81 # End of main code
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	82
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	83 ################################################################################
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	84 # Subroutines
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	85 ################################################################################
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	86
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	87 sub parse_input
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	88 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	89 LINE: while (<DEFN_FILE>)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	90 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	91 next LINE if /$BLANK_LINE/;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	92 next LINE if /$COMMENT/;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	93
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	94 if (/^\sOPTION\s$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	95 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	96 &parse_option_block;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	97 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	98 elsif (/^\sCLASS\s=\s"(\w+)"\s$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	99 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	100 die "duplicate CLASS" if defined $CLASS;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	101 $CLASS = $1;
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	102 $CLASS_NAME = "${CLASS}_options";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	103 $STRUCT_NAME = "${CLASS_NAME}_struct";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	104 $STATIC_TABLE_NAME = "${CLASS_NAME}_table";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	105 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	106 elsif (/^\sFCN_NAME\s=\s"(\w+)"\s$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	107 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	108 die "duplicate FCN_NAME" if defined $FCN_NAME;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	109 $FCN_NAME = $1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	110 }
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	111 elsif (/^\sINCLUDE\s=\s"(\S+)"\s$/)
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	112 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	113 $INCLUDE .= "#include <$1>\n";
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	114 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	115 elsif (/^\sDOC_STRING\s$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	116 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	117 die "duplicate DOC_STRING" if defined $DOC_STRING;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	118 while (defined ($_ = <DEFN_FILE>) and not /^\sEND_DOC_STRING\s$/)
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	119 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	120 $DOC_STRING .= $_;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	121 }
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	122 $DOC_STRING =~ s/\n/\\n\\\n/g;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	123 }
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	124 else
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	125 {
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	126 die "mk-opts.pl: unknown command: $_\n"
db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	127 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	128 }
12612 16cca721117b doc: Update all documentation for chapter on Numerical Integration Rik <octave@nomad.inbox5.com> parents: 12504 diff changeset	129 $INCLUDE = "" if not defined $INCLUDE; # Initialize value if required
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	130 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	131
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	132 sub parse_option_block
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	133 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	134 while (<DEFN_FILE>)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	135 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	136 next if /$BLANK_LINE/;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	137
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	138 die "missing END_OPTION" if /^\sOPTION\s$/;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	139
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	140 last if /^\sEND_OPTION\s$/;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	141
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	142 if (/^\sNAME\s=\s"(.)"\s*$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	143 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	144 die "duplicate NAME" if defined $NAME[$OPT_NUM];
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	145 $NAME[$OPT_NUM] = $1;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	146 ($OPT[$OPT_NUM] = $NAME[$OPT_NUM]) =~ s/\s+/_/g;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	147 $OPTVAR[$OPT_NUM] = 'x_' . $OPT[$OPT_NUM];
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	148 $KW_TOK[$OPT_NUM] = [ split (' ', $NAME[$OPT_NUM]) ];
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	149 $N_TOKS[$OPT_NUM] = @{$KW_TOK[$OPT_NUM]};
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	150 }
4050 6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	151 elsif (/^\sDOC_ITEM\s$/)
6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	152 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	153 die "duplicate DOC_ITEM" if defined $DOC_ITEM[$OPT_NUM];
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	154 while (defined ($_ = <DEFN_FILE>) and not /^\sEND_DOC_ITEM\s$/)
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	155 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	156 $DOC_ITEM[$OPT_NUM] .= $_;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	157 }
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	158 $DOC_ITEM[$OPT_NUM] =~ s/\n/\\n\\\n/g;
4050 6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	159 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	160 elsif (/^\sTYPE\s=\s"(.)"\s*$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	161 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	162 die "duplicate TYPE" if defined $TYPE[$OPT_NUM];
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	163 $TYPE[$OPT_NUM] = $1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	164 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	165 elsif (/^\sSET_ARG_TYPE\s=\s"(.)"\s*$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	166 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	167 die "duplicate SET_ARG_TYPE" if defined $SET_ARG_TYPE[$OPT_NUM];
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	168 $SET_ARG_TYPE[$OPT_NUM] = $1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	169 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	170 elsif (/^\sINIT_VALUE\s=\s"(.)"\s*$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	171 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	172 die "duplicate INIT_VALUE" if defined $INIT_VALUE[$OPT_NUM];
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	173 $INIT_VALUE[$OPT_NUM] = $1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	174 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	175 elsif (/^\sSET_EXPR\s=\s"(.)"\s*$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	176 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	177 die "duplicate SET_EXPR" if defined $SET_EXPR[$OPT_NUM];
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	178 $SET_EXPR[$OPT_NUM] = $1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	179 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	180 elsif (/^\sINIT_BODY\s$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	181 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	182 die "duplicate INIT_BODY" if defined $INIT_BODY[$OPT_NUM];
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	183 while (defined ($_ = <DEFN_FILE>) and not /^\sEND_INIT_BODY\s$/)
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	184 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	185 $INIT_BODY[$OPT_NUM] .= $_;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	186 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	187 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	188 elsif (/^\sSET_BODY\s$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	189 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	190 die "duplicate SET_BODY" if defined $INIT_BODY[$OPT_NUM];
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	191 while (defined ($_ = <DEFN_FILE>) and not /^\sEND_SET_BODY\s$/)
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	192 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	193 $SET_BODY[$OPT_NUM] .= $_;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	194 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	195 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	196 elsif (/^\sSET_CODE\s$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	197 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	198 die "duplicate SET_CODE" if defined $SET_CODE[$OPT_NUM];
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	199 while (defined ($_ = <DEFN_FILE>) and not /^\sEND_SET_CODE\s$/)
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	200 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	201 $SET_CODE[$OPT_NUM] .= $_;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	202 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	203 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	204 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	205
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	206 if (not defined $SET_ARG_TYPE[$OPT_NUM])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	207 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	208 $SET_ARG_TYPE[$OPT_NUM] = $TYPE[$OPT_NUM];
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	209 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	210 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	211 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	212 $SET_ARG_TYPE[$OPT_NUM]
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	213 = substopt ($SET_ARG_TYPE[$OPT_NUM], $OPTVAR[$OPT_NUM],
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	214 $OPT[$OPT_NUM], $TYPE[$OPT_NUM]);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	215 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	216
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	217 $OPT_NUM++;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	218 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	219
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	220 sub process_data
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	221 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	222 $MAX_TOKENS = max (@N_TOKS);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	223
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	224 &get_min_match_len_info;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	225
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	226 $FCN_NAME = lc ($CLASS) if not defined $FCN_NAME;
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	227
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	228 $OPT_FCN_NAME = "${FCN_NAME}_options" if not defined $OPT_FCN_NAME;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	229
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	230 $STATIC_OBJECT_NAME = "${FCN_NAME}_opts";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	231
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	232 if (not defined $DOC_STRING)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	233 {
12612 16cca721117b doc: Update all documentation for chapter on Numerical Integration Rik <octave@nomad.inbox5.com> parents: 12504 diff changeset	234 $DOC_STRING = "Query or set options for the function \@code{$FCN_NAME}.\\n\\
16cca721117b doc: Update all documentation for chapter on Numerical Integration Rik <octave@nomad.inbox5.com> parents: 12504 diff changeset	235 When called with no arguments, the names of all available options and\\n\\
16cca721117b doc: Update all documentation for chapter on Numerical Integration Rik <octave@nomad.inbox5.com> parents: 12504 diff changeset	236 their current values are displayed.\\n\\
16cca721117b doc: Update all documentation for chapter on Numerical Integration Rik <octave@nomad.inbox5.com> parents: 12504 diff changeset	237 Given one argument, return the value of the corresponding option.\\n\\
16cca721117b doc: Update all documentation for chapter on Numerical Integration Rik <octave@nomad.inbox5.com> parents: 12504 diff changeset	238 When called with two arguments, \@code{$OPT_FCN_NAME} set the option\\n\\
16cca721117b doc: Update all documentation for chapter on Numerical Integration Rik <octave@nomad.inbox5.com> parents: 12504 diff changeset	239 \@var{opt} to value \@var{val}.";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	240 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	241 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	242
17513 fedcd3717ebc doc: grammarcheck of documentation before 3.8 release. Rik <rik@octave.org> parents: 15039 diff changeset	243 ## FIXME: What does this routine do? And can it be simpler to understand?
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	244 sub get_min_match_len_info
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	245 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	246 my ($i, $j, $k);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	247
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	248 for ($i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	249 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	250 for ($j = 0; $j < $MAX_TOKENS; $j++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	251 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	252 $MIN_TOK_LEN_TO_MATCH[$i][$j] = 0;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	253 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	254
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	255 $MIN_TOKS_TO_MATCH[$i] = 1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	256
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	257 L1: for ($k = 0; $k < $OPT_NUM; $k++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	258 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	259 my $duplicate = 1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	260
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	261 if ($i != $k)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	262 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	263 L2: for ($j = 0; $j < $MAX_TOKENS; $j++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	264 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	265 if ($j < $N_TOKS[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	266 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	267 if ($KW_TOK[$i][$j] eq $KW_TOK[$k][$j])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	268 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	269 if ($MIN_TOK_LEN_TO_MATCH[$i][$j] == 0)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	270 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	271 $MIN_TOK_LEN_TO_MATCH[$i][$j] = 1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	272 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	273
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	274 $MIN_TOKS_TO_MATCH[$i]++;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	275 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	276 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	277 {
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	278 $duplicate = 0;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	279
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	280 if ($MIN_TOK_LEN_TO_MATCH[$i][$j] == 0)
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	281 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	282 $MIN_TOK_LEN_TO_MATCH[$i][$j] = 1;
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	283 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	284
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	285 my @s = split (//, $KW_TOK[$i][$j]);
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	286 my @t = split (//, $KW_TOK[$k][$j]);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	287
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	288 my ($n, $ii);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	289 $n = scalar (@s);
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	290 $n = scalar (@t) if (@t < $n);
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	291
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	292 for ($ii = 0; $ii < $n; $ii++)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	293 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	294 if ("$s[$ii]" eq "$t[$ii]")
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	295 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	296 if ($ii + 2 > $MIN_TOK_LEN_TO_MATCH[$i][$j])
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	297 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	298 $MIN_TOK_LEN_TO_MATCH[$i][$j]++;
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	299 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	300 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	301 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	302 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	303 last L2;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	304 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	305 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	306
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	307 last L1;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	308 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	309 }
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	310 else
db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	311 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	312 die qq\|ambiguous options "$NAME[$i]" and "$NAME[$k]"\| if $duplicate;
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	313 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	314 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	315 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	316 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	317 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	318 } # end of get_min_match_len_info
4050 6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	319
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	320
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	321 sub emit_copy_body
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	322 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	323 my ($pfx, $var) = @_;
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	324
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	325 for (my $i = 0; $i < $OPT_NUM; $i++)
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	326 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	327 print "${pfx}$OPTVAR[$i] = ${var}.$OPTVAR[$i];\n";
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	328 }
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	329
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	330 print "${pfx}reset = ${var}.reset;\n";
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	331 }
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	332
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	333 ## To silence GCC warnings, we create an initialization list even
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	334 ## though the init function actually does the work of initialization.
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	335
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	336 sub emit_default_init_list
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	337 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	338 my ($prefix) = @_;
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	339
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	340 print "$OPTVAR[0] (),\n" unless ($OPT_NUM == 0);
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	341
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	342 for (my $i = 1; $i < $OPT_NUM; $i++)
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	343 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	344 print "${prefix}$OPTVAR[$i] (),\n";
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	345 }
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	346
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	347 print "${prefix}reset ()\n";
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	348 }
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	349
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	350 sub emit_copy_ctor_init_list
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	351 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	352 my ($prefix, $var) = @_;
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	353
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	354 print "$OPTVAR[0] ($var.$OPTVAR[0]),\n" unless ($OPT_NUM == 0);
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	355
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	356 for (my $i = 1; $i < $OPT_NUM; $i++)
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	357 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	358 print "${prefix}$OPTVAR[$i] ($var.$OPTVAR[$i]),\n";
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	359 }
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	360
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	361 print "${prefix}reset ($var.reset)\n";
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	362 }
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	363
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	364 sub emit_opt_class_header
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	365 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	366 my ($i, $s);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	367
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	368 print <<"_END_EMIT_OPT_CLASS_HEADER_";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	369 // DO NOT EDIT!
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	370 // Generated automatically from $DEFN_FILE.
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	371
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	372 #if !defined (octave_${CLASS_NAME}_h)
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	373 #define octave_${CLASS_NAME}_h 1
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	374
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	375 #include <cfloat>
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	376 #include <cmath>
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	377
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	378 $INCLUDE
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	379
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	380 class
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	381 $CLASS_NAME
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	382 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	383 public:
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	384
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	385 $CLASS_NAME (void)
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	386 _END_EMIT_OPT_CLASS_HEADER_
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	387
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	388 print ' : ';
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	389 emit_default_init_list (" ");
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	390
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	391 print " {
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	392 init ();
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	393 }
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	394
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	395 $CLASS_NAME (const ${CLASS_NAME}& opt)
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	396 : ";
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	397
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	398 emit_copy_ctor_init_list (" ", "opt");
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	399
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	400 print " { }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	401
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	402 ${CLASS_NAME}& operator = (const ${CLASS_NAME}& opt)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	403 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	404 if (this != &opt)
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	405 {\n";
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	406
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	407 emit_copy_body (' ', 'opt');
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	408
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	409 print " }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	410
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	411 return *this;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	412 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	413
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	414 ~$CLASS_NAME (void) { }\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	415
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	416 print "\n void init (void)\n {\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	417
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	418 for ($i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	419 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	420 if ($INIT_VALUE[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	421 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	422 print " $OPTVAR[$i] = $INIT_VALUE[$i];\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	423 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	424 elsif ($INIT_BODY[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	425 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	426 $s = substopt ($INIT_BODY[$i], $OPTVAR[$i], $OPT[$i], $TYPE[$i]);
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	427 chomp ($s);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	428 $s =~ s/^\s*/ /g;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	429 $s =~ s/\n\s*/\n /g;
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	430 print $s,"\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	431 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	432 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	433
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	434 print " reset = true;\n",
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	435 " }\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	436
4122 19a1626b8d57 [project @ 2002-10-23 22:10:53 by jwe] jwe parents: 4050 diff changeset	437 ## For backward compatibility and because set_options is probably
19a1626b8d57 [project @ 2002-10-23 22:10:53 by jwe] jwe parents: 4050 diff changeset	438 ## a better name in some contexts:
19a1626b8d57 [project @ 2002-10-23 22:10:53 by jwe] jwe parents: 4050 diff changeset	439
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	440 print "\n void set_options (const ${CLASS_NAME}& opt)\n",
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	441 " {\n";
4122 19a1626b8d57 [project @ 2002-10-23 22:10:53 by jwe] jwe parents: 4050 diff changeset	442
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	443 emit_copy_body (' ', 'opt');
11497 7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	444
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	445 print " }\n\n void set_default_options (void) { init (); }\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	446
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	447 for ($i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	448 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	449 if ($SET_EXPR[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	450 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	451 emit_set_decl ($i);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	452
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	453 print "\n { $OPTVAR[$i] = $SET_EXPR[$i]; reset = true; }\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	454 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	455 elsif ($SET_BODY[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	456 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	457 emit_set_decl ($i);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	458
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	459 $s = substopt ($SET_BODY[$i], $OPTVAR[$i], $OPT[$i], $TYPE[$i]);
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	460 chomp ($s);
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	461 $s = ' ' . $s;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	462 $s =~ s/\n/\n /g;
4049 a35a3c5d4740 [project @ 2002-08-16 08:54:31 by jwe] jwe parents: 4047 diff changeset	463 print "\n {\n$s\n reset = true;\n }\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	464 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	465 elsif ($SET_CODE[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	466 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	467 $s = substopt ($SET_CODE[$i], $OPTVAR[$i], $OPT[$i], $TYPE[$i]);
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	468 chomp ($s);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	469 $s =~ s/^ //g;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	470 $s =~ s/\n /\n/g;
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	471 print "\n",$s,"\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	472 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	473 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	474
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	475 for ($i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	476 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	477 print " $TYPE[$i] $OPT[$i] (void) const\n { return $OPTVAR[$i]; }\n\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	478 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	479
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	480 print "private:\n\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	481
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	482 for ($i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	483 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	484 print " $TYPE[$i] $OPTVAR[$i];\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	485 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	486
4049 a35a3c5d4740 [project @ 2002-08-16 08:54:31 by jwe] jwe parents: 4047 diff changeset	487 print "\nprotected:\n\n bool reset;\n};\n\n#endif\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	488 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	489
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	490 sub emit_set_decl
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	491 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	492 my ($i) = @_;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	493
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	494 print "\n void set_$OPT[$i] ($SET_ARG_TYPE[$i] val)";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	495 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	496
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	497 sub emit_opt_handler_fcns
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	498 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	499 my $header = $DEFN_FILE;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	500 $header =~ s/[.]\w*$/.h/; # replace .in with .h
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	501 $header =~ s\|^./([^/])$\|$1\|; # strip directory part
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	502
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	503 print <<"_END_EMIT_OPT_HANDLER_FCNS_";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	504 // DO NOT EDIT!
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	505 // Generated automatically from $DEFN_FILE.
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	506
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	507 #ifdef HAVE_CONFIG_H
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	508 #include <config.h>
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	509 #endif
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	510
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	511 #include <iomanip>
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	512 #include <iostream>
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	513
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	514 #include "$header"
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	515
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14138 diff changeset	516 #include "defun.h"
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	517 #include "pr-output.h"
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	518
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	519 #include "oct-obj.h"
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	520 #include "utils.h"
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	521 #include "pager.h"
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	522
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	523 static $CLASS_NAME $STATIC_OBJECT_NAME;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	524
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	525 _END_EMIT_OPT_HANDLER_FCNS_
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	526
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	527 &emit_struct_decl;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	528
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	529 &emit_struct_def;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	530
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	531 &emit_print_function;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	532
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	533 &emit_set_functions;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	534
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	535 &emit_show_function;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	536
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	537 &emit_options_function;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	538 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	539
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	540 sub emit_struct_decl
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	541 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	542 print <<"_END_PRINT_STRUCT_DECL_";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	543 #define MAX_TOKENS $MAX_TOKENS
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	544
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	545 struct $STRUCT_NAME
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	546 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	547 const char *keyword;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	548 const char *kw_tok[MAX_TOKENS + 1];
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	549 int min_len[MAX_TOKENS + 1];
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	550 int min_toks_to_match;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	551 };
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	552
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	553 _END_PRINT_STRUCT_DECL_
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	554 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	555
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	556 sub emit_struct_def
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	557 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	558 my $i;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	559
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	560 print "#define NUM_OPTIONS $OPT_NUM\n\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	561
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	562 print "static $STRUCT_NAME $STATIC_TABLE_NAME [] =\n{\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	563
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	564 for ($i = 0; $i < ($OPT_NUM - 1); $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	565 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	566 emit_option_table_entry ($i, 0);
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	567 print "\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	568 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	569 emit_option_table_entry ($i, 0);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	570
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	571 print "};\n\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	572 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	573
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	574 sub emit_option_table_entry
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	575 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	576 my ($i, $empty) = @_;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	577
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	578 my $k;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	579
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	580 if ($empty)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	581 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	582 print " { 0,\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	583 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	584 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	585 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	586 print " { \"$NAME[$i]\",\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	587 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	588
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	589 my $n = scalar $#{$KW_TOK[$i]};
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	590 print " {";
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	591 for $k (0 .. $MAX_TOKENS)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	592 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	593 if ($empty or $k > $n)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	594 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	595 print " 0,";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	596 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	597 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	598 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	599 print " \"$KW_TOK[$i][$k]\",";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	600 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	601 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	602 print " },\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	603
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	604 print " {";
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	605 for $k (0 .. $MAX_TOKENS)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	606 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	607 if ($empty or $k > $n)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	608 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	609 print " 0,";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	610 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	611 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	612 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	613 print " $MIN_TOK_LEN_TO_MATCH[$i][$k],";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	614 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	615 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	616 print " }, $MIN_TOKS_TO_MATCH[$i], ";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	617
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	618 print "},\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	619 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	620
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	621 sub emit_print_function
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	622 {
5775 ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe] jwe parents: 5765 diff changeset	623 ## FIXME -- determine the width of the table automatically.
4047 7b0c139ac8af [project @ 2002-08-15 20:52:55 by jwe] jwe parents: 4044 diff changeset	624
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	625 print qq\|static void
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	626 print_$CLASS_NAME (std::ostream& os)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	627 {
5765 7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5667 diff changeset	628 std::ostringstream buf;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	629
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	630 os << "\\n"
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	631 << "Options for $CLASS include:\\n\\n"
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	632 << " keyword value\\n"
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	633 << " ------- -----\\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	634
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	635 $STRUCT_NAME *list = $STATIC_TABLE_NAME;\n\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	636
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	637 for (my $i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	638 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	639 print qq\| {\n os << " "
5667 ec3ffbf9982b [project @ 2006-03-15 02:51:39 by jwe] jwe parents: 5275 diff changeset	640 << std::setiosflags (std::ios::left) << std::setw (50)
ec3ffbf9982b [project @ 2006-03-15 02:51:39 by jwe] jwe parents: 5275 diff changeset	641 << list[$i].keyword
ec3ffbf9982b [project @ 2006-03-15 02:51:39 by jwe] jwe parents: 5275 diff changeset	642 << std::resetiosflags (std::ios::left)
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	643 << " ";\n\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	644
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	645 if ($TYPE[$i] eq "double")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	646 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	647 print qq\| double val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n\|;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	648 print qq\| os << val << "\\n";\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	649 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	650 elsif ($TYPE[$i] eq "float")
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	651 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	652 print qq\| float val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n\|;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	653 print qq\| os << val << "\\n";\n\|;
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	654 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	655 elsif ($TYPE[$i] eq "int" or $TYPE[$i] eq "octave_idx_type")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	656 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	657 print qq\| int val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n\|;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	658 print qq\| os << val << "\\n";\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	659 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	660 elsif ($TYPE[$i] eq "std::string")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	661 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	662 print qq\| os << $STATIC_OBJECT_NAME.$OPT[$i] () << "\\n";\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	663 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	664 elsif ($TYPE[$i] eq "Array<int>" or $TYPE[$i] eq "Array<octave_idx_type>")
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	665 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	666 my $elt_type;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	667 if ($TYPE[$i] eq "Array<int>")
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	668 {
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	669 $elt_type = "int";
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	670 }
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	671 else
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	672 {
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	673 $elt_type = "octave_idx_type";
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	674 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	675 print qq\| Array<$elt_type> val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n\|;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	676 print qq\| if (val.length () == 1)
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	677 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	678 os << val(0) << "\\n";
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	679 }
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	680 else
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	681 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	682 os << "\\n\\n";
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	683 octave_idx_type len = val.length ();
db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	684 Matrix tmp (len, 1);
db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	685 for (octave_idx_type i = 0; i < len; i++)
db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	686 tmp(i,0) = val(i);
6755 55411ecc8d8b [project @ 2007-06-25 18:16:58 by jwe] jwe parents: 5823 diff changeset	687 octave_print_internal (os, tmp, false, 2);
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	688 os << "\\n\\n";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	689 }\n\|;
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	690 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	691 elsif ($TYPE[$i] eq "Array<double>")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	692 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	693 print qq\| Array<double> val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n\|;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	694 print qq\| if (val.length () == 1)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	695 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	696 os << val(0) << "\\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	697 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	698 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	699 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	700 os << "\\n\\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	701 Matrix tmp = Matrix (ColumnVector (val));
6755 55411ecc8d8b [project @ 2007-06-25 18:16:58 by jwe] jwe parents: 5823 diff changeset	702 octave_print_internal (os, tmp, false, 2);
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	703 os << "\\n\\n";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	704 }\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	705 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	706 elsif ($TYPE[$i] eq "Array<float>")
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	707 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	708 print qq\| Array<float> val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n\|;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	709 print qq\| if (val.length () == 1)
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	710 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	711 os << val(0) << "\\n";
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	712 }
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	713 else
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	714 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	715 os << "\\n\\n";
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	716 FloatMatrix tmp = FloatMatrix (FloatColumnVector (val));
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	717 octave_print_internal (os, tmp, false, 2);
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	718 os << "\\n\\n";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	719 }\n\|;
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	720 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	721 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	722 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	723 die ("unknown type $TYPE[$i]");
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	724 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	725
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	726 print " }\n\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	727 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	728
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	729 print qq\| os << "\\n";\n}\n\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	730 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	731
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	732 sub emit_set_functions
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	733 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	734 print "static void
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	735 set_$CLASS_NAME (const std::string& keyword, const octave_value& val)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	736 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	737 $STRUCT_NAME *list = $STATIC_TABLE_NAME;\n\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	738
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	739 my $iftok = "if";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	740
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	741 for (my $i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	742 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	743 $iftok = "else if" if ($i > 0);
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	744
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	745 print " $iftok (keyword_almost_match (list[$i].kw_tok, list[$i].min_len,
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	746 keyword, list[$i].min_toks_to_match, MAX_TOKENS))
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	747 {\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	748
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	749 if ($TYPE[$i] eq "double")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	750 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	751 print " double tmp = val.double_value ();\n\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	752 print " if (! error_state)
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	753 $STATIC_OBJECT_NAME.set_$OPT[$i] (tmp);\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	754 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	755 elsif ($TYPE[$i] eq "float")
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	756 {
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	757 print " float tmp = val.float_value ();\n\n";
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	758 print " if (! error_state)
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	759 $STATIC_OBJECT_NAME.set_$OPT[$i] (tmp);\n";
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	760 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	761 elsif ($TYPE[$i] eq "int" or $TYPE[$i] eq "octave_idx_type")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	762 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	763 print " int tmp = val.int_value ();\n\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	764 print " if (! error_state)
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	765 $STATIC_OBJECT_NAME.set_$OPT[$i] (tmp);\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	766 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	767 elsif ($TYPE[$i] eq "std::string")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	768 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	769 print " std::string tmp = val.string_value ();\n\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	770 print " if (! error_state)
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	771 $STATIC_OBJECT_NAME.set_$OPT[$i] (tmp);\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	772 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	773 elsif ($TYPE[$i] eq "Array<int>" or $TYPE[$i] eq "Array<octave_idx_type>")
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	774 {
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	775 print " Array<int> tmp = val.int_vector_value ();\n\n";
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	776 print " if (! error_state)
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	777 $STATIC_OBJECT_NAME.set_$OPT[$i] (tmp);\n";
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	778 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	779 elsif ($TYPE[$i] eq "Array<double>")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	780 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	781 print " Array<double> tmp = val.vector_value ();\n\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	782 print " if (! error_state)
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	783 $STATIC_OBJECT_NAME.set_$OPT[$i] (tmp);\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	784 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	785 elsif ($TYPE[$i] eq "Array<float>")
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	786 {
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	787 print " Array<float> tmp = val.float_vector_value ();\n\n";
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	788 print " if (! error_state)
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	789 $STATIC_OBJECT_NAME.set_$OPT[$i] (tmp);\n";
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	790 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	791 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	792 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	793 die ("unknown type $TYPE[$i]");
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	794 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	795
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	796 print " }\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	797 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	798
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	799 print qq\| else
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	800 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	801 warning ("$OPT_FCN_NAME: no match for `%s'", keyword.c_str ());
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	802 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	803 }\n\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	804 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	805
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	806 sub emit_show_function
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	807 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	808 print "static octave_value_list
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	809 show_$CLASS_NAME (const std::string& keyword)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	810 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	811 octave_value retval;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	812
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	813 $STRUCT_NAME *list = $STATIC_TABLE_NAME;\n\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	814
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	815 my $iftok = "if";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	816
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	817 for (my $i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	818 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	819 $iftok = "else if" if ($i > 0);
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	820
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	821 print " $iftok (keyword_almost_match (list[$i].kw_tok, list[$i].min_len,
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	822 keyword, list[$i].min_toks_to_match, MAX_TOKENS))
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	823 {\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	824
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	825 if ($TYPE[$i] eq "double")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	826 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	827 print " double val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	828 print " retval = val;\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	829 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	830 elsif ($TYPE[$i] eq "float")
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	831 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	832 print " float val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n";
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	833 print " retval = val;\n";
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	834 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	835 elsif ($TYPE[$i] eq "int" or $TYPE[$i] eq "octave_idx_type")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	836 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	837 print " int val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	838 print " retval = static_cast<double> (val);\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	839 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	840 elsif ($TYPE[$i] eq "std::string")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	841 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	842 print " retval = $STATIC_OBJECT_NAME.$OPT[$i] ();\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	843 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	844 elsif ($TYPE[$i] eq "Array<int>" or $TYPE[$i] eq "Array<octave_idx_type>")
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	845 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	846 my $elt_type;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	847 if ($TYPE[$i] eq "Array<int>")
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	848 {
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	849 $elt_type = "int";
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	850 }
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	851 else
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	852 {
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	853 $elt_type = "octave_idx_type";
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	854 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	855 print " Array<$elt_type> val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n";
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	856 print " if (val.length () == 1)
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	857 {
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	858 retval = static_cast<double> (val(0));
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	859 }
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	860 else
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	861 {
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	862 octave_idx_type len = val.length ();
db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	863 ColumnVector tmp (len);
db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	864 for (octave_idx_type i = 0; i < len; i++)
db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	865 tmp(i) = val(i);
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	866 retval = tmp;
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	867 }\n";
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	868 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	869 elsif ($TYPE[$i] eq "Array<double>")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	870 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	871 print " Array<double> val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	872 print " if (val.length () == 1)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	873 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	874 retval = val(0);
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	875 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	876 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	877 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	878 retval = ColumnVector (val);
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	879 }\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	880 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	881 elsif ($TYPE[$i] eq "Array<float>")
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	882 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	883 print " Array<float> val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n";
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	884 print " if (val.length () == 1)
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	885 {
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	886 retval = val(0);
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	887 }
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	888 else
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	889 {
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	890 retval = FloatColumnVector (val);
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	891 }\n";
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	892 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	893 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	894 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	895 die ("unknown type $TYPE[$i]");
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	896 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	897
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	898 print " }\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	899 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	900
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	901 print qq\| else
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	902 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	903 warning ("$OPT_FCN_NAME: no match for `%s'", keyword.c_str ());
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	904 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	905
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	906 return retval;\n}\n\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	907 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	908
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	909 sub emit_options_function
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	910 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	911 print <<"_END_EMIT_OPTIONS_FUNCTION_HDR_";
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14138 diff changeset	912 DEFUN ($OPT_FCN_NAME, args, ,
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	913 "-- texinfo --\\n\\
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14138 diff changeset	914 \@deftypefn {Built-in Function} {} $OPT_FCN_NAME ()\\n\\
e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14138 diff changeset	915 \@deftypefnx {Built-in Function} {val =} $OPT_FCN_NAME (\@var{opt})\\n\\
e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14138 diff changeset	916 \@deftypefnx {Built-in Function} {} $OPT_FCN_NAME (\@var{opt}, \@var{val})\\n\\
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	917 $DOC_STRING\\n\\
12612 16cca721117b doc: Update all documentation for chapter on Numerical Integration Rik <octave@nomad.inbox5.com> parents: 12504 diff changeset	918 \\n\\
4050 6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	919 Options include\\n\\
6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	920 \\n\\
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	921 \@table \@code\\n\\
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	922 _END_EMIT_OPTIONS_FUNCTION_HDR_
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	923 # FIXME: Add extra newline above
4050 6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	924
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	925 for (my $i = 0; $i < $OPT_NUM; $i++)
4050 6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	926 {
17513 fedcd3717ebc doc: grammarcheck of documentation before 3.8 release. Rik <rik@octave.org> parents: 15039 diff changeset	927 print '@item @qcode{\"', $NAME[$i], '\"}\n\\', "\n";
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	928 print $DOC_ITEM[$i] if $DOC_ITEM[$i];
4050 6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	929 }
6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	930
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	931 print <<"_END_EMIT_OPTIONS_FUNCTION_BODY_";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	932 \@end table\\n\\
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	933 \@end deftypefn")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	934 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	935 octave_value_list retval;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	936
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	937 int nargin = args.length ();
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	938
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	939 if (nargin == 0)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	940 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	941 print_$CLASS_NAME (octave_stdout);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	942 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	943 else if (nargin == 1 \|\| nargin == 2)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	944 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	945 std::string keyword = args(0).string_value ();
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	946
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	947 if (! error_state)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	948 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	949 if (nargin == 1)
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	950 retval = show_$CLASS_NAME (keyword);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	951 else
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	952 set_$CLASS_NAME (keyword, args(1));
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	953 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	954 else
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	955 error ("$OPT_FCN_NAME: expecting keyword as first argument");
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	956 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	957 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	958 print_usage ();
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	959
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	960 return retval;
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	961 }
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	962 _END_EMIT_OPTIONS_FUNCTION_BODY_
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	963
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	964 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	965
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	966 sub emit_options_debug
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	967 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	968 print qq\|CLASS = "$CLASS"\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	969
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	970 for (my $i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	971 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	972 print "\nOPTION\n";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	973 print qq\| NAME = "$NAME[$i]"\n\|;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	974 print qq\| TYPE = "$TYPE[$i]"\n\|;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	975 if ($SET_ARG_TYPE[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	976 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	977 print eval ("\" SET_ARG_TYPE = \\\"$SET_ARG_TYPE[$i]\\\"\"") . "\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	978 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	979 if ($INIT_VALUE[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	980 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	981 print qq\| INIT_VALUE = "$INIT_VALUE[$i]"\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	982 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	983 if ($INIT_BODY[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	984 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	985 print " INIT_BODY\n";
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	986 print &substopt ($INIT_BODY[$i]);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	987 print " END_INIT_BODY\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	988 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	989 if ($SET_EXPR[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	990 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	991 print qq\| SET_EXPR = "$SET_EXPR[$i]"\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	992 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	993 if ($SET_BODY[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	994 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	995 print " SET_BODY\n";
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	996 print &substopt ($SET_BODY[$i]);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	997 print " END_SET_BODY\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	998 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	999 if ($SET_CODE[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1000 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1001 print " SET_CODE\n";
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1002 print &substopt ($SET_CODE[$i]);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1003 print " END_SET_CODE\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1004 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1005 print "END_OPTION\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1006 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1007 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1008
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1009 sub substopt
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1010 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1011 my ($string, $optvar, $opt, $type) = @_;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1012
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1013 $string =~ s/\$OPTVAR/$optvar/g;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1014 $string =~ s/\$OPT/$opt/g;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1015 $string =~ s/\$TYPE/$type/g;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1016
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1017 return $string;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1018 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1019
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1020 sub max
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1021 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1022 my $max = shift;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1023
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1024 foreach (@_)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1025 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1026 $max = $_ if $max < $_;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1027 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1028
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1029 return $max;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1030 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1031
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1032 ################################################################################
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1033 # Subroutine processes any command line arguments
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1034 ################################################################################
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1035 sub parse_options
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1036 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1037 my $result;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1038
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1039 $opt_help = 0;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1040 $opt_class_header = 0;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1041 $opt_handler_fcns = 0;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1042 $opt_debug = 0;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1043
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1044 $result = GetOptions ("opt-class-header" => \$opt_class_header,
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1045 "opt-handler-fcns" => \$opt_handler_fcns,
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1046 "debug" => \$opt_debug,
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1047 "help" => \$opt_help);
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1048
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1049 # give user info if options incorrect or -h(elp) given
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1050 &usage_info if (!$result or (@ARGV != 1) or $opt_help);
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1051 if ($opt_class_header and $opt_handler_fcns)
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1052 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1053 die "Only one of [-opt-class-header \| -opt-handler-fcns ] may be specified";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1054 }
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1055
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1056 }
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1057
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1058 ################################################################################
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1059 # Subroutine displays usage information
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1060 ################################################################################
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1061 sub usage_info
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1062 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1063 warn <<_END_OF_USAGE_;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1064 //////////////////////////////////////////////////////////////////////////////
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1065 USAGE : mk-opts.pl -opt-class-header\|-opt-handler-fcns [-debug] [-help] DEFN_FILE
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1066 //////////////////////////////////////////////////////////////////////////////
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1067
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1068 Automatically generate C++ code for option handling code (DASSL, DASRT, etc.)
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1069 from definition file.
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1070
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1071 See the head of mk-opts.pl for a description of the format that is parsed.
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1072 _END_OF_USAGE_
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1073
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1074 exit(1); # exit with error code
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1075 }
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1076

Mercurial > hg > octave-nkf

annotate build-aux/mk-opts.pl @ 19898:4197fc428c7d