Changeset 4275
- Timestamp:
- 10/10/03 02:01:24 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Primitives.java
r4272 r4275 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Primitives.java,v 1.46 7 2003-10-10 01:53:48piso Exp $5 * $Id: Primitives.java,v 1.468 2003-10-10 02:01:24 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 32 32 // Primitive 33 33 private static final int DIVIDE = 1; 34 private static final int EXIT = 2; 35 private static final int MAX = 3; 36 private static final int MIN = 4; 37 private static final int MULTIPLY = 5; 38 private static final int VALUES = 6; 34 private static final int MAX = 2; 35 private static final int MIN = 3; 36 private static final int MULTIPLY = 4; 37 private static final int VALUES = 5; 39 38 40 39 // Primitive1 41 private static final int ABS = 7;42 private static final int ARRAYP = 8;43 private static final int ARRAY_HAS_FILL_POINTER_P = 9;44 private static final int BIT_VECTOR_P = 10;45 private static final int BOTH_CASE_P = 1 1;46 private static final int CHARACTERP = 1 2;47 private static final int CHAR_CODE = 1 3;48 private static final int CHAR_DOWNCASE = 1 4;49 private static final int CHAR_INT = 1 5;50 private static final int CHAR_UPCASE = 1 6;51 private static final int CODE_CHAR = 1 7;52 private static final int COMPILED_FUNCTION_P = 1 8;53 private static final int CONSP = 1 9;54 private static final int EVAL = 20;55 private static final int EVENP = 2 1;56 private static final int FOURTH = 2 2;57 private static final int FUNCTIONP = 2 3;58 private static final int IDENTITY = 2 4;59 private static final int KEYWORDP = 2 5;60 private static final int LENGTH = 2 6;61 private static final int LISTP = 2 7;62 private static final int LOWER_CASE_P = 2 8;63 private static final int MAKE_SYMBOL = 2 9;64 private static final int MAKUNBOUND = 30;65 private static final int NUMBERP = 3 1;66 private static final int ODDP = 3 2;67 private static final int PREDECESSOR = 3 3;68 private static final int SECOND = 3 4;69 private static final int SIMPLE_BIT_VECTOR_P = 3 5;70 private static final int SIMPLE_STRING_P = 3 6;71 private static final int SIMPLE_VECTOR_P = 3 7;72 private static final int SPECIAL_OPERATOR_P = 3 8;73 private static final int STRINGP = 3 9;74 private static final int SUCCESSOR = 40;75 private static final int SYMBOL_FUNCTION = 4 1;76 private static final int SYMBOL_NAME = 4 2;77 private static final int SYMBOL_PACKAGE = 4 3;78 private static final int SYMBOL_PLIST = 4 4;79 private static final int SYMBOL_VALUE = 4 5;80 private static final int THIRD = 4 6;81 private static final int UPPER_CASE_P = 4 7;82 private static final int VALUES_LIST = 4 8;83 private static final int VECTORP = 4 9;40 private static final int ABS = 6; 41 private static final int ARRAYP = 7; 42 private static final int ARRAY_HAS_FILL_POINTER_P = 8; 43 private static final int BIT_VECTOR_P = 9; 44 private static final int BOTH_CASE_P = 10; 45 private static final int CHARACTERP = 11; 46 private static final int CHAR_CODE = 12; 47 private static final int CHAR_DOWNCASE = 13; 48 private static final int CHAR_INT = 14; 49 private static final int CHAR_UPCASE = 15; 50 private static final int CODE_CHAR = 16; 51 private static final int COMPILED_FUNCTION_P = 17; 52 private static final int CONSP = 18; 53 private static final int EVAL = 19; 54 private static final int EVENP = 20; 55 private static final int FOURTH = 21; 56 private static final int FUNCTIONP = 22; 57 private static final int IDENTITY = 23; 58 private static final int KEYWORDP = 24; 59 private static final int LENGTH = 25; 60 private static final int LISTP = 26; 61 private static final int LOWER_CASE_P = 27; 62 private static final int MAKE_SYMBOL = 28; 63 private static final int MAKUNBOUND = 29; 64 private static final int NUMBERP = 30; 65 private static final int ODDP = 31; 66 private static final int PREDECESSOR = 32; 67 private static final int SECOND = 33; 68 private static final int SIMPLE_BIT_VECTOR_P = 34; 69 private static final int SIMPLE_STRING_P = 35; 70 private static final int SIMPLE_VECTOR_P = 36; 71 private static final int SPECIAL_OPERATOR_P = 37; 72 private static final int STRINGP = 38; 73 private static final int SUCCESSOR = 39; 74 private static final int SYMBOL_FUNCTION = 40; 75 private static final int SYMBOL_NAME = 41; 76 private static final int SYMBOL_PACKAGE = 42; 77 private static final int SYMBOL_PLIST = 43; 78 private static final int SYMBOL_VALUE = 44; 79 private static final int THIRD = 45; 80 private static final int UPPER_CASE_P = 46; 81 private static final int VALUES_LIST = 47; 82 private static final int VECTORP = 48; 84 83 85 84 // Primitive2 86 private static final int MEMBER = 50;87 private static final int RPLACA = 5 1;88 private static final int RPLACD = 5 2;89 private static final int SET = 5 3;85 private static final int MEMBER = 49; 86 private static final int RPLACA = 50; 87 private static final int RPLACD = 51; 88 private static final int SET = 52; 90 89 91 90 private Primitives() … … 93 92 definePrimitive("*", MULTIPLY); 94 93 definePrimitive("/", DIVIDE); 95 definePrimitive("exit", EXIT);96 94 definePrimitive("max", MAX); 97 95 definePrimitive("min", MIN); … … 195 193 case VALUES: // ### values 196 194 return values(args); 197 case EXIT: // ### exit198 exit();199 return T;200 195 default: 201 196 Debug.trace("bad index " + index);
Note: See TracChangeset
for help on using the changeset viewer.