JRubyObject.java

/*
 * Copyright © 2011, 2012, 2014 On-Site.com.
 * Copyright © 2015 Chris Jester-Young.
 *
 * This code is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation; either version 2 of the License, or (at your
 * option) any later version.
 *
 * This code is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
 * for more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this work. If not, see <http://www.gnu.org/licenses/>.
 *
 * Linking this library statically or dynamically with other modules is
 * making a combined work based on this library. Thus, the terms and
 * conditions of the GNU General Public License cover the whole combination.
 *
 * As a special exception, the copyright holders of this library give you
 * permission to link this library with independent modules to produce an
 * executable, regardless of the license terms of these independent modules,
 * and to copy and distribute the resulting executable under terms of your
 * choice, provided that you also meet, for each linked independent module,
 * the terms and conditions of the license of that module. An independent
 * module is a module which is not derived from or based on this library.
 * If you modify this library, you may extend this exception to your
 * version of the library, but you are not obligated to do so. If you do
 * not wish to do so, delete this exception statement from your version.
 */

package com.sun.tools.hat.internal.lang.jruby;

import java.util.Collection;
import java.util.Collections;
import java.util.Iterator;
import java.util.List;
import java.util.Map;

import com.google.common.base.Supplier;
import com.google.common.collect.ImmutableMap;

import com.sun.tools.hat.internal.lang.Models;
import com.sun.tools.hat.internal.lang.common.SimpleObjectModel;
import com.sun.tools.hat.internal.model.JavaObject;
import com.sun.tools.hat.internal.model.JavaThing;
import com.sun.tools.hat.internal.util.Suppliers;

public class JRubyObject extends SimpleObjectModel {
    private static ImmutableMap<String, JavaThing> getProperties(JRuby factory, JavaObject obj) {
        Collection<String> names = getClassModel(factory, obj).getPropertyNames();
        if (names.isEmpty())
            return ImmutableMap.of();
        List<JavaThing> values = Models.getFieldObjectArray(obj, "varTable", JavaThing.class);
        if (values == null)
            values = Collections.emptyList();
        ImmutableMap.Builder<String, JavaThing> builder = ImmutableMap.builder();
        Iterator<JavaThing> iter = values.iterator();
        for (String name : names) {
            if (!iter.hasNext())
                break;
            JavaThing thing = iter.next();
            if (thing != null)
                builder.put(name, thing);
        }
        return builder.build();
    }

    protected JRubyObject(JRuby factory, JavaObject obj, Supplier<Map<String, JavaThing>> supplier) {
        super(factory, () -> getClassModel(factory, obj),
                () -> getEigenclassModel(factory, obj),
                Suppliers.memoize(supplier));
    }

    public JRubyObject(JRuby factory, JavaObject obj) {
        this(factory, obj, () -> getProperties(factory, obj));
    }

    static JRubyClass getClassModel(JRuby factory, JavaObject obj) {
        return getEigenclassModel(factory, obj).getRealClass();
    }

    static JRubyClass getEigenclassModel(JRuby factory, JavaObject obj) {
        return factory.lookupClass(Models.getFieldObject(obj, "metaClass"));
    }
}