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=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,6ec0e822a8924768
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1994-10-19 18:51:09 PST
Path: 
 bga.com!news.sprintlink.net!howland.reston.ans.net!vixen.cso.uiuc.edu!sparc53.cs.uiuc.edu!mmcnett
From: mmcnett@sparc53.cs.uiuc.edu (mcnett michael david)
Newsgroups: comp.lang.ada
Subject: C-Ada Import of struct's -- Help
Date: 18 Oct 94 03:34:16 GMT
Organization: University of Illinois at Urbana
Message-ID: <mmcnett.782451256@sparc53.cs.uiuc.edu>
NNTP-Posting-Host: sparc53.cs.uiuc.edu
Date: 1994-10-18T03:34:16+00:00
List-Id: <comp.lang.ada>


I am having a problem on how to implement the following C structure in
Ada.  The problem is I need to interface into a C procedure by passing
it this structure so that it may update the information contained within
it.  It will then return any changes made to the structure.  Much of 
the code in the C routine depends on this structure and I don't want to
make changes to the procedure since many other routines also depend on
the struct.


C-structure:

struct queue_noncyc_s {
    char *debugname;	      /* name for debugging purposes */
    int length;		      /* length (max items+1) of queue */
    int first, last;	      /* begin and end of queue */
    Qitem *entries;	      /* array[length] of entries */
};


Ada Code:
procedure DDInitDisk (????????????); -- want to pass in the queue struct
pragma IMPORT (C, DDInitDisk, "DDInitDisk");

Thanks in advance,

______________________________________________________________
Michael McNett               |
Graduate Student             |
University of Illinois       |
mmcnett@uiuc                 |