cocor_ada: Sets, FileIO?

cocor_ada: Sets, FileIO?

[hreba]

Hi,

I am familiarizing with Coco/R. I installed it (and Florist) and I am 
able to generate a scanner and a parser. They contain the lines
-----------------------------------------------------------------
with  Sets;
with  FileIO;
-----------------------------------------------------------------
Does anybody know were I find these packages?

The scanner package has the line
-----------------------------------------------------------------
  Source   : aliased FileIO.File;  -- source/list files. To be opened by 
the main pgm
-----------------------------------------------------------------
I guess FileIO exports a constructor and I have to do something like
-----------------------------------------------------------------
My_Scanner.Source:= FileIO.New_File ("my_input_file.xyz");
-----------------------------------------------------------------
Correct?

-- 
Frank Hrebabetzky		+49 / 6355 / 989 5070

Re: cocor_ada: Sets, FileIO?

[p.p11]

Hello,

Where do you get the code?

Pascal.

Le vendredi 29 juillet 2016 16:40:19 UTC+2, hreba a écrit :
> Hi,
> 
> I am familiarizing with Coco/R. I installed it (and Florist) and I am 
> able to generate a scanner and a parser. They contain the lines
> -----------------------------------------------------------------
> with  Sets;
> with  FileIO;
> -----------------------------------------------------------------
> Does anybody know were I find these packages?
> 
> The scanner package has the line
> -----------------------------------------------------------------
>   Source   : aliased FileIO.File;  -- source/list files. To be opened by 
> the main pgm
> -----------------------------------------------------------------
> I guess FileIO exports a constructor and I have to do something like
> -----------------------------------------------------------------
> My_Scanner.Source:= FileIO.New_File ("my_input_file.xyz");
> -----------------------------------------------------------------
> Correct?
> 
> -- 
> Frank Hrebabetzky		+49 / 6355 / 989 5070

Re: cocor_ada: Sets, FileIO?

[hreba]

Searching the web I found an entry www.ada-ru.org
which is a link to
http://www.ada-ru.org/files/cocor_ada-1.53.1.tar.gz

This is the package I installed.

On 08/02/2016 08:51 PM, p.p11@orange.fr wrote:
> Hello,
>
> Where do you get the code?
>
> Pascal.
>
> Le vendredi 29 juillet 2016 16:40:19 UTC+2, hreba a écrit :
>> Hi,
>>
>> I am familiarizing with Coco/R. I installed it (and Florist) and I am
>> able to generate a scanner and a parser. They contain the lines
>> -----------------------------------------------------------------
>> with  Sets;
>> with  FileIO;
>> -----------------------------------------------------------------
>> Does anybody know were I find these packages?
>>
>> The scanner package has the line
>> -----------------------------------------------------------------
>>    Source   : aliased FileIO.File;  -- source/list files. To be opened by
>> the main pgm
>> -----------------------------------------------------------------
>> I guess FileIO exports a constructor and I have to do something like
>> -----------------------------------------------------------------
>> My_Scanner.Source:= FileIO.New_File ("my_input_file.xyz");
>> -----------------------------------------------------------------
>> Correct?
>>
>> --
>> Frank Hrebabetzky		+49 / 6355 / 989 5070
>


-- 
Frank Hrebabetzky		+49 / 6355 / 989 5070

Re: cocor_ada: Sets, FileIO?

[p.p11]

Hello Frank,

Sets and FileIO packages depend on a Posix Ada Library like Florist.

For MacOS I propose prebuilt libraries XAdaLib on:
https://sourceforge.net/projects/gnuada/files/GNAT_GPL%20Mac%20OS%20X/2015-mavericks/

Then you may go further with a very simple GNAT acr.gpr project file:
with "florist";
project ACR is
   for Main use ("cr.adb");
   package Builder is
      for Executable ("cr.adb") use "acr";
   end Builder;
end ACR;

Then:
$ gprbuild -P acr.gpr -aP /usr/local/xnadalib-2016/share/gpr
gcc -c fileio.adb
fileio.adb:529:16: warning: index for "ext" may assume lower bound of 1
fileio.adb:529:16: warning: suggested replacement: "ext'First"
fileio.adb:529:42: warning: index for "ext" may assume lower bound of 1
fileio.adb:529:42: warning: suggested replacement: "ext'First"
gcc -c sets.adb
gprbind cr.bexch
gnatbind cr.ali
gcc -c b__cr.adb
gcc cr.o -o acr
$ ./acr
Coco/R (Linux) - Compiler-Compiler V-1.53.1
Released by O.Havva 11 January 2005
Input Grammar_Name not present
COCOR ? gives short help screen

What language do you plan to process with Coco/R?

HTH, Pascal.

Le mercredi 3 août 2016 10:28:36 UTC+2, hreba a écrit :
> Searching the web I found an entry www.ada-ru.org
> which is a link to
> http://www.ada-ru.org/files/cocor_ada-1.53.1.tar.gz
> 
> This is the package I installed.
>

Re: cocor_ada: Sets, FileIO?

[hreba]

Hi Pascal,

acr was already installed and working, but the generated scanner and 
parser needed the packages Sets and FileIO which I searched in Florist, 
but not in Coco/R. With your help I found them, included them in my 
project and it works. The first simple test is

with FileIO;
with File_ReaderS;	-- generated with acr
with File_ReaderP;	-- generated with acr

procedure Test_Coco is
begin
    FileIO.Open (File_ReaderS.Source, "sos-file.atg", false);
    File_ReaderP.Parse;
end Test_Coco;

The "language" just describes a structured parameter file. I am working 
on a ray tracer for lens systems. With Coco/R I want to generate a file 
reader which constructs or initializes my lens data structure from a 
parameter file.

Thanks for your help,
-- 
Frank Hrebabetzky		+49 / 6355 / 989 5070

Re: cocor_ada: Sets, FileIO?

[hreba]

Hi Pascal,

working on a little bit I see that my built doesn't work as well as 
expected. So I am rebuilding coco/r following your hints. I am stuck at 
the last step:

 > gcc cr.o -o acr

I get a large number of "undefined reference errors", starting with

/usr/lib/x86_64-linux-gnu/crt1.o: In function `_start':
(.text+0x20): undefined reference to `main'
cr.o: In function `_ada_cr':
cr.adb:(.text+0xae): undefined reference to `fileio__write_string'
cr.adb:(.text+0xd9): undefined reference to `fileio__write_string'
cr.adb:(.text+0xe3): undefined reference to `fileio__write_ln'
cr.adb:(.text+0x10e): undefined reference to `fileio__write_string'
...

I see that the missing functions are in the object files in the current 
directory (fileio.o, crt.o, ...) but I don't know how to include them in 
gcc. Any hint?
-- 
Frank Hrebabetzky		+49 / 6355 / 989 5070

Re: cocor_ada: Sets, FileIO?

[Simon Wright]

hreba <f_hreba@yahoo.com.br> writes:

> I am stuck
> at the last step:
>
>> gcc cr.o -o acr
>
> I get a large number of "undefined reference errors", starting with
>
> /usr/lib/x86_64-linux-gnu/crt1.o: In function `_start':
> (.text+0x20): undefined reference to `main'
> cr.o: In function `_ada_cr':

The problem is that gprbuild (which Pascal was using) can be very
misleading about the command lines it actually issues.

So when Pascal said

$ gprbuild -P acr.gpr -aP /usr/local/xnadalib-2016/share/gpr
gcc -c fileio.adb
fileio.adb:529:16: warning: index for "ext" may assume lower bound of 1
fileio.adb:529:16: warning: suggested replacement: "ext'First"
fileio.adb:529:42: warning: index for "ext" may assume lower bound of 1
fileio.adb:529:42: warning: suggested replacement: "ext'First"
gcc -c sets.adb
gprbind cr.bexch
gnatbind cr.ali
gcc -c b__cr.adb
gcc cr.o -o acr

all those lines are just a hint of what was actually going on; you need
to call gprbuild to manage the process.