Other systems

Development Platform:
Matlab

ls-oct-ascii.h：Code Content
							/*
Copyright (C) 2003, 2004, 2005, 2006, 2007 John W. Eaton
This file is part of Octave.
Octave is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 3 of the License, or (at your
option) any later version.
Octave is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with Octave; see the file COPYING.  If not, see
<http://www.gnu.org/licenses/>.
*/
#if !defined (octave_ls_oct_ascii_h)
#define octave_ls_oct_ascii_h 1
#include <cfloat>
#include <sstream>
#include <string>
#include "str-vec.h"
// Flag for cell elements
#define CELL_ELT_TAG "<cell-element>"
// Used when converting Inf to something that gnuplot can read.
#ifndef OCT_RBV
#define OCT_RBV DBL_MAX / 100.0
#endif
extern OCTINTERP_API std::string
extract_keyword (std::istream& is, const char *keyword, 
		 const bool next_only = false);
extern OCTINTERP_API std::string
read_ascii_data (std::istream& is, const std::string& filename, bool& global,
		 octave_value& tc, octave_idx_type count);
extern OCTINTERP_API bool
save_ascii_data (std::ostream& os, const octave_value& val_arg,
		 const std::string& name, bool mark_as_global, int precision);
extern OCTINTERP_API bool
save_ascii_data_for_plotting (std::ostream& os, const octave_value& t,
			      const std::string& name);
extern OCTINTERP_API bool
save_three_d (std::ostream& os, const octave_value& t,
	      bool parametric = false);
// Match KEYWORD on stream IS, placing the associated value in VALUE,
// returning TRUE if successful and FALSE otherwise.
//
// Input should look something like:
//
//  [%#][ t]*keyword[ t]*int-value.*n
template <class T>
bool
extract_keyword (std::istream& is, const char *keyword, T& value, 
		 const bool next_only = false)
{
  bool status = false;
  value = 0;
  char c;
  while (is.get (c))
    {
      if (c == '%' || c == '#')
	{
	  std::ostringstream buf;
	  while (is.get (c) && (c == ' ' || c == 't' || c == '%' || c == '#'))
	    ; // Skip whitespace and comment characters.
	  if (isalpha (c))
	    buf << c;
	  while (is.get (c) && isalpha (c))
	    buf << c;
	  std::string tmp = buf.str ();
	  bool match = (tmp.compare (0, strlen (keyword), keyword) == 0);
	  if (match)
	    {
	      while (is.get (c) && (c == ' ' || c == 't' || c == ':'))
		; // Skip whitespace and the colon.
	      is.putback (c);
	      if (c != 'n' && c != 'r')
		is >> value;
	      if (is)
		status = true;
	      while (is.get (c) && c != 'n' && c != 'r')
		; // Skip to beginning of next line;
	      break;
	    }
	  else if (next_only)
	    break;
	}
    }
  return status;
}
// Match one of the elements in KEYWORDS on stream IS, placing the
// matched keyword in KW and the associated value in VALUE,
// returning TRUE if successful and FALSE otherwise.
//
// Input should look something like:
//
//  [%#][ t]*keyword[ t]*int-value.*n
template <class T>
bool
extract_keyword (std::istream& is, const string_vector& keywords,
		 std::string& kw, T& value, const bool next_only = false)
{
  bool status = false;
  kw = "";
  value = 0;
  char c;
  while (is.get (c))
    {
      if (c == '%' || c == '#')
	{
	  std::ostringstream buf;
	  while (is.get (c) && (c == ' ' || c == 't' || c == '%' || c == '#'))
	    ; // Skip whitespace and comment characters.
	  if (isalpha (c))
	    buf << c;
	  while (is.get (c) && isalpha (c))
	    buf << c;
	  std::string tmp = buf.str ();
	  for (int i = 0; i < keywords.length (); i++)
	    {
	      int match = (tmp == keywords[i]);
	      if (match)
		{
		  kw = keywords[i];
		  while (is.get (c) && (c == ' ' || c == 't' || c == ':'))
		    ; // Skip whitespace and the colon.
		  is.putback (c);
		  if (c != 'n' && c != 'r')
		    is >> value;
		  if (is)
		    status = true;
		  while (is.get (c) && c != 'n' && c != 'r')
		    ; // Skip to beginning of next line;
		  return status;
		}
	    }
	  if (next_only)
	    break;
	}
    }
  return status;
}
#endif
/*
;;; Local Variables: ***
;;; mode: C++ ***
;;; End: ***
*/

						