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