gistfile1.txt

SAFFIRE_MODULE_METHOD(file, write) {
    t_file_object *file_obj = (t_file_object *)self;

    t_string_object *str_obj;

    if (! object_parse_arguments(SAFFIRE_METHOD_ARGS, "s", &str_obj)) {
        return NULL;
    }

    long bytes_written = fwrite(str_obj->data.value->val, 1, str_obj->data.value->len, file_obj->data.fp);
    file_obj->data.bytes_out += bytes_written;

    RETURN_NUMERICAL(bytes_written);
}