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

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