mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-14 05:12:33 +00:00
Code Issues Projects Releases Wiki Activity

Update the samples to use MR_ types and MR_ macros for

Browse Source 
Estimated hours taken: 0.5

samples/c_interface/c_calls_mercury/c_main.c:
samples/c_interface/cplusplus_calls_mercury/cpp_main.cc:
samples/c_interface/simpler_c_calls_mercury/c_main.c:
samples/c_interface/simpler_cplusplus_calls_mercury/cpp_main.cc:
	Update the samples to use MR_ types and MR_ macros for
	creating lists.
This commit is contained in:
Tyson Dowd
2000-08-08 06:02:55 +00:00
parent 60cf47168e
commit 71a07917dc
4 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
samples/c_interface/c_calls_mercury/c_main.c
View File

@@ -4,12 +4,12 @@
#include "c_main.h" #include "c_main.h"
typedef Word MercuryList; typedef MR_Word MercuryList;
static void print_list(MercuryList); static void print_list(MercuryList);
void c_main(void) { void c_main(void) {
Integer value; MR_Integer value;
MercuryList list; MercuryList list;
printf("In c_main().\n"); printf("In c_main().\n");
@@ -76,15 +76,15 @@ void c_main(void) {
} }
static void print_list(MercuryList list) { static void print_list(MercuryList list) {
if (list_is_empty(list)) { if (MR_list_is_empty(list)) {
printf("[]"); printf("[]");
} else { } else {
printf("["); printf("[");
printf("%ld", (long) list_head(list)); printf("%ld", (long) list_head(list));
list = list_tail(list); list = MR_list_tail(list);
while (!list_is_empty(list)) { while (!MR_list_is_empty(list)) {
printf(", %ld", (long) list_head(list)); printf(", %ld", (long) MR_list_head(list));
list = list_tail(list); list = MR_list_tail(list);
} }
printf("]"); printf("]");
} }

14
samples/c_interface/cplusplus_calls_mercury/cpp_main.cc
View File

@@ -5,7 +5,7 @@
#include "cpp_main.h" #include "cpp_main.h"
typedef Word MercuryList; typedef MR_Word MercuryList;
static void print_list(MercuryList); static void print_list(MercuryList);
@@ -25,7 +25,7 @@ void cpp_main() {
** to the Mercury predicate foo/1 in mode ** to the Mercury predicate foo/1 in mode
** :- mode foo(out) is cc_multi. ** :- mode foo(out) is cc_multi.
*/ */
Integer value; MR_Integer value;
one_foo(&value); one_foo(&value);
printf("one_foo(&value) gives value = %ld\n", (long) value); printf("one_foo(&value) gives value = %ld\n", (long) value);
@@ -76,15 +76,15 @@ void cpp_main() {
} }
static void print_list(MercuryList list) { static void print_list(MercuryList list) {
if (list_is_empty(list)) { if (MR_list_is_empty(list)) {
printf("[]"); printf("[]");
} else { } else {
printf("["); printf("[");
printf("%ld", (long) list_head(list)); printf("%ld", (long) list_head(list));
list = list_tail(list); list = MR_list_tail(list);
while (!list_is_empty(list)) { while (!MR_list_is_empty(list)) {
printf(", %ld", (long) list_head(list)); printf(", %ld", (long) MR_list_head(list));
list = list_tail(list); list = MR_list_tail(list);
} }
printf("]"); printf("]");
} }

12
samples/c_interface/simpler_c_calls_mercury/c_main.c
View File

@@ -3,7 +3,7 @@
#include <stdio.h> #include <stdio.h>
typedef Word MercuryList; typedef MR_Word MercuryList;
static void print_list(MercuryList); static void print_list(MercuryList);
@@ -92,15 +92,15 @@ int main(int argc, char **argv) {
} }
static void print_list(MercuryList list) { static void print_list(MercuryList list) {
if (list_is_empty(list)) { if (MR_list_is_empty(list)) {
printf("[]"); printf("[]");
} else { } else {
printf("["); printf("[");
printf("%ld", (long) list_head(list)); printf("%ld", (long) list_head(list));
list = list_tail(list); list = MR_list_tail(list);
while (!list_is_empty(list)) { while (!MR_list_is_empty(list)) {
printf(", %ld", (long) list_head(list)); printf(", %ld", (long) MR_list_head(list));
list = list_tail(list); list = MR_list_tail(list);
} }
printf("]"); printf("]");
} }

12
samples/c_interface/simpler_cplusplus_calls_mercury/cpp_main.cc
View File

@@ -5,13 +5,13 @@ extern "C" {
#include <stdio.h> #include <stdio.h>
typedef Word MercuryList; typedef MR_Word MercuryList;
static void print_list(MercuryList); static void print_list(MercuryList);
int main(int argc, char **argv) { int main(int argc, char **argv) {
char dummy; char dummy;
Integer value; MR_Integer value;
MercuryList list; MercuryList list;
int exit_status; int exit_status;
@@ -94,15 +94,15 @@ int main(int argc, char **argv) {
} }
static void print_list(MercuryList list) { static void print_list(MercuryList list) {
if (list_is_empty(list)) { if (MR_list_is_empty(list)) {
printf("[]"); printf("[]");
} else { } else {
printf("["); printf("[");
printf("%ld", (long) list_head(list)); printf("%ld", (long) list_head(list));
list = list_tail(list); list = MR_list_tail(list);
while (!list_is_empty(list)) { while (!list_is_empty(list)) {
printf(", %ld", (long) list_head(list)); printf(", %ld", (long) MR_list_head(list));
list = list_tail(list); list = MR_list_tail(list);
} }
printf("]"); printf("]");
} }