TFluka/TCallf77.h

   1 #ifndef ROOT_TCallf77
   2 #define ROOT_TCallf77
   3 /* Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
   4  * See cxx source for full Copyright notice                               */
   5
   6 /* $Id$ */
   7
   8 #ifndef WIN32
   9 # define type_of_call
  10 # define DEFCHARD     const char*
  11 # define DEFCHARL   , const int
  12 # define PASSCHARD(string) string
  13 # define PASSCHARL(string) , strlen(string)
  14 #else
  15 # define type_of_call  _stdcall
  16 # define DEFCHARD   const char* , const int
  17 # define DEFCHARL
  18 # define PASSCHARD(string) string, strlen(string)
  19 # define PASSCHARL(string)
  20 #endif
  21 #define DEFCHARA   DEFCHARD DEFCHARL
  22 #define PASSCHARA(string)  PASSCHARD(string) PASSCHARL(string)
  23 #endif //ROOT_TCallf77