sal-tools-analyze 0.0.1

data/lib/sal/function.rb

@@ -0,0 +1,26 @@
+require_relative "item.rb"
+
+module Sal
+    
+  # The class represents one function.
+  class Function
+
+    def initialize( item )
+      @item = item
+      item.code =~ /Function:\s(\S+)/
+      @name = get_name(item.code)
+    end
+
+    attr_accessor :name, :item
+
+  private
+
+    def get_name(code)
+      code =~ /Function:\s(\S+)/
+      return $1
+    end
+
+  end
+
+end
+

data/lib/sal/item.rb

@@ -0,0 +1,214 @@
+require_relative "format.rb"
+require_relative "command.rb"
+
+module Sal
+  
+  # The class item represent one source code line of an sal file.
+  # The item has references to its parent and childs to navigate
+  # between the items in the source code.
+  class Item
+    include Format
+    
+    # Create item. The format parameter is optional. If the format
+    # parameter is not given, the format will be analyzed with the
+    # source code line.
+    def initialize( line, file_format = nil )
+      @original = line
+      @format = file_format.nil? ? Format.get_from_line(line) : file_format
+      self.line = line
+      @commented = false
+      @parent = nil # Item
+      @childs = Array.new # Items
+      @child_indicator = "-"
+      @analyzed = false
+      @code_line_nr = -1
+      @parts = []
+      
+      analyze
+    end
+    
+    # Is the item is a comment?
+    def item_commented?
+      return @commented
+    end
+    
+    # Is the item or a parent of the item is a comment (so the item is commented too)?
+    def commented?
+      return true if item_commented?
+      if parent.nil?
+        return item_commented?
+      else
+        return parent.commented?
+      end
+    end
+    
+    # Change the item to a comment item if the item is not a comment item yet
+    def item_comment
+      self.code = "! #{self.code}" unless item_commented?
+      _analyze_commented
+    end
+    
+    # Is the item is ready analyzed?
+    def analyzed?
+      @analyzed
+    end
+    
+    # Is the line is a source code line (for example: Set sTest = "Hallo")
+    # Look at command.rb too!
+    def is_code_line?
+      Command.is_code_line? code
+    end
+    
+    # Change the code line. This will trigger the analyze.
+    def line=(value)
+      @original = value
+      analyze
+    end
+    
+    # Getter of the line.
+    # The line will create dynamicly from the line parts.
+    def line
+      case @format
+       when TEXT
+         @parts.join
+       when INDENTED
+         ("\t"*@parts[1])+@parts[5]+@parts[6]
+       else
+         raise "Sal::Item#line: Runs only for TEXT and INDENTED format!"             
+       end
+    end
+    
+    # Set the outline level
+    def level=(value)
+      @parts[1] = value
+    end
+    
+    # Get the outline level
+    def level
+      @parts[1].to_i
+    end
+    
+    # Set the code of the line
+    def code=(value)
+      @parts[5] = value
+    end
+    
+    # Return the code of the line without outline and .data parts
+    def code
+      @parts[5]
+    end
+    
+    # Returns a + if the item has childs, otherwise a - is returned
+    def child_indicator
+      @parts[3]
+    end
+    
+    # Refreshes the child indicator for the current code in the item
+    def refresh_child_indicator
+      @parts[3] = (@childs != nil and @childs.length > 0 ? "+" : "-")
+    end
+    
+    # Set the last carriage return line feed and (if exist) the binary data component
+    def behind_code=(value)
+      @parts[6] = value
+    end
+    
+    # Read the last carriage return line feed and (if exist) the binary data component
+    def behind_code
+      @parts[6]
+    end
+    
+    attr_accessor :original, :parent, :childs, :format
+    attr_accessor :tag, :code_line_nr, :parts
+    
+    # Returns the line of code and not the object
+    def to_s
+      line
+    end
+    
+    # Returns a new object (copied object) of the current source code
+    # from the item. No infos of parent and childs included.
+    def copy
+      Item.new(self.line)
+    end
+      
+  private
+    
+    # Analyze the source code
+    def analyze
+      if(!@analyzed)
+        case @format
+        when TEXT
+          @analyzed = _analyze_textmode
+        # when INDENTED
+        #   @analyzed = _analyze_indented
+        else
+          # No analyze of not TEXT formats
+          @analyzed = false                 
+        end
+      end
+    end    
+    
+    # Analyze the source code (TEXT mode)
+    def _analyze_textmode
+      # re = /(^\.head )(\d+?)( )([+-])(  )(.*?)(\n*)$/
+      # re = /(^\.head )(\d+?)( )([+-])(  )(.*?)(\r\n.*)/m
+      re = /(^\.head )(\d+?)( )([+-])(  )(.*)/m
+      md = re.match(@original)
+      if md.nil?
+        raise "Item::_analyze_textmode could not analyze level and code: #{@original}"
+      else
+        # 1 = Level, 3 = Child Indkator, 5 = Code
+        # [1..-1] => md[0] is the complete string, that is not needed here
+        @parts = md.to_a[1..-1]
+        _analyze_textmode_split_code
+        return _analyze_commented() 
+      end
+      return false
+    end
+    
+    def _analyze_textmode_split_code
+      temp = self.code
+      new_code = ""
+      new_data = ""
+      temp.each_line do | line |
+        if new_data.length > 0
+          new_data += line
+        else
+          if line.start_with? ".data"
+            new_data = line
+          else
+            new_code += line
+          end
+        end
+      end
+      if new_code.end_with? "\r\n"
+        new_data = "\r\n" + new_data
+        new_code = new_code[0..-3]
+      end
+      self.code = new_code
+      self.behind_code = new_data
+    end
+    
+    # Analyze the source code line (INDENTED format)
+    def _analyze_indented
+      if(@original =~ /(^\t*)(.*?)(\r\n.*)/m)
+        @parts = []
+        @parts[1] = $1.length
+        @parts[5] = $2
+        @parts[6] = $3
+        return _analyze_commented()
+      else
+        raise "Item::_analyze_indented could not analyze level and code: #{self.line}"
+      end
+      return false
+    end
+    
+    # Check the comment state of the line
+    def _analyze_commented
+      @commented = true if(self.code =~ /^\s*?!/)
+      return true
+    end
+  end
+  
+end

data/lib/sal/library.rb

@@ -0,0 +1,25 @@
+require_relative "item.rb"
+
+module Sal
+    
+  # The class represents a single file include
+  class Library
+
+    def initialize( item )
+      @item = item
+      item.code =~ /File Include:\s(\S+)/
+      @name = get_name(item.code)
+    end
+
+    attr_accessor :name, :item
+
+  private
+
+    def get_name(code)
+      code =~ /File Include:\s(\S+)/
+      return $1
+    end
+
+  end
+
+end

data/lib/sal/version.rb

@@ -0,0 +1,161 @@
+require_relative "format"
+
+module Sal
+
+  # The version class includes the infos to the sal version and the correspondenting
+  # file version. The class analyzes with the code the versions.
+  # The file version could be changed.
+  class Version
+    
+    # The version could be initialized with the fileversion or the sal version.
+    # The dot in the version is checked to use the right version type.
+    def initialize(version)
+      if(version.to_s.include? ".")
+        @td = version
+        @file = Version.td_to_file @td
+      else
+        @file = version
+        @td = Version.file_to_td @file
+      end
+    end
+    
+    attr_accessor :td, :file
+    
+    # Get the version from the code and returns a version object (fabric-method)
+    def Version.from_code(code)
+      Version.new(self.file_version_from_code(code))
+    end
+    
+    # Get the version from a file and returns a version object (fabric-method)
+    def Version.from_file(file)
+      code = IO.binread file
+      Version.from_code code
+    end
+    
+    # Set the fileversion of the file
+    #
+    # Nothing else is changed. The source code can then be opend from the
+    # tool with the set version. 
+    def to_file(filename) 
+      code = IO.binread filename
+      code = to_code(code, @file)
+      f = File.new(filename, "w")
+      f.syswrite code
+      f.close
+    end
+    
+    # Set the file version in the code to the file version of this object.
+    def to_code(code)
+      format = Format.get_from_code code
+      if format == Format::NORMAL
+        raise "Version.set_to_code: Code length to small!" if code.length < 5
+        code[4] = case file
+        when 26
+          "\xfa"  # Team Developer 1.1
+        when 27
+          "\xfb"  # Team Developer 1.5
+        when 28
+          "\xfc"  # Team Developer 2.0/2.1
+        when 31
+          "\xff"  # Team Developer 3.0
+        when 32
+          "\x00"  # Team Developer 3.1
+        when 34
+          "\x02"  # Team Developer 4.0
+        when 35
+          "\x03"  # Team Developer 4.1/4.2
+        else
+          raise "Version.to_code: Version not settable: #{@file}/#{@td}"
+        end
+      else
+        code.sub!(/(Outline Version - \d\.\d\.)(\d\d)/m, '\1' + file.to_s)
+      end
+      code
+    end
+    
+    # Convert the sal version in the correspondenting file version
+    def Version.td_to_file(td_version)
+      case td_version
+      when "1.1"
+        26
+      when "1.5"
+        27
+      when "2.0"
+        28
+      when "2.1"
+        28
+      when "3.0"
+        31
+      when "3.1"
+        32
+      when "4.0"
+        34
+      when "4.1"
+        35
+      when "4.2"
+        35
+      when "5.0"
+        37
+      when "5.1"
+        37
+      else
+        raise "Version:td_to_file(#{td_version}): Version not analyzable."
+      end
+    end
+    
+    # Change the file version in the correspondenting sal version
+    def Version.file_to_td(file_version)
+      case file_version
+      when 26
+        "1.1"
+      when 27
+        "1.5"
+      when 28
+        "2.0" # "2.1"
+      when 31
+        "3.0"
+      when 32
+        "3.1"
+      when 34
+        "4.0"
+      when 35
+        "4.1" # "4.2"
+      when 37
+        "5.1"
+      else
+        raise "Version:file_to_td(#{file_version}): Version not analyzable."
+      end
+    end
+    
+  private
+  
+    # Get the file version from the given code
+    def Version.file_version_from_code(code)
+      if(code =~ /Outline Version - \d\.\d\.(\d\d)/m)
+        $1.to_i
+      else
+        zeichen = code[4]
+        case zeichen
+        when "\xfa"   # Team Developer 1.1
+          26
+        when "\xfb"   # Team Developer 1.5
+          27
+        when "\xfc"   # Team Developer 2.0/2.1
+          28
+        when "\xff"   # Team Developer 3.0
+          31
+        when "\x00"   # Team Developer 3.1
+          32
+        when "\x02"   # Team Developer 4.0
+          34
+        when "\x03"   # Team Developer 4.1/4.2
+          35
+        else
+          raise "Version.get_from_code: Normal Mode: Version not analyzable"
+        end
+      end
+    end
+    
+  end
+
+end

data/sal-tools-analyze.gemspec

@@ -0,0 +1,16 @@
+Gem::Specification.new do | s |
+    s.name          = "sal-tools-analyze"
+    s.summary       = "Analyse SAL-Code"
+    s.description   = File.read(File.join(File.dirname(__FILE__), 'README'))
+    s.requirements  = [ 'An installed dictionary (most Unix systems have one)']
+    s.version       = '0.0.1'
+    s.author        = "M. Ehehalt"
+    s.email         = "flynn42ryder@rubyforge.org"
+    s.homepage      = ""
+    s.platform      = Gem::Platform::RUBY
+    s.required_ruby_version     = '>=1.9'
+    s.files         = Dir['**/**']
+    s.executables   = []
+    s.test_files    = Dir["test/tes*.rb"]
+    s.has_rdoc      = true
+end

data/test/data/test.21.text.sql.app

@@ -0,0 +1,458 @@
+.head 0 +  Application Description: Gupta SQLWindows Standard Application Template
+.head 1 -  Outline Version - 4.0.28
+.head 1 +  Design-time Settings
+.data VIEWINFO
+0000: 6F00000001000000 FFFF01000D004347 5458566965775374 6174650400010000
+0020: 0000000000A50000 002C000000020000 0003000000FFFFFF FFFFFFFFFFF8FFFF
+0040: FFE2FFFFFFFFFFFF 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 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 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 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
+.head 1 +  Form Window: frmTest
+.head 2 -  Class:
+.head 2 -  Property Template:
+.head 2 -  Class DLL Name:
+.head 2 -  Title:
+.head 2 -  Icon File:
+.head 2 -  Accessories Enabled? No
+.head 2 -  Visible? Yes
+.head 2 -  Display Settings
+.head 3 -  Display Style? Default
+.head 3 -  Visible at Design time? Yes
+.head 3 -  Automatically Created at Runtime? Yes
+.head 3 -  Initial State: Normal
+.head 3 -  Maximizable? Yes
+.head 3 -  Minimizable? Yes
+.head 3 -  System Menu? Yes
+.head 3 -  Resizable? Yes
+.head 3 -  Window Location and Size
+.head 4 -  Left: Default
+.head 4 -  Top: Default
+.head 4 -  Width:  9.033"
+.head 4 -  Width Editable? Yes
+.head 4 -  Height: 5.179"
+.head 4 -  Height Editable? Yes
+.head 3 -  Form Size
+.head 4 -  Width:  Default
+.head 4 -  Height: Default
+.head 4 -  Number of Pages: Dynamic
+.head 3 -  Font Name: Default
+.head 3 -  Font Size: Default
+.head 3 -  Font Enhancement: Default
+.head 3 -  Text Color: Default
+.head 3 -  Background Color: Default
+.head 2 -  Description:
+.head 2 -  Named Menus
+.head 2 -  Menu
+.head 2 +  Tool Bar
+.head 3 -  Display Settings
+.head 4 -  Display Style? Default
+.head 4 -  Location? Top
+.head 4 -  Visible? Yes
+.head 4 -  Size: Default
+.head 4 -  Size Editable? Yes
+.head 4 -  Font Name: Default
+.head 4 -  Font Size: Default
+.head 4 -  Font Enhancement: Default
+.head 4 -  Text Color: Default
+.head 4 -  Background Color: Default
+.head 3 -  Contents
+.head 2 +  Contents
+.head 3 +  Child Table: tblTest
+.head 4 -  Class Child Ref Key: 0
+.head 4 -  Class ChildKey: 0
+.head 4 -  Class:
+.head 4 -  Property Template:
+.head 4 -  Class DLL Name:
+.head 4 -  Display Settings
+.head 5 -  Window Location and Size
+.head 6 -  Left: 0.35"
+.head 6 -  Top: 0.262"
+.head 6 -  Width:  6.433"
+.head 6 -  Width Editable? Yes
+.head 6 -  Height: 4.143"
+.head 6 -  Height Editable? Yes
+.head 5 -  Visible? Yes
+.head 5 -  Font Name: Default
+.head 5 -  Font Size: Default
+.head 5 -  Font Enhancement: Default
+.head 5 -  Text Color: Default
+.head 5 -  Background Color: Default
+.head 5 -  View: Table
+.head 5 -  Allow Row Sizing? No
+.head 5 -  Lines Per Row: Default
+.head 4 -  Memory Settings
+.head 5 -  Maximum Rows in Memory: Default
+.head 5 -  Discardable? Yes
+.head 4 -  Contents
+.head 4 -  Functions
+.head 4 -  Window Variables
+.head 4 -  Message Actions
+.head 3 +  Pushbutton: pbPopulate
+.head 4 -  Class Child Ref Key: 0
+.head 4 -  Class ChildKey: 0
+.head 4 -  Class:
+.head 4 -  Property Template:
+.head 4 -  Class DLL Name:
+.head 4 -  Title: Populate
+.head 4 -  Window Location and Size
+.head 5 -  Left: 7.067"
+.head 5 -  Top: 0.238"
+.head 5 -  Width:  1.2"
+.head 5 -  Width Editable? Yes
+.head 5 -  Height: 0.298"
+.head 5 -  Height Editable? Yes
+.head 4 -  Visible? Yes
+.head 4 -  Keyboard Accelerator: (none)
+.head 4 -  Font Name: Default
+.head 4 -  Font Size: Default
+.head 4 -  Font Enhancement: Default
+.head 4 -  Picture File Name:
+.head 4 -  Picture Transparent Color: None
+.head 4 -  Image Style: Single
+.head 4 -  Text Color: Default
+.head 4 -  Background Color: Default
+.head 4 +  Message Actions
+.head 5 +  On SAM_Click
+.head 6 -  Call SalTblPopulate( tblTest, hSql, "select * from test", TBL_FillAll )
+.head 3 +  Pushbutton: pbWrite
+.head 4 -  Class Child Ref Key: 0
+.head 4 -  Class ChildKey: 0
+.head 4 -  Class:
+.head 4 -  Property Template:
+.head 4 -  Class DLL Name:
+.head 4 -  Title: Write
+.head 4 -  Window Location and Size
+.head 5 -  Left: 7.067"
+.head 5 -  Top: 0.631"
+.head 5 -  Width:  1.2"
+.head 5 -  Width Editable? Yes
+.head 5 -  Height: 0.298"
+.head 5 -  Height Editable? Yes
+.head 4 -  Visible? Yes
+.head 4 -  Keyboard Accelerator: (none)
+.head 4 -  Font Name: Default
+.head 4 -  Font Size: Default
+.head 4 -  Font Enhancement: Default
+.head 4 -  Picture File Name:
+.head 4 -  Picture Transparent Color: None
+.head 4 -  Image Style: Single
+.head 4 -  Text Color: Default
+.head 4 -  Background Color: Default
+.head 4 +  Message Actions
+.head 5 +  On SAM_Click
+.head 6 -  Call InsertNewRow( )
+.head 3 +  Pushbutton: pbStoredProcedure
+.head 4 -  Class Child Ref Key: 0
+.head 4 -  Class ChildKey: 0
+.head 4 -  Class:
+.head 4 -  Property Template:
+.head 4 -  Class DLL Name:
+.head 4 -  Title: PL/SQL
+.head 4 -  Window Location and Size
+.head 5 -  Left: 7.083"
+.head 5 -  Top: 0.988"
+.head 5 -  Width:  1.2"
+.head 5 -  Width Editable? Yes
+.head 5 -  Height: 0.298"
+.head 5 -  Height Editable? Yes
+.head 4 -  Visible? Yes
+.head 4 -  Keyboard Accelerator: (none)
+.head 4 -  Font Name: Default
+.head 4 -  Font Size: Default
+.head 4 -  Font Enhancement: Default
+.head 4 -  Picture File Name:
+.head 4 -  Picture Transparent Color: None
+.head 4 -  Image Style: Single
+.head 4 -  Text Color: Default
+.head 4 -  Background Color: Default
+.head 4 +  Message Actions
+.head 5 +  On SAM_Click
+.head 6 -  Call StoredProcedure()
+.head 2 +  Functions
+.head 3 +  Function: Connect
+.head 4 -  Description:
+.head 4 -  Returns
+.head 4 -  Parameters
+.head 4 -  Static Variables
+.head 4 -  Local variables
+.head 4 +  Actions
+.head 5 -  Set SqlDatabase = "ISLAND"
+.head 5 -  Set SqlUser = "SYSADM"
+.head 5 -  Set SqlPassword = "SYSADM"
+.head 5 +  If SqlConnect( hSql )
+.head 6 -  Call SalSetWindowText( hWndForm, SqlDatabase )
+.head 3 +  Function: StoredProcedure
+.head 4 -  Description:
+.head 4 -  Returns
+.head 4 -  Parameters
+.head 4 -  Static Variables
+.head 4 +  Local variables
+.head 5 -  Window Handle: hWndCol
+.head 5 -  String: sID
+.head 4 +  Actions
+.head 5 -  Set hWndCol = SalTblGetColumnWindow( tblTest, 1, COL_GetPos )
+.head 5 +  If hWndCol = hWndNULL
+.head 6 -  Call SalMessageBox( "hWndNULL", "Test", MB_Ok )
+.head 5 +  Else
+.head 6 -  Call SalGetWindowText( hWndCol, sID, 255 )
+.head 6 +  If SalStrIsValidNumber( sID )
+.head 7 -  !
+.head 7 -  ! Oracle PL/SQL
+.head 7 -  ! Call SqlPLSQLCommand( hSql, "test_update(" || sID || ")" )
+.head 7 -  !
+.head 7 -  ! SQLBase Stored Procedures
+.head 7 -  ! If SqlPrepareSP( hSql, "EXECUTE TEST_UPDATE", ":sID" ) 
+.head 7 +  If SqlRetrieve( hSql, "TEST_UPDATE", ":sID", "" )
+.head 8 +  If SqlExecute( hSql )
+.head 9 -  Call SalMessageBox( "SqlRetrieve and SqlExecute are successfull!", "Test", MB_Ok )
+.head 8 +  Else
+.head 9 -  Call SalMessageBox( "SqlExecute fails (TEST_UPDATE)", "Test", MB_Ok )
+.head 7 +  Else
+.head 8 -  Call SalMessageBox( "SqlRetrieve fails (TEST_UPDATE)", "Test", MB_Ok )
+.head 7 -  !
+.head 6 +  Else
+.head 7 -  Call SalMessageBox( "Text is not a valid number. Text = '" || sID || "'", "Test", MB_Ok )
+.head 3 +  Function: Disconnect
+.head 4 -  Description:
+.head 4 -  Returns
+.head 4 -  Parameters
+.head 4 -  Static Variables
+.head 4 -  Local variables
+.head 4 +  Actions
+.head 5 -  Call SqlDisconnect(hSql)
+.head 3 +  Function: InsertNewRow
+.head 4 -  Description:
+.head 4 -  Returns
+.head 4 -  Parameters
+.head 4 -  Static Variables
+.head 4 -  Local variables
+.head 4 +  Actions
+.head 5 -  Call SqlPrepareAndExecute( hSql, "INSERT INTO test (id, name) VALUES (9, '����')")
+.head 5 -  Call SqlCommit( hSql )
+.head 3 +  Function: Test1
+.head 4 -  Description: Function for the UnitTests of the Sal::Search Class
+.head 4 -  Returns
+.head 4 -  Parameters
+.head 4 -  Static Variables
+.head 4 +  Local variables
+.head 5 -  Boolean: bExists
+.head 4 +  Actions
+.head 5 +  If SqlExists( "Statement", bExists )
+.head 6 -  Call SalMessageBox( "Exists", "Info", MB_Ok )
+.head 6 -  Call SalMessageBox( "Really", "Info", MB_Ok )
+.head 5 +  Else
+.head 6 -  Call SalMessageBox( "Don't exists", "Info", MB_Ok )
+.head 2 -  Window Parameters
+.head 2 +  Window Variables
+.head 3 -  Sql Handle: hSql
+.head 2 +  Message Actions
+.head 3 +  On SAM_CreateComplete
+.head 4 -  Call Connect()
+.head 3 +  On SAM_Destroy
+.head 4 -  Call Disconnect()