Check-in by ben on 2025-04-11 21:24:26

 Make sure to create output directories before using them. Link
 to source code on chiselapp.com instead of a local .zip file.
 Bump to version 4

 INSERTED    DELETED
       74         33 periodic.awk
       74         33 TOTAL over 1 changed file

Index: periodic.awk
==================================================================
--- periodic.awk
+++ periodic.awk
@@ -1,6 +1,6 @@
-# periodic.awk version 3 by Ben Collver
+# periodic.awk version 4 by Ben Collver
#
# Generate static gopher content for the periodic table of elements.
#
# Edit gopher_dir, gopher_host, and gopher_port in function main()
#
@@ -48,11 +48,11 @@
    close(cmd)
    FS = OLDFS
    return
}

-function dir(str,    retval) {
+function format_dir(str,    retval) {
    retval = tolower(str)
    gsub(/ /, "-", retval)
    return retval
}

@@ -143,14 +143,22 @@
    table["cols"] = cols
    table["rows"] = rows
    return
}

-function print_element_gph(element,    cmd, count, f, i, key, label, \
-    mass, name, path, source_list, source, str, symbol)
+function mkdir(dir) {
+    system("mkdir -p \"" dir "\"")
+    return
+}
+
+function print_element_gph(element,    cmd, count, dir, f, i, key, \
+    label, mass, name, path, source_list, source, str, symbol)
{
-    f = outdir "/element/" element "/index.gph"
+    dir = outdir "/element/" element
+    mkdir(dir)
+
+    f = dir "/index.gph"
    key = element "_Atomic Mass"
    mass = elements[key]
    key = element "_Name"
    name = elements[key]
    key = element "_Symbol"
@@ -258,11 +266,11 @@
    print format_field(f, element, "Boiling Point") >>f
    print format_field(f, element, "Density") >>f

    str = format_field(f, element, "Family")
    key = element "_Family"
-    path = gopher_dir "/family/" dir(elements[key]) "/"
+    path = gopher_dir "/family/" format_dir(elements[key]) "/"
    printf "[1|%s|%s|%s|%s]\n", str, path, gopher_host, gopher_port >>f

    print format_field(f, element, "Year Discovered") >>f
    print format_field(f, element, "Number of Neutrons") >>f
    print format_field(f, element, "Number of Protons") >>f
@@ -375,20 +383,25 @@
        print_element_txt(i)
    }
    return
}

-function print_families(    family_id, fdir, i, key, len, name, outfile) {
-    outfile = outdir "/family/index.gph"
+function print_families(    dir, family_id, fdir, i, key, len, name, \
+    outfile)
+{
+    dir = outdir "/family"
+    mkdir(dir)
+
+    outfile = dir "/index.gph"
    printf "# Families\n\n" >outfile
    len = families["length"]
    for (i = 1; i <= len; i++) {
        key = i "_Family"
        family_id = families[key]
        key = i "_Name"
        name = families[key]
-        fdir = dir(family_id)
+        fdir = format_dir(family_id)
        printf "[1|%s|%s/family/%s/|%s|%s]\n", name, gopher_dir, fdir, \
            gopher_host, gopher_port >>outfile
        select_clear()
        select_family(family_id)
        print_family_gph(i, family_id, name, fdir)
@@ -396,17 +409,20 @@
    }
    close(outfile)
    return
}

-function print_family_gph(family, family_id, name, fdir,    descr, i, \
-    f, key, label, len, path, symbol)
+function print_family_gph(family, family_id, name, fdir,    descr, \
+    dir, i, f, key, label, len, path, symbol)
{
    key = family "_Description"
    descr = families[key]

-    f = outdir "/family/" fdir "/index.gph"
+    dir = outdir "/family/" fdir
+    mkdir(dir)
+
+    f = dir "/index.gph"

    label = sprintf("Family: %s", name)
    path = sprintf("%s/family/%s/index.txt", gopher_dir, fdir)
    printf "[0|%s|%s|%s|%s]\n\n", label, path, gopher_host, gopher_port >f

@@ -469,12 +485,15 @@

    close(f)
    return
}

-function print_list_atomic(    f, i, key, label, name, path, symbol) {
-    f = outdir "/list/atomic/index.gph"
+function print_list_atomic(    dir, f, i, key, label, name, path, symbol) {
+    dir = outdir "/list/atomic"
+    mkdir(dir)
+
+    f = dir "/index.gph"
    printf "# List Elements By Atomic Number\n\n" >f
    len = elements["length"]
    for (i = 1; i <= len; i++) {
        key = i "_Name"
        name = elements[key]
@@ -498,16 +517,20 @@

    close(f)
    return
}

-function print_list_name(    element, f, i, key, label, len, map, \
-    name, order, path, symbol)
+function print_list_name(    dir, element, f, i, key, label, len, \
+    map, name, order, path, symbol)
{
    delete map
    delete order
-    f = outdir "/list/name/index.gph"
+
+    dir = outdir "/list/name"
+    mkdir(dir)
+
+    f = dir "/index.gph"
    printf "# List Elements By Name\n\n" >f
    len = elements["length"]
    for (i = 1; i <= len; i++) {
        key = i "_Name"
        name = elements[key]
@@ -537,16 +560,20 @@
    printf "[1|%s|%s|%s|%s]\n", label, path, gopher_host, gopher_port >>f

    return
}

-function print_list_symbol(    element, f, i, key, label, len, map, \
-    name, order, path, symbol)
+function print_list_symbol(    dir, element, f, i, key, label, len, \
+    map, name, order, path, symbol)
{
    delete map
    delete order
-    f = outdir "/list/symbol/index.gph"
+
+    dir = outdir "/list/symbol"
+    mkdir(dir)
+
+    f = dir "/index.gph"
    printf "# List Elements By Symbol\n\n" >f
    len = elements["length"]
    for (i = 1; i <= len; i++) {
        key = i "_Symbol"
        symbol = elements[key]
@@ -583,12 +610,15 @@
    print_list_name()
    print_list_symbol()
    return
}

-function print_shells(    i, key, len, name, outfile, shell_id) {
-    outfile = outdir "/shell/index.gph"
+function print_shells(    dir, i, key, len, name, outfile, shell_id) {
+    dir = outdir "/shell"
+    mkdir(dir)
+
+    outfile = dir "/index.gph"
    printf "# Shells\n\n" >outfile
    len = shells["length"]
    for (i = 1; i <= len; i++) {
        key = i "_Shell"
        shell_id = shells[key]
@@ -603,17 +633,20 @@
    }
    close(outfile)
    return
}

-function print_shell_gph(shell, shell_id, name,    descr, i, \
-    f, key, label, len, path, symbol)
+function print_shell_gph(shell, shell_id, name,    descr, dir, i, f, \
+    key, label, len, path, symbol)
{
    key = shell "_Description"
    descr = shells[key]

-    f = outdir "/shell/" shell_id "/index.gph"
+    dir = outdir "/shell/" shell_id
+    mkdir(dir)
+
+    f = dir "/index.gph"

    label = sprintf("Shell: %s", name)
    path = sprintf("%s/shell/%s/index.txt", gopher_dir, shell_id)
    printf "[0|%s|%s|%s|%s]\n\n", label, path, gopher_host, gopher_port >f

@@ -676,12 +709,15 @@

    close(f)
    return
}

-function print_sources(    i, key, len, name, outfile, source_id) {
-    outfile = outdir "/source/index.gph"
+function print_sources(    dir, i, key, len, name, outfile, source_id) {
+    dir = outdir "/source"
+    mkdir(dir)
+
+    outfile = dir "/index.gph"
    printf "# Sources\n\n" >outfile
    len = sources["length"]
    for (i = 1; i <= len; i++) {
        key = i "_Source"
        source_id = sources[key]
@@ -696,14 +732,17 @@
    }
    close(outfile)
    return
}

-function print_source_gph(source, source_id, name,    i, \
-    f, key, label, len, path, symbol)
+function print_source_gph(source, source_id, name,    dir, i, f, key, \
+    label, len, path, symbol)
{
-    f = outdir "/source/" source_id "/index.gph"
+    dir = outdir "/source/" source_id
+    mkdir(dir)
+
+    f = dir "/index.gph"

    label = sprintf("Source: %s", name)
    path = sprintf("%s/source/%s/index.txt", gopher_dir, source_id)
    printf "[0|%s|%s|%s|%s]\n\n", label, path, gopher_host, gopher_port >f

@@ -794,20 +833,22 @@
        printf "\n" >>f
    }
    return
}

-function print_top(    f) {
+function print_top(    f, uri) {
+    mkdir(outdir)
    f = outdir "/index.gph"
+
+    uri = "https://chiselapp.com/user/bencollver/repository/periodic/"
    select_clear()
    printf "             Periodic Table Of The Elements\n\n" >f
    print_table(f)
    printf "\n" >>f
    printf "[1|List All|%s/list/atomic/|%s|%s]\n", gopher_dir,
        gopher_host, gopher_port >>f
-    printf "[9|Code (.zip)|%s/periodic.zip|%s|%s]\n", gopher_dir,
-        gopher_host, gopher_port >>f
+    printf "[h|Source Code|URL:%s|tilde.pink|70]\n", uri >>f
    close(f)
    return
}

function print_wiki_item(f, label, id) {

You are viewing proxied material from tilde.pink. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.