anchor.diff:  """
           returnType name parameters name name name name
   
  -let genereateCFunctionPointerImpl name =
  +let genereateCDeclFunctionPointerImplCode name =
       sprintf """
   %s Delegate_%s;
   FEROP_EXPORT void FEROP_DECL ferop_set_%s (%s ptr)
  
positive.code:     Header : string
      Source : string }
  
  let generateHeaderf (name : string) =
      sprintf """
  #ifndef __%s_H__
  #define __%s_H__
  
negative.code:     | Struct x ->           generateCDeclStruct x
  
  let generateCDeclFunctionPointerImpl {CDeclFunctionPointer.Name=name} =
      genereateCDeclFunctionPointerImplCode name
  
  let generateCDeclFunctions = function
      | [] -> ""
  