/usr/share/viewmol/writetm is in viewmol 2.4.1-23.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | #! /bin/sh
#*******************************************************************************
# *
# Viewmol *
# *
# W R I T E T M *
# *
# Copyright (c) Joerg-R. Hill, October 2003 *
# *
#*******************************************************************************
#
# $Id: writetm,v 1.5 2003/11/07 12:59:07 jrh Exp $
# $Log: writetm,v $
# Revision 1.5 2003/11/07 12:59:07 jrh
# Release 2.4
#
# Revision 1.4 2000/12/10 15:19:25 jrh
# Release 2.3
#
# Revision 1.3 1999/05/24 01:28:05 jrh
# Release 2.2.1
#
# Revision 1.2 1999/02/07 22:00:18 jrh
# Release 2.2
#
# Revision 1.1 1998/01/26 00:35:39 jrh
# Initial revision
#
#
case `uname -s` in
SunOS*) AWK=nawk
;;
IRIX*) AWK=nawk
;;
*) AWK=awk
;;
esac
export LANG="C"
cat | $AWK 'BEGIN {printf("$coord\n");}
/^\$/ {readcoord=0;}
{if (readcoord == 1) print $0;}
/^\$coord/ {readcoord=1;}
END {printf("$end\n");}' > "$1"
|