/*************************************************************************
**
** Convert.c
** Copyright (c) 1995,1996 Daniel Kahlin <tlr@stacken.kth.se>
**
** NOT MACHINE DEPENDENT
**
******/

#include <dos.h>
#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <error.h>
#include <string.h>

#include "Main_rev.h"

#include "Convert.h"


/*************************************************************************
**
** str2petscii
**
******/
void str2petscii(char *src, char *dest,int maxlen)
{
	char tkn;

	while(TRUE) {
		tkn=*src++;

		switch (tkn) {

			case '_':
				tkn=' ';
				break;

			case '\\':
				tkn='/';
				break;

			case '[':
				tkn='(';
				break;

			case ']':
				tkn=')';
				break;

			default:
				tkn=toupper(tkn);
				break;
		}

		*dest++=tkn;
		maxlen--;
		if (maxlen==0) break;
		if (tkn==0) break;
	}
}

/*************************************************************************
**
** petscii2str
**
******/
void petscii2str(char *src, char *dest,int maxlen)
{
	char tkn;

	while(TRUE) {
		tkn=*src++;

		switch (tkn) {

			case '/':
				tkn='\\';
				break;

			case '(':
				tkn='[';
				break;

			case ')':
				tkn=']';
				break;

			default:
				tkn=toupper(tkn);
				break;
		}

		*dest++=tkn;
		maxlen--;
		if (maxlen==0) break;
		if (tkn==0) break;
	}
}

/*************************************************************************
**
** makenum
**
******/
LONG makenum(char *str)
{
	LONG num;
	stch_l(str,&num);
	return(num);
}