]> git.sesse.net Git - vlc/blob - src/playlist/engine.c
f22d76036ed3cc705e525123732f845d169e04d6
[vlc] / src / playlist / engine.c
1 /*****************************************************************************
2  * engine.c : Run the playlist and handle its control
3  *****************************************************************************
4  * Copyright (C) 1999-2008 the VideoLAN team
5  *
6  * Authors: Samuel Hocevar <sam@zoy.org>
7  *          ClĂ©ment Stenac <zorglub@videolan.org>
8  *
9  * This program is free software; you can redistribute it and/or modify
10  * it under the terms of the GNU General Public License as published by
11  * the Free Software Foundation; either version 2 of the License, or
12  * (at your option) any later version.
13  *
14  * This program is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17  * GNU General Public License for more details.
18  *
19  * You should have received a copy of the GNU General Public License
20  * along with this program; if not, write to the Free Software
21  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
22  *****************************************************************************/
23
24 #ifdef HAVE_CONFIG_H
25 # include "config.h"
26 #endif
27
28 #include <assert.h>
29 #include <vlc_common.h>
30 #include <vlc_sout.h>
31 #include <vlc_playlist.h>
32 #include <vlc_interface.h>
33 #include "playlist_internal.h"
34 #include "stream_output/stream_output.h" /* sout_DeleteInstance */
35
36 /*****************************************************************************
37  * Local prototypes
38  *****************************************************************************/
39 static void VariablesInit( playlist_t *p_playlist );
40 static void playlist_Destructor( vlc_object_t * p_this );
41 static void playlist_Destructor( vlc_object_t * p_this );
42
43 static int RandomCallback( vlc_object_t *p_this, char const *psz_cmd,
44                            vlc_value_t oldval, vlc_value_t newval, void *a )
45 {
46     (void)psz_cmd; (void)oldval; (void)newval; (void)a;
47
48     ((playlist_t*)p_this)->b_reset_currently_playing = true;
49     playlist_Signal( ((playlist_t*)p_this) );
50     return VLC_SUCCESS;
51 }
52
53 /**
54  * Create playlist
55  *
56  * Create a playlist structure.
57  * \param p_parent the vlc object that is to be the parent of this playlist
58  * \return a pointer to the created playlist, or NULL on error
59  */
60 playlist_t * playlist_Create( vlc_object_t *p_parent )
61 {
62     static const char playlist_name[] = "playlist";
63     playlist_t *p_playlist;
64     bool b_save;
65
66     /* Allocate structure */
67     p_playlist = vlc_custom_create( p_parent, sizeof( *p_playlist ),
68                                     VLC_OBJECT_GENERIC, playlist_name );
69     if( !p_playlist )
70         return NULL;
71
72     TAB_INIT( p_playlist->i_sds, p_playlist->pp_sds );
73
74     libvlc_priv(p_parent->p_libvlc)->p_playlist = p_playlist;
75
76     VariablesInit( p_playlist );
77
78     /* Initialise data structures */
79     vlc_mutex_init( &p_playlist->gc_lock );
80     p_playlist->i_last_playlist_id = 0;
81     p_playlist->p_input = NULL;
82
83     p_playlist->gc_date = 0;
84     p_playlist->b_cant_sleep = false;
85
86     ARRAY_INIT( p_playlist->items );
87     ARRAY_INIT( p_playlist->all_items );
88     ARRAY_INIT( p_playlist->current );
89
90     p_playlist->i_current_index = 0;
91     p_playlist->b_reset_currently_playing = true;
92     p_playlist->last_rebuild_date = 0;
93
94     p_playlist->b_tree = var_CreateGetBool( p_playlist, "playlist-tree" );
95
96     p_playlist->b_doing_ml = false;
97
98     p_playlist->b_auto_preparse =
99                         var_CreateGetBool( p_playlist, "auto-preparse" ) ;
100
101     p_playlist->p_root_category = playlist_NodeCreate( p_playlist, NULL, NULL,
102                                     0, NULL );
103     p_playlist->p_root_onelevel = playlist_NodeCreate( p_playlist, NULL, NULL,
104                                     0, p_playlist->p_root_category->p_input );
105
106     if( !p_playlist->p_root_category || !p_playlist->p_root_onelevel )
107         return NULL;
108
109     /* Create playlist and media library */
110     playlist_NodesPairCreate( p_playlist, _( "Playlist" ),
111                             &p_playlist->p_local_category,
112                             &p_playlist->p_local_onelevel, false );
113
114     p_playlist->p_local_category->i_flags |= PLAYLIST_RO_FLAG;
115     p_playlist->p_local_onelevel->i_flags |= PLAYLIST_RO_FLAG;
116
117     if( !p_playlist->p_local_category || !p_playlist->p_local_onelevel ||
118         !p_playlist->p_local_category->p_input ||
119         !p_playlist->p_local_onelevel->p_input )
120         return NULL;
121
122     if( config_GetInt( p_playlist, "media-library") )
123     {
124         playlist_NodesPairCreate( p_playlist, _( "Media Library" ),
125                             &p_playlist->p_ml_category,
126                             &p_playlist->p_ml_onelevel, false );
127
128         if(!p_playlist->p_ml_category || !p_playlist->p_ml_onelevel)
129             return NULL;
130
131         p_playlist->p_ml_category->i_flags |= PLAYLIST_RO_FLAG;
132         p_playlist->p_ml_onelevel->i_flags |= PLAYLIST_RO_FLAG;
133     }
134     else
135     {
136         p_playlist->p_ml_category = p_playlist->p_ml_onelevel = NULL;
137     }
138
139     /* Initial status */
140     p_playlist->status.p_item = NULL;
141     p_playlist->status.p_node = p_playlist->p_local_onelevel;
142     p_playlist->request.b_request = false;
143     p_playlist->status.i_status = PLAYLIST_STOPPED;
144
145     p_playlist->i_sort = SORT_ID;
146     p_playlist->i_order = ORDER_NORMAL;
147
148
149     b_save = p_playlist->b_auto_preparse;
150     p_playlist->b_auto_preparse = false;
151     playlist_MLLoad( p_playlist );
152     p_playlist->b_auto_preparse = true;
153
154     vlc_object_set_destructor( p_playlist, playlist_Destructor );
155
156     return p_playlist;
157 }
158
159 /**
160  * Destroy playlist
161  *
162  * Destroy a playlist structure.
163  * \param p_playlist the playlist object
164  * \return nothing
165  */
166
167 static void playlist_Destructor( vlc_object_t * p_this )
168 {
169     playlist_t * p_playlist = (playlist_t *)p_this;
170
171     if( p_playlist->p_preparse )
172         vlc_object_release( p_playlist->p_preparse );
173
174     if( p_playlist->p_fetcher )
175         vlc_object_release( p_playlist->p_fetcher );
176 #ifndef NDEBUG
177     libvlc_priv (p_this->p_libvlc)->p_playlist = NULL; /* pl_Yield() will fail */
178 #endif
179 }
180
181 /* Destroy remaining objects */
182 static void ObjectGarbageCollector( playlist_t *p_playlist, bool b_force )
183 {
184     vlc_object_t *p_obj;
185
186     if( !b_force )
187     {
188         if( mdate() - p_playlist->gc_date < 1000000 )
189         {
190             p_playlist->b_cant_sleep = true;
191             return;
192         }
193         else if( p_playlist->gc_date == 0 )
194             return;
195     }
196
197     vlc_mutex_lock( &p_playlist->gc_lock );
198     while( ( p_obj = vlc_object_find( p_playlist->p_libvlc, VLC_OBJECT_VOUT,
199                                                   FIND_CHILD ) ) )
200     {
201         vlc_object_release( p_obj );
202         if( p_obj->p_parent == VLC_OBJECT(p_playlist->p_libvlc) )
203         {
204             msg_Dbg( p_playlist, "garbage collector destroying 1 vout" );
205             vlc_object_release( p_obj ); /* Hmm, is this (thread-)safe?? */
206         }
207     }
208     p_playlist->b_cant_sleep = false;
209     vlc_mutex_unlock( &p_playlist->gc_lock );
210 }
211
212 /* Input Callback */
213 static void input_state_changed( const vlc_event_t * event, void * data )
214 {
215     (void)event;
216     playlist_t * p_playlist = data;
217     playlist_Signal( p_playlist );
218 }
219
220 /* Input Callback */
221 static void input_selected_stream_changed( const vlc_event_t * event, void * data )
222 {
223     (void)event;
224     playlist_t * p_playlist = data;
225     PL_LOCK;
226     p_playlist->gc_date = mdate();
227     vlc_object_signal_unlocked( p_playlist );
228     PL_UNLOCK;
229 }
230
231 /* Internals */
232 void playlist_release_current_input( playlist_t * p_playlist )
233 {
234     vlc_assert_locked( &(vlc_internals(p_playlist)->lock) );
235
236     if( !p_playlist->p_input ) return;
237
238     input_thread_t * p_input = p_playlist->p_input;
239     vlc_event_manager_t * p_em = input_get_event_manager( p_input );
240
241     vlc_event_detach( p_em, vlc_InputStateChanged,
242                       input_state_changed, p_playlist );
243     vlc_event_detach( p_em, vlc_InputSelectedStreamChanged,
244                       input_selected_stream_changed, p_playlist );
245     p_playlist->p_input = NULL;
246
247     /* Release the playlist lock, because we may get stuck
248      * in vlc_object_release() for some time. */
249     PL_UNLOCK;
250     vlc_object_release( p_input );
251     PL_LOCK;
252 }
253
254 void playlist_set_current_input(
255     playlist_t * p_playlist, input_thread_t * p_input )
256 {
257     vlc_assert_locked( &(vlc_internals(p_playlist)->lock) );
258
259     playlist_release_current_input( p_playlist );
260
261     if( p_input )
262     {
263         vlc_object_yield( p_input );
264         p_playlist->p_input = p_input;
265         vlc_event_manager_t * p_em = input_get_event_manager( p_input );
266         vlc_event_attach( p_em, vlc_InputStateChanged,
267                           input_state_changed, p_playlist );
268         vlc_event_attach( p_em, vlc_InputSelectedStreamChanged,
269                           input_selected_stream_changed, p_playlist );
270     }
271 }
272
273
274 /**
275  * @}
276  */
277
278 /**
279  * Main loop
280  *
281  * Main loop for the playlist
282  * \param p_playlist the playlist object
283  * \return nothing
284  */
285 void playlist_MainLoop( playlist_t *p_playlist )
286 {
287     playlist_item_t *p_item = NULL;
288     bool b_playexit = var_GetBool( p_playlist, "play-and-exit" );
289     PL_LOCK;
290
291     if( p_playlist->b_reset_currently_playing &&
292         mdate() - p_playlist->last_rebuild_date > 30000 ) // 30 ms
293     {
294         ResetCurrentlyPlaying( p_playlist, var_GetBool( p_playlist, "random" ),
295                              p_playlist->status.p_item );
296         p_playlist->last_rebuild_date = mdate();
297     }
298
299 check_input:
300     /* If there is an input, check that it doesn't need to die. */
301     if( p_playlist->p_input )
302     {
303         if( p_playlist->request.b_request && !p_playlist->p_input->b_die )
304         {
305             PL_DEBUG( "incoming request - stopping current input" );
306             input_StopThread( p_playlist->p_input );
307         }
308
309         /* This input is dead. Remove it ! */
310         if( p_playlist->p_input->b_dead )
311         {
312             int i_activity;
313             input_thread_t *p_input;
314             sout_instance_t **pp_sout =
315                 &libvlc_priv(p_playlist->p_libvlc)->p_sout;
316
317             PL_DEBUG( "dead input" );
318
319             p_input = p_playlist->p_input;
320
321             assert( *pp_sout == NULL );
322             if( var_CreateGetBool( p_input, "sout-keep" ) )
323                 *pp_sout = input_DetachSout( p_input );
324
325             /* Destroy input */
326             playlist_release_current_input( p_playlist );
327
328             p_playlist->gc_date = mdate();
329             p_playlist->b_cant_sleep = true;
330
331             if( p_playlist->status.p_item->i_flags
332                 & PLAYLIST_REMOVE_FLAG )
333             {
334                  PL_DEBUG( "%s was marked for deletion, deleting",
335                                  PLI_NAME( p_playlist->status.p_item  ) );
336                  playlist_ItemDelete( p_playlist->status.p_item );
337                  if( p_playlist->request.p_item == p_playlist->status.p_item )
338                      p_playlist->request.p_item = NULL;
339                  p_playlist->status.p_item = NULL;
340             }
341
342             i_activity= var_GetInteger( p_playlist, "activity" );
343             var_SetInteger( p_playlist, "activity", i_activity -
344                             DEFAULT_INPUT_ACTIVITY );
345
346             goto check_input;
347         }
348         /* This input is dying, let it do */
349         else if( p_playlist->p_input->b_die )
350         {
351             PL_DEBUG( "dying input" );
352             PL_UNLOCK;
353             msleep( INTF_IDLE_SLEEP );
354             PL_LOCK;
355             goto check_input;
356         }
357         /* This input has finished, ask it to die ! */
358         else if( p_playlist->p_input->b_error
359                   || p_playlist->p_input->b_eof )
360         {
361             PL_DEBUG( "finished input" );
362             input_StopThread( p_playlist->p_input );
363             /* No need to wait here, we'll wait in the p_input->b_die case */
364             goto check_input;
365         }
366         else if( p_playlist->p_input->i_state != INIT_S )
367         {
368             PL_UNLOCK;
369             ObjectGarbageCollector( p_playlist, false );
370             PL_LOCK;
371         }
372     }
373     else
374     {
375         /* No input. Several cases
376          *  - No request, running status -> start new item
377          *  - No request, stopped status -> collect garbage
378          *  - Request, running requested -> start new item
379          *  - Request, stopped requested -> collect garbage
380         */
381         int i_status = p_playlist->request.b_request ?
382             p_playlist->request.i_status : p_playlist->status.i_status;
383         if( i_status != PLAYLIST_STOPPED )
384         {
385             msg_Dbg( p_playlist, "starting new item" );
386             p_item = playlist_NextItem( p_playlist );
387
388             if( p_item == NULL )
389             {
390                 msg_Dbg( p_playlist, "nothing to play" );
391                 p_playlist->status.i_status = PLAYLIST_STOPPED;
392                 PL_UNLOCK;
393
394                 if( b_playexit == true )
395                 {
396                     msg_Info( p_playlist, "end of playlist, exiting" );
397                     vlc_object_kill( p_playlist->p_libvlc );
398                 }
399                 ObjectGarbageCollector( p_playlist, true );
400                 return;
401              }
402              playlist_PlayItem( p_playlist, p_item );
403          }
404          else
405          {
406             const bool b_gc_forced = p_playlist->status.i_status != PLAYLIST_STOPPED;
407
408             p_playlist->status.i_status = PLAYLIST_STOPPED;
409             if( p_playlist->status.p_item &&
410                 p_playlist->status.p_item->i_flags & PLAYLIST_REMOVE_FLAG )
411             {
412                 PL_DEBUG( "deleting item marked for deletion" );
413                 playlist_ItemDelete( p_playlist->status.p_item );
414                 p_playlist->status.p_item = NULL;
415             }
416
417             /* Collect garbage */
418             PL_UNLOCK;
419             ObjectGarbageCollector( p_playlist, b_gc_forced );
420             PL_LOCK;
421         }
422     }
423     PL_UNLOCK;
424 }
425
426 /**
427  * Last loop
428  *
429  * The playlist is dying so do the last loop
430  * \param p_playlist the playlist object
431  * \return nothing
432 */
433 void playlist_LastLoop( playlist_t *p_playlist )
434 {
435     vlc_object_t *p_obj;
436
437     /* If there is an input, kill it */
438     while( 1 )
439     {
440         PL_LOCK;
441         if( p_playlist->p_input == NULL )
442         {
443             PL_UNLOCK;
444             break;
445         }
446
447         if( p_playlist->p_input->b_dead )
448         {
449             /* remove input */
450             playlist_release_current_input( p_playlist );
451
452             /* sout-keep: no need to anything here.
453              * The last input will destroy its sout, if any, by itself */
454
455             PL_UNLOCK;
456             continue;
457         }
458         else if( p_playlist->p_input->b_die )
459         {
460             /* This input is dying, leave it alone */
461             ;
462         }
463         else if( p_playlist->p_input->b_error || p_playlist->p_input->b_eof )
464         {
465             input_StopThread( p_playlist->p_input );
466             PL_UNLOCK;
467             continue;
468         }
469         else
470         {
471             p_playlist->p_input->b_eof = 1;
472         }
473         PL_UNLOCK;
474
475         msleep( INTF_IDLE_SLEEP );
476     }
477
478 #ifdef ENABLE_SOUT
479     /* close the remaining sout-keep (if there was no input atm) */
480     sout_instance_t *p_sout = libvlc_priv (p_playlist->p_libvlc)->p_sout;
481     if (p_sout)
482         sout_DeleteInstance( p_sout );
483 #endif
484
485     /* Core should have terminated all SDs before the playlist */
486     /* TODO: It fails to do so when not playing anything -- Courmisch */
487     playlist_ServicesDiscoveryKillAll( p_playlist );
488     playlist_MLDump( p_playlist );
489
490     PL_LOCK;
491     FOREACH_ARRAY( playlist_item_t *p_del, p_playlist->all_items )
492         free( p_del->pp_children );
493         vlc_gc_decref( p_del->p_input );
494         free( p_del );
495     FOREACH_END();
496     ARRAY_RESET( p_playlist->all_items );
497
498     ARRAY_RESET( p_playlist->items );
499     ARRAY_RESET( p_playlist->current );
500
501     PL_UNLOCK;
502 }
503
504 /**
505  * Preparse loop
506  *
507  * Main loop for preparser queue
508  * \param p_obj items to preparse
509  * \return nothing
510  */
511 void playlist_PreparseLoop( playlist_preparse_t *p_obj )
512 {
513     playlist_t *p_playlist = (playlist_t *)p_obj->p_parent;
514     input_item_t *p_current;
515     int i_activity;
516
517     vlc_object_lock( p_obj );
518
519     while( vlc_object_alive( p_obj ) )
520     {
521         if( p_obj->i_waiting == 0 )
522         {
523             vlc_object_wait( p_obj );
524             continue;
525         }
526
527         p_current = p_obj->pp_waiting[0];
528         REMOVE_ELEM( p_obj->pp_waiting, p_obj->i_waiting, 0 );
529         vlc_object_unlock( p_obj );
530
531         PL_LOCK;
532         if( p_current )
533         {
534             if( p_current->i_type == ITEM_TYPE_FILE )
535             {
536                 stats_TimerStart( p_playlist, "Preparse run",
537                                   STATS_TIMER_PREPARSE );
538                 /* Do not preparse if it is already done (like by playing it) */
539                 if( !input_item_IsPreparsed( p_current ) )
540                 {
541                     PL_UNLOCK;
542                     input_Preparse( p_playlist, p_current );
543                     PL_LOCK;
544                 }
545                 stats_TimerStop( p_playlist, STATS_TIMER_PREPARSE );
546                 PL_UNLOCK;
547                 input_item_SetPreparsed( p_current, true );
548                 var_SetInteger( p_playlist, "item-change", p_current->i_id );
549                 PL_LOCK;
550             }
551             /* If we haven't retrieved enough meta, add to secondary queue
552              * which will run the "meta fetchers".
553              * This only checks for meta, not for art
554              * \todo don't do this for things we won't get meta for, like vids
555              */
556             char *psz_arturl = input_item_GetArtURL( p_current );
557             char *psz_name = input_item_GetName( p_current );
558             if( p_playlist->p_fetcher->i_art_policy == ALBUM_ART_ALL &&
559                         ( !psz_arturl || strncmp( psz_arturl, "file://", 7 ) ) )
560             {
561                 PL_DEBUG("meta ok for %s, need to fetch art", psz_name );
562                 vlc_object_lock( p_playlist->p_fetcher );
563                 INSERT_ELEM( p_playlist->p_fetcher->pp_waiting,
564                              p_playlist->p_fetcher->i_waiting,
565                              p_playlist->p_fetcher->i_waiting, p_current);
566                 vlc_object_signal_unlocked( p_playlist->p_fetcher );
567                 vlc_object_unlock( p_playlist->p_fetcher );
568             }
569             else
570             {
571                 PL_DEBUG( "no fetch required for %s (art currently %s)",
572                           psz_name, psz_arturl );
573                 vlc_gc_decref( p_current );
574             }
575             free( psz_name );
576             free( psz_arturl );
577             PL_UNLOCK;
578         }
579         else
580             PL_UNLOCK;
581
582         vlc_object_lock( p_obj );
583         i_activity = var_GetInteger( p_playlist, "activity" );
584         if( i_activity < 0 ) i_activity = 0;
585         vlc_object_unlock( p_obj );
586         /* Sleep at least 1ms */
587         msleep( (i_activity+1) * 1000 );
588         vlc_object_lock( p_obj );
589     }
590     vlc_object_unlock( p_obj );
591 }
592
593 /**
594  * Fetcher loop
595  *
596  * Main loop for secondary preparser queue
597  * \param p_obj items to preparse
598  * \return nothing
599  */
600 void playlist_FetcherLoop( playlist_fetcher_t *p_obj )
601 {
602     playlist_t *p_playlist = (playlist_t *)p_obj->p_parent;
603     input_item_t *p_item;
604     int i_activity;
605
606     vlc_object_lock( p_obj );
607
608     while( vlc_object_alive( p_obj ) )
609     {
610         if( p_obj->i_waiting == 0 )
611         {
612             vlc_object_wait( p_obj );
613             continue;
614         }
615
616         p_item = p_obj->pp_waiting[0];
617         REMOVE_ELEM( p_obj->pp_waiting, p_obj->i_waiting, 0 );
618         vlc_object_unlock( p_obj );
619         if( p_item )
620         {
621             int i_ret;
622
623             /* Check if it is not yet preparsed and if so wait for it (at most 0.5s)
624              * (This can happen if we fetch art on play)
625              * FIXME this doesn't work if we need to fetch meta before art ... */
626             for( i_ret = 0; i_ret < 10 && !input_item_IsPreparsed( p_item ); i_ret++ )
627             {
628                 bool b_break;
629                 PL_LOCK;
630                 b_break = ( !p_playlist->p_input || input_GetItem(p_playlist->p_input) != p_item  ||
631                             p_playlist->p_input->b_die || p_playlist->p_input->b_eof || p_playlist->p_input->b_error );
632                 PL_UNLOCK;
633                 if( b_break )
634                     break;
635                 msleep( 50000 );
636             }
637
638             i_ret = input_ArtFind( p_playlist, p_item );
639             if( i_ret == 1 )
640             {
641                 PL_DEBUG( "downloading art for %s", p_item->psz_name );
642                 if( input_DownloadAndCacheArt( p_playlist, p_item ) )
643                     input_item_SetArtNotFound( p_item, true );
644                 else {
645                     input_item_SetArtFetched( p_item, true );
646                     var_SetInteger( p_playlist, "item-change",
647                                     p_item->i_id );
648                 }
649             }
650             else if( i_ret == 0 ) /* Was in cache */
651             {
652                 PL_DEBUG( "found art for %s in cache", p_item->psz_name );
653                 input_item_SetArtFetched( p_item, true );
654                 var_SetInteger( p_playlist, "item-change", p_item->i_id );
655             }
656             else
657             {
658                 PL_DEBUG( "art not found for %s", p_item->psz_name );
659                 input_item_SetArtNotFound( p_item, true );
660             }
661             vlc_gc_decref( p_item );
662         }
663         vlc_object_lock( p_obj );
664         i_activity = var_GetInteger( p_playlist, "activity" );
665         if( i_activity < 0 ) i_activity = 0;
666         vlc_object_unlock( p_obj );
667         /* Sleep at least 1ms */
668         msleep( (i_activity+1) * 1000 );
669         vlc_object_lock( p_obj );
670     }
671     vlc_object_unlock( p_obj );
672 }
673
674 static void VariablesInit( playlist_t *p_playlist )
675 {
676     vlc_value_t val;
677     /* These variables control updates */
678     var_Create( p_playlist, "intf-change", VLC_VAR_BOOL );
679     val.b_bool = true;
680     var_Set( p_playlist, "intf-change", val );
681
682     var_Create( p_playlist, "item-change", VLC_VAR_INTEGER );
683     val.i_int = -1;
684     var_Set( p_playlist, "item-change", val );
685
686     var_Create( p_playlist, "item-deleted", VLC_VAR_INTEGER );
687     val.i_int = -1;
688     var_Set( p_playlist, "item-deleted", val );
689
690     var_Create( p_playlist, "item-append", VLC_VAR_ADDRESS );
691
692     var_Create( p_playlist, "playlist-current", VLC_VAR_INTEGER );
693     val.i_int = -1;
694     var_Set( p_playlist, "playlist-current", val );
695
696     var_Create( p_playlist, "activity", VLC_VAR_INTEGER );
697     var_SetInteger( p_playlist, "activity", 0 );
698
699     /* Variables to control playback */
700     var_CreateGetBool( p_playlist, "play-and-stop" );
701     var_CreateGetBool( p_playlist, "play-and-exit" );
702     var_CreateGetBool( p_playlist, "random" );
703     var_CreateGetBool( p_playlist, "repeat" );
704     var_CreateGetBool( p_playlist, "loop" );
705
706     var_AddCallback( p_playlist, "random", RandomCallback, NULL );
707 }