/* Copyright 1990-1992 Laboratoire de Recherche en Informatique (LRI)

Permission to use, copy, and modify this software and its documentation
for your own purposes is hereby granted without fee, provided that
the above copyright notice appear in all copies and that both that
copyright notice and this permission notice appear in supporting
documentation, and use acknowledge that the software was developed
by Laboratoire de Recherche en Informatique, Universite de Paris-Sud,
Orsay, France. LRI makes no representations about the suitability of
this software for any purpose.  It is provided "as is" without express
or implied warranty.

This software or modified versions of this software cannot be
distributed in source or binary form, nor included into products
without prior written permission of the author.

LRI DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL LRI
BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN 
CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

Author:

   ___    0  Thomas Baudel                 e-mail: thomas@lri.fr
  /   \  /   LRI - Bat 490
 /  __/ /    Universite de Paris-Sud       voice : +33 (1) 69 41 69 10
/__   \/     91 405 ORSAY Cedex - FRANCE   fax   : +33 (1) 69 41 65 86
*/
/*    
	Simple interface to Rubine's stuff for the mac
	Thomas Baudel                     thomas@dgp.toronto.edu
									  thomas@lri.lri.fr
	Thursday, July 18, 1991 3:47:10 PM
*/

#include <Values.h>
#include <Types.h>
#include <Resources.h>
#include <Packages.h>
#include <stdio.h>
#include <stdLib.h>
#include <string.h>
#include <memory.h>
#include <SANE.h>
#include <HyperXcmd.h>
#include "util.h"
#include "bitvector.h"
#include "matrix.h"
#include "fv.h"
#include "sc.h"
#include "GestXcmd.h"

#pragma segment GestInit

void ErrAbort(XCmdPtr, char*);

pascal void EntryPoint (XCmdPtr param)
{
	sClassifier sc;
	Handle h;
	char* name;

	if (param->paramCount != 1) {
			ErrAbort(param, dCorrectUse);
			return;
	}
	HLock (param->params[0]);
	name = (char*) *(param->params[0]);
	h = getnamedresource ('GEsT', name);
	if (h) {
		sc = sLoad (h);
		ReleaseResource (h);
		if (sc) {
			h = NewHandle (256);
			HLock(h);
			name = (char*) *h; 
			numtostring ((long) sc, name);
			HUnlock(h);
			param->returnValue = h;
		} else ErrAbort (param, dMemProb);
	} else  ErrAbort (param, dGestSetnf);
	HUnlock (param->params[0]);
}

void ErrAbort(XCmdPtr paramPtr, char *str)
{
	Handle  nuHndl;
	nuHndl = NewHandle ((long)(strlen(str)+1));
	if (nuHndl == nil) return;
	strcpy((char *)*nuHndl,str);
	paramPtr->returnValue = nuHndl;
}