From 94b1200cde6becefba4ee80469190284f74fe91c Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Fri, 20 Jun 2003 14:24:00 +0000
Subject: [PATCH] - script.sh added to the repository: you should change it to
 reflect your   own settings - the Makefile tries now to automatically build
 the styles directory, made   only of hyperlinks to the styles in stylesheets
 and stylesheets/generated.   Before doing make, you have to check out the
 stylesheets and meta_stylesheets   repositories from the mowgli archive. -
 added rootcontent.xsl which is the version used by gTopLevel until we find  
 a better solution. You should change it to reflect your own settings.

---
 helm/gTopLevel/.cvsignore      |   2 +-
 helm/gTopLevel/Makefile        |  14 ++++-
 helm/gTopLevel/rootcontent.xsl | 102 +++++++++++++++++++++++++++++++++
 helm/gTopLevel/script.sh       |  19 ++++++
 4 files changed, 134 insertions(+), 3 deletions(-)
 create mode 100644 helm/gTopLevel/rootcontent.xsl
 create mode 100755 helm/gTopLevel/script.sh

diff --git a/helm/gTopLevel/.cvsignore b/helm/gTopLevel/.cvsignore
index e3d42f17b..59f31a4b6 100644
--- a/helm/gTopLevel/.cvsignore
+++ b/helm/gTopLevel/.cvsignore
@@ -1 +1 @@
-*.cm[iox] gTopLevel gTopLevel.opt
+*.cm[iox] gTopLevel gTopLevel.opt styles stylesheets meta_stylesheets
diff --git a/helm/gTopLevel/Makefile b/helm/gTopLevel/Makefile
index fb62256ef..f7738091b 100644
--- a/helm/gTopLevel/Makefile
+++ b/helm/gTopLevel/Makefile
@@ -13,8 +13,8 @@ OCAMLDEP = ocamldep -pp camlp4o
 LIBRARIES = $(shell ocamlfind query -recursive -predicates "byte $(PREDICATES)" -format "%d/%a" $(REQUIRES))
 LIBRARIES_OPT = $(shell ocamlfind query -recursive -predicates "native $(PREDICATES)" -format "%d/%a" $(REQUIRES))
 
-all: gTopLevel
-opt: gTopLevel.opt
+all: styles gTopLevel
+opt: styles gTopLevel.opt
 
 DEPOBJS = \
 	xml2Gdome.ml xml2Gdome.mli proofEngine.ml proofEngine.mli \
@@ -34,6 +34,16 @@ TOPLEVELOBJS = \
 	termEditor.cmo texTermEditor.cmo applyStylesheets.cmo termViewer.cmo \
 	invokeTactics.cmo hbugs.cmo gTopLevel.cmo
 
+styles:
+	@echo "***********************************************************************"
+	@if [ -d stylesheets -a -d meta_stylesheets ] ; then echo -e "* stylesheets and metastylesheets found:                              *\\n* I will create the request hyperlinks in styles                      *" ; else echo -e "* stylesheets or meta_stylesheets not found:                          *\\n* you should check-out the two directories from the MoWGLI repository *" ; exit -1 ; fi
+	@echo "***********************************************************************"
+	mkdir styles
+	(cd stylesheets && for i in *.xsl ; do ln -s ../stylesheets/$$i ../styles/$$i ; done)
+	(cd stylesheets/generated && for i in *.xsl ; do ln -s ../stylesheets/generated/$$i ../../styles/$$i ; done)
+	rm styles/rootcontent.xsl
+	ln -s ../rootcontent.xsl styles/rootcontent.xsl
+
 depend:
 	$(OCAMLDEP) $(DEPOBJS) > .depend
 
diff --git a/helm/gTopLevel/rootcontent.xsl b/helm/gTopLevel/rootcontent.xsl
new file mode 100644
index 000000000..3adf8e223
--- /dev/null
+++ b/helm/gTopLevel/rootcontent.xsl
@@ -0,0 +1,102 @@
+<?xml version="1.0"?>
+
+<!-- Copyright (C) 2000, HELM Team                                     -->
+<!--                                                                   -->
+<!-- This file is part of HELM, an Hypertextual, Electronic            -->
+<!-- Library of Mathematics, developed at the Computer Science         -->
+<!-- Department, University of Bologna, Italy.                         -->
+<!--                                                                   -->
+<!-- HELM is free software; you can redistribute it and/or             -->
+<!-- modify it under the terms of the GNU General Public License       -->
+<!-- as published by the Free Software Foundation; either version 2    -->
+<!-- of the License, or (at your option) any later version.            -->
+<!--                                                                   -->
+<!-- HELM is distributed in the hope that it will be useful,           -->
+<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
+<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
+<!-- GNU General Public License for more details.                      -->
+<!--                                                                   -->
+<!-- You should have received a copy of the GNU General Public License -->
+<!-- along with HELM; if not, write to the Free Software               -->
+<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
+<!-- MA  02111-1307, USA.                                              -->
+<!--                                                                   -->
+<!-- For details, see the HELM World-Wide-Web page,                    -->
+<!-- http://cs.unibo.it/helm/.                                         -->
+
+<!--***********************************************************************--> 
+<!-- XSLT version 0.1 of the stylesheet to accomplish the right inclusion  -->
+<!-- of the content stylesheets:                                           -->
+<!-- First draft: May 26 2000, C.Sacerdoti Coen, I.Schena, F.Guidi         -->
+<!--***********************************************************************-->
+
+<!-- Schema of stylesheet precedences (from highest to lowest):          -->
+<!-- proofs.xsl-> reals.xsl-> set -> basic -> annotatedcont              -->
+<!-- because annotatedcont is imported and has lower precendence than    -->
+<!-- the templates of rootcontent (i.e. the templates of set and basic). -->
+<!-- annotatedcont -> objcontent -> content                              -->
+<!-- because annotatedcont generates an import precedence tree.          --> 
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+
+<!--******************************************************************-->
+<!-- Variablie containing the absolute path of the CIC file            -->
+<!--******************************************************************-->
+
+<xsl:import href="annotatedcont.xsl"/>
+<xsl:import href="links_library.xsl"/>
+<xsl:import href="getter.xsl"/>
+
+<xsl:param name="getterURL" select="'http://localhost:8081/'"/>
+<xsl:param name="processorURL" select="'http://localhost:8080/helm/servlet/uwobo/'"/>
+<xsl:param name="naturalLanguage" select="'yes'"/>
+<xsl:param name="annotations" select="'no'"/>
+<xsl:param name="CICURI" select="''"/>
+
+<!-- CSC: Wrong: we assume that no '.body' can appear in the middle of the URI -->
+<xsl:variable name="BaseCICURI">
+ <xsl:variable name="res" select="substring-before($CICURI,'.body')"/>
+ <xsl:choose>
+  <xsl:when test="$res = ''">
+   <xsl:value-of select="$CICURI"/>
+  </xsl:when>
+  <xsl:otherwise>
+   <xsl:value-of select="$res"/>
+  </xsl:otherwise>
+ </xsl:choose>
+</xsl:variable>
+
+<xsl:variable name="InnerTypesUri"><xsl:value-of select="concat($BaseCICURI,'.types')"/></xsl:variable>
+<!-- CSC: ?????????????????? -->
+<xsl:variable name="AnnotationsUri"><xsl:value-of select="concat($BaseCICURI,'.ann')"/></xsl:variable>
+
+<!--
+<xsl:variable name="InnerTypesUrl"><xsl:call-template name="makeURL4InnerTypes"><xsl:with-param name="uri" select="$InnerTypesUri"/></xsl:call-template></xsl:variable>
+-->
+<!--CSC: Qui, invece, accediamo direttamente al disco e non applichiamo dc -->
+<xsl:variable name="InnerTypesUrl" select="'file:///public/sacerdot/innertypes'"/>
+<!--CSC: Questa e' la versione originale che applica dc a quello che il getter<  restituisce.
+<xsl:variable name="ConstantTypeUrl"><xsl:call-template name="makeURL4InnerTypes"><xsl:with-param name="uri" select="$BaseCICURI"/></xsl:call-template></xsl:variable>
+-->
+<!--CSC: Qui, invece, accediamo direttamente al disco e non applichiamo dc -->
+<xsl:variable name="ConstantTypeUrl" select="'file:///public/sacerdot/constanttype'"/>
+<xsl:variable name="AnnotationsUrl"><xsl:call-template name="URLofURI4getter"><xsl:with-param name="uri" select="$AnnotationsUri"/></xsl:call-template></xsl:variable>
+
+
+<!-- WARNING: Using lazy evaluation: $CICURI.* may not exist, but -->
+<!-- document() is called only by need!!!                         -->
+<xsl:variable name="InnerTypes" select="document($InnerTypesUrl)"/>
+<xsl:variable name="CICAnnotations" select="document($AnnotationsUrl)"/> 
+
+<xsl:include href="headercontent.xsl"/>
+<xsl:include href="proofs.xsl"/>
+<xsl:variable name="showproof" select="0"/>
+</xsl:stylesheet>
+
+
+
+
+
+
+
+
diff --git a/helm/gTopLevel/script.sh b/helm/gTopLevel/script.sh
new file mode 100755
index 000000000..29dd0a396
--- /dev/null
+++ b/helm/gTopLevel/script.sh
@@ -0,0 +1,19 @@
+#!/bin/bash
+
+export OCAMLPATH=/projects/helm/galax/sources/natile-galax-0.1-alpha-installed/lib:/home/claudio/miohelm/helm/ocaml:/home/claudio/miohelm/helm:/home/claudio/miohelm/helm/hbugs/meta
+
+export HELM_ANNOTATIONS_DIR=/home/claudio/miohelm/objects
+export HELM_ANNOTATIONS_URL=file:///home/claudio/miohelm/objects
+#export HELM_GETTER_URL=http://mowgli.cs.unibo.it:58081/
+#export HELM_PROCESSOR_URL=http://mowgli.cs.unibo.it:58080/
+export HELM_GETTER_URL=http://localhost:58081/
+export HELM_PROCESSOR_URL=http://localhost:58080/
+
+export GTOPLEVEL_PROOFFILE=/public/sacerdot/currentproof
+export GTOPLEVEL_PROOFFILETYPE=/public/sacerdot/currentprooftype
+export GTOPLEVEL_INNERTYPESFILE=/public/sacerdot/innertypes
+export GTOPLEVEL_CONSTANTTYPEFILE=/public/sacerdot/constanttype
+export POSTGRESQL_CONNECTION_STRING="dbname=mowgli"
+#export POSTGRESQL_CONNECTION_STRING="host=mowgli.cs.unibo.it dbname=mowgli user=helm password=awH21Un"
+
+export HELM_TMP_DIR=/tmp
-- 
2.39.2