home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / WIN95 / INTERNET / h12395co.exe / data.1 / stdlay.hei < prev    next >
Encoding:
Text File  |  1997-11-17  |  4.8 KB  |  128 lines
  1. <includeonce
  2. // (C) 1996-97 H.E.I. GmbH and suppliers all rights reseved
  3. // 
  4. // Redistribution and use in source and binary forms, with or without
  5. // modification, are permitted provided that the following conditions
  6. // are met:
  7. // 1. Redistributions of source code must retain the above copyright
  8. //    notice, this list of conditions and the following disclaimer.
  9. // 2. Redistributions in binary form must reproduce the above copyright
  10. //    notice, this list of conditions and the following disclaimer in the
  11. //    documentation and/or other materials provided with the distribution.
  12. // 3. Neither the name of H.E.I. GmbH nor the names of its contributors
  13. //    may be used to endorse or promote products derived from this software
  14. //    without specific prior written permission.
  15. // 4. The complete licensing conditions of heitml apply also to this file,
  16. //    be sure to have read and accepted these conditions before using this
  17. //    file. This file may be used and modified freely in conjunction with 
  18. //    a valid heitml license.
  19. // 
  20. // THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED
  21. // WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  22. // MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  23. // IN NO EVENT SHALL THE H.E.I. OR CONTRIBUTORS BE LIABLE FOR ANY
  24. // DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  25. // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
  26. // GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  27. // INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
  28. // IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  29. // OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
  30. // IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  31.  
  32. /***********************************************************************
  33.  Procedure: signheitml
  34.     Author: Helmut Emmelmann
  35.    Purpose: Prints a message and generates a link to the
  36.             heitml Homepage.
  37.  **********************************************************************/
  38. def signheitml> 
  39. This page was dynamically generated by
  40. <a href=http://www.heitml.com/> <b>h<i>ei</i>tml</b>  </a>
  41. </def;
  42. /***********************************************************************
  43.   Defined Tag: mheitml
  44.        Author:  Helmut Emmelmann
  45.       Purpose:  Defines the appearance heitml product name.
  46.  **********************************************************************/
  47. def mheitml><font color="red"><b>h</b><i>ei</i><b>tml</b></font></def;
  48.  
  49.  
  50. /***********************************************************************
  51.  Environment: stdpage
  52.      Purpose:  Sets up the standard layout 
  53.  **********************************************************************/
  54.  
  55. def stdtitle title><TITLE><? title html></TITLE></def;
  56. def stdhead></def;
  57. def stdHeading></def;
  58. def stdFooting></def;
  59. def stdFrameHeading></def;
  60. def stdFrameFooting></def;
  61. def stdIncHeading></def;
  62. def stdIncFooting></def;
  63.  
  64. defenv stdNormalPage><stdHeading><defbody><stdFooting></defenv
  65. defenv stdFramePage><stdFrameHeading><defbody><stdFrameFooting></defenv
  66. defenv stdIncPage><stdIncHeading><defbody><stdIncFooting></defenv
  67.  
  68. if !isdecl(se.start);
  69.    defenv session; defbody; /defenv;       // do nothing 
  70.    defenv sa href=SrvLocalUrl par=null urlpar=null target=null;
  71.      > <a href="<? href>?<
  72.     ? ff.card "&%UDn"; ? ff.step "&%UDn";
  73.     if !isnull(par) >&< ? par "UDn"; /if;
  74.     if !isnull(ff.s) >&< ? ff.s "UDnt"; /if;
  75.     ? urlpar "&%AD";>" <
  76.     ? target "PDn">><defbody></a><
  77.    /defenv;
  78.    def sessionurl;
  79.     ? ff.card "&%UDn"; ? ff.step "&%UDn" >&< ? ff.s "UDnt";
  80.    /def;
  81.    def sessionhidden;
  82.     ? ff.card "FDNvh"; ? ff.step "FDNvh"; ? ff.s "FDth"; 
  83.    /def;
  84. /if;
  85.  
  86.  
  87. def stdParam background=null bgcolor=null text=null link=null
  88.              alink=null vlink=null;
  89.   gl.stdlay = default(gl.stdlay,emptytuple);
  90.  
  91.   if !isnull(background); gl.stdlay.background = background; /if;
  92.   if !isnull(bgcolor); gl.stdlay.bgcolor =bgcolor;/if;
  93.   if !isnull(text); gl.stdlay.text = text;/if;
  94.   if !isnull(link); gl.stdlay.link = link;/if;
  95.   if !isnull(alink); gl.stdlay.alink = alink;/if;
  96.   if !isnull(vlink); gl.stdlay.vlink = vlink;/if;
  97. /def; 
  98.  
  99.  
  100. defenv stdpage title par=null;
  101.   s = default(gl.stdlay,emptytuple); gl.stdlay=s;
  102.   if isempty(s.title);             // we are called outside
  103.     s.title = title>
  104. <HTML>
  105. <HEAD>
  106. <stdhead>
  107. <stdtitle title>
  108. </HEAD>
  109. <BODY < ? s.bgcolor "PDn"; ?s.background "PDn"; ? s.text "PDn";
  110.     ? s.link "PDn"; ?s.alink "PDn"; ?s.vlink "PDn" >>
  111. <if isempty(ff.s.inframe);  
  112.     s.kind=null;
  113.     stdNormalPage par=par; defbody; /stdNormalPage;
  114.  else
  115.     s.kind="frame";
  116.     stdFramePage par=par; defbody; /stdFramePage;
  117.  /if>
  118. </BODY>
  119. </HTML>
  120.   <else   // we are already processing a page, so we are called inside
  121.    s.kind="inc"; 
  122.    stdIncPage par=par; defbody; /stdIncPage;
  123.   /if;
  124. /defenv;
  125.  
  126. if isempty(ff.s); ff.s=emptytuple; /if;
  127. >
  128.