modules/regexpr.st

   1 "
   2  coded by Ketmar // Vampire Avalon (psyc://ketmar.no-ip.org/~Ketmar)
   3  Understanding is not required. Only obedience.
   4
   5  This program is free software. It comes without any warranty, to
   6  the extent permitted by applicable law. You can redistribute it
   7  and/or modify it under the terms of the Do What The Fuck You Want
   8  To Public License, Version 2, as published by Sam Hocevar. See
   9  http://sam.zoy.org/wtfpl/COPYING for more details.
  10 "
  11 Package [ RegExp ]
  12
  13 class: RegExpr [
  14 | rh mstr |
  15
  16 ^newREHandle: aStr type: aType [
  17   <#RegExpDo 0 aType aStr>.
  18   self primitiveFailed
  19 ]
  20
  21 ^new [
  22   self error: 'use newHS: or newTX: to create RegExpr'
  23 ]
  24
  25 ^newWithRH: rh [
  26   | obj |
  27   (rh class == String) ifTrue: [ ^rh ].
  28   obj := self basicNew.
  29   self in: obj var: #rh put: rh.
  30   ^obj
  31 ]
  32
  33 ^newHS: aStr [
  34   ^self newWithRH: (self newREHandle: aStr type: 0)
  35 ]
  36
  37 ^newTX: aStr [
  38   ^self newWithRH: (self newREHandle: aStr type: 1)
  39 ]
  40
  41 matchStr [
  42   ^mstr
  43 ]
  44
  45 match: aStr [
  46   mstr := aStr.
  47   <#RegExpDo 1 rh aStr>.
  48   self primitiveFailed
  49 ]
  50
  51 subCount [
  52   <#RegExpDo 2 rh>.
  53   self primitiveFailed
  54 ]
  55
  56 subStart: aIdx [
  57   <#RegExpDo 3 rh aIdx>.
  58   self primitiveFailed
  59 ]
  60
  61 subEnd: aIdx [
  62   <#RegExpDo 4 rh aIdx>.
  63   self primitiveFailed
  64 ]
  65
  66 captureAt: aIdx [
  67   | s e |
  68   (s := self subStart: aIdx) < 0 ifTrue: [ ^nil ].
  69   (e := self subEnd: aIdx) < 0 ifTrue: [ ^nil ].
  70   's=' print. s print. '; e=' print. e printNl.
  71   ^mstr from: s+1 to: e.
  72 ]
  73 ]