Initial import of the CDE 2.1.30 sources from the Open Group.
This commit is contained in:
Peter Howkins
252
cde/lib/tt/bin/scripts/ttce2xdr.cpp
Normal file
252
cde/lib/tt/bin/scripts/ttce2xdr.cpp
Normal file
@@ -0,0 +1,252 @@
|
||||
XCOMM! /bin/sh
|
||||
XCOMM $XConsortium: ttce2xdr.cpp /main/4 1996/04/21 19:11:34 drk $
|
||||
XCOMM (c) Copyright 1996 Digital Equipment Corporation.
|
||||
XCOMM (c) Copyright 1993,1994,1996 Hewlett-Packard Company.
|
||||
XCOMM (c) Copyright 1993,1994,1996 International Business Machines Corp.
|
||||
XCOMM (c) Copyright 1992-1994,1996 Sun Microsystems, Inc.
|
||||
XCOMM (c) Copyright 1993,1994,1996 Novell, Inc.
|
||||
XCOMM (c) Copyright 1996 FUJITSU LIMITED.
|
||||
XCOMM (c) Copyright 1996 Hitachi.
|
||||
XCOMM
|
||||
XCOMM ttce2xdr - Convert ToolTalk Classing Engine tables to XDR types database
|
||||
|
||||
XCOMM
|
||||
XCOMM usage
|
||||
XCOMM
|
||||
usage() {
|
||||
echo "$1: convert ToolTalk CE tables to XDR types database"
|
||||
echo "Usage: $1 [-xn][-d user|system]"
|
||||
echo " $1 [-xn]-d network [<OPENWINHOME1> [<OPENWINHOME2>]]"
|
||||
echo " $1 [-h]"
|
||||
echo " $1 [-v]"
|
||||
echo " -d <db> database to read (default: all) and "
|
||||
echo " write (default: user)"
|
||||
echo " -n echo commands instead of executing them"
|
||||
echo " -h help"
|
||||
echo " -v version"
|
||||
echo " -x debug mode (pass 'set -x' to /bin/sh)"
|
||||
echo " <OPENWINHOME1> OWv3 installation to read from"
|
||||
echo " <OPENWINHOME2> OWv3 installation to write to"
|
||||
}
|
||||
|
||||
XCOMM
|
||||
XCOMM version
|
||||
XCOMM
|
||||
version() {
|
||||
echo TT_VERSION_STRING
|
||||
}
|
||||
|
||||
XCOMM
|
||||
XCOMM cleanup - Call me before exiting
|
||||
XCOMM
|
||||
cleanup() {
|
||||
rm -f /tmp/ttce2xdr.types.$$ /tmp/ttce2xdr.types.$$.deps /tmp/ttce2xdr.ceascii.$$
|
||||
}
|
||||
|
||||
XCOMM
|
||||
XCOMM nullit - create null ~/.tt/xdr.types so auto convert won't be run
|
||||
XCOMM next time
|
||||
XCOMM
|
||||
nullit() {
|
||||
test -d $HOME/.tt || mkdir $HOME/.tt
|
||||
touch $HOME/.tt/types.xdr
|
||||
}
|
||||
|
||||
XCOMM
|
||||
XCOMM Main
|
||||
XCOMM
|
||||
trap cleanup 0 1 2 3 15
|
||||
|
||||
cmd=`basename $0`
|
||||
|
||||
dryrun=
|
||||
database=
|
||||
ow1=
|
||||
ow2=
|
||||
|
||||
XCOMM
|
||||
XCOMM Parse command line
|
||||
XCOMM
|
||||
args=$*
|
||||
while getopts hxnvrfd: option
|
||||
do
|
||||
case $option in
|
||||
h | \?) usage $cmd; exit 1;;
|
||||
x) set -x;;
|
||||
v) version $cmd; exit 1;;
|
||||
n) dryrun=1;;
|
||||
d) database=$OPTARG;;
|
||||
esac
|
||||
done
|
||||
|
||||
XCOMM
|
||||
XCOMM Discard args processed by getopts
|
||||
XCOMM
|
||||
shift `expr $OPTIND - 1`
|
||||
|
||||
XCOMM
|
||||
XCOMM Process mandatory args
|
||||
XCOMM
|
||||
if [ $# -gt 0 ]; then
|
||||
ow1=$1
|
||||
shift
|
||||
if [ $# -gt 0 ]; then
|
||||
ow2=$1
|
||||
shift
|
||||
fi
|
||||
fi
|
||||
|
||||
XCOMM
|
||||
XCOMM Check for extraneous args
|
||||
XCOMM
|
||||
if [ $# -gt 0 ]; then
|
||||
usage $cmd
|
||||
exit 1
|
||||
fi
|
||||
|
||||
if [ "`set | grep TTHOME`" ]; then
|
||||
echo "\$TTHOME is set. $cmd does not support \$TTHOME."
|
||||
echo "Unset it and rerun $cmd, or run tt_type_comp(1) by hand."
|
||||
exit 1
|
||||
fi
|
||||
|
||||
if [ $database ]; then
|
||||
case $database in
|
||||
user | system | network)
|
||||
;;
|
||||
*) echo "$cmd: bogus database: $database";
|
||||
usage $cmd; exit 1;;
|
||||
esac
|
||||
dbopt="-d $database"
|
||||
else
|
||||
database="user"
|
||||
fi
|
||||
|
||||
XCOMM if we are doing user (perhaps automatic) conversion. make
|
||||
XCOMM sure there is some conversion to do, otherwise we can bail out
|
||||
XCOMM early.
|
||||
|
||||
if [ "$database" = "user" ]; then
|
||||
if [ ! -f $HOME/.cetables/cetables ]; then
|
||||
XCOMM user doesn't even have a cetables, nothing to do
|
||||
nullit
|
||||
exit 0
|
||||
fi
|
||||
|
||||
ce_db_build user -to_ascii /tmp/ttce2xdr.ceascii.$$
|
||||
|
||||
if egrep -s "NS_NAME=SUN_TOOLTALK_TYPES" /tmp/ttce2xdr.ceascii.$$ ; then
|
||||
:
|
||||
else
|
||||
XCOMM user has cetables, but no ToolTalk types
|
||||
nullit
|
||||
exit 0
|
||||
fi
|
||||
|
||||
XCOMM Now, we know the user has a cetables with ToolTalk types. Now
|
||||
XCOMM check for a possible malformed cetables with no ToolTalk name
|
||||
XCOMM space definition.
|
||||
|
||||
if egrep -s '^NS_ATTR=$' /tmp/ttce2xdr.ceascii.$$ ; then
|
||||
|
||||
XCOMM The cetables exists, and has ToolTalk types, but
|
||||
XCOMM since the basic definitions in the network CE database
|
||||
XCOMM may be gone, we need to add them back in. Eventually
|
||||
XCOMM in a future release we should remove all ToolTalk info
|
||||
XCOMM from user's cetables.
|
||||
|
||||
ed /tmp/ttce2xdr.ceascii.$$ >/dev/null <<- 'EOF'
|
||||
/^NS_ATTR=$/d
|
||||
i
|
||||
NS_ATTR=((NS_MANAGER,string,<$CEPATH/tns_mgr.so>)
|
||||
)
|
||||
.
|
||||
/^NS_ENTRIES=/a
|
||||
(TYPE_NAME,string,<SUN_TOOLTALK::attrs>)
|
||||
(TYPE_NAME,string,<attr>)
|
||||
(TT_OP,string,<attr>)
|
||||
(TT_ARG,string,<attr>)
|
||||
(TT_SCOPE,string,<attr>)
|
||||
(TT_SCOPE,string,<attr>)
|
||||
(TT_DISPOSITION,string,<attr>)
|
||||
(TT_MSET_DISPOSITION,string,<attr>)
|
||||
(TT_MSET_OPNUM,string,<attr>)
|
||||
(TT_OPNUM,string,<attr>)
|
||||
(TT_MSET_HANDLER_PTYPE,string,<attr>)
|
||||
(TT_HANDLER_PTYPE,string,<attr>)
|
||||
(TT_MSET_OTYPE,string,<attr>)
|
||||
(TT_OTYPE,string,<attr>)
|
||||
(TT_PARENT,string,<attr>)
|
||||
(TT_OUT,string,<attr>)
|
||||
(TT_IN,string,<attr>)
|
||||
(TT_INOUT,string,<attr>)
|
||||
(TT_SESSION,string,<attr>)
|
||||
(TT_FILE,string,<attr>)
|
||||
(TT_BOTH,string,<attr>)
|
||||
(TT_FILE_IN_SESSION,string,<attr>)
|
||||
(TT_DISCARD,string,<attr>)
|
||||
(TT_QUEUE,string,<attr>)
|
||||
(TT_START,string,<attr>)
|
||||
(TT_CATEGORY,string,<attr>)
|
||||
(TT_OBSERVE,string,<attr>)
|
||||
(TT_HANDLE,string,<attr>)
|
||||
(TT_CLASS,string,<attr>)
|
||||
(TT_REQUEST,string,<attr>)
|
||||
(TT_NOTICE,string,<attr>)
|
||||
(SUN_TOOLTALK_TYPE,string,<attr>)
|
||||
(SUN_TOOLTALK_PTYPE,string,<attr>)
|
||||
(SUN_TOOLTALK_OTYPE,string,<attr>)
|
||||
(SUN_TOOLTALK_SIGNATURE,string,<attr>)
|
||||
.
|
||||
w
|
||||
q
|
||||
EOF
|
||||
ce_db_build user -from_ascii /tmp/ttce2xdr.ceascii.$$
|
||||
fi
|
||||
fi
|
||||
|
||||
|
||||
if [ $dryrun ]; then
|
||||
if [ $ow1 ]; then
|
||||
echo "OPENWINHOME=$ow1; export OPENWINHOME"
|
||||
fi
|
||||
echo "tt_type_comp -Eps $dbopt > /tmp/ttce2xdr.types.$$"
|
||||
if [ $ow2 ]; then
|
||||
echo "OPENWINHOME=$ow2; export OPENWINHOME"
|
||||
fi
|
||||
echo "tt_type_comp -Ms $dbopt /tmp/ttce2xdr.types.$$"
|
||||
else
|
||||
if [ $ow1 ]; then
|
||||
OPENWINHOME=$ow1
|
||||
export OPENWINHOME
|
||||
fi
|
||||
rm -f /tmp/ttce2xdr.types.$$
|
||||
if tt_type_comp -Eps $dbopt > /tmp/ttce2xdr.types.$$; then :; else
|
||||
XCOMM Conversion failed for some reason. If we're working on a
|
||||
XCOMM user database, we're probably doing an automatic conversion.
|
||||
XCOMM and there's no point in continuing to retry this every time.
|
||||
XCOMM Just touch the .tt/types.xdr file so auto conversion won't
|
||||
XCOMM keep getting run.
|
||||
|
||||
case $database in
|
||||
user)
|
||||
nullit
|
||||
exit 0
|
||||
;;
|
||||
|
||||
*)
|
||||
echo $cmd: could not read ToolTalk types from Classing Engine database.
|
||||
echo $cmd: there may not be any ToolTalk types in this database.
|
||||
exit 1
|
||||
;;
|
||||
esac
|
||||
fi
|
||||
if [ $ow2 ]; then
|
||||
OPENWINHOME=$ow2
|
||||
export OPENWINHOME
|
||||
fi
|
||||
if tt_type_comp -Ms $dbopt /tmp/ttce2xdr.types.$$; then :; else
|
||||
echo $cmd: could not compile types into XDR database.
|
||||
exit 1
|
||||
fi
|
||||
fi
|
||||
Reference in New Issue
Block a user