From 75cb922ad059d2dce452efad78f4fd19a16fe136 Mon Sep 17 00:00:00 2001
From: midipix <writeonce@midipix.org>
Date: Sun, 13 Jun 2021 19:23:16 +0000
Subject: build system: modern.m4: refactor, added m4_toupper() and
 m4_tolower().

---
 sofort/core/modern.m4 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'sofort/core')

diff --git a/sofort/core/modern.m4 b/sofort/core/modern.m4
index 3e24501..5b531f6 100644
--- a/sofort/core/modern.m4
+++ b/sofort/core/modern.m4
@@ -5,6 +5,7 @@ dnl
 dnl 1) make all standard m4 builtins m4_ prefixed.
 dnl 2) set the left-bracket and right-bracket symbols the begin-quote and end-quote strings.
 dnl 3) make a single underscore symbol the equivalent of the standard dnl builtin.
+dnl 4) provide the m4_toupper and m4_tolower macros.
 dnl
 divert(-1)
 
@@ -43,7 +44,6 @@ define(m4_undefine,defn(`undefine'))
 define(m4_undivert,defn(`undivert'))
 
 m4_changequote([,])
-m4_define(_,defn([m4_dnl]))
 
 m4_undefine([changecom])
 m4_undefine([changequote])
@@ -79,4 +79,9 @@ m4_undefine([translit])
 m4_undefine([undefine])
 m4_undefine([undivert])
 
+m4_define([_],m4_defn([m4_dnl]))
+
+m4_define([m4_toupper],[m4_translit]([$1],[abcdefghijklmnopqrstuvwxyz],[ABCDEFGHIJKLMNOPQRSTUVWXYZ]))
+m4_define([m4_tolower],[m4_translit]([$1],[ABCDEFGHIJKLMNOPQRSTUVWXYZ],[abcdefghijklmnopqrstuvwxyz]))
+
 m4_divert(0)_
-- 
cgit v1.2.3