scriptty 0.5.0-java

data/lib/scriptty/term/dg410/dg410-escapes.txt

@@ -0,0 +1,82 @@
+# Terminal escapes for dg410
+#'\001' => t_print_form
+#'\002' => t_stx
+'\003' => t_blink_enable
+'\004' => t_blink_disable
+#'\005' => t_read_window_address
+'\006' => t_proprietary_ack
+'\007' => t_bell
+'\010' => t_window_home
+#'\011' => t_tab
+'\012' => t_new_line
+'\013' => t_erase_end_of_line
+'\014' => t_erase_window
+'\015' => t_carriage_return
+'\016' => t_blink_on
+'\017' => t_blink_off
+'\020' => {
+    * => {
+        * => t_write_window_address
+    }
+}
+'\021' => t_print_window
+'\022' => t_roll_enable
+'\023' => t_roll_disable
+'\024' => t_underscore_on
+'\025' => t_underscore_off
+#'\026' => t_syn    # seems to always be followed by some data, then \002 # XXX TODO
+'\027' => t_cursor_up
+'\030' => t_cursor_right
+'\031' => t_cursor_left
+'\032' => t_cursor_down
+'\033' => {
+#    '\x20' => {
+#        'i' => t_esc_sp_i
+#    }
+#    '*' => {
+#        's' => t_esc_asterisk_s
+#    }
+    ']' => {     # OSC? -- Nope XXX TODO
+        [01] => {
+            'M' => t_osc_m    # XXX TODO
+            'K' => t_osc_k    # XXX TODO
+        }
+    }
+}
+'\034' => t_dim_on
+'\035' => t_dim_off
+'\036' => {
+#    'C' => t_read_model_id
+    'D' => t_reverse_video_on
+    'E' => t_reverse_video_off
+    'F' => {
+        'A' => t_reset
+        'F' => t_erase_unprotected
+#        'I' => t_delete_line
+        'Q' => {
+            * => t_set_cursor_type
+        }
+#        '\\' => t_delete_between_margins
+#        '@' => t_select_ansi_mode
+    }
+#    'K' => t_delete_character
+    '~' => t_parse_proprietary_escape
+}
+'\377' => {
+    '\372' => t_parse_telnet_sb => {
+        * => t_telnet_subnegotiation
+    }
+    '\373' => {
+        * => t_telnet_will
+    }
+    '\374' => {
+        * => t_telnet_wont
+    }
+    '\375' => {
+        * => t_telnet_do
+    }
+    '\376' => {
+        * => t_telnet_dont
+    }
+}
+[\x20-\x7e] => t_printable

data/lib/scriptty/term/dg410/parser.rb

@@ -0,0 +1,162 @@
+# = Parser for DG410 terminal
+# Copyright (C) 2010  Infonium Inc.
+#
+# This file is part of ScripTTY.
+#
+# ScripTTY is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# ScripTTY is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public License
+# along with ScripTTY.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'scriptty/term/dg410'
+
+module ScripTTY # :nodoc:
+  module Term
+    class DG410 # reopen
+      class Parser
+        SERVER_PARSER_DEFINITION = File.read(File.join(File.dirname(__FILE__), "dg410-escapes.txt"))
+        CLIENT_PARSER_DEFINITION = File.read(File.join(File.dirname(__FILE__), "dg410-client-escapes.txt"))
+
+        # ScripTTY::Util::FSM object used by this parser.  (Used for debugging.)
+        attr_reader :fsm
+
+        def initialize(options={})
+          @fsm = Util::FSM.new(
+            :definition => options[:client] ? CLIENT_PARSER_DEFINITION : SERVER_PARSER_DEFINITION,
+            :callback => self, :callback_method => :handle_event)
+          @callback = options[:callback]
+          @callback_method = options[:callback_method] || :call
+          on_unknown_sequence :error
+        end
+
+        # Set the behaviour of the terminal when an unknown escape sequence is
+        # found.
+        #
+        # This method takes either a symbol or a block.
+        #
+        # When a block is given, it is executed whenever an unknown escape
+        # sequence is received.  The block is passed the escape sequence as a
+        # single string.
+        #
+        # When a symbol is given, it may be one of the following:
+        # [:error]
+        #   (default) Raise a ScripTTY::Util::FSM::NoMatch exception.
+        # [:ignore]
+        #   Ignore the unknown escape sequence.
+        def on_unknown_sequence(mode=nil, &block)
+          if !block and !mode
+            raise ArgumentError.new("No mode specified and no block given")
+          elsif block and mode
+            raise ArgumentError.new("Block and mode are mutually exclusive, but both were given")
+          elsif block
+            @on_unknown_sequence = block
+          elsif [:error, :ignore].include?(mode)
+            @on_unknown_sequence = mode
+          else
+            raise ArgumentError.new("Invalid mode #{mode.inspect}")
+          end
+        end
+
+        # Feed the specified byte to the terminal.  Returns a string of
+        # bytes that should be transmitted (e.g. for TELNET negotiation).
+        def feed_byte(byte)
+          raise ArgumentError.new("input should be single byte") unless byte.is_a?(String) and byte.length == 1
+          begin
+            @fsm.process(byte)
+          rescue Util::FSM::NoMatch => e
+            @fsm.reset!
+            if @on_unknown_sequence == :error
+              raise
+            elsif @on_unknown_sequence == :ignore
+              # do nothing
+            elsif !@on_unknown_sequence.is_a?(Symbol)   # @on_unknown_sequence is a Proc
+              @on_unknown_sequence.call(e.input_sequence.join)
+            else
+              raise "BUG"
+            end
+          end
+          ""
+        end
+
+        # Convenience method: Feeds several bytes to the terminal.  Returns a
+        # string of bytes that should be transmitted (e.g. for TELNET
+        # negotiation).
+        def feed_bytes(bytes)
+          retvals = []
+          bytes.split(//n).each do |byte|
+            retvals << feed_byte(byte)
+          end
+          retvals.join
+        end
+
+        private
+
+          def handle_event(event, fsm)
+            if respond_to?(event, true)
+              send(event, fsm)
+            else
+              @callback.__send__(@callback_method, event, fsm) if @callback
+            end
+          end
+
+          # Parse proprietary escape code, and fire the :t_proprietary_escape
+          # event when finished.
+          def t_parse_proprietary_escape(fsm)
+            state = 0
+            length = nil
+            header_length = 5
+            fsm.redirect = lambda {|fsm|
+              if fsm.input_sequence.length == header_length
+                length = fsm.input.unpack("C*")[0]
+              end
+              if length && fsm.input_sequence.length >= header_length + length
+                fsm.redirect = nil
+                fsm.fire_event(:t_proprietary_escape)
+              end
+              true
+            }
+          end
+
+          # IAC SB ... SE
+          def t_parse_telnet_sb(fsm)
+            # limit subnegotiation to 100 chars   # FIXME - This is wrong
+            count = 0
+            fsm.redirect = lambda {|fsm| count += 1; count < 100 && fsm.input_sequence[-2..-1] != ["\377", "\360"]}
+          end
+
+          # Parse ANSI/DEC CSI escape sequence parameters.  Pass in fsm.input_sequence
+          #
+          # Example:
+          #   parse_csi_params("\e[H")  # returns []
+          #   parse_csi_params("\e[;H")  # returns []
+          #   parse_csi_params("\e[2J")  # returns [2]
+          #   parse_csi_params("\e[33;42;0m")  # returns [33, 42, 0]
+          #   parse_csi_params(["\e", "[", "3", "3", ";", "4" "2", ";" "0", "m"])  # same as above, but takes an array
+          #
+          # This also works with DEC escape sequences:
+          #   parse_csi_params("\e[?1;2J")  # returns [1,2]
+          def parse_csi_params(input_seq) # TODO - test this
+            seq = input_seq.join if input_seq.respond_to?(:join)  # Convert array to string
+            unless seq =~ /\A\e\[\??([\d;]*)[^\d]\Z/n
+              raise "BUG"
+            end
+            $1.split(/;/n).map{|p|
+              if p.empty?
+                nil
+              else
+                p.to_i
+              end
+            }
+          end
+      end
+    end
+  end
+end