Simtel MSDOS - Coast to Coast/simteldosarchivecoasttocoast.iso/dv_x/dvix.zip/FINDFILE.C

C/C++ Source or Header | 1988-10-18 | 5KB | 193 lines

/* findfile.c
 * Copyright 1985 Massachusetts Institute of Technology
 */

#include <stdio.h>
#include <sys/types.h>
#include <sys/dir.h>
#include "findfile.h"

int
findfileindir(area, name, mag, s, nname, nmag)
     char *area,*name,*s,*nname;
     int mag,*nmag;
{
  FILE *f;
  char buf[BUFSIZ];
  int found = 0;

  sprintf(s,"%s/SUBDIR",area);
#ifdef USEPXL
if (!access(s,0)) sprintf(s,"%s/%s/%s.%dpxl",area,name,name,mag);
else sprintf(s,"%s/%s.%dpxl",area,name,mag);
#else
  if (!access(s,0)) sprintf(s,"%s/%s/%s.%dgf",area,name,name,mag);
  else sprintf(s,"%s/%s.%dgf",area,name,mag);
#endif
  if (!access(s,4)) {
    strcpy(nname,name);
    *nmag = mag;
    return(-1);
  } else {
    sprintf(buf,"%s/NEEDED",area);
    if (!access(buf,2)) {
#ifdef USEPXL
      sprintf(s,"%s.%dpxl\n",name,mag);
#else
      sprintf(s,"%s.%dgf\n",name,mag);
#endif
      f = fopen(buf,"r+");
      while (fgets(buf,sizeof(buf),f)) if (!strcmp(buf,s)) found++;
      if (!found) fputs(s,f);
      fclose(f);
    }
    return(0);
  }
}


/* true if it found a file, false otherwise; name is in s */
int findfile(dirvec,dirveclen,area, name, mag, s, nname, nmag)
     char *dirvec[],*area,*name,*s,*nname;
     int dirveclen,mag,*nmag;
{
  int i,point;
  char family[128];

  strcpy(nname,name);
  *nmag = mag;
  point = -1;
  (void) sscanf(name,"%[^0123456789.]%d",family,&point);

  /* First check dir area given in DVI file */
  if (*area && findfileindir(area, name, mag, s, nname, nmag)) return(-1);

  /* Then check along dirvec */
  for (i = 0; i < dirveclen; i++)
    if (findfileindir(dirvec[i], name, mag, s, nname, nmag)) return(-1);

  /* next check for closest magnification along dirvec */
  return(findanyfile(dirvec,dirveclen,family,point,mag,name,s,nname,nmag));
}

int strdiff(s1,s2)
     char *s1,*s2;
{
  register int diff = 0;

  while (*s1 && *s2) diff += abs(*s1++ - *s2++);
  while (*s1) diff += *s1++;
  while (*s2) diff += *s2++;
  return(diff);
}

scanpdir(dir,name,
     family,point,mag,
     bestfamily,bestname,bestpoint,bestmag,
     min_df,min_dp,min_dm)
     char *dir,*name,*family,*bestfamily,*bestname;
     int point,mag,*bestpoint,*bestmag,*min_df,*min_dp,*min_dm;
{
  DIR *dirstream;
  struct direct *dirrecord;
  char qfamily[128];
  int qpoint,qmag,df,dp,dm;

  if (dirstream = opendir(dir)) {
    while (dirrecord = readdir(dirstream)) {
#ifdef USEPXL
      if (!strcmp(dirrecord->d_name+dirrecord->d_namlen-3,"pxl")) {
#else
      if (!strcmp(dirrecord->d_name+dirrecord->d_namlen-2,"gf")) {
#endif
    qpoint = -1; qmag = -1;
    (void) sscanf(dirrecord->d_name,"%[^0123456789.]%d.%d",
              qfamily,&qpoint,&qmag);
    df = strdiff(family,qfamily);
    dp = abs(point - qpoint);
    dm = abs(mag - qmag);
    if ((df < *min_df)
        || (df == *min_df && dp < *min_dp)
          || (df == *min_df && dp == *min_dp && dm < *min_dm)) {
        sprintf(bestname,"%s/%s",dir,dirrecord->d_name);
        strcpy(bestfamily,qfamily);
        *bestpoint = qpoint;
        *bestmag = qmag;
        *min_df = df;
        *min_dp = dp;
        *min_dm = dm;
      }
      }
    }
    closedir(dirstream);
  }
}

scandir(dir,name,
    family,point,mag,
    bestfamily,bestname,bestpoint,bestmag,
    min_df,min_dp,min_dm)
     char *dir,*name,*family,*bestfamily,*bestname;
     int point,mag,*bestpoint,*bestmag,*min_df,*min_dp,*min_dm;
{
  DIR *dirstream;
  struct direct *dirrecord;
  int df;
  char pdir[MAXNAMLEN];

  if (dirstream = opendir(dir)) {
    while (dirrecord = readdir(dirstream)) {
      if (dirrecord->d_name[0] != '.') {
    df = strdiff(name,dirrecord->d_name);
    if (df <= *min_df) {
      sprintf(pdir,"%s/%s",dir,dirrecord->d_name);
      scanpdir(pdir,name,
           family,point,mag,
           bestfamily,bestname,bestpoint,bestmag,
           min_df,min_dp,min_dm);
    }
      }
    }
    closedir(dirstream);
  }
}


/* finds the best match to the desired font */
int findanyfile(dirvec,dirveclen,family,point,mag,name,s,nname,nmag)
     char *dirvec[],*family,*name,*s,*nname;
     int dirveclen,point,mag,*nmag;
{
  char foo[MAXNAMLEN],bestname[MAXNAMLEN],bestfamily[128];
  int min_df,min_dp,min_dm,df,dp,dm,i,bestpoint,bestmag;

  bestname[0] = '\0';
  min_df = min_dp = min_dm = 9999999;
  for (i = 0; i < dirveclen; i++) {
    sprintf(foo,"%s/SUBDIR",dirvec[i]);
    if (!access(foo,0)) scandir(dirvec[i],name,
                family,point,mag,
                bestfamily,bestname,&bestpoint,&bestmag,
                &min_df,&min_dp,&min_dm);
    else scanpdir(dirvec[i],name,
          family,point,mag,
          bestfamily,bestname,&bestpoint,&bestmag,
          &min_df,&min_dp,&min_dm);
  }
  if (bestname[0]) {
    if (bestpoint > 0) sprintf(nname,"%s%d",bestfamily,bestpoint);
    else strcpy(nname,bestfamily);
    *nmag = bestmag;
    strcpy(s,bestname);
    if ((strcmp(bestfamily,family)
     || bestpoint != point || abs(bestmag - mag) > 2))
      fprintf(stderr,
          "Substituted font %s at mag %d for %s at mag %d.\n",
          nname,(bestmag * 4 + 3) / 6,
          name,(mag * 4 + 3) / 6);
    return(-1);
  }
  return(0);
}