From 3d887bfd79a4d9a39e65d87fe96e252644e5494d Mon Sep 17 00:00:00 2001 From: visor Date: Thu, 18 Apr 2013 18:35:44 +0900 Subject: [PATCH] DB_XSERIAL_COMPAT in ml-db.cc. --- modules/ml-db.cc | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/modules/ml-db.cc b/modules/ml-db.cc index 483a278..ef46152 100644 --- a/modules/ml-db.cc +++ b/modules/ml-db.cc @@ -11,6 +11,8 @@ #include #include +#define DB_XSERIAL_COMPAT 1 + /*DOC: ==db module== @@ -141,6 +143,9 @@ static MNode* ml_db_sub (MNode* cell, MlEnv* mlenv, MLDb* obj, DBFUNC fn) { {CharConst ("limit"), false}, // 0 {CharConst ("serial"), true}, // 1 {CharConst ("on-error"), false}, // 2 +#ifdef DB_XSERIAL_COMPAT + {CharConst ("xserial"), true}, // 3 +#endif {NULL, 0, 0} }; @@ -156,6 +161,10 @@ static MNode* ml_db_sub (MNode* cell, MlEnv* mlenv, MLDb* obj, DBFUNC fn) { fxserial = eval_bool (keywords[1], mlenv); if (keywords[2]) errfn = eval (keywords[2], mlenv); +#ifdef DB_XSERIAL_COMPAT + if (keywords[3]) + fxserial = eval_bool (keywords[3], mlenv); +#endif if (name.size () == 0) throw (uErrorFilenameEmpty); -- 2.11.0