18 lines
611 B
Factor
18 lines
611 B
Factor
! Copyright (C) 2008, 2009 Doug Coleman, Daniel Ehrenberg.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors escape-strings kernel make prettyprint.backend
|
|
prettyprint.custom regexp regexp.parser sequences splitting ;
|
|
IN: regexp.prettyprint
|
|
|
|
M: regexp pprint*
|
|
[
|
|
[
|
|
dup options>> options>string [
|
|
raw>> "/" "\\/" replace "re" % escape-simplest %
|
|
] [
|
|
[ raw>> "/" "\\/" replace "re:: " % escape-simplest % ]
|
|
[ " " % escape-simplest % ] bi*
|
|
] if-empty
|
|
] "" make
|
|
] keep present-text ;
|