Working on error summary list
parent
0420b39f4f
commit
0b52638dfc
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors assocs kernel math.order sorting sequences definitions
|
||||
namespaces arrays ;
|
||||
namespaces arrays splitting io math.parser math ;
|
||||
IN: source-files.errors
|
||||
|
||||
TUPLE: source-file-error error asset file line# ;
|
||||
|
@ -42,6 +42,19 @@ source-file-error-types [ V{ } clone ] initialize
|
|||
: error-icon-path ( type -- icon )
|
||||
source-file-error-types get at first ;
|
||||
|
||||
: error-summary ( -- )
|
||||
source-file-error-types get [
|
||||
[ name>> "+" ?head drop "+" ?tail drop ]
|
||||
[ second call length ] bi*
|
||||
] assoc-map
|
||||
[ nip 0 > ] assoc-filter
|
||||
[
|
||||
over
|
||||
[ ":" write write ]
|
||||
[ " - print " write number>string write bl ]
|
||||
[ { { CHAR: - CHAR: \s } } substitute write "s" print ] tri*
|
||||
] assoc-each ;
|
||||
|
||||
: all-errors ( -- errors )
|
||||
source-file-error-types get
|
||||
[ second second call( -- seq ) ] map
|
||||
|
|
Loading…
Reference in New Issue