Examples of com.ericsson.otp.erlang.OtpErlangAtom

com.ericsson.otp.erlang.OtpErlangAtom
Provides a Java representation of Erlang atoms. Atoms can be created from strings whose length is not more than {@link #maxAtomLength maxAtomLength}characters.

                    "all_modules_on_stack", "x", meta);
            if (res instanceof OtpErlangList) {
                final OtpErlangList modules = (OtpErlangList) res;
                final List<String> result = new ArrayList<String>(modules.arity());
                for (final OtpErlangObject module : modules) {
                    final OtpErlangAtom moduleA = (OtpErlangAtom) module;
                    result.add(moduleA.atomValue());
                }
                return result;
            }
        } catch (final RpcException e) {
            ErlLogger.warn(e);

View Full Code Here


    public static boolean isRunning(final IOtpRpc backend) {
        try {
            final OtpErlangObject o = backend.call(ERLIDE_DEBUG, "is_running", "");
            if (o instanceof OtpErlangAtom) {
                final OtpErlangAtom atom = (OtpErlangAtom) o;
                return atom.booleanValue();
            }
        } catch (final RpcException e) {
            ErlLogger.error(e);
        }
        return false;

View Full Code Here

    }


    @Override
    public void close() {
        if (server != null && backend.getOtpRpc() != null) {
            backend.getOtpRpc().send(server, new OtpErlangAtom("stop"));
        }
        server = null;
    }

View Full Code Here

    @Override
    public void send(final String string) {
        if (server != null) {
            backend.getOtpRpc().send(
                    server,
                    OtpErlang.mkTuple(new OtpErlangAtom("input"), new OtpErlangString(
                            string)));
        } else {
            try {
                backend.input(string);
            } catch (final IOException e) {

View Full Code Here


    @Override
    public void async_call_result(final IRpcResultCallback cb, final String m,
            final String f, final String signature, final Object... args)
            throws RpcException {
        final OtpErlangAtom gleader = USER_ATOM;
        try {
            final Object[] args1 = new Object[args.length + 1];
            System.arraycopy(args, 0, args1, 1, args.length);
            final OtpMbox mbox = localNode.createMbox();
            args1[0] = mbox.self();

View Full Code Here


    private boolean isBadRpc(final OtpErlangObject result) {
        if (result instanceof OtpErlangTuple) {
            final OtpErlangTuple t = (OtpErlangTuple) result;
            if (t.elementAt(0) instanceof OtpErlangAtom) {
                final OtpErlangAtom a = (OtpErlangAtom) t.elementAt(0);
                return "badrpc".equals(a.atomValue());
            }
        }
        return false;
    }

View Full Code Here

    }


    private OtpErlangObject buildRpcCall(final OtpErlangPid pid,
            final OtpErlangObject gleader, final String module, final String fun,
            final OtpErlangObject[] args) {
        final OtpErlangObject m = new OtpErlangAtom(module);
        final OtpErlangObject f = new OtpErlangAtom(fun);
        final OtpErlangObject a = new OtpErlangList(args);
        return OtpErlang.mkTuple(pid,
                OtpErlang.mkTuple(new OtpErlangAtom("call"), m, f, a, gleader));
    }

View Full Code Here

        return args1;
    }


    private OtpErlangObject buildRpcCastMsg(final OtpErlangObject gleader,
            final String module, final String fun, final OtpErlangObject[] args) {
        final OtpErlangObject m = new OtpErlangAtom(module);
        final OtpErlangObject f = new OtpErlangAtom(fun);
        final OtpErlangObject a = new OtpErlangList(args);
        final OtpErlangAtom castTag = new OtpErlangAtom("$gen_cast");
        return OtpErlang.mkTuple(castTag,
                OtpErlang.mkTuple(new OtpErlangAtom("cast"), m, f, a, gleader));
    }

View Full Code Here

    }


    @Test
    public void parse_1() {
        final String input = "a. 1. [c].";
        final List<OtpErlangObject> expected = Lists.newArrayList(new OtpErlangAtom("a"),
                new OtpErlangLong(1), new OtpErlangList(new OtpErlangAtom("c")));
        final List<OtpErlangObject> actual = parser.parse(input);
        assertThat(actual, contains(expected.toArray()));
    }

View Full Code Here

    private IErlRecordDef checkRecord(final OtpErlangObject o) {
        if (o instanceof OtpErlangTuple) {
            final OtpErlangTuple t = (OtpErlangTuple) o;
            final OtpErlangObject h = t.elementAt(0);
            if (h instanceof OtpErlangAtom) {
                final OtpErlangAtom a = (OtpErlangAtom) h;
                final ErlangDebugTarget target = getErlangDebugTarget();
                IErlPreprocessorDef pd;
                try {
                    pd = ErlangEngine
                            .getInstance()
                            .getModelFindService()
                            .findPreprocessorDef(getErlProjects(target.getProjects()),
                                    moduleName, a.atomValue(), ErlElementKind.RECORD_DEF);
                    if (pd instanceof IErlRecordDef) {
                        final IErlRecordDef r = (IErlRecordDef) pd;
                        if (r.hasChildren() && r.getChildCount() + 1 == t.arity()) {
                            return r;
                        }

View Full Code Here

0 1 2 3 4 5 6 7 8 9

TOP

Related Classes of com.ericsson.otp.erlang.OtpErlangAtom

com.ericsson.otp.stdlib.OtpGenServer

com.ericsson.otp.stdlib.OtpSysProcess

com.tigertext.lucene.DocumentTranslator

com.tigertext.lucene.ext.ErlangFilter

com.tigertext.lucene.LuceneServer

de.zib.scalaris.DeleteResult

de.zib.scalaris.ReplicatedDHT

de.zib.scalaris.Scalaris

de.zib.scalaris.ScalarisVM

echo_server

All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.