Initial import of the CDE 2.1.30 sources from the Open Group.

cde/admin/BuildTools/tog/compress_msg

@@ -0,0 +1,173 @@
+#!/bin/ksh
+#
+# compress_msg.ksh
+#
+########################################################################
+#set -x
+
+DEBUG="False"
+ERROR_FILE=""
+LOG_FILE=""
+MESSAGE_FILES=""
+MESSAGES_INIT="XXXXXXX"
+MESSAGES="$MESSAGES_INIT"
+PROG_NAME="`basename $0`"
+
+usage ()
+{
+    print -u1 "USAGE: $1"
+    print -u1 "\t{-e | -errorfile} <file>"
+    print -u1 "\t        # Specifies the error file to send errors."
+    print -u1 "\t[-h | -? | -help]"
+    print -u1 "\t        # Print usage and exit"
+    print -u1 "\t[{-l | -logfile} <file>]"
+    print -u1 "\t        # Specifies the file containing msgs to be compressed"
+    print -u1 "\t        # Defaults to using stdin"
+    print -u1 "\t[{-m | -msgfile} <file>]"
+    print -u1 "\t        # Specifies a file containing messages to be"
+    print -u1 "\t        # extracted.  Multiple -m flags can be specified."
+    print -u1 "\t[messages ...]"
+    print -u1 "\t        # Specifies individual messages to be extraced."
+}
+
+#
+# Do command-line processing
+#
+while [ $# -gt 0 ]; do
+    case $1 in
+
+	-debug)
+	    DEBUG="True"
+	    shift 1 ;;
+
+	-e | -errorfile)
+	    if [ $# -lt 2 ]; then
+		print -u2 "$PROG_NAME:  $1 option missing value; exiting ..."
+		do_exit 1
+	    fi
+	    ERROR_FILE=$2
+	    shift 2 ;;
+
+	-m | -msgfile)
+	    MESSAGE_FILES="$MESSAGE_FILES $2"
+	    shift 2 ;;
+
+	-l | -logfile)
+	    if [ $# -lt 2 ]; then
+		print -u2 "$PROG_NAME:  $1 option missing value; exiting ..."
+		exit 1
+	    fi
+	    LOG_FILE=$2
+	    shift 2 ;;
+
+	-h | -? | -help)
+	    usage $PROG_NAME
+	    exit 1 ;;
+
+	*)
+	    MESSAGES="$MESSAGES|$1"
+	    shift 1;;
+    esac
+done
+
+if [ ! -z "$ERROR_FILE" ]
+then
+    exec 2>> $ERROR_FILE
+fi
+
+#
+# Check to make sure that the command-line parameters make sense.
+#
+if [ -z "$MESSAGE_FILES" ] && [ "$MESSAGES" = "$MESSAGES_INIT" ]
+then
+    print -u2 "$PROG_NAME:  No messages or message files have been specified."
+    print -u2 "$PROG_NAME:  exiting ..."
+    exit 1
+fi
+
+for f in $MESSAGE_FILES
+do
+    if [ ! -f $f ]
+    then
+        print -u2 "$PROG_NAME:  Message file \"$f\" does not exist; exiting ..."
+        exit 1
+    fi
+done
+
+if [ -n "$LOG_FILE"  -a  ! -f "$LOG_FILE" ]
+then
+    print -u2 "$PROG_NAME:  Log file \"$LOG_FILE\" does not exist; exiting ..."
+    exit 1
+fi
+
+#
+# Collect all the regular expressions from the message files
+# ignoring those that have been commented out.
+#
+for f in $MESSAGE_FILES
+do
+    IFS="
+"
+    for m in `cat $f`
+    do
+	MESSAGES="$MESSAGES|$m"
+    done
+    IFS=" "
+done
+
+#
+# Build the awk script
+#
+SCRIPT=/tmp/${PROG_NAME}.$$.awk
+
+touch $SCRIPT
+chmod 775 $SCRIPT
+print -n -u1 'BEGIN {
+    do_print = 0
+}
+/.*/ {
+    if (' >> $SCRIPT
+
+IFS="|"
+let i=0
+for m in $MESSAGES
+do
+    if [ i -gt 0 ]; then
+	print -n -u1 " || " >> $SCRIPT
+    fi
+    print -n -u1 "index(\$0, \"$m \")" >> $SCRIPT
+    let i=$i+1
+done
+IFS=" "
+
+
+print -n -u1 ') {
+	save = $0
+        do_print = 1
+	next
+    }
+    if (do_print)
+    {
+	print ">>>" save "<<<"
+	do_print = 0
+    }
+    print
+}' >> $SCRIPT
+
+#
+# Use the awk script to extract the desired messages from the log file.
+#
+if [ -n "$LOG_FILE" ]; then
+    exec < $LOG_FILE
+fi
+awk -f $SCRIPT
+
+#
+# Clean up
+#
+if [ "$DEBUG" != "True" ]
+then
+    /bin/rm $SCRIPT
+fi
+
+exit 0