Changeset 400

Show
Ignore:
Timestamp:
09/25/08 17:36:13 (4 months ago)
Author:
sergey.kol..@gmail.com
Message:

Sergey Kolos:

  • Reverting back second part of changeset [392]. New code that supposed to handle paren matching with string of octothorpes breaks on the following lisp code:

(defun f (x) "xs = ((:N \"n\")),"x)

Since I don't have any example of string of octothorpes I am reverting code back to what worked for me.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • jasko.tim.lisp/src/jasko/tim/lisp/builder/LispBuilder.java

    r392 r400  
    553553                                                        i = line.length(); 
    554554                                                        break; 
    555                                                 } else if (c == '"' && !(i > 1 && (!inQuotes && (line.charAt(i-1) == '\\' || line.charAt(i-2) == '#')))) { 
     555                                                } else if (c == '"' && !(i > 1 && (line.charAt(i-1) == '\\' || line.charAt(i-2) == '#'))) { 
    556556                                                        inQuotes = !inQuotes; 
    557                                                 } else if (c == '#' && !inQuotes && !(i > 1 && (line.charAt(i-1) == '\\' || line.charAt(i-2) == '#'))) { 
     557                                                } else if (c == '#' && !(i > 1 && (line.charAt(i-1) == '\\' || line.charAt(i-2) == '#'))) { 
    558558                                                        if (i+1 < line.length()) { 
    559559                                                                if (line.charAt(i+1) == '|') {