Oracle数据库

开发平台：
Unix_Linux

scalar.h：源码内容
							/* scalar.h - header for scalar routines
/*
/* Copyright (c) 1995-1999 Applied Information Technologies, Inc.
/* All Rights Reserved.
/*  
/* Distributed uder the GNU General Public License which was included in
/* the file named "LICENSE" in the package that you recieved.
/* If not, write to:
/* The Free Software Foundation, Inc.,
/* 675 Mass Ave, Cambridge, MA 02139, USA.
 */
#ifndef _SCALAR_H_
#define _SCALAR_H_
#include <stdio.h>
#include <ctype.h>
#include "boolean.h"
#include "list.h"
/*
/* The valid TYPES for the Scalar_t
 */
typedef enum {
	 eStringType	/* Character Strings */
	,eIntType	/* Integers */
	,eDoubleType	/* Real Numbers */
	,eListType	/* Linked-Lists */
	,eBoolType	/* Boolean Value (True or False) */
	,eRawType	/* Raw Type memory buffer with length */
} eScalar_t;
typedef struct {
    eScalar_t	esType;	/* a valid eStackType */
    union {
	char	*pString;/* character string */
	int	iInt;	/* int */
	double	dDouble;/* real number */
	LIST	*pList;	/* Linked-List of Scalar_t's */
	eBoolean_t bBool;/* Boolean */
	void	*pRaw; /* Raw Memory Buffer (not null terminated) */
    } uVal;		/* UNION */
    char *pName;
    long lSize;
} Scalar_t;
typedef Scalar_t *(*PFPS_t)(Scalar_t *); /* Pointer to function that accepts
					/* a pointer to a Scalar_t and
					/* returns a pointer to a Scalar_t
					 */
/*
/* Function Protytypes
 */
extern eBoolean_t BetweenCond(Scalar_t *p, Scalar_t *plo, Scalar_t *phi);
extern eBoolean_t LikeCond(Scalar_t *p1, Scalar_t *p2);
extern eBoolean_t IsNullCond(Scalar_t *p);
extern eBoolean_t InCond(Scalar_t *pVal, Scalar_t *pList);
extern eBoolean_t CompareCond(Scalar_t *pOp,Scalar_t *pLeft,Scalar_t *pRight);
extern Scalar_t *AddScalar(Scalar_t *p1, Scalar_t *p2);
extern Scalar_t *CatScalar(Scalar_t *p1, Scalar_t *p2);
extern Scalar_t *SubScalar(Scalar_t *p1, Scalar_t *p2);
extern Scalar_t *MultScalar(Scalar_t *p1, Scalar_t *p2);
extern Scalar_t *DivScalar(Scalar_t *p1, Scalar_t *p2);
extern Scalar_t *ModScalar(Scalar_t *p1, Scalar_t *p2);
extern Scalar_t *USubScalar(Scalar_t *p1);
extern Scalar_t *CallFunction(Scalar_t *pName, Scalar_t *pList);
extern Scalar_t *AddScalarToList(Scalar_t *pList,Scalar_t *p1);
/*
/* Built-in Functions
 */
extern Scalar_t * ScalarUpper(Scalar_t *pList);
extern Scalar_t * ScalarLower(Scalar_t *pList);
extern Scalar_t * ScalarSubstr(Scalar_t *pList);
extern Scalar_t * ScalarLength(Scalar_t *pList);
extern Scalar_t * ScalarToChar(Scalar_t *pList);
extern Scalar_t * ScalarToNumber(Scalar_t *pList);
extern Scalar_t * ScalarLPad(Scalar_t *pList);
extern Scalar_t * ScalarRPad(Scalar_t *pList);
extern Scalar_t * ScalarLTrim(Scalar_t *pList);
extern Scalar_t * ScalarRTrim(Scalar_t *pList);
extern Scalar_t * ScalarNVL(Scalar_t *pList);
extern Scalar_t * ScalarHost(Scalar_t *pList);
extern Scalar_t * ScalarGetSym(Scalar_t *pScalar,char *pRule);
extern Scalar_t * ScalarGetSymARR(Scalar_t *pScalar,Scalar_t *pArrayOffset);
extern Scalar_t * ScalarSaveFile(Scalar_t *pList);
extern Scalar_t * ScalarGetCookieValue(Scalar_t *pList);
extern Scalar_t * ScalarReplace(Scalar_t *pList);
extern Scalar_t * ScalarAscii(Scalar_t *pList);
extern Scalar_t * ScalarCHR(Scalar_t *pList);
extern eBoolean_t AssignCond(Scalar_t *pScalarName, Scalar_t *pScalarValue);
/*
/* Called by yylex to create a scalar when found
 */
extern Scalar_t *MkScalar(eScalar_t esType, void *pValue, long lSize);
extern Scalar_t *MkScalarToken(int iToken);
extern Scalar_t *ToScalar(eBoolean_t bBool);
extern eBoolean_t IsScalar(Scalar_t *pScalar);
extern eBoolean_t OutputScalar(Scalar_t *pScalar);
#endif /* _SCALAR_H_ */

						