Commit e5686186 authored by IOhannes m zmölnig's avatar IOhannes m zmölnig

New upstream version 17.1

parent 0b84e302
Snd change log
16-Jan: Snd 17.1.
2017 ----------------------------------------------------------------
5-Dec: Snd 17.0.
24-Oct: Snd 16.9.
6-Sep: Snd 16.8.
......@@ -13,7 +17,7 @@ Snd change log
20-Feb: Snd 16.3.
11-Jan-16: Snd 16.2.
2015 ----------------------------------------------------------------
2016 ----------------------------------------------------------------
30-Nov: Snd 16.1.
19-Oct: Snd 16.0.
......
Snd 17.0.
Snd 17.1:
Tito Latini fixed many bugs, especially in save-state and snd-mix,
and made it possible to move dialogs between desktops in Motif.
*rootlet-redefinition-hook*
{apply_values} -> apply-values, {list} -> list-values, {append} -> append
a case clause without a result returns the selector
(*s7* 'autoloading) to turn the autoloader on and off
sandbox in stuff.scm for protected evaluation
Mike Scholz updated snd-test.fs|rb and made clm.rb compatible
with the latest Ruby.
in clm: clm.asd updated by Tito Latini.
checked: gtk 3.22.2|3|4, gtk 3.89.1, sbcl 1.3.11|12.
checked: gsl 2.2.1, gtk 3.89.2, sbcl 1.13.3, FreeBSD 11.0
Thanks!: Mike Scholz, Anders Vinjar, Tito Latini, Kjetil Matheussen,
IOhannes m zmölnig.
Thanks!: Tito Latini, Kjetil Matheussen, Juan Cerillo, Mike Scholz.
This diff is collapsed.
......@@ -865,7 +865,6 @@
(define-animal (spring-peeper beg amp)
(let ((dur 0.17)
(pause 0.23)
(dur2 .13)
(index (hz->radians (* 0.1 2900))))
;; first note
(let ((start (seconds->samples beg))
......@@ -884,7 +883,8 @@
(+ (* 0.2 (oscil gen2 (* 0.5 frq)))
(* 1.5 (oscil gen2a frq)))))))))) ; end is not quite right (original has a catch)
;; second note
(let ((start2 (+ stop (seconds->samples pause))))
(let ((start2 (+ stop (seconds->samples pause)))
(dur2 .13))
(let ((stop2 (+ start2 (seconds->samples dur2)))
(ampf2 (make-env '(0 0 .125 .8 1 .9 2 .7 4 1 10 0) :base .1 :duration dur2 :scaler (* .4 amp)))
(frqf2 (make-env '(0 0 2 1 3 .75) :duration dur2 :base .03 :scaler (hz->radians 300)))
......
......@@ -11,60 +11,66 @@
(set! auto-saving #f))))
(define auto-save
(let ((documentation "(auto-save) starts watching files, automatically saving backup copies as edits accumulate"))
(lambda ()
(define (auto-save-temp-name snd)
(string-append (if (and (string? *temp-dir*)
(> (length *temp-dir*) 0))
(string-append *temp-dir* "/")
"")
"#" (short-file-name snd) "#"))
(define (clear-unsaved-edits snd)
(set! (sound-property 'auto-save snd) 0))
(let ((documentation "(auto-save) starts watching files, automatically saving backup copies as edits accumulate")
(auto-save-temp-name
(lambda (snd)
(string-append (if (and (string? *temp-dir*)
(> (length *temp-dir*) 0))
(string-append *temp-dir* "/")
"")
"#" (short-file-name snd) "#")))
(define (auto-save-open-func snd)
(let ((temp-file (auto-save-temp-name snd)))
(if (and (file-exists? temp-file)
(< (file-write-date (file-name snd)) (file-write-date temp-file)))
(snd-warning (format #f "auto-saved version of ~S (~S) is newer"
(short-file-name snd)
temp-file)))
(do ((i 0 (+ 1 i)))
((= i (channels snd)))
(if (null? (hook-functions (edit-hook snd i)))
(hook-push (edit-hook snd i) (lambda (hook)
(let ((snd (hook 'snd)))
(set! (sound-property 'auto-save snd) (+ 1 (sound-property 'auto-save snd))))))))
(clear-unsaved-edits snd)))
(clear-unsaved-edits
(lambda (snd)
(set! (sound-property 'auto-save snd) 0))))
(define (auto-save-done snd)
(let ((temp-file (auto-save-temp-name snd)))
(if (file-exists? temp-file)
(delete-file temp-file))
(clear-unsaved-edits snd)))
(let ((auto-save-open-func
(lambda (snd)
(let ((temp-file (auto-save-temp-name snd)))
(if (and (file-exists? temp-file)
(< (file-write-date (file-name snd)) (file-write-date temp-file)))
(snd-warning (format #f "auto-saved version of ~S (~S) is newer"
(short-file-name snd)
temp-file)))
(do ((i 0 (+ 1 i)))
((= i (channels snd)))
(if (null? (hook-functions (edit-hook snd i)))
(hook-push (edit-hook snd i) (lambda (hook)
(let ((snd (hook 'snd)))
(set! (sound-property 'auto-save snd) (+ 1 (sound-property 'auto-save snd))))))))
(clear-unsaved-edits snd))))
(define (auto-save-func)
(if auto-saving
(begin
(for-each (lambda (snd)
(if (cond ((sound-property 'auto-save snd) => positive?) (else #f))
(let ((save-name (auto-save-temp-name snd)))
(status-report (string-append "auto-saving as " save-name "...") snd)
(in 3000 (lambda () (status-report "" snd)))
(save-sound-as save-name snd)
(clear-unsaved-edits snd))))
(sounds))
(in (floor (* 1000 auto-save-interval)) auto-save-func))))
(auto-save-done
(lambda (snd)
(let ((temp-file (auto-save-temp-name snd)))
(if (file-exists? temp-file)
(delete-file temp-file))
(clear-unsaved-edits snd)))))
(if (not (member auto-save-done (hook-functions close-hook)))
(begin
(for-each auto-save-open-func (sounds))
(hook-push after-open-hook (lambda (hook) (auto-save-open-func (hook 'snd))))
(hook-push close-hook (lambda (hook) (auto-save-done (hook 'snd))))
(hook-push save-hook (lambda (hook) (auto-save-done (hook 'snd))))
(hook-push exit-hook (lambda (hook) (for-each auto-save-done (sounds))))))
(set! auto-saving #t)
(in (floor (* 1000 auto-save-interval)) auto-save-func))))
(letrec ((auto-save-func
(lambda ()
(if auto-saving
(begin
(for-each (lambda (snd)
(if (cond ((sound-property 'auto-save snd) => positive?) (else #f))
(let ((save-name (auto-save-temp-name snd)))
(status-report (string-append "auto-saving as " save-name "...") snd)
(in 3000 (lambda () (status-report "" snd)))
(save-sound-as save-name snd)
(clear-unsaved-edits snd))))
(sounds))
(in (floor (* 1000 auto-save-interval)) auto-save-func))))))
(lambda ()
(if (not (member auto-save-done (hook-functions close-hook)))
(begin
(for-each auto-save-open-func (sounds))
(hook-push after-open-hook (lambda (hook) (auto-save-open-func (hook 'snd))))
(hook-push close-hook (lambda (hook) (auto-save-done (hook 'snd))))
(hook-push save-hook (lambda (hook) (auto-save-done (hook 'snd))))
(hook-push exit-hook (lambda (hook) (for-each auto-save-done (sounds))))))
(set! auto-saving #t)
(in (floor (* 1000 auto-save-interval)) auto-save-func))))))
(auto-save)
This diff is collapsed.
......@@ -271,11 +271,6 @@
(error (format #f "can't allocate ~A" color))
(.pixel col))))
(define (set-flabel label value)
(let ((s1 (XmStringCreate (format #f "~5,3F" value) XmFONTLIST_DEFAULT_TAG)))
(XtVaSetValues label (list XmNlabelString s1))
(XmStringFree s1)))
(XtSetValues shell (list XmNtitle "FM Forever!"))
(let* ((light-blue (get-color sliderback))
(form (XtCreateManagedWidget "form" xmFormWidgetClass shell
......@@ -447,7 +442,12 @@
(high-index 2.0)
(which-play 0)
(proc #f)
(func #f))
(func #f)
(set-flabel
(lambda (label value)
(let ((s1 (XmStringCreate (format #f "~5,3F" value) XmFONTLIST_DEFAULT_TAG)))
(XtVaSetValues label (list XmNlabelString s1))
(XmStringFree s1)))))
(define (tempo-callback w c i)
(set! ctempo (+ low-tempo (* (.value i) (/ (- high-tempo low-tempo) 100.0))))
......
......@@ -177,30 +177,29 @@
;;; -------- nsin --------
(defgenerator (big-nsin
:make-wrapper
(lambda (g)
(letrec ((ns (lambda (x n)
(let* ((a2 (/ x 2))
(den (sin a2)))
(if (= den 0.0)
0.0
(/ (* (sin (* n a2))
(sin (* (+ n 1) a2)))
den)))))
(find-scaler (lambda (n lo hi)
(let ((mid (/ (+ lo hi) 2))
(ylo (ns lo n))
(yhi (ns hi n)))
(if (< (abs (- yhi ylo)) 1e-12)
(ns mid n)
(find-scaler n (if (> ylo yhi)
(values lo mid)
(values mid hi))))))))
(if (<= (g 'n) 0)
(set! (g 'n) 1))
(set! (g 'r) (/ 1.0 (find-scaler (g 'n) 0.0 (/ pi (+ (g 'n) 1/2)))))
(set! (g 'frequency) (big-hz->radians (g 'frequency)))
g)))
:make-wrapper (letrec ((ns (lambda (x n)
(let* ((a2 (/ x 2))
(den (sin a2)))
(if (= den 0.0)
0.0
(/ (* (sin (* n a2))
(sin (* (+ n 1) a2)))
den)))))
(find-scaler (lambda (n lo hi)
(let ((mid (/ (+ lo hi) 2))
(ylo (ns lo n))
(yhi (ns hi n)))
(if (< (abs (- yhi ylo)) 1e-12)
(ns mid n)
(find-scaler n (if (> ylo yhi)
(values lo mid)
(values mid hi))))))))
(lambda (g)
(if (<= (g 'n) 0)
(set! (g 'n) 1))
(set! (g 'r) (/ 1.0 (find-scaler (g 'n) 0.0 (/ pi (+ (g 'n) 1/2)))))
(set! (g 'frequency) (big-hz->radians (g 'frequency)))
g)))
(frequency *clm-default-frequency*)
(n 1)
(angle 0.0)
......
......@@ -22,28 +22,30 @@
Anything other than .5 = longer decay. Must be between 0 and less than 1.0.
'lossfact' can be used to shorten decays. Most useful values are between .8 and 1.0. (with-sound () (pluck 0 1 330 .3 .7 .995))"
(define (tuneIt f s1)
(define (getOptimumC S o p)
(let* ((pa (* (/ 1.0 o) (atan (* S (sin o)) (- (+ 1.0 (* S (cos o))) S))))
(tmpInt (floor (- p pa)))
(pc (- p pa tmpInt)))
(if (< pc .1)
(do ()
((>= pc .1))
(set! tmpInt (- tmpInt 1))
(set! pc (+ pc 1.0))))
(list tmpInt (/ (- (sin o) (sin (* o pc))) (sin (+ o (* o pc)))))))
(let ((p (/ *clm-srate* f)) ;period as float
(s (if (= s1 0.0) 0.5 s1))
(o (hz->radians f)))
(let ((vals (getOptimumC s o p))
(vals1 (getOptimumC (- 1.0 s) o p)))
(if (and (not (= s 1/2))
(< (abs (cadr vals)) (abs (cadr vals1))))
(list (- 1.0 s) (cadr vals) (car vals))
(list s (cadr vals1) (car vals1))))))
(define tuneIt
(let ((getOptimumC (lambda (S o p)
(let* ((pa (* (/ 1.0 o)
(atan (* S (sin o))
(- (+ 1.0 (* S (cos o))) S))))
(tmpInt (floor (- p pa)))
(pc (- p pa tmpInt)))
(if (< pc .1)
(do ()
((>= pc .1))
(set! tmpInt (- tmpInt 1))
(set! pc (+ pc 1.0))))
(list tmpInt (/ (- (sin o) (sin (* o pc)))
(sin (+ o (* o pc)))))))))
(lambda (f s1)
(let ((p (/ *clm-srate* f)) ;period as float
(s (if (= s1 0.0) 0.5 s1))
(o (hz->radians f)))
(let ((vals (getOptimumC s o p))
(vals1 (getOptimumC (- 1.0 s) o p)))
(if (and (not (= s 1/2))
(< (abs (cadr vals)) (abs (cadr vals1))))
(list (- 1.0 s) (cadr vals) (car vals))
(list s (cadr vals1) (car vals1))))))))
(let ((vals (tuneIt freq weighting)))
(let ((wt0 (car vals))
......@@ -85,8 +87,8 @@ Anything other than .5 = longer decay. Must be between 0 and less than 1.0.
(definstrument (vox beg dur freq amp ampfun freqfun freqscl phonemes formant-amps formant-indices (vibscl .1) (deg 0) (pcrev 0))
(define (vox-fun phons which)
(let ((formants
(define vox-fun
(let ((formants ; formant center frequencies for a male speaker
'((I 390 1990 2550) (E 530 1840 2480) (AE 660 1720 2410)
(UH 520 1190 2390) (A 730 1090 2440) (OW 570 840 2410)
(U 440 1020 2240) (OO 300 870 2240) (ER 490 1350 1690)
......@@ -98,21 +100,18 @@ Anything other than .5 = longer decay. Must be between 0 and less than 1.0.
(T 200 1700 2600) (K 350 1350 2000) (F 175 900 4400)
(TH 200 1400 2200) (S 200 1300 2500) (SH 200 1800 2000)
(V 175 1100 2400) (THE 200 1600 2200)(Z 200 1300 2500)
(ZH 175 1800 2000) (ZZ 900 2400 3800) (VV 565 1045 2400))))
;;formant center frequencies for a male speaker
(define (find-phoneme phoneme forms)
(do ((phoneme phoneme)
(forms forms (cdr forms)))
((eq? phoneme (caar forms))
(cdar forms))))
(let ((f1 ())
(len (length phons)))
(do ((i 0 (+ i 2)))
((>= i len))
(set! f1 (cons ((find-phoneme (phons (+ i 1)) formants) which) (cons (phons i) f1))))
(reverse f1))))
(ZH 175 1800 2000) (ZZ 900 2400 3800) (VV 565 1045 2400)))
(find-phoneme (lambda (phoneme forms)
(do ((forms forms (cdr forms)))
((eq? phoneme (caar forms))
(cdar forms))))))
(lambda (phons which)
(let ((f1 ())
(len (length phons)))
(do ((i 0 (+ i 2)))
((>= i len))
(set! f1 (cons ((find-phoneme (phons (+ i 1)) formants) which) (cons (phons i) f1))))
(reverse f1)))))
(let ((start (seconds->samples beg))
(end (seconds->samples (+ beg dur)))
......@@ -2031,11 +2030,11 @@ is a physical model of a flute:
(set! la ca)
(set! ca ra)
(set! ra (fdr k))
(when (and (> ca .001) ; lowest-magnitude
(> ca ra)
(> ca la)
(not (zero? ra))
(not (zero? la)))
(unless (or (<= ca 0.001) ; lowest-magnitude
(<= ca ra)
(<= ca la)
(zero? ra)
(zero? la))
;; found a local maximum above the current threshold (its bin number is k-1)
(let ((logla (log la 10.0))
(logca (log ca 10.0))
......
......@@ -10330,7 +10330,7 @@ static char *describe_file_to_sample(mus_any *ptr)
rdin *gen = (rdin *)ptr;
char *describe_buffer;
describe_buffer = (char *)malloc(DESCRIBE_BUFFER_SIZE);
snprintf(describe_buffer, DESCRIBE_BUFFER_SIZE, "%s %s",
snprintf(describe_buffer, DESCRIBE_BUFFER_SIZE, "%s \"%s\"",
mus_name(ptr),
gen->file_name);
return(describe_buffer);
......@@ -10806,7 +10806,7 @@ static char *describe_file_to_frample(mus_any *ptr)
rdin *gen = (rdin *)ptr;
char *describe_buffer;
describe_buffer = (char *)malloc(DESCRIBE_BUFFER_SIZE);
snprintf(describe_buffer, DESCRIBE_BUFFER_SIZE, "%s %s",
snprintf(describe_buffer, DESCRIBE_BUFFER_SIZE, "%s \"%s\"",
mus_name(ptr),
gen->file_name);
return(describe_buffer);
......@@ -10922,7 +10922,7 @@ static char *describe_sample_to_file(mus_any *ptr)
rdout *gen = (rdout *)ptr;
char *describe_buffer;
describe_buffer = (char *)malloc(DESCRIBE_BUFFER_SIZE);
snprintf(describe_buffer, DESCRIBE_BUFFER_SIZE, "%s %s",
snprintf(describe_buffer, DESCRIBE_BUFFER_SIZE, "%s \"%s\"",
mus_name(ptr),
gen->file_name);
return(describe_buffer);
......@@ -11583,7 +11583,7 @@ static char *describe_frample_to_file(mus_any *ptr)
rdout *gen = (rdout *)ptr;
char *describe_buffer;
describe_buffer = (char *)malloc(DESCRIBE_BUFFER_SIZE);
snprintf(describe_buffer, DESCRIBE_BUFFER_SIZE, "%s %s",
snprintf(describe_buffer, DESCRIBE_BUFFER_SIZE, "%s \"%s\"",
mus_name(ptr),
gen->file_name);
return(describe_buffer);
......
......@@ -1199,11 +1199,14 @@
(let ((start (seconds->samples beg))
(end (seconds->samples (+ beg dur)))
(cr (make-oscil freq carrier-phase))
(n (length mc-ratios)))
(define (interleave a b)
(let ((lst ()))
(for-each (lambda (x y) (set! lst (cons (hz->radians (* freq x y)) (cons x lst)))) a b)
(reverse lst)))
(n (length mc-ratios))
(interleave (lambda (a b)
(let ((lst ()))
(for-each (lambda (x y)
(set! lst (cons (hz->radians (* freq x y))
(cons x lst))))
a b)
(reverse lst)))))
(if (and (apply and (map integer? mc-ratios))
(apply and (map zero? mod-phases))) ; use polyoid if any not 0.0
(let ((fm (make-polywave freq (interleave mc-ratios indexes) mus-chebyshev-second-kind)))
......
......@@ -193,16 +193,6 @@
(define (checker type)
(find-handler type cadr))
(define* (cload->signature type rtn)
(case (C-type->s7-type type)
((real) (if rtn 'float? 'real?))
((integer) 'integer?)
((string) 'string?)
((boolean) 'boolean?)
((character) 'char?)
((c_pointer) 'c-pointer?)
(else #t)))
(define (signature->pl type)
(case type
((integer?) #\i)
......@@ -234,42 +224,49 @@
(cons 'char? 0) (cons 'string? 0) (cons 'c-pointer? 0) (cons 't 0)))
(signatures (make-hash-table)))
(define (make-signature rtn args)
(define (compress sig)
(do ((sig sig (cdr sig)))
((not (and (pair? sig)
(pair? (cdr sig))
(eq? (car sig) (cadr sig))))
sig)))
(let ((sig (list (cload->signature rtn #t)))
(cyclic #f))
(for-each
(lambda (arg)
(set! sig (cons (cload->signature arg) sig)))
args)
(let ((len (length sig)))
(set! sig (compress sig))
(set! cyclic (not (= len (length sig)))))
(set! sig (reverse sig))
(unless (signatures sig) ; it's not in our collection yet
(let ((pl (make-string (+ (if cyclic 4 3) (length sig))))
(loc (if cyclic 4 3)))
(set! (pl 0) #\p)
(if cyclic
(begin (set! (pl 1) #\c) (set! (pl 2) #\l) (set! (pl 3) #\_))
(begin (set! (pl 1) #\l) (set! (pl 2) #\_)))
(for-each
(lambda (typer)
(set! (pl loc) (signature->pl typer))
(let ((count (or (assq typer sig-symbols)
(assq 't sig-symbols))))
(set-cdr! count (+ (cdr count) 1)))
(set! loc (+ loc 1)))
sig)
(set! (signatures sig) pl)))
sig))
(define make-signature
(let ((cload->signature
(lambda* (type rtn)
(case (C-type->s7-type type)
((real) (if rtn 'float? 'real?))
((integer) 'integer?)
((string) 'string?)
((boolean) 'boolean?)
((character) 'char?)
((c_pointer) 'c-pointer?)
(else #t)))))
(lambda (rtn args)
(let ((sig (list (cload->signature rtn #t)))
(cyclic #f))
(for-each
(lambda (arg)
(set! sig (cons (cload->signature arg) sig)))
args)
(let ((len (length sig)))
(set! sig (do ((sig sig (cdr sig)))
((not (and (pair? sig)
(pair? (cdr sig))
(eq? (car sig) (cadr sig))))
sig)))
(set! cyclic (not (= len (length sig)))))
(set! sig (reverse sig))
(unless (signatures sig) ; it's not in our collection yet
(let ((pl (make-string (+ (if cyclic 4 3) (length sig))))
(loc (if cyclic 4 3)))
(set! (pl 0) #\p)
(if cyclic
(begin (set! (pl 1) #\c) (set! (pl 2) #\l) (set! (pl 3) #\_))
(begin (set! (pl 1) #\l) (set! (pl 2) #\_)))
(for-each
(lambda (typer)
(set! (pl loc) (signature->pl typer))
(let ((count (or (assq typer sig-symbols)
(assq 't sig-symbols))))
(set-cdr! count (+ (cdr count) 1)))
(set! loc (+ loc 1)))
sig)
(set! (signatures sig) pl)))
sig))))
(define (initialize-c-file)
;; C header stuff
......@@ -573,47 +570,48 @@
(system (format #f "gcc ~A -shared -o ~A ~A ~A"
o-file-name so-file-name *cload-ldflags* ldflags)))))
(define (handle-declaration func)
(define (add-one-constant type name)
;; C constant -> scheme
(let ((c-type (if (pair? type) (cadr type) type)))
(if (symbol? name)
(set! constants (cons (list c-type (symbol->string (collides? name))) constants))
(for-each
(lambda (c)
(set! constants (cons (list c-type (symbol->string (collides? c))) constants)))
name))))
(define (add-one-macro type name)
;; C macro (with definition check) -> scheme
(let ((c-type (if (pair? type) (cadr type) type)))
(if (symbol? name)
(set! macros (cons (list c-type (symbol->string (collides? name))) macros))
(for-each
(lambda (c)
(set! macros (cons (list c-type (symbol->string (collides? c))) macros)))
name))))
(define (check-doc func-data)
(let ((doc (caddr func-data)))
(if (and (string? doc)
(> (length doc) 0))
func-data
(append (list (car func-data) (cadr func-data) (car func-data)) (cdddr func-data)))))
;; functions
(if (>= (length func) 3)
(apply add-one-function func)
(case (car func)
((in-C) (format p "~A~%" (cadr func)))
((C-init) (set! inits (cons (cadr func) inits)))
((C-macro) (apply add-one-macro (cadr func)))
((C-function) (collides? (caadr func)) (set! functions (cons (check-doc (cadr func)) functions)))
(else (apply add-one-constant func)))))
(define handle-declaration
(let ()
(define (add-one-constant type name)
;; C constant -> scheme
(let ((c-type (if (pair? type) (cadr type) type)))
(if (symbol? name)
(set! constants (cons (list c-type (symbol->string (collides? name))) constants))
(for-each
(lambda (c)
(set! constants (cons (list c-type (symbol->string (collides? c))) constants)))
name))))
(define (add-one-macro type name)
;; C macro (with definition check) -> scheme
(let ((c-type (if (pair? type) (cadr type) type)))
(if (symbol? name)
(set! macros (cons (list c-type (symbol->string (collides? name))) macros))
(for-each
(lambda (c)
(set! macros (cons (list c-type (symbol->string (collides? c))) macros)))
name))))
(define (check-doc func-data)
(let ((doc (caddr func-data)))
(if (and (string? doc)
(> (length doc) 0))
func-data
(append (list (car func-data) (cadr func-data) (car func-data)) (cdddr func-data)))))
(lambda (func)
;; functions
(if (>= (length func) 3)
(apply add-one-function func)
(case (car func)
((in-C) (format p "~A~%" (cadr func)))
((C-init) (set! inits (cons (cadr func) inits)))
((C-macro) (apply add-one-macro (cadr func)))
((C-function) (collides? (caadr func)) (set! functions (cons (check-doc (cadr func)) functions)))
(else (apply add-one-constant func)))))))
;; this is the body of c-define
;; c-define-1 (called in c-define macro above)
(unless (and output-name
(file-exists? c-file-name)
(file-exists? so-file-name)
......@@ -639,11 +637,6 @@
(load so-file-name new-env)))))
;;; backwards compatibility
(define define-c-function c-define)
#|
(let ((cd (symbol "complex double"))
(cd* (symbol "complex double *")))
......
#! /bin/sh
# Guess values for system-dependent variables and create Makefiles.
# Generated by GNU Autoconf 2.69 for snd 17.0.
# Generated by GNU Autoconf 2.69 for snd 17.1.
#
# Report bugs to <bil@ccrma.stanford.edu>.
#
......@@ -580,8 +580,8 @@ MAKEFLAGS=
# Identity of this package.
PACKAGE_NAME='snd'
PACKAGE_TARNAME='ftp://ccrma-ftp.stanford.edu/pub/Lisp/snd-17.tar.gz'
PACKAGE_VERSION='17.0'
PACKAGE_STRING='snd 17.0'
PACKAGE_VERSION='17.1'
PACKAGE_STRING='snd 17.1'
PACKAGE_BUGREPORT='bil@ccrma.stanford.edu'
PACKAGE_URL=''
......@@ -1310,7 +1310,7 @@ if test "$ac_init_help" = "long"; then
# Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF
\`configure' configures snd 17.0 to adapt to many kinds of systems.
\`configure' configures snd 17.1 to adapt to many kinds of systems.
Usage: $0 [OPTION]... [VAR=VALUE]...
......@@ -1380,7 +1380,7 @@ fi
if test -n "$ac_init_help"; then
case $ac_init_help in
short | recursive ) echo "Configuration of snd 17.0:";;
short | recursive ) echo "Configuration of snd 17.1:";;
esac
cat <<\_ACEOF
......@@ -1496,7 +1496,7 @@ fi
test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then
cat <<\_ACEOF
snd configure 17.0
snd configure 17.1
generated by GNU Autoconf 2.69
Copyright (C) 2012 Free Software Foundation, Inc.
......@@ -1957,7 +1957,7 @@ cat >config.log <<_ACEOF
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
It was created by snd $as_me 17.0, which was
It was created by snd $as_me 17.1, which was
generated by GNU Autoconf 2.69. Invocation command line was
$ $0 $@
......@@ -3304,7 +3304,7 @@ LOCAL_LANGUAGE="None"
GRAPHICS_TOOLKIT="None"
PACKAGE=Snd
VERSION=17.0
VERSION=17.1