Package com.oracle.truffle.r.runtime.env

Examples of com.oracle.truffle.r.runtime.env.REnvironment$Package


        }

        @Specialization
        protected REnvironment doAttach(@SuppressWarnings("unused") RNull what, int pos, String name) {
            controlVisibility();
            REnvironment env = new REnvironment.NewEnv(name);
            doAttachEnv(pos, env);
            return env;
        }
View Full Code Here


            controlVisibility();
            return doAttachEnv(what, (int) pos, name);
        }

        REnvironment doAttachEnv(REnvironment what, int pos, String name) {
            REnvironment env = new REnvironment.NewEnv(name);
            RStringVector names = what.ls(true, null);
            for (int i = 0; i < names.getLength(); i++) {
                String key = names.getDataAt(i);
                Object value = what.get(key);
                // TODO copy?
                env.safePut(key, value);
            }
            doAttachEnv(pos, env);
            return env;

        }
View Full Code Here

            controlVisibility();
            return doAttachList(what, (int) pos, name);
        }

        REnvironment doAttachList(RList what, int pos, String name) {
            REnvironment env = new REnvironment.NewEnv(name);
            RStringVector names = (RStringVector) what.getNames();
            for (int i = 0; i < names.getLength(); i++) {
                env.safePut(names.getDataAt(i), what.getDataAt(i));
            }
            doAttachEnv(pos, env);
            return env;
        }
View Full Code Here

        return new RNode[]{ConstantNode.create(RMissing.instance), ConstantNode.create(RMissing.instance), ConstantNode.create(RMissing.instance), ConstantNode.create(RMissing.instance)};
    }

    @Specialization
    protected Object doDelayedAssign(VirtualFrame frame, RAbstractStringVector nameVec, RPromise value, @SuppressWarnings("unused") RMissing evalEnv, @SuppressWarnings("unused") RMissing assignEnv) {
        REnvironment curEnv = curEnv(frame);
        return doDelayedAssign(nameVec, value, curEnv, curEnv);
    }
View Full Code Here

    @Specialization(guards = "doesInherit")
    @SuppressWarnings("unused")
    protected Object assignInherit(String x, Object value, REnvironment pos, RMissing envir, byte inherits, byte immediate) {
        controlVisibility();
        REnvironment env = pos;
        while (env != null) {
            if (env.get(x) != null) {
                break;
            }
            env = env.getParent();
        }
        try {
            if (env != null) {
                env.put(x, value);
            } else {
                REnvironment.globalEnv().put(x, value);
            }
        } catch (PutException ex) {
            throw RError.error(getEncapsulatingSourceSection(), ex);
View Full Code Here

        Object modelElement = null;
        for (final Iterator iterator = resourceSet.getResources().iterator();
            iterator.hasNext() && modelElement == null;)
        {
            final Resource resource = (Resource)iterator.next();
            final Package model =
                (Package)EcoreUtil.getObjectByType(
                    resource.getContents(),
                    UML2Package.eINSTANCE.getPackage());
            if (model != null)
            {
                for (final TreeIterator elementIterator = model.eAllContents();
                    elementIterator.hasNext() && modelElement == null;)
                {
                    final Object object = elementIterator.next();
                    if (pred.evaluate(object))
                    {
View Full Code Here

   
    ModelAccessFacade model = factory.getModel();

    init(model);

    Package p = getPackage(targetPackage, model);
    if (p == null) {
      p = addPackage(targetPackage, model);
      System.out.println("INFO [jIvalo] Added package: " + targetPackage);
    }
View Full Code Here

    Iterator it = model.getModelElements().iterator();
    while (it.hasNext()) {
      ModelElementFacade mef = (ModelElementFacade) it.next();
      if (mef instanceof PackageFacade) {
        PackageFacade pf = (PackageFacade) mef;
        Package p = (Package) ((PackageFacadeLogicImpl) pf)
            .getMetaObject();
        if (p.getName() != null && p.getName().equals(name)) {
          return p;
        }
      }
    }
    return null;
View Full Code Here

TOP

Related Classes of com.oracle.truffle.r.runtime.env.REnvironment$Package

Copyright © 2018 www.massapicom. All rights reserved.
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.