write_compile_flags

#!/usr/bin/env escript

%%% Copyright 2010-2011 Manolis Papadakis <manopapad@gmail.com>,
%%%                     Eirini Arvaniti <eirinibob@gmail.com>
%%%                 and Kostis Sagonas <kostis@cs.ntua.gr>
%%%
%%% This file is part of PropEr.
%%%
%%% PropEr is free software: you can redistribute it and/or modify
%%% it under the terms of the GNU General Public License as published by
%%% the Free Software Foundation, either version 3 of the License, or
%%% (at your option) any later version.
%%%
%%% PropEr is distributed in the hope that it will be useful,
%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%%% GNU General Public License for more details.
%%%
%%% You should have received a copy of the GNU General Public License
%%% along with PropEr.  If not, see <http://www.gnu.org/licenses/>.

%%% Author:      Manolis Papadakis
%%% Description: Compilation environment setup script: This script computes and
%%%              prints out the correct set of compilation flags for the
%%%              currently running version of the OTP.

-spec main([file:filename(),...]) -> 'ok'.
main([OutFile]) ->
    CurrVer = parse_version_string(erlang:system_info(version)),
    {ok,Handle} = file:open(OutFile, [write]),
    ToDefine =
	%% older than R15B => no location information in stacktraces
	case CurrVer < [5,9] of
	    true  -> ["OLD_STACKTRACE_FORMAT"];
	    false -> []
	end ++
	%% older than R13B04 => can't handle recursive type declarations
	case CurrVer < [5,7,5] of
	    true  -> ["NO_TYPES"];
	    false -> []
	end,
    lists:foreach(fun(X) -> io:format(Handle, "-define(~s, 1).~n", [X]) end,
		  ToDefine),
    ok = file:close(Handle),
    ok.

-spec parse_version_string(string()) -> [non_neg_integer()].
parse_version_string(VerStr) ->
    [list_to_integer(S) || S <- string:tokens(VerStr, ".")].