/***
*
*   Extend.api
*
*   C language definitions for Clipper EXTEND system
*
*   Copyright (c) 1987-1993, Computer Associates International, Inc.
*   All rights reserved.
*
*   CA-Clipper uses Microsoft C large model calling conventions
*
*/


#ifndef _EXTEND_API


#ifndef _CLIPDEFS_H
#include "clipdefs.h"
#endif

#ifndef CLIPPERDEFS
typedef double XDOUBLE;
#endif

#define UNDEF        0
#define CHARACTER    1
#define NUMERIC      2
#define LOGICAL      4
#define DATE         8
#define ALIAS       16
#define MPTR        32      /* or'ed with type when passed by reference */
#define MEMO        65
#define WORD       128
#define ARRAY      512
#define BLOCK     1024
#define DOUBLE    2048

/* parameter count/type */
extern int _parinfo( int );
extern int _parinfa( int, unsigned int );


/* parameter values */
extern char *       _parc(int, ...);
extern unsigned int _parcsiz(int, ...);
extern unsigned int _parclen(int, ...);
extern int          _parni(int, ...);
extern long         _parnl(int, ...);
extern XDOUBLE      _parnd(int, ...);
extern int          _parl(int, ...);
extern char *       _pards(int, ...);


/* return a value */
extern void _retc(char far *);
extern void _retclen(char far *, unsigned int);
extern void _retni(int);
extern void _retnl(long);
extern void _retnd(XDOUBLE);
extern void _retl(int);
extern void _retds(char far *);

/* return no value (NIL) */
extern void _ret(void);


/* store values */
int _storc(char far *, int, ...);
int _storclen(char far *, int, ...);
int _storni(int, int, ...);
int _stornl(long, int, ...);
int _stornd(XDOUBLE, int, ...);
int _storl(int, int, ...);
int _stords(char far *, int, ...);



/* parameter check macros */
#define PCOUNT       (_parinfo(0))
#define ISCHAR(n)    (_parinfo(n) & CHARACTER)
#define ISNUM(n)     (_parinfo(n) & NUMERIC)
#define ISLOG(n)     (_parinfo(n) & LOGICAL)
#define ISDATE(n)    (_parinfo(n) & DATE)
#define ISMEMO(n)    (_parinfo(n) & MEMO)
#define ISBYREF(n)   (_parinfo(n) & MPTR)
#define ISARRAY(n)   (_parinfo(n) & ARRAY)
#define ALENGTH(n)   (_parinfa(n, 0))


#define _EXTEND_API
#endif