=============================app2asc===============================

#include <Types.h>
#include <Memory.h>
#include <HyperXCmd.h>

/* This program converts Apple Macintosh strings to ASCII format */

pascal void app2asc(paramPtr)
	XCmdBlockPtr	paramPtr;
{
	unsigned char	c;
	Ptr				str;
	Handle			inHandle,outHandle;

	inHandle=paramPtr->params[0];
	outHandle=NewHandle(strlen(*inHandle)+1);
	
	/* copy the contents of inHandle to outHandle with conversion */
	for (str=*outHandle; (c=**inHandle)!=NULL; *(str++)=c, (*inHandle)++ )
		switch (c) {
			case '\237': c='~'; break;
			case '\206': c='^'; break;
			case '\214': c='}'; break;
			case '\201': c=']'; break;
			case '\212': c='{'; break;
			case '\200': c='['; break;
			case '\232': c='|'; break;
			case '\205': c='\\'; break;
			default: ;
		};
		
	*str=NULL;
	
	paramPtr->returnValue=outHandle;
}
	
/* C routines for HyperCard callbacks in the middle of execution */
#include <XCmdGlue.inc.c>

==============================asc2app==============================

#include <Types.h>
#include <Memory.h>
#include <HyperXCmd.h>

/* This program converts ASCII strings to Apple Macintosh format */

pascal void asc2app(paramPtr)
	XCmdBlockPtr	paramPtr;
{
	unsigned char	c;
	Ptr				str;
	Handle			inHandle,outHandle;

	inHandle=paramPtr->params[0];
	outHandle=NewHandle(strlen(*inHandle)+1);
	
	/* copy the contents of inHandle to outHandle with conversion */
	for (str=*outHandle; (c=**inHandle)!=NULL; *(str++)=c, (*inHandle)++ )
		switch (c) {
			case '~': c='\237'; break;
			case '^': c='\206'; break;
			case '}': c='\214'; break;
			case ']': c='\201'; break;
			case '{': c='\212'; break;
			case '[': c='\200'; break;
			case '|': c='\232'; break;
			case '\\': c='\205'; break;
			default: ;
		};
		
	*str=NULL;
	
	paramPtr->returnValue=outHandle;
}
	
/* C routines for HyperCard callbacks in the middle of execution */
#include <XCmdGlue.inc.c>

=======================sample make files===========================

app2asc.c.o D app2asc.make app2asc.c
	C -q2 app2asc.c
	
app2asc DD app2asc.make app2asc.c.o
	link -sn Main=app2asc -sn STDIO=app2asc -sn INTENV=app2asc 6
		-m APP2ASC app2asc.c.o 6
		"{CLibraries}"StdCLib.o 6
		"{CLibraries}"CInterface.o 6
		-rt XFCN=6 -o HyperCommands 


asc2app.c.o D asc2app.make asc2app.c
	C -q2 asc2app.c
	
asc2app DD asc2app.make asc2app.c.o
	link -sn Main=asc2app -sn STDIO=asc2app -sn INTENV=asc2app 6
		-m ASC2APP asc2app.c.o 6
		"{CLibraries}"StdCLib.o 6
		"{CLibraries}"CInterface.o 6
		-rt XFCN=5 -o HyperCommands 





--
:::: Arto Kojo :::::::::::::::::::::: Helsinki University of Technology ::::
::   TKK/TKO-lab/Y227                 ako@hutcs.hut.fi                    ::
::   02150 ESPOO FINLAND              s29808u@puukko.hut.fi               ::
:::: tel: +358-0-4513236 :::::::::::: akojo@otax.tky.hut.fi ::::::::::::::::