/* Meeting_Pearls_IV:Pearls/texmf/fonts/pk/ljfour/ */

#include "config.h"
const char *VERsion="$VER: "PACKAGE" "VERSION" "__AMIGADATE__" $";

#ifndef KPATHSEA

/* PasTeX */
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include "kpathsea.h"

#ifdef _DEBUG
#define DEBUG(str,arg) fprintf(stderr,"*** "str"\n",arg)
#else
#define DEBUG(str,arg)
#endif

char *kpse_find_glyph(const char *texname, double size, int format, kpse_glyph_file_type *info)	/* File 'pkfont.o' */
{
char *pathname;
static char filename[FILENAME_MAX];

DEBUG("kpse_find_glyph",0);
pathname=getenv("PKDIR");
if (pathname==NULL)
	if (pathname=malloc(FILENAME_MAX))
		sprintf(pathname, "TeX:pk/%d", (long) size);
sprintf(filename, "%s/%s.%dpk", pathname, texname, (long) size);
return filename;
}

char *basename(char *filename)		/* File 'dvipdfm.o' */
{
DEBUG("basename",0);
return filename;
}

char *kpse_find_file(const char *tfmname, int format, int flag)	/* File 'dvipdfm.o' */
{
static char filename[FILENAME_MAX];

switch(format) {
case kpse_program_text_format:
case kpse_pk_format:
case kpse_vf_format:
case kpse_tex_ps_header_format:
	DEBUG("kpse_find_file",0);
	strcpy(filename,tfmname);
	if(access(filename,F_OK))
		strcat(filename,".enc");
	return filename;
case kpse_tfm_format:
	DEBUG("kpse_find_tfm",0);
	strcpy(filename,"TeX:fonts/");
	strcat(filename,tfmname);
	strcat(filename,".tfm");
	return filename;
case kpse_pict_format:
	DEBUG("kpse_find_pict",0);
	strcpy(filename,tfmname);
	if(access(filename,F_OK))
		*filename=NULL;
	return filename;
case kpse_type1_format:
default:
	DEBUG("kpse_find_%d",format);
	return NULL;
}
}

void kpse_set_program_name(char *arg, int ptr)	/* File 'ebb.o' */
{
}

#endif