<?php if (!defined('PmWiki')) exit();
/*  Copyright 2005-2026 Patrick R. Michaud (pmichaud@pobox.com)
    This file is countglyphs.php; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published
    by the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.  

    This recipe adds {$Glyphs} and {$Words} markup, which are replaced
    by the number of non-space characters or words that have been generated
    prior to the line containing the markup.

    To use this recipe, simply copy it into the cookbook/ directory and
    add the following line to a local customization file.

        include_once('cookbook/countglyphs.php');
    
    Script maintained by Petko Yotov www.pmwiki.org/petko
*/
$RecipeInfo['CountGlyphs']['Version'] = '20260716';

$GlyphsToken = $KeepToken.'glyphs'.$KeepToken;
$WordsToken = $KeepToken.'words'.$KeepToken;

Markup('words-glyphs', '<{$var}', 
  '/{\\$(Words|Glyphs)}/', 'WordGlyph');
  
function WordGlyph($m) {
  global $GlyphsToken, $WordsToken, $countglyphs;
  $var = $m[1] . 'Token';
  $countglyphs=1;
  return $$var;
}

function WordGlyphEval(&$out) {
  global $GlyphsToken, $WordsToken, $countglyphs;
  if (! ($countglyphs??0)) return;
  $dehtml = preg_replace('/<.*?>/', '', $out);
  $despace = preg_replace('/\\s+/', '', $dehtml);

  $nbglyphs = function_exists('utf8string')
    ? utf8string($despace, 'strlen')
    : strlen($despace);

  $nbwords = count(preg_split('/\\s+/', $dehtml, -1, PREG_SPLIT_NO_EMPTY));

  $out = str_replace([$GlyphsToken, $WordsToken], [$nbglyphs, $nbwords], $out);
}

$MarkupFrameBase['posteval']['glyphs'] = 
  (IsEnabled($RevisionNum, 0) >= 5550)
  ? 'WordGlyphEval'
  : 'WordGlyphEval($out);'
  ;