rubyx/lib/soml/parfait/word.soml
Torsten Ruger 5369dc3d52 rename get/set internal
to _word , because _byte versions are coming
2015-11-18 15:36:43 +02:00

55 lines
1.1 KiB
Plaintext

class Word < Object
int char_at(int index)
int word_index = index - 1
word_index = word_index >> 2
word_index = word_index + 3
int rest = index - 1
rest = rest.mod4()
int char = get_internal_word(word_index)
int shifted = 8 * rest
shifted = char >> shifted
int ret = shifted & 255
return ret
end
int set_length(int i)
set_internal_word( 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 >> 2
word_index = word_index + 3
int rest = index - 1
rest = rest.mod4()
int shifted = rest * 8
shifted = char << shifted
int was = get_internal_word( word_index )
int mask = rest * 8
int const = 255 << 8
const = const + 255
const = const << 8
const = const + 255
const = const << 8
const = const + 255
mask = 255 << mask
mask = const - mask
int masked = was & mask
int put = masked + shifted
set_internal_word( word_index , put )
return self
end
end