/* * close files * * allfile_close(param) * arguments: * param: Integer * NuSDaS::N_FOPEN_READ : files opened for read * NuSDaS::N_FOPEN_WRITE : files opened for write * NuSDaS::N_FOPEN_ALL : all files * return: Integer (number of cloesd files) or nil (no files were closed) */ VALUE rb_allfile_close(VALUE self, VALUE param) { N_SI4 code; code = nusdas_allfile_close( (N_SI4)NUM2INT(param) ); if (code > 0) return INT2NUM((int)code); else if (code == 0) return Qnil; else rb_raise(rb_eRuntimeError, "%d files cannot be closeed", code); }