include	<ctype.h>

# MKPATHNAME -- Make a pathname from a directory name and a file name

procedure mkpathname (dir, fname, path, maxch)

char	dir[ARB]	# i: Directory name
char	fname[ARB]	# i: File name
char	path[ARB]	# o: Path name
int	maxch		# i: Declared length of path name
#--
int	ic

int	gstrcpy()

begin
	ic = gstrcpy (dir, path, maxch)
	if (path[ic] == '$' || path[ic] == '/') {
	    call strcat (fname, path, maxch)
	} else if (IS_ALNUM(path[ic]) || path[ic] == '.') {
	    call strcat ("/", path, maxch)
	    call strcat (fname, path, maxch)
	} else {
	    call strcat (fname, path, maxch)
	}
end