synfig-core/tags/synfig_0_61_05/synfig-core/src/synfig/loadcanvas.cpp

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