コード例 #1
0
 public LispPtr ToList() throws Exception {
   LispObject head = LispAtom.New(_env, "List");
   LispPtr p = new LispPtr(head);
   for (Map.Entry<LispPtr, LispPtr> e : _map.entrySet()) {
     LispPtr q = new LispPtr(LispAtom.New(_env, "List"));
     p.Get().Set(LispSubList.New(q.Get()));
     p = p.Get().Next();
     q.Get().Set(e.getKey().Get().Copy(true));
     q = q.Get().Next();
     q.Get().Set(e.getValue().Get().Copy(true));
   }
   return new LispPtr(LispSubList.New(head));
 }
コード例 #2
0
  LispPtr Head() throws Exception {
    assert (!_map.isEmpty());
    Map.Entry<LispPtr, LispPtr> e = _map.entrySet().iterator().next();

    LispObject p = LispAtom.New(_env, "List");
    LispPtr q = new LispPtr(p);
    q.Get().Set(e.getKey().Get().Copy(true));
    q = q.Get().Next();
    q.Get().Set(e.getValue().Get().Copy(true));

    return new LispPtr(LispSubList.New(p));
  }