|  |  |  | @ -99,19 +99,19 @@ let buffer_len = 16384 | 
			
		
	
		
			
				
					|  |  |  |  | (* This function reads the json file in fname, validates it, and encoded in the AST data structure*) | 
			
		
	
		
			
				
					|  |  |  |  | (* defined in Clang_ast_t.  *) | 
			
		
	
		
			
				
					|  |  |  |  | let validate_decl_from_file fname = | 
			
		
	
		
			
				
					|  |  |  |  |   try  | 
			
		
	
		
			
				
					|  |  |  |  |   try | 
			
		
	
		
			
				
					|  |  |  |  |     Ag_util.Biniou.from_file ~len:buffer_len Clang_ast_b.read_decl fname | 
			
		
	
		
			
				
					|  |  |  |  |   with (Invalid_argument "Bi_inbuf.refill_from_channel") -> | 
			
		
	
		
			
				
					|  |  |  |  |     Printing.log_stats "WARNING: biniou buffer too short, skipping the file\n"; | 
			
		
	
		
			
				
					|  |  |  |  |     assert false | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  | let validate_decl_from_stdin () = | 
			
		
	
		
			
				
					|  |  |  |  |   try  | 
			
		
	
		
			
				
					|  |  |  |  |   try | 
			
		
	
		
			
				
					|  |  |  |  |     Ag_util.Biniou.from_channel ~len:buffer_len Clang_ast_b.read_decl stdin | 
			
		
	
		
			
				
					|  |  |  |  |   with (Invalid_argument "Bi_inbuf.refill_from_channel") -> | 
			
		
	
		
			
				
					|  |  |  |  |     Printing.log_stats "WARNING: biniou buffer too short, skipping the file\n"; | 
			
		
	
		
			
				
					|  |  |  |  |     assert false | 
			
		
	
		
			
				
					|  |  |  |  |    | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  | let do_run source_path ast_path = | 
			
		
	
		
			
				
					|  |  |  |  |   try | 
			
		
	
	
		
			
				
					|  |  |  | 
 |