GME: init.c Source File

00001 
00006 #include <stdio.h>
00007 #include <stdlib.h>
00008 
00009 #include "libmgk.h"
00010 
00011 static mgk_host the_host =
00012 {
00013   OBJ_HOST,
00014   0
00015 };
00016 
00017 mgk_error_code mgk_errno = E_SUCCESS;
00018 mgk_node *__mgk_running_node = NULL;
00019 jmp_buf __mgk_node_abort_context;
00020 mgk_host *__mgk_host_table = &the_host;
00021 mgk_host *__mgk_local_host = &the_host;
00022 int __mgk_num_hosts = 1;
00023 
00024 mgk_error_code
00025 mgk_initialize(int *argc, char ***argv)
00026 {
00027   return (E_SUCCESS);
00028 }
00029 
00030 int
00031 __mgk_remote_call(mgk_host * host, mgk_remcmd cmd,
00032                   int argc, mgk_value ** argv,
00033                   int rargc, mgk_value ** rargv)
00034 {
00035   fprintf(stderr, "'__mgk_remote_call' called in sequential version!\n");
00036   abort();
00037   return(0);
00038 }
00039 
00040 void
00041 __mgk_remote_propagate(mgk_link * lk)
00042 {
00043   fprintf(stderr, "'__mgk_remote_propagate' called in sequential version!\n");
00044   abort();
00045 }