move adapter stuff around
This commit is contained in:
parent
86b1edb40c
commit
e6f01748ff
@ -253,15 +253,4 @@ module Parfait
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
# new list from ruby array to be precise
|
|
||||||
def self.new_list array
|
|
||||||
list = Parfait::List.new
|
|
||||||
list.set_length array.length
|
|
||||||
index = 0
|
|
||||||
while index < array.length do
|
|
||||||
list.set(index , array[index])
|
|
||||||
index = index + 1
|
|
||||||
end
|
|
||||||
list
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
|
@ -191,14 +191,4 @@ module Parfait
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
# Word from string
|
|
||||||
def self.new_word( string )
|
|
||||||
string = string.to_s if string.is_a? Symbol
|
|
||||||
word = Word.new( string.length )
|
|
||||||
string.codepoints.each_with_index do |code , index |
|
|
||||||
word.set_char(index , code)
|
|
||||||
end
|
|
||||||
word
|
|
||||||
end
|
|
||||||
|
|
||||||
end
|
end
|
||||||
|
@ -23,6 +23,29 @@ module Parfait
|
|||||||
value
|
value
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
|
# new list from ruby array to be precise
|
||||||
|
def self.new_list array
|
||||||
|
list = Parfait::List.new
|
||||||
|
list.set_length array.length
|
||||||
|
index = 0
|
||||||
|
while index < array.length do
|
||||||
|
list.set(index , array[index])
|
||||||
|
index = index + 1
|
||||||
|
end
|
||||||
|
list
|
||||||
|
end
|
||||||
|
|
||||||
|
# Word from string
|
||||||
|
def self.new_word( string )
|
||||||
|
string = string.to_s if string.is_a? Symbol
|
||||||
|
word = Word.new( string.length )
|
||||||
|
string.codepoints.each_with_index do |code , index |
|
||||||
|
word.set_char(index , code)
|
||||||
|
end
|
||||||
|
word
|
||||||
|
end
|
||||||
|
|
||||||
end
|
end
|
||||||
|
|
||||||
class Symbol
|
class Symbol
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
require_relative "helper"
|
require_relative "helper"
|
||||||
|
|
||||||
module Parfait
|
module Parfait
|
||||||
class TestCompat < MiniTest::Test
|
class TestAdapter < MiniTest::Test
|
||||||
|
|
||||||
def setup
|
def setup
|
||||||
Risc.machine.boot
|
Risc.machine.boot
|
Loading…
x
Reference in New Issue
Block a user