#!/bin/bash

# Instruction for use:
# ~~~~~~~~~~~~~~~~~~~~
# 1) Copy this script into some temporary directory, and
# 2) Download
#    svn.gna.org/viewcvs/*checkout*/latexrefman/trunk/latex2e-fr.texi
#    to some place
# 3) Adapt the two variables TEXI_FILE & EMACS to your configuration, under
#    some unsername entry distincitive of you.
# 4) Run the script.



case $USERNAME in
    Vincent)
	TEXI_FILE=/local/projects/latexrefman/latexrefman/latex2e-fr.texi
	EMACS=/c/Nos_Programmes/GNU/Emacs/bin/emacs.exe;;
    
    *)
	echo "Uknown user!!" >2
	exit;;
esac

if [ "$1" == "--fundamental" ]; then
    FUNDAMENTAL=$2
fi    
case $FUNDAMENTAL in
    yes|true|1) FUNDAMENTAL=1;;
    no|false|0) FUNDAMENTAL=0;;
    *) FUNDAMENTAL=1;;
esac

HERE=$(dirname $0)

# We make some AWK script to remove of the file local variable that
# are not relevant for the test, and configure the coding either to
# latin-9 or to utf-8. We will show that utf-8 (ie math symbol are
# displayed) is horribly slower than latin-9
cat >emacs-bug22519.awk <<EOF
BEGIN                        { enb = 0}
/^@c Local Variables:/       { enb = 1; print}
/^@c End:/                   { enb = 0 }
enb == 1 && \$2 == "coding:" { \$3=coding "-unix";
                               print;
                               if(fundamental) 
                                 print "@c mode: fundamental"
                             }
enb == 0                     { print }
EOF

for CODING in utf-8 latin-9; do
    awk -v coding=$CODING \
	-v fundamental=$FUNDAMENTAL \
	-f emacs-bug22519.awk \
	$TEXI_FILE > $HERE/${CODING}-l2e-fr.texi
done

# Now we make some Emacs script to make the benchmarking. Benchmark
# result is saved to some result.txt file
cat >$HERE/emacs-bug22519.el <<EOF
(defconst max-word-size 10)
(defconst rand-word-string-size 1000)
(defconst rand-word-string (apply 'string
   (let (l)
      (random "Some first seed")
      (dotimes (i (+ max-word-size rand-word-string-size))
         (push (+ 32 (random 80)) l))
      l)))
(let (result)
  (dolist
    (f '("latin-9" "utf-8"))
    (find-file (concat "$HERE/" f "-l2e-fr.texi"))
    (re-search-forward "@node Math symbols")
    (beginning-of-line 10)
    (let ((beg (point))
          (end (save-excursion
                   (re-search-forward "^@node")
                   (beginning-of-line)
                   (point)))
          pos ws spos)
        (push f result)
	(random "Some second seed")
        (push
           (benchmark-run
             (dotimes (i 200)
               (setq pos  (random (- end beg))
                     ws   (1+ (random max-word-size))
	             spos (random rand-word-string-size))
               (goto-char (+ beg pos))
               (insert (substring rand-word-string spos (+ spos ws)))
               (recenter) ; force refreshing the screen !!              
               (setq end (+ end ws))))
           result)
	(set-buffer-modified-p nil)
        (kill-buffer)))
      (setq result (nreverse result))
     (find-file "$HERE/result.txt")
     (erase-buffer)
     (while result
       (insert (pop result) "=" (format "%S" (pop result)) "\n")))
(save-buffers-kill-terminal t)
EOF

$EMACS -Q --load "$HERE/emacs-bug22519.el"

case $FUNDAMENTAL in
     1) echo "mode: fundamental";;
     0) echo "mode: normal";;
esac
cat $HERE/result.txt