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

debugger: give a descriptive error for *-in-c-type-name

db4
Joe Groff 2010-03-15 12:57:38 -07:00
parent 08f29d9fcd
commit acb04ad3ed
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
basis/debugger/debugger.factor
View File

@ -1,15 +1,15 @@
! Copyright (C) 2004, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: slots alien.c-types arrays definitions generic hashtables
summary io kernel math namespaces make prettyprint prettyprint.config
sequences assocs sequences.private strings io.styles io.pathnames
vectors words system splitting math.parser classes.mixin classes.tuple
continuations continuations.private combinators generic.math
classes.builtin classes compiler.units generic.standard generic.single
vocabs init kernel.private io.encodings accessors math.order destructors
source-files parser classes.tuple.parser effects.parser lexer
generic.parser strings.parser vocabs.loader vocabs.parser
source-files.errors ;
USING: slots alien.c-types alien.parser arrays definitions generic
hashtables summary io kernel math namespaces make prettyprint
prettyprint.config sequences assocs sequences.private strings
io.styles io.pathnames vectors words system splitting math.parser
classes.mixin classes.tuple continuations continuations.private
combinators generic.math classes.builtin classes compiler.units
generic.standard generic.single vocabs init kernel.private
io.encodings accessors math.order destructors source-files parser
classes.tuple.parser effects.parser lexer generic.parser strings.parser
vocabs.loader vocabs.parser source-files.errors ;
IN: debugger
GENERIC: error-help ( error -- topic )
@ -349,6 +349,9 @@ M: stack-effect-omits-dashes summary drop "Stack effect must contain “--”" ;
M: no-c-type summary name>> unparse "“" "” is not a C type" surround ;
M: *-in-c-type-name summary
name>> "Cannot define a C type “" "” that ends with an asterisk (*)" surround ;
{
{ [ os windows? ] [ "debugger.windows" require ] }
{ [ os unix? ] [ "debugger.unix" require ] }