[Audacity-nyquist] SAL experiments with Nyquist in Audacity

[<edg...@we...>]

> Edgar wrote:
> 
> > ... I think SAL could work without changing the Audacity/Nyquist
> > C code but I just simply still haven't tried to tell the truth.
> 
> Roger wrote:
>
> I agree -- I think you could include the new sal code in the Nyquist
> runtime for Audacity. To program in SAL without help from Audacity,
> you would have to write SAL programs as a big string, pass the string
> to the compiler, and run the result (but this is how SAL mode works
> internally anyway).
> 
> Eventually, Audacity should recognize SAL plugins and compile them for
> you, but maybe we should get more experience with SAL first --
> I wouldn't advise integrating SAL just yet.
> 
> If anyone wants to try building some experimental SAL support into
> Audacity, I'll be happy to answer questions that arise.
> 
> -Roger
> 

Some results of my SAL experiments with Audacity. Here is a copy of
my modifications in the Audacity Nyquist init.lsp file. A copy of the
file can also be found in the attachment.

----------------- contents of Audacity Nyquist init.lsp ------------------

; init.lsp -- default Nyquist startup file
(load "nyinit.lsp")

; add your customizations here:
;    e.g. (setf *default-sf-dir* "...")

; (load "test.lsp")

;; --- sal ---

;; WHEN in Audacity still has the problem that only one function after the
;; predicate is allowed, otherwise an error is raised. So the first thing
;; I got with testing SAL was ERROR: WHEN - TOO MANY ARGUMENTS.
;;
(defmacro when (pred &rest args)
  (if pred `(progn ,@args)))

;; SAL.LSP and SAL-PARSE.LSP are unmodified copies from Nyquist 3.01
;;
(load "sal.lsp")
(load "sal-parse.lsp")
(setf *sal-call-stack* nil) ; usually done by: (sal)
;;
;; test code: (sal-compile "play osc(60)" t nil nil)

;; --- CAUTION: experimental code ---

;; COMMENT: the code is still some sort of wacky,
;; and in no way intended as a permanent or final solution.

;; SAL-COMPILE needs PLAY, otherwise it refuses to work. PLAY seems
;; to be called only ONCE [and only if needed] by SAL-COMPILE but:
;; (defun play (expr) (setf s expr)) ; is no good idea
;;
(defmacro play (expr) (setf *nyquist-code* expr))

;; you can write: (sal-string "<sal-code>") on the Audacity
;; Nyquist prompt and everything else will go automatically:
;;
(defun sal-string (sal-string)
  (setf *nyquist-code* nil)
  (sal-compile sal-string t nil nil)
  (when *nyquist-code* (eval *nyquist-code*)))

;; --- end of sal ---

-------------------- end of Audacity Nyquist init.lsp --------------------

Maybe it's possible to add a XLISP read macro to enable reading
SAL code from an plugin directly but I first must investigate the
Audacity NYX code because I know that the Lisp reader [for reading
the Audacity plugin code] is called via C code directly from NYX to
enable e.g. parsing of the plugin header lines.

But in principle SAL could work without really big changes.

- edgar




-- 
The author of this email does not necessarily endorse the
following advertisements, which are the sole responsibility
of the advertiser:


_____________________________________________________________________
Der WEB.DE SmartSurfer hilft bis zu 70% Ihrer Onlinekosten zu sparen!
http://smartsurfer.web.de/?mc=100071&distributionid=000000000066