dfhmdf 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: b63e9ac034b94142ef123c5557fe73b860e0f853
+  data.tar.gz: 749a0b27b492e45c7c83fb9c3588160a6e150b9b
+SHA512:
+  metadata.gz: 9378f25ada91fd1bc9462d9189133c51c13bbc43d33f32b41cc4a241818b730c36fe41545180109c9d5faa4e658585555313f8c3119951bc461004c2c92ca51c
+  data.tar.gz: aea1f18ac9970760998a21538bfc7622a03110545dbe05cf7351357aae8b88a4753e3104eacca9788da43802125140e656f586f0cde7642959a61c51868602bc

data/.gitignore

@@ -0,0 +1 @@
+*.lock

data/Gemfile

@@ -0,0 +1,6 @@
+source 'https://rubygems.org'
+
+gem 'rake'
+gem 'rspec'
+
+gemspec

data/Gemspec

@@ -0,0 +1,3 @@
+source 'https://rubygems.org'
+
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2015 Dave Nicolette
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,118 @@
+# dfhmdf
+
+Converts DFHMDF macro specifications into ```text_field``` definitions for use with the (https://github.com/cheezy/te3270/)[TE3270 gem]. The purpose is to eliminate the need for you to count the characters across and down a 3270 screen to determine the X and Y coordinates and the length of each field you wish to define for TE3270.
+
+## Example
+
+Given a BMS macro source file named ```myscreen.txt``` with the following contents:
+
+```
+QCKSET   DFHMSD TYPE=MAP,STORAGE=AUTO,MODE=OUT,LANG=COBOL,TIOAPFX=YES
+QCKMAP   DFHMDI SIZE=(24,80),LINE=1,COLUMN=1,CTRL=ALARM
+         DFHMDF POS=(1,1),LENGTH=3,ATTRB=(ASKIP,BRT),INITIAL='QCK'
+         DFHMDF POS=(1,26),LENGTH=28,ATTRB=(ASKIP,NORM),                X
+              INITIAL='Quick Customer Account Check'
+         DFHMDF POS=(3,1),LENGTH=8,ATTRB=(ASKIP,NORM),INITIAL='Account:'
+ACCTNO   DFHMDF POS=(3,13),LENGTH=7,ATTRB=(ASKIP,NORM)
+         DFHMDF POS=(4,1),LENGTH=5,ATTRB=(ASKIP,NORM),INITIAL='Name:'
+SURNAME  DFHMDF POS=(4,13),LENGTH=15,ATTRB=(ASKIP,NORM)
+FNAME    DFHMDF POS=(4,30),LENGTH=10,ATTRB=(ASKIP,NORM)
+         DFHMDF POS=(5,1),LENGTH=11,ATTRB=(ASKIP,NORM),INITIAL='Max charge:'
+CHG      DFHMDF POS=(5,13),ATTRB=(ASKIP,NORM),PICOUT='$,$$0.00'
+MSG      DFHMDF LENGTH=20,POS=(7,1),ATTRB=(ASKIP,NORM)
+         DFHMSD TYPE=FINAL
+```
+
+run ```dfhmdf`` as a command-line utility:
+
+```sh
+dfhmdf macro-source > target-file
+```
+
+to produce the following output:
+
+```ruby
+  text_field(:acctno, 4, 13, 7)
+  text_field(:surname, 5, 13, 15)
+  text_field(:fname, 5, 30, 10)
+  text_field(:chg, 6, 13, 8)
+  text_field(:msg, 8, 1, 20)
+```
+
+From the example you may surmise:
+
+1. It only pays attention to DFHMDF macros. 
+1. It uses the downcased label value as the TE3270 field name, or a name like 'x14y12' for unlabeled DFHMDF macros.
+1. It adjusts the X axis offset to account for the attribute byte.
+1. When PICOUT is specified instead of LENGTH, it derives the length from the PICOUT value.
+1. It generates only ```text_field``` definitions, and not a complete TE3270 screen class.
+
+So, if you have coded a TE3270 screen class like this:
+
+```ruby
+class MainframeScreen
+  include TE3270
+
+  def login(username, password)
+    self.userid = username
+    self.password = password
+  end
+end
+
+emulator = TE3270.emulator_for :extra do |platform|
+  platform.session_file = 'sessionfile.edp'
+end
+my_screen = MainframeScreen.new(emulator)
+my_screen.userid = 'the_id'
+my_screen.password = 'the_password'
+```
+
+then you can paste in the generated ```text_field``` definitions like this:
+
+```ruby
+class MainframeScreen
+  include TE3270
+
+  text_field(:acctno, 4, 13, 7)
+  text_field(:surname, 5, 13, 15)
+  text_field(:fname, 5, 30, 10)
+  text_field(:chg, 6, 13, 8)
+  text_field(:msg, 8, 1, 20)
+
+  def login(username, password)
+    self.userid = username
+    self.password = password
+  end
+end
+
+emulator = TE3270.emulator_for :extra do |platform|
+  platform.session_file = 'sessionfile.edp'
+end
+my_screen = MainframeScreen.new(emulator)
+my_screen.userid = 'the_id'
+my_screen.password = 'the_password'
+```
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'dfhmdf'
+```
+
+And then execute:
+
+    $ bundle
+
+or install it yourself as:
+
+    $ gem install dfhmdf
+
+## Contributing
+
+1. Fork it ( https://github.com/[my-github-username]/dfhmdf/fork )
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create a new Pull Request

data/Rakefile

@@ -0,0 +1,6 @@
+require "bundler/gem_tasks"
+require "rspec/core/rake_task"
+
+RSpec::Core::RakeTask.new(:spec)
+
+task :default => :spec

data/bin/dfhmdf

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+
+require_relative '../lib/convert_dfhmdf'
+
+convert = ConvertDfhmdf.new  
+convert.run

data/dfhmdf.gemspec

@@ -0,0 +1,23 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'dfhmdf/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "dfhmdf"
+  spec.version       = Dfhmdf::VERSION
+  spec.authors       = ["Dave Nicolette"]
+  spec.email         = ["davenicolette@gmail.com"]
+  spec.summary       = %q{Interprets DFHMDF macros}
+  spec.description   = %q{Generate text_field specifications for te3270 based on DFHMDF source}
+  spec.homepage      = "http://github.com/neopragma/dfhmdf"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.7"
+  spec.add_development_dependency "rake", "~> 10.0"
+end

data/lib/convert_dfhmdf.rb

@@ -0,0 +1,66 @@
+require_relative './dfhmdf'
+
+class ConvertDfhmdf  
+  include Dfhmdf
+
+  def run
+    open_file
+    begin
+      clear
+      ingest_macro
+      process_macro @macro_source
+      puts te3270_text_field if dfhmdf?
+    end while @eof == false
+    close_file
+  end
+
+  def process_macro dfhmdf_macro
+    parse_tokens tokenize_line dfhmdf_macro
+  end  
+
+  def ingest_macro
+    macro_end = false
+    @macro_source = ''
+    current_line = read_line
+    begin
+      if current_line == nil || current_line.length < 72 || current_line[71] == ' '
+        macro_end = true
+      end  
+      @macro_source << squish(current_line)
+      current_line = read_line unless macro_end
+    end while macro_end == false
+    @macro_source
+  end
+
+  def process_macro dfhmdf_macro
+    parse_tokens tokenize_line dfhmdf_macro
+  end  
+
+  def squish str
+    str[71] = ' ' unless str.length < 72
+    str.split.join(' ')
+  end  
+
+  def macro_source
+    @macro_source
+  end  
+
+  def read_line
+    line = @source_file.readline
+    @eof = @source_file.eof?
+    line
+  end  
+
+  def open_file
+    if ARGV[0] == nil
+      abort 'Usage: ruby make_fields.rb inputfilename' 
+    end
+    @source_file = File.open(ARGV[0], 'r')
+    @eof = false
+  end    
+
+  def close_file
+    @source_file.close
+  end  
+
+end

data/lib/dfhmdf.rb

@@ -0,0 +1,126 @@
+module Dfhmdf  
+
+  def te3270_text_field
+    "text_field(:#{field_label}, #{x_coordinate}, #{y_coordinate}, #{field_length})" 
+  end  
+
+  def clear
+    @field_label, @parameter_hash, @parameters, @tokens = nil
+    @dfhmdf = false
+  end
+
+  def tokenize_line input_line
+
+# Want to split on spaces except when space occurs within single quotes.    
+# Should be able to do it with a regex. Unable to figure it out so far. Using brute force.
+# This regex doesn't work but was as close as I was able to get.
+#    @tokens = [@tokens, input_line.scan(/'.*?'|".*?"|\S+/)].compact.reduce([], :|)
+
+    new_tokens = []
+    temp = input_line.split
+    for i in 0..temp.length-1 do
+      if temp[i] != nil
+        if temp[i].include? "'"
+          temp[i] << ' ' << temp[i+1] unless temp[i+1] == nil
+          temp[i + 1] = nil
+          if new_tokens[i] == nil
+            new_tokens[i] = temp[i]
+          else  
+            new_tokens[i] << temp[i]
+          end   
+        else
+          new_tokens << temp[i]
+        end  
+      end    
+    end
+    @tokens = [@tokens, new_tokens].compact.reduce([], :|)
+  end  
+
+  def parse_tokens tokens
+    @dfhmdf = false
+    if tokens[0] == 'DFHMDF'
+      @dfhmdf = true
+      @field_label = nil
+      operands = tokens[1]
+    elsif tokens[1] == 'DFHMDF'
+        @dfhmdf = true
+        @field_label = tokens[0].downcase
+        operands = tokens[2]
+    end
+    if dfhmdf? && tokens != nil && operands != nil && operands.include?('=')
+      parse_operands operands
+    end  
+  end  
+
+
+  def parse_operands operands_as_string
+  #-----------------------------------------------------------------------------
+  # Parse the operands in a macro source statement:
+  #
+  # LABEL MACRO OPERAND,OPERAND,OPERAND COMMENT X
+  #             xxxxxxxxxxxxxxxxxxxxxxx  
+  #
+  # Example
+  # -------
+  # from this...
+  # FIELD1 DFHMDF POS=(6,18),LENGTH=14,ATTRB=(ASKIP,NORM),INITIAL='Hello there'
+  #
+  # to this...
+  # { :pos => [ "6", "18" ], :length => "14", :attrb => [ "ASKIP", "NORM" ], 
+  #   :initial => "Hello there" }
+  #-----------------------------------------------------------------------------
+    @operands_hash = {}
+
+    # Split on comma except when the comma appears within parentheses.
+    # Couldn't figure out how to make it ignore commas within single quotes,
+    # so it misses PICOUT='$,$$0.00' and similar. Using brute force to handle it.
+
+    item = operands_as_string.split(/,(?![^(]*\))/)
+    for i in 0..item.length-1
+      if item[i].match(/^PICOUT=/)
+        item[i] << ',' << item[i+1]
+      end  
+
+      if item[i].include? '='
+        key_value_pair = item[i].split('=')
+
+        # handle operand values consisting of a comma-separated list within parentheses
+        if key_value_pair[1][0] == '('
+          key_value_pair[1].gsub!(/[\(\)]/, '')
+          key_value_pair[1] = key_value_pair[1].split(',')
+        end  
+
+        # handle operand values in single quotes
+        if key_value_pair[1][0] == "'"
+          key_value_pair[1].gsub!(/'/, '')
+        end  
+
+        @operands_hash[key_value_pair[0].downcase.to_sym] = key_value_pair[1]
+      end
+    end    
+    @operands_hash
+  end  
+
+  def x_coordinate
+    (@operands_hash != nil && @operands_hash[:pos] && @operands_hash[:pos][0].to_i + 1) || 0
+  end  
+
+  def y_coordinate
+    (@operands_hash != nil && @operands_hash[:pos] && @operands_hash[:pos][1].to_i) || 0
+  end  
+
+  def field_length
+    (@operands_hash != nil && @operands_hash[:length] && @operands_hash[:length].to_i) ||
+    (@operands_hash != nil && @operands_hash[:initial] && @operands_hash[:initial].length) ||
+    (@operands_hash != nil && @operands_hash[:picout] && @operands_hash[:picout].length) || 0
+  end  
+
+  def field_label
+    (@field_label == nil && "x#{x_coordinate}y#{y_coordinate}") || @field_label
+  end
+
+  def dfhmdf?
+    @dfhmdf
+  end    
+
+end

data/lib/dfhmdf/version.rb

@@ -0,0 +1,3 @@
+module Dfhmdf
+  VERSION = "0.0.1"
+end

data/sample-macros

@@ -0,0 +1,15 @@
+QCKSET   DFHMSD TYPE=MAP,STORAGE=AUTO,MODE=OUT,LANG=COBOL,TIOAPFX=YES
+QCKMAP   DFHMDI SIZE=(24,80),LINE=1,COLUMN=1,CTRL=ALARM
+         DFHMDF POS=(1,1),LENGTH=3,ATTRB=(ASKIP,BRT),INITIAL='QCK'
+TITLE    DFHMDF POS=(1,26),LENGTH=28,ATTRB=(ASKIP,NORM),                X
+              INITIAL='Quick Customer Account Check'
+HEAD     DFHMDF POS=(3,1),LENGTH=8,ATTRB=(ASKIP,NORM),INITIAL='Account:'
+ACCTNO   DFHMDF POS=(3,13),LENGTH=7,ATTRB=(ASKIP,NORM)
+         DFHMDF POS=(4,1),LENGTH=5,ATTRB=(ASKIP,NORM),INITIAL='Name:'
+SURNAME  DFHMDF POS=(4,13),LENGTH=15,ATTRB=(ASKIP,NORM)
+FNAME    DFHMDF POS=(4,30),LENGTH=10,ATTRB=(ASKIP,NORM)
+         DFHMDF POS=(5,1),LENGTH=11,ATTRB=(ASKIP,NORM),                 X
+             INITIAL='Max charge:'                                
+CHG      DFHMDF POS=(5,13),ATTRB=(ASKIP,NORM),PICOUT='$,$$0.00'
+MSG      DFHMDF LENGTH=20,POS=(7,1),ATTRB=(ASKIP,NORM)
+         DFHMSD TYPE=FINAL

data/spec/lib/dfhmdf/convert_dfhmdf_spec.rb

@@ -0,0 +1,49 @@
+require 'convert_dfhmdf'
+  
+describe ConvertDfhmdf do
+
+  before(:each) do
+    @screen_def = ConvertDfhmdf.new
+  end  
+
+  describe "#process_macro" do
+    it "handles a DFHMDF macro" do
+      @screen_def.process_macro 'SURNAME  DFHMDF POS=(4,13),LENGTH=15,ATTRB=(ASKIP,NORM)'
+      expect(@screen_def.dfhmdf?).to be(true)
+      expect(@screen_def.field_label).to eq('surname')
+      expect(@screen_def.x_coordinate).to eq(5)
+      expect(@screen_def.y_coordinate).to eq(13)
+      expect(@screen_def.field_length).to eq(15)
+    end    
+    it "ignores macros other than DFHMDF" do
+      @screen_def.process_macro 'QCKSET   DFHMSD TYPE=MAP,STORAGE=AUTO,MODE=OUT,LANG=COBOL,TIOAPFX=YES'
+      expect(@screen_def.dfhmdf?).to be(false)
+      expect(@screen_def.field_label).to eq('x0y0')
+      expect(@screen_def.x_coordinate).to eq(0)
+      expect(@screen_def.y_coordinate).to eq(0)
+      expect(@screen_def.field_length).to eq(0)
+    end  
+  end  
+
+  describe "#ingest_macro" do
+    it "stores macro source coded on a single line" do
+      allow(@screen_def).to receive(:read_line).and_return('SURNAME  DFHMDF POS=(4,13),LENGTH=15,ATTRB=(ASKIP,NORM)')
+      @screen_def.ingest_macro
+      expect(@screen_def.macro_source).to eq('SURNAME DFHMDF POS=(4,13),LENGTH=15,ATTRB=(ASKIP,NORM)')
+    end
+
+    it "stores macro source coded on multiple lines" do
+      allow(@screen_def).to receive(:read_line).and_return(
+#                 1         2         3         4         5         6         7         8           
+#        12345678901234567890123456789012345678901234567890123456789012345678901234567890      
+        'SURNAME  DFHMDF POS=(4,13),                                            X',
+        '                LENGTH=15,                                             X',
+        '                ATTRB=(ASKIP,NORM),                                    X',
+        '                INITIAL=\'Name here\'')
+      @screen_def.ingest_macro
+      expect(@screen_def.macro_source)
+        .to eq('SURNAME DFHMDF POS=(4,13),LENGTH=15,ATTRB=(ASKIP,NORM),INITIAL=\'Name here\'')
+    end  
+  end  
+
+end

data/spec/lib/dfhmdf/dfhmdf_spec.rb

@@ -0,0 +1,208 @@
+require 'dfhmdf'
+
+class ScreenDef
+  include Dfhmdf
+
+  def operands_hash value    
+    @operands_hash = value
+  end  
+
+  def field_label= value
+    @field_label = value
+  end  
+
+end
+  
+describe ScreenDef do
+
+  before(:each) do
+    @screen_def = ScreenDef.new
+  end  
+
+  context "housekeeping" do
+    it "clears all temporary values relevant to processing a DFHMDF macro" do
+      @screen_def.clear
+      expect(@screen_def.dfhmdf?).to be(false)
+      expect(@screen_def.field_length).to eq(0)
+      expect(@screen_def.field_label).to eq('x0y0')
+      expect(@screen_def.x_coordinate).to eq(0)
+      expect(@screen_def.y_coordinate).to eq(0)
+    end    
+  end  
+
+  context "tokenizing" do
+    describe "#tokenize_line" do
+      it "collects tokens separated by spaces" do
+        expect(@screen_def.tokenize_line('abc de,fg,hijk lmnop'))
+          .to eq([ 'abc', 'de,fg,hijk', 'lmnop' ])
+      end
+
+      it "doesn't split on spaces that appear within quoted strings" do
+        expect(@screen_def.tokenize_line("abc de,'fg hi',jkl mnop"))
+          .to eq([ "abc", "de,'fg hi',jkl", "mnop" ])
+      end
+
+      it "splits properly when the last operand is a quoted string with a space" do
+        expect(@screen_def.tokenize_line("abc de,'fg hi',jkl"))
+          .to eq([ "abc", "de,'fg hi',jkl" ])
+      end
+    end
+  end    
+
+  context "recognizing DFHMDF macros" do
+    describe "#parse_tokens" do
+      it "recognizes a DFHMDF macro with no label" do
+        @screen_def.parse_tokens([ 'DFHMDF', 'POS=(4,5),LENGTH=15', 'baz' ])
+        expect(@screen_def.dfhmdf?).to be(true)
+      end
+    end
+
+    describe "#parse_tokens" do
+      it "clears the previous value of field label when none is specified" do
+        @screen_def.field_label = 'aardvaark'
+        @screen_def.parse_tokens([ 'DFHMDF', 'foo', 'bar' ])
+        expect(@screen_def.field_label).to eql('x0y0')
+      end
+    end
+
+    describe "#parse_tokens" do
+      it "recognizes a DFHMDF macro with a label" do
+        @screen_def.parse_tokens([ 'FIELDNAME', 'DFHMDF', 'POS=(4,5),LENGTH=15', 'bar' ])
+        expect(@screen_def.dfhmdf?).to be(true)
+      end
+    end
+
+    describe "#parse_tokens" do
+      it "populates the field label when one is specified" do
+        @screen_def.parse_tokens([ 'FIELDNAME', 'DFHMDF', 'POS=(4,5),LENGTH=15', 'bar' ])
+        expect(@screen_def.field_label).to eq('fieldname')
+      end
+    end
+
+    describe "#parse_tokens" do
+      it "ignores source lines that do not contain a DFHMDF macro" do
+        @screen_def.parse_tokens [ 'foo', 'bar', 'DFHMDF', 'baz' ]
+        expect(@screen_def.dfhmdf?).to eq(false)
+      end
+    end
+  end
+
+  context "parsing macro operands" do  
+    describe "#parse_operands" do
+      it "handles simple key-value pairs" do
+        expect(@screen_def.parse_operands("KEY1=15,KEY2=30"))
+          .to eq({ :key1 => "15", :key2 => "30" })
+      end
+
+      it "handles operands with quoted values" do
+        expect(@screen_def.parse_operands("KEY1='Quoted value 1',KEY2='Quoted value 2'"))
+          .to eq({ :key1 => "Quoted value 1", :key2 => "Quoted value 2" })
+      end
+
+      it "handles operands with comma-separated values in parentheses" do
+        expect(@screen_def.parse_operands("KEY1=(one,two),KEY2=(three,four)"))
+          .to eq({ :key1 => [ "one", "two" ], :key2 => [ "three", "four" ] })
+      end
+
+      it "handles a mix of operand formats" do
+        expect(@screen_def.parse_operands("POS=(6,18),LENGTH=14,ATTRB=(ASKIP,NORM),INITIAL='Hello there'"))
+          .to eq({ :pos => [ "6", "18" ], :length => "14", :attrb => [ "ASKIP", "NORM" ], :initial => "Hello there" })
+      end
+    end    
+  end  
+
+  context "determining field label" do
+    describe "#field_label" do
+      it "returns the field label that was specified on the DFHMDF macro" do
+        @screen_def.field_label = 'NAME'
+        expect(@screen_def.field_label).to eq('NAME')  
+      end  
+
+      it "derives a field label based on x and y coordinates when no label was specified" do
+        @screen_def.field_label = nil
+        @screen_def.operands_hash( { :pos => [ "5", "18" ] })
+        expect(@screen_def.field_label).to eq('x6y18')  
+      end  
+    end    
+  end  
+
+  context "determining field position" do
+    describe "#x_coordinate" do
+      it "returns 0 as the x coordinate if the position has not been determined" do
+        expect(@screen_def.x_coordinate).to eq(0)
+      end  
+
+      it "returns 0 as the x coordinate if POS=(x,y) was not specified" do
+        @screen_def.operands_hash( { :foo => "bar" } )
+        expect(@screen_def.x_coordinate).to eq(0)
+      end  
+
+      it "calculates the x coordinate value skipping the attribute byte" do
+        @screen_def.operands_hash( { :pos => ["5", "28"] } )
+        expect(@screen_def.x_coordinate).to eq(6)
+      end
+    end
+
+    describe "#y_coordinate" do
+      it "returns 0 as the y coordinate if the position has not been determined" do
+        expect(@screen_def.y_coordinate).to eq(0)
+      end  
+
+      it "returns 0 as the y coordinate if POS=(x,y) was not specified" do
+        @screen_def.operands_hash( { :foo => "bar" } )
+        expect(@screen_def.y_coordinate).to eq(0)
+      end  
+
+      it "returns the y coordinate value from the POS=(x,y) parameter" do
+        @screen_def.operands_hash( { :pos => ["5", "28"] } )
+        expect(@screen_def.y_coordinate).to eq(28)
+      end
+    end
+  end  
+
+  describe "determining field length" do
+    describe "handling the LENGTH= parameter of the DFHMDF macro" do
+      it "returns 0 as the length if the length has not been determined" do
+        expect(@screen_def.field_length).to eq(0)
+      end  
+
+      it "returns 0 as the length if the length was not specified" do
+        @screen_def.operands_hash( { :foo => "bar" } )
+        expect(@screen_def.field_length).to eq(0)
+      end  
+
+      it "returns the length value from the LENGTH= parameter" do
+        @screen_def.operands_hash( { :length => "34" })
+        expect(@screen_def.field_length).to eq(34)
+      end
+    end    
+
+    describe "handling the PICOUT= parameter of the DFHMDF macro" do
+      it "derives the length based on the PICOUT value" do  
+        @screen_def.operands_hash( { :picout => "$,$$0.00" })
+        expect(@screen_def.field_length).to eq(8)
+      end  
+    end    
+  end  
+
+  describe "generating a text_field definition" do
+    it "generates a text_field definition for a field with a LENGTH= specification" do
+      @screen_def.field_label = 'myfield'
+      @screen_def.operands_hash({ :pos => [ "23", "6" ], :length => "14" })  
+      expect(@screen_def.te3270_text_field).to eql('text_field(:myfield, 24, 6, 14)')
+    end
+
+    it "generates a text_field definition for a field with a PICOUT= specification" do
+      @screen_def.field_label = 'otherfld'
+      @screen_def.operands_hash({ :pos => [ "8", "16" ], :picout => "$$,$$0.00" })  
+      expect(@screen_def.te3270_text_field).to eql('text_field(:otherfld, 9, 16, 9)')      
+    end    
+
+    it "generates a text_field definition for a field with INITIAL= and no LENGTH=" do
+      @screen_def.field_label = 'otherfld'
+      @screen_def.operands_hash({ :pos => [ "8", "16" ], :initial => "Hello" })  
+      expect(@screen_def.te3270_text_field).to eql('text_field(:otherfld, 9, 16, 5)')      
+    end    
+  end 
+
+end

data/spec/spec_helper.rb

@@ -0,0 +1,3 @@
+$LOAD_PATH.unshift File.expand_path('../../lib', __FILE__)
+
+require 'dfhmdf'

metadata

@@ -0,0 +1,91 @@
+--- !ruby/object:Gem::Specification
+name: dfhmdf
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- Dave Nicolette
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2015-03-15 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.7'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.7'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '10.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '10.0'
+description: Generate text_field specifications for te3270 based on DFHMDF source
+email:
+- davenicolette@gmail.com
+executables:
+- dfhmdf
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- Gemspec
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/dfhmdf
+- dfhmdf.gemspec
+- lib/convert_dfhmdf.rb
+- lib/dfhmdf.rb
+- lib/dfhmdf/version.rb
+- sample-macros
+- spec/lib/dfhmdf/convert_dfhmdf_spec.rb
+- spec/lib/dfhmdf/dfhmdf_spec.rb
+- spec/spec_helper.rb
+homepage: http://github.com/neopragma/dfhmdf
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 4
+summary: Interprets DFHMDF macros
+test_files:
+- spec/lib/dfhmdf/convert_dfhmdf_spec.rb
+- spec/lib/dfhmdf/dfhmdf_spec.rb
+- spec/spec_helper.rb