home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / WIN95 / INTERNET / h12395co.exe / data.1 / std.hei < prev    next >
Encoding:
Text File  |  1997-11-17  |  2.3 KB  |  51 lines
  1. //     Filename: std.hei version 1.0
  2. // Release date: March 3rd, 1997
  3. // 
  4. // (C) 1996-97 H.E.I. GmbH and suppliers all rights reseved
  5. // 
  6. // Redistribution and use in source and binary forms, with or without
  7. // modification, are permitted provided that the following conditions
  8. // are met:
  9. // 1. Redistributions of source code must retain the above copyright
  10. //    notice, this list of conditions and the following disclaimer.
  11. // 2. Redistributions in binary form must reproduce the above copyright
  12. //    notice, this list of conditions and the following disclaimer in the
  13. //    documentation and/or other materials provided with the distribution.
  14. // 3. Neither the name of H.E.I. GmbH nor the names of its contributors
  15. //    may be used to endorse or promote products derived from this software
  16. //    without specific prior written permission.
  17. // 4. The complete licensing conditions of heitml apply also to this file,
  18. //    be sure to have read and accepted these conditions before using this
  19. //    file. This file may be used and modified freely in conjunction with 
  20. //    a valid heitml license.
  21. // 
  22. // THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED
  23. // WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  24. // MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  25. // IN NO EVENT SHALL THE H.E.I. OR CONTRIBUTORS BE LIABLE FOR ANY
  26. // DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  27. // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
  28. // GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  29. // INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
  30. // IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  31. // OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
  32. // IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  33.  
  34.  
  35. // This file is outdated. Do not use it unless for compatibility purposes.
  36. // You can now display tuples simply using ?
  37.  
  38. // Display a tuple as a table 
  39. <def showtuple tuple;
  40.   if tuple==null > null <return; /if>
  41.   <table border <? default(tabformat)>>
  42.      <let i=0;
  43.       while i<len(tuple)>
  44.        <tr><th align=left> <? fname(tuple[i])> </th><td> <? tuple[i]> </td></tr>
  45.        <let i=i+1;
  46.       /while>
  47.    </table>
  48. </def>
  49.  
  50.  
  51.