/* Copyright (C) 1992, 1994 by Thomas Glen Smith.  All Rights Reserved.*/
/* cdyadic APL2 V1.0.0 *************************************************
* The character equivalent of dyadic.                                  *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb cdyadic(oper,left,rite)
int (*oper)(); /* operator */
Aplcb left,rite; /* operands */
{
	Dyadicm; Errstop; Matchok;
	extern int aplerr;
	Aplcb out=NULL;
	int *dataout;
	char *leftptr,*riteptr;
	int i,leftinc,riteinc;
	void *wrk1,*wrk2,*wrk3;

	if (!matchok(&left,&rite,APLCHAR))
		return(NULL); /* m/b integer */
	wrk1 = &dataout;
	wrk2 = &leftptr;
	wrk3 = &riteptr;
	out=dyadicm(left,rite,wrk1,wrk2,wrk3,
		&leftinc,&riteinc,APLINT
		); /* go build APLCB */
#include "dyadcom.h"
}