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

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