]> gitweb.factorcode.org Git - factor.git/commitdiff
Merge branch 'master' of git://factorcode.org/git/factor into new-alien-pointers
authorJoe Groff <arcata@gmail.com>
Mon, 22 Feb 2010 07:14:08 +0000 (23:14 -0800)
committerJoe Groff <arcata@gmail.com>
Mon, 22 Feb 2010 07:14:08 +0000 (23:14 -0800)
1  2 
basis/alien/parser/parser-tests.factor
basis/alien/parser/parser.factor

index b7f7b106282e6ce2300d0e02d1a7f2def911767b,2fec2d9a4ce750346a763d0ae1e6cad858949a62..d2aec71f52db0f6ce1de5af42edead1e07a629fa
@@@ -18,18 -18,27 +18,23 @@@ CONSTANT: eleven 1
      [ { int 5 } ] [ "int[5]" parse-c-type ] unit-test
      [ { int 5 10 11 } ] [ "int[5][10][11]" parse-c-type ] unit-test
      [ { int 5 10 eleven } ] [ "int[5][10][eleven]" parse-c-type ] unit-test
 -    [ void* ] [ "int*" parse-c-type ] unit-test
 -    [ void* ] [ "int**" parse-c-type ] unit-test
 -    [ void* ] [ "int***" parse-c-type ] unit-test
 -    [ void* ] [ "int****" parse-c-type ] unit-test
 -    [ char* ] [ "char*" parse-c-type ] unit-test
 -    [ void* ] [ "char**" parse-c-type ] unit-test
 -    [ void* ] [ "char***" parse-c-type ] unit-test
 -    [ void* ] [ "char****" parse-c-type ] unit-test
 +    [ pointer: void ] [ "void*" parse-c-type ] unit-test
 +    [ pointer: int ] [ "int*" parse-c-type ] unit-test
 +    [ pointer: int* ] [ "int**" parse-c-type ] unit-test
 +    [ pointer: int** ] [ "int***" parse-c-type ] unit-test
 +    [ pointer: int*** ] [ "int****" parse-c-type ] unit-test
 +    [ pointer: char ] [ "char*" parse-c-type ] unit-test
      [ char2 ] [ "char2" parse-c-type ] unit-test
 -    [ char* ] [ "char2*" parse-c-type ] unit-test
 +    [ pointer: char2 ] [ "char2*" parse-c-type ] unit-test
  
 -    [ "not-c-type" parse-c-type ] [ no-c-type? ] must-fail-with
      [ "not-word" parse-c-type ] [ error>> no-word-error? ] must-fail-with
 -
  ] with-file-vocabs
  
+ FUNCTION: void* alien-parser-effect-test ( int *arg1 float arg2 ) ;
+ [ (( arg1 arg2 -- void* )) ] [
+     \ alien-parser-effect-test "declared-effect" word-prop
+ ] unit-test
  ! Reported by mnestic
  TYPEDEF: int alien-parser-test-int ! reasonably unique name...
  
Simple merge