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

---
 inc/3rdparty/libraries/mpdf/classes/directw.php | 408 ++++++++++++++++++++++++
 1 file changed, 408 insertions(+)
 create mode 100644 inc/3rdparty/libraries/mpdf/classes/directw.php

(limited to 'inc/3rdparty/libraries/mpdf/classes/directw.php')

diff --git a/inc/3rdparty/libraries/mpdf/classes/directw.php b/inc/3rdparty/libraries/mpdf/classes/directw.php
new file mode 100644
index 00000000..dc317d26
--- /dev/null
+++ b/inc/3rdparty/libraries/mpdf/classes/directw.php
@@ -0,0 +1,408 @@
+<?php
+
+class directw {
+
+var $mpdf = null;
+
+function directw(&$mpdf) {
+	$this->mpdf = $mpdf;
+}
+
+
+function Write($h,$txt,$currentx=0,$link='',$directionality='ltr',$align='') {
+	if (!$align) { 
+		if ($directionality=='rtl') { $align = 'R'; }
+		else { $align = 'L'; }
+	}
+	if ($h == 0) { $this->mpdf->SetLineHeight(); $h = $this->mpdf->lineheight; }
+	//Output text in flowing mode
+	$w = $this->mpdf->w - $this->mpdf->rMargin - $this->mpdf->x; 
+
+	$wmax = ($w - ($this->mpdf->cMarginL+$this->mpdf->cMarginR));
+	$s=str_replace("\r",'',$txt);
+	if ($this->mpdf->usingCoreFont)  { $nb=strlen($s); }
+	else {
+		$nb=mb_strlen($s, $this->mpdf->mb_enc );
+		// handle single space character
+		if(($nb==1) && $s == " ") {
+			$this->mpdf->x += $this->mpdf->GetStringWidth($s);
+			return;
+		}
+	}
+	$sep=-1;
+	$i=0;
+	$j=0;
+	$l=0;
+	$nl=1;
+	if (!$this->mpdf->usingCoreFont) {
+		if (preg_match("/([".$this->mpdf->pregRTLchars."])/u", $txt)) { $this->mpdf->biDirectional = true; }	// *RTL*
+		$checkCursive=false;
+		if ($this->mpdf->biDirectional) {  $checkCursive=true; }	// *RTL*
+		else if (isset($this->mpdf->CurrentFont['indic']) && $this->mpdf->CurrentFont['indic']) {  $checkCursive=true; }	// *INDIC*
+		while($i<$nb) {
+			//Get next character
+			$c = mb_substr($s,$i,1,$this->mpdf->mb_enc );
+			if($c == "\n") {
+				// WORD SPACING
+				$this->mpdf->ResetSpacing();
+				//Explicit line break
+				$tmp = rtrim(mb_substr($s,$j,$i-$j,$this->mpdf->mb_enc));
+				if ($directionality == 'rtl' && $align == 'J') { $align = 'R'; }	// *RTL*
+				$this->mpdf->magic_reverse_dir($tmp, true, $directionality);	// *RTL*
+				$this->mpdf->Cell($w, $h, $tmp, 0, 2, $align, $fill, $link);
+				$i++;
+				$sep = -1;
+				$j = $i;
+				$l = 0;
+				if($nl == 1) {
+					if ($currentx != 0) $this->mpdf->x=$currentx;
+					else $this->mpdf->x=$this->mpdf->lMargin;
+					$w = $this->mpdf->w - $this->mpdf->rMargin - $this->mpdf->x;
+					$wmax = ($w - ($this->mpdf->cMarginL+$this->mpdf->cMarginR));
+				}
+				$nl++;
+				continue;
+			}
+			if($c == " ") { $sep= $i; }
+			$l += $this->mpdf->GetCharWidthNonCore($c);	// mPDF 5.3.04
+			if($l > $wmax) {
+				//Automatic line break (word wrapping)
+				if($sep == -1) {
+					// WORD SPACING
+					$this->mpdf->ResetSpacing();
+					if($this->mpdf->x > $this->mpdf->lMargin) {
+						//Move to next line
+						if ($currentx != 0) $this->mpdf->x=$currentx;
+						else $this->mpdf->x=$this->mpdf->lMargin;
+						$this->mpdf->y+=$h;
+						$w=$this->mpdf->w-$this->mpdf->rMargin-$this->mpdf->x;
+						$wmax = ($w - ($this->mpdf->cMarginL+$this->mpdf->cMarginR));
+						$i++;
+						$nl++;
+						continue;
+					}
+					if($i==$j) { $i++; }
+					$tmp = rtrim(mb_substr($s,$j,$i-$j,$this->mpdf->mb_enc));
+					if ($directionality == 'rtl' && $align == 'J') { $align = 'R'; }	// *RTL*
+					$this->mpdf->magic_reverse_dir($tmp, true, $directionality);	// *RTL*
+					$this->mpdf->Cell($w, $h, $tmp, 0, 2, $align, $fill, $link);
+				}
+				else {
+					$tmp = rtrim(mb_substr($s,$j,$sep-$j,$this->mpdf->mb_enc));
+					if ($directionality == 'rtl' && $align == 'J') { $align = 'R'; }	// *RTL*
+					$this->mpdf->magic_reverse_dir($tmp, true, $directionality);	// *RTL*
+
+					if($align=='J') {
+						//////////////////////////////////////////
+						// JUSTIFY J using Unicode fonts (Word spacing doesn't work)
+						// WORD SPACING
+						// Change NON_BREAKING SPACE to spaces so they are 'spaced' properly
+					      $tmp = str_replace(chr(194).chr(160),chr(32),$tmp ); 
+						$len_ligne = $this->mpdf->GetStringWidth($tmp );
+						$nb_carac = mb_strlen( $tmp , $this->mpdf->mb_enc ) ;  
+						$nb_spaces = mb_substr_count( $tmp ,' ', $this->mpdf->mb_enc ) ;  
+						$inclCursive=false;
+						if ($checkCursive) {
+							if (preg_match("/([".$this->mpdf->pregRTLchars."])/u", $tmp)) { $inclCursive = true; }	// *RTL*
+							if (preg_match("/([".$this->mpdf->pregHIchars.$this->mpdf->pregBNchars.$this->mpdf->pregPAchars."])/u", $tmp)) { $inclCursive = true; }	// *INDIC*
+						}
+						list($charspacing,$ws) = $this->mpdf->GetJspacing($nb_carac,$nb_spaces,((($w-2) - $len_ligne) * _MPDFK),$inclCursive);
+						$this->mpdf->SetSpacing($charspacing,$ws);
+						//////////////////////////////////////////
+					}
+					$this->mpdf->Cell($w, $h, $tmp, 0, 2, $align, $fill, $link);
+					$i=$sep+1;
+				}
+				$sep = -1;
+				$j = $i;
+				$l = 0;
+				if($nl==1) {
+					if ($currentx != 0) $this->mpdf->x=$currentx;
+					else $this->mpdf->x=$this->mpdf->lMargin;
+					$w=$this->mpdf->w-$this->mpdf->rMargin-$this->mpdf->x;
+					$wmax = ($w - ($this->mpdf->cMarginL+$this->mpdf->cMarginR));
+				}
+				$nl++;
+			}
+			else { $i++; }
+		}
+		//Last chunk
+		// WORD SPACING
+		$this->mpdf->ResetSpacing();
+	}
+	else {
+		while($i<$nb) {
+			//Get next character
+			$c=$s[$i];
+			if($c == "\n") {
+				//Explicit line break
+				// WORD SPACING
+				$this->mpdf->ResetSpacing();
+				$this->mpdf->Cell($w, $h, substr($s, $j, $i-$j), 0, 2, $align, $fill, $link);
+				$i++;
+				$sep = -1;
+				$j = $i;
+				$l = 0;
+				if($nl == 1) {
+					if ($currentx != 0) $this->mpdf->x=$currentx;
+					else $this->mpdf->x=$this->mpdf->lMargin;
+					$w = $this->mpdf->w - $this->mpdf->rMargin - $this->mpdf->x;
+					$wmax=$w-($this->mpdf->cMarginL+$this->mpdf->cMarginR);
+				}
+				$nl++;
+				continue;
+			}
+			if($c == " ") { $sep= $i; }
+			$l += $this->mpdf->GetCharWidthCore($c);	// mPDF 5.3.04
+			if($l > $wmax) {
+				//Automatic line break (word wrapping)
+				if($sep == -1) {
+					// WORD SPACING
+					$this->mpdf->ResetSpacing();
+					if($this->mpdf->x > $this->mpdf->lMargin) {
+						//Move to next line
+						if ($currentx != 0) $this->mpdf->x=$currentx;
+						else $this->mpdf->x=$this->mpdf->lMargin;
+						$this->mpdf->y+=$h;
+						$w=$this->mpdf->w-$this->mpdf->rMargin-$this->mpdf->x;
+						$wmax=$w-($this->mpdf->cMarginL+$this->mpdf->cMarginR);
+						$i++;
+						$nl++;
+						continue;
+					}
+					if($i==$j) { $i++; }
+					$this->mpdf->Cell($w, $h, substr($s, $j, $i-$j), 0, 2, $align, $fill, $link);
+				}
+				else {
+					$tmp = substr($s, $j, $sep-$j);
+					if($align=='J') {
+						//////////////////////////////////////////
+						// JUSTIFY J using Unicode fonts (Word spacing doesn't work)
+						// WORD SPACING
+						// Change NON_BREAKING SPACE to spaces so they are 'spaced' properly
+					      $tmp = str_replace(chr(160),chr(32),$tmp );
+						$len_ligne = $this->mpdf->GetStringWidth($tmp );
+						$nb_carac = strlen( $tmp ) ;  
+						$nb_spaces = substr_count( $tmp ,' ' ) ;  
+						list($charspacing,$ws) = $this->mpdf->GetJspacing($nb_carac,$nb_spaces,((($w-2) - $len_ligne) * _MPDFK),$false);
+						$this->mpdf->SetSpacing($charspacing,$ws);
+						//////////////////////////////////////////
+					}
+					$this->mpdf->Cell($w, $h, $tmp, 0, 2, $align, $fill, $link);
+					$i=$sep+1;
+				}
+				$sep = -1;
+				$j = $i;
+				$l = 0;
+				if($nl==1) {
+					if ($currentx != 0) $this->mpdf->x=$currentx;
+					else $this->mpdf->x=$this->mpdf->lMargin;
+					$w=$this->mpdf->w-$this->mpdf->rMargin-$this->mpdf->x;
+					$wmax=$w-($this->mpdf->cMarginL+$this->mpdf->cMarginR);
+				}
+				$nl++;
+			}
+			else {
+				$i++;
+			}
+		}
+		// WORD SPACING
+		$this->mpdf->ResetSpacing();
+	}
+	//Last chunk
+	if($i!=$j) {
+		if ($currentx != 0) $this->mpdf->x=$currentx;
+		else $this->mpdf->x=$this->mpdf->lMargin;	
+		if ($this->mpdf->usingCoreFont) { $tmp = substr($s,$j,$i-$j); }
+		else {
+			$tmp = mb_substr($s,$j,$i-$j,$this->mpdf->mb_enc);
+			if ($directionality == 'rtl' && $align == 'J') { $align = 'R'; }	// *RTL*
+			$this->mpdf->magic_reverse_dir($tmp, true, $directionality);	// *RTL*
+		}
+		$this->mpdf->Cell($w,$h,$tmp,0,0,$align,$fill,$link);
+	}
+}
+
+
+function CircularText($x, $y, $r, $text, $align='top', $fontfamily='', $fontsizePt=0, $fontstyle='', $kerning=120, $fontwidth=100, $divider='') {	// mPDF 5.5.23
+	if ($font || $fontstyle || $fontsizePt) $this->mpdf->SetFont($fontfamily,$fontstyle,$fontsizePt);
+	$kerning/=100;
+	$fontwidth/=100;        
+	if($kerning==0) $this->mpdf->Error('Please use values unequal to zero for kerning (CircularText)');
+	if($fontwidth==0) $this->mpdf->Error('Please use values unequal to zero for font width (CircularText)');
+	$text=str_replace("\r",'',$text);
+	//circumference
+	$u=($r*2)*M_PI;
+	// mPDF 5.5.23
+	$checking = true;
+	$autoset = false;
+	while($checking) {
+	   $t=0;
+	   $w = array();
+	   if ($this->mpdf->usingCoreFont)  {
+		$nb=strlen($text); 
+		for($i=0; $i<$nb; $i++){
+			$w[$i]=$this->mpdf->GetStringWidth($text[$i]);
+			$w[$i]*=$kerning*$fontwidth;
+			$t+=$w[$i];
+		}
+	   }
+	   else { 
+		$nb=mb_strlen($text, $this->mpdf->mb_enc ); 
+		$lastchar = '';
+		$unicode = $this->mpdf->UTF8StringToArray($text);
+		for($i=0; $i<$nb; $i++){
+			$c = mb_substr($text,$i,1,$this->mpdf->mb_enc );
+			$w[$i]=$this->mpdf->GetStringWidth($c);
+			$w[$i]*=$kerning*$fontwidth;
+			$char = $unicode[$i];
+			if ($this->mpdf->useKerning && $lastchar) {
+				if (isset($this->mpdf->CurrentFont['kerninfo'][$lastchar][$char])) { 
+					$tk = $this->mpdf->CurrentFont['kerninfo'][$lastchar][$char] * ($this->mpdf->FontSize/ 1000) * $kerning * $fontwidth; 
+					$w[$i] += $tk/2;
+					$w[$i-1] += $tk/2;
+					$t+=$tk;
+				}
+			}
+			$lastchar = $char;
+			$t+=$w[$i];
+		}
+	   }
+	   if ($fontsizePt>=0 || $autoset) { $checking = false; }
+	   else {
+		$t+=$this->mpdf->GetStringWidth('  ');
+		if ($divider)
+			$t+=$this->mpdf->GetStringWidth('  ');
+		if ($fontsizePt==-2)
+			$fontsizePt = $this->mpdf->FontSizePt * 0.5  *  $u/$t;
+		else 
+			$fontsizePt = $this->mpdf->FontSizePt * $u/$t;
+		$this->mpdf->SetFontSize($fontsizePt);
+		$autoset = true;
+	   }
+	}
+
+	//total width of string in degrees
+	$d=($t/$u)*360;
+
+	$this->mpdf->StartTransform();
+	// rotate matrix for the first letter to center the text
+	// (half of total degrees)
+	if($align=='top'){
+		$this->mpdf->transformRotate(-$d/2, $x, $y);
+	}
+	else{
+		$this->mpdf->transformRotate($d/2, $x, $y);
+	}
+	//run through the string
+	for($i=0; $i<$nb; $i++){
+		if($align=='top'){
+			//rotate matrix half of the width of current letter + half of the width of preceding letter
+			if($i==0){
+				$this->mpdf->transformRotate((($w[$i]/2)/$u)*360, $x, $y);
+			}
+			else{
+				$this->mpdf->transformRotate((($w[$i]/2+$w[$i-1]/2)/$u)*360, $x, $y);
+			}
+			if($fontwidth!=1){
+				$this->mpdf->StartTransform();
+				$this->mpdf->transformScale($fontwidth*100, 100, $x, $y);
+			}
+			$this->mpdf->SetXY($x-$w[$i]/2, $y-$r);
+		}
+		else{
+			//rotate matrix half of the width of current letter + half of the width of preceding letter
+			if($i==0){
+				$this->mpdf->transformRotate(-(($w[$i]/2)/$u)*360, $x, $y);
+			}
+			else{
+				$this->mpdf->transformRotate(-(($w[$i]/2+$w[$i-1]/2)/$u)*360, $x, $y);
+			}
+			if($fontwidth!=1){
+				$this->mpdf->StartTransform();
+				$this->mpdf->transformScale($fontwidth*100, 100, $x, $y);
+			}
+			$this->mpdf->SetXY($x-$w[$i]/2, $y+$r-($this->mpdf->FontSize));
+		}
+		if ($this->mpdf->usingCoreFont) { $c=$text[$i]; }
+		else { $c = mb_substr($text,$i,1,$this->mpdf->mb_enc ); }
+		$this->mpdf->Cell(($w[$i]),$this->mpdf->FontSize,$c,0,0,'C');	// mPDF 5.3.53
+		if($fontwidth!=1){
+			$this->mpdf->StopTransform();
+		}
+	}
+	$this->mpdf->StopTransform();
+
+	// mPDF 5.5.23
+	if($align=='top' && $divider!=''){
+		$wc=$this->mpdf->GetStringWidth($divider);
+		$wc*=$kerning*$fontwidth;
+
+		$this->mpdf->StartTransform();
+		$this->mpdf->transformRotate(90, $x, $y);
+		$this->mpdf->SetXY($x-$wc/2, $y-$r);
+		$this->mpdf->Cell(($wc),$this->mpdf->FontSize,$divider,0,0,'C');
+		$this->mpdf->StopTransform();
+
+		$this->mpdf->StartTransform();
+		$this->mpdf->transformRotate(-90, $x, $y);
+		$this->mpdf->SetXY($x-$wc/2, $y-$r);
+		$this->mpdf->Cell(($wc),$this->mpdf->FontSize,$divider,0,0,'C');
+		$this->mpdf->StopTransform();
+	}
+}
+
+function Shaded_box( $text,$font='',$fontstyle='B',$szfont='',$width='70%',$style='DF',$radius=2.5,$fill='#FFFFFF',$color='#000000',$pad=2 )
+{
+// F (shading - no line),S (line, no shading),DF (both)
+	if (!$font) { $font= $this->mpdf->default_font; }
+	if (!$szfont) { $szfont = ($this->mpdf->default_font_size * 1.8); }
+
+	$text = $this->mpdf->purify_utf8_text($text);
+	if ($this->mpdf->text_input_as_HTML) {
+		$text = $this->mpdf->all_entities_to_utf8($text);
+	}
+	if ($this->mpdf->usingCoreFont) { $text = mb_convert_encoding($text,$this->mpdf->mb_enc,'UTF-8'); }
+	// DIRECTIONALITY
+	$this->mpdf->magic_reverse_dir($text, true, $this->mpdf->directionality);	// *RTL*
+	// Font-specific ligature substitution for Indic fonts
+	if (isset($this->mpdf->CurrentFont['indic']) && $this->mpdf->CurrentFont['indic']) $this->mpdf->ConvertIndic($text);	// *INDIC*
+	$text = ' '.$text.' ';
+	if (!$width) { $width = $this->mpdf->pgwidth; } else { $width=$this->mpdf->ConvertSize($width,$this->mpdf->pgwidth); }
+	$midpt = $this->mpdf->lMargin+($this->mpdf->pgwidth/2);
+	$r1  = $midpt-($width/2);	//($this->mpdf->w / 2) - 40;
+	$r2  = $r1 + $width; 		//$r1 + 80;
+	$y1  = $this->mpdf->y;
+
+
+	$mid = ($r1 + $r2 ) / 2;
+	$loop   = 0;
+    
+	while ( $loop == 0 )
+	{
+		$this->mpdf->SetFont( $font, $fontstyle, $szfont );
+		$sz = $this->mpdf->GetStringWidth( $text );
+		if ( ($r1+$sz) > $r2 )
+			$szfont --;
+		else
+			$loop ++;
+	}
+
+	$y2  = $this->mpdf->FontSize+($pad*2);
+
+	$this->mpdf->SetLineWidth(0.1);
+	$fc = $this->mpdf->ConvertColor($fill);
+	$tc = $this->mpdf->ConvertColor($color);
+	$this->mpdf->SetFColor($fc);
+	$this->mpdf->SetTColor($tc);
+	$this->mpdf->RoundedRect($r1, $y1, ($r2 - $r1), $y2, $radius, $style);
+	$this->mpdf->SetX( $r1);
+	$this->mpdf->Cell($r2-$r1, $y2, $text, 0, 1, "C" );
+	$this->mpdf->SetY($y1+$y2+2);	// +2 = mm margin below shaded box
+	$this->mpdf->Reset();
+}
+
+
+}
+
+?>
\ No newline at end of file
-- 
cgit v1.2.3