1 files changed, 36 insertions, 0 deletions

diff --git a/src/functionjoin.cpp b/src/functionjoin.cpp
new file mode 100644
index 0000000..71ee879
--- /dev/null
+++ b/src/functionjoin.cpp
@@ -0,0 +1,36 @@
+#include "functionjoin.h"
+
+#include "gamestate.h"
+
+#include <bu/sio.h>
+using namespace Bu;
+
+FunctionJoin::FunctionJoin()
+{
+}
+
+FunctionJoin::~FunctionJoin()
+{
+}
+
+void FunctionJoin::call( class GameState &gState )
+{
+        Variable vSep = gState.popDeref().to( Variable::tString );
+        Variable vLst = gState.popDeref();
+
+        if( vLst.getType() != Variable::tList )
+                throw Bu::ExceptionBase("First parameter of join must be a list.");
+
+        Bu::String sOut;
+        for( Variable::VariableArray::const_iterator i = vLst.getList().begin();
+                 i; i++ )
+        {
+                if( i != vLst.getList().begin() )
+                        sOut += vSep.getString();
+                sOut += (*i).to( Variable::tString ).getString();
+        }
+
+
+        gState.push( sOut );
+}
+