steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Working on error summary list

db4
Slava Pestov 2009-04-12 13:24:12 -05:00
parent 0420b39f4f
commit 0b52638dfc
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
core/source-files/errors/errors.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs kernel math.order sorting sequences definitions USING: accessors assocs kernel math.order sorting sequences definitions
namespaces arrays ; namespaces arrays splitting io math.parser math ;
IN: source-files.errors IN: source-files.errors
TUPLE: source-file-error error asset file line# ; TUPLE: source-file-error error asset file line# ;
@ -42,6 +42,19 @@ source-file-error-types [ V{ } clone ] initialize
: error-icon-path ( type -- icon ) : error-icon-path ( type -- icon )
source-file-error-types get at first ; 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 ) : all-errors ( -- errors )
source-file-error-types get source-file-error-types get
[ second second call( -- seq ) ] map [ second second call( -- seq ) ] map