[m-rev.] diff: update Aditi initialisation

Simon Taylor stayl at cs.mu.OZ.AU
Wed Aug 10 23:58:10 AEST 2005


Estimated hours taken: 0.5
Branches: main

util/mkinit.c:
	Update for changes to the Aditi API.

Index: mkinit.c
===================================================================
RCS file: /home/mercury1/repository/mercury/util/mkinit.c,v
retrieving revision 1.99
diff -u -r1.99 mkinit.c
--- mkinit.c	21 Jun 2005 01:38:19 -0000	1.99
+++ mkinit.c	10 Aug 2005 13:55:23 -0000
@@ -1282,8 +1282,8 @@
     printf("\n/*\n** Load the Aditi-RL code for the program into the\n");
     printf("** currently connected database.\n*/\n");
     printf("#include \"mercury_heap.h\"\n");
-    printf("#include \"v2_api_without_engine.h\"\n");
-    printf("#include \"v2_api_misc.h\"\n");
+    printf("#include \"netapi.h\"\n");
+    printf("#include \"netapi_support.h\"\n");
     printf("#include \"AditiStatus.h\"\n");
 
     /*
@@ -1337,14 +1337,14 @@
 "        */\n"
 "        for (i = 0; i < num_rl_modules; i++) {\n"
 "            if (*rl_data_lengths[i] != 0) {\n"
-"                /* The ADITI_FUNC macro puts a prefix on the function name. */\n"
-"                status = ADITI_FUNC(api_blob_to_string)(*rl_data_lengths[i],\n"
+"                /* The ADITI_API macro puts a prefix on the function name. */\n"
+"                status = ADITI_API(api_blob_to_string)(*rl_data_lengths[i],\n"
 "                                (char *) rl_data[i], &bytecode);\n"
 "                /* The ADITI_ENUM macro puts a prefix on the enum constant. */\n"
 "                if (status != ADITI_ENUM(AditiStatus_OK)) {\n"
 "                    break;\n"
 "                }\n"
-"                status = ADITI_FUNC(module_load)(connection,\n"
+"                status = ADITI_API(module_load)(connection,\n"
 "                        transaction, bytecode);\n"
 "                free(bytecode);\n"
 "                if (status != ADITI_ENUM(AditiStatus_OK)) {\n"
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------



More information about the reviews mailing list