compiler/PEGFsaTransition.st
changeset 523 09afcf28ed60
parent 516 3b81c9e53352
child 525 751532c8f3db
equal deleted inserted replaced
522:837963c607a6 523:09afcf28ed60
   141     disjunction := Array new: 255.
   141     disjunction := Array new: 255.
   142     
   142     
   143     1 to: 255 do: [ :index |
   143     1 to: 255 do: [ :index |
   144         disjunction
   144         disjunction
   145             at: index 
   145             at: index 
   146             put: ((self characterSet at: index) xor: [transition characterSet at: index])
   146             put: ((self characterSet at: index) xor: (transition characterSet at: index))
   147     ].
   147     ].
   148 
   148 
   149     ^ disjunction
   149     ^ disjunction
       
   150 
       
   151     "Modified: / 18-08-2015 / 22:41:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   150 !
   152 !
   151 
   153 
   152 intersection: transition
   154 intersection: transition
   153     | intersection |
   155     | intersection |
   154     intersection := Array new: 255.
   156     intersection := Array new: 255.