[foo-cvs] foo/elkfoo/examples/scripts sine.foo,1.2,1.3

[Martin R. <ru...@us...>]

Update of /cvsroot/foo/foo/elkfoo/examples/scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21752

Modified Files:
	sine.foo 
Log Message:
adopted sine example to new cmdline: stuff in order to show how to use it...

Index: sine.foo
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/examples/scripts/sine.foo,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sine.foo	16 Aug 2004 19:50:05 -0000	1.2
--- sine.foo	3 Feb 2005 15:30:55 -0000	1.3
***************
*** 1,31 ****
! #!/usr/local/bin/foo
  
  ;; foo scripting example
! ;; (c) 2004 rumori
  
  ;; checking command line
! (if (< (length (command-line-args)) 3)
!     (begin
!       (format #t "usage: ~a <duration> <frequency>\n"
! 	      (car (command-line-args)))
!       (quit)))
  
! (format #t "~a script example~%" (car (command-line-args)))
! (format #t "creating, playing and removing a test-file.~%")
  
! ;; extract parameters from command line
! (define duration (string->number (list-ref (command-line-args) 1)))
! (define freq (string->number (list-ref (command-line-args) 2)))
  
! (format #t "duration: ~a  frequency: ~a~%" duration freq)
  
! (format #t "synthesizing...~%")
  
! ;; here we do the major work
! (syn 1 duration (output~ 1 (sine~ (~ freq))))
  
! (format #t "~%playing using '~a'~%" foo-default-play-command)
  
! (format #t "exiting (will remove temporary file as well)~%")
  
  ;; done
--- 1,63 ----
! #!/usr/local/bin/foo --
  
  ;; foo scripting example
! ;; (c) 2004-2005 rumori
! 
! (require 'cmdline)
  
  ;; checking command line
! (let*
!     ;; single-opt or equiv-opts-list | mandatory? | with-params? | help-string
!     ((option-list '(("--help" #f #f "this help screen")
! 		    (("--freq" "-f") #t #t "frequency (hz)")
! 		    (("--amp" "-a") #t #t "amplitude (0...1)")
! 		    (("--dur" "-d") #t #t "duration (s)")))
!      (help
!       (lambda ()
! 	(format #t "usage: ~a [options]\noptions understood:\n" (car (foo:script-args)))
! 	(format #t "~a\n" (cmdline:help-message option-list))
! 	(exit)))
!      (number-check
!       (lambda (arg description)
! 	(if (not (number? arg))
! 	    (begin
! 	      (format #t "~a has to be number!\n" description)
! 	      (help)))))
!      (freq)
!      (amp)
!      (dur))
  
!   ;; help needed?
!   (if (cmdline:option-given? (foo:script-args) option-list "--help")
!       (help))
!   ;; validate cmdline
!   (if (not (cmdline:cmdline-valid? (cdr (foo:script-args)) option-list #t))
!       (help))
!   ;; get parameters (take in account just 1st param of each option)
!   (set! freq (string->number (car (cmdline:get-option-param (foo:script-args) option-list "--freq"))))
!   (set! amp (string->number (car (cmdline:get-option-param (foo:script-args) option-list "--amp"))))
!   (set! dur (string->number (car (cmdline:get-option-param (foo:script-args) option-list "--dur"))))
!   ;; check parameters
!   (number-check freq "frequency")
!   (number-check amp "amplitude")
!   (number-check dur "duration")
  
!   (format #t "~a script example~%" (car (foo:script-args)))
!   (format #t "creating, playing and removing a test-file.~%")
  
!   (format #t "frequency: ~a amplitude: ~a duration: ~a~%" freq amp dur)
  
!   (format #t "synthesizing...~%")
  
!   ;; here we do the major work
!   (syn 1 dur (output~ 1 (mul~ (~ amp) (sine~ (~ freq)))))
  
!   (format #t "~%playing using '~a'~%" foo-default-play-command)
  
!   (play)
! 
!   (format #t "exiting (will remove temporary file as well)~%"))
! 
! (quit)
  
  ;; done