#!/bin/sh # Name: pc_xmlexport # Author: Antony Mee (A.J.Mee@ncl.ac.uk) # Started: 04-Aug-2005 # CVS: $Id$ # Usage: # Hello # History: # 23-jun-05/tony: Created # IAM=$0 . $PENCIL_HOME/lib/sh/functions.sh buildtime () { if [ -f .buildtime ]; then cat .buildtime else echo "<buildtime></buildtime>" fi } variable () { varname=$1 [ "$varname" ] || exit 1 eval "setting=\$$varname" echo "<var name=\"${varname}\">${setting}</var>" } module () { module_name="$1" [ "$module_name" ] || exit 1 eval "module_setting=\$$module_name" if [ -f "${module_setting}.f90" ]; then module_source="${module_setting}.f90" elif [ -f "${module_setting}.f" ]; then module_source="${module_setting}.f" elif [ -f "${module_setting}.c" ]; then module_source="${module_setting}.c" else module_source="" fi # if [ -f "$module_source" ]; then # cvs_get_status $module_source # fi echo "<module name=\"$module_name\" option=\"$module_setting\">" echo "<source>$module_source</source>'" # echo "<vc_status>$cvs_status</vc_status>'" # echo "<vc_info>$cvs_repository_version</vc_info>'" echo "</module>'" } rundirinfo () { restorecwd=`pwd` [ -f Makefile.src ] || [ ! -d scripts ] && cd .. if [ ! -f start.in ] || [ ! -f run.in ]; then cd $restorecwd return fi echo "<rundirinfo>" if [ -d CVS ]; then echo "<path>`pwd`</path>" echo "<vc_root>`cat CVS/Root`</vc_root>" echo "<vc_path>`cat CVS/Repository`</vc_path>" fi echo "</rundirinfo>" cd $restorecwd } buildinfo () { cat <<EOF <?xml version="1.0" encoding="utf-8"?> <buildinfo version="0.1" xmlns:media="http://www.nordita.dk/software/pencil-code/buildinfo"> <timestamp>`date`</timestamp> <buildhost> <hostname>`hostname`</hostname> <os>`uname -s`</os> <osrelease>`uname -r`</osrelease> <user>$USER</user> <uptime>`uptime`</uptime> </buildhost> `buildtime` <makeinfo> `variable FC` `variable F77` `variable F90` `variable FFLAGS` `variable F90FLAGS` `variable F77FLAGS` `variable FFLAGS_GENERAL` `variable CFLAGS_GENERAL` `variable LDMPI` `variable LDONLYFLAGS` </makeinfo> `rundirinfo` <moduleinfo> `module MPICOMM` `module GLOBAL` `module GRID` `module IO` `module FFT` `module FFTPACK` `module POWER` `module DEBUG` `module HYDRO` `module VISCOSITY` `module DENSITY` `module ENTROPY` `module MAGNETIC` `module RADIATION` `module PSCALAR` `module CHIRAL` `module DUSTVELOCITY` `module DUSTDENSITY` `module INTERSTELLAR` `module COSMICRAY` `module COSMICRAYFLUX` `module EOS` `module STRUCT_FUNC` `module INITCOND_SPEC` `module SHOCK` `module TESTFIELD` `module TESTFLOW` `module TESTPERTURB` `module GRAVITY` `module FORCING` `module SHEAR` `module TIMEAVG` `module SPECIAL` `module PARTICLES` `module PARTICLES_SUB` `module PARTICLES_MAIN` `module PARTICLES_RADIUS` `module SHOCK_PROFILE` `module SHOCK_FINDER` </moduleinfo> </buildinfo> EOF # <link>http://www.flickr.com/photos/onlymee/</link> # <description>A feed of onlymee's Photos</description> # <pubDate>Mon, 8 Aug 2005 10:01:22 -0700</pubDate> # <lastBuildDate>Mon, 8 Aug 2005 10:01:22 -0700</lastBuildDate> # # <generator>http://www.flickr.com/</generator> # <image> # <url>http://www.flickr.com/images/buddyicon.jpg?32025003@N00</url> # <title>onlymee's Photos</title> # <link>http://www.flickr.com/photos/onlymee/</link> # </image> # # <item> # <title>img_1912.jpg</title> # <link>http://www.flickr.com/photos/onlymee/32324192/</link> # <description><p><a href="http://www.flickr.com/people/onlymee/">onlymee</a> posted a photo:</p> # #<p><a href="http://www.flickr.com/photos/onlymee/32324192/" title="img_1912.jpg"><img src="http://photos21.flickr.com/32324192_55247dc614_m.jpg" width="180" height="240" alt="img_1912.jpg" style="border: 1px solid #000000;" /></a></p> # #</description> # <pubDate>Mon, 8 Aug 2005 10:01:22 -0700</pubDate> # <author>nobody@flickr.com (onlymee)</author> # <guid isPermaLink="false">tag:flickr.com,2004:/photo/32324192</guid> # <media:content url="http://photos21.flickr.com/32324192_55247dc614_o.jpg" # type="image/jpeg" # height="2592" # width="1944"/> # <media:title>img_1912.jpg</media:title> # <media:text type="html"><p><a href="http://www.flickr.com/people/onlymee/">onlymee</a> posted a photo:</p> # #<p><a href="http://www.flickr.com/photos/onlymee/32324192/" title="img_1912.jpg"><img src="http://photos21.flickr.com/32324192_55247dc614_m.jpg" width="180" height="240" alt="img_1912.jpg" style="border: 1px solid #000000;" /></a></p> # #</media:text> # <media:thumbnail url="http://photos21.flickr.com/32324192_55247dc614_s.jpg" height="75" width="75" /> # <media:credit role="photographer">onlymee</media:credit> # <media:category scheme="urn:flickr:tags">blythmaritimefestival2005 nest2005</media:category> # # </item> } [ $# -gt 0 ] || (usage_from_header $IAM; exit 1) while [ $# -gt 0 ] do case $1 in -e) eval "$2" shift ;; -h) usage_from_header $IAM exit 1 ;; -?) usage_from_header $IAM exit 1 ;; --help) usage_from_header $IAM exit 1 ;; buildinfo) flag_buildinfo=1 ;; --) shift break ;; *) echo UNRECOGNISED PARAMETER usage_from_header $IAM exit 1 ;; esac shift done [ $flag_buildinfo ] && buildinfo