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