source: trunk/essentials/sys-apps/gawk/extension/testfork.awk

BEGIN {
        extension("./fork.so", "dlload")

        printf "before fork, pid = %d, ppid = %d\n", PROCINFO["pid"],
                        PROCINFO["ppid"]

        fflush()
        ret = fork()
        if (ret < 0)
                printf("ret = %d, ERRNO = %s\n", ret, ERRNO)
        else if (ret == 0)
                printf "child, pid = %d, ppid = %d\n", PROCINFO["pid"],
                        PROCINFO["ppid"]
        else {
                system("sleep 3")
                printf "parent, ret = %d\n", ret
                printf "parent, pid = %d, ppid = %d\n", PROCINFO["pid"],
                        PROCINFO["ppid"]
        }
}