asxparser.c

   1 #include "config.h"
   2
   3 #include <stdlib.h>
   4 #include <stdio.h>
   5 #include <stdarg.h>
   6 #include <string.h>
   7 #include <unistd.h>
   8
   9 #include "playtree.h"
  10 #include "playtreeparser.h"
  11 #include "stream/stream.h"
  12 #include "libmpdemux/demuxer.h"
  13 #include "asxparser.h"
  14 #include "mp_msg.h"
  15 #include "m_config.h"
  16
  17 ////// List utils
  18
  19 void
  20 asx_list_add(void* list_ptr,void* entry){
  21   void** list = *(void***)list_ptr;
  22   int c = 0;
  23
  24   if(list != NULL)
  25     for( ; list[c] != NULL; c++) ;
  26
  27   list = (void*)realloc(list,sizeof(void*)*(c+2));
  28
  29   list[c] = entry;
  30   list[c+1] = NULL;
  31
  32   *(void***)list_ptr = list;
  33 }
  34
  35
  36 void
  37 asx_list_remove(void* list_ptr,void* entry,ASX_FreeFunc free_func) {
  38   void** list = *(void***)list_ptr;
  39   int c,e = -1;
  40
  41   if(list == NULL) return;
  42
  43   for(c = 0 ; list[c] != NULL; c++){
  44     if(list[c] == entry) e = c;
  45   }
  46
  47   if(e == -1) return; // Not found
  48
  49   if(free_func != NULL) free_func(list[e]);
  50
  51   if(c == 1) { // Only one entry, we drop all
  52     free(list);
  53     *(void**)list_ptr = NULL;
  54     return;
  55   }
  56
  57   if(c > e) // If c==e the memmove is not needed
  58     memmove(list+e,list+e+1,(c-e)*sizeof(void*));
  59
  60   list = (void*)realloc(list,(c-1)*sizeof(void*));
  61   list[c-1] = NULL;
  62
  63   *(void***)list_ptr = list;
  64 }
  65
  66 void
  67 asx_list_free(void* list_ptr,ASX_FreeFunc free_func) {
  68   void** ptr = *(void***)list_ptr;
  69   if(ptr == NULL) return;
  70   if(free_func != NULL) {
  71     for( ; *ptr != NULL ; ptr++)
  72       free_func(*ptr);
  73   }
  74   free(*(void**)list_ptr);
  75   *(void**)list_ptr = NULL;
  76 }
  77
  78 /////// Attribs utils
  79
  80 char*
  81 asx_get_attrib(const char* attrib,char** attribs) {
  82   char** ptr;
  83
  84   if(attrib == NULL || attribs == NULL) return NULL;
  85   for(ptr = attribs; ptr[0] != NULL; ptr += 2){
  86     if(strcasecmp(ptr[0],attrib) == 0)
  87       return strdup(ptr[1]);
  88   }
  89   return NULL;
  90 }
  91
  92 int
  93 asx_attrib_to_enum(const char* val,char** valid_vals) {
  94   char** ptr;
  95   int r = 0;
  96
  97   if(valid_vals == NULL || val == NULL) return -2;
  98   for(ptr = valid_vals ; ptr[0] != NULL ; ptr++) {
  99     if(strcasecmp(val,ptr[0]) == 0) return r;
 100     r++;
 101   }
 102
 103   return -1;
 104 }
 105
 106 #define asx_warning_attrib_required(p,e,a) mp_msg(MSGT_PLAYTREE,MSGL_WARN,"At line %d : element %s don't have the required attribute %s",p->line,e,a)
 107 #define asx_warning_body_parse_error(p,e) mp_msg(MSGT_PLAYTREE,MSGL_WARN,"At line %d : error while parsing %s body",p->line,e)
 108
 109 ASX_Parser_t*
 110 asx_parser_new(struct m_config *mconfig)
 111 {
 112   ASX_Parser_t* parser = calloc(1,sizeof(ASX_Parser_t));
 113   parser->mconfig = mconfig;
 114   return parser;
 115 }
 116
 117 void
 118 asx_parser_free(ASX_Parser_t* parser) {
 119   if(!parser) return;
 120   if(parser->ret_stack) free(parser->ret_stack);
 121   free(parser);
 122
 123 }
 124
 125 #define LETTER "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
 126 #define SPACE " \n\t\r"
 127
 128 int
 129 asx_parse_attribs(ASX_Parser_t* parser,char* buffer,char*** _attribs) {
 130   char *ptr1, *ptr2, *ptr3;
 131   int n_attrib = 0;
 132   char **attribs = NULL;
 133   char *attrib, *val;
 134
 135   ptr1 = buffer;
 136   while(1) {
 137     for( ; strchr(SPACE,*ptr1) != NULL; ptr1++) { // Skip space
 138       if(*ptr1 == '\0') break;
 139     }
 140     ptr3 = strchr(ptr1,'=');
 141     if(ptr3 == NULL) break;
 142     for(ptr2 = ptr3-1; strchr(SPACE,*ptr2) != NULL; ptr2--) {
 143       if (ptr2 == ptr1) {
 144         mp_msg(MSGT_PLAYTREE,MSGL_ERR,"At line %d : this should never append, back to attribute begin while skipping end space",parser->line);
 145         break;
 146       }
 147     }
 148     attrib = malloc(ptr2-ptr1+2);
 149     strncpy(attrib,ptr1,ptr2-ptr1+1);
 150     attrib[ptr2-ptr1+1] = '\0';
 151
 152     ptr1 = strchr(ptr3,'"');
 153     if(ptr1 == NULL || ptr1[1] == '\0') ptr1 = strchr(ptr3,'\'');
 154     if(ptr1 == NULL || ptr1[1] == '\0') {
 155       mp_msg(MSGT_PLAYTREE,MSGL_WARN,"At line %d : can't find attribute %s value",parser->line,attrib);
 156       free(attrib);
 157       break;
 158     }
 159     ptr2 = strchr(ptr1+1,ptr1[0]);
 160     if (ptr2 == NULL) {
 161       mp_msg(MSGT_PLAYTREE,MSGL_WARN,"At line %d : value of attribute %s isn't finished",parser->line,attrib);
 162       free(attrib);
 163       break;
 164     }
 165     ptr1++;
 166     val = malloc(ptr2-ptr1+1);
 167     strncpy(val,ptr1,ptr2-ptr1);
 168     val[ptr2-ptr1] = '\0';
 169     n_attrib++;
 170
 171     attribs = (char**)realloc(attribs,(2*n_attrib+1)*sizeof(char*));
 172     attribs[n_attrib*2-2] = attrib;
 173     attribs[n_attrib*2-1] = val;
 174
 175     ptr1 = ptr2+1;
 176   }
 177
 178   if(n_attrib > 0)
 179     attribs[n_attrib*2] = NULL;
 180
 181   *_attribs = attribs;
 182
 183   return n_attrib;
 184 }
 185
 186 /*
 187  * Return -1 on error, 0 when nothing is found, 1 on sucess
 188  */
 189 int
 190 asx_get_element(ASX_Parser_t* parser,char** _buffer,
 191                 char** _element,char** _body,char*** _attribs) {
 192   char *ptr1,*ptr2, *ptr3, *ptr4;
 193   char *attribs = NULL;
 194   char *element = NULL, *body = NULL, *ret = NULL, *buffer;
 195   int n_attrib = 0;
 196   int body_line = 0,attrib_line,ret_line,in = 0;
 197   int quotes = 0;
 198
 199   if(_buffer == NULL || _element == NULL || _body == NULL || _attribs == NULL) {
 200     mp_msg(MSGT_PLAYTREE,MSGL_ERR,"At line %d : asx_get_element called with invalid value",parser->line);
 201     return -1;
 202   }
 203
 204   *_body = *_element = NULL;
 205   *_attribs =  NULL;
 206   buffer = *_buffer;
 207
 208   if(buffer == NULL) return 0;
 209
 210   if(parser->ret_stack && /*parser->last_body && */buffer != parser->last_body) {
 211     ASX_LineSave_t* ls = parser->ret_stack;
 212     int i;
 213     for(i = 0 ; i < parser->ret_stack_size ; i++) {
 214       if(buffer == ls[i].buffer) {
 215         parser->line = ls[i].line;
 216         break;
 217       }
 218
 219     }
 220     if( i < parser->ret_stack_size) {
 221       i++;
 222       if( i < parser->ret_stack_size)
 223         memmove(parser->ret_stack,parser->ret_stack+i, (parser->ret_stack_size - i)*sizeof(ASX_LineSave_t));
 224       parser->ret_stack_size -= i;
 225       if(parser->ret_stack_size > 0)
 226         parser->ret_stack = (ASX_LineSave_t*)realloc(parser->ret_stack,parser->ret_stack_size*sizeof(ASX_LineSave_t));
 227       else {
 228         free(parser->ret_stack);
 229         parser->ret_stack = NULL;
 230       }
 231     }
 232   }
 233
 234   ptr1 = buffer;
 235   while(1) {
 236     for( ; ptr1[0] != '<' ; ptr1++) {
 237       if(ptr1[0] == '\0') {
 238         ptr1 = NULL;
 239         break;
 240       }
 241       if(ptr1[0] == '\n') parser->line++;
 242     }
 243     //ptr1 = strchr(ptr1,'<');
 244     if(!ptr1 || ptr1[1] == '\0') return 0; // Nothing found
 245
 246     if(strncmp(ptr1,"<!--",4) == 0) { // Comments
 247       for( ; strncmp(ptr1,"-->",3) != 0 ; ptr1++) {
 248         if(ptr1[0] == '\0') {
 249           ptr1 = NULL;
 250           break;
 251         }
 252         if(ptr1[0] == '\n') parser->line++;
 253       }
 254       //ptr1 = strstr(ptr1,"-->");
 255       if(!ptr1) {
 256         mp_msg(MSGT_PLAYTREE,MSGL_ERR,"At line %d : unfinished comment",parser->line);
 257         return -1;
 258       }
 259     } else {
 260       break;
 261     }
 262   }
 263
 264   // Is this space skip very useful ??
 265   for(ptr1++; strchr(SPACE,ptr1[0]) != NULL; ptr1++) { // Skip space
 266     if(ptr1[0] == '\0') {
 267       mp_msg(MSGT_PLAYTREE,MSGL_ERR,"At line %d : EOB reached while parsing element start",parser->line);
 268       return -1;
 269     }
 270     if(ptr1[0] == '\n') parser->line++;
 271   }
 272
 273   for(ptr2 = ptr1; strchr(LETTER,*ptr2) != NULL;ptr2++) { // Go to end of name
 274     if(*ptr2 == '\0'){
 275       mp_msg(MSGT_PLAYTREE,MSGL_ERR,"At line %d : EOB reached while parsing element start",parser->line);
 276       return -1;
 277     }
 278     if(ptr2[0] == '\n') parser->line++;
 279   }
 280
 281   element = malloc(ptr2-ptr1+1);
 282   strncpy(element,ptr1,ptr2-ptr1);
 283   element[ptr2-ptr1] = '\0';
 284
 285   for( ; strchr(SPACE,*ptr2) != NULL; ptr2++) { // Skip space
 286     if(ptr2[0] == '\0') {
 287       mp_msg(MSGT_PLAYTREE,MSGL_ERR,"At line %d : EOB reached while parsing element start",parser->line);
 288       free(element);
 289       return -1;
 290     }
 291     if(ptr2[0] == '\n') parser->line++;
 292   }
 293   attrib_line = parser->line;
 294
 295
 296
 297   for(ptr3 = ptr2; ptr3[0] != '\0'; ptr3++) { // Go to element end
 298     if(ptr3[0] == '"') quotes ^= 1;
 299     if(!quotes && (ptr3[0] == '>' || strncmp(ptr3,"/>",2) == 0))
 300       break;
 301     if(ptr3[0] == '\n') parser->line++;
 302   }
 303   if(ptr3[0] == '\0' || ptr3[1] == '\0') { // End of file
 304     mp_msg(MSGT_PLAYTREE,MSGL_ERR,"At line %d : EOB reached while parsing element start",parser->line);
 305     free(element);
 306     return -1;
 307   }
 308
 309   // Save attribs string
 310   if(ptr3-ptr2 > 0) {
 311     attribs = malloc(ptr3-ptr2+1);
 312     strncpy(attribs,ptr2,ptr3-ptr2);
 313     attribs[ptr3-ptr2] = '\0';
 314   }
 315   //bs_line = parser->line;
 316   if(ptr3[0] != '/') { // Not Self closed element
 317     ptr3++;
 318     for( ; strchr(SPACE,*ptr3) != NULL; ptr3++) { // Skip space on body begin
 319       if(*ptr3 == '\0') {
 320         mp_msg(MSGT_PLAYTREE,MSGL_ERR,"At line %d : EOB reached while parsing %s element body",parser->line,element);
 321         free(element);
 322         if(attribs) free(attribs);
 323         return -1;
 324       }
 325       if(ptr3[0] == '\n') parser->line++;
 326     }
 327     ptr4 = ptr3;
 328     body_line = parser->line;
 329     while(1) { // Find closing element
 330       for( ; ptr4[0] != '<' ; ptr4++) {
 331         if(ptr4[0] == '\0') {
 332           ptr4 = NULL;
 333           break;
 334         }
 335         if(ptr4[0] == '\n') parser->line++;
 336       }
 337       if(ptr4 && strncmp(ptr4,"<!--",4) == 0) { // Comments
 338         for( ; strncmp(ptr4,"-->",3) != 0 ; ptr4++) {
 339         if(ptr4[0] == '\0') {
 340           ptr4 = NULL;
 341           break;
 342         }
 343         if(ptr1[0] == '\n') parser->line++;
 344         }
 345         continue;
 346       }
 347       if(ptr4 == NULL || ptr4[1] == '\0') {
 348         mp_msg(MSGT_PLAYTREE,MSGL_ERR,"At line %d : EOB reached while parsing %s element body",parser->line,element);
 349         free(element);
 350         if(attribs) free(attribs);
 351         return -1;
 352       }
 353       if(ptr4[1] != '/' && strncasecmp(element,ptr4+1,strlen(element)) == 0) {
 354         in++;
 355         ptr4+=2;
 356         continue;
 357       } else if(strncasecmp(element,ptr4+2,strlen(element)) == 0) { // Extract body
 358         if(in > 0) {
 359           in--;
 360           ptr4 += 2+strlen(element);
 361           continue;
 362         }
 363         ret = ptr4+strlen(element)+3;
 364         if(ptr4 != ptr3) {
 365           ptr4--;
 366           for( ; ptr4 != ptr3 && strchr(SPACE,*ptr4) != NULL; ptr4--) ;// Skip space on body end
 367           //        if(ptr4[0] == '\0') parser->line--;
 368           //}
 369           ptr4++;
 370           body = malloc(ptr4-ptr3+1);
 371           strncpy(body,ptr3,ptr4-ptr3);
 372           body[ptr4-ptr3] = '\0';
 373         }
 374         break;
 375       } else {
 376         ptr4 += 2;
 377       }
 378     }
 379   } else {
 380     ret = ptr3 + 2; // 2 is for />
 381   }
 382
 383   for( ; ret[0] != '\0' && strchr(SPACE,ret[0]) != NULL; ret++) { // Skip space
 384     if(ret[0] == '\n') parser->line++;
 385   }
 386
 387   ret_line = parser->line;
 388
 389   if(attribs) {
 390     parser->line = attrib_line;
 391     n_attrib = asx_parse_attribs(parser,attribs,_attribs);
 392     free(attribs);
 393     if(n_attrib < 0) {
 394       mp_msg(MSGT_PLAYTREE,MSGL_WARN,"At line %d : error while parsing element %s attributes",parser->line,element);
 395       free(element);
 396       free(body);
 397       return -1;
 398     }
 399   } else
 400     *_attribs = NULL;
 401
 402   *_element = element;
 403   *_body = body;
 404
 405   parser->last_body = body;
 406   parser->ret_stack_size++;
 407   parser->ret_stack = (ASX_LineSave_t*)realloc(parser->ret_stack,parser->ret_stack_size*sizeof(ASX_LineSave_t));
 408   if(parser->ret_stack_size > 1)
 409     memmove(parser->ret_stack+1,parser->ret_stack,(parser->ret_stack_size-1)*sizeof(ASX_LineSave_t));
 410   parser->ret_stack[0].buffer = ret;
 411   parser->ret_stack[0].line = ret_line;
 412   parser->line = body ? body_line : ret_line;
 413
 414   *_buffer = ret;
 415   return 1;
 416
 417 }
 418
 419 static void
 420 asx_parse_param(ASX_Parser_t* parser, char** attribs, play_tree_t* pt) {
 421   char *name,*val;
 422
 423   name = asx_get_attrib("NAME",attribs);
 424   if(!name) {
 425     asx_warning_attrib_required(parser,"PARAM" ,"NAME" );
 426     return;
 427   }
 428   val = asx_get_attrib("VALUE",attribs);
 429   if(m_config_get_option(parser->mconfig,name) == NULL) {
 430     mp_msg(MSGT_PLAYTREE,MSGL_WARN,"Found unknown param in asx: %s",name);
 431     if(val)
 432       mp_msg(MSGT_PLAYTREE,MSGL_WARN,"=%s\n",val);
 433     else
 434       mp_msg(MSGT_PLAYTREE,MSGL_WARN,"\n");
 435     return;
 436   }
 437   play_tree_set_param(pt,name,val);
 438   free(name);
 439   if(val) free(val);
 440 }
 441
 442 static void
 443 asx_parse_ref(ASX_Parser_t* parser, char** attribs, play_tree_t* pt) {
 444   char *href;
 445
 446   href = asx_get_attrib("HREF",attribs);
 447   if(href == NULL) {
 448     asx_warning_attrib_required(parser,"REF" ,"HREF" );
 449     return;
 450   }
 451 #if 0
 452   // replace http my mmshttp to avoid infinite loops
 453   // disabled since some playlists for e.g. WinAMP use asx as well
 454   // "-user-agent NSPlayer/4.1.0.3856" is a possible workaround
 455   if (strncmp(href, "http://", 7) == 0) {
 456     char *newref = malloc(3 + strlen(href) + 1);
 457     strcpy(newref, "mms");
 458     strcpy(newref + 3, href);
 459     free(href);
 460     href = newref;
 461   }
 462 #endif
 463
 464   play_tree_add_file(pt,href);
 465
 466   mp_msg(MSGT_PLAYTREE,MSGL_V,"Adding file %s to element entry\n",href);
 467
 468   free(href);
 469
 470 }
 471
 472 static play_tree_t*
 473 asx_parse_entryref(ASX_Parser_t* parser,char* buffer,char** _attribs) {
 474   play_tree_t* pt;
 475   char *href;
 476   stream_t* stream;
 477   play_tree_parser_t* ptp;
 478   int f=DEMUXER_TYPE_UNKNOWN;
 479
 480   if(parser->deep > 0)
 481     return NULL;
 482
 483   href = asx_get_attrib("HREF",_attribs);
 484   if(href == NULL) {
 485     asx_warning_attrib_required(parser,"ENTRYREF" ,"HREF" );
 486     return NULL;
 487   }
 488   stream=open_stream(href,0,&f);
 489   if(!stream) {
 490     mp_msg(MSGT_PLAYTREE,MSGL_WARN,"Can't open playlist %s\n",href);
 491     free(href);
 492     return NULL;
 493   }
 494
 495   mp_msg(MSGT_PLAYTREE,MSGL_V,"Adding playlist %s to element entryref\n",href);
 496
 497   ptp = play_tree_parser_new(stream, parser->mconfig, parser->deep+1);
 498
 499   pt = play_tree_parser_get_play_tree(ptp, 1);
 500
 501   play_tree_parser_free(ptp);
 502   free_stream(stream);
 503   free(href);
 504   //mp_msg(MSGT_PLAYTREE,MSGL_INFO,"Need to implement entryref\n");
 505
 506   return pt;
 507 }
 508
 509 static play_tree_t*
 510 asx_parse_entry(ASX_Parser_t* parser,char* buffer,char** _attribs) {
 511   char *element,*body,**attribs;
 512   int r,nref=0;
 513   play_tree_t *ref;
 514
 515   ref = play_tree_new();
 516
 517   while(buffer && buffer[0] != '\0') {
 518     r = asx_get_element(parser,&buffer,&element,&body,&attribs);
 519     if(r < 0) {
 520       asx_warning_body_parse_error(parser,"ENTRY");
 521       return NULL;
 522     } else if (r == 0) { // No more element
 523       break;
 524     }
 525     if(strcasecmp(element,"REF") == 0) {
 526       asx_parse_ref(parser,attribs,ref);
 527       mp_msg(MSGT_PLAYTREE,MSGL_DBG2,"Adding element %s to entry\n",element);
 528       nref++;
 529     } else
 530       mp_msg(MSGT_PLAYTREE,MSGL_DBG2,"Ignoring element %s\n",element);
 531     if(body) free(body);
 532     asx_free_attribs(attribs);
 533   }
 534
 535   if(nref <= 0) {
 536     play_tree_free(ref,1);
 537     return NULL;
 538   }
 539   return ref;
 540
 541 }
 542
 543
 544 static play_tree_t*
 545 asx_parse_repeat(ASX_Parser_t* parser,char* buffer,char** _attribs) {
 546   char *element,*body,**attribs;
 547   play_tree_t *repeat, *list=NULL, *entry;
 548   char* count;
 549   int r;
 550
 551   repeat = play_tree_new();
 552
 553   count = asx_get_attrib("COUNT",_attribs);
 554   if(count == NULL) {
 555     mp_msg(MSGT_PLAYTREE,MSGL_DBG2,"Setting element repeat loop to infinit\n");
 556     repeat->loop = -1; // Infinit
 557   } else {
 558     repeat->loop = atoi(count);
 559     free(count);
 560     if(repeat->loop == 0) repeat->loop = 1;
 561     mp_msg(MSGT_PLAYTREE,MSGL_DBG2,"Setting element repeat loop to %d\n",repeat->loop);
 562   }
 563
 564   while(buffer && buffer[0] != '\0') {
 565     r = asx_get_element(parser,&buffer,&element,&body,&attribs);
 566     if(r < 0) {
 567       asx_warning_body_parse_error(parser,"REPEAT");
 568       return NULL;
 569     } else if (r == 0) { // No more element
 570       break;
 571     }
 572     if(strcasecmp(element,"ENTRY") == 0) {
 573        entry = asx_parse_entry(parser,body,attribs);
 574        if(entry) {
 575          if(!list) list =  entry;
 576          else play_tree_append_entry(list,entry);
 577          mp_msg(MSGT_PLAYTREE,MSGL_DBG2,"Adding element %s to repeat\n",element);
 578        }
 579     } else if(strcasecmp(element,"ENTRYREF") == 0) {
 580        entry = asx_parse_entryref(parser,body,attribs);
 581        if(entry) {
 582          if(!list) list =  entry;
 583          else play_tree_append_entry(list,entry);
 584          mp_msg(MSGT_PLAYTREE,MSGL_DBG2,"Adding element %s to repeat\n",element);
 585        }
 586      } else if(strcasecmp(element,"REPEAT") == 0) {
 587        entry = asx_parse_repeat(parser,body,attribs);
 588        if(entry) {
 589          if(!list) list =  entry;
 590          else play_tree_append_entry(list,entry);
 591          mp_msg(MSGT_PLAYTREE,MSGL_DBG2,"Adding element %s to repeat\n",element);
 592        }
 593      } else if(strcasecmp(element,"PARAM") == 0) {
 594        asx_parse_param(parser,attribs,repeat);
 595      } else
 596        mp_msg(MSGT_PLAYTREE,MSGL_DBG2,"Ignoring element %s\n",element);
 597     if(body) free(body);
 598      asx_free_attribs(attribs);
 599   }
 600
 601   if(!list) {
 602     play_tree_free(repeat,1);
 603     return NULL;
 604   }
 605   play_tree_set_child(repeat,list);
 606
 607   return repeat;
 608
 609 }
 610
 611
 612
 613 play_tree_t*
 614 asx_parser_build_tree(struct m_config *mconfig, char* buffer,int deep) {
 615   char *element,*asx_body,**asx_attribs,*body = NULL, **attribs;
 616   int r;
 617   play_tree_t *asx,*entry,*list = NULL;
 618   ASX_Parser_t* parser = asx_parser_new(mconfig);
 619
 620   parser->line = 1;
 621   parser->deep = deep;
 622
 623    r = asx_get_element(parser,&buffer,&element,&asx_body,&asx_attribs);
 624   if(r < 0) {
 625     mp_msg(MSGT_PLAYTREE,MSGL_ERR,"At line %d : Syntax error ???",parser->line);
 626     asx_parser_free(parser);
 627     return NULL;
 628   } else if(r == 0) { // No contents
 629     mp_msg(MSGT_PLAYTREE,MSGL_ERR,"empty asx element");
 630     asx_parser_free(parser);
 631     return NULL;
 632   }
 633
 634   if(strcasecmp(element,"ASX") != 0) {
 635     mp_msg(MSGT_PLAYTREE,MSGL_ERR,"first element isn't ASX, it's %s\n",element);
 636     asx_free_attribs(asx_attribs);
 637     asx_parser_free(parser);
 638     return NULL;
 639   }
 640
 641   if(!asx_body) {
 642     mp_msg(MSGT_PLAYTREE,MSGL_ERR,"ASX element is empty");
 643     asx_free_attribs(asx_attribs);
 644     asx_parser_free(parser);
 645     return NULL;
 646   }
 647
 648   asx = play_tree_new();
 649   buffer = asx_body;
 650   while(buffer && buffer[0] != '\0') {
 651     r = asx_get_element(parser,&buffer,&element,&body,&attribs);
 652      if(r < 0) {
 653        asx_warning_body_parse_error(parser,"ASX");
 654        asx_parser_free(parser);
 655        return NULL;
 656      } else if (r == 0) { // No more element
 657        break;
 658      }
 659      if(strcasecmp(element,"ENTRY") == 0) {
 660        entry = asx_parse_entry(parser,body,attribs);
 661        if(entry) {
 662          if(!list) list =  entry;
 663          else play_tree_append_entry(list,entry);
 664          mp_msg(MSGT_PLAYTREE,MSGL_DBG2,"Adding element %s to asx\n",element);
 665        }
 666      } else if(strcasecmp(element,"ENTRYREF") == 0) {
 667        entry = asx_parse_entryref(parser,body,attribs);
 668        if(entry) {
 669          if(!list) list =  entry;
 670          else play_tree_append_entry(list,entry);
 671          mp_msg(MSGT_PLAYTREE,MSGL_DBG2,"Adding element %s to asx\n",element);
 672        }
 673      } else if(strcasecmp(element,"REPEAT") == 0) {
 674        entry = asx_parse_repeat(parser,body,attribs);
 675        if(entry) {
 676          if(!list) list =  entry;
 677          else play_tree_append_entry(list,entry);
 678          mp_msg(MSGT_PLAYTREE,MSGL_DBG2,"Adding element %s to asx\n",element);
 679        }
 680      } else
 681        mp_msg(MSGT_PLAYTREE,MSGL_DBG2,"Ignoring element %s\n",element);
 682      if(body) free(body);
 683      asx_free_attribs(attribs);
 684   }
 685
 686   free(asx_body);
 687   asx_free_attribs(asx_attribs);
 688   asx_parser_free(parser);
 689
 690
 691   if(!list) {
 692     play_tree_free(asx,1);
 693
 694     return NULL;
 695   }
 696
 697   play_tree_set_child(asx,list);
 698
 699   return asx;
 700 }