diff options
Diffstat (limited to 'vtparse/src/vtparse_tables.rb')
| -rw-r--r-- | vtparse/src/vtparse_tables.rb | 269 |
1 files changed, 269 insertions, 0 deletions
diff --git a/vtparse/src/vtparse_tables.rb b/vtparse/src/vtparse_tables.rb new file mode 100644 index 0000000..030be7d --- /dev/null +++ b/vtparse/src/vtparse_tables.rb @@ -0,0 +1,269 @@ + +class StateTransition + attr_accessor :to_state + def initialize(to_state) + @to_state = to_state + end +end + +def transition_to(state) + StateTransition.new(state) +end + +$states = {} + +$states[:ANYWHERE] = { + 0x18 => [:execute, transition_to(:GROUND)], + 0x1a => [:execute, transition_to(:GROUND)], + 0x80..0x8f => [:execute, transition_to(:GROUND)], + 0x91..0x97 => [:execute, transition_to(:GROUND)], + 0x99 => [:execute, transition_to(:GROUND)], + 0x9a => [:execute, transition_to(:GROUND)], + 0x9c => [:execute, transition_to(:GROUND)], + 0x1b => transition_to(:ESCAPE), + 0x98 => transition_to(:SOS_PM_APC_STRING), + 0x9e => transition_to(:SOS_PM_APC_STRING), + 0x9f => transition_to(:SOS_PM_APC_STRING), + 0x90 => transition_to(:DCS_ENTRY), + 0x9d => transition_to(:OSC_STRING), + 0x9b => transition_to(:CSI_ENTRY), + 0xc0..0xdf => [:print, transition_to(:UTF8)], # UTF-8 2 bytes sequence start + 0xe0..0xef => [:print, transition_to(:UTF8)], # UTF-8 3 bytes sequence start + 0xf0..0xf7 => [:print, transition_to(:UTF8)], # UTF-8 4 bytes sequence start + 0xf8..0xfb => [:print, transition_to(:UTF8)], # UTF-8 5 bytes sequence start + 0xfc..0xfd => [:print, transition_to(:UTF8)] # UTF-8 6 bytes sequence start +} + +$states[:GROUND] = { + 0x00..0x17 => :execute, + 0x19 => :execute, + 0x1c..0x1f => :execute, + 0x20..0x7f => :print, + 0x80..0x8f => :execute, + 0x91..0x9a => :execute, + 0x9c => :execute, + 0xc0..0xdf => [:print, transition_to(:UTF8)], # UTF-8 2 bytes sequence start + 0xe0..0xef => [:print, transition_to(:UTF8)], # UTF-8 3 bytes sequence start + 0xf0..0xf7 => [:print, transition_to(:UTF8)], # UTF-8 4 bytes sequence start + 0xf8..0xfb => [:print, transition_to(:UTF8)], # UTF-8 5 bytes sequence start + 0xfc..0xfd => [:print, transition_to(:UTF8)] # UTF-8 6 bytes sequence start +} + +$states[:UTF8] = { + 0x00..0x17 => [:execute, transition_to(:GROUND)], + 0x19 => [:execute, transition_to(:GROUND)], + 0x1c..0x1f => [:execute, transition_to(:GROUND)], + 0x20..0x7f => [:print, transition_to(:GROUND)], + 0x80..0xbf => :print, # UTF-8 sequence + 0xc0..0xdf => :print, # UTF-8 2 bytes sequence start + 0xe0..0xef => :print, # UTF-8 3 bytes sequence start + 0xf0..0xf7 => :print, # UTF-8 4 bytes sequence start + 0xf8..0xfb => :print, # UTF-8 5 bytes sequence start + 0xfc..0xfd => :print, # UTF-8 6 bytes sequence start + 0xfe..0xff => transition_to(:GROUND) +} + +$states[:ESCAPE] = { + :on_entry => :clear, + 0x00..0x17 => :execute, + 0x19 => :execute, + 0x1c..0x1f => :execute, + 0x7f => :ignore, + 0x20..0x2f => [:collect, transition_to(:ESCAPE_INTERMEDIATE)], + 0x30..0x4f => [:esc_dispatch, transition_to(:GROUND)], + 0x51..0x57 => [:esc_dispatch, transition_to(:GROUND)], + 0x59 => [:esc_dispatch, transition_to(:GROUND)], + 0x5a => [:esc_dispatch, transition_to(:GROUND)], + 0x5c => [:esc_dispatch, transition_to(:GROUND)], + 0x60..0x7e => [:esc_dispatch, transition_to(:GROUND)], + 0x5b => transition_to(:CSI_ENTRY), + 0x5d => transition_to(:OSC_STRING), + 0x50 => transition_to(:DCS_ENTRY), + 0x58 => transition_to(:SOS_PM_APC_STRING), + 0x5e => transition_to(:SOS_PM_APC_STRING), + 0x5f => transition_to(:SOS_PM_APC_STRING), +} + +$states[:ESCAPE_INTERMEDIATE] = { + 0x00..0x17 => :execute, + 0x19 => :execute, + 0x1c..0x1f => :execute, + 0x20..0x2f => :collect, + 0x7f => :ignore, + 0x30..0x7e => [:esc_dispatch, transition_to(:GROUND)] +} + +$states[:CSI_ENTRY] = { + :on_entry => :clear, + 0x00..0x17 => :execute, + 0x19 => :execute, + 0x1c..0x1f => :execute, + 0x7f => :ignore, + 0x20..0x2f => [:collect, transition_to(:CSI_INTERMEDIATE)], + 0x3a => transition_to(:CSI_IGNORE), + 0x30..0x39 => [:param, transition_to(:CSI_PARAM)], + 0x3b => [:param, transition_to(:CSI_PARAM)], + 0x3c..0x3f => [:collect, transition_to(:CSI_PARAM)], + 0x40..0x7e => [:csi_dispatch, transition_to(:GROUND)] +} + +$states[:CSI_IGNORE] = { + 0x00..0x17 => :execute, + 0x19 => :execute, + 0x1c..0x1f => :execute, + 0x20..0x3f => :ignore, + 0x7f => :ignore, + 0x40..0x7e => transition_to(:GROUND), +} + +$states[:CSI_PARAM] = { + 0x00..0x17 => :execute, + 0x19 => :execute, + 0x1c..0x1f => :execute, + 0x30..0x39 => :param, + 0x3b => :param, + 0x7f => :ignore, + 0x3a => transition_to(:CSI_IGNORE), + 0x3c..0x3f => transition_to(:CSI_IGNORE), + 0x20..0x2f => [:collect, transition_to(:CSI_INTERMEDIATE)], + 0x40..0x7e => [:csi_dispatch, transition_to(:GROUND)] +} + +$states[:CSI_INTERMEDIATE] = { + 0x00..0x17 => :execute, + 0x19 => :execute, + 0x1c..0x1f => :execute, + 0x20..0x2f => :collect, + 0x7f => :ignore, + 0x30..0x3f => transition_to(:CSI_IGNORE), + 0x40..0x7e => [:csi_dispatch, transition_to(:GROUND)], +} + +$states[:DCS_ENTRY] = { + :on_entry => :clear, + 0x00..0x17 => :ignore, + 0x19 => :ignore, + 0x1c..0x1f => :ignore, + 0x7f => :ignore, + 0x3a => transition_to(:DCS_IGNORE), + 0x20..0x2f => [:collect, transition_to(:DCS_INTERMEDIATE)], + 0x30..0x39 => [:param, transition_to(:DCS_PARAM)], + 0x3b => [:param, transition_to(:DCS_PARAM)], + 0x3c..0x3f => [:collect, transition_to(:DCS_PARAM)], + 0x40..0x7e => [transition_to(:DCS_PASSTHROUGH)] +} + +$states[:DCS_INTERMEDIATE] = { + 0x00..0x17 => :ignore, + 0x19 => :ignore, + 0x1c..0x1f => :ignore, + 0x20..0x2f => :collect, + 0x7f => :ignore, + 0x30..0x3f => transition_to(:DCS_IGNORE), + 0x40..0x7e => transition_to(:DCS_PASSTHROUGH) +} + +$states[:DCS_IGNORE] = { + 0x00..0x17 => :ignore, + 0x19 => :ignore, + 0x1c..0x1f => :ignore, + 0x20..0x7f => :ignore, + 0x9c => transition_to(:GROUND) +} + +$states[:DCS_PARAM] = { + 0x00..0x17 => :ignore, + 0x19 => :ignore, + 0x1c..0x1f => :ignore, + 0x30..0x39 => :param, + 0x3b => :param, + 0x7f => :ignore, + 0x3a => transition_to(:DCS_IGNORE), + 0x3c..0x3f => transition_to(:DCS_IGNORE), + 0x20..0x2f => [:collect, transition_to(:DCS_INTERMEDIATE)], + 0x40..0x7e => transition_to(:DCS_PASSTHROUGH) +} + +$states[:DCS_PASSTHROUGH] = { + :on_entry => :hook, + 0x00..0x17 => :put, + 0x19 => :put, + 0x1c..0x1f => :put, + 0x20..0x7e => :put, + 0x7f => :ignore, + 0x9c => transition_to(:GROUND), + :on_exit => :unhook +} + +$states[:SOS_PM_APC_STRING] = { + 0x00..0x17 => :ignore, + 0x19 => :ignore, + 0x1c..0x1f => :ignore, + 0x20..0x7f => :ignore, + 0x9c => transition_to(:GROUND) +} + +$states[:OSC_STRING] = { + :on_entry => :osc_start, + 0x00..0x17 => :ignore, + 0x19 => :ignore, + 0x1c..0x1f => :ignore, + 0x20..0x7f => :osc_put, + 0x9c => transition_to(:GROUND), + :on_exit => :osc_end +} + +$states.each { |state, transitions| + transitions.each { |keys, actions| + if not actions.kind_of?(Array) + $states[state][keys] = [actions] + end + } +} + + +# get the list of actions implicit in the tables + +action_names = {} +$states.each { |state, transitions| + transitions.each { |keys, actions| + actions.each { |action| + if action.kind_of?(Symbol) + action_names[action] = 1 + end + } + } +} + +# establish an ordering to the states and actions + +$actions_in_order = action_names.keys.sort { |a1, a2| a1.to_s <=> a2.to_s } +$states_in_order = $states.keys.sort { |s1, s2| s1.to_s <=> s2.to_s } + +# +# Expand the above range-based data structures (which are convenient +# to write) into fully expanded tables (which are easier to use). +# + +$state_tables = {} + +def expand_ranges(hash_with_ranges_as_keys) + array = [] + hash_with_ranges_as_keys.each { |range, val| + if range.kind_of?(Range) + range.each { |i| + array[i] = val + } + elsif range.kind_of?(Fixnum) + array[range] = val + end + } + + array +end + +$states.each { |state, transitions| + $state_tables[state] = expand_ranges(transitions) +} + + |