Fix coredump when comparing non-existing nodes.

* lib/forlan.c (coerce_value): Handle NULL nodes.
(values_equal): Handle NULL strings.
(dump_expr): Handle EQ and NE.
* lib/forlanlex.l: Fix distinction before negative numeric and
identifier.

* etc/describe-security-groups.fln: ipProtocol == "-1" means "all".

* tests/Makefile.am: Add new tests.
* tests/testsuite.at: Likewise.
* tests/comp00.at: New file.
* tests/comp01.at: New file.
* tests/comp02.at: New file.
* tests/comp03.at: New file.
* tests/comp04.at: New file.
* tests/tforlan.c (main): Optionally read XML from standard input.

1 files changed, 10 insertions, 2 deletions

diff --git a/etc/describe-security-groups.fln b/etc/describe-security-groups.fln
index 12a1379..4765c4a 100644
--- a/etc/describe-security-groups.fln
+++ b/etc/describe-security-groups.fln
@@ -22,13 +22,17 @@ if (.DescribeSecurityGroupsResponse.securityGroupInfo) {
     for (var in grp.tagSet.item) {
       print("TAG ", var.key, "\t", var.value, "\n");
     }
     print("Incoming:\n");
     for (var in grp.ipPermissions.item) {
       for (range in var.ipRanges.item) {
-        print(var.ipProtocol,"\t",range.cidrIp,"\t",var.fromPort);
+        if (var.ipProtocol == "-1")
+	  print("all");
+	else
+          print(var.ipProtocol);
+        print("\t",range.cidrIp,"\t",var.fromPort);
 	if (var.fromPort != var.toPort)
 	  print("-",var.toPort);
 	print("\n");
       }
       for (usr in var.groups.item) {
         print("user ", usr.userId, ", group ", usr.groupId, " (", usr.groupName,
@@ -39,13 +43,17 @@ if (.DescribeSecurityGroupsResponse.securityGroupInfo) {
       }
     }
       
     print("Outgoing:\n");
     for (var in grp.ipPermissionsEgress.item) {
       for (range in var.ipRanges.item) {
-        print(var.ipProtocol,"\t",range.cidrIp,"\t",var.fromPort);
+        if (var.ipProtocol == "-1")
+	  print("all");
+	else
+          print(var.ipProtocol);
+	print("\t",range.cidrIp,"\t",var.fromPort);
 	if (var.fromPort != var.toPort)
 	  print("-",var.toPort);
 	print("\n");
       }
       for (usr in var.groups.item) {
         print("user ", usr.userId, ", group ", usr.groupId, " (", usr.groupName,