anchor.diff:  %% an Erlang QuickCheck generator.
   %% @author Ángel Herranz (aherranz@fi.upm.es), Lars-Ake Fredlund 
   %% (lfredlund@fi.upm.es), Sergio Gil (sergio.gil.luque@gmail.com)
  -%% @copyright 2013 Ángel Herranz, Lars-Ake Fredlund, Sergio Gil 
  -%%
  +%% @copyright 2013 Ángel Herranz, Lars-Ake Fredlund, Sergio Gil
  +
   
   -module(jsongen).
   
  
positive.code:             ReqProps = [{P,S} || {P,S} <- Properties, lists:member(P, Required)],
              OptProps = [{P,S} || {P,S} <- Properties, not lists:member(P, Required)],
  
              %% case AdditionalProperties of 
              %%     false -> 
              %%         AddP = [];
  
negative.code:          [ { stringGen(Length) , {struct,[Schema]}}  | additional_gen(Schema,N-1,Length)].
  
  ceiling(X) ->
      T = trunc(X),
      case (X - T) of
  
          Negative when Negative < 0 -> T;
          Positive when Positive > 0 -> T + 1;
          _ -> T
  
      end.
  
  
  