/*
 * Copyright 2005-2009, Axel Dörfler, axeld@pinc-software.de.
 * Distributed under the terms of the MIT License.
 */


#include <OS.h>
#include <syscalls.h>

#include <stdio.h>
#include <string.h>


static const char *kPortName = "transfer area test";


int
main(int argc, char **argv)
{
        port_id port;
        area_id area;

        if (argc > 1) {
                // we're the sender
                port = find_port(kPortName);
                if (port < B_OK) {
                        fprintf(stderr, "Area receiver is not yet running.\n");
                        return -1;
                }

                port_info info;
                get_port_info(port, &info);
                
                char *address;
                area = create_area("test transfer area", (void **)&address,
                        B_ANY_ADDRESS, B_PAGE_SIZE, B_NO_LOCK, B_READ_AREA | B_WRITE_AREA);
                if (area < 0) {
                        fprintf(stderr, "Could not create area: %s.\n", strerror(area));
                        return 1;
                }

                sprintf(address, "Oh my god - it's working! (%s)", argv[1]);

                area_id targetArea = _kern_transfer_area(area, (void **)&address,
                        B_ANY_ADDRESS, info.team);
                if (targetArea < 0) {
                        fprintf(stderr, "Could not transfer area: %s.\n",
                                strerror(targetArea));
                        return 1;
                }

                write_port(port, targetArea, NULL, 0);
        } else {
                // we're the receiver
                port = create_port(1, kPortName);
                if (port < 0) {
                        fprintf(stderr, "Could not create port: %s.\n", strerror(area));
                        return 1;
                }

                puts("Waiting for an area to be received (start command again with an "
                        "argument)...");

                ssize_t size;
                if ((size = read_port(port, (int32 *)&area, NULL, 0)) < B_OK) {
                        fprintf(stderr, "Reading from port failed: %s.\n", strerror(size));
                        return 1;
                }

                printf("Received Area %ld\n", area);

                area_info info;
                if (get_area_info(area, &info) != B_OK) {
                        fprintf(stderr, "Could not get area info.\n");
                        return 1;
                }
                printf("  name = \"%s\", base = %p, size = %#lx, team = %ld\n",
                        info.name, info.address, info.size, info.team);
                printf("  contents: %s\n", (char *)info.address);

                delete_area(area);
        }

        return 0;
}