[gentoo-commits] proj/emacs-tools:gentoo-syntax commit in: /

["Ulrich Mueller" <ulm@gentoo.org>]

commit:     9175c9a69a32d23bbc4fdc921fe6ebad9e1dd333
Author:     Ulrich Müller <ulm <AT> gentoo <DOT> org>
AuthorDate: Sat Sep 22 17:14:20 2012 +0000
Commit:     Ulrich Mueller <ulm <AT> gentoo <DOT> org>
CommitDate: Sat Sep 22 17:14:20 2012 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/emacs-tools.git;a=commit;h=9175c9a6

Use the shell for parsing of eclasses' environment.

---
 ChangeLog             |    3 ++-
 keyword-generation.sh |   21 +++++++++++++--------
 2 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 01e4472..abf170d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,7 +2,8 @@
 
 	* keyword-generation.sh: Drop dead or removed eclasses from
 	obsolete list. Sort it alphabetically. Skip any eclass that is
-	marked with a @DEAD token.
+	marked with a @DEAD token. Use the shell for parsing of eclasses'
+	environment.
 	(has): New function.
 	(ECLASSDIR, OBSOLETE): New variables.
 

diff --git a/keyword-generation.sh b/keyword-generation.sh
index dd7027f..6d88e17 100644
--- a/keyword-generation.sh
+++ b/keyword-generation.sh
@@ -24,21 +24,26 @@ has() {
     return 1
 }
 
-echo Output in ${TMPFILE}
-echo Manual parsing of mercurial.eclass needed! Do not forget!
+echo "Output in ${TMPFILE}"
 
 for eclass in ${ECLASSES}; do
     has ${eclass%.eclass} ${OBSOLETE} && continue
     grep -q "^# @DEAD$" "${ECLASSDIR}/${eclass}" && continue
-    echo '(defvar ebuild-mode-keywords-'${eclass//.eclass/} >>${TMPFILE}
-    echo -n \'\(\($(LC_ALL=C grep '^[A-Za-z0-9._-]*()' "${ECLASSDIR}/${eclass}"|sed -e 's:\(^.*\)().*:"\1":g')\)>>${TMPFILE}
-    echo >>${TMPFILE}
-    echo font-lock-type-face\)\)>>${TMPFILE}
-    echo >>${TMPFILE}
+
+    functions=$(env -i bash -c \
+        ". ${ECLASSDIR}/${eclass}; declare -F" 2>/dev/null \
+        | sed 's/.*[[:space:]]\(.*\)/"\1"/')
+
+    {
+        echo "(defvar ebuild-mode-keywords-${eclass%.eclass}"
+        echo "  '(("${functions}")"
+        echo "    font-lock-type-face))"
+        echo
+    } >>"${TMPFILE}"
 done
 
 emacs -q --batch \
-    --visit ${TMPFILE} \
+    --visit "${TMPFILE}" \
     --eval "(emacs-lisp-mode)" \
     --eval "(indent-region (point-min) (point-max))" \
     --eval "(let ((fill-column 78)