<div dir="ltr">Hi,<div><br></div><div>There might be a better solution, but this is the function I've been using to do this:</div><div><br></div><div><table class=""><tbody><tr><td id="LC343" class="">(<span class="">define</span> (<span class="">get-system-output</span><span class=""> command</span>)</td>
</tr>
<tr>
</tr></tbody></table><table class=""><tbody><tr></tr><tr>
<td id="LC344" class=""> (<span class="">let</span> ((logfilename <span class=""><span class="">"</span>/tmp/logtemp<span class="">"</span></span>))</td>
</tr>
<tr>
</tr><tr></tr><tr>
<td id="LC345" class=""> (system (string-append command <span class=""><span class="">"</span> > <span class="">"</span></span> logfilename))</td>
</tr>
<tr>
</tr><tr></tr><tr>
<td id="LC346" class=""> (<span class="">let*</span> ((ret <span class=""><span class="">"</span><span class="">"</span></span>)</td>
</tr>
<tr>
</tr><tr></tr><tr>
<td id="LC347" class=""> (fd (open-file logfilename <span class=""><span class="">"</span>r<span class="">"</span></span>))</td>
</tr>
<tr>
</tr><tr></tr><tr>
<td id="LC348" class=""> (line (read-line fd)))</td>
</tr>
<tr>
</tr><tr></tr><tr>
<td id="LC349" class=""> (while (<span class="">not</span> (<span class="">eof-object?</span> line))</td>
</tr>
<tr>
</tr><tr></tr><tr>
<td id="LC350" class=""> (<span class="">set!</span> ret (string-append ret line))</td>
</tr>
<tr>
</tr><tr></tr><tr>
<td id="LC351" class=""> (<span class="">set!</span> line (read-line fd)))</td>
</tr>
<tr>
</tr><tr></tr><tr>
<td id="LC352" class=""> (close fd)</td>
</tr>
<tr>
</tr><tr></tr><tr>
<td id="LC353" class=""> (system (string-append <span class=""><span class="">"</span>rm <span class="">"</span></span> logfilename))</td>
</tr>
<tr>
</tr></tbody></table><table class=""><tbody><tr>
<td id="LC354" class=""> ret)))<br><br>(this is for guile though, not s7, but you get the idea)<br><br></td></tr></tbody></table></div><div class="gmail_extra"><br><div class="gmail_quote">On Wed, Nov 25, 2015 at 4:38 PM, JV <span dir="ltr"><<a href="mailto:billbose@gmail.com" target="_blank">billbose@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div>system prints the output of the command.<br></div>I cannot save the output with:<br><br></div>(define sv (system ("ls"))<br></div><div class="gmail_extra"><br><div class="gmail_quote">On Wed, Nov 25, 2015 at 8:02 AM, <span dir="ltr"><<a href="mailto:bil@ccrma.stanford.edu" target="_blank">bil@ccrma.stanford.edu</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">system is normally included in s7 in Linux -- try<br>
(help system) or (system "ls -la s7.c" #t). If your<br>
version of s7 was built with the compiler flag<br>
WITH_SYSTEM_EXTRAS set to 0, you can still get at the<br>
c library's system function via libc.scm, but<br>
hopefully that isn't necessary.<br>
<br>
<br><span class="HOEnZb"><font color="#888888">
</font></span></blockquote></div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><br>-- <br><div>Joseph Vijay</div>
</font></span></div>
<br>_______________________________________________<br>
Cmdist mailing list<br>
<a href="mailto:Cmdist@ccrma.stanford.edu">Cmdist@ccrma.stanford.edu</a><br>
<a href="https://cm-mail.stanford.edu/mailman/listinfo/cmdist" rel="noreferrer" target="_blank">https://cm-mail.stanford.edu/mailman/listinfo/cmdist</a><br>
<br></blockquote></div><br></div></div>