1 #ifndef StarCallf77_H 2 #define StarCallf77_H 3 /* Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. * 4 * See cxx source for full Copyright notice */ 5 6 /* $Id: StarCallf77.h,v 1.1 1999/12/03 21:34:27 fisyak Exp $ */ 7 8 #ifdef WIN32 9 # ifdef CERNLIB_MSSTDCALL 10 # define F77_UCASE 11 # define type_of_call _stdcall 12 # ifndef CERNLIB_QXCAPT 13 # define CERNLIB_QXCAPT 14 # endif 15 # else 16 # define F77_LCASE 17 # ifndef CERNLIB_QXNO_SC 18 # define CERNLIB_QXNO_SC 19 # endif 20 # endif 21 # define type_of_call _stdcall 22 # define DEFCHARD const char* , const int 23 # define DEFCHARL 24 # define PASSCHARD(string) string, strlen(string) 25 # define PASSCHARL(string) 26 #else 27 # define DEFCHARD const char* 28 # define DEFCHARL , const int 29 # define PASSCHARD(string) string 30 # define PASSCHARL(string) , strlen(string) 31 #endif 32 #ifdef CERNLIB_QXCAPT 33 # define F77_NAME(name,NAME) NAME 34 #else 35 # if defined(CERNLIB_QXNO_SC) 36 # define F77_NAME(name,NAME) name 37 # else 38 # define F77_NAME(name,NAME) name##_ 39 # endif 40 #endif 41 #ifndef type_of_call 42 # define type_of_call 43 #endif 44 #endif 45