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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,f54aa8749b9f5c24
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-09-30 23:00:28 PST
Path: 
 archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!isdnet!news.internetia.pl!news.nask.pl!news.uar.net!carrier.kiev.ua!news.kiev.sovam.com!Svitonline.COM!not-for-mail
From: "Maxim Reznik" <max1@mbank.com.ua>
Newsgroups: comp.lang.ada
Subject: Re: Ada and OpenGL
Date: Mon, 1 Oct 2001 08:56:59 +0300
Organization: Svit Online (post does not reflect views of Golden Telecom)
Message-ID: <9p90ok$2l93$1@news.kiev.sovam.com>
References: <3BB4EB06.FCED0102@ida.his.se>
NNTP-Posting-Host: 212.109.37.91
X-Trace: news.kiev.sovam.com 1001916027 87331 212.109.37.91 (1 Oct 2001
 06:00:26 GMT)
X-Complaints-To: abuse@svitonline.com
NNTP-Posting-Date: 1 Oct 2001 06:00:26 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Xref: archiver1.google.com comp.lang.ada:13566
Date: 2001-10-01T06:00:26+00:00
List-Id: <comp.lang.ada>


"Michael Andersson" <a98mican@ida.his.se> wrote in message news:3BB4EB06.FCED0102@ida.his.se...
> Hi!
> Could somebody please show me how to use the glGetString function with
> Ada?
> I get Storage Error every time and I guess it has to do with illegal
> memory access.
>
> Thanks in advance!
> /Michael Andersson

I use this code:

with gl; use gl;
with glut; use glut;
with Interfaces.C.Strings; use Interfaces.C.Strings;
with Ada.Unchecked_Conversion;
with Text_IO; use Text_IO;

procedure GL_Test is

  function to_char_ptr
    is new Ada.Unchecked_Conversion( GLubytePtr, chars_ptr);

  procedure PrintInfo is
  begin
    Put("VENDOR=");
    put_Line( Value(
               to_char_ptr( glGetString( GL_VENDOR ) )));
  end;


  type chars_ptr_ptr is access Interfaces.C.Strings.chars_ptr;


  argc : aliased integer;
  pragma Import (C, argc, "gnat_argc");

  argv : chars_ptr_ptr;
  pragma Import (C, argv, "gnat_argv");


    win: Integer;
  begin

     glutInitDisplayMode(GLUT_RGB or GLUT_DEPTH or GLUT_DOUBLE);
     glutInit (argc'access, argv);
     win:=glutCreateWindow("test 1");
     PrintInfo;

end;