Initial framework commit

bin/rcd-api-list-all-langs

@@ -0,0 +1,29 @@
+#!/usr/bin/env bash
+
+set -e -u -o pipefail
+
+params=(
+  action=query
+  list=categorymembers
+  cmtitle=Category%3AProgramming_Languages
+  cmprop=title
+  cmlimit=1500
+  format=json
+)
+
+url=https://rosettacode.org/w/api.php?$(IFS='&'; echo "${params[*]}")
+
+more=''
+
+while true; do
+  json=$(curl -s "$url$more")
+
+  <<<"$json" jq -r '.query .categorymembers | .[] .title' |
+    grep -E '^Category:[.a-zA-Z0-9]' |
+    sed 's/^Category://'
+
+  cmcontinue=$(<<<"$json" jq -r .continue.cmcontinue)
+  [[ $cmcontinue == null ]] && break
+
+  more="&cmcontinue=$cmcontinue"
+done

bin/rcd-api-list-all-tasks

@@ -0,0 +1,27 @@
+#!/usr/bin/env bash
+
+set -e -u -o pipefail
+
+params=(
+  action=query
+  list=categorymembers
+  cmtitle=Category%3AProgramming_Tasks
+  cmprop=title
+  cmlimit=1500
+  format=json
+)
+
+url=https://rosettacode.org/w/api.php?$(IFS='&'; echo "${params[*]}")
+
+more=''
+
+while true; do
+  json=$(curl -s "$url$more")
+
+  <<<"$json" jq -r '.query .categorymembers | .[] .title'
+
+  cmcontinue=$(<<<"$json" jq -r .continue.cmcontinue)
+  [[ $cmcontinue == null ]] && break
+
+  more="&cmcontinue=$cmcontinue"
+done

bin/rcd-langs-per-task

@@ -0,0 +1,18 @@
+#!/usr/bin/env bash
+
+set -e -u -o pipefail
+
+root=$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd -P)
+
+cd "$root"
+
+total=0
+
+for task in Task/*; do
+  count=$(find "$task" -type d | wc -l)
+  count=$((count-1))
+  printf '%06d %s\n' "$count" "${task#Task/}"
+  total=$((total+count))
+done
+
+printf '%06d %s\n' "$total" Total

bin/rcd-new-langs

@@ -0,0 +1,19 @@
+#!/usr/bin/env bash
+
+set -e -u -o pipefail
+
+root=$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd -P)
+
+cd "$root"
+
+bin/rcd-api-list-all-langs |
+while read -r lang; do
+  re=${lang//\\/\\\\}
+  re=${re//+/\\+}
+  re=${re//\*/\\*}
+  re=${re//\(/\\\(}
+  grep -Eq "^'?$re'?: '?\." Conf/lang.yaml ||
+    echo "$lang"
+done |
+  grep -Ev '([éæ:]|Languages by Feature|Programming Language|Oberon-2|Free Pascal)' ||
+    true

bin/rcd-new-tasks

@@ -0,0 +1,18 @@
+#!/usr/bin/env bash
+
+set -e -u -o pipefail
+
+root=$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd -P)
+
+cd "$root"
+
+bin/rcd-api-list-all-tasks |
+while read -r lang; do
+  re=${lang//\\/\\\\}
+  re=${re//+/\\+}
+  re=${re//\*/\\*}
+  re=${re//\(/\\\(}
+  grep -Eq "^\"$re\":$" Conf/task.yaml ||
+    echo "$lang"
+done |
+  grep -v '[^"$^]'

bin/rcd-samples-per-lang

@@ -0,0 +1,17 @@
+#!/usr/bin/env bash
+
+set -e -u -o pipefail
+
+root=$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd -P)
+
+cd "$root"
+
+total=0
+
+for lang in Lang/*; do
+  count=$(find -L "$lang" -type f -not -name '00-*' | wc -l)
+  printf '%06d %s\n' "$count" "${lang#Lang/}"
+  total=$((total+count))
+done
+
+printf '%06d %s\n' "$total" Total

bin/rcd-samples-per-task

@@ -0,0 +1,17 @@
+#!/usr/bin/env bash
+
+set -e -u -o pipefail
+
+root=$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd -P)
+
+cd "$root"
+
+total=0
+
+for task in Task/*; do
+  count=$(find "$task" -type f -not -name '00-*' | wc -l)
+  printf '%06d %s\n' "$count" "${task#Task/}"
+  total=$((total+count))
+done
+
+printf '%06d %s\n' "$total" Total

bin/rcd-tasks-per-lang

@@ -0,0 +1,17 @@
+#!/usr/bin/env bash
+
+set -e -u -o pipefail
+
+root=$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd -P)
+
+cd "$root"
+
+total=0
+
+for lang in Lang/*; do
+  count=$(find "$lang" -type l | wc -l)
+  printf '%06d %s\n' "$count" "${lang#Lang/}"
+  total=$((total+count))
+done
+
+printf '%06d %s\n' "$total" Total