Changeset: 7f972067dd97 for MonetDB
URL: https://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=7f972067dd97
Modified Files:
clients/Tests/MAL-signatures.stable.out
clients/Tests/MAL-signatures.stable.out.int128
monetdb5/modules/atoms/str.c
monetdb5/modules/atoms/str.mal
Branch: Oct2020
Log Message:
Use MAL module naming convention for str module prelude and epilogue functions.
This fixes bug 6980
diffs (92 lines):
diff --git a/clients/Tests/MAL-signatures.stable.out
b/clients/Tests/MAL-signatures.stable.out
--- a/clients/Tests/MAL-signatures.stable.out
+++ b/clients/Tests/MAL-signatures.stable.out
@@ -9443,9 +9443,9 @@ stdout of test 'MAL-signatures` in direc
[ "status", "vm_maxsize", "command status.vm_maxsize():lng ",
"SYSgetvm_maxsize;", "" ]
[ "status", "vm_maxsize", "command status.vm_maxsize(X_1:lng):void ",
"SYSsetvm_maxsize;", "" ]
[ "str", "+", "command str.+(X_1:str, X_2:str):str ", "STRConcat;",
"" ]
-[ "str", "STRepilogue", "command str.STRepilogue():void ",
"strEpilogue;", "" ]
[ "str", "ascii", "command str.ascii(X_1:str):int ",
"STRascii;", "" ]
[ "str", "endsWith", "command str.endsWith(X_1:str, X_2:str):bit ",
"STRSuffix;", "" ]
+[ "str", "epilogue", "command str.epilogue():void ", "STRepilogue;",
"" ]
[ "str", "insert", "command str.insert(X_1:str, X_2:int, X_3:int,
X_4:str):str ", "STRinsert;", "" ]
[ "str", "length", "command str.length(X_1:str):int ",
"STRLength;", "" ]
[ "str", "like", "command str.like(X_1:str, X_2:str):bit ",
"STRlikewrap2;", "" ]
@@ -9458,7 +9458,7 @@ stdout of test 'MAL-signatures` in direc
[ "str", "ltrim", "command str.ltrim(X_1:str):str ",
"STRLtrim;", "" ]
[ "str", "nbytes", "command str.nbytes(X_1:str):int ",
"STRBytes;", "" ]
[ "str", "prefix", "command str.prefix(X_1:str, X_2:int):str ",
"STRprefix;", "" ]
-[ "str", "prelude", "command str.prelude():void ", "strPrelude;",
"" ]
+[ "str", "prelude", "command str.prelude():void ", "STRprelude;",
"" ]
[ "str", "r_search", "command str.r_search(X_1:str, X_2:str):int ",
"STRReverseStrSearch;", "" ]
[ "str", "repeat", "command str.repeat(X_1:str, X_2:int):str ",
"STRrepeat;", "" ]
[ "str", "replace", "command str.replace(X_1:str, X_2:str, X_3:str,
X_4:str):str ", "PCREreplace_wrap;", "" ]
diff --git a/clients/Tests/MAL-signatures.stable.out.int128
b/clients/Tests/MAL-signatures.stable.out.int128
--- a/clients/Tests/MAL-signatures.stable.out.int128
+++ b/clients/Tests/MAL-signatures.stable.out.int128
@@ -12807,9 +12807,9 @@ stdout of test 'MAL-signatures` in direc
[ "status", "vm_maxsize", "command status.vm_maxsize():lng ",
"SYSgetvm_maxsize;", "" ]
[ "status", "vm_maxsize", "command status.vm_maxsize(X_1:lng):void ",
"SYSsetvm_maxsize;", "" ]
[ "str", "+", "command str.+(X_1:str, X_2:str):str ", "STRConcat;",
"" ]
-[ "str", "STRepilogue", "command str.STRepilogue():void ",
"strEpilogue;", "" ]
[ "str", "ascii", "command str.ascii(X_1:str):int ",
"STRascii;", "" ]
[ "str", "endsWith", "command str.endsWith(X_1:str, X_2:str):bit ",
"STRSuffix;", "" ]
+[ "str", "epilogue", "command str.epilogue():void ", "STRepilogue;",
"" ]
[ "str", "insert", "command str.insert(X_1:str, X_2:int, X_3:int,
X_4:str):str ", "STRinsert;", "" ]
[ "str", "length", "command str.length(X_1:str):int ",
"STRLength;", "" ]
[ "str", "like", "command str.like(X_1:str, X_2:str):bit ",
"STRlikewrap2;", "" ]
@@ -12822,7 +12822,7 @@ stdout of test 'MAL-signatures` in direc
[ "str", "ltrim", "command str.ltrim(X_1:str):str ",
"STRLtrim;", "" ]
[ "str", "nbytes", "command str.nbytes(X_1:str):int ",
"STRBytes;", "" ]
[ "str", "prefix", "command str.prefix(X_1:str, X_2:int):str ",
"STRprefix;", "" ]
-[ "str", "prelude", "command str.prelude():void ", "strPrelude;",
"" ]
+[ "str", "prelude", "command str.prelude():void ", "STRprelude;",
"" ]
[ "str", "r_search", "command str.r_search(X_1:str, X_2:str):int ",
"STRReverseStrSearch;", "" ]
[ "str", "repeat", "command str.repeat(X_1:str, X_2:int):str ",
"STRrepeat;", "" ]
[ "str", "replace", "command str.replace(X_1:str, X_2:str, X_3:str,
X_4:str):str ", "PCREreplace_wrap;", "" ]
diff --git a/monetdb5/modules/atoms/str.c b/monetdb5/modules/atoms/str.c
--- a/monetdb5/modules/atoms/str.c
+++ b/monetdb5/modules/atoms/str.c
@@ -2936,7 +2936,7 @@ UTF8_assert(const char *s)
#endif
static str
-strPrelude(void *ret)
+STRprelude(void *ret)
{
(void) ret;
if (UTF8_toUpperFrom == NULL) {
@@ -2985,7 +2985,7 @@ strPrelude(void *ret)
}
static str
-strEpilogue(void *ret)
+STRepilogue(void *ret)
{
(void) ret;
if (UTF8_toUpperFrom)
@@ -4294,8 +4294,8 @@ mel_func str_init_funcs[] = {
command("str", "replace", STRreplace, false, "Insert a string into another",
args(1,4, arg("",str),arg("s",str),arg("pat",str),arg("s2",str))),
command("str", "repeat", STRrepeat, false, "", args(1,3,
arg("",str),arg("s2",str),arg("c",int))),
command("str", "space", STRspace, false, "", args(1,2,
arg("",str),arg("l",int))),
- command("str", "prelude", strPrelude, false, "", args(1,1, arg("",void))),
- command("str", "STRepilogue", strEpilogue, false, "", args(1,1,
arg("",void))),
+ command("str", "prelude", STRprelude, false, "", args(1,1, arg("",void))),
+ command("str", "epilogue", STRepilogue, false, "", args(1,1, arg("",void))),
{ .imp=NULL }
};
#include "mal_import.h"
diff --git a/monetdb5/modules/atoms/str.mal b/monetdb5/modules/atoms/str.mal
--- a/monetdb5/modules/atoms/str.mal
+++ b/monetdb5/modules/atoms/str.mal
@@ -162,7 +162,7 @@ command space(l:int):str
address STRspace;
command prelude() :void
-address strPrelude;
+address STRprelude;
-command STRepilogue() :void
-address strEpilogue;
+command epilogue() :void
+address STRepilogue;
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
