commit a85a1341787d0334b94c8b2510df53b02e072a51 parent ad36de828063b9bb069e78ed12f78d5a4bc79b3a Author: Alexander Burger <abu@software-lab.de> Date: Mon, 18 Feb 2013 10:20:34 +0100 'ext:FD' file descriptors Diffstat:
| M | src64/ext.l | | | 24 | +++++++++++++++++++++++- |
1 file changed, 23 insertions(+), 1 deletion(-)
diff --git a/src64/ext.l b/src64/ext.l @@ -1,4 +1,4 @@ -# 23apr11abu +# 18feb13abu # (c) Software Lab. Alexander Burger (data 'ExtData) @@ -129,6 +129,28 @@ bytes ( ret +### File Descriptor ### +# (ext:FD 'cnt) -> fd +(code 'FD 2) + push X + ld X E + ld E ((E CDR)) # Eval 'cnt' + eval + push E # Save result + call xCntEX_FE + if ns + ld X E # Keep file descriptor + ld A E + call initInFileA_A # Init input file + ld A X + call initOutFileA_A # and output file + end + pop E # Get result + pop X + ret + + +### Audio Data ### (equ BIAS 132) (equ CLIP (- 32767 BIAS))