void
DoAutoSaves (void)
{
_DoAutoSaves (FontViewFirst ());
}
/* by LoadSplineFont (which does) and by RevertFile (which knows what it's doing) */
SplineFont *_ReadSplineFont(FILE *file,char *filename,enum openflags openflags) {
SplineFont *sf;
char ubuf[250], *temp;
int fromsfd = false;
int i;
char *pt, *strippedname, *oldstrippedname, *tmpfile=NULL, *paren=NULL, *fullname=filename, *rparen;
int len;
int checked;
int compression=0;
int wasurl = false, nowlocal = true;
if ( filename==NULL )
return( NULL );
strippedname = filename;
pt = strrchr(filename,'/');
if ( pt==NULL ) pt = filename;
/* Someone gave me a font "Nafees Nastaleeq(Updated).ttf" and complained */
/* that ff wouldn't open it */
/* Now someone will complain about "Nafees(Updated).ttc(fo(ob)ar)" */
if ( (paren = strrchr(pt,'('))!=NULL &&
(rparen = strrchr(paren,')'))!=NULL &&
rparen[1]=='\0' ) {
strippedname = copy(filename);
strippedname[paren-filename] = '\0';
}
pt = strrchr(strippedname,'.');
i = -1;
if ( pt!=NULL ) for ( i=0; compressors[i].ext!=NULL; ++i )
if ( strcmp(compressors[i].ext,pt)==0 )
break;
oldstrippedname = strippedname;
if ( i==-1 || compressors[i].ext==NULL )
i=-1;
else {
if ( file!=NULL ) {
char *spuriousname = ForceFileToHaveName(file,compressors[i].ext);
tmpfile = Decompress(spuriousname,i);
fclose(file); file = NULL;
unlink(spuriousname); free(spuriousname);
} else
tmpfile = Decompress(strippedname,i);
if ( tmpfile!=NULL ) {
strippedname = tmpfile;
} else {
ff_post_error(_("Decompress Failed!"),_("Decompress Failed!"));
return( NULL );
}
compression = i+1;
if ( strippedname!=filename && paren!=NULL ) {
fullname = galloc(strlen(strippedname)+strlen(paren)+1);
strcpy(fullname,strippedname);
strcat(fullname,paren);
} else
fullname = strippedname;
}
/* If there are no pfaedit windows, give them something to look at */
/* immediately. Otherwise delay a bit */
strcpy(ubuf,_("Loading font from "));
len = strlen(ubuf);
if ( !wasurl || i==-1 ) /* If it wasn't compressed, or it wasn't an url, then the fullname is reasonable, else use the original name */
strncat(ubuf,temp = copy(GFileNameTail(fullname)),100);
else
strncat(ubuf,temp = copy(GFileNameTail(filename)),100);
free(temp);
ubuf[100+len] = '\0';
ff_progress_start_indicator(FontViewFirst()==NULL?0:10,_("Loading..."),ubuf,_("Reading Glyphs"),0,1);
ff_progress_enable_stop(0);
if ( file==NULL ) {
file = fopen(strippedname,"rb");
nowlocal = true;
}
sf = NULL;
checked = false;
/* checked == false => not checked */
/* checked == 'u' => UFO */
/* checked == 't' => TTF/OTF */
/* checked == 'p' => pfb/general postscript */
/* checked == 'P' => pdf */
/* checked == 'c' => cff */
/* checked == 'S' => svg */
/* checked == 'f' => sfd */
/* checked == 'F' => sfdir */
/* checked == 'b' => bdf */
/* checked == 'i' => ikarus */
if ( file!=NULL ) {
/* Try to guess the file type from the first few characters... */
int ch1 = getc(file);
int ch2 = getc(file);
int ch3 = getc(file);
int ch4 = getc(file);
int ch9, ch10;
fseek(file, 98, SEEK_SET);
ch9 = getc(file);
ch10 = getc(file);
rewind(file);
if (( ch1==0 && ch2==1 && ch3==0 && ch4==0 ) ||
(ch1=='O' && ch2=='T' && ch3=='T' && ch4=='O') ||
(ch1=='t' && ch2=='r' && ch3=='u' && ch4=='e') ||
(ch1=='t' && ch2=='t' && ch3=='c' && ch4=='f') ) {
sf = _SFReadTTF(file,0,openflags,fullname,NULL);
checked = 't';
} else if (( ch1=='%' && ch2=='!' ) ||
( ch1==0x80 && ch2=='\01' ) ) { /* PFB header */
sf = _SFReadPostscript(file,fullname);
checked = 'p';
} else if ( ch1==1 && ch2==0 && ch3==4 ) {
int len;
fseek(file,0,SEEK_END);
len = ftell(file);
fseek(file,0,SEEK_SET);
sf = _CFFParse(file,len,NULL);
checked = 'c';
} /* Too hard to figure out a valid mark for a mac resource file */
if ( file!=NULL ) fclose(file);
}
if ( sf!=NULL )
/* good */;
else if (( strmatch(fullname+strlen(fullname)-4, ".ttf")==0 ||
strmatch(fullname+strlen(strippedname)-4, ".ttc")==0 ||
strmatch(fullname+strlen(fullname)-4, ".gai")==0 ||
strmatch(fullname+strlen(fullname)-4, ".otf")==0 ||
strmatch(fullname+strlen(fullname)-4, ".otb")==0 ) && checked!='t') {
sf = SFReadTTF(fullname,0,openflags);
} else if ( strmatch(fullname+strlen(strippedname)-4, ".bin")==0 ||
strmatch(fullname+strlen(strippedname)-4, ".hqx")==0 ||
strmatch(fullname+strlen(strippedname)-6, ".dfont")==0 ) {
sf = SFReadMacBinary(fullname,0,openflags);
} else if ( (strmatch(fullname+strlen(fullname)-4, ".pfa")==0 ||
strmatch(fullname+strlen(fullname)-4, ".pfb")==0 ||
strmatch(fullname+strlen(fullname)-4, ".pf3")==0 ||
strmatch(fullname+strlen(fullname)-4, ".cid")==0 ||
strmatch(fullname+strlen(fullname)-4, ".gsf")==0 ||
strmatch(fullname+strlen(fullname)-4, ".pt3")==0 ||
strmatch(fullname+strlen(fullname)-3, ".ps")==0 ) && checked!='p' ) {
sf = SFReadPostscript(fullname);
} else if ( strmatch(fullname+strlen(fullname)-4, ".cff")==0 && checked!='c' ) {
sf = CFFParse(fullname);
} else {
sf = SFReadMacBinary(fullname,0,openflags);
}
ff_progress_end_indicator();
if ( sf!=NULL ) {
SplineFont *norm = sf->mm!=NULL ? sf->mm->normal : sf;
if ( compression!=0 ) {
free(sf->filename);
*strrchr(oldstrippedname,'.') = '\0';
sf->filename = copy( oldstrippedname );
}
if ( fromsfd )
sf->compression = compression;
free( norm->origname );
if ( sf->chosenname!=NULL && strippedname==filename ) {
norm->origname = galloc(strlen(filename)+strlen(sf->chosenname)+8);
strcpy(norm->origname,filename);
strcat(norm->origname,"(");
strcat(norm->origname,sf->chosenname);
strcat(norm->origname,")");
} else
norm->origname = copy(filename);
free( norm->chosenname ); norm->chosenname = NULL;
if ( sf->mm!=NULL ) {
int j;
for ( j=0; j<sf->mm->instance_count; ++j ) {
free(sf->mm->instances[j]->origname);
sf->mm->instances[j]->origname = copy(norm->origname);
}
}
} else if ( !GFileExists(filename) )
ff_post_error(_("Couldn't open font"),_("The requested file, %.100s, does not exist"),GFileNameTail(filename));
else if ( !GFileReadable(filename) )
ff_post_error(_("Couldn't open font"),_("You do not have permission to read %.100s"),GFileNameTail(filename));
else
ff_post_error(_("Couldn't open font"),_("%.100s is not in a known format (or is so badly corrupted as to be unreadable)"),GFileNameTail(filename));
if ( oldstrippedname!=filename )
free(oldstrippedname);
if ( fullname!=filename && fullname!=strippedname )
free(fullname);
if ( tmpfile!=NULL ) {
unlink(tmpfile);
free(tmpfile);
}
if ( (openflags&of_fstypepermitted) && sf!=NULL && (sf->pfminfo.fstype&0xff)==0x0002 ) {
/* Ok, they have told us from a script they have access to the font */
} else if ( !fromsfd && sf!=NULL && (sf->pfminfo.fstype&0xff)==0x0002 ) {
char *buts[3];
buts[0] = _("_Yes"); buts[1] = _("_No"); buts[2] = NULL;
if ( ff_ask(_("Restricted Font"),(const char **) buts,1,1,_("This font is marked with an FSType of 2 (Restricted\nLicense). That means it is not editable without the\npermission of the legal owner.\n\nDo you have such permission?"))==1 ) {
SplineFontFree(sf);
return( NULL );
}
}
return( sf );
}