42 lines
1,003 B
Ruby
42 lines
1,003 B
Ruby
|
require 'stasis/raw'
|
||
|
|
|
||
|
|
module Stasis
|
||
|
|
class String
|
||
|
|
|
||
|
|
def String.alloc(xid, str)
|
||
|
|
## str.length is apparently the size of the underlying buffer.
|
||
|
|
rid = Raw.Talloc(xid, str.length+1)
|
||
|
|
return rid
|
||
|
|
end
|
||
|
|
|
||
|
|
def String.put_new(xid, str)
|
||
|
|
rid = String.alloc(xid, str)
|
||
|
|
if(String.set(xid, rid, str))
|
||
|
|
return rid
|
||
|
|
else
|
||
|
|
return nil # This will surely crash the interpreter. Oh well.
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
def String.get(xid, rid)
|
||
|
|
objptr = FFI::MemoryPointer.new :char, Raw.TrecordSize(xid, rid);
|
||
|
|
Raw.Tread(xid, rid, objptr);
|
||
|
|
str = objptr.get_string(0)
|
||
|
|
objptr.free
|
||
|
|
return str
|
||
|
|
end
|
||
|
|
|
||
|
|
def String.set(xid, rid, str)
|
||
|
|
if(str.length + 1 > Raw.TrecordSize(xid, rid))
|
||
|
|
return false # throw exception?
|
||
|
|
else
|
||
|
|
objptr = FFI::MemoryPointer.new :char, str.length+1
|
||
|
|
objptr.put_string(0, str);
|
||
|
|
Raw.Tset(xid, rid, objptr)
|
||
|
|
objptr.free
|
||
|
|
return true
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|