anchor.diff:      Header : string
       Source : string }
   
  -let generateHeaderCode (name : string) =
  +let generateHeaderCode (name : string) header =
  +    let name = name.ToUpper ()
       sprintf """
   #ifndef __%s_H__
   #define __%s_H__
   %s
   #endif
   """ 
  -        (name.ToUpper ())
  -        (name.ToUpper ())
  +        name name header
   
  -let generateMainHeaderCode name body =
  +let generateMainHeaderCode name header =
       generateHeaderCode name <| sprintf
           @"
   #include <stdint.h>
  
positive.code: """
          name name name name name
  
  let generateCDeclStructCode =
      sprintf """
  typedef struct {
  %s
  } %s;
  """
  
  let generateHeaderIncludeCode name = sprintf "#include \"%s.h\" \n" name
  
  
negative.code: #endif
  
  %s
  "           header
  
  let generateCDeclFunctionPrototypeCode returnType name parameterTypes =
      sprintf """
  FEROP_EXPORT %s FEROP_DECL %s (%s);
  """
          returnType name parameterTypes
  
  let generateCDeclFunctionCode = 
      sprintf """
  