Changeset 3493
- Timestamp:
- 08/24/03 18:30:18 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/j/LispFormatter.java
r2969 r3493 3 3 * 4 4 * Copyright (C) 1998-2003 Peter Graves 5 * $Id: LispFormatter.java,v 1.3 1 2003-07-17 00:47:06piso Exp $5 * $Id: LispFormatter.java,v 1.32 2003-08-24 18:30:18 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 96 96 case STATE_CAR: { 97 97 String token = text.substring(tokenBegin, tokenEnd).trim(); 98 if ( LispMode.isDefiner(token)) {98 if (isDefiner(token)) { 99 99 if (isPositionFunctional(text, tokenBegin, currentLine)) 100 100 format = LISP_FORMAT_DEFUN; … … 136 136 tokenBegin = tokenEnd; 137 137 } 138 } 139 140 // Don't include DEFCONSTANT, DEFPARAMETER or DEFVAR! 141 private static final String[] definers = new String[] { 142 "defclass", "define-condition", "defmacro", "defmethod", "defstruct", 143 "deftype", "defun" 144 }; 145 146 private static final boolean isDefiner(String s) 147 { 148 if (s.length() >= 5 && s.startsWith("def")) 149 if (Utilities.isOneOf(s, definers)) 150 return true; 151 152 return false; 138 153 } 139 154
Note: See TracChangeset
for help on using the changeset viewer.