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