Home Research Papers Posters Manuals Talks Download People Help Internal

util/ckstandalone.C

Go to the documentation of this file.

#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h> /*<- for va_start & friends */
#include <string.h> /*<- for strlen */

#include "charm.h"
#include "charm-api.h"

/* CkPrintf/CkAbort support: */
extern "C" void CmiAbort(const char *why) {
        fprintf(stderr,"Fatal error> %s\n",why);
        abort();
}

extern "C" void CmiPrintf(const char *fmt, ...) {
        va_list p; va_start(p, fmt);
        vfprintf(stdout,fmt,p);
        va_end(p);
}
extern "C" void CmiError(const char *fmt, ...) {
        va_list p; va_start(p, fmt);
        vfprintf(stderr,fmt,p);
        va_end(p);
}

extern "C" void *CmiTmpAlloc(int size) {return malloc(size);}
extern "C" void CmiTmpFree(void *p) {free(p);}
extern "C" void __cmi_assert(const char *expr, const char *file, int line) { CmiAbort(expr);}

/* Bizarre stuff for Cpv support: thankfully not needed by FEM.
#ifndef CmiMyPe
int CmiMyPe(void) {return 0;}
#endif
#ifndef CmiMyRank
int CmiMyRank(void) {return 0;}
#endif
 */
int _Cmi_mype=0;
int _Cmi_numpes=1;
int _Cmi_myrank=0;
int _Cmi_mynodesize=1;
int _Cmi_mynode=0;
int _Cmi_numnodes=1;

/* CmiWallTimer support */
double _cpu_speed_factor=0.0;
CDECL double CmiTimer(void) {return 0.0;}
#ifndef CmiWallTimer
CDECL double CmiWallTimer(void) {return 0.0;}
#endif

/* Mini-micro TCHARM */
#include "tcharmc.h"
CDECL void TCHARM_Migrate(void) {}

enum {tc_global_max=64};
void *tc_globals[tc_global_max];
void TCHARM_Set_global(int globalID,void *new_value,TCHARM_Pup_global_fn pup_or_NULL) {
        tc_globals[globalID]=new_value;
}
void *TCHARM_Get_global(int globalID) {
        return tc_globals[globalID];
}


/* FIXME: add real calls based on MPI here: */
CDECL int TCHARM_Register(void *data,TCHARM_Pup_fn pfn) {return -1;}
FORTRAN_AS_C_RETURN(int,TCHARM_REGISTER,TCHARM_Register,tcharm_register,
        (void *data,TCHARM_Pup_fn pfn),(data,pfn))

CDECL void *TCHARM_Get_userdata(int id) {return 0;}

CDECL void TCHARM_Done(void) { /* fallthrough */ }
FORTRAN_AS_C(TCHARM_DONE,TCHARM_Done,tcharm_done,(void),())

CDECL void TCHARM_Barrier(void) { /* fallthrough */ }
FORTRAN_AS_C(TCHARM_BARRIER,TCHARM_Barrier,tcharm_barrier,(void),())

CDECL int TCHARM_Element(void) {return 0;}
FORTRAN_AS_C_RETURN(int,TCHARM_ELEMENT,TCHARM_Element,tcharm_element,(void),())

CDECL int TCHARM_Num_elements(void) {return 1;}
FORTRAN_AS_C_RETURN(int,TCHARM_NUM_ELEMENTS,TCHARM_Num_elements,tcharm_num_elements,(void),())

CDECL double TCHARM_Wall_timer(void) {return 0.0;}
FORTRAN_AS_C_RETURN(double,TCHARM_WALL_TIMER,TCHARM_Wall_timer,tcharm_wall_timer,(void),())

#define FORTRAN_TCHARM_UNIMPLEMENTED(ROUTINE,routine) \
FDECL void FTN_NAME(TCHARM_##ROUTINE,tcharm_##routine)(void) \
        { CkAbort("Sorry, standalone mode does not have TCHARM_" #ROUTINE); }

FORTRAN_TCHARM_UNIMPLEMENTED(INIT,init)
FORTRAN_TCHARM_UNIMPLEMENTED(CREATE,create)
FORTRAN_TCHARM_UNIMPLEMENTED(MIGRATE,migrate)
FORTRAN_TCHARM_UNIMPLEMENTED(SET_STACK_SIZE,set_stack_size)
FORTRAN_TCHARM_UNIMPLEMENTED(CREATE_DATA,create_data)
FORTRAN_TCHARM_UNIMPLEMENTED(MIGRATE_TO,migrate_to)
FORTRAN_TCHARM_UNIMPLEMENTED(YIELD,yeild)


/* Command-line argument handling */
static char **saved_argv=NULL;

CDECL int CmiGetArgFlagDesc(char **argv,const char *arg,const char *desc) {
        int i;
        saved_argv=argv;
        for (i=0;argv[i]!=NULL;i++)
                if (0==strcmp(argv[i],arg))
                {/*We found the argument*/
                        return 1;
                }
        return 0;/*Didn't find the argument*/
}

CDECL int CmiGetArgIntDesc(char **argv,const char *arg,int *optDest,const char *desc) {
        int i;
        saved_argv=argv;
        for (i=0;argv[i]!=NULL;i++)
                if (0==strcmp(argv[i],arg))
                {/*We found the argument*/
                        *optDest = atoi(argv[i+1]);
                        return 1;
                }
        return 0;/*Didn't find the argument*/
}

FDECL void FTN_NAME(TCHARM_GETARG,tcharm_getarg)(int *arg,char *dest,int destLen) {
        if (saved_argv==NULL)
                CkAbort("TCHARM_GETARG not supported in FEM_ALONE mode!\n");
        else /* actually have a saved argument-- return it */ {
                int i;
                const char *src=saved_argv[*arg];
                strcpy(dest,src);
                for (i=strlen(dest);i<destLen;i++) dest[i]=' ';
        }
}

---