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