Debug doc gen

bjasspa · Sep 17, 2024 · e3511e3 · e3511e3
1 parent 8ef2b95
commit e3511e3
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 1 deletion.
diff --git a/.github/workflows/build-linux.yml b/.github/workflows/build-linux.yml
@@ -86,6 +86,23 @@ jobs:
           cd ..
           ./bin/linux5-intel64/tfs -o ../packages/Jasspa_MicroEmacs_${MEVER}_openssl_linux_intel64.tfs -a ./mesingle/tfs_hd tfs
 
+      - name: Generate docs
+        run: |
+          export PATH=`pwd`/microemacs/bin/linux5-intel64:`pwd`/nroff/bin/linux:$PATH
+          export MEPATH=`pwd`/microemacs/macros
+          export MEVER=`mec -p @microemacs/contribs/ver.emf`
+          cd ./microemacs/doc
+          make me.ehf
+          rm -rf tfs
+          mkdir -p tfs/macros
+          cp me.ehf tfs/macros
+          cd tfs
+          cp ../../COPYING.txt ./
+          cp ../../readme.txt ./
+          zip -r ../../../downloads/Jasspa_MicroEmacs_${MEVER}_help_ehf macros COPYING.txt readme.txt
+          cd ..
+          ../bin/linux5-intel64/tfs -o ../../packages/Jasspa_MicroEmacs_${MEVER}_hlpehf.tfs -a ../mesingle/tfs_hd tfs
+
       - name: Generate macros
         run: |
           cd ./microemacs/

diff --git a/microemacs/macros/ehftools.emf b/microemacs/macros/ehftools.emf
@@ -7,9 +7,11 @@
 ; Synopsis:    On-line help macros.
 ; Authors:     Steven Phillips
 ;
+-2 ml-write "HERE 1"
 0 define-macro-file utils ascii-time var-str-sub str-to-regex
 define-macro-file htmltool html-to-ehf
 define-macro-file format clean
+-2 ml-write "HERE 2"
 
 define-macro ehf-process-buffer
   ; Carry on as normal
@@ -148,17 +150,22 @@ define-macro ehf-process-buffer
 !emacro
 
 define-macro ehf-process-all
+-2 ml-write "HERE A1"
   !force 0 delete-buffer "*scratch*"
   delete-other-windows
   split-window-vertically
+-2 ml-write "HERE A2"
   find-file "me.ehf"
   beginning-of-buffer
   set-mark
   end-of-buffer
   -1 kill-region
+-2 ml-write "HERE A3"
   next-window
   !while &not &seq $buffer-bname "me.ehf"
+-2 ml-write "HERE A4"
     ehf-process-buffer
+-2 ml-write "HERE A5"
     beginning-of-buffer
     set-mark
     !while &seq @wc "#"
@@ -289,7 +296,8 @@ define-macro ehf-process-all
 
 ; don't advertise the definition of start-up
 0 define-macro start-up
+-2 ml-write "HERE 3"
   ehf-process-all
+-2 ml-write "HERE 4"
   quick-exit
 !emacro
-