Changeset 11281
- Timestamp:
- 08/13/08 15:13:08 (15 years ago)
- Location:
- trunk/j/src/org/armedbear/lisp
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Mailbox.java
r11158 r11281 3 3 * 4 4 * Copyright (C) 2004-2007 Peter Graves, Andras Simon 5 * $Id: Mailbox.java,v 1.1 2 2007-02-23 21:17:34 pisoExp $5 * $Id: Mailbox.java,v 1.13 2008-08-13 15:13:06 ehuelsmann Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 27 27 public final class Mailbox extends LispObject 28 28 { 29 private LinkedList box = new LinkedList();29 private LinkedList<LispObject> box = new LinkedList<LispObject>(); 30 30 31 31 public LispObject typeOf() -
trunk/j/src/org/armedbear/lisp/Primitives.java
r11244 r11281 3 3 * 4 4 * Copyright (C) 2002-2007 Peter Graves 5 * $Id: Primitives.java,v 1.88 1 2007-09-17 18:14:48 pisoExp $5 * $Id: Primitives.java,v 1.882 2008-08-13 15:13:06 ehuelsmann Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 3997 3997 return NIL; 3998 3998 } 3999 ArrayList arrayList = new ArrayList();3999 ArrayList<LispObject> arrayList = new ArrayList<LispObject>(); 4000 4000 while (args != NIL) 4001 4001 { -
trunk/j/src/org/armedbear/lisp/RuntimeClass.java
r11158 r11281 3 3 * 4 4 * Copyright (C) 2004 Peter Graves 5 * $Id: RuntimeClass.java,v 1.1 2 2007-02-23 21:17:34 pisoExp $5 * $Id: RuntimeClass.java,v 1.13 2008-08-13 15:13:07 ehuelsmann Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 28 28 public class RuntimeClass extends Lisp 29 29 { 30 private static Map classes = new HashMap();30 private static Map<String,RuntimeClass> classes = new HashMap<String,RuntimeClass>(); 31 31 32 private Map methods = new HashMap();32 private Map<String,Function> methods = new HashMap<String,Function>(); 33 33 34 34 // ### %jnew-runtime-class … … 42 42 if (length < 3 || length % 2 != 1) 43 43 return error(new WrongNumberOfArgumentsException(this)); 44 RuntimeClass rc = new RuntimeClass();45 String className = args[0].getStringValue();44 RuntimeClass rc = new RuntimeClass(); 45 String className = args[0].getStringValue(); 46 46 for (int i = 1; i < length; i = i+2) { 47 47 String methodName = args[i].getStringValue(); 48 48 rc.addLispMethod(methodName, (Function)args[i+1]); 49 }49 } 50 50 classes.put(className, rc); 51 return T;51 return T; 52 52 } 53 53 }; … … 89 89 { 90 90 String cn = className.getStringValue(); 91 String pn = cn.substring(0,cn.lastIndexOf('.'));92 byte[] cb = (byte[]) classBytes.javaInstance();91 String pn = cn.substring(0,cn.lastIndexOf('.')); 92 byte[] cb = (byte[]) classBytes.javaInstance(); 93 93 try { 94 94 JavaClassLoader loader = JavaClassLoader.getPersistentInstance(pn); -
trunk/j/src/org/armedbear/lisp/ShellCommand.java
r11158 r11281 3 3 * 4 4 * Copyright (C) 2000-2005 Peter Graves 5 * $Id: ShellCommand.java,v 1. 9 2007-02-23 21:17:34 pisoExp $5 * $Id: ShellCommand.java,v 1.10 2008-08-13 15:13:08 ehuelsmann Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 83 83 } 84 84 } else if (Utilities.isPlatformWindows) { 85 ArrayList list = new ArrayList();85 ArrayList<String> list = new ArrayList<String>(); 86 86 list.add("cmd.exe"); 87 87 list.add("/c"); … … 134 134 135 135 // Does not handle embedded single-quoted strings. 136 private static List tokenize(String s)137 { 138 ArrayList list = new ArrayList();136 private static List<String> tokenize(String s) 137 { 138 ArrayList<String> list = new ArrayList<String>(); 139 139 StringBuffer sb = new StringBuffer(); 140 140 boolean inQuote = false; -
trunk/j/src/org/armedbear/lisp/StandardGenericFunction.java
r11158 r11281 3 3 * 4 4 * Copyright (C) 2003-2006 Peter Graves 5 * $Id: StandardGenericFunction.java,v 1.2 0 2007-02-23 21:17:34 pisoExp $5 * $Id: StandardGenericFunction.java,v 1.21 2008-08-13 15:13:08 ehuelsmann Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 30 30 private int numberOfRequiredArgs; 31 31 32 private HashMap cache; 32 private HashMap<CacheEntry,LispObject> cache; 33 private HashMap<LispObject,LispObject> slotCache; 33 34 34 35 public StandardGenericFunction() … … 674 675 } 675 676 CacheEntry classes = new CacheEntry(array); 676 HashMap ht = gf.cache;677 HashMap<CacheEntry,LispObject> ht = gf.cache; 677 678 if (ht == null) 678 ht = gf.cache = new HashMap ();679 ht = gf.cache = new HashMap<CacheEntry,LispObject>(); 679 680 ht.put(classes, third); 680 681 return third; … … 706 707 } 707 708 CacheEntry classes = new CacheEntry(array); 708 HashMap ht = gf.cache;709 HashMap<CacheEntry,LispObject> ht = gf.cache; 709 710 if (ht == null) 710 711 return NIL; … … 733 734 LispObject layout = second; 734 735 LispObject location = third; 735 HashMap ht = gf.cache;736 HashMap<LispObject,LispObject> ht = gf.slotCache; 736 737 if (ht == null) 737 ht = gf. cache = new HashMap();738 ht = gf.slotCache = new HashMap<LispObject,LispObject>(); 738 739 ht.put(layout, location); 739 740 return third; … … 758 759 } 759 760 LispObject layout = second; 760 HashMap ht = gf.cache;761 HashMap<LispObject,LispObject> ht = gf.slotCache; 761 762 if (ht == null) 762 763 return NIL;
Note: See TracChangeset
for help on using the changeset viewer.