rubyx/lib/soml/parfait/word.soml
Torsten Ruger 1e7935bf85 implement byte access for some word
wouldn’t have been possible without the ruby version
2015-11-11 20:36:07 +02:00

48 lines
944 B
Plaintext

class Word < Object
int char_at(int index)
int word_index = index - 1
word_index = word_index / 4
word_index = word_index + 3
int rest = index - 1
rest = rest.mod(4)
int char = get_internal(word_index)
int shifted = 8 * rest
shifted = char >> shifted
int ret = shifted & 255
return ret
end
int set_length(int i)
set_internal( 2 , i)
return i
end
Word push_char(int char)
int index = self.char_length + 1
self.set_length(index)
int word_index = index - 1
word_index = word_index / 4
word_index = word_index + 3
int rest = index - 1
rest = rest.mod(4)
int shifted = rest * 8
shifted = char << shifted
int was = get_internal( word_index )
int mask = rest * 8
mask = 255 << mask
mask = 4294967295 - mask
int masked = was & mask
int put = masked + shifted
set_internal( word_index , put )
return self
end
end