SchemeSmobAF.cc

Go to the documentation of this file.

/*
 * opencog/guile/SchemeSmobAF.cc
 *
 * Scheme small objects (SMOBS) for AttentionalFocus and AttentionalFocusBoundary.
 *
 * Copyright (C) 2014 Cosmo Harrigan
 * All Rights Reserved
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Affero General Public License v3 as
 * published by the Free Software Foundation and including the exceptions
 * at http://opencog.org/wiki/Licenses
 *
 * This program 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 Affero General Public License
 * along with this program; if not, write to:
 * Free Software Foundation, Inc.,
 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 */

#ifdef HAVE_GUILE

#include <cstddef>
#include <libguile.h>

#include <opencog/guile/SchemeSmob.h>

using namespace opencog;

SCM SchemeSmob::ss_af_boundary (void)
{
    AtomSpace* atomspace = ss_get_env_as("cog-af-boundary");
    return scm_from_short(atomspace->get_attentional_focus_boundary());
}

SCM SchemeSmob::ss_set_af_boundary (SCM sboundary)
{
    AtomSpace* atomspace = ss_get_env_as("cog-set-af-boundary!");
    if (scm_is_false(scm_integer_p(sboundary)))
        scm_wrong_type_arg_msg("cog-set-af-boundary", 1, sboundary,
            "integer opencog AttentionalFocus Boundary");

    short bdy = scm_to_short(sboundary);
    return scm_from_short(atomspace->set_attentional_focus_boundary(bdy));
}

SCM SchemeSmob::ss_af (void)
{
    AtomSpace* atomspace = ss_get_env_as("cog-af");
    
    HandleSeq attentionalFocus;
    atomspace->get_handle_set_in_attentional_focus(back_inserter(attentionalFocus));
    size_t isz = attentionalFocus.size();
    if (0 == isz) return SCM_EOL;
    
    SCM head = SCM_EOL;
    for (size_t i = 0; i < isz; i++) {
        Handle hi = attentionalFocus[i];
        SCM smob = handle_to_scm(hi);
        head = scm_cons(smob, head);
    }

    return head;
}

#endif /* HAVE_GUILE */