123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 |
- /* -*- mode:c; c-file-style:"k&r"; c-basic-offset: 4; tab-width:4; indent-tabs-mode:nil; mode:auto-fill; fill-column:78; -*- */
- /* vim: set ts=4 sw=4 et tw=78 fo=cqt wm=0: */
- /* This Hello World demostrate a simple multithread program */
- #define DO_BENCH 0
- #include "pal.h"
- #include "pal_debug.h"
- #include "api.h"
- int main (int argc, char ** argv)
- {
- int count = 0;
- #if DO_BENCH != 1
- pal_printf("In process: %s", argv[0]);
- for (int i = 1 ; i < argc ; i++)
- pal_printf(" %s", argv[i]);
- pal_printf("\n");
- #endif
- if (argc == 1) {
- unsigned long time = DkSystemTimeQuery ();
- char time_arg[24];
- snprintf(time_arg, 24, "%ld", time);
- const char * newargs[4] = { "Process", "0", time_arg, NULL };
- PAL_HANDLE proc = DkProcessCreate ("file:Process", newargs);
- if (!proc)
- pal_printf("Can't create process\n");
- DkObjectClose(proc);
- DkThreadDelayExecution(30000000);
- } else {
- count = atoi (argv[1]);
- if (count < 100) {
- count++;
- char count_arg[8];
- snprintf(count_arg, 8, "%d", count);
- const char * newargs[4] = { "Process", count_arg, argv[2], NULL };
- PAL_HANDLE proc = DkProcessCreate ("file:Process", newargs);
- if (!proc)
- pal_printf("Can't creste process\n");
- DkObjectClose(proc);
- } else {
- unsigned long end = DkSystemTimeQuery ();
- unsigned long start = atol (argv[2]);
- pal_printf ("wall time = %ld\n", end - start);
- }
- }
- DkProcessExit(0);
- return 0;
- }
|