From 4e68c43f3dd23cc9db11bc62caaa4e899d16afc7 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Sun, 27 Sep 2009 16:06:13 -0500 Subject: [PATCH] disable parsing of string c-types --- basis/alien/parser/parser.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor index d58f9a315c..16a994a8a7 100644 --- a/basis/alien/parser/parser.factor +++ b/basis/alien/parser/parser.factor @@ -6,17 +6,17 @@ kernel parser sequences splitting words fry locals lexer namespaces summary math vocabs.parser ; IN: alien.parser -: parse-c-type-name ( name -- word/string ) - [ search ] keep or ; +: parse-c-type-name ( name -- word ) + dup search [ nip ] [ no-word ] if* ; : parse-c-type ( string -- array ) { { [ dup "void" = ] [ drop void ] } { [ CHAR: ] over member? ] [ parse-array-type parse-c-type-name prefix ] } { [ dup search c-type-word? ] [ parse-c-type-name ] } - { [ dup c-types get at ] [ ] } + { [ "**" ?tail ] [ drop void* ] } { [ "*" ?tail ] [ parse-c-type-name resolve-pointer-type ] } - [ no-c-type ] + [ parse-c-type-name no-c-type ] } cond ; : scan-c-type ( -- c-type ) -- 2.34.1