Added Perl support.

1 files changed, 201 insertions, 0 deletions

diff --git a/auto/modules/perl b/auto/modules/perl
new file mode 100644
index 00000000..2d1f92a9
--- /dev/null
+++ b/auto/modules/perl
@@ -0,0 +1,201 @@
+
+# Copyright (C) Alexander Borisov
+# Copyright (C) NGINX, Inc.
+
+
+shift
+
+for nxt_option; do
+
+    case "$nxt_option" in
+        -*=*) value=`echo "$nxt_option" | sed -e 's/[-_a-zA-Z0-9]*=//'`     ;;
+           *) value="" ;;
+    esac
+
+    case "$nxt_option" in
+        --perl=*)      NXT_PERL="$value"                                ;;
+        --include=*)   NXT_PERL_INCPATH="$value"                        ;;
+        --lib-path=*)  NXT_PERL_LIBPATH="$value"                        ;;
+        --lib=*)       NXT_PERL_LIBNAME="$value"                        ;;
+        --module=*)    NXT_PERL_MODULE="$value"                         ;;
+
+        --help)
+            cat << END
+
+    --perl=FILE           set perl executable, default: perl
+    --include=DIRECTORY   set directory path to perl headers
+    --lib-path=DIRECTORY  set directory path to perl library
+    --lib=NAME            set perl library name, default: perl
+    --module=NAME         set unit perl module name
+
+END
+            exit 0
+        ;;
+
+        *)
+            echo
+            echo $0: error: invalid Perl option \"$nxt_option\"
+            echo
+            exit 1
+        ;;
+    esac
+
+done
+
+
+if [ ! -f $NXT_AUTOCONF_DATA ]; then
+   echo
+   echo Please run common $0 before configuring module \"$nxt_module\".
+   echo
+   exit 1
+fi
+
+. $NXT_AUTOCONF_DATA
+
+$echo "configuring Perl module"
+$echo "configuring Perl module ..." >> $NXT_AUTOCONF_ERR
+
+NXT_PERL=${NXT_PERL=perl}
+NXT_PERL_LIBNAME=${NXT_PERL_LIBNAME=perl}
+NXT_PERL_MODULE=${NXT_PERL_MODULE=${NXT_PERL##*/}}
+NXT_PERL_LDLIBPATH=""
+
+nxt_found=no
+
+if /bin/sh -c "$NXT_PERL -MConfig -e 'print \"Perl version: \",
+    \$Config{version}, \"\\n\"'" >> $NXT_AUTOCONF_ERR 2>&1; then
+
+    NXT_PERL_INCPATH=${NXT_PERL_INCPATH=`$NXT_PERL -MConfig -e 'print $Config{archlib}, "/CORE"'`}
+    NXT_PERL_LIBPATH=${NXT_PERL_LIBPATH=`$NXT_PERL -MConfig -e 'print $Config{libspath}'`}
+
+    for nxt_src in $NXT_PERL_LIBPATH
+    do
+        NXT_PERL_LDLIBPATH="${NXT_PERL_LDLIBPATH} -L ${nxt_src}"
+    done
+
+    NXT_PERL_INCLUDE="-I ${NXT_PERL_INCPATH}"
+    NXT_PERL_LIBS="-L ${NXT_PERL_INCPATH} ${NXT_PERL_LDLIBPATH} -l${NXT_PERL_LIBNAME}"
+
+    nxt_feature="Perl"
+    nxt_feature_name=""
+    nxt_feature_run=no
+    nxt_feature_incs="${NXT_PERL_INCLUDE}"
+    nxt_feature_libs="${NXT_PERL_LIBS}"
+    nxt_feature_test="
+        #include <EXTERN.h>
+        #include <perl.h>
+
+        static PerlInterpreter *my_perl;
+
+        int main() {
+            char argv[] = \"\\0-e\\00\";
+            char *embedding[] = { &argv[0], &argv[1], &argv[4] };
+
+            int pargc = 0;
+            char **pargv = NULL, **penv = NULL;
+            PERL_SYS_INIT3(&pargc, &pargv, &penv);
+
+            my_perl = perl_alloc();
+            perl_construct(my_perl);
+            perl_parse(my_perl, NULL, 3, embedding, NULL);
+            PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
+            perl_run(my_perl);
+
+            perl_destruct(my_perl);
+            perl_free(my_perl);
+            PERL_SYS_TERM();
+
+            return 0;
+        }"
+
+    . auto/feature
+
+else
+    $echo "checking for Perl ... not found"
+fi
+
+if [ $nxt_found = no ]; then
+    $echo
+    $echo $0: error: no Perl found.
+    $echo
+    exit 1;
+fi
+
+NXT_PERL_VERSION=`$NXT_PERL -MConfig -e 'print $Config{version}'`
+$echo " + Perl version: ${NXT_PERL_VERSION}"
+
+if grep ^$NXT_PERL_MODULE: $NXT_MAKEFILE 2>&1 > /dev/null; then
+    $echo
+    $echo $0: error: duplicate \"$NXT_PERL_MODULE\" module configured.
+    $echo
+    exit 1;
+fi
+
+$echo " + Perl module: ${NXT_PERL_MODULE}.unit.so"
+
+. auto/cc/deps
+
+$echo >> $NXT_MAKEFILE
+
+NXT_PERL_MODULE_SRCS=" \
+    src/perl/nxt_perl_psgi.c \
+    src/perl/nxt_perl_psgi_layer.c
+"
+
+# The Perl module object files.
+
+nxt_objs=
+
+for nxt_src in $NXT_PERL_MODULE_SRCS; do
+
+    nxt_obj=${nxt_src%.c}-$NXT_PERL_MODULE.o
+    nxt_dep=${nxt_src%.c}-$NXT_PERL_MODULE.dep
+    nxt_dep_flags=`nxt_gen_dep_flags`
+    nxt_dep_post=`nxt_gen_dep_post`
+    nxt_objs="$nxt_objs $NXT_BUILD_DIR/$nxt_obj"
+
+    cat << END >> $NXT_MAKEFILE
+
+$NXT_BUILD_DIR/$nxt_obj:	$nxt_src
+	mkdir -p $NXT_BUILD_DIR/src/perl
+	\$(CC) -c \$(CFLAGS) \$(NXT_INCS) $NXT_PERL_INCLUDE \\
+	$nxt_dep_flags \\
+	-o $NXT_BUILD_DIR/$nxt_obj $nxt_src
+	$nxt_dep_post
+
+-include $NXT_BUILD_DIR/$nxt_dep
+
+END
+
+done
+
+cat << END >> $NXT_MAKEFILE
+
+.PHONY: ${NXT_PERL_MODULE}
+.PHONY: ${NXT_PERL_MODULE}-install
+.PHONY: ${NXT_PERL_MODULE}-uninstall
+
+all: ${NXT_PERL_MODULE}
+
+${NXT_PERL_MODULE}:	$NXT_BUILD_DIR/${NXT_PERL_MODULE}.unit.so
+
+$NXT_BUILD_DIR/${NXT_PERL_MODULE}.unit.so:	$nxt_objs
+	\$(NXT_MODULE_LINK) -o $NXT_BUILD_DIR/${NXT_PERL_MODULE}.unit.so \\
+	$nxt_objs $NXT_PERL_LIBS $NXT_LD_OPT
+
+
+install: ${NXT_PERL_MODULE}-install
+
+${NXT_PERL_MODULE}-install: ${NXT_PERL_MODULE}
+	install -d \$(DESTDIR)$NXT_MODULES
+	install -p $NXT_BUILD_DIR/${NXT_PERL_MODULE}.unit.so \\
+		\$(DESTDIR)$NXT_MODULES/
+
+
+uninstall: ${NXT_PERL_MODULE}-uninstall
+
+${NXT_PERL_MODULE}-uninstall:
+	rm -f \$(DESTDIR)$NXT_MODULES/${NXT_PERL_MODULE}.unit.so
+	@rmdir -p \$(DESTDIR)$NXT_MODULES 2>/dev/null || true
+
+END