Make docs chapter on default units and physical constants

docs/make.jl

@@ -1,10 +1,30 @@
 using Documenter, Unitful, Dates
 
+const ci = get(ENV, "CI", nothing) == "true"
+
+function check_defaultunits_version()
+    vfile = "docs/src/assets/vfile.txt"
+    r = readline(vfile)
+    docs_v = VersionNumber(r)
+    pkg_v = pkgversion(Unitful)
+    docs_v == pkg_v || error("Docs chapter on default units built with the wrong version of Unitful \
+        (docs built for $docs_v vs current Unitful version $pkg_v). \
+        Please run the script on the local computer with the proper Unitful version")
+    return nothing
+end
+
+# on local computer, (re-)create the documentation file defaultunits.md
+if !ci
+    ENV["UNITFUL_FANCY_EXPONENTS"] = false
+    include("make_def-units_docs.jl")
+    MakeDefUnitsDocs.make_chapter()
+end
+
 DocMeta.setdocmeta!(Unitful, :DocTestSetup, :(using Unitful))
 
 makedocs(
     sitename = "Unitful.jl",
-    format = Documenter.HTML(prettyurls = get(ENV, "CI", nothing) == "true"),
+    format = Documenter.HTML(prettyurls = ci),
     warnonly = [:missing_docs],
     modules = [Unitful],
     workdir = joinpath(@__DIR__, ".."),
@@ -21,8 +41,12 @@ makedocs(
         "Interoperability with `Dates`" => "dates.md"
         "Extending Unitful" => "extending.md"
         "Troubleshooting" => "trouble.md"
+        "Pre-defined units and constants" => "defaultunits.md"
         "License" => "LICENSE.md"
     ]
 )
 
-deploydocs(repo = "github.com/PainterQubits/Unitful.jl.git")
+if ci
+    check_defaultunits_version()
+    deploydocs(repo = "github.com/PainterQubits/Unitful.jl.git")
+end

docs/make_def-units_docs.jl

@@ -0,0 +1,322 @@
+module MakeDefUnitsDocs
+
+using Unitful, OrderedCollections
+
+mdfile = "docs/src/defaultunits.md"
+mdheader = "docs/src/assets/defaultunits-header.md"
+# mdfooter = "docs/src/assets/defaultunits-footer.md"
+mdlogunits = "docs/src/assets/defaultunits-logunits.md"
+vfile = "docs/src/assets/vfile.txt"
+
+"""
+# Examples
+```julia-repl
+julia> prefnamesvals()
+OrderedCollections.OrderedDict{String, Tuple{String, Int64}} with 20 entries:
+  "y"  => ("yocto", -24)
+  "z"  => ("zepto", -21)
+  ⋮    => ⋮
+"""
+function prefnamesvals()
+    prefixnamestable = [
+    ("quetta" ,  "Q" ,  1E+030 ) , 
+    ("ronna" ,  "R" ,  1E+027 ) , 
+    ("yotta" ,  "Y" ,  1E+024 ) , 
+    ("zetta" ,  "Z" ,  1E+021 ) , 
+    ("exa" ,  "E" ,  1E+018 ) , 
+    ("peta" ,  "P" ,  1000000000000000 ) , 
+    ("tera" ,  "T" ,  1000000000000 ) , 
+    ("giga" ,  "G" ,  1000000000 ) , 
+    ("mega" ,  "M" ,  1000000 ) , 
+    ("kilo" ,  "k" ,  1000 ) , 
+    ("hecto" ,  "h" ,  100 ) , 
+    ("deca" ,  "da" ,  10 ) , 
+    ("deci" ,  "d" ,  0.1 ) , 
+    ("centi" ,  "c" ,  0.01 ) , 
+    ("milli" ,  "m" ,  0.001 ) , 
+    ("micro" ,  "μ" ,  0.000001 ) , 
+    ("nano" ,  "n" ,  0.000000001 ) , 
+    ("pico" ,  "p" ,  1E-12 ) , 
+    ("femto" ,  "f" ,  1E-15 ) , 
+    ("atto" ,  "a" ,  1E-18 ) , 
+    ("zepto" ,  "z" ,  1E-21 ) , 
+    ("yocto" ,  "y" ,  1E-24 ) , 
+    ("ronto" ,  "r" ,  1E-27 ) , 
+    ]
+    pd = Unitful.prefixdict
+    sxp = sort(collect(keys(pd)))
+
+    pnn = Dict([p[2] => p[1] for p in prefixnamestable])
+    pnv = Dict([p[2] => p[3] for p in prefixnamestable])
+
+    @assert all([log10(pnv[v]) == k for (k, v) in pd if pd[k] != ""])
+    return OrderedDict([pd[k] => (pnn[pd[k]], k) for k in sxp if pd[k] != ""])  
+end
+
+regularid(n) = ! startswith(string(n), r"#|@")
+
+uful_ids() = [n for n in names(Unitful; all=true) if regularid(n)]
+
+docstr(n::Symbol) = Base.Docs.doc(Base.Docs.Binding(Unitful, n)) |> string
+
+isprefixed(u::Symbol) = occursin("A prefixed unit, equal", docstr(u))
+
+isdocumented(n::Symbol) = ! startswith(docstr(n), "No documentation found.")
+
+"""
+# Examples
+```julia-repl
+julia> gettypes(Unitful.Power)
+1-element Vector{DataType}:
+ Quantity{T, 𝐋^2 𝐌 𝐓^-3, U}
+```
+"""
+function gettypes(x::Type)
+    if x isa UnionAll
+        return gettypes(x.body)
+    elseif x isa Union
+        pns = propertynames(x)
+        ts = [getproperty(x, pn) for pn in pns]
+        ts = [t for t in ts if (t isa Type) && (t <: Unitful.Quantity)]
+        return ts
+    elseif x <: Unitful.Quantity
+        return [x]
+    else
+        return []
+    end
+end
+
+
+"""
+    getphysdims(uids::Vector{Symbol})
+Filters the list of `Unitful` identifiers to return those which denote physical dimensions (e.g. `Area`, `Power`)
+"""
+getphysdims(uids) = [n for n in uids 
+        if (getproperty(Unitful, n) isa UnionAll) && 
+            ! endswith(string(n), "Units") &&
+            ! occursin("Scale", string(n)) &&
+            !isempty(gettypes(getproperty(Unitful, n)))]
+
+"""
+# Examples
+```julia-repl
+julia> getdim(Unitful.Area)
+𝐋^2
+```
+"""
+getdim(x::Type) = gettypes(x)[1].parameters[2]
+getdim(x::Symbol) = getdim(getproperty(Unitful, x))
+
+"""
+# Examples
+```julia-repl
+julia> getdimpars(Unitful.Power)
+svec((Unitful.Dimension{:Length}(2//1), Unitful.Dimension{:Mass}(1//1), Unitful.Dimension{:Time}(-3//1)))
+```
+"""
+getdimpars(x) = getproperty(typeof(getdim(x)), :parameters)
+getdimpar(x) = getdimpars(x)[1][1]
+getdimpow(x) = getdimpar(x).power
+
+isbasicdim(x) = length(getdimpars(x)[1])== 1 && getdimpow(x) == 1
+
+function physdims_categories(physdims)
+    basicdims = Symbol[]
+    compounddims = Symbol[]
+    otherdims =  Symbol[]
+    for d in physdims
+        try
+            if isbasicdim(d)
+                push!(basicdims, d)
+            else
+                push!(compounddims, d)
+            end
+        catch
+            push!(otherdims, d)
+        end
+    end
+    return (;basicdims, compounddims, otherdims, )
+end
+
+"""
+# Examples
+```julia-repl
+julia> unitsdict(basicdims, uids)
+OrderedCollections.OrderedDict{Symbol, Vector{Symbol}} with 7 entries:
+  :Amount      => [:mol]
+  :Current     => [:A]
+  :Length      => [:angstrom, :ft, :inch, :m, :mi, :mil, :yd]
+  :Luminosity  => [:cd, :lm]
+  :Mass        => [:dr, :g, :gr, :kg, :lb, :oz, :slug, :u]
+  :Temperature => [:K, :Ra, :°C, :°F]
+  :Time        => [:d, :hr, :minute, :s, :wk, :yr]
+```
+"""
+function unitsdict(physdims, uids)
+    ups = []
+    for d in physdims
+        dm = getproperty(Unitful, d)
+        units = Symbol[]
+        for uname in uids
+            u = getproperty(Unitful, uname)
+            if (u isa Unitful.Units) 
+                if (1*u isa dm) && (!isprefixed(uname) || uname == :g) && isdocumented(uname) # gram considered prefixed unit
+                    push!(units, uname)
+                end
+            end
+        end
+        if !isempty(units) 
+            sort!(units; by = x -> lowercase(string(x)))
+            unique!(nameofunit, units) # special cases: Liter, Angstrom
+            push!(ups, d => units)
+        end
+    end
+    return OrderedDict(sort!(ups))
+end
+
+function physconstants(uids) 
+    ph_consts = [n for n in uids if 
+    isconst(Unitful, n) && 
+    !(getproperty(Unitful, n) isa Union{Type, Unitful.Units, Unitful.Dimensions, Module, Function}) &&
+    isdocumented(n) ]
+    sort!(ph_consts)
+    return ph_consts
+end
+
+function isnodims(u) 
+    u isa Unitful.FreeUnits || return false
+    return getproperty(typeof(u), :parameters)[2] == NoDims
+end
+isnodims(u::Symbol) = isnodims(getproperty(Unitful, u))
+
+nodimsunits(uids) = [n for n in uids if isnodims(n) && isdocumented(n) && !isprefixed(n) && n != :NoUnits]
+
+removerefs(d) = replace(d, r"\[(`[\w\.]+\`)]\(@ref\)" => s"\1")
+
+"""
+    udoc(s)
+Truncates documentation and removes references
+"""
+udoc(s) = match(r"(?ms)(.+)\n\nDimension: ", docstr(s)).captures[1] |> removerefs
+
+function nameofunit(u)
+    special = Dict(u"ha" => "Hectare", u"kg" => "Kilogram", u"°F" => "Degree Fahrenheit", u"°C" => "Degree Celcius")
+    u in keys(special) && return special[u]
+    t = typeof(u)
+    ps = getproperty(t, :parameters)
+    u1 = ps[1][1]
+    @assert u1 isa Unitful.Unit
+    t1 = typeof(u1)
+    uname = getproperty(t1, :parameters)[1]
+    return string(uname)
+end
+
+nameofunit(s::Symbol) = nameofunit(getproperty(Unitful, s))
+
+function make_subsection_text(uvec; isunit=true)
+    s = ""
+    for u in uvec 
+        if isunit
+            n = nameofunit(u)
+        else
+            n = string(u)
+        end
+        d = udoc(u) 
+        s *= "#### $n \n\n$d \n\n"
+    end
+    return s
+end
+
+function make_simple_section_text(sectiontitle, uvec; isunit=true)
+    s = "## $sectiontitle \n\n"
+    s *= make_subsection_text(uvec; isunit)
+    return s
+end
+
+function make_structured_section_text(sectiontitle, sectiondict)
+    s = "## $sectiontitle \n\n"
+    for (dim, uvec) in sectiondict 
+        s *= "### $dim\n\n"
+        s *= make_subsection_text(uvec)
+    end
+    return s
+end
+
+function makeprefixsection(pnv)
+    s = """
+## Metric (SI) Prefixes
+
+| Prefix | Name | Power of Ten |
+|--------|--------|--------|
+"""
+    for (k,v) in pnv
+        s *= "| $k | $(v[1]) | $(v[2]) | \n"
+    end
+
+    return s
+end
+
+
+header() = read(mdheader, String) 
+# footer() = read(mdfooter, String) 
+logunits() = read(mdlogunits, String)
+
+function makefulltext(sections, nodims_units, phys_consts)
+    s = header() * "\n\n"
+    for (sectiontitle, sectiondict) in sections
+        s *= make_structured_section_text(sectiontitle, sectiondict)
+    end
+    s *= make_simple_section_text("Dimensionless units", nodims_units)
+    s *= logunits()
+    s *= make_simple_section_text("Physical constants", phys_consts; isunit=false)
+    s *= makeprefixsection(prefnamesvals())
+    # s *= footer()
+    return s
+end
+
+function write_unitful_v(vfile)
+    open(vfile, "w") do io
+        println(io, pkgversion(Unitful))
+    end
+    return nothing
+end
+
+function savetext(fulltext, mdfile)
+    open(mdfile,"w") do io
+       write(io, fulltext)
+    end
+    write_unitful_v(vfile)
+    return nothing
+end
+
+"""
+    make_chapter(wr = true; verbose = false)
+Generates the text of the `Pre-defined units and constants` documentation section 
+and writes it into the file if `wr==true`
+"""
+function make_chapter(wr = true; verbose = false)
+    uids = uful_ids()
+
+    (;basicdims, compounddims) = uids |> getphysdims |> physdims_categories
+
+    basic_units =  unitsdict(basicdims, uids)
+    compound_units = unitsdict(compounddims, uids)
+    nodims_units = nodimsunits(uids) 
+    sections = OrderedDict(["Basic dimensions" => basic_units, 
+        "Compound dimensions" => compound_units])
+    phys_consts = physconstants(uids)
+
+    fulltext = makefulltext(sections, nodims_units, phys_consts)
+
+    wr && savetext(fulltext, mdfile)
+
+    if verbose
+        return (;fulltext, sections, nodims_units, phys_consts)
+    else
+        return nothing
+    end
+end
+
+export make_chapter
+
+end # module

docs/src/assets/defaultunits-footer.md

@@ -0,0 +1 @@
+

docs/src/assets/defaultunits-header.md

@@ -0,0 +1,16 @@
+# Units and сonstants pre-defined in the `Unitful` package
+
+In the following, only non-prefixed units are listed. To get a more detailed information about a unit, and to get information about prefixed units, use `Julia` help, e.g.
+
+```
+help?> Unitful.kW
+  Unitful.kW
+
+  A prefixed unit, equal to 10^3 W.
+
+  Dimension: 𝐋² 𝐌 𝐓⁻³
+
+  See also: Unitful.W.
+```
+
+For prefixes, see [below](#Metric-(SI)-Prefixes).