have TYPEDEF:, STRUCT: etc. throw an error if you try to define a c type name ending with asterisk
							parent
							
								
									482aed8ecc
								
							
						
					
					
						commit
						00a7559d55
					
				| 
						 | 
				
			
			@ -46,8 +46,14 @@ IN: alien.parser
 | 
			
		|||
        "callback-library"
 | 
			
		||||
    } reset-props ;
 | 
			
		||||
 | 
			
		||||
ERROR: *-in-c-type-name name ;
 | 
			
		||||
 | 
			
		||||
: validate-c-type-name ( name -- name )
 | 
			
		||||
    dup "*" tail?
 | 
			
		||||
    [ *-in-c-type-name ] when ;
 | 
			
		||||
 | 
			
		||||
: CREATE-C-TYPE ( -- word )
 | 
			
		||||
    scan current-vocab create {
 | 
			
		||||
    scan validate-c-type-name current-vocab create {
 | 
			
		||||
        [ fake-definition ]
 | 
			
		||||
        [ set-word ]
 | 
			
		||||
        [ reset-c-type ]
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue