Received: from id.godlike.com (id.godlike.com [206.205.199.129])
	by hub.org (8.9.1/8.9.1) with ESMTP id MAA21465
	for <pgsql-interfaces@hub.org>; Sun, 15 Nov 1998 12:24:58 -0500 (EST)
	(envelope-from taral@cyberjunkie.com)
Received: from taral ([208.247.20.138])
	by id.godlike.com (8.8.5/8.8.5) with SMTP id MAA23312
	for <pgsql-interfaces@hub.org>; Sun, 15 Nov 1998 12:24:56 -0500 (EST)
From: "Taral" <taral@cyberjunkie.com>
To: <pgsql-interfaces@hub.org>
Subject: IDL :)
Date: Sun, 15 Nov 1998 11:24:56 -0600
Message-ID: <000101be10bc$dd2c0be0$8a14f7d0@taral.dobiecenter.com>
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook 8.5, Build 4.71.2173.0
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3155.0
Importance: Normal

Well... SOMEONE comment on this! It's what I've got so far:

Taral

--- cut here ---

module PostgreSQL {
    enum celltype {
        int2,
        int4,
        int8

        // more types
    };

    typedef short int2type;
    typedef sequence<int2type> int2col;
    typedef long int4type;
    typedef sequence<int4type> int4col;
    struct int8type {
        long lsw;
        long msw;
    };
    typedef sequence<int8type> int8col;

    union Column switch (celltype) {
      case int2:
        int2col int2var;
      case int4:
        int4col int4var;
      case int8:
        int8col int8var;

      // more types
    };

    union Cell switch (celltype) {
      case int2:
        int2type int2var;
      case int4:
        int4type int4var;
      case int8:
        int8type int8var;

      // more types
    };

    interface Row {
        typedef sequence<Cell> type;
        attribute type data; // throws system exception on set until BE
supports this
    };

    interface QueryResult {
        typedef sequence<Column> type;
        typedef sequence<string> headerType;

        readonly attribute headerType header;
        attribute type data; // throws system exception on set until
implemented

        Row fetch(in long rownum); // returns nil until implemented
    };

    interface Database {
        QueryResult exec(in string query);
    };
};