#include "us001.h"

Verb(Iota)
    int n;
    StdOut = (tdeck)SA->pos;
    SA->pos = Q(StdOut + (n = I(o*"source"))+1);
    uptoInt(n,i) r[i] = Q (i+1); end_for
    r[n] = Q-1;
RND

Verb(Square)
    StdOut = StdIn; int *iv = (int*)StdIn;
    while(iv[0]>=0) {
        *iv *= *iv;
        iv++;
    }
RND

Verb(Target)
    lexPrint(StdIn,"%d\n",1,cflocal(o^"target","w").l);
RND

#ifdef exec_CPP

dNoun(def0)={
    "dir", "c:", // user
    "metadir", "d:\\bigdrive\\new\\internet\\jan_2001\\taxes\\dir.txt", // usage
    "$source", "$anjali/done.htm",
    "$target", "$anjali/target.txt",
    0,
};

TEST(exec_CPP,0) // Internal pipeline tatom dCpair
    dNoun2(o,forkMain(def0.l));
    cmolecule pp, p0;
    p0 | catom(Iota,"source",10,0);
    eval (pp | catom(p0) | catom(Square,Q 0) | catom(Target,o.l));
END

#endif