nth wiki inline function.

diff --git a/wiki/wikiline.cc b/wiki/wikiline.cc
index a6ff1aa..9209445 100644 (file)
--- a/wiki/wikiline.cc
+++ b/wiki/wikiline.cc
@@ -172,6 +172,28 @@ bool  wl_cdr (WikiMotorObjVecVec* args, WikiMotorObjVec& out, WikiFormat* wiki)
     return true;
 }
 
+//#WIKILINE    nth     wl_nth
+bool  wl_nth (WikiMotorObjVecVec* args, WikiMotorObjVec& out, WikiFormat* wiki) {
+    MotorOutputWiki  o (out);
+    ustring  var;
+    int  idx;
+    ustring  val;
+    MNodePtr  e;
+    ustring  opt;
+
+    if (args->size () != 2)
+       return false;
+    var = (*args)[0]->textOut (wiki);
+    idx = strtol ((*args)[1]->textOut (wiki));
+    e = wiki->getVar (var);
+    if (e ()) {
+       e = e ()->vectorGet (idx);
+       val = fixUTF8 (to_string (e ()));
+       return outamp_opt (o, opt, val);
+    }
+    return true;
+}
+
 /*DOC:
 ===ベクタ展開===
  [[vector:NAME:i]]

diff --git a/wiki/wikiline.h b/wiki/wikiline.h
index 3ea4af7..09b16f5 100644 (file)
--- a/wiki/wikiline.h
+++ b/wiki/wikiline.h
@@ -11,6 +11,7 @@ bool  wl_getarray (WikiMotorObjVecVec* args, WikiMotorObjVec& out, WikiFormat* w
 bool  wl_vector (WikiMotorObjVecVec* args, WikiMotorObjVec& out, WikiFormat* wiki);
 bool  wl_car (WikiMotorObjVecVec* args, WikiMotorObjVec& out, WikiFormat* wiki);
 bool  wl_cdr (WikiMotorObjVecVec* args, WikiMotorObjVec& out, WikiFormat* wiki);
+bool  wl_nth (WikiMotorObjVecVec* args, WikiMotorObjVec& out, WikiFormat* wiki);
 bool  wl_join (WikiMotorObjVecVec* args, WikiMotorObjVec& out, WikiFormat* wiki);
 bool  wl_table (WikiMotorObjVecVec* args, WikiMotorObjVec& out, WikiFormat* wiki);
 bool  wl_eval (WikiMotorObjVec* arg2, WikiMotorObjVec& out, WikiFormat* wiki);