Discussion :

[Invité]

Bonjour,

Je voudrais faire une bibliothèque statique avec une partition passive partagée et l'exporter pour le C.
Comment m'y prendre ? Est- ce possible ; Si non en dynamique ?

C'est pour ce projet : http://manlight.systemc/Genetic

A part écrire le service dans la bibliothèque ?

S'il vous plaît ?

[Invité]

Re- bonjour,

j'ai considérablement reculer.

J'ai réduit mon paquet racine à rien et le paquet enfant je l'ai remplacé par un paquet utilisateur quasiment vide :

racine

Code ada :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
package Gene is
   pragma Shared_Passive(Gene);
 
   type Gene_Type is (Iso, Endo, Exo);      
end Gene;

Code ada :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
with Gene;
use Gene;
with Ada.Text_Io;
use Ada;
with Interfaces.C;
use Interfaces;
package Genetic is
 
   procedure Genesis(New_Gene   : C.Char;
                     Total_Gene : C.Char;
                     List_Mode  : C.Char);
 
   pragma Export (C, Genesis, "genesis");
 
end Genetic;

Code ada :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
package body Genetic is
 
   procedure Genesis(New_Gene   : C.Char;
                     Total_Gene : C.Char;
                     List_Mode  : C.Char) is
   begin
 
      Text_Io.Put(Boolean'Image(Boolean'Val(C.Char'Pos(New_Gene))));
      Text_Io.Put(Boolean'Image(Boolean'Val(C.Char'Pos(Total_Gene))));
      Text_Io.Put(Boolean'Image(Boolean'Val(C.Char'Pos(List_Mode))));
 
 
   end Genesis;
end Genetic;

Le header C

Code C :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
/* gene_genetic.h */
#include <stdbool.h>
extern void genesis (bool new_gene, bool total_gene, bool list_mode);

Le main C

Code C :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
#include <stdbool.h>
#include "./gene_genetic.h"
 
int main (int argc, char *argv[])
{        
  genesis(true, false, false);    
  return 0;
}

Le Makefile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
.PHONY: cgenesis gene genetic
 
gene:
        gnatmake -c gene.ads  -aIlib
        gnatbind -Lmygene gene 
        ar cr libmygene.a gene.o
        gcc -shared -o libgene.so gene.o  
 
 
genetic:
        gnatmake -c genetic.adb  -aIlib
        gnatbind -C -Lmygenetic genetic 
        ar cr libmygenetic.a genetic.o gene.o
        gcc -shared -o libgenetic.so gene.o genetic.o
 
cgenesis:
        gcc main.c -L. -o cgenesis -lgene -lgenetic -lgnat
 
clean:
        rm *.ali *.o b~*
mrproper: 
        rm *~ *.so *.a main.c

Le résulta de compilation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
manuel@eden:~/2015Projects/Ada/Test$ ls
gene.ads  gene_genetic.h  genetic.adb  genetic.ads  main.c  Makefile
manuel@eden:~/2015Projects/Ada/Test$ make gene && make genetic && make cgenesis
gnatmake -c gene.ads  -aIlib
gcc-4.6 -c -Ilib gene.ads
gnatbind -Lmygene gene 
ar cr libmygene.a gene.o
gcc -shared -o libgene.so gene.o  
gnatmake -c genetic.adb  -aIlib
gcc-4.6 -c -Ilib genetic.adb
gnatbind -C -Lmygenetic genetic 
warning: gnatbind switch -C is obsolescent
ar cr libmygenetic.a genetic.o gene.o
gcc -shared -o libgenetic.so gene.o genetic.o
gcc main.c -L. -o cgenesis -lgene -lgenetic -lgnat
manuel@eden:~/2015Projects/Ada/Test$ ls
b~gene.adb  b_genetic.c  gene.ads  gene_genetic.h  genetic.adb  genetic.ali  libgene.so     libmygene.a     main.c
b~gene.ads  cgenesis     gene.ali  gene.o          genetic.ads  genetic.o    libgenetic.so  libmygenetic.a  Makefile

Exécution :

manuel@eden:~/2015Projects/Ada/Test$ ./cgenesis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Erreur de segmentation
manuel@eden:~/2015Projects/Ada/Test$

Avec le projet complet, même résulta.

Merci pour vos réponse et votre investissement.

[Invité]

J'en suis arrivé au minimum.
J'ai supprimé l'affichage et ça fonctionne, mais non quoi !

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
.PHONY: gene genetic cgenesis
 
all: gene genetic cgenesis
 
gene:
        gcc-4.6 -c -g -O2 gene.adb
        gcc-4.6 -c -g -O2 genetic.adb
        gcc-4.6 -c -g -O2 adamain.adb
        gnatmake adamain.adb
        rm adamain.o adamain.ali
        gnatbind -n -Lgene gene
        ar rc gene.a gene.o
        gcc -shared -o libgene.so *.o
 
 
genetic:
        gnatbind -n -Lgenetic genetic
        gnatmake -c genetic.adb
        ar cr genetic.a genetic.o gene.o
        gcc -shared -o libgenetic.so *.o
 
 
cgenesis:
        gcc-4.6 -c main.c
        gnatbind gene.ali genetic.ali -o b__main.adb -n
        gcc-4.6 -c b__main.adb -lgnat-4.6 \
        -L. -L/usr/lib/gcc/i486-linux-gnu/4.6/adalib/ \
        -shared -shared-libgcc
        ar cr libdefault.a *.o
        ranlib libdefault.a
        gcc-4.6 main.o -o cgenesis -lgnat-4.6 \
        -L. -L/usr/lib/gcc/i486-linux-gnu/4.6/adalib/ \
        -shared -shared-libgcc