<div dir="ltr">I have good news! The S7 integration I've been working on has been accepted and pulled into the main branch of the TIC-80 and is flagged to be integrated in the next version release (version 1.1). I have no idea when this will be actually released but... we made it! Thanks for your support, it was really appreciated!<div><br></div><div>I'm attaching the diff from s7.c that I got from your tarball with the one that got integrated, in case you want some of those changes.</div><div><br></div><div>The main maintainer of the tic80 repo was asking me if we could add s7 as a submodule to the tic80 repo, like most other languages were setup to be. To achieve this though, we would need a good coordination of my changes into your s7 repo but also, I think that we don't have the access rights to your repo. When I try to clone it externally, it doesn't work with this error: <br><br>"fatal: unable to access '<a href="https://cm-gitlab.stanford.edu/bil/s7/">https://cm-gitlab.stanford.edu/bil/s7/</a>': SSL certificate problem: unable to get local issuer certificate"</div><div><br></div><div>I noticed that there is a work around but if this is to be a tic-80 submodule, then it would need to work directly I think. Anyways, thanks again for your great scheme implementation and your support!</div><div><br></div><div>--</div><div>David</div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Fri, Feb 3, 2023 at 1:52 PM <<a href="mailto:bil@ccrma.stanford.edu">bil@ccrma.stanford.edu</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">> Would there be a way to give a better error message?<br>
<br>
The error message is the third argument to error_nr.<br>
One simple change might be to forward declare wrap_string<br>
and set_elist_1,<br>
<br>
static s7_pointer set_elist_1(s7_scheme *sc, s7_pointer x1);<br>
static s7_pointer wrap_string(s7_scheme *sc, const char *str, s7_int <br>
len);<br>
<br>
then<br>
<br>
static size_t local_fwrite(const void *ptr, size_t size, size_t nmemb, <br>
FILE *stream)<br>
{<br>
error_nr(cur_sc, cur_sc->io_error_symbol,<br>
set_elist_1(cur_sc, wrap_string(cur_sc, "writing a file is <br>
not allowed in this version of s7", 51)));<br>
}<br>
<br>
and similarly for local_fopen. The integer (51 above) is the length of <br>
the<br>
error message string.<br>
<br>
</blockquote></div><br clear="all"><div><br></div>-- <br><div dir="ltr" class="gmail_signature">David</div>