include/ntuple/kuip_interface.h

0001 /*
0002  *  kuip_interface.h  --
0003  *  Declare interface to KUIP.
0004  *
0005  *  Original: 12-Jan-1996 16:08
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.8  1999/11/03 08:43:44  couet
0013  *  - reorganise the file to make it work on NT
0014  *
0015  *  Revision 1.7  1999/07/02 12:54:49  couet
0016  *  - prototype for KUVECT
0017  *
0018  *  Revision 1.6  1999/06/28 15:08:49  couet
0019  *  - use now cfortran.h in $CVSCOSRC
0020  *
0021  *  Revision 1.5  1996/12/05 10:04:19  lecointe
0022  *  Two completely different things
0023  *      . add a _C to "paqcut" in "qp_cuts.c" to avoid duplicate symbol
0024  *  on VMS
0025  *      . Modified "expand_var_list" called by "do_nt_scan" in npantup.c.
0026  *  Removed the hand-made parser and use "ku_getl" to parse the list of
0027  *  variables to scan.
0028  *
0029  *  Revision 1.4  1996/04/23 18:38:05  maartenb
0030  *  - Add RCS keywords
0031  *
0032  *
0033  */
0034
0035 #ifndef CERN_KUIP_INTERFACE
0036 #define CERN_KUIP_INTERFACE
0037
0038 #include    "paw/pilot.h"
0039
0040 #include    <cfortran/cfortran.h>
0041
0042
0043 extern void ku_alfa( void );
0044 extern char *   ku_getc( void );
0045 extern char *   ku_getf( void );
0046 extern int  ku_geti( void );
0047 extern char *   ku_gets( void );
0048 extern char *   ku_getl( void );
0049 extern int  ku_npar( void );
0050 extern char *   ku_path( void );
0051 extern char *   ku_proc( const char* prompt, const char* dfault );
0052
0053
0054 PROTOCCALLSFSUB3(KUVECT,kuvect,STRING,PINT,PINT)
0055 #define KUVECT(VECNAM,LLOW,LHIGH) CCALLSFSUB3(KUVECT,kuvect,STRING,PINT,PINT,VECNAM,LLOW,LHIGH)
0056
0057
0058 #if defined(CERNLIB_WINNT) || defined(CERNLIB_MSDOS) || defined(CERNLIB_VAXVMS)
0059
0060 extern int  strcasecmp( const char* str1, const char* str2 );
0061 extern int  strncasecmp( const char* str1, const char* str2, size_t n );
0062
0063 #endif
0064
0065 #endif  /*  CERN_KUIP_INTERFACE */