Java LList类代码示例

import gnu.lists.LList; //导入依赖的package包/类
public Object evaluate(Object clauses, Translator tr) {
    while (clauses instanceof Pair) {
        Pair pclauses = (Pair) clauses;
        Object clause = pclauses.getCar();
        clauses = pclauses.getCdr();
        if (! (clause instanceof Pair))
            tr.errorWithPosition("cond-expand clauses is not a list",
                                 pclauses);
        Pair pclause = (Pair) clause;
        Object test = Translator.stripSyntax(pclause.getCar());
        if ((test == elseSymbol && clauses == LList.Empty)
            || evaluateConditionCar(pclause, tr))
            return pclause.getCdr();
    }
    tr.errorIfNonEmpty(clauses);
    return LList.Empty;
}
 

import gnu.lists.LList; //导入依赖的package包/类
public static void main(String[] args) throws Throwable{
	Scheme s = Scheme.getInstance();
	s.defineFunction("f", new Procedure2() {
		@Override
		public Object apply2(Object arg0, Object arg1) throws Throwable {
			String[] names = {"hello", "world"};
			@SuppressWarnings("unchecked")
			String[] values = ConvertUtils.namesToValues((LList)arg0, (Map<String, String>)arg1);
			for(int i = 0; i < 2; i++){
				System.out.println(names[i] + " => " + values[i]);
			}
			return null;
		}
	});
	s.eval(String.format(
			"(require 'hash-table)(let ((h (make-hash-table)))"
			+ "(hash-table-set! h \"hello\" \"world\")"
			+ "(hash-table-set! h \"hello2\" \"world2\")"
			+ "(f '(\"hello\" \"world\") h))"
			));
}
 

import gnu.lists.LList; //导入依赖的package包/类
private String createMessageForGetAndEvalScripts(LList urlsOrScripts) {
	if (urlsOrScripts.isEmpty()) {
		return "";
	}
	Pair p = (Pair) urlsOrScripts;
	String e = (String) p.getCar();

	if (e.startsWith("http:") || e.startsWith("/")) {
		return String
				.format("$.getScript($.inArray('%s', loadedScripts)==-1?'%s':null)"
						+ ".always(function(script, textStatus) {"
						+ "%s" + "});"
						+ "if($.inArray('%s', loadedScripts)==-1){loadedScripts.push('%s');}",
						e, e,
						createMessageForGetAndEvalScripts((LList) p.getCdr()), e, e);
	} else {
		return e + System.lineSeparator()
				+ createMessageForGetAndEvalScripts((LList) p.getCdr());
	}

}
 

import gnu.lists.LList; //导入依赖的package包/类
public static MultipleDefTasks create(LList args) {
	log.debug(args);
	List<DefTask> result = new ArrayList<>();
	Map<Keyword, Object> argsMap = LiteralUtils.createArgsMap(args);

	Object actor = argsMap.getOrDefault(Keyword.make("actor"), Symbol.parse("Context"));
	Symbol action = (Symbol) argsMap.get(Keyword.make("action"));
	Symbol type = (Symbol) argsMap.getOrDefault(Keyword.make("type"), Symbol.parse("default"));
	if (action == null) {
		throw new RuntimeException("action is required.");
	}

	if (actor instanceof List) {
		((List<?>) actor).forEach(a -> {
			result.add(createTask(argsMap, type, ActorName.of((Symbol) a), action));
		});

	} else if (actor instanceof Symbol) {
		result.add(createTask(argsMap, type, ActorName.of((Symbol) actor), action));
	}

	return new MultipleDefTasks(result);
}
 

import gnu.lists.LList; //导入依赖的package包/类
public static MultipleDefRounds create(LList args) {
	log.debug(args);
	List<DefRound> result = new ArrayList<>();
	Map<Keyword, Object> argsMap = LiteralUtils.createArgsMap(args);

	int repeat = ((Number) argsMap.getOrDefault(Keyword.make("repeat"), 1)).intValue();
	Symbol name = (Symbol) argsMap.getOrDefault(Keyword.make("name"),
			Symbol.parse(String.valueOf(System.currentTimeMillis())));
	@SuppressWarnings("unchecked")
	List<DefStage> rest = (List<DefStage>) argsMap.getOrDefault(Keyword.make("rest"),
			new ArrayList<>());

	for (int i = 0; i < repeat; i++) {
		result.add(new DefRound(name.toString(), rest));
	}

	return new MultipleDefRounds(result);
}
 

import gnu.lists.LList; //导入依赖的package包/类
public static MultipleDefStages create(LList args) {
	log.debug(args);
	List<DefStage> result = new ArrayList<>();
	Map<Keyword, Object> argsMap = LiteralUtils.createArgsMap(args);

	Symbol type = (Symbol) argsMap.getOrDefault(Keyword.make("type"),
			Symbol.parse("sequential"));
	Symbol name = (Symbol) argsMap.getOrDefault(Keyword.make("name"),
			Symbol.parse(String.valueOf(System.currentTimeMillis())));
	@SuppressWarnings("unchecked")
	List<StageElement> rest = (List<StageElement>) argsMap.getOrDefault(Keyword.make("rest"),
			new ArrayList<>());
	switch (type.toString()) {
	case "sequential":
		result.add(new DefSequentialStage(name, rest));
		break;
	case "parallel":
		result.add(new DefParallelStage(name, rest));
		break;
	default:
		result.add(new DefSequentialStage(name, rest));
	}

	return new MultipleDefStages(result);
}
 

import gnu.lists.LList; //导入依赖的package包/类
private static Serializable deepCopyLList(LList obj) {
	Object rest = obj;
	List<Serializable> l = new ArrayList<>();
	while (true) {
		if (rest == LList.Empty)
			break;
		if (rest instanceof Pair) {
			Pair pair = (Pair) rest;
			l.add(deepCopy(pair.getCar()));
			rest = pair.getCdr();
		} else {
			l.add(deepCopy(rest));
			break;
		}
	}
	return (Serializable) l;
}
 

import gnu.lists.LList; //导入依赖的package包/类
private static String llistToLiteral(ToExpressionStyle style, LList obj) {
	if (obj == null) {
		return "#!null";
	}
	Object rest = obj;
	StringBuffer sbuf = new StringBuffer(100);
	sbuf.append("(list ");
	for (int i = 0;;) {
		if (rest == LList.Empty)
			break;
		if (i > 0)
			sbuf.append(' ');
		if (rest instanceof Pair) {
			Pair pair = (Pair) rest;
			sbuf.append(toLiteral(style, pair.getCar()));
			rest = pair.getCdr();
		} else {
			sbuf.append(". ");
			sbuf.append(toLiteral(style, rest));
			break;
		}
		i++;
	}
	sbuf.append(')');
	return sbuf.toString();
}
 

import gnu.lists.LList; //导入依赖的package包/类
private static void proc(LList args, Map<Keyword, Object> argsMap) {
	if (!(args instanceof Pair)) {
		return;
	}
	Pair p = (Pair) args;
	Object car = p.getCar();
	LList cdr = ((LList) p.getCdr());
	if (car instanceof Keyword) {
		argsMap.put((Keyword) car, ((Pair) cdr).getCar());
	} else {
		argsMap.put(Keyword.make("rest"), new ArrayList<Object>(Arrays.asList(args.toArray())));
		return;
	}

	proc((LList) ((Pair) cdr).getCdr(), argsMap);
}
 

import gnu.lists.LList; //导入依赖的package包/类
/**
 * Return this YailList as an array.
 */
@Override
public Object[] toArray() {
  if (cdr instanceof Pair) {
    return ((Pair) cdr).toArray();
  } else if (cdr instanceof LList) {
    return ((LList) cdr).toArray();
  } else {
    throw new YailRuntimeError("YailList cannot be represented as an array", "YailList Error.");
  }
}
 

import gnu.lists.LList; //导入依赖的package包/类
/**
 * Return a String representation of this YailList.
 */
@Override
public String toString() {
  if (cdr instanceof Pair) {
    return ((Pair) cdr).toString();
  } else if (cdr instanceof LList) {
    return ((LList) cdr).toString();
  } else {
    throw new RuntimeException("YailList cannot be represented as a String");
  }
}
 

import gnu.lists.LList; //导入依赖的package包/类
public static FVector readVector(LispReader lexer, InPort port, int count, char close, int sharingIndex)
   throws java.io.IOException, SyntaxException
 {
   char saveReadState = ' ';
   if (port instanceof InPort)
     {	
saveReadState = ((InPort) port).readState;
((InPort) port).readState = close == ']' ? '[' : '(';
     }
   int startLine = port.getLineNumber();
   int startColumn = port.getColumnNumber()-1;
    try
      {
        FVector result = new FVector();
        lexer.bindSharedObject(sharingIndex, result);

        ReadTable rtable = ReadTable.getCurrent();
        Pair head = new Pair(null, LList.Empty);
        Pair last = head;
 for (;;)
   {
     int ch = lexer.read();
     if (ch < 0)
       lexer.eofError("unexpected EOF in vector starting here",
		      startLine + 1, startColumn);
     if (ch == close)
       break;
            last = lexer.readValuesAndAppend(ch, rtable, last);
   }
        result.replaceAll(((LList) head.getCdr()).toArray());
        result.setReadOnly();
 return result;

      }
    finally
      {
 if (port instanceof InPort)
   ((InPort) port).readState = saveReadState;
      }
 }
 

import gnu.lists.LList; //导入依赖的package包/类
public void setMenuBar (LList list)
{
  if (menubar != null)
  {
    SwtHelper.dispose(menubar);
  }

  menubar = SwtHelper.newMenu(shell, SWT.BAR );
  setMenuHelper(menubar, list);
  SwtHelper.setMenuBar(shell, menubar);
}
 

import gnu.lists.LList; //导入依赖的package包/类
/**
 * Heavily inspired from gnu.jemacs.swing.SwingMenu
 */
private void setMenuHelper(Menu parent, LList list)
{
  
  for (Iterator iter = list.iterator(); iter.hasNext();)
  {
    Object o = iter.next();
    try
    {
      if (o == null) 
      {
        continue;
      }
      else if (o instanceof Pair)
      {
        CharSequence menuName = (CharSequence) ((Pair) o).getCar();
        MenuItem menuItem = SwtHelper.newMenuItem(parent, SWT.CASCADE, menuName.toString(), null);
        Menu subMenu = SwtHelper.newMenu(menuItem);
        setMenuHelper(subMenu, (LList) ((Pair) o).getCdr());
        SwtHelper.setMenu(menuItem, subMenu);
      }
      else if (o instanceof FVector) 
      {
        CharSequence menuItemName = (CharSequence) ((FVector) o).get(0);
        Object command = ((FVector) o).get(1);
        SwtHelper.newMenuItem(parent, SWT.DROP_DOWN, menuItemName.toString(), new MenuCommandHandler(command));
      }
      else if (o instanceof CharSequence) 
      {
       SwtHelper.newMenuItem(parent, SWT.SEPARATOR, null, null); 
      }
    }
    catch (Exception e) 
    {
      System.err.println("SwtFrame.setMenu - problem with " + o);
    }
  }
}
 

import gnu.lists.LList; //导入依赖的package包/类
public void setMenuBar (LList menu)
 {
   menuBar.removeAll();
   java.util.Enumeration e = menu.elements();
   for (int i = 0;  e.hasMoreElements(); i++)
     {
Object item = e.nextElement();
       if (item == null)
         menuBar.add(Box.createHorizontalGlue());
       else
         menuBar.add(new SwingMenu((LList) item));
     }
   menuBar.updateUI();
 }