/*
 * Copyright 2007, Axel Dörfler, axeld@pinc-software.de. All rights reserved.
 * Distributed under the terms of the MIT License.
 *
 * Copyright 2002, Manuel J. Petit. All rights reserved.
 * Distributed under the terms of the NewOS License.
 */


#include <image.h>

#include <errno.h>
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>


static void
usage(char const *app)
{
        printf("usage: %s [-s] ###\n", app);
        exit(-1);
}


int
main(int argc, char *argv[])
{
        bool silent = false;
        int num = 0;
        int result;

        switch (argc) {
                case 2:
                        num = atoi(argv[1]);
                        break;
                case 3:
                        if (!strcmp(argv[1], "-s")) {
                                num = atoi(argv[2]);
                                silent = true;
                                break;
                        }
                        // supposed to fall through

                default:
                        usage(argv[0]);
                        break;
        }

        if (num < 2) {
                result = num;
        } else {
                pid_t childA = fork();
                if (childA == 0) {
                        // we're the child
                        char buffer[64];
                        char* args[]= { argv[0], "-s", buffer, NULL };

                        snprintf(buffer, sizeof(buffer), "%d", num - 1);
                        if (execv(args[0], args) < 0) {
                                fprintf(stderr, "Could not create exec A: %s\n", strerror(errno));
                                return -1;
                        }
                } else if (childA < 0) {
                        fprintf(stderr, "fork() failed for child A: %s\n", strerror(errno));
                        return -1;
                }

                pid_t childB = fork();
                if (childB == 0) {
                        // we're the child
                        char buffer[64];
                        char* args[]= { argv[0], "-s", buffer, NULL };

                        snprintf(buffer, sizeof(buffer), "%d", num - 2);
                        if (execv(args[0], args) < 0) {
                                fprintf(stderr, "Could not create exec B: %s\n", strerror(errno));
                                return -1;
                        }
                } else if (childB < 0) {
                        fprintf(stderr, "fork() failed for child B: %s\n", strerror(errno));
                        return -1;
                }

                status_t status, returnValue = 0;
                do {
                        status = wait_for_thread(childA, &returnValue);
                } while (status == B_INTERRUPTED);

                if (status == B_OK)
                        result = returnValue;
                else
                        fprintf(stderr, "wait_for_thread(%ld) A failed: %s\n", childA, strerror(status));

                do {
                        status = wait_for_thread(childB, &returnValue);
                } while (status == B_INTERRUPTED);

                if (status == B_OK)
                        result += returnValue;
                else
                        fprintf(stderr, "wait_for_thread(%ld) B failed: %s\n", childB, strerror(status));
        }

        if (silent) {
                return result;
        } else {
                printf("%d\n", result);
                return 0;
        }
}