home *** CD-ROM | disk | FTP | other *** search
- @x
- extern char *tfmpath ;
- @y
- extern char *tfmpath ;
- extern struct EnvVarPath *tfm_var;
- @z
-
- @x
- void
- tfmopen(fd)
- register fontdesctype *fd ;
- {
- register char *d, *n ;
-
- d = fd->area ;
- n = fd->name ;
- if (*d==0)
- d = tfmpath ;
- #ifdef MVSXA /* IBM: MVS/XA */
- (void)sprintf(name, "tfm(%s)", n) ;
- #else
- (void)sprintf(name, "%s.tfm", n) ;
- #endif
- if ((tfmfile=search(d, name, READBIN))==NULL) {
- (void)sprintf(errbuf, "Can't open font metric file %s%s",
- fd->area, name) ;
- error(errbuf) ;
- error("I will use cmr10.tfm instead, so expect bad output.") ;
- #ifdef MVSXA /* IBM: MVS/XA */
- if ((tfmfile=search(d, "tfm(cmr10)", READBIN))==NULL)
- #else
- if ((tfmfile=search(d, "cmr10.tfm", READBIN))==NULL)
- #endif
- error(
- "! I can't find cmr10.tfm; please reinstall me with proper paths") ;
- }
- }
- @y
- void
- tfmopen(fd)
- register fontdesctype *fd ;
- {
- register char *d, *n ;
- struct EnvVarPath *dummy_var = NULL;
-
- d = fd->area ;
- n = fd->name ;
-
- if (*d==0)
- dummy_var = tfm_var;
- else
- {
- dummy_var = Alloc_EnvVarPath("", 256L);
- Init_EnvVarPath(dummy_var, d, ENVPATH_DEFSTR);
- }
-
- (void)sprintf(name, "%s.tfm", n) ;
-
- if ((tfmfile=search(dummy_var, name, READBIN))==NULL) {
- (void)sprintf(errbuf, "Can't open font metric file %s%s",
- fd->area, name) ;
- error(errbuf) ;
- error("I will use cmr10.tfm instead, so expect bad output.") ;
- if ((tfmfile=search(dummy_var, "cmr10.tfm", READBIN))==NULL) {
- if (dummy_var != tfm_var)
- Free_EnvVarPath(dummy_var);
- error("! I can't find cmr10.tfm; please reinstall me with proper paths") ;
- }
- }
-
- if (dummy_var != tfm_var)
- Free_EnvVarPath(dummy_var);
- }
- @z
-
- @x
- #ifdef AMIGA
- return(shalfword) (getc(tfmfile)) ;
- #else
- return(getc(tfmfile)) ;
- #endif
- @y
- return(shalfword) (getc(tfmfile)) ;
- @z
-
- @x
- #ifdef AMIGA
- return (halfword)( a * 256 + tfmbyte () ) ;
- #else
- return ( a * 256 + tfmbyte () ) ;
- #endif
- @y
- return (halfword)( a * 256 + tfmbyte () ) ;
- @z
-