int Icloseio (int argc, lvar_t *argv) { if (argc == 1) IOclose ((int) Tgetnumber (argv[0].o), NULL); else IOclose ((int) Tgetnumber (argv[0].o), Tgetstring (argv[1].o)); return L_SUCCESS; }
void IOterm (void) { int ioi; for (ioi = 0; ioi < ion; ioi++) if (iop[ioi].inuse) IOclose (ioi, NULL); Marrayfree (iop), iop = NULL, ion = 0; }