synfig-core/trunk/src/synfig/loadcanvas.cpp

   1 /* === S Y N F I G ========================================================= */
   2 /*!     \file loadcanvas.cpp
   3 **      \brief writeme
   4 **
   5 **      $Id$
   6 **
   7 **      \legal
   8 **      Copyright (c) 2002-2005 Robert B. Quattlebaum Jr., Adrian Bentley
   9 **
  10 **      This package is free software; you can redistribute it and/or
  11 **      modify it under the terms of the GNU General Public License as
  12 **      published by the Free Software Foundation; either version 2 of
  13 **      the License, or (at your option) any later version.
  14 **
  15 **      This package is distributed in the hope that it will be useful,
  16 **      but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 **      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  18 **      General Public License for more details.
  19 **      \endlegal
  20 */
  21 /* ========================================================================= */
  22
  23 /* === H E A D E R S ======================================================= */
  24
  25 #ifdef USING_PCH
  26 #       include "pch.h"
  27 #else
  28 #ifdef HAVE_CONFIG_H
  29 #       include <config.h>
  30 #endif
  31
  32 #include <cstdlib>
  33 #include <cstdio>
  34 #include <cstring>
  35 #include <ETL/stringf>
  36 #include <libxml++/libxml++.h>
  37 #include <vector>
  38 #include <stdexcept>
  39 #include <iostream>
  40
  41 #include "loadcanvas.h"
  42 #include "valuenode.h"
  43 #include "valuenode_subtract.h"
  44 #include "valuenode_animated.h"
  45 #include "valuenode_composite.h"
  46 #include "valuenode_const.h"
  47 #include "valuenode_linear.h"
  48 #include "valuenode_dynamiclist.h"
  49 #include "valuenode_reference.h"
  50 #include "valuenode_scale.h"
  51 #include "valuenode_timedswap.h"
  52 #include "valuenode_twotone.h"
  53 #include "valuenode_stripes.h"
  54 #include "valuenode_segcalctangent.h"
  55 #include "valuenode_segcalcvertex.h"
  56 #include "valuenode_bline.h"
  57
  58 #include "layer.h"
  59 #include "string.h"
  60
  61 #include "exception.h"
  62
  63 #include "gradient.h"
  64
  65 #include <map>
  66 #include <sigc++/bind.h>
  67
  68 #endif
  69
  70 /* === U S I N G =========================================================== */
  71
  72 using namespace std;
  73 using namespace synfig;
  74 using namespace etl;
  75
  76 /*
  77 class test_class {
  78 static int bleh;
  79 public:
  80         test_class() { assert(!bleh); bleh++; synfig::info("test_class: initi: %d",bleh); }
  81         ~test_class() { assert(bleh); synfig::info("test_class: uninit: %d",bleh); bleh--; }
  82 };
  83 int test_class::bleh(0);
  84
  85 test_class test_class_instance;
  86 */
  87
  88 /* === M A C R O S ========================================================= */
  89
  90 inline bool is_whitespace(char x) { return ((x)=='\n' || (x)=='\t' || (x)==' '); }
  91
  92 /* === P R O C E D U R E S ================================================= */
  93
  94 static std::map<String, Canvas::LooseHandle>* open_canvas_map_(0);
  95
  96 std::map<synfig::String, etl::loose_handle<Canvas> >& synfig::get_open_canvas_map()
  97 {
  98         if(!open_canvas_map_)
  99                 open_canvas_map_=new std::map<String, Canvas::LooseHandle>;
 100         return *open_canvas_map_;
 101 }
 102
 103 static void _remove_from_open_canvas_map(Canvas *x) { get_open_canvas_map().erase(etl::absolute_path(x->get_file_name())); }
 104
 105 static void _canvas_file_name_changed(Canvas *x)
 106 {
 107         std::map<synfig::String, etl::loose_handle<Canvas> >::iterator iter;
 108
 109         for(iter=get_open_canvas_map().begin();iter!=get_open_canvas_map().end();++iter)
 110                 if(iter->second==x)
 111                         break;
 112         assert(iter!=get_open_canvas_map().end());
 113         if(iter==get_open_canvas_map().end())
 114                 return;
 115         get_open_canvas_map().erase(iter->first);
 116         get_open_canvas_map()[etl::absolute_path(x->get_file_name())]=x;
 117
 118 }
 119
 120 Canvas::Handle
 121 synfig::open_canvas(const String &filename)
 122 {
 123         CanvasParser parser;
 124
 125         parser.set_allow_errors(true);
 126
 127         Canvas::Handle canvas=parser.parse_from_file(filename);
 128
 129         if(parser.error_count())
 130                 return Canvas::Handle();
 131
 132         return canvas;
 133 }
 134
 135 Canvas::Handle
 136 synfig::open_canvas_as(const String &filename,const String &as)
 137 {
 138         CanvasParser parser;
 139
 140         parser.set_allow_errors(true);
 141
 142         Canvas::Handle canvas=parser.parse_from_file_as(filename,as);
 143
 144         if(parser.error_count())
 145                 return Canvas::Handle();
 146
 147         return canvas;
 148 }
 149
 150 Canvas::Handle
 151 synfig::string_to_canvas(const String &data)
 152 {
 153         CanvasParser parser;
 154
 155         parser.set_allow_errors(true);
 156
 157         Canvas::Handle canvas=parser.parse_from_string(data);
 158
 159         if(parser.error_count())
 160                 return Canvas::Handle();
 161
 162         return canvas;
 163 }
 164
 165 /* === M E T H O D S ======================================================= */
 166
 167 void
 168 CanvasParser::error_unexpected_element(xmlpp::Node *element,const String &got, const String &expected)
 169 {
 170         error(element,strprintf(_("Unexpected element <%s>, Expected <%s>"),got.c_str(),expected.c_str()));
 171 }
 172
 173 void
 174 CanvasParser::error_unexpected_element(xmlpp::Node *element,const String &got)
 175 {
 176         error(element,strprintf(_("Unexpected element <%s>"),got.c_str()));
 177 }
 178
 179 void
 180 CanvasParser::warning(xmlpp::Node *element, const String &text)
 181 {
 182         string str=strprintf("%s:<%s>:%d: warning: ",filename.c_str(),element->get_name().c_str(),element->get_line())+text;
 183         //synfig::warning(str);
 184         cerr<<str<<endl;
 185         total_warnings_++;
 186         if(total_warnings_>=max_warnings_)
 187                 fatal_error(element, _("Too many warnings"));
 188 }
 189
 190 void
 191 CanvasParser::error(xmlpp::Node *element, const String &text)
 192 {
 193         string str=strprintf("%s:<%s>:%d: error: ",filename.c_str(),element->get_name().c_str(),element->get_line())+text;
 194         total_errors_++;
 195         if(!allow_errors_)
 196                 throw runtime_error(str);
 197         cerr<<str<<endl;
 198         //      synfig::error(str);
 199 }
 200
 201 void
 202 CanvasParser::fatal_error(xmlpp::Node *element, const String &text)
 203 {
 204         string str=strprintf("%s:<%s>:%d:",filename.c_str(),element->get_name().c_str(),element->get_line())+text;
 205         throw runtime_error(str);
 206 }
 207
 208
 209
 210 Keyframe
 211 CanvasParser::parse_keyframe(xmlpp::Element *element,Canvas::Handle canvas)
 212 {
 213         assert(element->get_name()=="keyframe");
 214
 215         if(!element->get_attribute("time"))
 216         {
 217                 error(element,strprintf(_("<%s> is missing \"%s\" attribute"),"real","time"));
 218                 return Keyframe();
 219         }
 220
 221         Keyframe ret(Time(element->get_attribute("time")->get_value(),canvas->rend_desc().get_frame_rate()));
 222
 223
 224         if(element->get_children().empty())
 225                 return ret;
 226
 227         if(element->get_child_text()->get_content().empty())
 228                 return ret;
 229
 230         ret.set_description(element->get_child_text()->get_content());
 231
 232         return ret;
 233 }
 234
 235
 236 Real
 237 CanvasParser::parse_real(xmlpp::Element *element)
 238 {
 239         assert(element->get_name()=="real");
 240
 241         if(!element->get_children().empty())
 242                 warning(element, strprintf(_("<%s> should not contain anything"),"real"));
 243
 244         if(!element->get_attribute("value"))
 245         {
 246                 error(element,strprintf(_("<%s> is missing \"value\" attribute"),"real"));
 247                 return false;
 248         }
 249
 250         string val=element->get_attribute("value")->get_value();
 251
 252         return atof(val.c_str());
 253 }
 254
 255 Time
 256 CanvasParser::parse_time(xmlpp::Element *element,Canvas::Handle canvas)
 257 {
 258         assert(element->get_name()=="time");
 259
 260         if(!element->get_children().empty())
 261                 warning(element, strprintf(_("<%s> should not contain anything"),"time"));
 262
 263         if(!element->get_attribute("value"))
 264         {
 265                 error(element,strprintf(_("<%s> is missing \"value\" attribute"),"time"));
 266                 return false;
 267         }
 268
 269         string val=element->get_attribute("value")->get_value();
 270
 271         return Time(val,canvas->rend_desc().get_frame_rate());
 272 }
 273
 274 int
 275 CanvasParser::parse_integer(xmlpp::Element *element)
 276 {
 277         assert(element->get_name()=="integer");
 278
 279         if(!element->get_children().empty())
 280                 warning(element, strprintf(_("<%s> should not contain anything"),"integer"));
 281
 282         if(!element->get_attribute("value"))
 283         {
 284                 error(element,strprintf(_("<%s> is missing \"value\" attribute"),"integer"));
 285                 return false;
 286         }
 287
 288         string val=element->get_attribute("value")->get_value();
 289
 290         return atoi(val.c_str());
 291 }
 292
 293 // see 'minor hack' at the end of parse_vector() below
 294 // making this 'static' to give it file local scope
 295 // stops it working (where working means working around
 296 // bug #1509627)
 297 Vector &canvas_parser_vector_id(Vector &vector)
 298 {
 299         return vector;
 300 }
 301
 302 Vector
 303 CanvasParser::parse_vector(xmlpp::Element *element)
 304 {
 305         assert(element->get_name()=="vector");
 306
 307         if(element->get_children().empty())
 308         {
 309                 error(element, "Undefined value in <vector>");
 310                 return Vector();
 311         }
 312
 313         Vector vect;
 314
 315         xmlpp::Element::NodeList list = element->get_children();
 316         for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
 317         {
 318                 xmlpp::Element *child=dynamic_cast<xmlpp::Element*>((xmlpp::Node*)*iter);
 319                 if(!child)
 320                         continue;
 321                 else
 322                 if(child->get_name()=="x")
 323                 {
 324                         if(child->get_children().empty())
 325                         {
 326                                 error(element, "Undefined value in <x>");
 327                                 return Vector();
 328                         }
 329                         vect[0]=atof(child->get_child_text()->get_content().c_str());
 330                 }
 331                 else
 332                 if(child->get_name()=="y")
 333                 {
 334                         if(child->get_children().empty())
 335                         {
 336                                 error(element, "Undefined value in <y>");
 337                                 return Vector();
 338                         }
 339                         vect[1]=atof(child->get_child_text()->get_content().c_str());
 340                 }
 341                 else
 342                         error_unexpected_element(child,child->get_name());
 343         }
 344         // Minor hack - gcc 4.1.2 and earlier think that we're not using
 345         // 'vect' and optimize it out at -O2 and higher.  This convinces
 346         // them that we are really using it.
 347         return canvas_parser_vector_id(vect);
 348         // When the bug is fixed, we can just do this instead:
 349         // return vect;
 350 }
 351
 352 Color
 353 CanvasParser::parse_color(xmlpp::Element *element)
 354 {
 355         assert(element->get_name()=="color");
 356
 357         if(element->get_children().empty())
 358         {
 359                 error(element, "Undefined value in <color>");
 360                 return Color();
 361         }
 362
 363         Color color(0);
 364
 365         xmlpp::Element::NodeList list = element->get_children();
 366         for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
 367         {
 368                 xmlpp::Element *child(dynamic_cast<xmlpp::Element*>(*iter));
 369                 if(!child)
 370                         continue;
 371                 else
 372                 if(child->get_name()=="r")
 373                 {
 374                         if(child->get_children().empty())
 375                         {
 376                                 error(element, "Undefined value in <r>");
 377                                 return Color();
 378                         }
 379                         color.set_r(atof(child->get_child_text()->get_content().c_str()));
 380                 }
 381                 else
 382                 if(child->get_name()=="g")
 383                 {
 384                         if(child->get_children().empty())
 385                         {
 386                                 error(element, "Undefined value in <g>");
 387                                 return Color();
 388                         }
 389                         color.set_g(atof(child->get_child_text()->get_content().c_str()));
 390                 }
 391                 else
 392                 if(child->get_name()=="b")
 393                 {
 394                         if(child->get_children().empty())
 395                         {
 396                                 error(element, "Undefined value in <b>");
 397                                 return Color();
 398                         }
 399                         color.set_b(atof(child->get_child_text()->get_content().c_str()));
 400                 }
 401                 else
 402                 if(child->get_name()=="a")
 403                 {
 404                         if(child->get_children().empty())
 405                         {
 406                                 error(element, "Undefined value in <a>");
 407                                 return Color();
 408                         }
 409                         color.set_a(atof(child->get_child_text()->get_content().c_str()));
 410                 }
 411                 else
 412                         error_unexpected_element(child,child->get_name());
 413         }
 414
 415         return color;
 416 }
 417
 418 synfig::String
 419 CanvasParser::parse_string(xmlpp::Element *element)
 420 {
 421         assert(element->get_name()=="string");
 422
 423         if(element->get_children().empty())
 424         {
 425                 warning(element, "Undefined value in <string>");
 426                 return synfig::String();
 427         }
 428
 429         if(element->get_child_text()->get_content().empty())
 430         {
 431                 warning(element, "Content element of <string> appears to be empty");
 432                 return synfig::String();
 433         }
 434
 435         return element->get_child_text()->get_content();
 436 }
 437
 438 bool
 439 CanvasParser::parse_bool(xmlpp::Element *element)
 440 {
 441         assert(element->get_name()=="bool");
 442
 443         if(!element->get_children().empty())
 444                 warning(element, strprintf(_("<%s> should not contain anything"),"bool"));
 445
 446         if(!element->get_attribute("value"))
 447         {
 448                 error(element,strprintf(_("<%s> is missing \"value\" attribute"),"bool"));
 449                 return false;
 450         }
 451
 452         string val=element->get_attribute("value")->get_value();
 453
 454         if(val=="true" || val=="1")
 455                 return true;
 456         if(val=="false" || val=="0")
 457                 return false;
 458
 459         error(element,strprintf(_("Bad value \"%s\" in <%s>"),val.c_str(),"bool"));
 460
 461         return false;
 462 }
 463
 464 Gradient
 465 CanvasParser::parse_gradient(xmlpp::Element *node)
 466 {
 467         assert(node->get_name()=="gradient");
 468         Gradient ret;
 469
 470         xmlpp::Element::NodeList list = node->get_children();
 471         for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
 472         {
 473                 xmlpp::Element *child(dynamic_cast<xmlpp::Element*>(*iter));
 474                 if(!child)
 475                         continue;
 476                 else
 477                 {
 478                         Gradient::CPoint cpoint;
 479                         cpoint.color=parse_color(child);
 480
 481                         if(!child->get_attribute("pos"))
 482                         {
 483                                 error(child,strprintf(_("<%s> is missing \"pos\" attribute"),"gradient"));
 484                                 return Gradient();
 485                         }
 486
 487                         cpoint.pos=atof(child->get_attribute("pos")->get_value().c_str());
 488
 489                         ret.push_back(cpoint);
 490                 }
 491         }
 492         ret.sort();
 493         return ret;
 494 }
 495
 496 ValueBase
 497 CanvasParser::parse_list(xmlpp::Element *element,Canvas::Handle canvas)
 498 {
 499         vector<ValueBase> value_list;
 500
 501         xmlpp::Element::NodeList list = element->get_children();
 502         for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
 503         {
 504                 xmlpp::Element *child(dynamic_cast<xmlpp::Element*>(*iter));
 505                 if(!child)
 506                         continue;
 507                 else
 508                 {
 509                         value_list.push_back(parse_value(child,canvas));
 510                         if(!value_list.back().is_valid())
 511                         {
 512                                 value_list.pop_back();
 513                                 error(child,"Bad ValueBase");
 514                                 continue;
 515                         }
 516                 }
 517         }
 518         return value_list;
 519 }
 520
 521 Segment
 522 CanvasParser::parse_segment(xmlpp::Element *element)
 523 {
 524         assert(element->get_name()=="segment");
 525
 526         if(element->get_children().empty())
 527         {
 528                 error(element, "Undefined value in <segment>");
 529                 return Segment();
 530         }
 531
 532         Segment seg;
 533
 534         xmlpp::Element::NodeList list = element->get_children();
 535         for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
 536         {
 537                 xmlpp::Element *child(dynamic_cast<xmlpp::Element*>(*iter));
 538                 if(!child)
 539                         continue;
 540                 else
 541                 if(child->get_name()=="p1")
 542                 {
 543                         xmlpp::Element::NodeList list = child->get_children();
 544                         xmlpp::Element::NodeList::iterator iter;
 545
 546                         // Search for the first non-text XML element
 547                         for(iter = list.begin(); iter != list.end(); ++iter)
 548                                 if(dynamic_cast<xmlpp::Element*>(*iter)) break;
 549
 550                         if(iter==list.end())
 551                         {
 552                                 error(element, "Undefined value in <p1>");
 553                                 continue;
 554                         }
 555
 556                         if((*iter)->get_name()!="vector")
 557                         {
 558                                 error_unexpected_element((*iter),(*iter)->get_name(),"vector");
 559                                 continue;
 560                         }
 561
 562                         seg.p1=parse_vector(dynamic_cast<xmlpp::Element*>(*iter));
 563                 }
 564                 else
 565                 if(child->get_name()=="t1")
 566                 {
 567                         xmlpp::Element::NodeList list = child->get_children();
 568                         xmlpp::Element::NodeList::iterator iter;
 569
 570                         // Search for the first non-text XML element
 571                         for(iter = list.begin(); iter != list.end(); ++iter)
 572                                 if(dynamic_cast<xmlpp::Element*>(*iter)) break;
 573
 574                         if(iter==list.end())
 575                         {
 576                                 error(element, "Undefined value in <t1>");
 577                                 continue;
 578                         }
 579
 580                         if((*iter)->get_name()!="vector")
 581                         {
 582                                 error_unexpected_element((*iter),(*iter)->get_name(),"vector");
 583                                 continue;
 584                         }
 585
 586                         seg.t1=parse_vector(dynamic_cast<xmlpp::Element*>(*iter));
 587                 }
 588                 else
 589                 if(child->get_name()=="p2")
 590                 {
 591                         xmlpp::Element::NodeList list = child->get_children();
 592                         xmlpp::Element::NodeList::iterator iter;
 593
 594                         // Search for the first non-text XML element
 595                         for(iter = list.begin(); iter != list.end(); ++iter)
 596                                 if(dynamic_cast<xmlpp::Element*>(*iter)) break;
 597
 598                         if(iter==list.end())
 599                         {
 600                                 error(element, "Undefined value in <p2>");
 601                                 continue;
 602                         }
 603
 604                         if((*iter)->get_name()!="vector")
 605                         {
 606                                 error_unexpected_element((*iter),(*iter)->get_name(),"vector");
 607                                 continue;
 608                         }
 609
 610                         seg.p2=parse_vector(dynamic_cast<xmlpp::Element*>(*iter));
 611                 }
 612                 else
 613                 if(child->get_name()=="t2")
 614                 {
 615                         xmlpp::Element::NodeList list = child->get_children();
 616                         xmlpp::Element::NodeList::iterator iter;
 617
 618                         // Search for the first non-text XML element
 619                         for(iter = list.begin(); iter != list.end(); ++iter)
 620                                 if(dynamic_cast<xmlpp::Element*>(*iter)) break;
 621
 622                         if(iter==list.end())
 623                         {
 624                                 error(element, "Undefined value in <t2>");
 625                                 continue;
 626                         }
 627
 628                         if((*iter)->get_name()!="vector")
 629                         {
 630                                 error_unexpected_element((*iter),(*iter)->get_name(),"vector");
 631                                 continue;
 632                         }
 633
 634                         seg.t2=parse_vector(dynamic_cast<xmlpp::Element*>(*iter));
 635                 }
 636                 else
 637                         error_unexpected_element(child,child->get_name());
 638         }
 639         return seg;
 640 }
 641
 642 BLinePoint
 643 CanvasParser::parse_bline_point(xmlpp::Element *element)
 644 {
 645         assert(element->get_name()=="bline_point");
 646         if(element->get_children().empty())
 647         {
 648                 error(element, "Undefined value in <bline_point>");
 649                 return BLinePoint();
 650         }
 651
 652         BLinePoint ret;
 653         ret.set_split_tangent_flag(false);
 654
 655         xmlpp::Element::NodeList list = element->get_children();
 656         for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
 657         {
 658                 xmlpp::Element *child(dynamic_cast<xmlpp::Element*>(*iter));
 659                 if(!child)
 660                         continue;
 661                 else
 662                 // Vertex
 663                 if(child->get_name()[0]=='v' || child->get_name()=="p1")
 664                 {
 665                         xmlpp::Element::NodeList list = child->get_children();
 666                         xmlpp::Element::NodeList::iterator iter;
 667
 668                         // Search for the first non-text XML element
 669                         for(iter = list.begin(); iter != list.end(); ++iter)
 670                                 if(dynamic_cast<xmlpp::Element*>(*iter)) break;
 671
 672                         if(iter==list.end())
 673                         {
 674                                 error(element, "Undefined value in <vertex>");
 675                                 continue;
 676                         }
 677
 678                         if((*iter)->get_name()!="vector")
 679                         {
 680                                 error_unexpected_element((*iter),(*iter)->get_name(),"vector");
 681                                 continue;
 682                         }
 683
 684                         ret.set_vertex(parse_vector(dynamic_cast<xmlpp::Element*>(*iter)));
 685                 }
 686                 else
 687                 // Tangent 1
 688                 if(child->get_name()=="t1" || child->get_name()=="tangent")
 689                 {
 690                         xmlpp::Element::NodeList list = child->get_children();
 691                         xmlpp::Element::NodeList::iterator iter;
 692
 693                         // Search for the first non-text XML element
 694                         for(iter = list.begin(); iter != list.end(); ++iter)
 695                                 if(dynamic_cast<xmlpp::Element*>(*iter)) break;
 696
 697                         if(iter==list.end())
 698                         {
 699                                 error(element, "Undefined value in <t1>");
 700                                 continue;
 701                         }
 702
 703                         if((*iter)->get_name()!="vector")
 704                         {
 705                                 error_unexpected_element((*iter),(*iter)->get_name(),"vector");
 706                                 continue;
 707                         }
 708
 709                         ret.set_tangent1(parse_vector(dynamic_cast<xmlpp::Element*>(*iter)));
 710                 }
 711                 else
 712                 // Tangent 2
 713                 if(child->get_name()=="t2")
 714                 {
 715                         xmlpp::Element::NodeList list = child->get_children();
 716                         xmlpp::Element::NodeList::iterator iter;
 717
 718                         // Search for the first non-text XML element
 719                         for(iter = list.begin(); iter != list.end(); ++iter)
 720                                 if(dynamic_cast<xmlpp::Element*>(*iter)) break;
 721
 722                         if(iter==list.end())
 723                         {
 724                                 error(element, "Undefined value in <t2>");
 725                                 continue;
 726                         }
 727
 728                         if((*iter)->get_name()!="vector")
 729                         {
 730                                 error_unexpected_element((*iter),(*iter)->get_name(),"vector");
 731                                 continue;
 732                         }
 733
 734                         ret.set_tangent2(parse_vector(dynamic_cast<xmlpp::Element*>(*iter)));
 735                         ret.set_split_tangent_flag(true);
 736                 }
 737                 else
 738                 // width
 739                 if(child->get_name()=="width")
 740                 {
 741                         xmlpp::Element::NodeList list = child->get_children();
 742                         xmlpp::Element::NodeList::iterator iter;
 743
 744                         // Search for the first non-text XML element
 745                         for(iter = list.begin(); iter != list.end(); ++iter)
 746                                 if(dynamic_cast<xmlpp::Element*>(*iter)) break;
 747
 748                         if(iter==list.end())
 749                         {
 750                                 error(element, "Undefined value in <width>");
 751                                 continue;
 752                         }
 753
 754                         if((*iter)->get_name()!="real")
 755                         {
 756                                 error_unexpected_element((*iter),(*iter)->get_name(),"real");
 757                                 continue;
 758                         }
 759
 760                         ret.set_width(parse_real(dynamic_cast<xmlpp::Element*>(*iter)));
 761                 }
 762                 else
 763                 // origin
 764                 if(child->get_name()=="origin")
 765                 {
 766                         xmlpp::Element::NodeList list = child->get_children();
 767                         xmlpp::Element::NodeList::iterator iter;
 768
 769                         // Search for the first non-text XML element
 770                         for(iter = list.begin(); iter != list.end(); ++iter)
 771                                 if(dynamic_cast<xmlpp::Element*>(*iter)) break;
 772
 773                         if(iter==list.end())
 774                         {
 775                                 error(element, "Undefined value in <origin>");
 776                                 continue;
 777                         }
 778
 779                         if((*iter)->get_name()!="real")
 780                         {
 781                                 error_unexpected_element((*iter),(*iter)->get_name(),"real");
 782                                 continue;
 783                         }
 784
 785                         ret.set_origin(parse_real(dynamic_cast<xmlpp::Element*>(*iter)));
 786                 }
 787                 else
 788                         error_unexpected_element(child,child->get_name());
 789         }
 790         return ret;
 791 }
 792
 793 Angle
 794 CanvasParser::parse_angle(xmlpp::Element *element)
 795 {
 796         assert(element->get_name()=="angle");
 797
 798         if(!element->get_children().empty())
 799                 warning(element, strprintf(_("<%s> should not contain anything"),"angle"));
 800
 801         if(!element->get_attribute("value"))
 802         {
 803                 error(element,strprintf(_("<%s> is missing \"value\" attribute"),"angle"));
 804                 return Angle();
 805         }
 806
 807         string val=element->get_attribute("value")->get_value();
 808
 809         return Angle::deg(atof(val.c_str()));
 810 }
 811
 812 ValueBase
 813 CanvasParser::parse_value(xmlpp::Element *element,Canvas::Handle canvas)
 814 {
 815         if(element->get_name()=="real")
 816                 return parse_real(element);
 817         else
 818         if(element->get_name()=="time")
 819                 return parse_time(element,canvas);
 820         else
 821         if(element->get_name()=="integer")
 822                 return parse_integer(element);
 823         else
 824         if(element->get_name()=="string")
 825                 return parse_string(element);
 826         else
 827         if(element->get_name()=="vector")
 828                 return parse_vector(element);
 829         else
 830         if(element->get_name()=="color")
 831                 return parse_color(element);
 832         else
 833         if(element->get_name()=="segment")
 834                 return parse_segment(element);
 835         else
 836         if(element->get_name()=="list")
 837                 return parse_list(element,canvas);
 838         else
 839         if(element->get_name()=="gradient")
 840                 return parse_gradient(element);
 841         else
 842         if(element->get_name()=="bool")
 843                 return parse_bool(element);
 844         else
 845         //if(element->get_name()=="canvas")
 846         //      return parse_canvas(element,canvas,true);       // inline canvas
 847         //else
 848         if(element->get_name()=="angle" || element->get_name()=="degrees" || element->get_name()=="radians" || element->get_name()=="rotations")
 849                 return parse_angle(element);
 850         else
 851         if(element->get_name()=="bline_point")
 852                 return parse_bline_point(element);
 853         else
 854         if(element->get_name()=="canvas")
 855                 return ValueBase(parse_canvas(element,canvas,true));
 856         else
 857         {
 858                 DEBUGPOINT();
 859                 error_unexpected_element(element,element->get_name());
 860         }
 861
 862         return ValueBase();
 863 }
 864
 865
 866
 867
 868 ValueNode_Animated::Handle
 869 CanvasParser::parse_animated(xmlpp::Element *element,Canvas::Handle canvas)
 870 {
 871         assert(element->get_name()=="hermite" || element->get_name()=="animated");
 872
 873         if(!element->get_attribute("type"))
 874         {
 875                 error(element,"Missing attribute \"type\" in <animated>");
 876                 return ValueNode_Animated::Handle();
 877         }
 878
 879         ValueBase::Type type=ValueBase::ident_type(element->get_attribute("type")->get_value());
 880
 881         if(!type)
 882         {
 883                 error(element,"Bad type in <animated>");
 884                 return ValueNode_Animated::Handle();
 885         }
 886
 887         ValueNode_Animated::Handle value_node=ValueNode_Animated::create(type);
 888
 889         if(!value_node)
 890         {
 891                 error(element,strprintf(_("Unable to create <animated> with type \"%s\""),ValueBase::type_name(type).c_str()));
 892                 return ValueNode_Animated::Handle();
 893         }
 894
 895         value_node->set_root_canvas(canvas->get_root());
 896
 897         xmlpp::Element::NodeList list = element->get_children();
 898         for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
 899         {
 900                 xmlpp::Element *child(dynamic_cast<xmlpp::Element*>(*iter));
 901                 if(!child)
 902                         continue;
 903                 else
 904                 if(child->get_name()=="waypoint")
 905                 {
 906                         if(!child->get_attribute("time"))
 907                         {
 908                                 error(child,_("<waypoint> is missing attribute \"time\""));
 909                                 continue;
 910                         }
 911
 912                         Time time(child->get_attribute("time")->get_value(),canvas->rend_desc().get_frame_rate());
 913
 914
 915                         ValueNode::Handle waypoint_value_node;
 916                         xmlpp::Element::NodeList list = child->get_children();
 917
 918                         if(child->get_attribute("use"))
 919                         {
 920                                 if(!list.empty())
 921                                         warning(child,_("Found \"use\" attribute for <waypoint>, but it wasn't empty. Ignoring contents..."));
 922
 923                                 // the waypoint might look like this, in which case we won't find "mycanvas" in the list of valuenodes, 'cos it's a canvas
 924                                 //
 925                                 //      <animated type="canvas">
 926                                 //        <waypoint time="0s" use="mycanvas"/>
 927                                 //      </animated>
 928                                 if (type==ValueBase::TYPE_CANVAS)
 929                                         waypoint_value_node=ValueNode_Const::create(canvas->surefind_canvas(child->get_attribute("use")->get_value()));
 930                                 else
 931                                         waypoint_value_node=canvas->surefind_value_node(child->get_attribute("use")->get_value());
 932                         }
 933                         else
 934                         {
 935                                 if(child->get_children().empty())
 936                                 {
 937                                         error(child, strprintf(_("<%s> is missing its data"),"waypoint"));
 938                                         continue;
 939                                 }
 940
 941                                 xmlpp::Element::NodeList::iterator iter;
 942
 943                                 // Search for the first non-text XML element
 944                                 for(iter = list.begin(); iter != list.end(); ++iter)
 945                                         if(dynamic_cast<xmlpp::Element*>(*iter)) break;
 946
 947                                 if(iter==list.end())
 948                                 {
 949                                         error(child, strprintf(_("<%s> is missing its data"),"waypoint"));
 950                                         continue;
 951                                 }
 952
 953                                 waypoint_value_node=parse_value_node(dynamic_cast<xmlpp::Element*>(*iter),canvas);
 954
 955                                 /*
 956                                 ValueBase data=parse_value(dynamic_cast<xmlpp::Element*>(*iter),canvas);
 957
 958                                 if(!data.is_valid())
 959                                 {
 960                                         error(child,_("Bad data for <waypoint>"));
 961                                         continue;
 962                                 }
 963                                 */
 964                                 if(!waypoint_value_node)
 965                                 {
 966                                         error(child,_("Bad data for <waypoint>"));
 967                                         continue;
 968                                 }
 969
 970                                 /*! HACK -- This is a temporary fix to help repair some
 971                                 **      weirdness that is currently going on (10-21-2004).
 972                                 **      This short circuits the linking of waypoints,
 973                                 **      a feature which is so obscure that we can get
 974                                 **      away with something like this pretty easily.
 975                                 */
 976                                 waypoint_value_node=waypoint_value_node->clone();
 977
 978                                 // Warn if there is trash after the param value
 979                                 for(iter++; iter != list.end(); ++iter)
 980                                         if(dynamic_cast<xmlpp::Element*>(*iter))
 981                                                 warning((*iter),strprintf(_("Unexpected element <%s> after <waypoint> data, ignoring..."),(*iter)->get_name().c_str()));
 982                         }
 983
 984
 985                         try {
 986                                 ValueNode_Animated::WaypointList::iterator waypoint=value_node->new_waypoint(time,waypoint_value_node);
 987
 988                         if(child->get_attribute("tension"))
 989                         {
 990                                 synfig::String str(child->get_attribute("tension")->get_value());
 991                                 waypoint->set_tension(atof(str.c_str()));
 992                         }
 993                         if(child->get_attribute("temporal-tension"))
 994                         {
 995                                 synfig::String str(child->get_attribute("temporal-tension")->get_value());
 996                                 waypoint->set_time_tension(atof(str.c_str()));
 997                         }
 998                         if(child->get_attribute("continuity"))
 999                         {
1000                                 synfig::String str(child->get_attribute("continuity")->get_value());
1001                                 waypoint->set_continuity(atof(str.c_str()));
1002                         }
1003                         if(child->get_attribute("bias"))
1004                         {
1005                                 synfig::String str(child->get_attribute("bias")->get_value());
1006                                 waypoint->set_bias(atof(str.c_str()));
1007                         }
1008
1009                         if(child->get_attribute("before"))
1010                         {
1011                                 string val=child->get_attribute("before")->get_value();
1012                                 if(val=="halt")
1013                                         waypoint->set_before(INTERPOLATION_HALT);
1014                                 else if(val=="constant")
1015                                         waypoint->set_before(INTERPOLATION_CONSTANT);
1016                                 else if(val=="linear")
1017                                         waypoint->set_before(INTERPOLATION_LINEAR);
1018                                 else if(val=="manual")
1019                                         waypoint->set_before(INTERPOLATION_MANUAL);
1020                                 else if(val=="auto")
1021                                         waypoint->set_before(INTERPOLATION_TCB);
1022                                 else
1023                                         error(child,strprintf(_("\"%s\" not a valid value for attribute \"%s\" in <%s>"),val.c_str(),"before","waypoint"));
1024                         }
1025
1026                         if(child->get_attribute("after"))
1027                         {
1028                                 string val=child->get_attribute("after")->get_value();
1029                                 if(val=="halt")
1030                                         waypoint->set_after(INTERPOLATION_HALT);
1031                                 else if(val=="constant")
1032                                         waypoint->set_after(INTERPOLATION_CONSTANT);
1033                                 else if(val=="linear")
1034                                         waypoint->set_after(INTERPOLATION_LINEAR);
1035                                 else if(val=="manual")
1036                                         waypoint->set_after(INTERPOLATION_MANUAL);
1037                                 else if(val=="auto")
1038                                         waypoint->set_after(INTERPOLATION_TCB);
1039                                 else
1040                                         error(child,strprintf(_("\"%s\" not a valid value for attribute \"%s\" in <%s>"),val.c_str(),"before","waypoint"));
1041                         }
1042                         }
1043                         catch(Exception::BadTime x)
1044                         {
1045                                 warning(child,x.what());
1046                         }
1047                         continue;
1048
1049                 }
1050                 else
1051                         error_unexpected_element(child,child->get_name());
1052         }
1053         value_node->changed();
1054         return value_node;
1055 }
1056
1057 etl::handle<LinkableValueNode>
1058 CanvasParser::parse_linkable_value_node(xmlpp::Element *element,Canvas::Handle canvas)
1059 {
1060         handle<LinkableValueNode> value_node;
1061         ValueBase::Type type;
1062
1063         // Determine the type
1064         if(element->get_attribute("type"))
1065         {
1066                 type=ValueBase::ident_type(element->get_attribute("type")->get_value());
1067
1068                 if(!type)
1069                 {
1070                         error(element,"Bad type in ValueNode");
1071                         return 0;
1072                 }
1073         }
1074         else
1075         {
1076                 error(element,"Missing type in ValueNode");
1077                 return 0;
1078         }
1079
1080         value_node=LinkableValueNode::create(element->get_name(),type);
1081
1082         if(!value_node)
1083         {
1084                 error(element,"Unknown ValueNode type "+element->get_name());
1085                 return 0;
1086         }
1087
1088         if(value_node->get_type()!=type)
1089         {
1090                 error(element,"ValueNode did not accept type");
1091                 return 0;
1092         }
1093
1094         value_node->set_root_canvas(canvas->get_root());
1095
1096         int i;
1097         for(i=0;i<value_node->link_count();i++)
1098         {
1099                 if(element->get_attribute(value_node->link_name(i)))
1100                 try {
1101                         String id(element->get_attribute(value_node->link_name(i))->get_value());
1102
1103                         if(!value_node->set_link(i,
1104                                         canvas->surefind_value_node(
1105                                                 id
1106                                         )
1107                                 )
1108                         ) error(element,strprintf(_("Unable to set link \"%s\" to ValueNode \"%s\" (link #%d in \"%s\")"),value_node->link_name(i).c_str(),id.c_str(),i,value_node->get_name().c_str()));
1109                 }
1110                 catch(Exception::IDNotFound)
1111                 {
1112                         error(element,"Unable to resolve "+element->get_attribute(value_node->link_name(i))->get_value());
1113                 }
1114                 catch(Exception::FileNotFound)
1115                 {
1116                         error(element,"Unable to open file referenced in "+element->get_attribute(value_node->link_name(i))->get_value());
1117                 }
1118                 catch(...)
1119                 {
1120                         error(element,strprintf(_("Unknown Exception thrown when referencing ValueNode \"%s\""),
1121                                 element->get_attribute(value_node->link_name(i))->get_value().c_str()));
1122                         throw;
1123                 }
1124         }
1125
1126
1127
1128         xmlpp::Element::NodeList list = element->get_children();
1129         for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
1130         {
1131                 xmlpp::Element *child(dynamic_cast<xmlpp::Element*>(*iter));
1132                 try
1133                 {
1134                         if(!child)
1135                                 continue;
1136                         int index=value_node->get_link_index_from_name(child->get_name());
1137
1138                         xmlpp::Element::NodeList list = child->get_children();
1139                         xmlpp::Element::NodeList::iterator iter;
1140
1141                         // Search for the first non-text XML element
1142                         for(iter = list.begin(); iter != list.end(); ++iter)
1143                                 if(dynamic_cast<xmlpp::Element*>(*iter)) break;
1144
1145                         if(iter==list.end())
1146                         {
1147                                 error(child,_("element is missing its contents"));
1148                                 continue;
1149                         }
1150
1151                         ValueNode::Handle link=parse_value_node(dynamic_cast<xmlpp::Element*>(*iter),canvas);
1152
1153                         if(!link)
1154                         {
1155                                 error((*iter),"Parse of ValueNode failed");
1156                         }
1157                         else
1158                         if(!value_node->set_link(index,link))
1159                         {
1160                                 //error(dynamic_cast<xmlpp::Element*>(*iter),strprintf("Unable to connect value node ('%s' of type '%s') to link %d",link->get_name().c_str(),ValueBase::type_name(link->get_type()).c_str(),index));
1161                                 error(element,strprintf("Unable to connect value node ('%s' of type '%s') to link %d",link->get_name().c_str(),ValueBase::type_name(link->get_type()).c_str(),index));
1162                         }
1163
1164                         // \todo do a search for more elements and warn if they are found
1165
1166                 }
1167                 catch(Exception::BadLinkName)
1168                 {
1169                         error_unexpected_element(child,child->get_name());
1170                 }
1171                 catch(...)
1172                 {
1173                         error(child,strprintf(_("Unknown Exception thrown when working on element \"%s\""),child->get_name().c_str()));
1174                         throw;
1175                 }
1176         }
1177
1178         return value_node;
1179 }
1180
1181 handle<ValueNode_Composite>
1182 CanvasParser::parse_composite(xmlpp::Element *element,Canvas::Handle canvas)
1183 {
1184         assert(element->get_name()=="composite");
1185
1186         if(!element->get_attribute("type"))
1187         {
1188                 error(element,"Missing attribute \"type\" in <composite>");
1189                 return handle<ValueNode_Composite>();
1190         }
1191
1192         ValueBase::Type type=ValueBase::ident_type(element->get_attribute("type")->get_value());
1193
1194         if(!type)
1195         {
1196                 error(element,"Bad type in <composite>");
1197                 return handle<ValueNode_Composite>();
1198         }
1199
1200         handle<ValueNode_Composite> value_node=ValueNode_Composite::create(type);
1201         handle<ValueNode> c[6];
1202
1203         if(!value_node)
1204         {
1205                 error(element,strprintf(_("Unable to create <composite>")));
1206                 return handle<ValueNode_Composite>();
1207         }
1208
1209         int i;
1210
1211         for(i=0;i<value_node->link_count();i++)
1212         {
1213                 string name=strprintf("c%d",i+1);
1214                 if(c[i])
1215                 {
1216                         error(element,name+" was already defined in <composite>");
1217                         continue;
1218                 }
1219                 if(element->get_attribute(name))
1220                 {
1221                         c[i]=canvas->surefind_value_node(element->get_attribute(name)->get_value());
1222                         if(c[i])
1223                         {
1224                                 if(!value_node->set_link(i,c[i]))
1225                                 {
1226                                         error(element,'"'+name+"\" attribute in <composite> has bad type");
1227                                 }
1228                         }
1229                         else
1230                                 error(element,'"'+name+"\" attribute in <composite> references unknown ID");
1231                 }
1232         }
1233
1234         xmlpp::Element::NodeList list = element->get_children();
1235         for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
1236         {
1237                 xmlpp::Element *child(dynamic_cast<xmlpp::Element*>(*iter));
1238                 if(!child)
1239                         continue;
1240                 else
1241                 for(i=0;i<value_node->link_count();i++)
1242                 {
1243                         string name=strprintf("c%d",i+1);
1244                         if(child->get_name()==name)
1245                         {
1246                                 if(c[i])
1247                                 {
1248                                         error(child,name+" was already defined in <composite>");
1249                                         break;
1250                                 }
1251
1252                                 xmlpp::Element::NodeList list = child->get_children();
1253                                 xmlpp::Element::NodeList::iterator iter;
1254
1255                                 // Search for the first non-text XML element
1256                                 for(iter = list.begin(); iter != list.end(); ++iter)
1257                                         if(dynamic_cast<xmlpp::Element*>(*iter)) break;
1258
1259                                 if(iter==list.end())
1260                                 {
1261                                         error(child,strprintf(_("<%s> is missing its contents"),name.c_str()));
1262                                         break;
1263                                 }
1264
1265                                 c[i]=parse_value_node(dynamic_cast<xmlpp::Element*>(*iter),canvas);
1266
1267                                 if(!c[i])
1268                                 {
1269                                         error((*iter),"Parse of "+name+" ValueNode failed");
1270                                         break;
1271                                 }
1272
1273                                 if(!value_node->set_link(i,c[i]))
1274                                 {
1275                                         error(child,strprintf(_("<%s> has a bad value"),name.c_str()));
1276                                         break;
1277                                 }
1278
1279                                 // \todo do a search for more elements and warn if they are found
1280                                 break;
1281                         }
1282                 }
1283                 // somewhat of a hack, but it works
1284                 if(i==value_node->link_count()) error_unexpected_element(child,child->get_name());
1285         }
1286
1287         switch(value_node->link_count())
1288         {
1289         case 1:
1290                 if(!value_node->get_link(0))
1291                 {
1292                         error(element,"<composite> is missing parameters");
1293                         return handle<ValueNode_Composite>();
1294                 }
1295                 break;
1296         case 2:
1297                 if(!value_node->get_link(0) ||!value_node->get_link(1))
1298                 {
1299                         error(element,"<composite> is missing parameters");
1300                         return handle<ValueNode_Composite>();
1301                 }
1302                 break;
1303         case 3:
1304                 if(!value_node->get_link(0) ||!value_node->get_link(1) ||!value_node->get_link(2))
1305                 {
1306                         error(element,"<composite> is missing parameters");
1307                         return handle<ValueNode_Composite>();
1308                 }
1309                 break;
1310         case 4:
1311                 if(!value_node->get_link(0) ||!value_node->get_link(1) ||!value_node->get_link(2) ||!value_node->get_link(3))
1312                 {
1313                         error(element,"<composite> is missing parameters");
1314                         return handle<ValueNode_Composite>();
1315                 }
1316                 break;
1317     }
1318         return value_node;
1319 }
1320
1321 // This will also parse a bline
1322 handle<ValueNode_DynamicList>
1323 CanvasParser::parse_dynamic_list(xmlpp::Element *element,Canvas::Handle canvas)
1324 {
1325         assert(element->get_name()=="dynamic_list" || element->get_name()=="bline");
1326
1327         const float fps(canvas?canvas->rend_desc().get_frame_rate():0);
1328
1329         if(!element->get_attribute("type"))
1330         {
1331                 error(element,"Missing attribute \"type\" in <dynamic_list>");
1332                 return handle<ValueNode_DynamicList>();
1333         }
1334
1335         ValueBase::Type type=ValueBase::ident_type(element->get_attribute("type")->get_value());
1336
1337         if(!type)
1338         {
1339                 error(element,"Bad type in <dynamic_list>");
1340                 return handle<ValueNode_DynamicList>();
1341         }
1342
1343         handle<ValueNode_DynamicList> value_node;
1344         handle<ValueNode_BLine> bline_value_node;
1345
1346         if(element->get_name()=="bline")
1347         {
1348                 value_node=bline_value_node=ValueNode_BLine::create();
1349                 if(element->get_attribute("loop"))
1350                 {
1351                         String loop=element->get_attribute("loop")->get_value();
1352                         if(loop=="true" || loop=="1" || loop=="TRUE" || loop=="True")
1353                                 bline_value_node->set_loop(true);
1354                         else
1355                                 bline_value_node->set_loop(false);
1356                 }
1357
1358         }
1359         else
1360                 value_node=ValueNode_DynamicList::create(type);
1361
1362         if(!value_node)
1363         {
1364                 error(element,strprintf(_("Unable to create <dynamic_list>")));
1365                 return handle<ValueNode_DynamicList>();
1366         }
1367
1368         value_node->set_root_canvas(canvas->get_root());
1369
1370         xmlpp::Element::NodeList list = element->get_children();
1371         for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
1372         {
1373                 xmlpp::Element *child(dynamic_cast<xmlpp::Element*>(*iter));
1374                 if(!child)
1375                         continue;
1376                 else
1377                 if(child->get_name()=="entry")
1378                 {
1379                         ValueNode_DynamicList::ListEntry list_entry;
1380
1381                         // Parse begin/end waypoints
1382                         {
1383                                 typedef synfig::ValueNode_DynamicList::ListEntry::Activepoint Activepoint;
1384                                 typedef synfig::ValueNode_DynamicList::ListEntry::ActivepointList ActivepointList;
1385
1386                                 String begin_sequence;
1387                                 String end_sequence;
1388
1389                                 ActivepointList &timing_info(list_entry.timing_info);
1390
1391                                 if(child->get_attribute("begin"))
1392                                         begin_sequence=child->get_attribute("begin")->get_value();
1393
1394                                 if(child->get_attribute("on"))
1395                                         begin_sequence=child->get_attribute("on")->get_value();
1396
1397                                 if(child->get_attribute("end"))
1398                                         end_sequence=child->get_attribute("end")->get_value();
1399
1400                                 if(child->get_attribute("off"))
1401                                         end_sequence=child->get_attribute("off")->get_value();
1402
1403                                 // clear out any auto-start
1404                                 if(!begin_sequence.empty())
1405                                         timing_info.clear();
1406
1407                                 //! \optimize
1408                                 while(!begin_sequence.empty())
1409                                 {
1410                                         String::iterator iter(find(begin_sequence.begin(),begin_sequence.end(),','));
1411                                         String timecode(begin_sequence.begin(), iter);
1412                                         int priority=0;
1413
1414                                         // skip whitespace before checking for a priority
1415                                         while (isspace(timecode[0]))
1416                                                 timecode=timecode.substr(1);
1417
1418                                         // If there is a priority, then grab it and remove
1419                                         // it from the timecode
1420                                         if(timecode[0]=='p')
1421                                         {
1422                                                 //priority=timecode[1]-'0';
1423                                                 //timecode=String(timecode.begin()+3,timecode.end());
1424                                                 int space=timecode.find_first_of(' ');
1425                                                 priority=atoi(String(timecode,1,space-1).c_str());
1426                                                 timecode=String(timecode.begin()+space+1,timecode.end());
1427                                                 //synfig::info("priority: %d      timecode: %s",priority,timecode.c_str());
1428                                         }
1429
1430                                         timing_info.push_back(
1431                                                 Activepoint(
1432                                                         Time(
1433                                                                 timecode,
1434                                                                 fps
1435                                                         ),
1436                                                         true,   // Mark as a "on" activepoint
1437                                                         priority
1438                                                 )
1439                                         );
1440
1441                                         if(iter==begin_sequence.end())
1442                                                 begin_sequence.clear();
1443                                         else
1444                                                 begin_sequence=String(iter+1,begin_sequence.end());
1445                                 }
1446
1447                                 //! \optimize
1448                                 while(!end_sequence.empty())
1449                                 {
1450                                         String::iterator iter(find(end_sequence.begin(),end_sequence.end(),','));
1451                                         String timecode(end_sequence.begin(),   iter);
1452                                         int priority=0;
1453
1454                                         // skip whitespace before checking for a priority
1455                                         while (isspace(timecode[0]))
1456                                                 timecode=timecode.substr(1);
1457
1458                                         // If there is a priority, then grab it and remove
1459                                         // it from the timecode
1460                                         if(timecode[0]=='p')
1461                                         {
1462                                                 //priority=timecode[1]-'0';
1463                                                 //timecode=String(timecode.begin()+3,timecode.end());
1464                                                 int space=timecode.find_first_of(' ');
1465                                                 priority=atoi(String(timecode,1,space-1).c_str());
1466                                                 timecode=String(timecode.begin()+space+1,timecode.end());
1467                                                 //synfig::info("priority: %d      timecode: %s",priority,timecode.c_str());
1468                                         }
1469
1470                                         timing_info.push_back(
1471                                                 Activepoint(
1472                                                         Time(
1473                                                                 timecode,
1474                                                                 fps
1475                                                         ),
1476                                                         false,  // Mark as a "off" activepoint
1477                                                         priority
1478                                                 )
1479                                         );
1480                                         if(iter==end_sequence.end())
1481                                                 end_sequence.clear();
1482                                         else
1483                                                 end_sequence=String(iter+1,end_sequence.end());
1484                                 }
1485
1486                                 timing_info.sort();
1487                         }
1488
1489                         if(child->get_attribute("use"))
1490                         {
1491                                 // \todo does this need to be able to read 'use="canvas"', like waypoints can now?  (see 'surefind_canvas' in this file)
1492                                 string id=child->get_attribute("use")->get_value();
1493                                 try
1494                                 {
1495                                         list_entry.value_node=canvas->surefind_value_node(id);
1496                                 }
1497                                 catch(Exception::IDNotFound)
1498                                 {
1499                                         error(child,"\"use\" attribute in <entry> references unknown ID -- "+id);
1500                                         continue;
1501                                 }
1502                         }
1503                         else
1504                         {
1505                                 xmlpp::Element::NodeList list = child->get_children();
1506                                 xmlpp::Element::NodeList::iterator iter;
1507
1508                                 // Search for the first non-text XML element
1509                                 for(iter = list.begin(); iter != list.end(); ++iter)
1510                                         if(dynamic_cast<xmlpp::Element*>(*iter)) break;
1511
1512                                 if(iter==list.end())
1513                                 {
1514                                         error(child,strprintf(_("<entry> is missing its contents or missing \"use\" element")));
1515                                         continue;
1516                                 }
1517
1518                                 list_entry.value_node=parse_value_node(dynamic_cast<xmlpp::Element*>(*iter),canvas);
1519
1520                                 if(!list_entry.value_node)
1521                                         error((*iter),"Parse of ValueNode failed");
1522
1523                                 // \todo do a search for more elements and warn if they are found
1524
1525                         }
1526
1527                         value_node->add(list_entry);
1528                         value_node->set_link(value_node->link_count()-1,list_entry.value_node);
1529                 }
1530                 else
1531                         error_unexpected_element(child,child->get_name());
1532         }
1533         return value_node;
1534 }
1535
1536 handle<ValueNode>
1537 CanvasParser::parse_value_node(xmlpp::Element *element,Canvas::Handle canvas)
1538 {
1539         handle<ValueNode> value_node;
1540         assert(element);
1541
1542         GUID guid;
1543
1544         if(element->get_attribute("guid"))
1545         {
1546                 guid=GUID(element->get_attribute("guid")->get_value())^canvas->get_root()->get_guid();
1547                 value_node=guid_cast<ValueNode>(guid);
1548                 if(value_node)
1549                         return value_node;
1550         }
1551
1552         // If ValueBase::ident_type() recognises the name, then we know it's a ValueBase
1553         if(element->get_name()!="canvas" && ValueBase::ident_type(element->get_name()))
1554         {
1555                 ValueBase data=parse_value(element,canvas);
1556
1557                 if(!data.is_valid())
1558                 {
1559                         error(element,strprintf(_("Bad data in <%s>"),element->get_name().c_str()));
1560                         return value_node;
1561                 }
1562
1563                 // We want to convert this ValueBase into a
1564                 // ValueNode_Const. That way, we can treat the
1565                 // ID like any other Datanode. Think of this
1566                 // as a shorthand for creating constant ValueNodes.
1567
1568                 value_node=ValueNode_Const::create(data);
1569         }
1570         else
1571         if(element->get_name()=="hermite" || element->get_name()=="animated")
1572                 value_node=parse_animated(element,canvas);
1573         else
1574         if(element->get_name()=="composite")
1575                 value_node=parse_composite(element,canvas);
1576         else
1577         if(element->get_name()=="dynamic_list")
1578                 value_node=parse_dynamic_list(element,canvas);
1579         else
1580         if(element->get_name()=="bline") // This is not a typo. The dynamic list parser will parse a bline.
1581                 value_node=parse_dynamic_list(element,canvas);
1582         else
1583         if(LinkableValueNode::book().count(element->get_name()))
1584                 value_node=parse_linkable_value_node(element,canvas);
1585         else
1586         if(element->get_name()=="canvas")
1587                 value_node=ValueNode_Const::create(parse_canvas(element,canvas,true));
1588         else
1589         {
1590                 error_unexpected_element(element,element->get_name());
1591                 error(element, "Expected a ValueNode");
1592         }
1593
1594
1595         value_node->set_root_canvas(canvas->get_root());
1596
1597
1598         // If we were successful, and our element has
1599         // an ID attribute, go ahead and add it to the
1600         // value_node list
1601         if(value_node && element->get_attribute("id"))
1602         {
1603                 string id=element->get_attribute("id")->get_value();
1604
1605                 //value_node->set_id(id);
1606
1607                 // If there is already a value_node in the list
1608                 // with the same ID, then that is an error
1609                 try { canvas->add_value_node(value_node,id); }
1610                 catch(Exception::BadLinkName)
1611                 {
1612                         warning(element,strprintf(_("Bad ID \"%s\""),id.c_str()));
1613                         return value_node;
1614                 }
1615                 catch(Exception::IDAlreadyExists)
1616                 {
1617                         error(element,strprintf(_("Duplicate ID \"%s\""),id.c_str()));
1618                         return value_node;
1619                 }
1620                 catch(...)
1621                 {
1622                         error(element,strprintf(_("Unknown Exception thrown when adding ValueNode \"%s\""),id.c_str()));
1623                         throw;
1624                 }
1625         }
1626         value_node->set_guid(guid);
1627         return value_node;
1628 }
1629
1630 void
1631 CanvasParser::parse_canvas_defs(xmlpp::Element *element,Canvas::Handle canvas)
1632 {
1633         assert(element->get_name()=="defs");
1634         xmlpp::Element::NodeList list = element->get_children();
1635         for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
1636         {
1637                 xmlpp::Element *child(dynamic_cast<xmlpp::Element*>(*iter));
1638                 if(!child)
1639                         continue;
1640                 else
1641                 if(child->get_name()=="canvas")
1642                         parse_canvas(child, canvas);
1643                 else
1644                         parse_value_node(child,canvas);
1645         }
1646 }
1647
1648 Layer::Handle
1649 CanvasParser::parse_layer(xmlpp::Element *element,Canvas::Handle canvas)
1650 {
1651
1652         assert(element->get_name()=="layer");
1653         Layer::Handle layer;
1654
1655         if(!element->get_attribute("type"))
1656         {
1657                 error(element,_("Missing \"type\" attribute to \"layer\" element"));
1658                 return Layer::Handle();
1659         }
1660
1661         layer=Layer::create(element->get_attribute("type")->get_value());
1662         layer->set_canvas(canvas);
1663
1664         if(element->get_attribute("group"))
1665         {
1666                 layer->add_to_group(
1667                         element->get_attribute("group")->get_value()
1668                 );
1669         }
1670
1671         // Handle the version attribute
1672         if(element->get_attribute("version"))
1673         {
1674                 String version(element->get_attribute("version")->get_value());
1675                 if(version>layer->get_version())
1676                         warning(element,_("Installed layer version is larger than layer version in file"));
1677                 if(version!=layer->get_version())
1678                         layer->set_version(version);
1679         }
1680
1681         // Handle the description
1682         if(element->get_attribute("desc"))
1683                 layer->set_description(element->get_attribute("desc")->get_value());
1684
1685         if(element->get_attribute("active"))
1686                 layer->set_active(element->get_attribute("active")->get_value()=="false"?false:true);
1687
1688         xmlpp::Element::NodeList list = element->get_children();
1689         for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
1690         {
1691                 xmlpp::Element *child(dynamic_cast<xmlpp::Element*>(*iter));
1692                 if(!child)
1693                         continue;
1694                 else
1695                 if(child->get_name()=="name")
1696                         warning(child,_("<name> entry for <layer> is not yet supported. Ignoring..."));
1697                 else
1698                 if(child->get_name()=="desc")
1699                         warning(child,_("<desc> entry for <layer> is not yet supported. Ignoring..."));
1700                 else
1701                 if(child->get_name()=="param")
1702                 {
1703                         xmlpp::Element::NodeList list = child->get_children();
1704
1705                         if(!child->get_attribute("name"))
1706                         {
1707                                 error(child,_("Missing \"name\" attribute for <param>."));
1708                                 continue;
1709                         }
1710
1711                         String param_name=child->get_attribute("name")->get_value();
1712
1713                         if(child->get_attribute("use"))
1714                         {
1715                                 // If the "use" attribute is used, then the
1716                                 // element should be empty. Warn the user if
1717                                 // we find otherwise.
1718                                 if(!list.empty())
1719                                         warning(child,_("Found \"use\" attribute for <param>, but it wasn't empty. Ignoring contents..."));
1720
1721                                 String str=     child->get_attribute("use")->get_value();
1722
1723                                 if(layer->get_param(param_name).get_type()==ValueBase::TYPE_CANVAS)
1724                                 {
1725                                         if(!layer->set_param(param_name,canvas->surefind_canvas(str)))
1726                                                 error((*iter),_("Layer rejected canvas link"));
1727                                 }
1728                                 else
1729                                 try
1730                                 {
1731                                         handle<ValueNode> value_node=canvas->surefind_value_node(str);
1732
1733                                         // Assign the value_node to the dynamic parameter list
1734                                         layer->connect_dynamic_param(param_name,value_node);
1735                         }
1736                                 catch(Exception::IDNotFound)
1737                                 {
1738                                         error(child,strprintf(_("Unknown ID (%s) referenced in <param>"),str.c_str()));
1739                                 }
1740
1741                                 continue;
1742                         }
1743
1744                         xmlpp::Element::NodeList::iterator iter;
1745
1746                         // Search for the first non-text XML element
1747                         for(iter = list.begin(); iter != list.end(); ++iter)
1748                                 if(dynamic_cast<xmlpp::Element*>(*iter))
1749                                         break;
1750                                 //if(!(!dynamic_cast<xmlpp::Element*>(*iter) && (*iter)->get_name()=="text"||(*iter)->get_name()=="comment"   )) break;
1751
1752                         if(iter==list.end())
1753                         {
1754                                 error(child,_("<param> is either missing its contents, or missing a \"use\" attribute."));
1755                                 continue;
1756                         }
1757
1758                         // If we recognise the element name as a
1759                         // ValueBase, then treat is at one
1760                         if(/*(*iter)->get_name()!="canvas" && */ValueBase::ident_type((*iter)->get_name()) && !dynamic_cast<xmlpp::Element*>(*iter)->get_attribute("guid"))
1761                         {
1762                                 ValueBase data=parse_value(dynamic_cast<xmlpp::Element*>(*iter),canvas);
1763
1764                                 if(!data.is_valid())
1765                                 {
1766                                         error((*iter),_("Bad data for <param>"));
1767                                         continue;
1768                                 }
1769
1770                                 // Set the layer's parameter, and make sure that
1771                                 // the layer liked it
1772                                 if(!layer->set_param(param_name,data))
1773                                 {
1774                                         warning((*iter),_("Layer rejected value for <param>"));
1775                                         continue;
1776                                 }
1777                         }
1778                         else    // ... otherwise, we assume that it is a ValueNode
1779                         {
1780                                 handle<ValueNode> value_node=parse_value_node(dynamic_cast<xmlpp::Element*>(*iter),canvas);
1781
1782                                 if(!value_node)
1783                                 {
1784                                         error((*iter),_("Bad data for <param>"));
1785                                         continue;
1786                                 }
1787
1788                                 // Assign the value_node to the dynamic parameter list
1789                                 layer->connect_dynamic_param(param_name,value_node);
1790                         }
1791
1792                         // Warn if there is trash after the param value
1793                         for(iter++; iter != list.end(); ++iter)
1794                                 if(dynamic_cast<xmlpp::Element*>(*iter))
1795                                         warning((*iter),strprintf(_("Unexpected element <%s> after <param> data, ignoring..."),(*iter)->get_name().c_str()));
1796                         continue;
1797                 }
1798                 else
1799                         error_unexpected_element(child,child->get_name());
1800         }
1801
1802         layer->reset_version();
1803         return layer;
1804 }
1805
1806 Canvas::Handle
1807 CanvasParser::parse_canvas(xmlpp::Element *element,Canvas::Handle parent,bool inline_, String filename)
1808 {
1809
1810         if(element->get_name()!="canvas")
1811         {
1812                 error_unexpected_element(element,element->get_name(),"canvas");
1813                 return Canvas::Handle();
1814         }
1815         Canvas::Handle canvas;
1816
1817
1818
1819         if(parent && (element->get_attribute("id") || inline_))
1820         {
1821                 if(inline_)
1822                 {
1823                         canvas=Canvas::create_inline(parent);
1824                 }
1825                 else
1826                 {
1827                         try
1828                         {
1829                                 canvas=parent->find_canvas(element->get_attribute("id")->get_value());
1830                         }
1831                         catch(...)
1832                         {
1833                                 canvas=parent->new_child_canvas(element->get_attribute("id")->get_value());
1834                         }
1835                 }
1836                 canvas->rend_desc().clear_flags();
1837         }
1838         else
1839         {
1840                 canvas=Canvas::create();
1841                 if(filename=="/dev/stdin")
1842                         canvas->set_file_name("./stdin.sif");
1843                 else
1844                         canvas->set_file_name(filename);
1845                 canvas->rend_desc().clear_flags();
1846         }
1847
1848         if(element->get_attribute("guid"))
1849         {
1850                 GUID guid(element->get_attribute("guid")->get_value());
1851                 if(guid_cast<Canvas>(guid))
1852                         return guid_cast<Canvas>(guid);
1853                 else
1854                         canvas->set_guid(guid);
1855         }
1856
1857         if(element->get_attribute("width"))
1858                 canvas->rend_desc().set_w(atoi(element->get_attribute("width")->get_value().c_str()));
1859
1860         if(element->get_attribute("height"))
1861                 canvas->rend_desc().set_h(atoi(element->get_attribute("height")->get_value().c_str()));
1862
1863         if(element->get_attribute("xres"))
1864                 canvas->rend_desc().set_x_res(atof(element->get_attribute("xres")->get_value().c_str()));
1865
1866         if(element->get_attribute("yres"))
1867                 canvas->rend_desc().set_y_res(atof(element->get_attribute("yres")->get_value().c_str()));
1868
1869
1870         if(element->get_attribute("fps"))
1871                 canvas->rend_desc().set_frame_rate(atof(element->get_attribute("fps")->get_value().c_str()));
1872
1873         if(element->get_attribute("start-time"))
1874                 canvas->rend_desc().set_time_start(Time(element->get_attribute("start-time")->get_value(),canvas->rend_desc().get_frame_rate()));
1875
1876         if(element->get_attribute("begin-time"))
1877                 canvas->rend_desc().set_time_start(Time(element->get_attribute("begin-time")->get_value(),canvas->rend_desc().get_frame_rate()));
1878
1879         if(element->get_attribute("end-time"))
1880                 canvas->rend_desc().set_time_end(Time(element->get_attribute("end-time")->get_value(),canvas->rend_desc().get_frame_rate()));
1881
1882         if(element->get_attribute("antialias"))
1883                 canvas->rend_desc().set_antialias(atoi(element->get_attribute("antialias")->get_value().c_str()));
1884
1885         if(element->get_attribute("view-box"))
1886         {
1887                 string values=element->get_attribute("view-box")->get_value();
1888                 Vector
1889                         tl,
1890                         br;
1891                 tl[0]=atof(string(values.data(),values.find(' ')).c_str());
1892                 values=string(values.begin()+values.find(' ')+1,values.end());
1893                 tl[1]=atof(string(values.data(),values.find(' ')).c_str());
1894                 values=string(values.begin()+values.find(' ')+1,values.end());
1895                 br[0]=atof(string(values.data(),values.find(' ')).c_str());
1896                 values=string(values.begin()+values.find(' ')+1,values.end());
1897                 br[1]=atof(values.c_str());
1898
1899                 canvas->rend_desc().set_tl(tl);
1900                 canvas->rend_desc().set_br(br);
1901         }
1902
1903         if(element->get_attribute("bgcolor"))
1904         {
1905                 string values=element->get_attribute("bgcolor")->get_value();
1906                 Color bg;
1907
1908                 bg.set_r(atof(string(values.data(),values.find(' ')).c_str()));
1909                 values=string(values.begin()+values.find(' ')+1,values.end());
1910
1911                 bg.set_g(atof(string(values.data(),values.find(' ')).c_str()));
1912                 values=string(values.begin()+values.find(' ')+1,values.end());
1913
1914                 bg.set_b(atof(string(values.data(),values.find(' ')).c_str()));
1915                 values=string(values.begin()+values.find(' ')+1,values.end());
1916
1917                 bg.set_a(atof(values.c_str()));
1918
1919                 canvas->rend_desc().set_bg_color(bg);
1920         }
1921
1922         if(element->get_attribute("focus"))
1923         {
1924                 string values=element->get_attribute("focus")->get_value();
1925                 Vector focus;
1926
1927                 focus[0]=atof(string(values.data(),values.find(' ')).c_str());
1928                 values=string(values.begin()+values.find(' ')+1,values.end());
1929                 focus[1]=atof(values.c_str());
1930
1931                 canvas->rend_desc().set_focus(focus);
1932         }
1933
1934         canvas->rend_desc().set_flags(RendDesc::PX_ASPECT|RendDesc::IM_SPAN);
1935
1936         xmlpp::Element::NodeList list = element->get_children();
1937         for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
1938         {
1939                 xmlpp::Element *child(dynamic_cast<xmlpp::Element*>(*iter));
1940                 if(child)
1941                 {
1942                         if(child->get_name()=="defs")
1943                         {
1944                                 if(canvas->is_inline())
1945                                         error(child,_("Inline canvas cannot have a <defs> section"));
1946                                 parse_canvas_defs(child, canvas);
1947                         }
1948                         else
1949                         if(child->get_name()=="keyframe")
1950                         {
1951                                 if(canvas->is_inline())
1952                                 {
1953                                         warning(child,_("Inline canvas cannot have keyframes"));
1954                                         continue;
1955                                 }
1956
1957                                 canvas->keyframe_list().add(parse_keyframe(child,canvas));
1958                                 canvas->keyframe_list().sync();
1959                         }
1960                         else
1961                         if(child->get_name()=="meta")
1962                         {
1963                                 if(canvas->is_inline())
1964                                 {
1965                                         warning(child,_("Inline canvases cannot have metadata"));
1966                                         continue;
1967                                 }
1968
1969                                 String name,content;
1970
1971                                 if(!child->get_attribute("name"))
1972                                 {
1973                                         warning(child,_("<meta> must have a name"));
1974                                         continue;
1975                                 }
1976
1977                                 if(!child->get_attribute("content"))
1978                                 {
1979                                         warning(child,_("<meta> must have content"));
1980                                         continue;
1981                                 }
1982
1983                                 canvas->set_meta_data(child->get_attribute("name")->get_value(),child->get_attribute("content")->get_value());
1984                         }
1985                         else if(child->get_name()=="name")
1986                         {
1987                                 xmlpp::Element::NodeList list = child->get_children();
1988
1989                                 // If we don't have any name, warn
1990                                 if(list.empty())
1991                                         warning(child,_("blank \"name\" entitity"));
1992
1993                                 string tmp;
1994                                 for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
1995                                         if(dynamic_cast<xmlpp::TextNode*>(*iter))tmp+=dynamic_cast<xmlpp::TextNode*>(*iter)->get_content();
1996                                 canvas->set_name(tmp);
1997                         }
1998                         else
1999                         if(child->get_name()=="desc")
2000                         {
2001
2002                                 xmlpp::Element::NodeList list = child->get_children();
2003
2004                                 // If we don't have any description, warn
2005                                 if(list.empty())
2006                                         warning(child,_("blank \"desc\" entitity"));
2007
2008                                 string tmp;
2009                                 for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
2010                                         if(dynamic_cast<xmlpp::TextNode*>(*iter))tmp+=dynamic_cast<xmlpp::TextNode*>(*iter)->get_content();
2011                                 canvas->set_description(tmp);
2012                         }
2013                         else
2014                         if(child->get_name()=="author")
2015                         {
2016
2017                                 xmlpp::Element::NodeList list = child->get_children();
2018
2019                                 // If we don't have any description, warn
2020                                 if(list.empty())
2021                                         warning(child,_("blank \"author\" entitity"));
2022
2023                                 string tmp;
2024                                 for(xmlpp::Element::NodeList::iterator iter = list.begin(); iter != list.end(); ++iter)
2025                                         if(dynamic_cast<xmlpp::TextNode*>(*iter))tmp+=dynamic_cast<xmlpp::TextNode*>(*iter)->get_content();
2026                                 canvas->set_author(tmp);
2027                         }
2028                         else
2029                         if(child->get_name()=="layer")
2030                         {
2031                                 //if(canvas->is_inline())
2032                                 //      canvas->push_front(parse_layer(child,canvas->parent()));
2033                                 //else
2034                                         canvas->push_front(parse_layer(child,canvas));
2035                         }
2036                         else
2037                                 error_unexpected_element(child,child->get_name());
2038                 }
2039 //              else
2040 //              if((child->get_name()=="text"||child->get_name()=="comment") && child->has_child_text())
2041 //                      continue;
2042         }
2043
2044         if(canvas->value_node_list().placeholder_count())
2045         {
2046                 error(element,strprintf(_("Canvas %s has undefined ValueNodes"),canvas->get_id().c_str()));
2047         }
2048
2049         return canvas;
2050 }
2051
2052 Canvas::Handle
2053 CanvasParser::parse_from_file(const String &file)
2054 {
2055         return parse_from_file_as(file,file);
2056 }
2057
2058 Canvas::Handle
2059 CanvasParser::parse_from_file_as(const String &file_,const String &as_)
2060 {
2061         CHECK_EXPIRE_TIME();
2062         try
2063         {
2064         ChangeLocale change_locale(LC_NUMERIC, "C");
2065                 String file(unix_to_local_path(file_));
2066                 String as(unix_to_local_path(as_));
2067
2068                 if(get_open_canvas_map().count(etl::absolute_path(as)))
2069                         return get_open_canvas_map()[etl::absolute_path(as)];
2070
2071                 filename=as;
2072                 total_warnings_=0;
2073                 xmlpp::DomParser parser(file);
2074                 if(parser)
2075                 {
2076                         Canvas::Handle canvas(parse_canvas(parser.get_document()->get_root_node(),0,false,as));
2077                         get_open_canvas_map()[etl::absolute_path(as)]=canvas;
2078                         canvas->signal_deleted().connect(sigc::bind(sigc::ptr_fun(_remove_from_open_canvas_map),canvas.get()));
2079                         canvas->signal_file_name_changed().connect(sigc::bind(sigc::ptr_fun(_canvas_file_name_changed),canvas.get()));
2080
2081
2082
2083                         const ValueNodeList& value_node_list(canvas->value_node_list());
2084
2085                         again:
2086                         ValueNodeList::const_iterator iter;
2087                         for(iter=value_node_list.begin();iter!=value_node_list.end();++iter)
2088                         {
2089                                 ValueNode::Handle value_node(*iter);
2090                                 if(value_node->is_exported() && value_node->get_id().find("Unnamed")==0)
2091                                 {
2092                                         canvas->remove_value_node(value_node);
2093                                         goto again;
2094                                 }
2095                         }
2096
2097                         return canvas;
2098                 }
2099         }
2100         catch(Exception::BadLinkName) { synfig::error("BadLinkName Thrown"); }
2101         catch(Exception::BadType) { synfig::error("BadType Thrown"); }
2102         catch(Exception::FileNotFound) { synfig::error("FileNotFound Thrown"); }
2103         catch(Exception::IDNotFound) { synfig::error("IDNotFound Thrown"); }
2104         catch(Exception::IDAlreadyExists) { synfig::error("IDAlreadyExists Thrown"); }
2105         catch(const std::exception& ex)
2106         {
2107                 synfig::error("Standard Exception: "+String(ex.what()));
2108                 return Canvas::Handle();
2109         }
2110         catch(const String& str)
2111         {
2112                 cerr<<str<<endl;
2113                 //      synfig::error(str);
2114                 return Canvas::Handle();
2115         }
2116         return Canvas::Handle();
2117 }
2118
2119 Canvas::Handle
2120 CanvasParser::parse_from_string(const String &data)
2121 {
2122         CHECK_EXPIRE_TIME();
2123
2124         try
2125         {
2126         ChangeLocale change_locale(LC_NUMERIC, "C");
2127                 filename=_("<INTERNAL>");
2128                 total_warnings_=0;
2129                 xmlpp::DomParser parser;
2130                 parser.parse_memory(data);
2131                 xmlpp::Element *root=parser.get_document()->get_root_node();
2132                 if(parser)
2133                 {
2134                         Canvas::Handle canvas(parse_canvas(root));
2135                         canvas->signal_deleted().connect(sigc::bind(sigc::ptr_fun(_remove_from_open_canvas_map),canvas.get()));
2136                         canvas->signal_file_name_changed().connect(sigc::bind(sigc::ptr_fun(_canvas_file_name_changed),canvas.get()));
2137
2138                         const ValueNodeList& value_node_list(canvas->value_node_list());
2139                         again:
2140                         ValueNodeList::const_iterator iter;
2141                         for(iter=value_node_list.begin();iter!=value_node_list.end();++iter)
2142                         {
2143                                 ValueNode::Handle value_node(*iter);
2144                                 if(value_node->is_exported() && value_node->get_id().find("Unnamed")==0)
2145                                 {
2146                                         canvas->remove_value_node(value_node);
2147                                         goto again;
2148                                 }
2149                         }
2150
2151                         return canvas;
2152                 }
2153         }
2154         catch(Exception::BadLinkName) { synfig::error("BadLinkName Thrown"); }
2155         catch(Exception::BadType) { synfig::error("BadType Thrown"); }
2156         catch(Exception::FileNotFound) { synfig::error("FileNotFound Thrown"); }
2157         catch(Exception::IDNotFound) { synfig::error("IDNotFound Thrown"); }
2158         catch(Exception::IDAlreadyExists) { synfig::error("IDAlreadyExists Thrown"); }
2159         catch(const std::exception& ex)
2160         {
2161                 synfig::error("Standard Exception: "+String(ex.what()));
2162                 return Canvas::Handle();
2163         }
2164         catch(const String& str)
2165         {
2166                 cerr<<str<<endl;
2167                 //      synfig::error(str);
2168                 return Canvas::Handle();
2169         }
2170         return Canvas::Handle();
2171 }