Paris8/iaj
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

format

Browse source
This commit is contained in:
Mylloon 2023-02-01 10:19:02 +01:00
parent d0aeb6abd7
commit 887b7098bc
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
7 changed files with 19 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
TP1/Prolog/AidesCPP/1.cpp
View file

@ -1,5 +1,5 @@
#include <cstdio>
#include <SWI-Prolog.h> #include <SWI-Prolog.h>
#include <cstdio>
// après avoir installé swi-prolog (et peut être aussi swi-prolog-devel) // après avoir installé swi-prolog (et peut être aussi swi-prolog-devel)
// pour pouvoir appeler Prolog à partir du C/C++ // pour pouvoir appeler Prolog à partir du C/C++
@ -10,9 +10,10 @@
// pkg-config swipl --libs // pkg-config swipl --libs
// et selon les paramètres précédents, pour compiler // et selon les paramètres précédents, pour compiler
// g++ 1.cpp -I /opt/local/lib/swipl/include -L/opt/local/lib/swipl/lib/arm64-darwin -lswipl // g++ 1.cpp -I /opt/local/lib/swipl/include
// -L/opt/local/lib/swipl/lib/arm64-darwin -lswipl
int main(int _ac, char** _av) { int main(int _ac, char **_av) {
PL_initialise(_ac, _av); PL_initialise(_ac, _av);
printf("ok\n"); printf("ok\n");
return 0; return 0;

6
TP1/Prolog/AidesCPP/2.cpp
View file

@ -1,15 +1,15 @@
#include <cstdio>
#include <SWI-cpp.h> #include <SWI-cpp.h>
#include <cstdio>
// swipl-ld -ld g++ -goal true 2.cpp 2-f.pl // swipl-ld -ld g++ -goal true 2.cpp 2-f.pl
// attention, recompile nécessaire si 2-f.pl change // attention, recompile nécessaire si 2-f.pl change
int main(int _ac, char** _av) { int main(int _ac, char **_av) {
PL_initialise(_ac, _av); PL_initialise(_ac, _av);
PlTermv pl_args2(1); PlTermv pl_args2(1);
PlQuery q0("f", pl_args2); PlQuery q0("f", pl_args2);
while( q0.next_solution()) { while (q0.next_solution()) {
printf("---> %s\n", (char *)pl_args2[0]); printf("---> %s\n", (char *)pl_args2[0]);
} }

9
TP1/Prolog/AidesCPP/3.cpp
View file

@ -1,11 +1,12 @@
#include <cstdio>
#include <SWI-cpp.h> #include <SWI-cpp.h>
#include <cstdio>
// swipl-ld -ld g++ -goal true 3.cpp empty.pl // swipl-ld -ld g++ -goal true 3.cpp empty.pl
// on retire 3-f.pl de la compile pour le charger à chq execution // on retire 3-f.pl de la compile pour le charger à chq execution
// charger empty.pl (qui est vide) permet de ne pas avoir le message de bienvenu de Prolog // charger empty.pl (qui est vide) permet de ne pas avoir le message de bienvenu
// de Prolog
int main(int _ac, char** _av) { int main(int _ac, char **_av) {
PL_initialise(_ac, _av); PL_initialise(_ac, _av);
PlTermv pl_args(1); PlTermv pl_args(1);
@ -14,7 +15,7 @@ int main(int _ac, char** _av) {
PlTermv pl_args2(1); PlTermv pl_args2(1);
PlQuery q0("f", pl_args2); PlQuery q0("f", pl_args2);
while( q0.next_solution()) { while (q0.next_solution()) {
printf("---> %s\n", (char *)pl_args2[0]); printf("---> %s\n", (char *)pl_args2[0]);
} }

6
TP1/Prolog/AidesCPP/4.cpp
View file

@ -1,9 +1,9 @@
#include <cstdio>
#include <SWI-cpp.h> #include <SWI-cpp.h>
#include <cstdio>
// swipl-ld -ld g++ -goal true 4.cpp empty.pl // swipl-ld -ld g++ -goal true 4.cpp empty.pl
int main(int _ac, char** _av) { int main(int _ac, char **_av) {
printf("using fac.pl to compute 10!\n"); printf("using fac.pl to compute 10!\n");
PL_initialise(_ac, _av); PL_initialise(_ac, _av);
@ -14,7 +14,7 @@ int main(int _ac, char** _av) {
PlTermv pl_args2(2); PlTermv pl_args2(2);
pl_args2[0] = 10; pl_args2[0] = 10;
PlQuery q0("fac", pl_args2); PlQuery q0("fac", pl_args2);
while( q0.next_solution()) { while (q0.next_solution()) {
printf("---> %d\n", (int)pl_args2[1]); printf("---> %d\n", (int)pl_args2[1]);
} }