Index: trunk/doc/user/09_appendix/src/gen_dialogs.sh
===================================================================
--- trunk/doc/user/09_appendix/src/gen_dialogs.sh	(revision 37025)
+++ trunk/doc/user/09_appendix/src/gen_dialogs.sh	(revision 37026)
@@ -38,58 +38,7 @@
 	<th> comments
 '
 
-$trunk/util/devhelpers/list_dialogs.sh | awk -F "[\t]" '
-function orna(s)
-{
-	if ((s == "") || (s == "<dyn>")) return "n/a"
-	return s
-}
+. $trunk/util/devhelpers/list_dialogs.sh
 
-'"$dlgtbl"'
-'"`cat dialog_extra.awk`"'
+list_dlgs $trunk/src/*.c $trunk/src_plugins/*/*.c | gen_html
 
-function out(id, name, src, action, comment     ,acturl1,acturl2,fn,tmp) {
-	if (action == "") {
-		if (id in ACTION) action = ACTION[id]
-		else if (src in ACTION) action = ACTION[src]
-	}
-
-	if (action != "") {
-		acturl1 = action
-		sub("[(].*", "", acturl1)
-		fn = "../action_src/" acturl1 ".html"
-		if ((getline tmp < fn) == 1) {
-			acturl1 = "<a href=\"action_details.html#" tolower(acturl1) "\">"
-			acturl2 = "</a>"
-		}
-		else {
-			acturl1 = ""
-			acturl2 = ""
-		}
-		close(fn)
-	}
-
-	if (comment == "") {
-		if (id in COMMENT) comment = COMMENT[id]
-		else if (src in COMMENT) comment = COMMENT[src]
-		else comment = "&nbsp;"
-	}
-
-	print "<tr><td>" orna(id) "<td>" orna(name) "<td>" acturl1 orna(action) acturl2 "<td>" src "<td>" comment
-}
-
-{
-	id=$1
-	name=$2
-	src=$3
-	if ((src in IGNORE) && ((name ~ IGNORE[src]) || (id ~ IGNORE[src])))
-		next
-	out(id, name, src)
-}
-'
-
-echo '
-</table>
-</body>
-</html>
-'
Index: trunk/util/devhelpers/list_dialogs.sh
===================================================================
--- trunk/util/devhelpers/list_dialogs.sh	(revision 37025)
+++ trunk/util/devhelpers/list_dialogs.sh	(revision 37026)
@@ -1,10 +1,11 @@
-#!/bin/sh
+# shell lib
 
 # assumes running from the source tree
 
-trunk=$(dirname $0)/../..
-
-grep RND_DAD_NEW $trunk/src/*.c $trunk/src_plugins/*/*.c | awk '
+# list all dialogs from the source files provided on the arg list
+list_dlgs()
+{
+grep RND_DAD_NEW "$@" | awk '
 	($1 ~ "TEMPLATE") { next }
 	{
 		file=$1
@@ -32,3 +33,65 @@
 		print name "\t" title "\t" file
 	}
 '
+}
+
+# read dialog list and emit a html
+gen_html()
+{
+awk -F "[\t]" '
+function orna(s)
+{
+	if ((s == "") || (s == "<dyn>")) return "n/a"
+	return s
+}
+
+'"$dlgtbl"'
+'"`cat dialog_extra.awk`"'
+
+function out(id, name, src, action, comment     ,acturl1,acturl2,fn,tmp) {
+	if (action == "") {
+		if (id in ACTION) action = ACTION[id]
+		else if (src in ACTION) action = ACTION[src]
+	}
+
+	if (action != "") {
+		acturl1 = action
+		sub("[(].*", "", acturl1)
+		fn = "../action_src/" acturl1 ".html"
+		if ((getline tmp < fn) == 1) {
+			acturl1 = "<a href=\"action_details.html#" tolower(acturl1) "\">"
+			acturl2 = "</a>"
+		}
+		else {
+			acturl1 = ""
+			acturl2 = ""
+		}
+		close(fn)
+	}
+
+	if (comment == "") {
+		if (id in COMMENT) comment = COMMENT[id]
+		else if (src in COMMENT) comment = COMMENT[src]
+		else comment = "&nbsp;"
+	}
+
+	print "<tr><td>" orna(id) "<td>" orna(name) "<td>" acturl1 orna(action) acturl2 "<td>" src "<td>" comment
+}
+
+{
+	id=$1
+	name=$2
+	src=$3
+	if ((src in IGNORE) && ((name ~ IGNORE[src]) || (id ~ IGNORE[src])))
+		next
+	out(id, name, src)
+}
+'
+
+echo '
+</table>
+</body>
+</html>
+'
+}
+

Property changes on: trunk/util/devhelpers/list_dialogs.sh
___________________________________________________________________
Deleted: svn:executable
## -1 +0,0 ##
-*
\ No newline at end of property