Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site birtch.UUCP
Path: utzoo!watmath!clyde!cbosgd!ukma!psuvm.bitnet!psuvax1!burdvax!sdcrdcf!trwrb!scgvaxd!felix!birtch!john
From: john@birtch.UUCP (John Pipkins x257)
Newsgroups: net.database
Subject: Unify RPT local function
Message-ID: <248@birtch.UUCP>
Date: Tue, 7-Jan-86 17:29:00 EST
Article-I.D.: birtch.248
Posted: Tue Jan  7 17:29:00 1986
Date-Received: Sat, 11-Jan-86 07:06:57 EST
Distribution: net
Organization: Birtcher, Santa Ana, Ca.
Lines: 98

I like the idea of sharing RPT (unify) functions, so I make my first
contributions.  The first is instring.  Instring will check for the
occurrance of any characters in the first string in the second string.
We needed it, honest. Oh yeah,  I developed this routine on a 4.2bsd
system and transfered it to our Pyramid 90x.  Guess what. The 90x version
was (partially) done in the SYSV. So, if you get a compile error, check
the 'strchr'.

The second routine I don't know (or refuse to remember) why I wrote it.  It
compares dates and returns an integer value (-1,0,1) based on the comparison.
(I think I did it for fun. We design types don't get to sling code much.)
Anyway, they work!


/********INSTRING*********/
/* instring.c - RPT local function to check for characters in string 1 in */
/*      string 2.                                                         */
/* inputs: string1, string2                                               */
/* output: 1 if any characters in string1 are in string2, else 0          */


#include <stdio.h>
#include <strings.h>
#include "../include/rptincl.h"
#include "../include/dbtypes.h"

#define FRSSTR (args[0].ur_val.c_val)
#define TSTSTR (args[1].ur_val.c_val)

union vals scheck;                              /* return value */

union vals instring(count, args)
int count;
struct uargs *args;
{
 int i;

/* check to see if we got right number of arguements */
        if(count != 2){
                fprintf(stderr,"instring: Wrong number of arguemnts\n");
                exit(99);
        }

/* see if we go right type of arguement */
        if((args[0].ur_type != STRNG) | (args[1].ur_type != STRNG)){
                fprintf(stderr,"instring: Bad arguement type\n");
                exit(99);
        }
/* do the checks */
        scheck.s_val = 0;                       /* assume not */

        for(i=0; FRSSTR[i] != NULL; i++){       /* while there are characters */
                if(strchr(TSTSTR, FRSSTR[i]) != NULL){  /* got non-null pointer? */
                        scheck.s_val = 1;       /* yes, set true return */
                        return scheck;          /* get out of here */
                }
        }
        return scheck;
}


/*********CHECKDATE*********/

/* checkdate - RPT local function to compare dates */
/* inputs: date1, date2 */
/* output: -1 if date1< date2, 0 if equal, 1 if date1 > date2 */

#include <stdio.h>
#include "../include/rptincl.h"
#include "../include/dbtypes.h"

#define LDATE args[0]
#define RDATE args[1]

union vals checkdate(count, args)
int count;
struct uargs *args;
{

union vals rdate;

/* check to see if we got right number of arguements */
        if(count != 2){
                fprintf(stderr,"checkdate: Wrong number of arguemnts\n");
                exit(99);
        }

/* see if we go right type of arguement */
        if((LDATE.ur_type != DATE) | (RDATE.ur_type != DATE)){
                fprintf(stderr,"checkdate: Bad arguement type\n");
                exit(99);
        }
/* do the checks */
        rdate.s_val = 0;
        if(LDATE.ur_val.s_val < RDATE.ur_val.s_val) rdate.s_val = -1;
        if(LDATE.ur_val.s_val > RDATE.ur_val.s_val) rdate.s_val = 1;
        return rdate;
}