From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,755ce0a4c5b84f4e,start
X-Google-Attributes: gid103376,public
From: Dale Stanbrough <dale@goanna.cs.rmit.edu.au>
Subject: HTML/CGI packages available...
Date: 1997/06/13
Message-ID: <5nqted$cst$1@goanna.cs.rmit.edu.au>#1/1
X-Deja-AN: 248072157
Distribution: world
X-XXMessage-ID: <AFC735FB35011035@sambar.cs.rmit.edu.au>
Organization: RMIT, Melbourne, Australia
Newsgroups: comp.lang.ada
Date: 1997-06-13T00:00:00+00:00
List-Id: <comp.lang.ada>


A few (very) simple packages that output html source code are available at

	http://www.cs.rmit.edu.au/~dale/cgi/index.html

These allow you to create Web pages from within a Ada program, without
having lots of ugly HTML syntax dirtying up your pretty source code.

An example use...


with Ada.Text_IO; use Ada.Text_IO;
with HTML;        use HTML;
with HTML.Tables; use HTML.Tables;

procedure Tables is

begin
   Table;
      Row;
         Detail;
            Put ("Row 1, Col 1");
         Detail;
            Put ("Row 1, Col 2");
            
         Detail_End;
      Row_End;
      
      Row (ColSpan => 2, Align => Center);
         Detail;
             Anchor ("http://www.adahome.com");
             Put ("Full 'o Stuff");
             Anchor_End;
      Row_End;
   Table_End;
   
end Tables;


Let me know if you find it useful...

Dale