summaryrefslogtreecommitdiff
path: root/support/texaccents/texaccents.sno
diff options
context:
space:
mode:
Diffstat (limited to 'support/texaccents/texaccents.sno')
-rwxr-xr-x[-rw-r--r--]support/texaccents/texaccents.sno25
1 files changed, 20 insertions, 5 deletions
diff --git a/support/texaccents/texaccents.sno b/support/texaccents/texaccents.sno
index 5c20e75e47..41f655bad2 100644..100755
--- a/support/texaccents/texaccents.sno
+++ b/support/texaccents/texaccents.sno
@@ -1,6 +1,7 @@
+#!/usr/bin/env snobol4
# texaccents.sno
-# version 1.0
-# 2022.08.23
+# version 1.0.1
+# 2022.08.23 -- 2022.09.17
# guido.milanese@unicatt.it
# Transforms LaTeX accents to their UTF8 equivalents
# accepts both LaTeX and Bibtex codes:
@@ -32,15 +33,29 @@ initialise_bg
-include "grepl.inc" ;* essential! calls repl internally
MAX = 8000000 ;* max size of input/output files = 8 megs
NL = newline()
- HELP_MSG = "texaccents.sno 1.0" NL
-+ " (c) 2022 Guido Milanese guido.milanese@unicatt.it" NL
-+ " Usage: texaccents.sno INFILE OUTFILE" NL
+ HELP_MSG = "texaccents 1.0.1" NL
++ "Converts legacy (La)TeX accents and ligatures to Unicode" NL
++ "Usage: texaccents.sno INFILE OUTFILE" NL
++ "--help print this help, then exit" NL
++ "--version print version number, then exit" NL
++ "Report bugs to <guido.milanese@unicatt.it>" NL
++ "CTAN page of the package: <https://www.ctan.org/pkg/texaccents>"
+
+ VERS_MSG = "texaccents 1.0.1" NL NL
++ "Copyright (c) 2022 Guido Milanese" NL NL
++ "This is free software; see the source for copying conditions. There is NO" NL
++ "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." NL nl
++ "Written by Guido Milanese <guido.milanese@unicatt.it>"
+
+
#######################################################
# opens input / output files
#######################################################
* Defines and checks Input & Output
* help request -- exits. Both "--help" and "-help" are valid
((host(2,2) ? "-help") (Terminal = HELP_MSG)) :s(end)
+* version request -- exits. Both "--version" and "-version" are valid
+ ((host(2,2) ? "-version") (Terminal = VERS_MSG)) :s(end)
* Normal input-output with error messages.
* Error messages are used by MAIN if necessary
(~(infile = host(2,2)) ((Terminal = HELP_MSG) (ERROR_MSG = "Input error"))) :s(freturn)