1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
/*
Ruby/SDL Ruby extension library for SDL
Copyright (C) 2001-2007 Ohbayashi Ippei
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include "rubysdl.h"
static int rubyio_read(SDL_RWops* context, void* ptr, int size, int maxnum)
{
volatile VALUE io = (VALUE)context->hidden.unknown.data1;
volatile VALUE str;
str = rb_funcall(io, rb_intern("read"), 1, INT2NUM(size*maxnum));
StringValue(str);
memcpy(ptr, RSTRING_PTR(str), RSTRING_LEN(str));
RB_GC_GUARD(io); RB_GC_GUARD(str);
return RSTRING_LEN(str)/size;
}
static int rubyio_write(SDL_RWops* context, const void* ptr, int size, int num)
{
rb_raise(rb_eTypeError, "not implemented yet RWops write");
}
static int rubyio_pseudo_seek(SDL_RWops* context, int offset, int whence)
{
volatile VALUE io = (VALUE)context->hidden.unknown.data1;
volatile VALUE str;
switch(whence){
case SEEK_SET:
rb_funcall(io, rb_intern("rewind"), 0);
rb_funcall(io, rb_intern("read"), 1, INT2NUM(offset));
break;
case SEEK_CUR:
if (offset >= 0) {
str = rb_funcall(io, rb_intern("read"), 1, INT2NUM(offset));
} else {
int d = NUM2INT(rb_funcall(io, rb_intern("tell"), 0)) + offset;
rb_funcall(io, rb_intern("rewind"), 0);
rb_funcall(io, rb_intern("read"), 1, INT2NUM(d));
}
break;
case SEEK_END:
rb_raise(eSDLError, "cannot seek SEEK_END");
default:
SDL_SetError("Unknown value for 'whence'");
return(-1);
}
RB_GC_GUARD(io); RB_GC_GUARD(str);
return NUM2INT(rb_funcall(io, rb_intern("tell"), 0));
}
static int rubyio_close(SDL_RWops* context)
{
if(context)
SDL_FreeRW(context);
return 0;
}
/* WARNING: +obj+ is not marked when GC starts,
so you should use `volatile' when this function is used
and you should not take out this RWops pointer to ruby's world.
*/
SDL_RWops* rubysdl_RWops_from_ruby_obj(VALUE obj)
{
SDL_RWops* rwops;
rwops = SDL_AllocRW();
if( rwops == NULL )
rb_raise(eSDLError, "Out of memory:%s", SDL_GetError());
rwops->seek = rubyio_pseudo_seek;
rwops->read = rubyio_read;
rwops->write = rubyio_write;
rwops->close = rubyio_close;
rwops->hidden.unknown.data1 = (void*)obj;
return rwops;
}
|
