sal-tools-analyze 0.0.1

data/test/data/test.41.text.externalfunctions.app

@@ -0,0 +1,352 @@
+.head 0 +  Application Description: Gupta SQLWindows Standard Application Template
+
+v2.0
+v2.1 - external function mit kommentar
+.head 1 -  Outline Version - 4.0.35
+.head 1 +  Design-time Settings
+.data VIEWINFO
+0000: 6F00000001000000 FFFF01000D004347 5458566965775374 6174650400010000
+0020: 0000000000A50000 002C000000020000 0003000000FFFFFF FFFFFFFFFFFCFFFF
+0040: FFE9FFFFFFFFFFFF FF000000007C0200 004D010000010000 0001000000010000
+0060: 000F4170706C6963 6174696F6E497465 6D00000000
+.enddata
+.head 2 -  Outline Window State: Normal
+.head 2 +  Outline Window Location and Size
+.data VIEWINFO
+0000: 6600040003002D00 0000000000000000 0000B71E5D0E0500 1D00FFFF4D61696E
+0020: 0000000000000000 0000000000000000 0000003B00010000 00000000000000E9
+0040: 1E800A00008600FF FF496E7465726E61 6C2046756E637469 6F6E730000000000
+0060: 0000000000000000 0000000000003200 0100000000000000 0000E91E800A0000
+0080: DF00FFFF56617269 61626C6573000000 0000000000000000 0000000000000000
+00A0: 3000010000000000 00000000F51E100D 0000F400FFFF436C 6173736573000000
+00C0: 0000000000000000 0000000000000000
+.enddata
+.data VIEWSIZE
+0000: D000
+.enddata
+.head 3 -  Left: -0.013"
+.head 3 -  Top: 0.0"
+.head 3 -  Width:  8.013"
+.head 3 -  Height: 4.969"
+.head 2 +  Options Box Location
+.data VIEWINFO
+0000: D4180909B80B1A00
+.enddata
+.data VIEWSIZE
+0000: 0800
+.enddata
+.head 3 -  Visible? Yes
+.head 3 -  Left: 4.15"
+.head 3 -  Top: 1.885"
+.head 3 -  Width:  3.8"
+.head 3 -  Height: 2.073"
+.head 2 +  Class Editor Location
+.head 3 -  Visible? No
+.head 3 -  Left: 0.575"
+.head 3 -  Top: 0.094"
+.head 3 -  Width:  5.063"
+.head 3 -  Height: 2.719"
+.head 2 +  Tool Palette Location
+.head 3 -  Visible? No
+.head 3 -  Left: 6.388"
+.head 3 -  Top: 0.729"
+.head 2 -  Fully Qualified External References? Yes
+.head 2 -  Reject Multiple Window Instances? No
+.head 2 -  Enable Runtime Checks Of External References? Yes
+.head 2 -  Use Release 4.0 Scope Rules? No
+.head 2 -  Edit Fields Read Only On Disable? No
+.head 1 -  Libraries
+.head 1 +  Global Declarations
+.head 2 +  Window Defaults
+.head 3 +  Tool Bar
+.head 4 -  Display Style? Etched
+.head 4 -  Font Name: MS Sans Serif
+.head 4 -  Font Size: 8
+.head 4 -  Font Enhancement: System Default
+.head 4 -  Text Color: System Default
+.head 4 -  Background Color: System Default
+.head 3 +  Form Window
+.head 4 -  Display Style? Etched
+.head 4 -  Font Name: MS Sans Serif
+.head 4 -  Font Size: 8
+.head 4 -  Font Enhancement: System Default
+.head 4 -  Text Color: System Default
+.head 4 -  Background Color: System Default
+.head 3 +  Dialog Box
+.head 4 -  Display Style? Etched
+.head 4 -  Font Name: MS Sans Serif
+.head 4 -  Font Size: 8
+.head 4 -  Font Enhancement: System Default
+.head 4 -  Text Color: System Default
+.head 4 -  Background Color: System Default
+.head 3 +  Top Level Table Window
+.head 4 -  Font Name: MS Sans Serif
+.head 4 -  Font Size: 8
+.head 4 -  Font Enhancement: System Default
+.head 4 -  Text Color: System Default
+.head 4 -  Background Color: System Default
+.head 3 +  Data Field
+.head 4 -  Font Name: Use Parent
+.head 4 -  Font Size: Use Parent
+.head 4 -  Font Enhancement: Use Parent
+.head 4 -  Text Color: Use Parent
+.head 4 -  Background Color: Use Parent
+.head 3 +  Multiline Field
+.head 4 -  Font Name: Use Parent
+.head 4 -  Font Size: Use Parent
+.head 4 -  Font Enhancement: Use Parent
+.head 4 -  Text Color: Use Parent
+.head 4 -  Background Color: Use Parent
+.head 3 +  Spin Field
+.head 4 -  Font Name: Use Parent
+.head 4 -  Font Size: Use Parent
+.head 4 -  Font Enhancement: Use Parent
+.head 4 -  Text Color: Use Parent
+.head 4 -  Background Color: Use Parent
+.head 3 +  Background Text
+.head 4 -  Font Name: Use Parent
+.head 4 -  Font Size: Use Parent
+.head 4 -  Font Enhancement: Use Parent
+.head 4 -  Text Color: Use Parent
+.head 4 -  Background Color: Use Parent
+.head 3 +  Pushbutton
+.head 4 -  Font Name: Use Parent
+.head 4 -  Font Size: Use Parent
+.head 4 -  Font Enhancement: Use Parent
+.head 3 +  Radio Button
+.head 4 -  Font Name: Use Parent
+.head 4 -  Font Size: Use Parent
+.head 4 -  Font Enhancement: Use Parent
+.head 4 -  Text Color: Use Parent
+.head 4 -  Background Color: Use Parent
+.head 3 +  Check Box
+.head 4 -  Font Name: Use Parent
+.head 4 -  Font Size: Use Parent
+.head 4 -  Font Enhancement: Use Parent
+.head 4 -  Text Color: Use Parent
+.head 4 -  Background Color: Use Parent
+.head 3 +  Option Button
+.head 4 -  Font Name: Use Parent
+.head 4 -  Font Size: Use Parent
+.head 4 -  Font Enhancement: Use Parent
+.head 3 +  Group Box
+.head 4 -  Font Name: Use Parent
+.head 4 -  Font Size: Use Parent
+.head 4 -  Font Enhancement: Use Parent
+.head 4 -  Text Color: Use Parent
+.head 4 -  Background Color: Use Parent
+.head 3 +  Child Table Window
+.head 4 -  Font Name: Use Parent
+.head 4 -  Font Size: Use Parent
+.head 4 -  Font Enhancement: Use Parent
+.head 4 -  Text Color: Use Parent
+.head 4 -  Background Color: Use Parent
+.head 3 +  List Box
+.head 4 -  Font Name: Use Parent
+.head 4 -  Font Size: Use Parent
+.head 4 -  Font Enhancement: Use Parent
+.head 4 -  Text Color: Use Parent
+.head 4 -  Background Color: Use Parent
+.head 3 +  Combo Box
+.head 4 -  Font Name: Use Parent
+.head 4 -  Font Size: Use Parent
+.head 4 -  Font Enhancement: Use Parent
+.head 4 -  Text Color: Use Parent
+.head 4 -  Background Color: Use Parent
+.head 3 +  Line
+.head 4 -  Line Color: Use Parent
+.head 3 +  Frame
+.head 4 -  Border Color: Use Parent
+.head 4 -  Background Color: 3D Face Color
+.head 3 +  Picture
+.head 4 -  Border Color: Use Parent
+.head 4 -  Background Color: Use Parent
+.head 2 +  Formats
+.head 3 -  Number: 0'%'
+.head 3 -  Number: #0
+.head 3 -  Number: #
##000
+.head 3 -  Number: #
##000;'($'#
##000')'
+.head 3 -  Date/Time: hh:mm:ss AMPM
+.head 3 -  Date/Time: M/d/yy
+.head 3 -  Date/Time: MM-dd-yy
+.head 3 -  Date/Time: dd-MMM-yyyy
+.head 3 -  Date/Time: MMM d, yyyy
+.head 3 -  Date/Time: MMM d, yyyy hh:mm AMPM
+.head 3 -  Date/Time: MMMM d, yyyy hh:mm AMPM
+.head 2 +  External Functions
+.head 3 +  Library name: vti41.dll
+.head 4 -  ThreadSafe: No
+.head 4 -  !
+.head 4 -  ! ***** Visual Toolchest - VTARRAY.APL
+.head 4 -  !
+.head 4 -  ! ***** Array functions
+.head 4 +  Function: VisArrayAppend
+.head 5 -  Description: nNumItems VisArrayAppend( hArySource[*], hAryTarget[*] )
+.head 5 -  Export Ordinal: 165
+.head 5 +  Returns
+.head 6 -  Number: LONG
+.head 5 +  Parameters
+.head 6 -  String: HARRAY
+.head 6 -  String: HARRAY
+.head 6 -  Number: INT
+.head 4 +  Function: VisArrayCopy
+.head 5 -  Description: nNumItems VisArrayCopy( hArySource[*], hAryTarget[*] )
+.head 5 -  Export Ordinal: 166
+.head 5 +  Returns
+.head 6 -  Number: LONG
+.head 5 +  Parameters
+.head 6 -  String: HARRAY
+.head 6 -  String: HARRAY
+.head 6 -  Number: INT
+.head 4 +  Function: VisArrayDeleteItem
+.head 5 -  Description: nNumItems VisArrayDeleteItem( harray, nIndex, nDataType )
+.head 5 -  Export Ordinal: 167
+.head 5 +  Returns
+.head 6 -  Number: LONG
+.head 5 +  Parameters
+.head 6 -  String: HARRAY
+.head 6 -  Number: LONG
+.head 6 -  Number: INT
+.head 4 +  Function: VisArrayFillDateTime
+.head 5 -  Description: bOk VisArrayFillDateTime( dtArray[*], dtValue, nCount )
+.head 5 -  Export Ordinal: 168
+.head 5 +  Returns
+.head 6 -  Boolean: BOOL
+.head 5 +  Parameters
+.head 6 -  Date/Time: HARRAY
+.head 6 -  Date/Time: DATETIME
+.head 6 -  Number: LONG
+.head 4 +  Function: VisArrayFillNumber
+.head 5 -  Description: bOk VisArrayFillNumber( nArray[*], nValue, nCount )
+.head 5 -  Export Ordinal: 169
+.head 5 +  Returns
+.head 6 -  Boolean: BOOL
+.head 5 +  Parameters
+.head 6 -  Number: HARRAY
+.head 6 -  Number: NUMBER
+.head 6 -  Number: LONG
+.head 4 +  Function: VisArrayFillString
+.head 5 -  Description: bOk VisArrayFillString( sArray[*], sValue, nCount )
+.head 5 -  Export Ordinal: 170
+.head 5 +  Returns
+.head 6 -  Boolean: BOOL
+.head 5 +  Parameters
+.head 6 -  String: HARRAY
+.head 6 -  String: LPSTR
+.head 6 -  Number: LONG
+.head 4 +  Function: VisArrayFindDateTime
+.head 5 -  Description: nIndex VisArrayFindDateTime( dtDateTime[*], dtSearchFor )
+.head 5 -  Export Ordinal: 171
+.head 5 +  Returns
+.head 6 -  Number: LONG
+.head 5 +  Parameters
+.head 6 -  Date/Time: HARRAY
+.head 6 -  Date/Time: DATETIME
+.head 4 +  Function: VisArrayFindNumber
+.head 5 -  Description: nIndex VisArrayFindNumber( nNumbers[*], nSearchFor )
+.head 5 -  Export Ordinal: 172
+.head 5 +  Returns
+.head 6 -  Number: LONG
+.head 5 +  Parameters
+.head 6 -  Number: HARRAY
+.head 6 -  Number: NUMBER
+.head 4 +  Function: VisArrayFindString
+.head 5 -  Description: nIndex VisArrayFindString( sStrings[*], sSearchFor )
+.head 5 -  Export Ordinal: 149
+.head 5 +  Returns
+.head 6 -  Number: LONG
+.head 5 +  Parameters
+.head 6 -  String: HARRAY
+.head 6 -  String: LPSTR
+.head 4 +  Function: VisArrayInsertItem
+.head 5 -  Description: nNumItems VisArrayInsertItem( harray, nIndex, nDataType )
+.head 5 -  Export Ordinal: 173
+.head 5 +  Returns
+.head 6 -  Number: LONG
+.head 5 +  Parameters
+.head 6 -  String: HARRAY
+.head 6 -  Number: LONG
+.head 6 -  Number: INT
+.head 4 +  Function: VisArraySort		! comment test
+.head 5 -  Description: nNumItems VisArraySort( harray, nSortOrder, nDataType )
+.head 5 -  Export Ordinal: 150
+.head 5 +  Returns
+.head 6 -  Number: LONG
+.head 5 +  Parameters
+.head 6 -  String: HARRAY
+.head 6 -  Number: INT
+.head 6 -  Number: INT
+.head 2 +  Constants
+.data CCDATA
+0000: 3000000000000000 0000000000000000 00000000
+.enddata
+.data CCSIZE
+0000: 1400
+.enddata
+.head 3 -  System
+.head 3 -  User
+.head 3 -  Enumerations
+.head 2 -  Resources
+.head 2 -  Variables
+.head 2 +  Internal Functions
+.head 3 +  Function: A
+.head 4 -  Description: SalMessageBox
+.head 4 -  Returns
+.head 4 -  Parameters
+.head 4 -  Static Variables
+.head 4 -  Local variables
+.head 4 +  Actions
+.head 5 +  If 1
+.head 6 -  ! test
+.head 5 -  Call SalMessageBox( "", "", MB_Ok )
+.head 3 +  Function: B
+.head 4 -  Description:
+.head 4 -  Returns
+.head 4 -  Parameters
+.head 4 -  Static Variables
+.head 4 -  Local variables
+.head 4 +  Actions
+.head 5 +  ! If 1
+.head 6 -  Call SalMessageBox( "", "", MB_Ok )
+.head 3 +  Function: C
+.head 4 -  Description: Call VisArrayAppend( a, b, 0 )
+.head 4 -  Returns
+.head 4 -  Parameters
+.head 4 -  Static Variables
+.head 4 +  Local variables
+.head 5 -  String: a[*]
+.head 5 -  String: b[*]
+.head 4 +  Actions
+.head 5 -  Call VisArrayAppend( a, b, 0 )
+.head 5 +  ! Call VisArrayAppend( a, b, 0 )
+.head 6 -  Call VisArrayAppend( a, b, 0 )
+.head 2 -  Named Menus
+.head 2 -  Class Definitions
+.head 2 +  Default Classes
+.head 3 -  MDI Window: cBaseMDI
+.head 3 -  Form Window:
+.head 3 -  Dialog Box:
+.head 3 -  Table Window:
+.head 3 -  Quest Window:
+.head 3 -  Data Field:
+.head 3 -  Spin Field:
+.head 3 -  Multiline Field:
+.head 3 -  Pushbutton:
+.head 3 -  Radio Button:
+.head 3 -  Option Button:
+.head 3 -  Check Box:
+.head 3 -  Child Table:
+.head 3 -  Quest Child Window: cQuickDatabase
+.head 3 -  List Box:
+.head 3 -  Combo Box:
+.head 3 -  Picture:
+.head 3 -  Vertical Scroll Bar:
+.head 3 -  Horizontal Scroll Bar:
+.head 3 -  Column:
+.head 3 -  Background Text:
+.head 3 -  Group Box:
+.head 3 -  Line:
+.head 3 -  Frame:
+.head 3 -  Custom Control:
+.head 3 -  ActiveX:
+.head 2 -  Application Actions

data/test/test.rb

@@ -0,0 +1,16 @@
+#!/opt/local/bin/ruby
+
+require 'minitest/unit'
+
+require_relative "test_class.rb"
+require_relative "test_code.rb"
+require_relative "test_command.rb"
+require_relative "test_external.rb"
+require_relative "test_externalfunction.rb"
+require_relative "test_format.rb"
+require_relative "test_function.rb"
+require_relative "test_item.rb"
+require_relative "test_library.rb"
+require_relative "test_version.rb"
+
+MiniTest::Unit.autorun

data/test/test_class.rb

@@ -0,0 +1,34 @@
+#!/opt/local/bin/ruby
+
+require 'minitest/unit'
+require_relative '../lib/sal/class'
+require_relative '../lib/sal/code'
+
+class TestClass < MiniTest::Unit::TestCase
+
+  def test_class
+    name = "Test"
+    type = "Functional Class"
+    code = "#{type}: #{name}"
+    line = ".head 3 +  #{code}\r\n"
+    item = Sal::Item.new(line)
+    
+    clas = Sal::Class.new(item)
+    
+    assert_equal(item, clas.item)
+    assert_equal(name, clas.name)
+    assert_equal(type, clas.type)
+  end
+  
+  def test_libraries
+    code = Sal::Code.new("data/test.40.text.classes.app")
+    assert_equal(2, code.classes.length)
+    assert_equal("BaseClass", code.classes[0].name)
+    assert_equal("ClassName", code.classes[1].name)
+    assert_equal(1, code.classes[1].functions.length)
+    # assert_equal("functionName", code.classes[1].functions[0].name)
+  end
+  
+end
+
+MiniTest::Unit.autorun

data/test/test_code.rb

@@ -0,0 +1,180 @@
+#!/opt/local/bin/ruby
+
+require 'minitest/unit'
+require 'ostruct'
+
+require_relative '../lib/sal/code'
+require_relative '../lib/sal/format'
+
+class TestCode < MiniTest::Unit::TestCase
+
+  def setup
+    @files = []
+    @files << "data/test.40.indented.app"
+    @files << "data/test.40.text.app"
+    @files << "data/test.40.normal.app"
+    @files << "data/test.41.indented.app"
+    @files << "data/test.41.text.app"
+    @files << "data/test.41.normal.app"
+    
+    @lines = []
+    @lines << ".head 0 +  Application Description: Gupta SQLWindows Standard Application Template\r\n"
+    @lines << ".head 1 -  Outline Version - 4.0.34\r\n"
+    
+    @include1 = []
+    @include1 << ".head 0 +  Application Description: File Include Test\r\n"
+    @include1 << ".head 1 -  Outline Version - 4.0.34\r\n"
+    @include1 << ".head 1 +  Libraries\r\n"
+    @include1 << ".head 2 -  File Include: qckttip.apl\r\n"
+    @include1 << ".head 1 +  Constants\r\n"
+    
+    @include2 = []
+    @include2 << ".head 0 +  Application Description: File Include Test\r\n"
+    @include2 << ".head 1 -  Outline Version - 4.0.34\r\n"
+    @include2 << ".head 1 -  Libraries\r\n"
+    @include2 << ".head 1 +  Constants\r\n"
+  end
+  
+  def code_class
+    # Neue Klasse um die Initialisierung zu umgehen
+    code_class = Class.new(Sal::Code) do
+      def initialize
+      end
+    end
+    code_class
+  end
+  
+  def test_filename
+    filename = @files[0] 
+    assert_equal(filename, Sal::Code.new(filename).filename)
+  end
+  
+  def test_file_format
+    @files.grep(/\.indented\./).each do | file |
+      assert_equal( Sal::Format::INDENTED, Sal::Code.new(file).format )
+    end
+    
+    @files.grep(/\.text\./).each do | file |
+      assert_equal( Sal::Format::TEXT, Sal::Code.new(file).format )
+    end
+    
+    @files.grep(/\.normal\./).each do | file |
+      assert_equal( Sal::Format::NORMAL, Sal::Code.new(file).format )
+    end
+  end
+
+  def test_version
+    @files.each do | file |
+      file =~ /\.(\d)(\d)\./
+      tdversion = "#{$1}.#{$2}"
+      assert_equal( tdversion, Sal::Code.new(file).version.td )
+    end
+  end
+  
+  def test_libraries
+    # assert_equal(2, Sal::Code.new("data/test.40.indented.app").libraries.length)
+    assert_equal(2, Sal::Code.new("data/test.40.text.app").libraries.length)
+    # assert_equal(0, Sal::Code.new("data/test.41.indented.app").libraries.length)
+    assert_equal(0, Sal::Code.new("data/test.41.text.app").libraries.length)
+  end
+  
+  def test_private_get_item
+    
+    @lines.each do | line |
+      # Initialisierungen
+      vars = OpenStruct.new
+      vars.counter = 0
+      vars.levels = Hash.new
+      vars.format = Sal::Format::TEXT
+      vars.lines = @lines
+      vars.line = line
+      
+      # Level extrahieren
+      line =~ /^.head.+?(\d+).+/
+      level = $1.to_i
+      # Quellcode holen
+      # line =~ /^.head.+?\d+.+?(\w.*?)(\r\n)+.*$/m
+      line =~/(^\.head )(\d+?)( )([+-])(  )(.*?)(\r\n.*)/m
+      code_part= $6
+      
+      # Das private get_item aufrufen
+      code = code_class.new
+      item = code.send :get_item, vars
+      
+      # Tests
+      assert_equal(level, item.level, line)
+      assert_equal(line, item.line, line)
+      assert_equal(vars.format, item.format)
+      assert_equal(false, item.commented?)
+      assert_equal(nil, item.parent)
+      assert_equal(0, item.childs.count)
+      assert_equal(1, item.code_line_nr)
+      assert_equal(true, item.analyzed?)
+      assert_equal(code_part, item.code)
+    end
+    
+  end
+  
+  def test_add_library_to_existing_libraries
+    code = code_class.new
+    code.code = @include1.join()
+    code.send :get_format_and_version_from_code
+    itemcount = code.items.count
+    libcount = code.libraries.count
+    libname = "test.apl"
+    
+    code.add_library(libname)
+    
+    assert_equal(itemcount + 1, code.items.count)
+    assert_equal(libcount + 1, code.libraries.count)
+    assert_equal(libname, code.libraries[0].name)
+  end
+  
+  def test_add_library_as_first_library
+    code = code_class.new
+    code.code = @include2.join()
+    code.send :get_format_and_version_from_code
+    itemcount = code.items.count
+    libcount = code.libraries.count
+    libname = "test.apl"
+    
+    code.add_library(libname)
+    
+    assert_equal(itemcount + 1, code.items.count)
+    assert_equal(libcount + 1, code.libraries.count)
+    assert_equal(libname, code.libraries[0].name)
+  end
+  
+  def test_private_code_split_text
+    vars = OpenStruct.new
+    vars.lines = []
+    code = code_class.new
+    code.code = @lines.join("\r\n")
+    code.send :code_split_text, vars
+    
+    assert_equal(2,vars.lines.length)
+  end
+  
+  def test_code_binary_data
+    source = <<END_OF_STRING
+.head 2 -  External Functions
+.head 2 +  Constants
+.data CCDATA
+0000: 3000000000000000 0000000000000000 00000000
+.enddata
+.data CCSIZE
+0000: 1400
+.enddata
+.head 3 -  System
+END_OF_STRING
+    code = code_class.new
+    code.code = source
+    code.format = Sal::Format::TEXT
+    items = code.send :get_items_from_code
+    assert_equal(true, items[1].include?(".data CCDATA"))
+    assert_equal(true, items[1].include?(".data CCSIZE"))
+  end
+
+end
+
+MiniTest::Unit.autorun