/*

 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"

 #include "ls-ascii-helper.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;

 	      // Skip to beginning of next line;

 	      skip_until_newline (is, false);

 	      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;

 		  // Skip to beginning of next line;

 		  skip_until_newline (is, false);

 		  return status;

 		}

 	    }

 	  if (next_only)

 	    break;

 	}

     }

   return status;

 }

 #endif

 /*

 ;;; Local Variables: ***

 ;;; mode: C++ ***

 ;;; End: ***

 */