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

annotate build-aux/mk-opts.pl @ 23442:53f5f8231c37

allow most header files to be compiled separately * build-aux/mk-opts.pl: Include <limits> in generated header files. * file-io.h, ls-hdf5.h, ls-mat-ascii.h, ls-mat4.h, ls-mat5.h, ls-oct-binary.h, ls-oct-text.h, ls-utils.h, mxarray.in.h, octave-link.h, octave-preserve-stream-state.h, pt-check.h, pt-tm-const.h, DAERTFunc.h, aepbalance.h, eigs-base.h, Sparse-diag-op-defs.h, Sparse-op-defs.h, Sparse-perm-op-defs.h, action-container.h, oct-rl-edit.h, url-transfer.h: Include additional headers or use forward declarations to allow successful compilation of the file by itself.

author	John W. Eaton <jwe@octave.org>
date	Wed, 26 Apr 2017 01:20:50 -0400
parents	092078913d54
children	3f1bf237908b

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 #
23219 3ac9f9ecfae5 maint: Update copyright dates. John W. Eaton <jwe@octave.org> parents: 23083 diff changeset	3 # Copyright (C) 2002-2017 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
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22720 diff changeset	8 # under the terms of the GNU General Public License as published by
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22720 diff changeset	9 # the Free Software Foundation; either version 3 of the License, or
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22720 diff changeset	10 # (at your option) any later version.
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	11 #
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22720 diff changeset	12 # Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22720 diff changeset	13 # WITHOUT ANY WARRANTY; without even the implied warranty of
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22720 diff changeset	14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22720 diff changeset	15 # GNU General Public License 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 }
4050 6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	158 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	159 elsif (/^\sTYPE\s=\s"(.)"\s*$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	160 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	161 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	162 $TYPE[$OPT_NUM] = $1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	163 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	164 elsif (/^\sSET_ARG_TYPE\s=\s"(.)"\s*$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	165 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	166 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	167 $SET_ARG_TYPE[$OPT_NUM] = $1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	168 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	169 elsif (/^\sINIT_VALUE\s=\s"(.)"\s*$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	170 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	171 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	172 $INIT_VALUE[$OPT_NUM] = $1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	173 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	174 elsif (/^\sSET_EXPR\s=\s"(.)"\s*$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	175 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	176 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	177 $SET_EXPR[$OPT_NUM] = $1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	178 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	179 elsif (/^\sINIT_BODY\s$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	180 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	181 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	182 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	183 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	184 $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	185 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	186 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	187 elsif (/^\sSET_BODY\s$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	188 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	189 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	190 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	191 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	192 $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	193 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	194 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	195 elsif (/^\sSET_CODE\s$/)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	196 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	197 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	198 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	199 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	200 $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	201 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	202 }
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
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	205 if (not defined $SET_ARG_TYPE[$OPT_NUM])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	206 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	207 $SET_ARG_TYPE[$OPT_NUM] = $TYPE[$OPT_NUM];
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	208 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	209 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	210 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	211 $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	212 = 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	213 $OPT[$OPT_NUM], $TYPE[$OPT_NUM]);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	214 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	215
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	216 $OPT_NUM++;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	217 }
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 sub process_data
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	220 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	221 $MAX_TOKENS = max (@N_TOKS);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	222
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	223 &get_min_match_len_info;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	224
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	225 $FCN_NAME = lc ($CLASS) if not defined $FCN_NAME;
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	226
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	227 $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	228
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	229 $STATIC_OBJECT_NAME = "${FCN_NAME}_opts";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	230
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	231 if (not defined $DOC_STRING)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	232 {
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	233 $DOC_STRING = "Query or set options for the function \@code{$FCN_NAME}.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	234
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	235 When called with no arguments, the names of all available options and
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	236 their current values are displayed.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	237
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	238 Given one argument, return the value of the option \@var{opt}.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	239
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	240 When called with two arguments, \@code{$OPT_FCN_NAME} sets the option
12612 16cca721117b doc: Update all documentation for chapter on Numerical Integration Rik <octave@nomad.inbox5.com> parents: 12504 diff changeset	241 \@var{opt} to value \@var{val}.";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	242 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	243 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	244
17513 fedcd3717ebc doc: grammarcheck of documentation before 3.8 release. Rik <rik@octave.org> parents: 15039 diff changeset	245 ## 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	246 sub get_min_match_len_info
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 my ($i, $j, $k);
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 ($i = 0; $i < $OPT_NUM; $i++)
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 for ($j = 0; $j < $MAX_TOKENS; $j++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	253 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	254 $MIN_TOK_LEN_TO_MATCH[$i][$j] = 0;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	255 }
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 $MIN_TOKS_TO_MATCH[$i] = 1;
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 L1: for ($k = 0; $k < $OPT_NUM; $k++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	260 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	261 my $duplicate = 1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	262
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	263 if ($i != $k)
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 L2: for ($j = 0; $j < $MAX_TOKENS; $j++)
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 ($j < $N_TOKS[$i])
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 ($KW_TOK[$i][$j] eq $KW_TOK[$k][$j])
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 if ($MIN_TOK_LEN_TO_MATCH[$i][$j] == 0)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	272 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	273 $MIN_TOK_LEN_TO_MATCH[$i][$j] = 1;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	274 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	275
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	276 $MIN_TOKS_TO_MATCH[$i]++;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	277 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	278 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	279 {
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	280 $duplicate = 0;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: 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 if ($MIN_TOK_LEN_TO_MATCH[$i][$j] == 0)
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	283 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	284 $MIN_TOK_LEN_TO_MATCH[$i][$j] = 1;
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	285 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	286
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	287 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	288 my @t = split (//, $KW_TOK[$k][$j]);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	289
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	290 my ($n, $ii);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	291 $n = scalar (@s);
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	292 $n = scalar (@t) if (@t < $n);
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 for ($ii = 0; $ii < $n; $ii++)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	295 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	296 if ("$s[$ii]" eq "$t[$ii]")
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: 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 if ($ii + 2 > $MIN_TOK_LEN_TO_MATCH[$i][$j])
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	299 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	300 $MIN_TOK_LEN_TO_MATCH[$i][$j]++;
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	301 }
3998 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 else
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 last L2;
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 }
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 last L1;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	310 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	311 }
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	312 else
db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	313 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	314 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	315 }
3998 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 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	318 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	319 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	320 } # end of get_min_match_len_info
4050 6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	321
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	322
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	323 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	324 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	325 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	326
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	327 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	328 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	329 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	330 }
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 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	333 }
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
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 ## 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	336 ## 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	337
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	338 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	339 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	340 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	341
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	342 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	343
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	344 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	345 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	346 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	347 }
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 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	350 }
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
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	352 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	353 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	354 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	355
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	356 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	357
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	358 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	359 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	360 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	361 }
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 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	364 }
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	365
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	366 sub emit_opt_class_header
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 my ($i, $s);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	369
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	370 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	371 // DO NOT EDIT!
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	372 // Generated automatically from $DEFN_FILE.
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	373
20791 f7084eae3318 maint: Use Octave coding conventions for #if statements. Rik <rik@octave.org> parents: 20733 diff changeset	374 #if ! defined (octave_${CLASS_NAME}_h)
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	375 #define octave_${CLASS_NAME}_h 1
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	376
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	377 #include <cfloat>
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	378 #include <cmath>
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	379
23442 53f5f8231c37 allow most header files to be compiled separately John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	380 #include <limits>
53f5f8231c37 allow most header files to be compiled separately John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	381
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	382 $INCLUDE
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	383
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	384 class
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
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	386 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	387 public:
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	388
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	389 $CLASS_NAME (void)
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	390 _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	391
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	392 print ' : ';
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	393 emit_default_init_list (" ");
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	394
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	395 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	396 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	397 }
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	398
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	399 $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	400 : ";
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 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 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	403
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	404 print " { }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	405
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	406 ${CLASS_NAME}& operator = (const ${CLASS_NAME}& opt)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	407 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	408 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	409 {\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	410
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	411 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	412
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	413 print " }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	414
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	415 return *this;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	416 }
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 ~$CLASS_NAME (void) { }\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	419
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	420 print "\n void init (void)\n {\n";
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 for ($i = 0; $i < $OPT_NUM; $i++)
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 if ($INIT_VALUE[$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 print " $OPTVAR[$i] = $INIT_VALUE[$i];\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	427 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	428 elsif ($INIT_BODY[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	429 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	430 $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	431 chomp ($s);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	432 $s =~ s/^\s*/ /g;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	433 $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	434 print $s,"\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	435 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	436 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	437
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	438 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	439 " }\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	440
4122 19a1626b8d57 [project @ 2002-10-23 22:10:53 by jwe] jwe parents: 4050 diff changeset	441 ## For backward compatibility and because set_options is probably
19a1626b8d57 [project @ 2002-10-23 22:10:53 by jwe] jwe parents: 4050 diff changeset	442 ## a better name in some contexts:
19a1626b8d57 [project @ 2002-10-23 22:10:53 by jwe] jwe parents: 4050 diff changeset	443
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	444 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	445 " {\n";
4122 19a1626b8d57 [project @ 2002-10-23 22:10:53 by jwe] jwe parents: 4050 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 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	448
7bddd70bc838 mk-opts.pl: generate initialization lists and in-line code for copy method John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	449 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	450
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	451 for ($i = 0; $i < $OPT_NUM; $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 if ($SET_EXPR[$i])
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 emit_set_decl ($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 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	458 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	459 elsif ($SET_BODY[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	460 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	461 emit_set_decl ($i);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	462
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	463 $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	464 chomp ($s);
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	465 $s = ' ' . $s;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	466 $s =~ s/\n/\n /g;
4049 a35a3c5d4740 [project @ 2002-08-16 08:54:31 by jwe] jwe parents: 4047 diff changeset	467 print "\n {\n$s\n reset = true;\n }\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	468 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	469 elsif ($SET_CODE[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	470 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	471 $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	472 chomp ($s);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	473 $s =~ s/^ //g;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	474 $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	475 print "\n",$s,"\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	476 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	477 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	478
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	479 for ($i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	480 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	481 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	482 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	483
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	484 print "private:\n\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	485
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	486 for ($i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	487 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	488 print " $TYPE[$i] $OPTVAR[$i];\n";
3998 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
4049 a35a3c5d4740 [project @ 2002-08-16 08:54:31 by jwe] jwe parents: 4047 diff changeset	491 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	492 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	493
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	494 sub emit_set_decl
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	495 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	496 my ($i) = @_;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	497
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	498 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	499 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	500
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	501 sub emit_opt_handler_fcns
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 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	504 $header =~ s/[.]\w*$/.h/; # replace .in with .h
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	505 $header =~ s\|^./([^/])$\|$1\|; # strip directory part
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 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	508 // DO NOT EDIT!
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	509 // Generated automatically from $DEFN_FILE.
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	510
21690 b6a686543080 Only include config.h in files that are compiled separately. John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	511 // This file should not include config.h. It is only included in other
b6a686543080 Only include config.h in files that are compiled separately. John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	512 // C++ source files that should have included config.h before including
b6a686543080 Only include config.h in files that are compiled separately. John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	513 // this file.
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	514
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	515 #include <iomanip>
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	516 #include <iostream>
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	517
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	518 #include "$header"
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	519
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14138 diff changeset	520 #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	521 #include "pr-output.h"
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	522
20940 48b2ad5ee801 maint: Rename oct-obj.[cc\|h] to ovl.[cc\|h] for clarity. Rik <rik@octave.org> parents: 20895 diff changeset	523 #include "ovl.h"
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	524 #include "utils.h"
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	525 #include "pager.h"
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	526
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	527 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	528
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	529 _END_EMIT_OPT_HANDLER_FCNS_
3998 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_struct_decl;
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_struct_def;
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_print_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_set_functions;
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 &emit_show_function;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	540
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	541 &emit_options_function;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	542 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	543
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	544 sub emit_struct_decl
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	545 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	546 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	547 #define MAX_TOKENS $MAX_TOKENS
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	548
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	549 struct $STRUCT_NAME
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	550 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	551 const char *keyword;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	552 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	553 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	554 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	555 };
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	556
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	557 _END_PRINT_STRUCT_DECL_
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	558 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	559
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	560 sub emit_struct_def
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 my $i;
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 print "#define NUM_OPTIONS $OPT_NUM\n\n";
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 print "static $STRUCT_NAME $STATIC_TABLE_NAME [] =\n{\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	567
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	568 for ($i = 0; $i < ($OPT_NUM - 1); $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	569 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	570 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	571 print "\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	572 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	573 emit_option_table_entry ($i, 0);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	574
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	575 print "};\n\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	576 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	577
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	578 sub emit_option_table_entry
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	579 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	580 my ($i, $empty) = @_;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	581
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	582 my $k;
3998 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 if ($empty)
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	585 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	586 print " { 0,\n";
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 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	589 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	590 print " { \"$NAME[$i]\",\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	591 }
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 my $n = scalar $#{$KW_TOK[$i]};
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	594 print " {";
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	595 for $k (0 .. $MAX_TOKENS)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	596 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	597 if ($empty or $k > $n)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	598 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	599 print " 0,";
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 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	602 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	603 print " \"$KW_TOK[$i][$k]\",";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	604 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	605 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	606 print " },\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	607
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	608 print " {";
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	609 for $k (0 .. $MAX_TOKENS)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	610 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	611 if ($empty or $k > $n)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	612 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	613 print " 0,";
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 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	616 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	617 print " $MIN_TOK_LEN_TO_MATCH[$i][$k],";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	618 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	619 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	620 print " }, $MIN_TOKS_TO_MATCH[$i], ";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	621
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	622 print "},\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	623 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	624
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	625 sub emit_print_function
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	626 {
21092 429f83903400 maint: Use "FIXME:" more places in code base. Rik <rik@octave.org> parents: 20940 diff changeset	627 ## FIXME: determine the width of the table automatically.
4047 7b0c139ac8af [project @ 2002-08-15 20:52:55 by jwe] jwe parents: 4044 diff changeset	628
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	629 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	630 print_$CLASS_NAME (std::ostream& os)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	631 {
5765 7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5667 diff changeset	632 std::ostringstream buf;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	633
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	634 os << "\\n"
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	635 << "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	636 << " keyword value\\n"
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	637 << " ------- -----\\n";
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 $STRUCT_NAME *list = $STATIC_TABLE_NAME;\n\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	640
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	641 for (my $i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	642 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	643 print qq\| {\n os << " "
5667 ec3ffbf9982b [project @ 2006-03-15 02:51:39 by jwe] jwe parents: 5275 diff changeset	644 << std::setiosflags (std::ios::left) << std::setw (50)
ec3ffbf9982b [project @ 2006-03-15 02:51:39 by jwe] jwe parents: 5275 diff changeset	645 << list[$i].keyword
ec3ffbf9982b [project @ 2006-03-15 02:51:39 by jwe] jwe parents: 5275 diff changeset	646 << 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	647 << " ";\n\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	648
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	649 if ($TYPE[$i] eq "double")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	650 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	651 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	652 print qq\| os << val << "\\n";\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	653 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	654 elsif ($TYPE[$i] eq "float")
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	655 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	656 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	657 print qq\| os << val << "\\n";\n\|;
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	658 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	659 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	660 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	661 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	662 print qq\| os << val << "\\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 "std::string")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: 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 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	667 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	668 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	669 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	670 my $elt_type;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	671 if ($TYPE[$i] eq "Array<int>")
5275 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 = "int";
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	674 }
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	675 else
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	676 {
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	677 $elt_type = "octave_idx_type";
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	678 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	679 print qq\| Array<$elt_type> val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n\|;
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20163 diff changeset	680 print qq\| if (val.numel () == 1)
4044 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 << val(0) << "\\n";
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	683 }
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	684 else
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	685 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	686 os << "\\n\\n";
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20163 diff changeset	687 octave_idx_type len = val.numel ();
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	688 Matrix tmp (len, 1);
db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	689 for (octave_idx_type i = 0; i < len; i++)
db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	690 tmp(i,0) = val(i);
6755 55411ecc8d8b [project @ 2007-06-25 18:16:58 by jwe] jwe parents: 5823 diff changeset	691 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	692 os << "\\n\\n";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	693 }\n\|;
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	694 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	695 elsif ($TYPE[$i] eq "Array<double>")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	696 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	697 print qq\| Array<double> val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n\|;
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20163 diff changeset	698 print qq\| if (val.numel () == 1)
3998 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 << val(0) << "\\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	701 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	702 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	703 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	704 os << "\\n\\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	705 Matrix tmp = Matrix (ColumnVector (val));
6755 55411ecc8d8b [project @ 2007-06-25 18:16:58 by jwe] jwe parents: 5823 diff changeset	706 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	707 os << "\\n\\n";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	708 }\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	709 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	710 elsif ($TYPE[$i] eq "Array<float>")
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	711 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	712 print qq\| Array<float> val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n\|;
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20163 diff changeset	713 print qq\| if (val.numel () == 1)
7806 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 << val(0) << "\\n";
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	716 }
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	717 else
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	718 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	719 os << "\\n\\n";
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	720 FloatMatrix tmp = FloatMatrix (FloatColumnVector (val));
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	721 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	722 os << "\\n\\n";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	723 }\n\|;
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	724 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	725 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	726 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	727 die ("unknown type $TYPE[$i]");
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	728 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	729
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	730 print " }\n\n";
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
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	733 print qq\| os << "\\n";\n}\n\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	734 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	735
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	736 sub emit_set_functions
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	737 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	738 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	739 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	740 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	741 $STRUCT_NAME *list = $STATIC_TABLE_NAME;\n\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	742
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	743 my $iftok = "if";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	744
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	745 for (my $i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	746 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	747 $iftok = "else if" if ($i > 0);
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	748
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	749 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	750 keyword, list[$i].min_toks_to_match, MAX_TOKENS))
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	751 {\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	752
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	753 if ($TYPE[$i] eq "double")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	754 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	755 print " double tmp = val.double_value ();\n\n";
20733 c6464d78da69 eliminate error_state from generated code John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	756 print " $STATIC_OBJECT_NAME.set_$OPT[$i] (tmp);\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	757 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	758 elsif ($TYPE[$i] eq "float")
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	759 {
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	760 print " float tmp = val.float_value ();\n\n";
20733 c6464d78da69 eliminate error_state from generated code John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	761 print " $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	762 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	763 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	764 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	765 print " int tmp = val.int_value ();\n\n";
20733 c6464d78da69 eliminate error_state from generated code John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	766 print " $STATIC_OBJECT_NAME.set_$OPT[$i] (tmp);\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	767 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	768 elsif ($TYPE[$i] eq "std::string")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	769 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	770 print " std::string tmp = val.string_value ();\n\n";
20733 c6464d78da69 eliminate error_state from generated code John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	771 print " $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";
20733 c6464d78da69 eliminate error_state from generated code John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	776 print " $STATIC_OBJECT_NAME.set_$OPT[$i] (tmp);\n";
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	777 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	778 elsif ($TYPE[$i] eq "Array<double>")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	779 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	780 print " Array<double> tmp = val.vector_value ();\n\n";
20733 c6464d78da69 eliminate error_state from generated code John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	781 print " $STATIC_OBJECT_NAME.set_$OPT[$i] (tmp);\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	782 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	783 elsif ($TYPE[$i] eq "Array<float>")
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	784 {
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	785 print " Array<float> tmp = val.float_vector_value ();\n\n";
20733 c6464d78da69 eliminate error_state from generated code John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	786 print " $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	787 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	788 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	789 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	790 die ("unknown type $TYPE[$i]");
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	791 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	792
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	793 print " }\n";
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
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	796 print qq\| else
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	797 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	798 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	799 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	800 }\n\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	801 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	802
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	803 sub emit_show_function
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 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	806 show_$CLASS_NAME (const std::string& keyword)
3998 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 octave_value retval;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	809
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	810 $STRUCT_NAME *list = $STATIC_TABLE_NAME;\n\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	811
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	812 my $iftok = "if";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	813
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	814 for (my $i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	815 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	816 $iftok = "else if" if ($i > 0);
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	817
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	818 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	819 keyword, list[$i].min_toks_to_match, MAX_TOKENS))
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	820 {\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	821
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	822 if ($TYPE[$i] eq "double")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	823 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	824 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	825 print " retval = val;\n";
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 elsif ($TYPE[$i] eq "float")
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	828 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	829 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	830 print " retval = val;\n";
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 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	833 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	834 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	835 print " retval = static_cast<double> (val);\n";
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 elsif ($TYPE[$i] eq "std::string")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	838 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	839 print " retval = $STATIC_OBJECT_NAME.$OPT[$i] ();\n";
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	840 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	841 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	842 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	843 my $elt_type;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	844 if ($TYPE[$i] eq "Array<int>")
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	845 {
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	846 $elt_type = "int";
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	847 }
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	848 else
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	849 {
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	850 $elt_type = "octave_idx_type";
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 4122 diff changeset	851 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	852 print " Array<$elt_type> val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n";
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20163 diff changeset	853 print " if (val.numel () == 1)
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	854 {
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	855 retval = static_cast<double> (val(0));
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	856 }
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	857 else
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	858 {
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20163 diff changeset	859 octave_idx_type len = val.numel ();
12174 db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	860 ColumnVector tmp (len);
db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	861 for (octave_idx_type i = 0; i < len; i++)
db1f49eaba6b whitespace fixes John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	862 tmp(i) = val(i);
4044 9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	863 retval = tmp;
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	864 }\n";
9678c5526190 [project @ 2002-08-15 16:54:55 by jwe] jwe parents: 4035 diff changeset	865 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	866 elsif ($TYPE[$i] eq "Array<double>")
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	867 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	868 print " Array<double> val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n";
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20163 diff changeset	869 print " if (val.numel () == 1)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	870 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	871 retval = val(0);
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	872 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	873 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	874 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	875 retval = ColumnVector (val);
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	876 }\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	877 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	878 elsif ($TYPE[$i] eq "Array<float>")
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	879 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	880 print " Array<float> val = $STATIC_OBJECT_NAME.$OPT[$i] ();\n\n";
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20163 diff changeset	881 print " if (val.numel () == 1)
7806 edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	882 {
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	883 retval = val(0);
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	884 }
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	885 else
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	886 {
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	887 retval = FloatColumnVector (val);
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	888 }\n";
edc25a3fb2bc handle floats in mk-opts.pl Jaroslav Hajek <highegg@gmail.com> parents: 7019 diff changeset	889 }
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	890 else
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	891 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	892 die ("unknown type $TYPE[$i]");
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	893 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	894
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	895 print " }\n";
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
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	898 print qq\| else
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	899 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	900 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	901 }
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 return retval;\n}\n\n\|;
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
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	906 sub emit_options_function
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	907 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	908 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	909 DEFUN ($OPT_FCN_NAME, args, ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	910 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	911 \@deftypefn {} {} $OPT_FCN_NAME ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	912 \@deftypefnx {} {val =} $OPT_FCN_NAME (\@var{opt})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	913 \@deftypefnx {} {} $OPT_FCN_NAME (\@var{opt}, \@var{val})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	914 $DOC_STRING
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	915
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	916 Options include
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	917
22720 766b0163b3b7 doc: Don't create @tables of type @code with @qcode entries. Rik <rik@octave.org> parents: 22323 diff changeset	918 \@table \@asis
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	919 _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	920 # FIXME: Add extra newline above
4050 6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	921
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	922 for (my $i = 0; $i < $OPT_NUM; $i++)
4050 6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	923 {
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	924 print '@item @qcode{"', $NAME[$i], '"}', "\n";
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	925 print $DOC_ITEM[$i] if $DOC_ITEM[$i];
4050 6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	926 }
6481f41a79f3 [project @ 2002-08-17 02:18:18 by jwe] jwe parents: 4049 diff changeset	927
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	928 print <<"_END_EMIT_OPTIONS_FUNCTION_BODY_";
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	929 \@end table
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21690 diff changeset	930 \@end deftypefn */)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	931 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	932 octave_value_list retval;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	933
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	934 int nargin = args.length ();
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	935
20812 d9ca869ca124 maint: Clean-up more instances of print_usage(). Rik <rik@octave.org> parents: 20791 diff changeset	936 if (nargin > 2)
d9ca869ca124 maint: Clean-up more instances of print_usage(). Rik <rik@octave.org> parents: 20791 diff changeset	937 print_usage ();
d9ca869ca124 maint: Clean-up more instances of print_usage(). Rik <rik@octave.org> parents: 20791 diff changeset	938
3998 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 }
20812 d9ca869ca124 maint: Clean-up more instances of print_usage(). Rik <rik@octave.org> parents: 20791 diff changeset	943 else
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	944 {
20733 c6464d78da69 eliminate error_state from generated code John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	945 std::string keyword = args(0).xstring_value ("$OPT_FCN_NAME: expecting keyword as first argument");
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	946
20733 c6464d78da69 eliminate error_state from generated code John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	947 if (nargin == 1)
c6464d78da69 eliminate error_state from generated code John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	948 retval = show_$CLASS_NAME (keyword);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	949 else
20733 c6464d78da69 eliminate error_state from generated code John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	950 set_$CLASS_NAME (keyword, args(1));
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	951 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	952
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	953 return retval;
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	954 }
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	955 _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	956
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	957 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	958
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	959 sub emit_options_debug
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	960 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	961 print qq\|CLASS = "$CLASS"\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	962
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	963 for (my $i = 0; $i < $OPT_NUM; $i++)
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	964 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	965 print "\nOPTION\n";
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	966 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	967 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	968 if ($SET_ARG_TYPE[$i])
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 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	971 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	972 if ($INIT_VALUE[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	973 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	974 print qq\| INIT_VALUE = "$INIT_VALUE[$i]"\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	975 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	976 if ($INIT_BODY[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	977 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	978 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	979 print &substopt ($INIT_BODY[$i]);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	980 print " END_INIT_BODY\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	981 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	982 if ($SET_EXPR[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	983 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	984 print qq\| SET_EXPR = "$SET_EXPR[$i]"\n\|;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	985 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	986 if ($SET_BODY[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	987 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	988 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	989 print &substopt ($SET_BODY[$i]);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	990 print " END_SET_BODY\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	991 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	992 if ($SET_CODE[$i])
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	993 {
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	994 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	995 print &substopt ($SET_CODE[$i]);
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	996 print " END_SET_CODE\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	997 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	998 print "END_OPTION\n";
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	999 }
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
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1002 sub substopt
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1003 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1004 my ($string, $optvar, $opt, $type) = @_;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1005
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1006 $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	1007 $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	1008 $string =~ s/\$TYPE/$type/g;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1009
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1010 return $string;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1011 }
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1012
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1013 sub max
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1014 {
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1015 my $max = shift;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1016
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1017 foreach (@_)
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 $max = $_ if $max < $_;
f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1020 }
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 return $max;
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: diff changeset	1023 }
12504 d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1024
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1025 ################################################################################
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1026 # 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	1027 ################################################################################
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1028 sub parse_options
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1029 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1030 my $result;
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 $opt_help = 0;
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1033 $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	1034 $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	1035 $opt_debug = 0;
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 $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	1038 "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	1039 "debug" => \$opt_debug,
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1040 "help" => \$opt_help);
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1041
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1042 # 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	1043 &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	1044 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	1045 {
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1046 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	1047 }
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 }
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1050
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1051 ################################################################################
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1052 # 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	1053 ################################################################################
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1054 sub usage_info
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 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	1057 //////////////////////////////////////////////////////////////////////////////
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1058 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	1059 //////////////////////////////////////////////////////////////////////////////
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 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	1062 from definition file.
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1063
d1758f03a2ec Recode mk-opts.pl to use clearer, more modern, Perl syntax. Rik <octave@nomad.inbox5.com> parents: 12174 diff changeset	1064 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	1065 _END_OF_USAGE_
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 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	1068 }

Mercurial > octave

annotate build-aux/mk-opts.pl @ 23442:53f5f8231c37