From 85c0d5edb781c9f31b79e48452b1ca68643f41de Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Fri, 16 Jul 2010 14:40:49 +0300
Subject: Move to gawk-3.1.4.

---
 extension/testarg.c | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 extension/testarg.c

(limited to 'extension/testarg.c')

diff --git a/extension/testarg.c b/extension/testarg.c
new file mode 100644
index 00000000..747dd515
--- /dev/null
+++ b/extension/testarg.c
@@ -0,0 +1,40 @@
+#include "awk.h"
+
+static NODE *
+do_check_arg(tree)
+NODE *tree;
+{
+        int ret = 0, argc;
+        NODE *arg1, *arg2, *arg3;
+
+        argc = get_curfunc_arg_count();
+        printf("arg count: defined = %d, supplied = %d\n", tree->param_cnt, argc);
+
+        arg1 = get_scalar_argument(tree, 0, FALSE);
+        arg2 = get_array_argument(tree, 1, FALSE);
+        arg3 = get_scalar_argument(tree, 2, TRUE);	/* optional */
+        if (argc > 3) {	/* try to use an extra arg */
+                NODE *arg4;
+                arg4 = get_array_argument(tree, 3, TRUE);
+        }
+        if (arg3 != NULL)
+                printf("3rd arg present\n\n");
+        else
+                printf("no 3rd arg\n\n");
+        /* Set the return value */
+        set_value(tmp_number((AWKNUM) ret));
+
+        /* Just to make the interpreter happy */
+        return tmp_number((AWKNUM) 0);
+}
+
+/* dlload --- load new builtins in this library */
+
+NODE *
+dlload(tree, dl)
+NODE *tree;
+void *dl;
+{
+        make_builtin("check_arg", do_check_arg, 3);
+        return tmp_number((AWKNUM) 0);
+}
-- 
cgit v1.2.3