home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21fs.zip / octave / octave-2.1.23 / src / oct-obj.cc < prev    next >
C/C++ Source or Header  |  2000-01-15  |  4KB  |  209 lines
  1. /*
  2.  
  3. Copyright (C) 1996, 1997 John W. Eaton
  4.  
  5. This file is part of Octave.
  6.  
  7. Octave is free software; you can redistribute it and/or modify it
  8. under the terms of the GNU General Public License as published by the
  9. Free Software Foundation; either version 2, or (at your option) any
  10. later version.
  11.  
  12. Octave is distributed in the hope that it will be useful, but WITHOUT
  13. ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14. FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15. for more details.
  16.  
  17. You should have received a copy of the GNU General Public License
  18. along with Octave; see the file COPYING.  If not, write to the Free
  19. Software Foundation, 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  20.  
  21. */
  22.  
  23. #if defined (__GNUG__)
  24. #pragma implementation
  25. #endif
  26.  
  27. #ifdef HAVE_CONFIG_H
  28. #include <config.h>
  29. #endif
  30.  
  31. #include "error.h"
  32. #include "oct-obj.h"
  33.  
  34. octave_allocator
  35. octave_value_list::allocator (sizeof (octave_value_list));
  36.  
  37. octave_value_list&
  38. octave_value_list::prepend (const octave_value& val)
  39. {
  40.   int n = length ();
  41.  
  42.   resize (n + 1);
  43.  
  44.   while (n > 0)
  45.     {
  46.       elem (n) = elem (n - 1);
  47.       n--;
  48.     }
  49.  
  50.   elem (0) = val;
  51.   
  52.   return *this;
  53. }
  54.  
  55. octave_value_list&
  56. octave_value_list::append (const octave_value& val)
  57. {
  58.   int n = length ();
  59.  
  60.   resize (n + 1);
  61.  
  62.   elem (n) = val;
  63.  
  64.   return *this;
  65. }
  66.  
  67. octave_value_list&
  68. octave_value_list::append (const octave_value_list& lst)
  69. {
  70.   int len = length ();
  71.   int lst_len = lst.length ();
  72.  
  73.   resize (len + lst_len);
  74.  
  75.   for (int i = 0; i < lst_len; i++)
  76.     elem (len + i) = lst (i);
  77.  
  78.   return *this;
  79. }
  80.  
  81. octave_value_list&
  82. octave_value_list::reverse (void)
  83. {
  84.   int n = length ();
  85.  
  86.   for (int i = 0; i < n / 2; i++)
  87.     {
  88.       octave_value tmp = elem (i);
  89.       elem (i) = elem (n - i - 1);
  90.       elem (n - i - 1) = tmp;
  91.     }
  92.  
  93.   return *this;
  94. }
  95.  
  96. octave_value_list
  97. octave_value_list::splice (int offset, int rep_length,
  98.                const octave_value_list& lst) const
  99. { 
  100.   octave_value_list retval;
  101.  
  102.   int len = length ();
  103.  
  104.   if (offset < 0 || offset >= len)
  105.     {
  106.       if (! (rep_length == 0 && offset == len))
  107.     {
  108.       error ("octave_value_list::splice: invalid OFFSET");
  109.       return retval;
  110.     }
  111.     }
  112.  
  113.   if (rep_length < 0 || rep_length + offset > len)
  114.     {
  115.       error ("octave_value_list::splice: invalid LENGTH");
  116.       return retval;
  117.     }
  118.  
  119.   int lst_len = lst.length ();
  120.  
  121.   int new_len = len - rep_length + lst_len;
  122.  
  123.   retval.resize (new_len);
  124.  
  125.   int k = 0;
  126.  
  127.   for (int i = 0; i < offset; i++)
  128.     retval(k++) = elem (i);
  129.  
  130.   for (int i = 0; i < lst_len; i++)
  131.     retval(k++) = lst(i);
  132.  
  133.   for (int i = offset + rep_length; i < len; i++)
  134.     retval(k++) = elem (i);
  135.  
  136.   return retval;
  137. }
  138.  
  139. octave_value_list
  140. octave_value_list::index (idx_vector& i) const
  141. {
  142.   return octave_value_list (data.index (i));
  143. }
  144.  
  145. bool
  146. octave_value_list::all_strings_p (void) const
  147. {
  148.   int n = length ();
  149.  
  150.   for (int i = 0; i < n; i++)
  151.     if (! elem(i).is_string ())
  152.       return 0;
  153.  
  154.   return 1;
  155. }
  156.  
  157. string_vector
  158. octave_value_list::make_argv (const string& fcn_name) const
  159. {
  160.   string_vector argv;
  161.  
  162.   if (all_strings_p ())
  163.     {
  164.       int len = length ();
  165.  
  166.       int total_nr = 0;
  167.  
  168.       for (int i = 0; i < len; i++)
  169.     {
  170.       // An empty string ("") has zero columns and zero rows (a
  171.       // change that was made for Matlab contemptibility.
  172.  
  173.       int n = elem(i).rows ();
  174.  
  175.       total_nr += n ? n : 1;
  176.     }
  177.  
  178.       argv.resize (total_nr+1);
  179.  
  180.       argv[0] = fcn_name;
  181.  
  182.       int k = 1;
  183.       for (int i = 0; i < len; i++)
  184.     {
  185.       int nr = elem(i).rows ();
  186.  
  187.       if (nr < 2)
  188.         argv[k++] = elem(i).string_value ();
  189.       else
  190.         {
  191.           string_vector tmp = elem(i).all_strings ();
  192.  
  193.           for (int j = 0; j < nr; j++)
  194.         argv[k++] = tmp[j];
  195.         }
  196.     }
  197.     }
  198.   else
  199.     error ("%s: expecting all arguments to be strings", fcn_name.c_str ());
  200.  
  201.   return argv;
  202. }
  203.  
  204. /*
  205. ;;; Local Variables: ***
  206. ;;; mode: C++ ***
  207. ;;; End: ***
  208. */
  209.