octave-nkf: scripts/io/strread.m annotate

annotate scripts/io/strread.m @ 11120:a44f979a35ce

style fixes for some .m files

author	John W. Eaton <jwe@octave.org>
date	Wed, 20 Oct 2010 20:49:17 -0400
parents	2c356a35d7f5
children	64728cd28d7a

rev	line source
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	1 ## Copyright (C) 2009 Eric Chassande-Mottin, CNRS (France)
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	2 ##
11104 2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10846 diff changeset	3 ## This file is part of Octave.
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	4 ##
11104 2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10846 diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10846 diff changeset	6 ## under the terms of the GNU General Public License as published by
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10846 diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10846 diff changeset	8 ## your option) any later version.
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10846 diff changeset	9 ##
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10846 diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10846 diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10846 diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10846 diff changeset	13 ## General Public License for more details.
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	14 ##
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
11104 2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10846 diff changeset	16 ## along with Octave; see the file COPYING. If not, see
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	17 ## <http://www.gnu.org/licenses/>.
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	18
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	19 ## -- texinfo --
10793 be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	20 ## @deftypefn {Function File} {[@var{a}, @dots{}] =} strread (@var{str})
be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	21 ## @deftypefnx {Function File} {[@var{a}, @dots{}] =} strread (@var{str}, @var{format})
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	22 ## @deftypefnx {Function File} {[@var{a}, @dots{}] =} strread (@var{str}, @var{format}, @
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	23 ## @var{prop1}, @var{value1}, @dots{})
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	24 ## Read data from a string.
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	25 ##
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	26 ## The string @var{str} is split into words that are repeatedly matched to the
10793 be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	27 ## specifiers in @var{format}. The first word is matched to the first
be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	28 ## specifier,
be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	29 ## the second to the second specifier and so forth. If there are more words
be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	30 ## than
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	31 ## specifiers, the process is repeated until all words have been processed.
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	32 ##
10793 be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	33 ## The string @var{format} describes how the words in @var{str} should be
be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	34 ## parsed.
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	35 ## It may contain any combination of the following specifiers:
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	36 ## @table @code
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	37 ## @item %s
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	38 ## The word is parsed as a string.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	39 ##
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	40 ## @item %d
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	41 ## @itemx %f
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	42 ## The word is parsed as a number.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	43 ##
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	44 ## @item %*
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	45 ## The word is skipped.
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	46 ## @end table
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	47 ##
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	48 ## Parsed word corresponding to the first specifier are returned in the first
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	49 ## output argument and likewise for the rest of the specifiers.
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	50 ##
10793 be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	51 ## By default, @var{format} is @t{"%f"}, meaning that numbers are read from
be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	52 ## @var{str}.
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	53 ##
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	54 ## For example, the string
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	55 ##
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	56 ## @example
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	57 ## @group
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	58 ## @var{str} = "\
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	59 ## Bunny Bugs 5.5\n\
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	60 ## Duck Daffy -7.5e-5\n\
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	61 ## Penguin Tux 6"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	62 ## @end group
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	63 ## @end example
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	64 ##
10846 a4f482e66b65 Grammarcheck more of the documentation. Rik <octave@nomad.inbox5.com> parents: 10821 diff changeset	65 ## @noindent
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	66 ## can be read using
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	67 ##
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	68 ## @example
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	69 ## [@var{a}, @var{b}, @var{c}] = strread (@var{str}, "%s %s %f");
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	70 ## @end example
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	71 ##
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	72 ## The behaviour of @code{strread} can be changed via properties @var{prop}
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	73 ## @itemize @code
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	74 ## @item "commentstyle":
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	75 ## Parts of @var{str} are considered comments and will be skipped.
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	76 ## @var{value} is the comment style and can be any of the following.
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	77 ## @itemize
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	78 ## @item "shell"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	79 ## Everything from @code{#} characters to the nearest end-line is skipped.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	80 ##
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	81 ## @item "c"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	82 ## Everything between @code{/} and @code{/} is skipped.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	83 ##
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	84 ## @item "c++"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	85 ## Everything from @code{//} characters to the nearest end-line is skipped.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	86 ##
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	87 ## @item "matlab"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	88 ## Everything from @code{%} characters to the nearest end-line is skipped.
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	89 ## @end itemize
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	90 ##
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	91 ## @item "delimiter"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	92 ## Any character in @var{value} will be used to split @var{str} into words.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	93 ##
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	94 ## @item "emptyvalue"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	95 ## Parts of the output where no word is available is filled with @var{value}.
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	96 ## @end itemize
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	97 ##
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	98 ## @seealso{textread, load, dlmread, fscanf}
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	99 ## @end deftypefn
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	100
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	101 function varargout = strread (str, formatstr = "%f", varargin)
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	102 ## Check input
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	103 if (nargin < 1)
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	104 print_usage ();
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	105 endif
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	106
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	107 if (!ischar (str) \|\| !ischar (str))
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	108 error ("strread: first and second input arguments must be strings");
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	109 endif
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	110
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	111 ## Parse options
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	112 comment_flag = false;
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	113 numeric_fill_value = 0;
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	114 white_spaces = " \n\r\t\b";
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	115 for n = 1:2:length (varargin)
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	116 switch (lower (varargin {n}))
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	117 case "commentstyle"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	118 comment_flag = true;
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	119 switch (lower (varargin {n+1}))
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	120 case "c"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	121 comment_specif = {"/", "/"};
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	122 case "c++"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	123 comment_specif = {"//", "\n"};
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	124 case "shell"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	125 comment_specif = {"#", "\n"};
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	126 case "matlab"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	127 comment_specif = {"%", "\n"};
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	128 otherwise
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	129 warning ("strread: unknown comment style '%s'", val);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	130 endswitch
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	131 case "delimiter"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9758 diff changeset	132 delimiter_str = varargin {n+1};
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	133 case "emptyvalue"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9758 diff changeset	134 numeric_fill_value = varargin {n+1};
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	135 case "bufsize"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	136 ## XXX: We could synthesize this, but that just seems weird...
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9758 diff changeset	137 warning ("strread: property \"bufsize\" is not implemented");
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	138 case "whitespace"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9758 diff changeset	139 white_spaces = varargin {n+1};
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	140 case "expchars"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9758 diff changeset	141 warning ("strread: property \"expchars\" is not implemented");
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	142 otherwise
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	143 warning ("strread: unknown property \"%s\"", varargin {n});
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	144 endswitch
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	145 endfor
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	146
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	147 ## Parse format string
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	148 idx = strfind (formatstr, "%")';
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	149 specif = formatstr ([idx, idx+1]);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	150 nspecif = length (idx);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	151 idx_star = strfind (formatstr, "%*");
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	152 nfields = length (idx) - length (idx_star);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	153
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	154 if (max (nargout, 1) != nfields)
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	155 error ("strread: the number of output variables must match that of format specifiers");
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	156 endif
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	157
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	158 ## Remove comments
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	159 if (comment_flag)
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	160 cstart = strfind (str, comment_specif{1});
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	161 cstop = strfind (str, comment_specif{2});
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	162 if (length (cstart) > 0)
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	163 ## Ignore nested openers.
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	164 [idx, cidx] = unique (lookup (cstop, cstart), "first");
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	165 if (idx(end) == length (cstop))
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	166 cidx(end) = []; # Drop the last one if orphaned.
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	167 endif
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	168 cstart = cstart(cidx);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	169 endif
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	170 if (length (cstop) > 0)
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	171 ## Ignore nested closers.
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	172 [idx, cidx] = unique (lookup (cstart, cstop), "first");
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	173 if (idx(1) == 0)
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	174 cidx(1) = []; # Drop the first one if orphaned.
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	175 endif
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	176 cstop = cstop(cidx);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	177 endif
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	178 len = length (str);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	179 c2len = length (comment_specif{2});
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	180 str = cellslices (str, [1, cstop + c2len], [cstart - 1, len]);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	181 str = [str{:}];
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	182 endif
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	183
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	184 ## Split 'str' into words
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	185 words = split_by (str, white_spaces);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	186 num_words = numel (words);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	187 num_lines = ceil (num_words / nspecif);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	188
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	189 ## For each specifier
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	190 k = 1;
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	191 for m = 1:nspecif
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	192 data = words (m:nspecif:end);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	193
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	194 ## Map to format
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11104 diff changeset	195 switch (specif(m,:))
9746 31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	196 case "%s"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	197 data (end+1:num_lines) = {""};
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	198 varargout {k} = data';
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	199 k++;
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	200 case {"%d", "%f"}
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	201 data = str2double (data);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	202 data (end+1:num_lines) = numeric_fill_value;
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	203 varargout {k} = data.';
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	204 k++;
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	205 case "%*"
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	206 ## do nothing
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	207 endswitch
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	208 endfor
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	209 endfunction
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	210
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	211 function out = split_by (text, sep)
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	212 out = strtrim (strsplit (text, sep, true));
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	213 endfunction
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	214
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	215 %!test
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	216 %! str = "# comment\n# comment\n1 2 3";
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	217 %! [a, b] = strread (str, '%d %s', 'commentstyle', 'shell');
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	218 %! assert (a, [1; 3]);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	219 %! assert (b, {"2"; ""});
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	220
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	221 %!test
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	222 %! str = '';
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	223 %! a = rand (10, 1);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	224 %! b = char (round (65 + 20 * rand (10, 1)));
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	225 %! for k = 1:10
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	226 %! str = sprintf ('%s %.6f %s\n', str, a (k), b (k));
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	227 %! endfor
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	228 %! [aa, bb] = strread (str, '%f %s');
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	229 %! assert (a, aa, 1e-5);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	230 %! assert (cellstr (b), bb);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	231
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	232 %!test
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	233 %! str = '';
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	234 %! a = rand (10, 1);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	235 %! b = char (round (65 + 20 * rand (10, 1)));
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	236 %! for k = 1:10
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	237 %! str = sprintf ('%s %.6f %s\n', str, a (k), b (k));
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	238 %! endfor
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	239 %! aa = strread (str, '%f %*s');
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	240 %! assert (a, aa, 1e-5);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	241
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	242 %!test
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	243 %! str = sprintf ('/* this is\nacomment*/ 1 2 3');
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	244 %! a = strread (str, '%f', 'commentstyle', 'c');
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	245 %! assert (a, [1; 2; 3]);
31a22d48f41f scripts/io/strread.m scripts/io/textread.m: new functions Soren Hauberg <hauberg@gmail.com> parents: diff changeset	246

Mercurial > octave-nkf

annotate scripts/io/strread.m @ 11120:a44f979a35ce