From 4188f38ad56d7ba2ea46e94403f305243514f80c Mon Sep 17 00:00:00 2001
From: tcit <tcit@tcit.fr>
Date: Thu, 24 Jul 2014 15:49:36 +0200
Subject: add pdf and mobi libraries

---
 .../libraries/mpdf/utils/font_collections.php      | 72 ++++++++++++++++++++++
 1 file changed, 72 insertions(+)
 create mode 100644 inc/3rdparty/libraries/mpdf/utils/font_collections.php

(limited to 'inc/3rdparty/libraries/mpdf/utils/font_collections.php')

diff --git a/inc/3rdparty/libraries/mpdf/utils/font_collections.php b/inc/3rdparty/libraries/mpdf/utils/font_collections.php
new file mode 100644
index 00000000..20f387ef
--- /dev/null
+++ b/inc/3rdparty/libraries/mpdf/utils/font_collections.php
@@ -0,0 +1,72 @@
+<?php
+
+/* This script prints out details of any TrueType collection font files
+   in your font directory. Files ending wih .otc are examined.
+   Point your browser to 
+   http://your.domain/your_path_to _mpdf/utils/font_collections.php
+   By default this will examine the folder /ttfonts/ (or the default font
+   directory defined by _MPDF_TTFONTPATH.
+   You can optionally define an alternative folder to examine by setting 
+   the variable below (must be a relative path, or filesystem path):
+*/
+
+
+$checkdir = '';
+
+
+//////////////////////////////////
+//////////////////////////////////
+//////////////////////////////////
+
+ini_set("memory_limit","256M");
+
+
+define('_MPDF_PATH','../');
+
+include("../mpdf.php");
+$mpdf=new mPDF('');
+if ($checkdir) { 
+	$ttfdir = $checkdir;
+}
+else { $ttfdir = _MPDF_TTFONTPATH; }
+
+
+
+$mqr=ini_get("magic_quotes_runtime");
+if ($mqr) { set_magic_quotes_runtime(0); }
+if (!class_exists('TTFontFile_Analysis', false)) { include(_MPDF_PATH .'classes/ttfontsuni_analysis.php'); }
+$ttf = new TTFontFile_Analysis();
+
+$ff = scandir($ttfdir);
+
+echo '<h3>Font collection files found in '.$ttfdir.' directory</h3>';
+foreach($ff AS $f) {
+	$ret = array();
+	if (strtolower(substr($f,-4,4))=='.ttc' || strtolower(substr($f,-4,4))=='.ttcf') {	// Mac ttcf
+		$ttf->getTTCFonts($ttfdir.$f);
+		$nf = $ttf->numTTCFonts;
+		echo '<p>Font collection file ('.$f.') contains the following fonts:</p>';
+		for ($i=1; $i<=$nf; $i++) {
+			$ret = $ttf->extractCoreInfo($ttfdir.$f, $i);
+			$tfname = $ret[0];
+			$bold = $ret[1];
+			$italic = $ret[2];
+			$fname = strtolower($tfname );
+			$fname = preg_replace('/[ ()]/','',$fname );
+			$style = '';
+			if ($bold) { $style .= 'Bold'; }
+			if ($italic) { $style .= 'Italic'; }
+			if (!$style) { $style = 'Regular'; }
+
+
+			echo '<div>['.$i.'] '.$tfname.' ('.$fname.') '.$style.'</div>';
+
+		}
+		echo '<hr />';
+	}
+}
+
+
+exit;
+
+?>
\ No newline at end of file
-- 
cgit v1.2.3