Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tag: v1.1
Fetching contributors…

Cannot retrieve contributors at this time

executable file 53 lines (48 sloc) 2.063 kb
#!/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.
%% the stupid try-catch construct below is due to e.g. the R15A
%% release being denoted as having "5.9.pre" as version info :-(
-spec parse_version_string(string()) -> [non_neg_integer()].
parse_version_string(VerStr) ->
[try list_to_integer(S)
catch _:_ -> 0 end || S <- string:tokens(VerStr, ".")].
Jump to Line
Something went wrong with that request. Please try again.