/*
- afm2.cc -- implement Adobe_font_metric
+ afm.cc -- implement Adobe_font_metric
source file of the Flower Library
- (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 2000--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "afm.hh"
#include "warn.hh"
+#include "molecule.hh"
Adobe_font_metric::Adobe_font_metric (AFM_Font_info * fi)
{
+ checksum_ = 0;
font_inf_ = fi;
for (int i= 256; i--;)
{
AFM_CharMetricInfo * c = fi->cmi + i;
- ascii_to_metric_idx_[c->code] = i;
+ /*
+ Some TeX afm files contain code = -1. We don't know why, let's
+ ignore it.
+
+ */
+ if (c->code >= 0)
+ ascii_to_metric_idx_[c->code] = i;
name_to_metric_dict_[c->name] = i;
}
}
-
+
+
+SCM
+Adobe_font_metric::make_afm (AFM_Font_info *fi, unsigned int checksum)
+{
+ Adobe_font_metric * fm = new Adobe_font_metric (fi);
+ fm->checksum_ = checksum;
+ return fm->self_scm ();
+}
+
AFM_CharMetricInfo const *
Adobe_font_metric::find_ascii_metric (int a , bool warn) const
return font_inf_->cmi + code;
}
}
- else if (warn )
+ else if (warn)
{
- warning (_f ("Can't find character number: %d", a));
+ warning (_f ("can't find character number: %d", a));
}
return 0;
AFM_CharMetricInfo const *
Adobe_font_metric::find_char_metric (String nm, bool warn) const
{
- if (!name_to_metric_dict_.elem_b (nm))
+ std::map<String,int>::const_iterator ai = name_to_metric_dict_.find (nm);
+
+ if (ai == name_to_metric_dict_.end ())
{
if (warn)
{
- warning (_f ("Can't find character called: `%s'", nm.ch_C()));
+ warning (_f ("can't find character called: `%s'", nm.ch_C ()));
}
return 0;
}
else
- return font_inf_->cmi + name_to_metric_dict_ [nm];
+ return font_inf_->cmi + (*ai).second;
}
+int
+Adobe_font_metric::count () const
+{
+ return ascii_to_metric_idx_.size ();
+}
Box
-Adobe_font_metric::get_char (int code, bool warn) const
+Adobe_font_metric::get_char (int code) const
{
AFM_CharMetricInfo const
- * c = find_ascii_metric (code,warn);
+ * c = find_ascii_metric (code,false);
+ Box b (Interval (0,0),Interval (0,0));
if (c)
- return afm_bbox_to_box (c->charBBox);
- else
- return Box (Interval (0,0),Interval(0,0));
+ b = afm_bbox_to_box (c->charBBox);
+
+ return b;
}
-Adobe_font_metric*
+SCM
read_afm_file (String nm)
{
- FILE *f = fopen (nm.ch_C() , "r");
+ FILE *f = fopen (nm.ch_C () , "r");
+ char s[2048];
+ char *check_key = "TfmCheckSum";
+ fgets (s, sizeof (s), f);
+ unsigned int cs = 0;
+ if (strncmp (s, check_key, strlen (check_key)) == 0)
+ {
+ sscanf (s + strlen (check_key), "%ud", &cs);
+ }
+ else
+ {
+ rewind (f);
+ }
+
+
AFM_Font_info * fi;
int ok = AFM_parseFile (f, &fi, ~1);
if (ok)
{
- error (_("Error parsing AFM file"));
+ error (_f ("Error parsing AFM file: `%s'", nm.ch_C ()));
exit (2);
}
fclose (f);
- return new Adobe_font_metric (fi);
+ return Adobe_font_metric::make_afm (fi, cs);
}
{
AFM_free (font_inf_);
}
+
+/*
+ return a molecule, without fontification
+ */
+Molecule
+Adobe_font_metric::find_by_name (String s) const
+{
+ AFM_CharMetricInfo const *cm = find_char_metric (s, false);
+
+ if (!cm)
+ {
+ Molecule m;
+ m.set_empty (false);
+ return m;
+ }
+
+ SCM at = (scm_list_n (ly_symbol2scm ("char"),
+ gh_int2scm (cm->code),
+ SCM_UNDEFINED));
+
+ // at= fontify_atom ((Font_metric*)this, at);
+ Box b = afm_bbox_to_box (cm->charBBox);
+
+ return Molecule (b, at);
+}