Mercurial > hg > octave-nkf
annotate src/ov-class.cc @ 8377:25bc2d31e1bf
improve OCTAVE_LOCAL_BUFFER
| author | Jaroslav Hajek <highegg@gmail.com> |
|---|---|
| date | Wed, 29 Oct 2008 16:52:10 +0100 |
| parents | f8a885ccd5b4 |
| children | 73c4516fae10 |
| rev | line source |
|---|---|
| 7338 | 1 /* |
| 2 | |
| 3 Copyright (C) 2007 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 | |
| 7444 | 9 Free Software Foundation; either version 3 of the License, or (at your |
| 10 option) any later version. | |
| 7338 | 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 | |
| 7444 | 18 along with Octave; see the file COPYING. If not, see |
| 19 <http://www.gnu.org/licenses/>. | |
| 7338 | 20 |
| 21 */ | |
| 22 | |
| 23 #ifdef HAVE_CONFIG_H | |
| 24 #include <config.h> | |
| 25 #endif | |
| 26 | |
| 27 #include <iostream> | |
| 28 | |
| 29 #include "Array-util.h" | |
| 30 #include "byte-swap.h" | |
|
8377
25bc2d31e1bf
improve OCTAVE_LOCAL_BUFFER
Jaroslav Hajek <highegg@gmail.com>
parents:
8219
diff
changeset
|
31 #include "oct-locbuf.h" |
| 7338 | 32 |
| 33 #include "Cell.h" | |
| 34 #include "defun.h" | |
| 35 #include "error.h" | |
| 36 #include "gripes.h" | |
| 37 #include "load-path.h" | |
| 38 #include "ls-hdf5.h" | |
| 39 #include "ls-oct-ascii.h" | |
| 40 #include "ls-oct-binary.h" | |
| 41 #include "ls-utils.h" | |
| 42 #include "oct-lvalue.h" | |
| 43 #include "ov-class.h" | |
| 44 #include "ov-fcn.h" | |
| 45 #include "pager.h" | |
| 46 #include "parse.h" | |
| 47 #include "pr-output.h" | |
| 48 #include "toplev.h" | |
| 49 #include "unwind-prot.h" | |
| 50 #include "variables.h" | |
| 51 | |
| 52 DEFINE_OCTAVE_ALLOCATOR(octave_class); | |
| 53 | |
| 54 int octave_class::t_id (-1); | |
| 55 | |
| 56 const std::string octave_class::t_name ("class"); | |
| 57 | |
| 58 void | |
| 59 octave_class::register_type (void) | |
| 60 { | |
| 61 t_id = octave_value_typeinfo::register_type | |
| 62 (octave_class::t_name, "<unknown>", octave_value (new octave_class ())); | |
| 63 } | |
| 64 | |
| 65 Cell | |
| 66 octave_class::dotref (const octave_value_list& idx) | |
| 67 { | |
| 68 Cell retval; | |
| 69 | |
| 70 assert (idx.length () == 1); | |
| 71 | |
| 72 std::string nm = idx(0).string_value (); | |
| 73 | |
| 74 Octave_map::const_iterator p = map.seek (nm); | |
| 75 | |
| 76 if (p != map.end ()) | |
| 77 retval = map.contents (p); | |
| 78 else | |
| 79 error ("class has no member `%s'", nm.c_str ()); | |
| 80 | |
| 81 return retval; | |
| 82 } | |
| 83 | |
| 84 static void | |
| 85 gripe_invalid_index (void) | |
| 86 { | |
| 87 error ("invalid index for class"); | |
| 88 } | |
| 89 | |
| 90 static void | |
| 91 gripe_invalid_index_for_assignment (void) | |
| 92 { | |
| 93 error ("invalid index for class assignment"); | |
| 94 } | |
| 95 | |
| 96 static void | |
| 97 gripe_invalid_index_type (const std::string& nm, char t) | |
| 98 { | |
| 99 error ("%s cannot be indexed with %c", nm.c_str (), t); | |
| 100 } | |
| 101 | |
| 102 static void | |
| 103 gripe_failed_assignment (void) | |
| 104 { | |
| 105 error ("assignment to class element failed"); | |
| 106 } | |
| 107 | |
| 108 static inline octave_value_list | |
| 109 sanitize (const octave_value_list& ovl) | |
| 110 { | |
| 111 octave_value_list retval = ovl; | |
| 112 | |
| 113 for (octave_idx_type i = 0; i < ovl.length (); i++) | |
| 114 { | |
| 115 if (retval(i).is_magic_colon ()) | |
| 116 retval(i) = ":"; | |
| 117 } | |
| 118 | |
| 119 return retval; | |
| 120 } | |
| 121 | |
| 122 static inline octave_value | |
| 123 make_idx_args (const std::string& type, | |
| 124 const std::list<octave_value_list>& idx, | |
| 125 const std::string& who) | |
| 126 { | |
| 127 octave_value retval; | |
| 128 | |
| 129 size_t len = type.length (); | |
| 130 | |
| 131 if (len == idx.size ()) | |
| 132 { | |
| 133 Cell type_field (len, 1); | |
| 134 Cell subs_field (len, 1); | |
| 135 | |
| 136 std::list<octave_value_list>::const_iterator p = idx.begin (); | |
| 137 | |
| 138 for (size_t i = 0; i < len; i++) | |
| 139 { | |
| 140 char t = type[i]; | |
| 141 | |
| 142 switch (t) | |
| 143 { | |
| 144 case '(': | |
| 145 type_field(i) = "()"; | |
| 146 subs_field(i) = Cell (sanitize (*p++)); | |
| 147 break; | |
| 148 | |
| 149 case '{': | |
| 150 type_field(i) = "{}"; | |
| 151 subs_field(i) = Cell (sanitize (*p++)); | |
| 152 break; | |
| 153 | |
| 154 case '.': | |
| 155 { | |
| 156 type_field(i) = "."; | |
| 157 | |
| 158 octave_value_list vlist = *p++; | |
| 159 | |
| 160 if (vlist.length () == 1) | |
| 161 { | |
| 162 octave_value val = vlist(0); | |
| 163 | |
| 164 if (val.is_string ()) | |
| 165 subs_field(i) = val; | |
| 166 else | |
| 167 { | |
| 168 error ("expecting character string argument for `.' index"); | |
| 169 return retval; | |
| 170 } | |
| 171 } | |
| 172 else | |
| 173 { | |
| 174 error ("expecting single argument for `.' index"); | |
| 175 return retval; | |
| 176 } | |
| 177 } | |
| 178 break; | |
| 179 | |
| 180 default: | |
| 181 panic_impossible (); | |
| 182 break; | |
| 183 } | |
| 184 } | |
| 185 | |
| 186 Octave_map m; | |
| 187 | |
| 188 m.assign ("type", type_field); | |
| 189 m.assign ("subs", subs_field); | |
| 190 | |
| 191 retval = m; | |
| 192 } | |
| 193 else | |
| 194 error ("invalid index for %s", who.c_str ()); | |
| 195 | |
| 196 return retval; | |
| 197 } | |
| 198 | |
| 199 octave_value_list | |
| 200 octave_class::subsref (const std::string& type, | |
| 201 const std::list<octave_value_list>& idx, | |
| 202 int nargout) | |
| 203 { | |
| 204 octave_value_list retval; | |
| 205 | |
| 206 if (in_class_method ()) | |
| 207 { | |
| 208 // FIXME -- this block of code is the same as the body of | |
| 209 // octave_struct::subsref. Maybe it could be shared instead of | |
| 210 // duplicated. | |
| 211 | |
| 212 int skip = 1; | |
| 213 | |
| 214 switch (type[0]) | |
| 215 { | |
| 216 case '(': | |
| 217 { | |
| 218 if (type.length () > 1 && type[1] == '.') | |
| 219 { | |
| 220 std::list<octave_value_list>::const_iterator p = idx.begin (); | |
| 221 octave_value_list key_idx = *++p; | |
| 222 | |
| 223 Cell tmp = dotref (key_idx); | |
| 224 | |
| 225 if (! error_state) | |
| 226 { | |
| 227 Cell t = tmp.index (idx.front ()); | |
| 228 | |
| 229 retval(0) = (t.length () == 1) ? t(0) : octave_value (t, true); | |
| 230 | |
| 231 // We handled two index elements, so tell | |
| 232 // next_subsref to skip both of them. | |
| 233 | |
| 234 skip++; | |
| 235 } | |
| 236 } | |
| 237 else | |
| 238 retval(0) = map.index (idx.front ()); | |
| 239 } | |
| 240 break; | |
| 241 | |
| 242 case '.': | |
| 243 { | |
| 244 if (map.numel() > 0) | |
| 245 { | |
| 246 Cell t = dotref (idx.front ()); | |
| 247 | |
| 248 retval(0) = (t.length () == 1) ? t(0) : octave_value (t, true); | |
| 249 } | |
| 250 } | |
| 251 break; | |
| 252 | |
| 253 case '{': | |
| 254 gripe_invalid_index_type (type_name (), type[0]); | |
| 255 break; | |
| 256 | |
| 257 default: | |
| 258 panic_impossible (); | |
| 259 } | |
| 260 | |
| 261 // FIXME -- perhaps there should be an | |
| 262 // octave_value_list::next_subsref member function? See also | |
| 263 // octave_user_function::subsref. | |
| 264 | |
| 265 if (idx.size () > 1) | |
| 266 retval = retval(0).next_subsref (nargout, type, idx, skip); | |
| 267 } | |
| 268 else | |
| 269 { | |
| 270 octave_value meth = symbol_table::find_method ("subsref", class_name ()); | |
| 271 | |
| 272 if (meth.is_defined ()) | |
| 273 { | |
| 274 octave_value_list args; | |
| 275 | |
| 276 args(1) = make_idx_args (type, idx, "subsref"); | |
| 277 | |
| 278 if (error_state) | |
| 279 return octave_value_list (); | |
| 280 | |
| 281 count++; | |
| 282 args(0) = octave_value (this); | |
| 283 | |
| 284 return feval (meth.function_value (), args, nargout); | |
| 285 } | |
| 286 else | |
| 287 { | |
| 288 if (type.length () == 1 && type[0] == '(') | |
| 289 retval(0) = octave_value (map.index (idx.front ()), class_name ()); | |
| 290 else | |
| 291 gripe_invalid_index (); | |
| 292 } | |
| 293 } | |
| 294 | |
| 295 return retval; | |
| 296 } | |
| 297 | |
| 298 octave_value | |
| 299 octave_class::numeric_conv (const Cell& val, const std::string& type) | |
| 300 { | |
| 301 octave_value retval; | |
| 302 | |
| 303 if (val.length () == 1) | |
| 304 { | |
| 305 retval = val(0); | |
| 306 | |
| 307 if (type.length () > 0 && type[0] == '.' && ! retval.is_map ()) | |
| 308 retval = Octave_map (); | |
| 309 } | |
| 310 else | |
| 311 gripe_invalid_index_for_assignment (); | |
| 312 | |
| 313 return retval; | |
| 314 } | |
| 315 | |
| 316 octave_value | |
| 317 octave_class::subsasgn (const std::string& type, | |
| 318 const std::list<octave_value_list>& idx, | |
| 319 const octave_value& rhs) | |
| 320 { | |
| 321 octave_value retval; | |
| 322 | |
|
7960
22a18f206121
octave_class::subsasgn: only do internal magic if RHS is not an octave_class object
John W. Eaton <jwe@octave.org>
parents:
7444
diff
changeset
|
323 if (in_class_method () && ! rhs.is_object ()) |
| 7338 | 324 { |
| 325 // FIXME -- this block of code is the same as the body of | |
| 326 // octave_struct::subsasgn. Maybe it could be shared instead of | |
| 327 // duplicated. | |
| 328 | |
| 329 int n = type.length (); | |
| 330 | |
| 331 octave_value t_rhs = rhs; | |
| 332 | |
| 333 if (n > 1 && ! (type.length () == 2 && type[0] == '(' && type[1] == '.')) | |
| 334 { | |
| 335 switch (type[0]) | |
| 336 { | |
| 337 case '(': | |
| 338 { | |
| 339 if (type.length () > 1 && type[1] == '.') | |
| 340 { | |
| 341 std::list<octave_value_list>::const_iterator p = idx.begin (); | |
| 342 octave_value_list t_idx = *p; | |
| 343 | |
| 344 octave_value_list key_idx = *++p; | |
| 345 | |
| 346 assert (key_idx.length () == 1); | |
| 347 | |
| 348 std::string key = key_idx(0).string_value (); | |
| 349 | |
| 350 octave_value u; | |
| 351 | |
| 352 if (! map.contains (key)) | |
| 353 u = octave_value::empty_conv (type.substr (2), rhs); | |
| 354 else | |
| 355 { | |
| 356 Cell map_val = map.contents (key); | |
| 357 | |
| 358 Cell map_elt = map_val.index (idx.front (), true); | |
| 359 | |
| 360 u = numeric_conv (map_elt, type.substr (2)); | |
| 361 } | |
| 362 | |
| 363 if (! error_state) | |
| 364 { | |
| 365 std::list<octave_value_list> next_idx (idx); | |
| 366 | |
| 367 // We handled two index elements, so subsasgn to | |
| 368 // needs to skip both of them. | |
| 369 | |
| 370 next_idx.erase (next_idx.begin ()); | |
| 371 next_idx.erase (next_idx.begin ()); | |
| 372 | |
| 373 u.make_unique (); | |
| 374 | |
| 375 t_rhs = u.subsasgn (type.substr (2), next_idx, rhs); | |
| 376 } | |
| 377 } | |
| 378 else | |
| 379 gripe_invalid_index_for_assignment (); | |
| 380 } | |
| 381 break; | |
| 382 | |
| 383 case '.': | |
| 384 { | |
| 385 octave_value_list key_idx = idx.front (); | |
| 386 | |
| 387 assert (key_idx.length () == 1); | |
| 388 | |
| 389 std::string key = key_idx(0).string_value (); | |
| 390 | |
| 391 octave_value u; | |
| 392 | |
| 393 if (! map.contains (key)) | |
| 394 u = octave_value::empty_conv (type.substr (1), rhs); | |
| 395 else | |
| 396 { | |
| 397 Cell map_val = map.contents (key); | |
| 398 | |
| 399 u = numeric_conv (map_val, type.substr (1)); | |
| 400 } | |
| 401 | |
| 402 if (! error_state) | |
| 403 { | |
| 404 std::list<octave_value_list> next_idx (idx); | |
| 405 | |
| 406 next_idx.erase (next_idx.begin ()); | |
| 407 | |
| 408 u.make_unique (); | |
| 409 | |
| 410 t_rhs = u.subsasgn (type.substr (1), next_idx, rhs); | |
| 411 } | |
| 412 } | |
| 413 break; | |
| 414 | |
| 415 case '{': | |
| 416 gripe_invalid_index_type (type_name (), type[0]); | |
| 417 break; | |
| 418 | |
| 419 default: | |
| 420 panic_impossible (); | |
| 421 } | |
| 422 } | |
| 423 | |
| 424 if (! error_state) | |
| 425 { | |
| 426 switch (type[0]) | |
| 427 { | |
| 428 case '(': | |
| 429 { | |
| 430 if (n > 1 && type[1] == '.') | |
| 431 { | |
| 432 std::list<octave_value_list>::const_iterator p = idx.begin (); | |
| 433 octave_value_list key_idx = *++p; | |
| 434 | |
| 435 assert (key_idx.length () == 1); | |
| 436 | |
| 437 std::string key = key_idx(0).string_value (); | |
| 438 | |
| 439 if (! error_state) | |
| 440 { | |
| 441 map.assign (idx.front (), key, t_rhs); | |
| 442 | |
| 443 if (! error_state) | |
| 444 { | |
| 445 count++; | |
| 446 retval = octave_value (this); | |
| 447 } | |
| 448 else | |
| 449 gripe_failed_assignment (); | |
| 450 } | |
| 451 else | |
| 452 gripe_failed_assignment (); | |
| 453 } | |
| 454 else | |
| 455 { | |
| 456 if (t_rhs.is_map()) | |
| 457 { | |
| 458 Octave_map rhs_map = t_rhs.map_value (); | |
| 459 | |
| 460 if (! error_state) | |
| 461 { | |
| 462 map.assign (idx.front (), rhs_map); | |
| 463 | |
| 464 if (! error_state) | |
| 465 { | |
| 466 count++; | |
| 467 retval = octave_value (this); | |
| 468 } | |
| 469 else | |
| 470 gripe_failed_assignment (); | |
| 471 } | |
| 472 else | |
| 473 error ("invalid class assignment"); | |
| 474 } | |
| 475 else | |
| 476 { | |
| 477 if (t_rhs.is_empty()) | |
| 478 { | |
| 479 map.maybe_delete_elements (idx.front()); | |
| 480 | |
| 481 if (! error_state) | |
| 482 { | |
| 483 count++; | |
| 484 retval = octave_value (this); | |
| 485 } | |
| 486 else | |
| 487 gripe_failed_assignment (); | |
| 488 } | |
| 489 else | |
| 490 error ("invalid class assignment"); | |
| 491 } | |
| 492 } | |
| 493 } | |
| 494 break; | |
| 495 | |
| 496 case '.': | |
| 497 { | |
| 498 octave_value_list key_idx = idx.front (); | |
| 499 | |
| 500 assert (key_idx.length () == 1); | |
| 501 | |
| 502 std::string key = key_idx(0).string_value (); | |
| 503 | |
| 504 map.assign (key, t_rhs); | |
| 505 | |
| 506 if (! error_state) | |
| 507 { | |
| 508 count++; | |
| 509 retval = octave_value (this); | |
| 510 } | |
| 511 else | |
| 512 gripe_failed_assignment (); | |
| 513 } | |
| 514 break; | |
| 515 | |
| 516 case '{': | |
| 517 gripe_invalid_index_type (type_name (), type[0]); | |
| 518 break; | |
| 519 | |
| 520 default: | |
| 521 panic_impossible (); | |
| 522 } | |
| 523 } | |
| 524 else | |
| 525 gripe_failed_assignment (); | |
| 526 } | |
| 527 else | |
| 528 { | |
| 529 octave_value meth = symbol_table::find_method ("subsasgn", class_name ()); | |
| 530 | |
| 531 if (meth.is_defined ()) | |
| 532 { | |
| 533 octave_value_list args; | |
| 534 | |
| 535 args(2) = rhs; | |
| 536 | |
| 537 args(1) = make_idx_args (type, idx, "subsasgn"); | |
| 538 | |
| 539 if (error_state) | |
| 540 return octave_value_list (); | |
| 541 | |
| 542 count++; | |
| 543 args(0) = octave_value (this); | |
| 544 | |
| 545 octave_value_list tmp = feval (meth.function_value (), args); | |
| 546 | |
| 547 // FIXME -- should the subsasgn method be able to return | |
| 548 // more than one value? | |
| 549 | |
| 550 if (tmp.length () > 1) | |
| 551 error ("expecting single return value from @%s/subsasgn", | |
| 552 class_name().c_str ()); | |
| 553 else | |
| 554 retval = tmp(0); | |
| 555 | |
| 556 } | |
| 557 else | |
| 558 error ("no subsasgn method defined for class %s", | |
| 559 class_name().c_str ()); | |
| 560 } | |
| 561 | |
| 562 return retval; | |
| 563 } | |
| 564 | |
|
8154
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
565 idx_vector |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
566 octave_class::index_vector (void) const |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
567 { |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
568 idx_vector retval; |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
569 |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
570 octave_value meth = symbol_table::find_method ("subsindex", class_name ()); |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
571 |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
572 if (meth.is_defined ()) |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
573 { |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
574 octave_value_list args; |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
575 args(0) = octave_value (new octave_class (map, c_name)); |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
576 |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
577 octave_value_list tmp = feval (meth.function_value (), args, 1); |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
578 |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
579 if (!error_state && tmp.length () >= 1) |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
580 { |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
581 if (tmp(0).is_object()) |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
582 error ("subsindex function must return a valid index vector"); |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
583 else |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
584 // Index vector returned by subsindex is zero based |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
585 // (why this inconsistency Mathworks?), and so we must |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
586 // add one to the value returned as the index_vector method |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
587 // expects it to be one based. |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
588 retval = do_binary_op (octave_value::op_add, tmp (0), |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
589 octave_value (1.0)).index_vector (); |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
590 } |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
591 } |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
592 else |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
593 error ("no subsindex method defined for class %s", |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
594 class_name().c_str ()); |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
595 |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
596 return retval; |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
597 } |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
598 |
| 7338 | 599 size_t |
| 600 octave_class::byte_size (void) const | |
| 601 { | |
| 602 // Neglect the size of the fieldnames. | |
| 603 | |
| 604 size_t retval = 0; | |
| 605 | |
| 606 for (Octave_map::const_iterator p = map.begin (); p != map.end (); p++) | |
| 607 { | |
| 608 std::string key = map.key (p); | |
| 609 | |
| 610 octave_value val = octave_value (map.contents (p)); | |
| 611 | |
| 612 retval += val.byte_size (); | |
| 613 } | |
| 614 | |
| 615 return retval; | |
| 616 } | |
| 617 | |
| 618 string_vector | |
| 619 octave_class::map_keys (void) const | |
| 620 { | |
| 621 string_vector retval; | |
| 622 gripe_wrong_type_arg ("octave_class::map_keys()", type_name ()); | |
| 623 return retval; | |
| 624 } | |
| 625 | |
| 626 void | |
| 627 octave_class::print (std::ostream& os, bool) const | |
| 628 { | |
| 629 print_raw (os); | |
| 630 } | |
| 631 | |
| 632 void | |
| 633 octave_class::print_raw (std::ostream& os, bool) const | |
| 634 { | |
| 635 unwind_protect::begin_frame ("octave_class_print"); | |
| 636 | |
| 637 unwind_protect_int (Vstruct_levels_to_print); | |
| 638 | |
| 639 indent (os); | |
| 640 os << " <class " << class_name () << ">"; | |
| 641 newline (os); | |
| 642 | |
| 643 unwind_protect::run_frame ("octave_class_print"); | |
| 644 } | |
| 645 | |
| 646 bool | |
| 647 octave_class::print_name_tag (std::ostream& os, const std::string& name) const | |
| 648 { | |
| 649 bool retval = false; | |
| 650 | |
| 651 indent (os); | |
| 652 os << name << " ="; | |
| 653 newline (os); | |
| 654 newline (os); | |
| 655 | |
| 656 return retval; | |
| 657 } | |
| 658 | |
| 659 void | |
| 660 octave_class::print_with_name (std::ostream&, const std::string& name, | |
| 661 bool) const | |
| 662 { | |
| 663 if (! (evaluating_function_body && Vsilent_functions)) | |
| 664 { | |
| 665 octave_value fcn = symbol_table::find_method ("display", class_name ()); | |
| 666 | |
| 667 if (fcn.is_defined ()) | |
| 668 { | |
| 669 octave_value_list args; | |
| 670 | |
| 671 args(0) = octave_value (clone (), 1); | |
| 672 | |
| 673 string_vector arg_names (1); | |
| 674 | |
| 675 arg_names[0] = name; | |
| 676 | |
| 677 args.stash_name_tags (arg_names); | |
| 678 | |
| 679 feval (fcn.function_value (), args); | |
| 680 } | |
| 681 } | |
| 682 } | |
| 683 | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
684 bool |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
685 octave_class::save_ascii (std::ostream& os) |
| 7338 | 686 { |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
687 os << "# classname: " << class_name () << "\n"; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
688 Octave_map m; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
689 if (load_path::find_method (class_name (), "saveobj") != std::string()) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
690 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
691 octave_value in = new octave_class (*this); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
692 octave_value_list tmp = feval ("saveobj", in, 1); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
693 if (! error_state) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
694 m = tmp(0).map_value (); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
695 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
696 return false; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
697 } |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
698 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
699 m = map_value (); |
| 7338 | 700 |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
701 os << "# length: " << m.nfields () << "\n"; |
| 7338 | 702 |
| 703 Octave_map::iterator i = m.begin (); | |
| 704 while (i != m.end ()) | |
| 705 { | |
| 706 octave_value val = map.contents (i); | |
| 707 | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
708 bool b = save_ascii_data (os, val, m.key (i), false, 0); |
| 7338 | 709 |
| 710 if (! b) | |
| 711 return os; | |
| 712 | |
| 713 i++; | |
| 714 } | |
| 715 | |
| 716 return true; | |
| 717 } | |
| 718 | |
| 719 bool | |
| 720 octave_class::load_ascii (std::istream& is) | |
| 721 { | |
| 722 octave_idx_type len = 0; | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
723 std::string classname; |
| 7338 | 724 bool success = true; |
| 725 | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
726 if (extract_keyword (is, "classname", classname) && classname != "") |
| 7338 | 727 { |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
728 if (extract_keyword (is, "length", len) && len >= 0) |
| 7338 | 729 { |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
730 if (len > 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
731 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
732 Octave_map m (map); |
| 7338 | 733 |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
734 for (octave_idx_type j = 0; j < len; j++) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
735 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
736 octave_value t2; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
737 bool dummy; |
| 7338 | 738 |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
739 // recurse to read cell elements |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
740 std::string nm |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
741 = read_ascii_data (is, std::string (), dummy, t2, j); |
| 7338 | 742 |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
743 if (!is) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
744 break; |
| 7338 | 745 |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
746 Cell tcell = t2.is_cell () ? t2.cell_value () : Cell (t2); |
| 7338 | 747 |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
748 if (error_state) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
749 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
750 error ("load: internal error loading class elements"); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
751 return false; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
752 } |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
753 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
754 m.assign (nm, tcell); |
| 7338 | 755 } |
| 756 | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
757 if (is) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
758 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
759 map = m; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
760 c_name = classname; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
761 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
762 if (load_path::find_method (classname, "loadobj") != |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
763 std::string()) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
764 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
765 octave_value in = new octave_class (*this); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
766 octave_value_list tmp = feval ("loadobj", in, 1); |
| 7338 | 767 |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
768 if (! error_state) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
769 map = tmp(0).map_value (); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
770 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
771 success = false; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
772 } |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
773 } |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
774 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
775 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
776 error ("load: failed to load class"); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
777 success = false; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
778 } |
| 7338 | 779 } |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
780 else if (len == 0 ) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
781 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
782 map = Octave_map (dim_vector (1, 1)); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
783 c_name = classname; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
784 } |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
785 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
786 panic_impossible (); |
| 7338 | 787 } |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
788 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
789 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
790 error ("load: failed to extract number of elements in class"); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
791 success = false; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
792 } |
| 7338 | 793 } |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
794 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
795 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
796 error ("load: failed to extract name of class"); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
797 success = false; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
798 } |
| 7338 | 799 |
| 800 return success; | |
| 801 } | |
| 802 | |
| 803 bool | |
| 804 octave_class::save_binary (std::ostream& os, bool& save_as_floats) | |
| 805 { | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
806 int32_t classname_len = class_name().length (); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
807 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
808 os.write (reinterpret_cast<char *> (&classname_len), 4); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
809 os << class_name (); |
| 7338 | 810 |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
811 Octave_map m; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
812 if (load_path::find_method (class_name (), "saveobj") != std::string()) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
813 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
814 octave_value in = new octave_class (*this); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
815 octave_value_list tmp = feval ("saveobj", in, 1); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
816 if (! error_state) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
817 m = tmp(0).map_value (); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
818 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
819 return false; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
820 } |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
821 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
822 m = map_value (); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
823 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
824 int32_t len = m.nfields(); |
| 7338 | 825 os.write (reinterpret_cast<char *> (&len), 4); |
| 826 | |
| 827 Octave_map::iterator i = m.begin (); | |
| 828 while (i != m.end ()) | |
| 829 { | |
| 830 octave_value val = map.contents (i); | |
| 831 | |
| 832 bool b = save_binary_data (os, val, m.key (i), "", 0, save_as_floats); | |
| 833 | |
| 834 if (! b) | |
| 835 return os; | |
| 836 | |
| 837 i++; | |
| 838 } | |
| 839 | |
| 840 return true; | |
| 841 } | |
| 842 | |
| 843 bool | |
| 844 octave_class::load_binary (std::istream& is, bool swap, | |
| 845 oct_mach_info::float_format fmt) | |
| 846 { | |
| 847 bool success = true; | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
848 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
849 int32_t classname_len; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
850 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
851 is.read (reinterpret_cast<char *> (&classname_len), 4); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
852 if (! is) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
853 return false; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
854 else if (swap) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
855 swap_bytes<4> (&classname_len); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
856 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
857 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
858 OCTAVE_LOCAL_BUFFER (char, classname, classname_len+1); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
859 classname[classname_len] = '\0'; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
860 if (! is.read (reinterpret_cast<char *> (classname), classname_len)) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
861 return false; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
862 c_name = classname; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
863 } |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
864 |
| 7338 | 865 int32_t len; |
| 866 if (! is.read (reinterpret_cast<char *> (&len), 4)) | |
| 867 return false; | |
| 868 if (swap) | |
| 869 swap_bytes<4> (&len); | |
| 870 | |
| 871 if (len > 0) | |
| 872 { | |
| 873 Octave_map m (map); | |
| 874 | |
| 875 for (octave_idx_type j = 0; j < len; j++) | |
| 876 { | |
| 877 octave_value t2; | |
| 878 bool dummy; | |
| 879 std::string doc; | |
| 880 | |
| 881 // recurse to read cell elements | |
| 882 std::string nm = read_binary_data (is, swap, fmt, std::string (), | |
| 883 dummy, t2, doc); | |
| 884 | |
| 885 if (!is) | |
| 886 break; | |
| 887 | |
| 888 Cell tcell = t2.is_cell () ? t2.cell_value () : Cell (t2); | |
| 889 | |
| 890 if (error_state) | |
| 891 { | |
| 892 error ("load: internal error loading class elements"); | |
| 893 return false; | |
| 894 } | |
| 895 | |
| 896 m.assign (nm, tcell); | |
| 897 } | |
| 898 | |
| 899 if (is) | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
900 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
901 map = m; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
902 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
903 if (load_path::find_method (class_name(), "loadobj") != std::string()) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
904 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
905 octave_value in = new octave_class (*this); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
906 octave_value_list tmp = feval ("loadobj", in, 1); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
907 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
908 if (! error_state) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
909 map = tmp(0).map_value (); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
910 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
911 success = false; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
912 } |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
913 } |
| 7338 | 914 else |
| 915 { | |
| 916 error ("load: failed to load class"); | |
| 917 success = false; | |
| 918 } | |
| 919 } | |
| 920 else if (len == 0 ) | |
| 921 map = Octave_map (dim_vector (1, 1)); | |
| 922 else | |
| 923 panic_impossible (); | |
| 924 | |
| 925 return success; | |
| 926 } | |
| 927 | |
| 928 #if defined (HAVE_HDF5) | |
| 929 | |
| 930 bool | |
| 931 octave_class::save_hdf5 (hid_t loc_id, const char *name, bool save_as_floats) | |
| 932 { | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
933 hsize_t hdims[3]; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
934 hid_t group_hid = -1; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
935 hid_t type_hid = -1; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
936 hid_t space_hid = -1; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
937 hid_t class_hid = -1; |
| 7338 | 938 hid_t data_hid = -1; |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
939 Octave_map m; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
940 Octave_map::iterator i; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
941 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
942 group_hid = H5Gcreate (loc_id, name, 0); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
943 if (group_hid < 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
944 goto error_cleanup; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
945 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
946 // Add the class name to the group |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
947 type_hid = H5Tcopy (H5T_C_S1); H5Tset_size (type_hid, c_name.length () + 1); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
948 if (type_hid < 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
949 goto error_cleanup; |
| 7338 | 950 |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
951 hdims[0] = 0; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
952 space_hid = H5Screate_simple (0 , hdims, 0); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
953 if (space_hid < 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
954 goto error_cleanup; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
955 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
956 class_hid = H5Dcreate (group_hid, "classname", type_hid, space_hid, |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
957 H5P_DEFAULT); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
958 if (class_hid < 0 || H5Dwrite (class_hid, type_hid, H5S_ALL, H5S_ALL, |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
959 H5P_DEFAULT, c_name.c_str ()) < 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
960 goto error_cleanup; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
961 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
962 data_hid = H5Gcreate (group_hid, "value", 0); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
963 if (data_hid < 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
964 goto error_cleanup; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
965 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
966 if (load_path::find_method (class_name (), "saveobj") != std::string()) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
967 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
968 octave_value in = new octave_class (*this); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
969 octave_value_list tmp = feval ("saveobj", in, 1); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
970 if (! error_state) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
971 m = tmp(0).map_value (); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
972 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
973 goto error_cleanup; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
974 } |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
975 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
976 m = map_value (); |
| 7338 | 977 |
| 978 // recursively add each element of the class to this group | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
979 i = m.begin (); |
| 7338 | 980 while (i != m.end ()) |
| 981 { | |
| 982 octave_value val = map.contents (i); | |
| 983 | |
| 984 bool retval2 = add_hdf5_data (data_hid, val, m.key (i), "", false, | |
| 985 save_as_floats); | |
| 986 | |
| 987 if (! retval2) | |
| 988 break; | |
| 989 | |
| 990 i++; | |
| 991 } | |
| 992 | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
993 error_cleanup: |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
994 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
995 if (data_hid > 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
996 H5Gclose (data_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
997 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
998 if (class_hid > 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
999 H5Dclose (class_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1000 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1001 if (space_hid > 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1002 H5Sclose (space_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1003 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1004 if (type_hid > 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1005 H5Tclose (type_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1006 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1007 if (group_hid > 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1008 H5Gclose (group_hid); |
| 7338 | 1009 |
| 1010 return true; | |
| 1011 } | |
| 1012 | |
| 1013 bool | |
| 1014 octave_class::load_hdf5 (hid_t loc_id, const char *name, | |
| 1015 bool have_h5giterate_bug) | |
| 1016 { | |
| 1017 bool retval = false; | |
| 1018 | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1019 hid_t group_hid = -1; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1020 hid_t data_hid = -1; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1021 hid_t type_hid = -1; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1022 hid_t type_class_hid = -1; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1023 hid_t space_hid = -1; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1024 hid_t subgroup_hid = -1; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1025 hid_t st_id = -1; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1026 |
| 7338 | 1027 hdf5_callback_data dsub; |
| 1028 | |
| 1029 herr_t retval2 = 0; | |
| 1030 Octave_map m (dim_vector (1, 1)); | |
| 1031 int current_item = 0; | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1032 hsize_t num_obj = 0; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1033 int slen = 0; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1034 hsize_t rank = 0; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1035 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1036 group_hid = H5Gopen (loc_id, name); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1037 if (group_hid < 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1038 goto error_cleanup; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1039 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1040 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1041 data_hid = H5Dopen (group_hid, "classname"); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1042 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1043 if (data_hid < 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1044 goto error_cleanup; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1045 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1046 type_hid = H5Dget_type (data_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1047 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1048 type_class_hid = H5Tget_class (type_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1049 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1050 if (type_class_hid != H5T_STRING) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1051 goto error_cleanup; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1052 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1053 space_hid = H5Dget_space (data_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1054 rank = H5Sget_simple_extent_ndims (space_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1055 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1056 if (rank != 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1057 goto error_cleanup; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1058 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1059 slen = H5Tget_size (type_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1060 if (slen < 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1061 goto error_cleanup; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1062 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1063 // do-while loop here to prevent goto crossing initialization of classname |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1064 do |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1065 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1066 OCTAVE_LOCAL_BUFFER (char, classname, slen); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1067 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1068 // create datatype for (null-terminated) string to read into: |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1069 st_id = H5Tcopy (H5T_C_S1); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1070 H5Tset_size (st_id, slen); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1071 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1072 if (H5Dread (data_hid, st_id, H5S_ALL, H5S_ALL, H5P_DEFAULT, |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1073 classname) < 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1074 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1075 H5Tclose (st_id); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1076 H5Dclose (data_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1077 H5Gclose (group_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1078 return false; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1079 } |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1080 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1081 H5Tclose (st_id); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1082 H5Dclose (data_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1083 data_hid = -1; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1084 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1085 c_name = classname; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1086 } |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1087 while (0); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1088 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1089 |
| 7338 | 1090 #ifdef HAVE_H5GGET_NUM_OBJS |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1091 subgroup_hid = H5Gopen (group_hid, name); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1092 H5Gget_num_objs (subgroup_hid, &num_obj); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1093 H5Gclose (subgroup_hid); |
| 7338 | 1094 |
| 1095 while (current_item < static_cast<int> (num_obj) | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1096 && (retval2 = H5Giterate (group_hid, name, ¤t_item, |
| 7338 | 1097 hdf5_read_next_data, &dsub)) > 0) |
| 1098 #else | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1099 while ((retval2 = H5Giterate (group_hid, name, ¤t_item, |
| 7338 | 1100 hdf5_read_next_data, &dsub)) > 0) |
| 1101 #endif | |
| 1102 { | |
| 1103 octave_value t2 = dsub.tc; | |
| 1104 | |
| 1105 Cell tcell = t2.is_cell () ? t2.cell_value () : Cell (t2); | |
| 1106 | |
| 1107 if (error_state) | |
| 1108 { | |
| 1109 error ("load: internal error loading class elements"); | |
| 1110 return false; | |
| 1111 } | |
| 1112 | |
| 1113 m.assign (dsub.name, tcell); | |
| 1114 | |
| 1115 if (have_h5giterate_bug) | |
| 1116 current_item++; // H5Giterate returned the last index processed | |
| 1117 } | |
| 1118 | |
| 1119 if (retval2 >= 0) | |
| 1120 { | |
| 1121 map = m; | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1122 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1123 if (load_path::find_method (class_name(), "loadobj") != std::string()) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1124 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1125 octave_value in = new octave_class (*this); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1126 octave_value_list tmp = feval ("loadobj", in, 1); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1127 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1128 if (! error_state) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1129 { |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1130 map = tmp(0).map_value (); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1131 retval = true; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1132 } |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1133 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1134 retval = false; |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1135 } |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1136 else |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1137 retval = true; |
| 7338 | 1138 } |
| 1139 | |
|
8212
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1140 error_cleanup: |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1141 if (data_hid > 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1142 H5Dclose (data_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1143 |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1144 if (data_hid > 0) |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1145 H5Gclose (group_hid); |
|
ebf6f6a0f9a7
Allow saving/loading of classes. Add saveobj and loadobj methods
David Bateman <dbateman@free.fr>
parents:
8154
diff
changeset
|
1146 |
| 7338 | 1147 return retval; |
| 1148 } | |
| 1149 | |
| 1150 #endif | |
| 1151 | |
| 1152 mxArray * | |
| 1153 octave_class::as_mxArray (void) const | |
| 1154 { | |
| 1155 gripe_wrong_type_arg ("octave_class::as_mxArray ()", type_name ()); | |
| 1156 | |
| 1157 return 0; | |
| 1158 } | |
| 1159 | |
| 1160 bool | |
| 1161 octave_class::in_class_method (void) const | |
| 1162 { | |
| 1163 octave_function *fcn = octave_call_stack::current (); | |
| 1164 | |
| 1165 return (fcn | |
| 1166 && (fcn->is_class_method () || fcn->is_class_constructor ()) | |
| 1167 && fcn->dispatch_class () == class_name ()); | |
| 1168 } | |
| 1169 | |
| 1170 DEFUN (class, args, , | |
| 1171 "-*- texinfo -*-\n\ | |
| 1172 @deftypefn {Built-in Function} {} class (@var{expr})\n\ | |
| 1173 @deftypefnx {Built-in Function} {} class (@var{s}, @var{id})\n\ | |
| 1174 \n\ | |
| 1175 Return the class of the expression @var{expr}, as a string or\n\ | |
| 1176 create a class object from the structure @var{s} with name @var{id}.\n\ | |
| 1177 @end deftypefn") | |
| 1178 { | |
| 1179 octave_value retval; | |
| 1180 | |
| 1181 int nargin = args.length (); | |
| 1182 | |
| 1183 if (nargin == 1) | |
| 1184 retval = args(0).class_name (); | |
| 1185 else if (nargin == 2) | |
| 1186 { | |
| 1187 Octave_map m = args(0).map_value (); | |
| 1188 | |
| 1189 if (! error_state) | |
| 1190 { | |
| 1191 std::string id = args(1).string_value (); | |
| 1192 | |
| 1193 if (! error_state) | |
| 1194 { | |
| 1195 octave_function *fcn = octave_call_stack::caller (); | |
| 1196 | |
| 1197 if (fcn && fcn->is_class_constructor ()) | |
| 1198 retval = octave_value (new octave_class (m, id)); | |
| 1199 else | |
| 1200 error ("class: invalid call from outside class constructor"); | |
| 1201 } | |
| 1202 else | |
| 1203 error ("class: expecting character string as second argument"); | |
| 1204 } | |
| 1205 else | |
| 1206 error ("class: expecting structure as first argument"); | |
| 1207 } | |
| 1208 else | |
| 1209 print_usage (); | |
| 1210 | |
| 1211 return retval; | |
| 1212 } | |
| 1213 | |
| 1214 | |
| 1215 DEFUN (isobject, args, , | |
| 1216 "-*- texinfo -*-\n\ | |
| 1217 @deftypefn {Built-in Function} {} isobject (@var{x})\n\ | |
| 1218 Return true if @var{x} is a class object.\n\ | |
| 1219 @end deftypefn") | |
| 1220 { | |
| 1221 octave_value retval; | |
| 1222 | |
| 1223 if (args.length () == 1) | |
| 1224 retval = args(0).is_object (); | |
| 1225 else | |
| 1226 print_usage (); | |
| 1227 | |
| 1228 return retval; | |
| 1229 } | |
| 1230 | |
|
8154
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1231 DEFUN (ismethod, args, , |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1232 "-*- texinfo -*-\n\ |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1233 @deftypefn {Built-in Function} {} ismethod (@var{x}, @var{method})\n\ |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1234 Return true if @var{x} is a class object and the string @var{method}\n\ |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1235 is a method of this class.\n\ |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1236 @end deftypefn") |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1237 { |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1238 octave_value retval; |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1239 |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1240 if (args.length () == 2) |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1241 { |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1242 octave_value arg = args(0); |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1243 |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1244 std::string class_name; |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1245 |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1246 if (arg.is_object ()) |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1247 class_name = arg.class_name (); |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1248 else if (arg.is_string ()) |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1249 class_name = arg.string_value (); |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1250 else |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1251 error ("ismethod: expecting object or class name as first argument"); |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1252 |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1253 if (! error_state) |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1254 { |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1255 std::string method = args(1).string_value (); |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1256 |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1257 if (! error_state) |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1258 { |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1259 if (load_path::find_method (class_name, method) != std::string ()) |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1260 retval = true; |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1261 else |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1262 retval = false; |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1263 } |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1264 } |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1265 } |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1266 else |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1267 print_usage (); |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1268 |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1269 return retval; |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1270 } |
|
265a821f6555
Add subsindex and ismethod functions
David Bateman <dbateman@free.fr>
parents:
7972
diff
changeset
|
1271 |
| 7338 | 1272 DEFCMD (methods, args, nargout, |
| 1273 "-*- texinfo -*-\n\ | |
| 1274 @deftypefn {Built-in Function} {} methods (@var{x})\n\ | |
| 1275 @deftypefnx {Built-in Function} {} methods (\"classname\")\n\ | |
| 1276 Return a cell array containing the names of the methods for the\n\ | |
| 1277 object @var{x} or the named class.\n\ | |
| 1278 @end deftypefn") | |
| 1279 { | |
| 1280 octave_value retval; | |
| 1281 | |
| 1282 if (args.length () == 1) | |
| 1283 { | |
| 1284 octave_value arg = args(0); | |
| 1285 | |
| 1286 std::string class_name; | |
| 1287 | |
| 1288 if (arg.is_object ()) | |
| 1289 class_name = arg.class_name (); | |
| 1290 else if (arg.is_string ()) | |
| 1291 class_name = arg.string_value (); | |
| 1292 else | |
| 1293 error ("methods: expecting object or class name as argument"); | |
| 1294 | |
| 1295 if (! error_state) | |
| 1296 { | |
| 1297 string_vector sv = load_path::methods (class_name); | |
| 1298 | |
| 1299 if (nargout == 0) | |
| 1300 { | |
| 1301 octave_stdout << "Methods for class " << class_name << ":\n\n"; | |
| 1302 | |
| 1303 sv.list_in_columns (octave_stdout); | |
| 1304 | |
| 1305 octave_stdout << std::endl; | |
| 1306 } | |
| 1307 else | |
| 1308 retval = sv; | |
| 1309 } | |
| 1310 } | |
| 1311 else | |
| 1312 print_usage (); | |
| 1313 | |
| 1314 return retval; | |
| 1315 } | |
| 1316 | |
| 1317 static bool | |
| 1318 is_built_in_class (const std::string& cn) | |
| 1319 { | |
| 1320 static std::set<std::string> built_in_class_names; | |
| 1321 | |
| 1322 if (built_in_class_names.empty ()) | |
| 1323 { | |
| 1324 built_in_class_names.insert ("double"); | |
| 1325 built_in_class_names.insert ("single"); | |
| 1326 built_in_class_names.insert ("cell"); | |
| 1327 built_in_class_names.insert ("struct"); | |
| 1328 built_in_class_names.insert ("logical"); | |
| 1329 built_in_class_names.insert ("char"); | |
| 1330 built_in_class_names.insert ("function handle"); | |
| 1331 built_in_class_names.insert ("int8"); | |
| 1332 built_in_class_names.insert ("uint8"); | |
| 1333 built_in_class_names.insert ("int16"); | |
| 1334 built_in_class_names.insert ("uint16"); | |
| 1335 built_in_class_names.insert ("int32"); | |
| 1336 built_in_class_names.insert ("uint32"); | |
| 1337 built_in_class_names.insert ("int64"); | |
| 1338 built_in_class_names.insert ("uint64"); | |
| 1339 } | |
| 1340 | |
| 1341 return built_in_class_names.find (cn) != built_in_class_names.end (); | |
| 1342 } | |
| 1343 | |
| 1344 DEFUN (superiorto, args, , | |
| 1345 "-*- texinfo -*-\n\ | |
|
8219
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1346 @deftypefn {Built-in Function} {} superiorto (@var{class_name}, @dots{})\n\ |
| 7338 | 1347 When called from a class constructor, mark the object currently\n\ |
| 1348 constructed as having a higher precedence than @var{class_name}.\n\ | |
|
8219
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1349 More that one such class can be specified in a single call.\n\ |
| 7338 | 1350 This function may only be called from a class constructor.\n\ |
| 1351 @end deftypefn") | |
| 1352 { | |
| 1353 octave_value retval; | |
| 1354 | |
| 1355 octave_function *fcn = octave_call_stack::caller (); | |
| 1356 | |
| 1357 if (fcn && fcn->is_class_constructor ()) | |
| 1358 { | |
|
8219
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1359 for (int i = 0; i < args.length(); i++) |
| 7338 | 1360 { |
|
8219
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1361 std::string class_name = args(i).string_value (); |
| 7338 | 1362 |
| 1363 if (! error_state) | |
| 1364 { | |
| 1365 if (! is_built_in_class (class_name)) | |
| 1366 { | |
| 1367 std::string this_class_name = fcn->name (); | |
| 1368 | |
|
7972
5bf4e2c13ed8
make superiorto and inferiorto work
John W. Eaton <jwe@octave.org>
parents:
7960
diff
changeset
|
1369 if (! symbol_table::set_class_relationship (this_class_name, |
|
5bf4e2c13ed8
make superiorto and inferiorto work
John W. Eaton <jwe@octave.org>
parents:
7960
diff
changeset
|
1370 class_name)) |
|
8219
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1371 { |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1372 error ("superiorto: precedence already set for %s and %s", |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1373 this_class_name.c_str (), class_name.c_str ()); |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1374 break; |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1375 } |
| 7338 | 1376 } |
| 1377 else | |
| 1378 { | |
| 1379 // User defined classes always have higher precedence | |
| 1380 // than built-in classes. | |
| 1381 } | |
| 1382 } | |
| 1383 else | |
|
8219
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1384 { |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1385 error ("superiorto: expecting argument to be class name"); |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1386 break; |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1387 } |
| 7338 | 1388 } |
| 1389 } | |
| 1390 else | |
| 1391 error ("superiorto: invalid call from outside class constructor"); | |
| 1392 | |
| 1393 return retval; | |
| 1394 } | |
| 1395 | |
| 1396 DEFUN (inferiorto, args, , | |
| 1397 "-*- texinfo -*-\n\ | |
|
8219
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1398 @deftypefn {Built-in Function} {} inferiorto (@var{class_name}, @dots{})\n\ |
| 7338 | 1399 When called from a class constructor, mark the object currently\n\ |
| 1400 constructed as having a lower precedence than @var{class_name}.\n\ | |
|
8219
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1401 More that one such class can be specified in a single call.\n\ |
| 7338 | 1402 This function may only be called from a class constructor.\n\ |
| 1403 @end deftypefn") | |
| 1404 { | |
| 1405 octave_value retval; | |
| 1406 | |
| 1407 octave_function *fcn = octave_call_stack::caller (); | |
| 1408 | |
| 1409 if (fcn && fcn->is_class_constructor ()) | |
| 1410 { | |
|
8219
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1411 for (int i = 0; i < args.length(); i++) |
| 7338 | 1412 { |
|
8219
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1413 std::string class_name = args(i).string_value (); |
| 7338 | 1414 |
| 1415 if (! error_state) | |
| 1416 { | |
| 1417 if (! is_built_in_class (class_name)) | |
| 1418 { | |
| 1419 std::string this_class_name = fcn->name (); | |
| 1420 | |
|
7972
5bf4e2c13ed8
make superiorto and inferiorto work
John W. Eaton <jwe@octave.org>
parents:
7960
diff
changeset
|
1421 symbol_table::set_class_relationship (class_name, |
|
5bf4e2c13ed8
make superiorto and inferiorto work
John W. Eaton <jwe@octave.org>
parents:
7960
diff
changeset
|
1422 this_class_name); |
|
5bf4e2c13ed8
make superiorto and inferiorto work
John W. Eaton <jwe@octave.org>
parents:
7960
diff
changeset
|
1423 |
|
5bf4e2c13ed8
make superiorto and inferiorto work
John W. Eaton <jwe@octave.org>
parents:
7960
diff
changeset
|
1424 if (! symbol_table::set_class_relationship (this_class_name, |
|
5bf4e2c13ed8
make superiorto and inferiorto work
John W. Eaton <jwe@octave.org>
parents:
7960
diff
changeset
|
1425 class_name)) |
|
8219
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1426 { |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1427 error ("inferiorto: precedence already set for %s and %s", |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1428 this_class_name.c_str (), class_name.c_str ()); |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1429 break; |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1430 } |
| 7338 | 1431 } |
| 1432 else | |
|
8219
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1433 { |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1434 error ("inferiorto: cannot give user-defined class lower precedence than built-in class"); |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1435 break; |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1436 } |
| 7338 | 1437 } |
| 1438 else | |
|
8219
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1439 { |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1440 error ("inferiorto: expecting argument to be class name"); |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1441 break; |
|
f8a885ccd5b4
allow multiple args for inferiorto and superiorto
David Bateman <dbateman@free.fr>
parents:
8212
diff
changeset
|
1442 } |
| 7338 | 1443 } |
| 1444 } | |
| 1445 else | |
| 1446 error ("inferiorto: invalid call from outside class constructor"); | |
| 1447 | |
| 1448 return retval; | |
| 1449 } | |
| 1450 | |
| 1451 /* | |
| 1452 ;;; Local Variables: *** | |
| 1453 ;;; mode: C++ *** | |
| 1454 ;;; End: *** | |
| 1455 */ |