tests/network-clock.scm: Removed need for slib.

Original commit message from CVS:
2005-06-28  Andy Wingo  <wingo@pobox.com>

* tests/network-clock.scm: Removed need for slib.
This commit is contained in:
Andy Wingo 2005-06-28 11:48:57 +00:00
parent de3be844ec
commit 7c157ea543
3 changed files with 15 additions and 13 deletions

View file

@ -1,10 +1,7 @@
2005-06-28 Andy Wingo <wingo@pobox.com>
* tests/network-clock.scm (*timeout*, *send-loss*, *recv-loss*):
New parameters, simulate network packet loss.
* tests/network-clock-utils.scm: Initialize the RNG.
* tests/network-clock.scm: Removed need for slib.
2005-06-28 Wim Taymans <wim@fluendo.com>
* gst/base/gstbasesink.c: (gst_basesink_set_pad_functions),
@ -19,6 +16,13 @@
* gst/gstqueue.c: (gst_queue_init):
The deprecated pad loop function is removed now.
2005-06-28 Andy Wingo <wingo@pobox.com>
* tests/network-clock.scm (*timeout*, *send-loss*, *recv-loss*):
New parameters, simulate network packet loss.
* tests/network-clock-utils.scm: Initialize the RNG.
2005-06-28 Wim Taymans <wim@fluendo.com>
* gst/base/gstbasesink.c: (gst_basesink_preroll_queue_flush),

View file

@ -61,9 +61,8 @@ exec guile -l $0 -e main -- "$@"
;;; Code:
(use-modules (ice-9 slib)
(ice-9 popen))
(require 'printf)
(use-modules (ice-9 popen))
(load "network-clock-utils.scm")
@ -172,7 +171,7 @@ exec guile -l $0 -e main -- "$@"
(apply
stream-while
(lambda (a r l n) (<= a total-time))
(lambda (a r l n) (printf "%.3f %.3f %.3f %.3f\n" a r l n))
(lambda (a r l n) (format #t "~a ~a ~a ~a\n" a r l n))
streams))))
(define (plot-simulation)

View file

@ -61,9 +61,8 @@ exec guile -l $0 -e main -- "$@"
;;; Code:
(use-modules (ice-9 slib)
(ice-9 popen))
(require 'printf)
(use-modules (ice-9 popen))
(load "network-clock-utils.scm")
@ -172,7 +171,7 @@ exec guile -l $0 -e main -- "$@"
(apply
stream-while
(lambda (a r l n) (<= a total-time))
(lambda (a r l n) (printf "%.3f %.3f %.3f %.3f\n" a r l n))
(lambda (a r l n) (format #t "~a ~a ~a ~a\n" a r l n))
streams))))
(define (plot-simulation)