nasl 0.0.1

data/lib/nasl.rb

@@ -0,0 +1,52 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+require 'nasl/version'
+require 'pathname'
+
+module Nasl
+  def self.root
+    @root ||= Pathname.new('').expand_path
+  end
+
+  def self.lib
+    root + 'lib'
+  end
+
+  def self.test
+    root + 'test'
+  end
+
+  autoload :Cli,       'nasl/cli'
+  autoload :Command,   'nasl/command'
+  autoload :Context,   'nasl/context'
+  autoload :Parser,    'nasl/parser'
+  autoload :Token,     'nasl/token'
+  autoload :Tokenizer, 'nasl/tokenizer'
+  autoload :Test,      'nasl/test'
+end
+
+$LOAD_PATH.unshift(Nasl.lib.to_s)

data/nasl.gemspec

@@ -0,0 +1,26 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path('../lib', __FILE__)
+require 'nasl/version'
+
+Gem::Specification.new do |s|
+  s.name        = 'nasl'
+  s.version     = Nasl::VERSION
+  s.authors     = ['Mak Kolybabi']
+  s.email       = ['mak@kolybabi.com']
+  s.homepage    = 'http://github.com/mogigoma/nasl'
+  s.summary     = %q{A parser for the Nessus Attack Scripting Language.}
+
+  s.rubyforge_project = 'nasl'
+
+  s.files         = `git ls-files`.split("\n") + ['lib/nasl/grammar.tab.rb']
+
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ['lib']
+
+  s.add_development_dependency 'rake'
+
+  s.add_runtime_dependency 'builder'
+  s.add_runtime_dependency 'racc'
+  s.add_runtime_dependency 'rainbow'
+end

data/test/test_helper.rb

@@ -0,0 +1,6 @@
+require 'test/unit'
+require 'nasl'
+
+class Test::Unit::TestCase
+  include Nasl::Test
+end

data/test/unit/parser/test_assignment.rb

@@ -0,0 +1,111 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestAssignment < Test::Unit::TestCase
+  include Nasl::Test
+
+  def test_number
+    same(
+      "q = 0;",
+      '<tree><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><integer value="0"/></assignment></tree>'
+    )
+  end
+
+  def test_string
+    same(
+      "q = '';",
+      '<tree><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><data></data></assignment></tree>'
+    )
+    same(
+      "q = 'foo';",
+      '<tree><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><data>foo</data></assignment></tree>'
+    )
+    same(
+      'q = "";',
+      '<tree><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><string></string></assignment></tree>'
+    )
+    same(
+      'q = "foo";',
+      '<tree><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><string>foo</string></assignment></tree>'
+    )
+  end
+
+  def test_function
+    same(
+      "q = foo();",
+      '<tree><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><call><identifier name="foo"/></call></assignment></tree>'
+    )
+  end
+
+  def test_chain
+    same(
+      'b = a = 0;',
+      '<tree><assignment><op>=</op><lvalue><identifier name="b"/></lvalue><assignment><op>=</op><lvalue><identifier name="a"/></lvalue><integer value="0"/></assignment></assignment></tree>'
+    )
+    same(
+      'b = 1 + a = 0;',
+      '<tree><assignment><op>=</op><lvalue><identifier name="b"/></lvalue><expression><op>+</op><integer value="1"/><assignment><op>=</op><lvalue><identifier name="a"/></lvalue><integer value="0"/></assignment></expression></assignment></tree>'
+    )
+    same(
+      'c = 1 + b = 1 + a = 0;',
+      '<tree><assignment><op>=</op><lvalue><identifier name="c"/></lvalue><expression><op>+</op><integer value="1"/><assignment><op>=</op><lvalue><identifier name="b"/></lvalue><expression><op>+</op><integer value="1"/><assignment><op>=</op><lvalue><identifier name="a"/></lvalue><integer value="0"/></assignment></expression></assignment></expression></assignment></tree>'
+    )
+  end
+
+  def test_expression
+    same(
+      "q = 0 + 0;",
+      '<tree><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><expression><op>+</op><integer value="0"/><integer value="0"/></expression></assignment></tree>'
+    )
+    same(
+      "q = 0 - 0;",
+      '<tree><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><expression><op>-</op><integer value="0"/><integer value="0"/></expression></assignment></tree>'
+    )
+    same(
+      "q = 0 * 0;",
+      '<tree><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><expression><op>*</op><integer value="0"/><integer value="0"/></expression></assignment></tree>'
+    )
+    same(
+      "q = 0 / 0;",
+      '<tree><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><expression><op>/</op><integer value="0"/><integer value="0"/></expression></assignment></tree>'
+    )
+    same(
+      "q = 0 % 0;",
+      '<tree><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><expression><op>%</op><integer value="0"/><integer value="0"/></expression></assignment></tree>'
+    )
+  end
+
+  def test_conditional
+    same(
+      "if (q = foo());",
+      '<tree><if><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><call><identifier name="foo"/></call></assignment><empty/></if></tree>'
+    )
+    same(
+      "while (q = foo());",
+      '<tree><while><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><call><identifier name="foo"/></call></assignment><empty/></while></tree>'
+    )
+  end
+end

data/test/unit/parser/test_blank.rb

@@ -0,0 +1,44 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestBlank < Test::Unit::TestCase
+  include Nasl::Test
+
+  def test_blank
+    same(
+      ";",
+      "<tree><empty/></tree>"
+    )
+    same(
+      ";;",
+      "<tree><empty/><empty/></tree>"
+    )
+    same(
+      ";;;",
+      "<tree><empty/><empty/><empty/></tree>"
+    )
+  end
+end

data/test/unit/parser/test_block.rb

@@ -0,0 +1,35 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestBlock < Test::Unit::TestCase
+  include Nasl::Test
+
+  def test_empty
+    same("{}", "<tree><block></block></tree>")
+    same("{;}", "<tree><block><empty/></block></tree>")
+    same("{\n#\n}", "<tree><block></block></tree>")
+  end
+end

data/test/unit/parser/test_constant.rb

@@ -0,0 +1,65 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestConstant < Test::Unit::TestCase
+  include Nasl::Test
+
+  def test_false
+    diff(
+      "z = FALSE;",
+      '<tree><assignment><op>=</op><lvalue><identifier name="z"/></lvalue><identifier name="FALSE"/></assignment></tree>'
+    )
+
+    same(
+      "z = FALSE;",
+      '<tree><assignment><op>=</op><lvalue><identifier name="z"/></lvalue><false/></assignment></tree>'
+    )
+  end
+
+  def test_null
+    diff(
+      "z = NULL;",
+      '<tree><assignment><op>=</op><lvalue><identifier name="z"/></lvalue><identifier name="NULL"/></assignment></tree>'
+    )
+
+    same(
+      "z = NULL;",
+      '<tree><assignment><op>=</op><lvalue><identifier name="z"/></lvalue><null/></assignment></tree>'
+    )
+  end
+
+  def test_true
+    diff(
+      "z = TRUE;",
+      '<tree><assignment><op>=</op><lvalue><identifier name="z"/></lvalue><identifier name="TRUE"/></assignment></tree>'
+    )
+
+    same(
+      "z = TRUE;",
+      '<tree><assignment><op>=</op><lvalue><identifier name="z"/></lvalue><true/></assignment></tree>'
+    )
+  end
+end

data/test/unit/parser/test_empty.rb

@@ -0,0 +1,36 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestEmpty < Test::Unit::TestCase
+  include Nasl::Test
+
+  def test_empty
+    same(
+      "",
+      "<tree/>"
+    )
+  end
+end

data/test/unit/parser/test_expressions.rb

@@ -0,0 +1,57 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestExpressions < Test::Unit::TestCase
+  include Nasl::Test
+
+  def test_parentheses
+    pass("q = (-a);")
+    pass("q = (~a);")
+    pass("q = (a);")
+    pass("q = (a + b);")
+    pass("q = (a + (b + c));")
+    pass("q = ((a + b) + (b + d));")
+    pass("q = (a + b) == c;")
+    pass("q = (a + b) == (c + d);")
+    pass("q = ((a + b) == (c + d));")
+    pass("q = (a + b) >> c;")
+    pass("q = (a + b) >> (c + d);")
+    pass("q = ((a + b) >> (c + d));")
+    pass("q = (((1)));")
+    pass("q = (((a = b)));")
+  end
+
+  def test_bitwise
+    pass("q = 0 | 1;")
+  end
+
+  def test_precedence
+    same(
+      'q = a + b / c + d;',
+      '<tree><assignment><op>=</op><lvalue><identifier name="q"/></lvalue><expression><op>+</op><expression><op>+</op><lvalue><identifier name="a"/></lvalue><expression><op>/</op><lvalue><identifier name="b"/></lvalue><lvalue><identifier name="c"/></lvalue></expression></expression><lvalue><identifier name="d"/></lvalue></expression></assignment></tree>'
+    )
+  end
+end

data/test/unit/parser/test_function.rb

@@ -0,0 +1,82 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestFunction < Test::Unit::TestCase
+  include Nasl::Test
+
+  def test_keyword_prefix
+    # While we never want to have a function with the same name as a keyword,
+    # having a keyword at the start of a function name is perfectly valid.
+    fail_parse("if();")
+    fail_parse("break();")
+    fail_parse("continue();")
+    fail_parse("else();")
+    fail_parse("export();")
+    fail_parse("for();")
+    fail_parse("foreach();")
+    fail_parse("function();")
+    fail_parse("global_var();")
+    fail_parse("if();")
+    fail_parse("import();")
+    fail_parse("include();")
+    fail_parse("local_var();")
+    fail_parse("repeat();")
+    fail_parse("return();")
+    fail_parse("until();")
+    fail_parse("while();")
+
+    # While we never want to have a function with the same name as a constant,
+    # having a constant at the start of a function name is perfectly valid.
+    fail_parse("FALSE();")
+    fail_parse("NULL();")
+    fail_parse("TRUE();")
+
+    # X is an exception. It is a valid function name, despite being a keyword.
+    pass("x();")
+
+    pass("if_();")
+    pass("break_();")
+    pass("continue_();")
+    pass("else_();")
+    pass("export_();")
+    pass("for_();")
+    pass("foreach_();")
+    pass("function_();")
+    pass("global_var_();")
+    pass("if_();")
+    pass("import_();")
+    pass("include_();")
+    pass("local_var_();")
+    pass("repeat_();")
+    pass("return_();")
+    pass("until_();")
+    pass("while_();")
+
+    pass("FALSE_();")
+    pass("NULL_();")
+    pass("TRUE_();")
+  end
+end

data/test/unit/parser/test_if.rb

@@ -0,0 +1,85 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestIf < Test::Unit::TestCase
+  include Nasl::Test
+
+  def test_number
+    pass(%q|if (-1);|)
+    pass(%q|if (0);|)
+    pass(%q|if (1);|)
+  end
+
+  def test_assigment
+    pass(%q|if (q = 1);|)
+  end
+
+  def test_call
+    pass(%q|if (foo());|)
+  end
+
+  def test_constant
+    pass(%q|if (FALSE);|)
+    pass(%q|if (NULL);|)
+    pass(%q|if (TRUE);|)
+  end
+
+  def test_string
+    pass(%q|if ('');|)
+    pass(%q|if ('foo');|)
+    pass(%q|if ("");|)
+    pass(%q|if ("foo");|)
+  end
+
+  def test_simple
+    pass(%q|if (1);|)
+    pass(%q|if (1) foo();|)
+  end
+
+  def test_compound
+    pass(%q|if (1) {}|)
+    pass(%q|if (1) {foo();}|)
+  end
+
+  def test_nested
+    pass(%q|if (1) if (1) foo();|)
+    pass(%q|if (1) if (1) {foo();}|)
+  end
+
+  def test_dangling
+    # This is the correct way to parse the ambiguity presented by the dangling
+    # else problem. The else should be attached to the nearest unterminated If.
+    same(
+      %q|if (1) if (1) foo(); else bar();|,
+      '<tree><if><integer value="1"/><if><integer value="1"/><call><identifier name="foo"/></call><call><identifier name="bar"/></call></if></if></tree>'
+    )
+
+    diff(
+      %q|if (1) if (1) foo(); else bar();|,
+      '<tree><if><integer value="1"/><if><integer value="1"/><call><identifier name="foo"/></call></if><call><identifier name="bar"/></call></if></tree>'
+    )
+  end
+end

data/test/unit/parser/test_include.rb

@@ -0,0 +1,37 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestInclude < Test::Unit::TestCase
+  include Nasl::Test
+
+  def test_include
+    fail_parse(%q|include ();|)
+    pass(%q|include ('');|)
+    pass(%q|include ('q.inc');|)
+    pass(%q|include ("");|)
+    pass(%q|include ("q.inc");|)
+  end
+end