diff options
Diffstat (limited to 'support/texaccents/texaccents.sno')
-rwxr-xr-x[-rw-r--r--] | support/texaccents/texaccents.sno | 25 |
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) |