93b3bcd4c70ea4d1062b5828b7f03870bfb53cbd
[vlc.git] / 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     if( !b_force )
185     {
186         if( mdate() - p_playlist->gc_date < 1000000 )
187         {
188             p_playlist->b_cant_sleep = true;
189             return;
190         }
191         else if( p_playlist->gc_date == 0 )
192             return;
193     }
194
195     vlc_mutex_lock( &p_playlist->gc_lock );
196     p_playlist->b_cant_sleep = false;
197     vlc_mutex_unlock( &p_playlist->gc_lock );
198 }
199
200 /* Input Callback */
201 static void input_state_changed( const vlc_event_t * event, void * data )
202 {
203     (void)event;
204     playlist_t * p_playlist = data;
205     playlist_Signal( p_playlist );
206 }
207
208 /* Input Callback */
209 static void input_selected_stream_changed( const vlc_event_t * event, void * data )
210 {
211     (void)event;
212     playlist_t * p_playlist = data;
213     PL_LOCK;
214     p_playlist->gc_date = mdate();
215     vlc_object_signal_unlocked( p_playlist );
216     PL_UNLOCK;
217 }
218
219 /* Internals */
220 void playlist_release_current_input( playlist_t * p_playlist )
221 {
222     vlc_assert_locked( &(vlc_internals(p_playlist)->lock) );
223
224     if( !p_playlist->p_input ) return;
225
226     input_thread_t * p_input = p_playlist->p_input;
227     vlc_event_manager_t * p_em = input_get_event_manager( p_input );
228
229     vlc_event_detach( p_em, vlc_InputStateChanged,
230                       input_state_changed, p_playlist );
231     vlc_event_detach( p_em, vlc_InputSelectedStreamChanged,
232                       input_selected_stream_changed, p_playlist );
233     p_playlist->p_input = NULL;
234
235     /* Release the playlist lock, because we may get stuck
236      * in vlc_object_release() for some time. */
237     PL_UNLOCK;
238     vlc_object_release( p_input );
239     PL_LOCK;
240 }
241
242 void playlist_set_current_input(
243     playlist_t * p_playlist, input_thread_t * p_input )
244 {
245     vlc_assert_locked( &(vlc_internals(p_playlist)->lock) );
246
247     playlist_release_current_input( p_playlist );
248
249     if( p_input )
250     {
251         vlc_object_yield( p_input );
252         p_playlist->p_input = p_input;
253         vlc_event_manager_t * p_em = input_get_event_manager( p_input );
254         vlc_event_attach( p_em, vlc_InputStateChanged,
255                           input_state_changed, p_playlist );
256         vlc_event_attach( p_em, vlc_InputSelectedStreamChanged,
257                           input_selected_stream_changed, p_playlist );
258     }
259 }
260
261
262 /**
263  * @}
264  */
265
266 /**
267  * Main loop
268  *
269  * Main loop for the playlist
270  * \param p_playlist the playlist object
271  * \return nothing
272  */
273 void playlist_MainLoop( playlist_t *p_playlist )
274 {
275     playlist_item_t *p_item = NULL;
276     bool b_playexit = var_GetBool( p_playlist, "play-and-exit" );
277     PL_LOCK;
278
279     if( p_playlist->b_reset_currently_playing &&
280         mdate() - p_playlist->last_rebuild_date > 30000 ) // 30 ms
281     {
282         ResetCurrentlyPlaying( p_playlist, var_GetBool( p_playlist, "random" ),
283                              p_playlist->status.p_item );
284         p_playlist->last_rebuild_date = mdate();
285     }
286
287 check_input:
288     /* If there is an input, check that it doesn't need to die. */
289     if( p_playlist->p_input )
290     {
291         if( p_playlist->request.b_request && !p_playlist->p_input->b_die )
292         {
293             PL_DEBUG( "incoming request - stopping current input" );
294             input_StopThread( p_playlist->p_input );
295         }
296
297         /* This input is dead. Remove it ! */
298         if( p_playlist->p_input->b_dead )
299         {
300             int i_activity;
301             input_thread_t *p_input;
302             sout_instance_t **pp_sout =
303                 &libvlc_priv(p_playlist->p_libvlc)->p_sout;
304
305             PL_DEBUG( "dead input" );
306
307             p_input = p_playlist->p_input;
308
309             assert( *pp_sout == NULL );
310             if( var_CreateGetBool( p_input, "sout-keep" ) )
311                 *pp_sout = input_DetachSout( p_input );
312
313             /* Destroy input */
314             playlist_release_current_input( p_playlist );
315
316             p_playlist->gc_date = mdate();
317             p_playlist->b_cant_sleep = true;
318
319             if( p_playlist->status.p_item->i_flags
320                 & PLAYLIST_REMOVE_FLAG )
321             {
322                  PL_DEBUG( "%s was marked for deletion, deleting",
323                                  PLI_NAME( p_playlist->status.p_item  ) );
324                  playlist_ItemDelete( p_playlist->status.p_item );
325                  if( p_playlist->request.p_item == p_playlist->status.p_item )
326                      p_playlist->request.p_item = NULL;
327                  p_playlist->status.p_item = NULL;
328             }
329
330             i_activity= var_GetInteger( p_playlist, "activity" );
331             var_SetInteger( p_playlist, "activity", i_activity -
332                             DEFAULT_INPUT_ACTIVITY );
333
334             goto check_input;
335         }
336         /* This input is dying, let it do */
337         else if( p_playlist->p_input->b_die )
338         {
339             PL_DEBUG( "dying input" );
340             PL_UNLOCK;
341             msleep( INTF_IDLE_SLEEP );
342             PL_LOCK;
343             goto check_input;
344         }
345         /* This input has finished, ask it to die ! */
346         else if( p_playlist->p_input->b_error
347                   || p_playlist->p_input->b_eof )
348         {
349             PL_DEBUG( "finished input" );
350             input_StopThread( p_playlist->p_input );
351             /* No need to wait here, we'll wait in the p_input->b_die case */
352             goto check_input;
353         }
354         else if( p_playlist->p_input->i_state != INIT_S )
355         {
356             PL_UNLOCK;
357             ObjectGarbageCollector( p_playlist, false );
358             PL_LOCK;
359         }
360     }
361     else
362     {
363         /* No input. Several cases
364          *  - No request, running status -> start new item
365          *  - No request, stopped status -> collect garbage
366          *  - Request, running requested -> start new item
367          *  - Request, stopped requested -> collect garbage
368         */
369         int i_status = p_playlist->request.b_request ?
370             p_playlist->request.i_status : p_playlist->status.i_status;
371         if( i_status != PLAYLIST_STOPPED )
372         {
373             msg_Dbg( p_playlist, "starting new item" );
374             p_item = playlist_NextItem( p_playlist );
375
376             if( p_item == NULL )
377             {
378                 msg_Dbg( p_playlist, "nothing to play" );
379                 p_playlist->status.i_status = PLAYLIST_STOPPED;
380                 PL_UNLOCK;
381
382                 if( b_playexit == true )
383                 {
384                     msg_Info( p_playlist, "end of playlist, exiting" );
385                     vlc_object_kill( p_playlist->p_libvlc );
386                 }
387                 ObjectGarbageCollector( p_playlist, true );
388                 return;
389              }
390              playlist_PlayItem( p_playlist, p_item );
391          }
392          else
393          {
394             const bool b_gc_forced = p_playlist->status.i_status != PLAYLIST_STOPPED;
395
396             p_playlist->status.i_status = PLAYLIST_STOPPED;
397             if( p_playlist->status.p_item &&
398                 p_playlist->status.p_item->i_flags & PLAYLIST_REMOVE_FLAG )
399             {
400                 PL_DEBUG( "deleting item marked for deletion" );
401                 playlist_ItemDelete( p_playlist->status.p_item );
402                 p_playlist->status.p_item = NULL;
403             }
404
405             /* Collect garbage */
406             PL_UNLOCK;
407             ObjectGarbageCollector( p_playlist, b_gc_forced );
408             PL_LOCK;
409         }
410     }
411     PL_UNLOCK;
412 }
413
414 /**
415  * Last loop
416  *
417  * The playlist is dying so do the last loop
418  * \param p_playlist the playlist object
419  * \return nothing
420 */
421 void playlist_LastLoop( playlist_t *p_playlist )
422 {
423     /* If there is an input, kill it */
424     while( 1 )
425     {
426         PL_LOCK;
427         if( p_playlist->p_input == NULL )
428         {
429             PL_UNLOCK;
430             break;
431         }
432
433         if( p_playlist->p_input->b_dead )
434         {
435             /* remove input */
436             playlist_release_current_input( p_playlist );
437
438             /* sout-keep: no need to anything here.
439              * The last input will destroy its sout, if any, by itself */
440
441             PL_UNLOCK;
442             continue;
443         }
444         else if( p_playlist->p_input->b_die )
445         {
446             /* This input is dying, leave it alone */
447             ;
448         }
449         else if( p_playlist->p_input->b_error || p_playlist->p_input->b_eof )
450         {
451             input_StopThread( p_playlist->p_input );
452             PL_UNLOCK;
453             continue;
454         }
455         else
456         {
457             p_playlist->p_input->b_eof = 1;
458         }
459         PL_UNLOCK;
460
461         msleep( INTF_IDLE_SLEEP );
462     }
463
464 #ifdef ENABLE_SOUT
465     /* close the remaining sout-keep (if there was no input atm) */
466     sout_instance_t *p_sout = libvlc_priv (p_playlist->p_libvlc)->p_sout;
467     if (p_sout)
468         sout_DeleteInstance( p_sout );
469 #endif
470
471     /* Core should have terminated all SDs before the playlist */
472     /* TODO: It fails to do so when not playing anything -- Courmisch */
473     playlist_ServicesDiscoveryKillAll( p_playlist );
474     playlist_MLDump( p_playlist );
475
476     PL_LOCK;
477     FOREACH_ARRAY( playlist_item_t *p_del, p_playlist->all_items )
478         free( p_del->pp_children );
479         vlc_gc_decref( p_del->p_input );
480         free( p_del );
481     FOREACH_END();
482     ARRAY_RESET( p_playlist->all_items );
483
484     ARRAY_RESET( p_playlist->items );
485     ARRAY_RESET( p_playlist->current );
486
487     PL_UNLOCK;
488 }
489
490 /**
491  * Preparse loop
492  *
493  * Main loop for preparser queue
494  * \param p_obj items to preparse
495  * \return nothing
496  */
497 void playlist_PreparseLoop( playlist_preparse_t *p_obj )
498 {
499     playlist_t *p_playlist = (playlist_t *)p_obj->p_parent;
500     input_item_t *p_current;
501     int i_activity;
502
503     vlc_object_lock( p_obj );
504
505     while( vlc_object_alive( p_obj ) )
506     {
507         if( p_obj->i_waiting == 0 )
508         {
509             vlc_object_wait( p_obj );
510             continue;
511         }
512
513         p_current = p_obj->pp_waiting[0];
514         REMOVE_ELEM( p_obj->pp_waiting, p_obj->i_waiting, 0 );
515         vlc_object_unlock( p_obj );
516
517         PL_LOCK;
518         if( p_current )
519         {
520             if( p_current->i_type == ITEM_TYPE_FILE )
521             {
522                 stats_TimerStart( p_playlist, "Preparse run",
523                                   STATS_TIMER_PREPARSE );
524                 /* Do not preparse if it is already done (like by playing it) */
525                 if( !input_item_IsPreparsed( p_current ) )
526                 {
527                     PL_UNLOCK;
528                     input_Preparse( p_playlist, p_current );
529                     PL_LOCK;
530                 }
531                 stats_TimerStop( p_playlist, STATS_TIMER_PREPARSE );
532                 PL_UNLOCK;
533                 input_item_SetPreparsed( p_current, true );
534                 var_SetInteger( p_playlist, "item-change", p_current->i_id );
535                 PL_LOCK;
536             }
537             /* If we haven't retrieved enough meta, add to secondary queue
538              * which will run the "meta fetchers".
539              * This only checks for meta, not for art
540              * \todo don't do this for things we won't get meta for, like vids
541              */
542             char *psz_arturl = input_item_GetArtURL( p_current );
543             char *psz_name = input_item_GetName( p_current );
544             if( p_playlist->p_fetcher->i_art_policy == ALBUM_ART_ALL &&
545                         ( !psz_arturl || strncmp( psz_arturl, "file://", 7 ) ) )
546             {
547                 PL_DEBUG("meta ok for %s, need to fetch art", psz_name );
548                 vlc_object_lock( p_playlist->p_fetcher );
549                 INSERT_ELEM( p_playlist->p_fetcher->pp_waiting,
550                              p_playlist->p_fetcher->i_waiting,
551                              p_playlist->p_fetcher->i_waiting, p_current);
552                 vlc_object_signal_unlocked( p_playlist->p_fetcher );
553                 vlc_object_unlock( p_playlist->p_fetcher );
554             }
555             else
556             {
557                 PL_DEBUG( "no fetch required for %s (art currently %s)",
558                           psz_name, psz_arturl );
559                 vlc_gc_decref( p_current );
560             }
561             free( psz_name );
562             free( psz_arturl );
563             PL_UNLOCK;
564         }
565         else
566             PL_UNLOCK;
567
568         vlc_object_lock( p_obj );
569         i_activity = var_GetInteger( p_playlist, "activity" );
570         if( i_activity < 0 ) i_activity = 0;
571         vlc_object_unlock( p_obj );
572         /* Sleep at least 1ms */
573         msleep( (i_activity+1) * 1000 );
574         vlc_object_lock( p_obj );
575     }
576     vlc_object_unlock( p_obj );
577 }
578
579 /**
580  * Fetcher loop
581  *
582  * Main loop for secondary preparser queue
583  * \param p_obj items to preparse
584  * \return nothing
585  */
586 void playlist_FetcherLoop( playlist_fetcher_t *p_obj )
587 {
588     playlist_t *p_playlist = (playlist_t *)p_obj->p_parent;
589     input_item_t *p_item;
590     int i_activity;
591
592     vlc_object_lock( p_obj );
593
594     while( vlc_object_alive( p_obj ) )
595     {
596         if( p_obj->i_waiting == 0 )
597         {
598             vlc_object_wait( p_obj );
599             continue;
600         }
601
602         p_item = p_obj->pp_waiting[0];
603         REMOVE_ELEM( p_obj->pp_waiting, p_obj->i_waiting, 0 );
604         vlc_object_unlock( p_obj );
605         if( p_item )
606         {
607             int i_ret;
608
609             /* Check if it is not yet preparsed and if so wait for it (at most 0.5s)
610              * (This can happen if we fetch art on play)
611              * FIXME this doesn't work if we need to fetch meta before art ... */
612             for( i_ret = 0; i_ret < 10 && !input_item_IsPreparsed( p_item ); i_ret++ )
613             {
614                 bool b_break;
615                 PL_LOCK;
616                 b_break = ( !p_playlist->p_input || input_GetItem(p_playlist->p_input) != p_item  ||
617                             p_playlist->p_input->b_die || p_playlist->p_input->b_eof || p_playlist->p_input->b_error );
618                 PL_UNLOCK;
619                 if( b_break )
620                     break;
621                 msleep( 50000 );
622             }
623
624             i_ret = input_ArtFind( p_playlist, p_item );
625             if( i_ret == 1 )
626             {
627                 PL_DEBUG( "downloading art for %s", p_item->psz_name );
628                 if( input_DownloadAndCacheArt( p_playlist, p_item ) )
629                     input_item_SetArtNotFound( p_item, true );
630                 else {
631                     input_item_SetArtFetched( p_item, true );
632                     var_SetInteger( p_playlist, "item-change",
633                                     p_item->i_id );
634                 }
635             }
636             else if( i_ret == 0 ) /* Was in cache */
637             {
638                 PL_DEBUG( "found art for %s in cache", p_item->psz_name );
639                 input_item_SetArtFetched( p_item, true );
640                 var_SetInteger( p_playlist, "item-change", p_item->i_id );
641             }
642             else
643             {
644                 PL_DEBUG( "art not found for %s", p_item->psz_name );
645                 input_item_SetArtNotFound( p_item, true );
646             }
647             vlc_gc_decref( p_item );
648         }
649         vlc_object_lock( p_obj );
650         i_activity = var_GetInteger( p_playlist, "activity" );
651         if( i_activity < 0 ) i_activity = 0;
652         vlc_object_unlock( p_obj );
653         /* Sleep at least 1ms */
654         msleep( (i_activity+1) * 1000 );
655         vlc_object_lock( p_obj );
656     }
657     vlc_object_unlock( p_obj );
658 }
659
660 static void VariablesInit( playlist_t *p_playlist )
661 {
662     vlc_value_t val;
663     /* These variables control updates */
664     var_Create( p_playlist, "intf-change", VLC_VAR_BOOL );
665     val.b_bool = true;
666     var_Set( p_playlist, "intf-change", val );
667
668     var_Create( p_playlist, "item-change", VLC_VAR_INTEGER );
669     val.i_int = -1;
670     var_Set( p_playlist, "item-change", val );
671
672     var_Create( p_playlist, "item-deleted", VLC_VAR_INTEGER );
673     val.i_int = -1;
674     var_Set( p_playlist, "item-deleted", val );
675
676     var_Create( p_playlist, "item-append", VLC_VAR_ADDRESS );
677
678     var_Create( p_playlist, "playlist-current", VLC_VAR_INTEGER );
679     val.i_int = -1;
680     var_Set( p_playlist, "playlist-current", val );
681
682     var_Create( p_playlist, "activity", VLC_VAR_INTEGER );
683     var_SetInteger( p_playlist, "activity", 0 );
684
685     /* Variables to control playback */
686     var_CreateGetBool( p_playlist, "play-and-stop" );
687     var_CreateGetBool( p_playlist, "play-and-exit" );
688     var_CreateGetBool( p_playlist, "random" );
689     var_CreateGetBool( p_playlist, "repeat" );
690     var_CreateGetBool( p_playlist, "loop" );
691
692     var_AddCallback( p_playlist, "random", RandomCallback, NULL );
693 }