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

annotate build-aux/mk-opts.pl @ 20830:b65888ec820e draft default tip gccjit

dmalcom gcc jit import

author	Stefan Mahr <dac922@gmx.de>
date	Fri, 27 Feb 2015 16:59:36 +0100
parents	a9574e3c6e9e
children

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

Mercurial > hg > octave-nkf

annotate build-aux/mk-opts.pl @ 20830:b65888ec820e draft default tip gccjit