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