| @generated function convertg{T<:Integer}(::Type{Rational{T}}, x::Irrational) | |
| o = precision(BigFloat) | |
| p = 256 | |
| while true | |
| setprecision(BigFloat, p) | |
| bx = BigFloat(x()) | |
| r = rationalize(T, bx, tol=0) | |
| if abs(BigFloat(r) - bx) > eps(bx) | |
| setprecision(BigFloat, o) | |
| return r |
| function setup(pkgname) | |
| Pkg.cd() do | |
| cd(pkgname) do | |
| info("Generating ssh key") | |
| run(`ssh-keygen -N "" -f .quickdocs_id_rsa`) | |
| info("Encrypting private key") | |
| run(`travis login --auto`) | |
| run(`travis encrypt-file .quickdocs_id_rsa --add deploy`) |
| import Base: checked_add, checked_mul | |
| function newparse{T}(::Type{T}, s, base=0) | |
| 0 <= base <= 62 || throw(ParseError("Invalid base")) | |
| en = endof(s) | |
| i = start(s) | |
| done(s,i) && throw(ParseError("Invalid $T")) | |
| c,i = next(s,i) | |
Useful links:
| # based on https://github.com/tlycken/Interpolations.jl/pull/37 | |
| Pkg.checkout("Interpolations", "master") | |
| Pkg.checkout("Ratios", "checked") | |
| using Interpolations, Grid | |
| A = rand(300,300,30); | |
| itp = interpolate!(copy(A), BSpline(Quadratic(Flat)), OnCell); | |
| yi = InterpGrid(copy(A), BCreflect, InterpQuadratic); |
| # converts bit-float and hex-float strings to floating point numbers | |
| # assumes round-to-nearest | |
| import Base: significand_mask, significand_bits, exponent_bias, tryparse | |
| for B in (2,16) | |
| @eval function tryparse{T<:Float64}(::Type{T}, s::String, ::Type{Val{$B}}) | |
| f_neg = false | |
| r_ind = false # radix pt. indicator | |
| r = 0 # no. of places after radix pt. |
| function winenvs(var) | |
| # Win: ansi | |
| len = ccall(:GetEnvironmentVariableA,stdcall,Uint32,(Ptr{Uint8},Ptr{Uint8},Uint32),var,C_NULL,0) | |
| if len > 0 | |
| val=zeros(Uint8,len) | |
| ccall(:GetEnvironmentVariableA,stdcall,Uint32,(Ptr{Uint8},Ptr{Uint8},Uint32),var,val,len) | |
| win_a = bytestring(val) | |
| else | |
| win_a = "" |