update
This commit is contained in:
chaos
parent
a2b24cd586
commit
b892946c25
37
run.sh
37
run.sh
|
|
@ -1,37 +0,0 @@
|
|||
#!/usr/bin/env bash
|
||||
|
||||
set -eu
|
||||
|
||||
WORKING_DIRECTORY=$(pwd)
|
||||
TOOL_DIR="$(cd -- "$(dirname -- "$0")" && pwd)/tool"
|
||||
cd "${WORKING_DIRECTORY}"
|
||||
|
||||
JQ=${JQ:-jq}
|
||||
export JQ_FLAVOUR=${JQ_FLAVOUR:-"$(basename "${JQ}")"}
|
||||
|
||||
run() {
|
||||
if [ -d "${TOOL_DIR}/lib/stubs/${JQ_FLAVOUR}" ]; then
|
||||
STUBS_DIR="${TOOL_DIR}/lib/stubs/${JQ_FLAVOUR}"
|
||||
else
|
||||
STUBS_DIR="${TOOL_DIR}/lib/stubs/jq"
|
||||
fi
|
||||
|
||||
FILES_ARGS=()
|
||||
if [ "${EXPORT_FILE:-}" != "" ] && [ -f "${EXPORT_FILE}" ]; then
|
||||
FILES_ARGS+=(--arg exportFileName "${EXPORT_FILE:-}")
|
||||
if [ "${JQ_FLAVOUR}" != "gojq-extended" ]; then
|
||||
FILES_ARGS+=(--slurpfile exportFile "${EXPORT_FILE}")
|
||||
fi
|
||||
else
|
||||
FILES_ARGS+=(--argjson exportFileName null)
|
||||
FILES_ARGS+=(--argjson exportFile null)
|
||||
fi
|
||||
|
||||
${JQ} -nr -L "$(realpath "${TOOL_DIR}")" -L "$(realpath "${TOOL_DIR}/lib")" -L "$(realpath "${STUBS_DIR}")" \
|
||||
"${FILES_ARGS[@]}" \
|
||||
'include "main"; main' \
|
||||
--args -- "$@"
|
||||
}
|
||||
|
||||
run "$@"
|
||||
|
||||
28
runTests.sh
28
runTests.sh
|
|
@ -1,28 +0,0 @@
|
|||
#!/usr/bin/env bash
|
||||
|
||||
SCRIPT_DIR="$(cd -- "$(dirname -- "$0")" && pwd)"
|
||||
cd "${SCRIPT_DIR}/tool" || return
|
||||
|
||||
JQ=${JQ:-jq}
|
||||
export JQ_FLAVOUR=${JQ_FLAVOUR:-"$(basename "${JQ}")"}
|
||||
export JQ_TYPECHECKING=1
|
||||
|
||||
if [ ! -d "./lib/stubs/${JQ_FLAVOUR}" ]; then
|
||||
STUBS_DIR="./lib/stubs/${JQ_FLAVOUR}"
|
||||
else
|
||||
STUBS_DIR="./lib/stubs/jq"
|
||||
fi
|
||||
|
||||
runTests() {
|
||||
echo "Running Tests with JQ=${JQ}"
|
||||
export JQ_FLAVOUR=${JQ_FLAVOUR:-"$(basename "${JQ}")"}
|
||||
${JQ} -nr \
|
||||
-L "$(realpath .)" -L "$(realpath ./lib)" -L "$(realpath "${STUBS_DIR}")" \
|
||||
"include \"tests\"; testsMain"
|
||||
}
|
||||
|
||||
runTests
|
||||
|
||||
if command -v gojq 2>/dev/null >/dev/null; then
|
||||
JQ=gojq JQ_FLAVOUR=gojq runTests
|
||||
fi
|
||||
|
|
@ -1,70 +0,0 @@
|
|||
import "lib/utilsLib" as utilsLib;
|
||||
import "lib/stringLib" as stringLib;
|
||||
import "lib/numberLib" as numberLib;
|
||||
import "lib/journalLib" as journalLib;
|
||||
|
||||
def formatExperienceTitle:
|
||||
. as $experience |
|
||||
"\"\(.title)\": \(.creationDate / 1000 | strftime("%d-%m-%Y"))";
|
||||
|
||||
def formatDose($dose; $unit; $isEstimate; $standardDeviation):
|
||||
if $dose == null then
|
||||
"Unknown \($unit)"
|
||||
else
|
||||
(if $isEstimate then "~" else "" end) as $estimate |
|
||||
(if $standardDeviation != null then "±\($standardDeviation)" else "" end) as $standardDeviation |
|
||||
|
||||
"\($estimate)\($dose | numberLib::round(2))\($standardDeviation) \($unit)"
|
||||
end;
|
||||
|
||||
def formatIngestionDose($customUnits):
|
||||
. as $ingestion |
|
||||
(. | journalLib::ingestionDose($customUnits)) as $dose |
|
||||
(. | journalLib::ingestionUnit($customUnits)) as $unit |
|
||||
(. | journalLib::ingestionStandardDeviation($customUnits)) as $standardDeviation |
|
||||
$customUnits | map(select(.id == $ingestion.customUnitId))[0] as $customUnit |
|
||||
if $ingestion.dose == null then
|
||||
"Unknown"
|
||||
elif $customUnit == null then
|
||||
formatDose($dose; $unit; $ingestion.isDoseAnEstimate; $standardDeviation)
|
||||
else
|
||||
formatDose($dose; $unit; $ingestion.isDoseAnEstimate; $standardDeviation) +
|
||||
" (" +
|
||||
formatDose($customUnit.dose; $unit; $customUnit.isEstimate; $customUnit.estimatedDoseStandardDeviation) +
|
||||
" * " +
|
||||
formatDose($ingestion.dose; $customUnit.unit; $ingestion.isDoseAnEstimate; $ingestion.estimatedDoseStandardDeviation) +
|
||||
")"
|
||||
end;
|
||||
|
||||
def formatIngestionTime:
|
||||
. as $ingestion |
|
||||
$ingestion.time / 1000 | strftime("%a %I:%M %p");
|
||||
|
||||
def formatIngestionROA($customUnits; $substitutions):
|
||||
. as $ingestion |
|
||||
$ingestion.administrationRoute as $roa |
|
||||
|
||||
(if
|
||||
$substitutions | has($roa)
|
||||
then
|
||||
$substitutions | .[$roa]
|
||||
else
|
||||
$roa | stringLib::titleCase
|
||||
end) as $roaText |
|
||||
|
||||
$ingestion.customUnitId as $customUnitId |
|
||||
|
||||
if
|
||||
$customUnitId == null
|
||||
then
|
||||
$roaText
|
||||
else
|
||||
$customUnits | map(select(.id == $customUnitId))[0] as $customUnit |
|
||||
"\($roaText) (\($customUnit.name))"
|
||||
end;
|
||||
|
||||
def formatIngestionROA($customUnits): formatIngestionROA($customUnits; {});
|
||||
|
||||
def formatIngestionInfo:
|
||||
. as $ingestionInfo |
|
||||
formatDose(.dose; .unit; .isEstimate; .standardDeviation);
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
def _readFile($filename): empty;
|
||||
def _writeFileString($filename): empty;
|
||||
|
|
@ -1,233 +0,0 @@
|
|||
import "ansiLib" as ansiLib;
|
||||
|
||||
def isColourSupported:
|
||||
$ENV["JQ_SUPPORTS_COLOUR"] == "1";
|
||||
|
||||
def colourEscapes:
|
||||
def parseJQColours:
|
||||
split(":") |
|
||||
{
|
||||
"null": (.[0] // "0"),
|
||||
"false": (.[1] // "0"),
|
||||
"true": (.[2] // "0"),
|
||||
"number": (.[3] // "0"),
|
||||
"string": (.[4] // "0"),
|
||||
"array": (.[5] // "0"),
|
||||
"object": (.[6] // "0"),
|
||||
"objectKey": (.[7] // "0"),
|
||||
};
|
||||
|
||||
def parseGOJQColours:
|
||||
split(":") |
|
||||
{
|
||||
"null": (.[0] // "0"),
|
||||
"false": (.[1] // "0"),
|
||||
"true": (.[2] // "0"),
|
||||
"number": (.[3] // "0"),
|
||||
"string": (.[4] // "0"),
|
||||
"objectKey": (.[5] // "0"),
|
||||
"array": (.[6] // "0"),
|
||||
"object": (.[7] // "0"),
|
||||
};
|
||||
def defaultColours:
|
||||
if ($ENV["JQ_FLAVOUR"] | tostring | startswith("gojq")) then
|
||||
"90:33:33:36:32:34;1" | parseGOJQColours
|
||||
else
|
||||
"0;90:0;39:0;39:0;39:0;32:1;39:1;39:1;34" | parseJQColours
|
||||
end;
|
||||
|
||||
try (
|
||||
if $ENV["JQ_COLORS"] != null then
|
||||
$ENV["JQ_COLORS"] | parseJQColours
|
||||
elif $ENV["GOJQ_COLORS"] != null then
|
||||
$ENV["GOJQ_COLORS"] | parseGOJQColours
|
||||
else
|
||||
defaultColours
|
||||
end
|
||||
) catch (
|
||||
defaultColours
|
||||
);
|
||||
|
||||
def _encodeJSONValuePlainPretty($indent; $currentDepth):
|
||||
([range($indent * $currentDepth) | " "] | join("")) as $currentIndentDepthIndent |
|
||||
([range($indent * ($currentDepth + 1)) | " "] | join("")) as $nextDepthIndent |
|
||||
"\n" as $currentIndentDepthNewline |
|
||||
" " as $currentIndentDepthSpace |
|
||||
|
||||
. as $value |
|
||||
(. | type) as $valueType |
|
||||
if $valueType == "array" then
|
||||
($value | length) as $numValues |
|
||||
|
||||
if $numValues > 0 then
|
||||
"[" +
|
||||
$currentIndentDepthNewline +
|
||||
([
|
||||
$value[] |
|
||||
$nextDepthIndent +
|
||||
_encodeJSONValuePlainPretty($indent; $currentDepth + 1)
|
||||
] | join("," + $currentIndentDepthNewline)) +
|
||||
$currentIndentDepthNewline +
|
||||
$currentIndentDepthIndent +
|
||||
"]"
|
||||
else
|
||||
"[]"
|
||||
end
|
||||
elif $valueType == "object" then
|
||||
($value | keys | length) as $numKeys |
|
||||
|
||||
if $numKeys > 0 then
|
||||
"{" +
|
||||
$currentIndentDepthNewline +
|
||||
([
|
||||
$value | keys | sort[] |
|
||||
. as $objectKey |
|
||||
$value[$objectKey] as $objectValue |
|
||||
|
||||
$nextDepthIndent +
|
||||
($objectKey | tojson) +
|
||||
":" +
|
||||
$currentIndentDepthSpace +
|
||||
($objectValue | _encodeJSONValuePlainPretty($indent; $currentDepth + 1))
|
||||
] | join("," + $currentIndentDepthNewline)) +
|
||||
$currentIndentDepthNewline +
|
||||
$currentIndentDepthIndent +
|
||||
"}"
|
||||
else
|
||||
"{}"
|
||||
end
|
||||
else
|
||||
tojson
|
||||
end;
|
||||
|
||||
def _encodeJSONValueColourCompact:
|
||||
colourEscapes as $escapes |
|
||||
|
||||
def colourText($text; $kind):
|
||||
ansiLib::CSR + $escapes[$kind] + "m" + $text + ansiLib::CSR + "0m";
|
||||
|
||||
. as $value |
|
||||
(. | type) as $valueType |
|
||||
if $valueType == "null" then
|
||||
colourText("null"; "null")
|
||||
elif $valueType == "boolean" then
|
||||
($value | tostring) as $boolStr |
|
||||
colourText($boolStr; $boolStr)
|
||||
elif $valueType == "number" then
|
||||
colourText($value | tostring; "number")
|
||||
elif $valueType == "string" then
|
||||
colourText($value | tojson; "string")
|
||||
elif $valueType == "array" then
|
||||
($value | length) as $numValues |
|
||||
|
||||
if $numValues > 0 then
|
||||
colourText("["; "array") +
|
||||
([
|
||||
$value[] |
|
||||
_encodeJSONValueColourCompact
|
||||
] | join(colourText(","; "array"))) +
|
||||
colourText("]"; "array")
|
||||
else
|
||||
colourText("[]"; "array")
|
||||
end
|
||||
elif $valueType == "object" then
|
||||
($value | keys | length) as $numKeys |
|
||||
|
||||
if $numKeys > 0 then
|
||||
colourText("{"; "object") +
|
||||
([
|
||||
$value | keys | sort[] |
|
||||
. as $objectKey |
|
||||
$value[$objectKey] as $objectValue |
|
||||
|
||||
colourText($objectKey | tojson; "objectKey") +
|
||||
colourText(":"; "object") +
|
||||
($objectValue | _encodeJSONValueColourCompact)
|
||||
] | join(colourText(","; "object"))) +
|
||||
colourText("}"; "object")
|
||||
else
|
||||
colourText("{}"; "object")
|
||||
end
|
||||
end;
|
||||
|
||||
def _encodeJSONValueColourPretty($indent; $currentDepth):
|
||||
colourEscapes as $escapes |
|
||||
|
||||
def colourText($text; $kind):
|
||||
ansiLib::CSR + $escapes[$kind] + "m" + $text + ansiLib::CSR + "0m";
|
||||
|
||||
([range($indent * $currentDepth) | " "] | join("")) as $currentIndentDepthIndent |
|
||||
([range($indent * ($currentDepth + 1)) | " "] | join("")) as $nextDepthIndent |
|
||||
"\n" as $currentIndentDepthNewline |
|
||||
" " as $currentIndentDepthSpace |
|
||||
|
||||
. as $value |
|
||||
(. | type) as $valueType |
|
||||
if $valueType == "null" then
|
||||
colourText("null"; "null")
|
||||
elif $valueType == "boolean" then
|
||||
($value | tostring) as $boolStr |
|
||||
colourText($boolStr; $boolStr)
|
||||
elif $valueType == "number" then
|
||||
colourText($value | tostring; "number")
|
||||
elif $valueType == "string" then
|
||||
colourText($value | tojson; "string")
|
||||
elif $valueType == "array" then
|
||||
($value | length) as $numValues |
|
||||
|
||||
if $numValues > 0 then
|
||||
colourText("["; "array") +
|
||||
$currentIndentDepthNewline +
|
||||
([
|
||||
$value[] |
|
||||
$nextDepthIndent +
|
||||
_encodeJSONValueColourPretty($indent; $currentDepth + 1)
|
||||
] | join(colourText(","; "array") + $currentIndentDepthNewline)) +
|
||||
$currentIndentDepthNewline +
|
||||
$currentIndentDepthIndent +
|
||||
colourText("]"; "array")
|
||||
else
|
||||
colourText("[]"; "array")
|
||||
end
|
||||
elif $valueType == "object" then
|
||||
($value | keys | length) as $numKeys |
|
||||
|
||||
if $numKeys > 0 then
|
||||
colourText("{"; "object") +
|
||||
$currentIndentDepthNewline +
|
||||
([
|
||||
$value | keys | sort[] |
|
||||
. as $objectKey |
|
||||
$value[$objectKey] as $objectValue |
|
||||
|
||||
$nextDepthIndent +
|
||||
colourText($objectKey | tojson; "objectKey") +
|
||||
colourText(":"; "object") +
|
||||
$currentIndentDepthSpace +
|
||||
($objectValue | _encodeJSONValueColourPretty($indent; $currentDepth + 1))
|
||||
] | join(colourText(","; "object") + $currentIndentDepthNewline)) +
|
||||
$currentIndentDepthNewline +
|
||||
$currentIndentDepthIndent +
|
||||
colourText("}"; "object")
|
||||
else
|
||||
colourText("{}"; "object")
|
||||
end
|
||||
end;
|
||||
|
||||
def encodeJSON($withColour; $indent):
|
||||
if ($withColour == false) and ($indent == 0) then
|
||||
tojson
|
||||
else
|
||||
if $withColour and isColourSupported then
|
||||
if $indent > 0 then
|
||||
_encodeJSONValueColourPretty($indent; 0)
|
||||
else
|
||||
_encodeJSONValueColourCompact
|
||||
end
|
||||
else
|
||||
_encodeJSONValuePlainPretty($indent; 0)
|
||||
end
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
|
@ -1,24 +0,0 @@
|
|||
def supportsColour:
|
||||
$ENV["JQ_SUPPORTS_COLOR"] == "1" or $ENV["JQ_SUPPORTS_COLOUR"] == "1" ;
|
||||
|
||||
def CSR:
|
||||
"\u001b[";
|
||||
|
||||
def resetColours:
|
||||
CSR + "0m";
|
||||
|
||||
def colourText($colourCode):
|
||||
. as $text |
|
||||
if supportsColour | not then
|
||||
$text
|
||||
else
|
||||
CSR + ($colourCode | tostring) + "m" + $text + resetColours
|
||||
end;
|
||||
|
||||
def colourText($colourCode; $mode):
|
||||
. as $text |
|
||||
if supportsColour | not then
|
||||
$text
|
||||
else
|
||||
CSR + ($mode | tostring) + ";" + ($colourCode | tostring) + "m" + $text + resetColours
|
||||
end;
|
||||
|
|
@ -1,45 +0,0 @@
|
|||
def parseArgBool:
|
||||
. as $value |
|
||||
if ($value | type) == "boolean" then
|
||||
$value
|
||||
elif
|
||||
$value == "true" or $value == "on" or $value == "yes"
|
||||
then
|
||||
true
|
||||
elif
|
||||
$value == "false" or $value == "off" or $value == "no"
|
||||
then
|
||||
false
|
||||
else
|
||||
error("invalid bool value")
|
||||
end;
|
||||
|
||||
def parseArgs:
|
||||
. as $args |
|
||||
if
|
||||
($args.named | has("argsJson"))
|
||||
then $args.named.argsJson[0] else $args.positional end | . as $args |
|
||||
|
||||
reduce $args[] as $arg ({
|
||||
shortArgs: [],
|
||||
longArgs: {},
|
||||
nonArgs: []
|
||||
}; (
|
||||
if ($arg | test("^-[\\-a-zA-Z]") | not) then
|
||||
.nonArgs += [$arg]
|
||||
else
|
||||
if $arg | startswith("--") then
|
||||
$arg[2:] as $arg |
|
||||
($arg | contains("=")) as $containsValue |
|
||||
if $containsValue then
|
||||
($arg | split("=")) as $argSplit |
|
||||
$argSplit[0] as $arg | $argSplit[1] as $value |
|
||||
.longArgs[$arg] |= $value
|
||||
else
|
||||
.longArgs[$arg] |= null
|
||||
end
|
||||
else
|
||||
.shortArgs += [$arg[1:]]
|
||||
end
|
||||
end
|
||||
));
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
include "stubs";
|
||||
|
||||
def checkSupported:
|
||||
$ENV.JQ_FLAVOUR == "gojq-extended";
|
||||
|
||||
def readFile($filename): _readFile($filename);
|
||||
def writeFileString($filename): _writeFileString($filename);
|
||||
|
|
@ -1,309 +0,0 @@
|
|||
import "utilsLib" as utilsLib;
|
||||
import "numberLib" as numberLib;
|
||||
import "journalTypes" as journalTypes;
|
||||
|
||||
def ingestionDose($customUnits):
|
||||
. as $ingestion |
|
||||
journalTypes::ensureIngestion |
|
||||
|
||||
if .customUnitId != null then
|
||||
($customUnits | map(select(.id == $ingestion.customUnitId))[0]) as $customUnit |
|
||||
.dose * $customUnit.dose | . as $dose |
|
||||
$dose
|
||||
else
|
||||
.dose
|
||||
end;
|
||||
|
||||
def addStandardDeviations($expectationX; $standardDeviationX; $expectationY; $standardDeviationY):
|
||||
(pow($standardDeviationX; 2) + pow($expectationX; 2)) as $sumX |
|
||||
(pow($standardDeviationY; 2) + pow($expectationY; 2)) as $sumY |
|
||||
(pow($expectationX; 2) * pow($expectationY; 2)) as $expectations |
|
||||
($sumX * $sumY - $expectations) as $productVariance |
|
||||
if $productVariance > 0.0000001 then
|
||||
$productVariance | sqrt | numberLib::round(2)
|
||||
else
|
||||
null
|
||||
end;
|
||||
|
||||
def ingestionStandardDeviation($customUnits):
|
||||
. as $ingestion |
|
||||
journalTypes::ensureIngestion |
|
||||
|
||||
if .customUnitId != null then
|
||||
($customUnits | map(select(.id == $ingestion.customUnitId))[0]) as $customUnit |
|
||||
|
||||
($ingestion.dose // 0) as $expectationX |
|
||||
($ingestion.estimatedDoseStandardDeviation // 0) as $standardDeviationX |
|
||||
($customUnit.dose // 0) as $expectationY |
|
||||
($customUnit.estimatedDoseStandardDeviation // 0) as $standardDeviationY |
|
||||
|
||||
addStandardDeviations($expectationX; $standardDeviationX; $expectationY; $standardDeviationY)
|
||||
else
|
||||
.estimatedDoseStandardDeviation
|
||||
end;
|
||||
|
||||
def ingestionUnit($customUnits):
|
||||
. as $ingestion |
|
||||
journalTypes::ensureIngestion |
|
||||
if .customUnitId != null then
|
||||
($customUnits | map(select(.id == $ingestion.customUnitId))[0]) as $customUnit |
|
||||
$customUnit.originalUnit
|
||||
else
|
||||
.units
|
||||
end;
|
||||
|
||||
def ingestionConsumerName:
|
||||
. as $ingestion |
|
||||
journalTypes::ensureIngestion |
|
||||
$ingestion.consumerName // "default";
|
||||
|
||||
def filterIngestions($substanceFilter; $consumerFilter):
|
||||
. as $ingestions |
|
||||
($substanceFilter // []) as $substanceFilter |
|
||||
(($substanceFilter | length) > 0) as $shouldFilterBySubstance |
|
||||
($consumerFilter // []) as $consumerFilter |
|
||||
(($consumerFilter | length) > 0) as $shouldFilterByConsumer |
|
||||
|
||||
journalTypes::ensureIngestions |
|
||||
|
||||
if $shouldFilterBySubstance or $shouldFilterByConsumer then
|
||||
[
|
||||
$ingestions[] as $ingestion |
|
||||
if
|
||||
(if $shouldFilterBySubstance then ([$substanceFilter[] | . == $ingestion.substanceName] | any) else true end
|
||||
and
|
||||
if $shouldFilterByConsumer then ([$consumerFilter[] | . == ($ingestion | ingestionConsumerName)] | any) else true end)
|
||||
then $ingestion
|
||||
else null end
|
||||
] | map(select(. != null))
|
||||
else $ingestions end;
|
||||
|
||||
def ingestionsSubstanceNames:
|
||||
. as $ingestions |
|
||||
journalTypes::ensureIngestions |
|
||||
[$ingestions[].substanceName] | utilsLib::orderedUnique;
|
||||
|
||||
def ingestionsConsumerNames:
|
||||
. as $ingestions |
|
||||
journalTypes::ensureIngestions |
|
||||
[$ingestions[] | ingestionConsumerName] | utilsLib::orderedUnique;
|
||||
|
||||
def ingestionsByConsumer:
|
||||
. as $ingestions |
|
||||
journalTypes::ensureIngestions |
|
||||
($ingestions | ingestionsConsumerNames) as $consumerNames |
|
||||
[
|
||||
$consumerNames[] as $consumerName |
|
||||
{
|
||||
key: $consumerName,
|
||||
value: $ingestions | map(select((. | ingestionConsumerName) == $consumerName)),
|
||||
}
|
||||
] | from_entries;
|
||||
|
||||
def defaultIngestionInfo:
|
||||
{
|
||||
unit: "",
|
||||
dose: null,
|
||||
isUnknown: false,
|
||||
isEstimate: false,
|
||||
# TODO
|
||||
standardDeviation: null
|
||||
};
|
||||
|
||||
def ingestionInfo($customUnits):
|
||||
. as $ingestion |
|
||||
.substanceName as $name |
|
||||
.administrationRoute as $administrationRoute |
|
||||
. | ingestionStandardDeviation($customUnits) as $standardDeviation |
|
||||
. | ingestionDose($customUnits) as $dose |
|
||||
. | ingestionUnit($customUnits) as $unit |
|
||||
. | ingestionConsumerName as $consumerName |
|
||||
|
||||
defaultIngestionInfo as $ingestionInfo |
|
||||
$ingestionInfo |
|
||||
|
||||
if ($dose == null) then .isUnknown |= true end |
|
||||
|
||||
if ($standardDeviation != null) then
|
||||
.isEstimate |= true
|
||||
end |
|
||||
|
||||
.unit |= $unit |
|
||||
.dose |= $dose |
|
||||
.standardDeviation |= $standardDeviation;
|
||||
|
||||
def addIngestionInfo($rhs):
|
||||
. as $lhs |
|
||||
|
||||
if (.unit != "" and $rhs.unit != "") then
|
||||
utilsLib::assert(.unit == $rhs.unit; "units mismatch, todo add reasonable conversions")
|
||||
else
|
||||
.unit |= $rhs.unit
|
||||
end |
|
||||
|
||||
|
||||
if ($rhs.dose == null) then .isUnknown |= true end |
|
||||
|
||||
if ($rhs.standardDeviation != null) then
|
||||
.isEstimate |= true
|
||||
end |
|
||||
|
||||
.dose += $rhs.dose |
|
||||
.standardDeviation += $rhs.standardDeviation;
|
||||
|
||||
def addIngestionInfos:
|
||||
. as $ingestionInfos |
|
||||
reduce $ingestionInfos[] as $ingestionInfo (defaultIngestionInfo;
|
||||
. | addIngestionInfo($ingestionInfo)
|
||||
);
|
||||
|
||||
def experienceStats($customUnits):
|
||||
. as $experience |
|
||||
journalTypes::ensureExperience |
|
||||
$experience.ingestions as $ingestions |
|
||||
(reduce $ingestions[] as $ingestion ({}; . as $stats |
|
||||
$ingestion |
|
||||
.substanceName as $name |
|
||||
.administrationRoute as $administrationRoute |
|
||||
(. | ingestionConsumerName) as $consumerName |
|
||||
|
||||
$stats |
|
||||
.[$consumerName].[$ingestion.substanceName].[$administrationRoute] as $ingestionStats |
|
||||
|
||||
if $ingestionStats == null then
|
||||
($ingestion | ingestionInfo($customUnits))
|
||||
else
|
||||
$ingestionStats | addIngestionInfo($ingestion | ingestionInfo($customUnits))
|
||||
end | . as $ingestionStats |
|
||||
|
||||
$stats |
|
||||
.[$consumerName].[$ingestion.substanceName].[$administrationRoute] |= $ingestionStats
|
||||
));
|
||||
|
||||
def statsCalculateCombinedDose($substanceName; $consumerName):
|
||||
. as $stats |
|
||||
utilsLib::assert($stats | has($consumerName); "consumer not found in stats") |
|
||||
utilsLib::assert($stats[$consumerName] | has($substanceName);
|
||||
"substance for consumer not found in stats"
|
||||
) |
|
||||
|
||||
.[$consumerName].[$substanceName] | values | addIngestionInfos;
|
||||
|
||||
def experiencesWithExtraData($customUnits):
|
||||
. as $experiences |
|
||||
journalTypes::ensureExperiences |
|
||||
(reduce $experiences[] as $experience ([];
|
||||
($experience | experienceStats($customUnits)) as $stats |
|
||||
. += [{
|
||||
$stats,
|
||||
$experience
|
||||
}]
|
||||
));
|
||||
|
||||
def filterSortExperiences($customUnits; $substanceFilter; $consumerFilter; $sortMethod; $sortOptions):
|
||||
. as $experiences |
|
||||
journalTypes::ensureExperiences |
|
||||
($consumerFilter // ["default"]) as $consumerFilter |
|
||||
$sortOptions |
|
||||
# If filtering results by substances but no sortOptions.substanceName is defined, use the first one as a default
|
||||
(.substanceName |=
|
||||
if
|
||||
$sortOptions.substanceName == null
|
||||
and
|
||||
(($substanceFilter | length) >= 1)
|
||||
then
|
||||
$substanceFilter[0]
|
||||
else
|
||||
null
|
||||
end
|
||||
) | . as $sortOptions |
|
||||
$sortOptions | (.ingestionMethod |= ($sortOptions.ingestionMethod // "ORAL")) | . as $sortOptions |
|
||||
$sortOptions | (.consumerName |= ($sortOptions.consumerName // "default")) | . as $sortOptions |
|
||||
|
||||
def sortFilter:
|
||||
def oldToNewSort: .experience.sortDate;
|
||||
def highestCombinedDoseSort: .stats.[$sortOptions.consumerName].[$sortOptions.substanceName] | [to_entries[] | .value.dose] | add;
|
||||
def highestMethodDoseSort: .stats.[$sortOptions.consumerName].[$sortOptions.substanceName].[$sortOptions.ingestionMethod // "ORAL"].dose;
|
||||
|
||||
def filterBySubstanceFilter:
|
||||
. as $experiencesData |
|
||||
[
|
||||
$experiencesData[] as $experienceData |
|
||||
($experienceData.experience.ingestions) as $ingestions |
|
||||
if ($experienceData.experience.ingestions |
|
||||
any(
|
||||
. as $ingestion |
|
||||
$substanceFilter |
|
||||
any(index($ingestion.substanceName))
|
||||
)
|
||||
) then $experienceData else null end
|
||||
] | map(select(. != null));
|
||||
|
||||
def filterByConsumerFilter:
|
||||
. as $experiencesData |
|
||||
(reduce $experiencesData[] as $experienceData ([];
|
||||
($experienceData.experience.ingestions) as $ingestions |
|
||||
. +=
|
||||
if ($experienceData.experience.ingestions |
|
||||
any(
|
||||
(. | ingestionConsumerName) as $consumerName |
|
||||
$consumerFilter |
|
||||
any(index($consumerName))
|
||||
)
|
||||
) then [$experienceData] else [] end
|
||||
));
|
||||
|
||||
def filterBySubstanceAndConsumer:
|
||||
. as $experiencesData |
|
||||
(reduce $experiencesData[] as $experienceData ([];
|
||||
($experienceData.experience.ingestions) as $ingestions |
|
||||
. +=
|
||||
if
|
||||
($experienceData.experience.ingestions |
|
||||
any(
|
||||
.substanceName == $sortOptions.substanceName
|
||||
and
|
||||
(. | ingestionConsumerName) == $sortOptions.consumerName
|
||||
))
|
||||
then [$experienceData] else [] end
|
||||
));
|
||||
|
||||
def filterByIngestionMethodForSubstance:
|
||||
. as $experiencesData | filterBySubstanceAndConsumer as $experiencesData |
|
||||
(reduce $experiencesData[] as $experienceData ([];
|
||||
($experienceData.experience.ingestions) as $ingestions |
|
||||
. += if ($experienceData.experience.ingestions | any(.substanceName == $sortOptions.substanceName and .administrationRoute == $sortOptions.ingestionMethod))
|
||||
then [$experienceData] else [] end
|
||||
));
|
||||
|
||||
# speeds up by excluding everything not containing substances & consumers not in filters, wouldn't show any data anyway
|
||||
if $substanceFilter != null then filterBySubstanceFilter end |
|
||||
filterByConsumerFilter |
|
||||
|
||||
if
|
||||
$sortMethod == "old-to-new" or $sortMethod == null
|
||||
then
|
||||
sort_by(oldToNewSort)
|
||||
elif
|
||||
$sortMethod == "highest-combined-dose"
|
||||
then
|
||||
utilsLib::assert($sortOptions.substanceName != null; "substanceName not provided as sortOption") |
|
||||
filterBySubstanceAndConsumer |
|
||||
sort_by(highestCombinedDoseSort, oldToNewSort) |
|
||||
reverse
|
||||
elif
|
||||
$sortMethod == "highest-dose-for-method"
|
||||
then
|
||||
utilsLib::assert($sortOptions.substanceName != null; "substanceName not provided as sortOption") |
|
||||
filterByIngestionMethodForSubstance |
|
||||
sort_by(highestMethodDoseSort, oldToNewSort) |
|
||||
reverse
|
||||
end;
|
||||
|
||||
$experiences |
|
||||
experiencesWithExtraData($customUnits) |
|
||||
sortFilter;
|
||||
|
||||
def experienceByTitle($name):
|
||||
utilsLib::assert((. | type) == "array"; "experienceByTitle takes a array of experiences as input") |
|
||||
map(select(.title == $name))[0];
|
||||
|
|
@ -1,22 +0,0 @@
|
|||
import "testLib" as testLib;
|
||||
import "journalLib" as journalLib;
|
||||
|
||||
import "testdata/tests_export" as $exportDataArray;
|
||||
|
||||
def journalLibTests:
|
||||
testLib::expectPassed(testLib::runTest(
|
||||
"invalid input to experienceByTitle";
|
||||
(
|
||||
null | journalLib::experienceByTitle("Test")
|
||||
);
|
||||
. == "experienceByTitle takes a array of experiences as input";
|
||||
true
|
||||
)) |
|
||||
testLib::expectPassed(testLib::runTest(
|
||||
"experience not found";
|
||||
(
|
||||
$exportDataArray[0].experiences | journalLib::experienceByTitle("Test")
|
||||
);
|
||||
. == null;
|
||||
false
|
||||
));
|
||||
|
|
@ -1,117 +0,0 @@
|
|||
import "typeLib" as typeLib;
|
||||
|
||||
def ensureAdministrationRoute:
|
||||
. as $administrationRoute |
|
||||
if typeLib::typecheckingEnabled then
|
||||
if [
|
||||
"ORAL",
|
||||
"SUBLINGUAL",
|
||||
"BUCCAL",
|
||||
"INSUFFLATED",
|
||||
"RECTAL",
|
||||
"TRANSDERMAL",
|
||||
"SUBCUTANEOUS",
|
||||
"INTRAMUSCULAR",
|
||||
"INTRAVENOUS",
|
||||
"SMOKED",
|
||||
"INHALED"
|
||||
] | any(index($administrationRoute)) | not then
|
||||
typeLib::typeErrorText("administrationRoute")
|
||||
end
|
||||
end;
|
||||
|
||||
def ensureIngestion:
|
||||
. as $ingestion |
|
||||
if typeLib::typecheckingEnabled then
|
||||
typeLib::ensureObject |
|
||||
|
||||
$ingestion | typeLib::ensureKey("ingestion"; "substanceName") |
|
||||
.substanceName | typeLib::ensureWrapError("experience:substanceName"; typeLib::ensureString) |
|
||||
|
||||
$ingestion | typeLib::ensureKey("ingestion"; "time") |
|
||||
.time | typeLib::ensureWrapError("experience:time"; typeLib::ensureNumber) |
|
||||
|
||||
$ingestion | typeLib::ensureKey("ingestion"; "creationDate") |
|
||||
.creationDate | typeLib::ensureWrapError("experience:creationDate"; typeLib::ensureNumber) |
|
||||
|
||||
# TODO: check routes
|
||||
$ingestion |
|
||||
typeLib::ensureKey("ingestion"; "administrationRoute") |
|
||||
$ingestion.administrationRoute |
|
||||
typeLib::ensureWrapError("experience:administrationRoute"; typeLib::ensureString) |
|
||||
$ingestion.administrationRoute |
|
||||
ensureAdministrationRoute |
|
||||
|
||||
typeLib::ensureWrapError(
|
||||
"experience:dose";
|
||||
$ingestion | typeLib::ensureIfKey("dose"; typeLib::ensureNullOr(typeLib::ensureNumber))
|
||||
) |
|
||||
|
||||
$ingestion | typeLib::ensureKey("ingestion"; "isDoseAnEstimate") |
|
||||
.isDoseAnEstimate | typeLib::ensureWrapError("experience:isDoseAnEstimate"; typeLib::ensureBool) |
|
||||
|
||||
$ingestion | typeLib::ensureKey("ingestion"; "units") |
|
||||
.units | typeLib::ensureWrapError("experience:units"; typeLib::ensureString) |
|
||||
|
||||
$ingestion | typeLib::ensureKey("ingestion"; "notes") |
|
||||
.notes | typeLib::ensureWrapError("experience:notes"; typeLib::ensureString) |
|
||||
|
||||
typeLib::ensureWrapError(
|
||||
"experience:stomachFullness";
|
||||
$ingestion | typeLib::ensureIfKey("stomachFullness"; typeLib::ensureNullOr(typeLib::ensureString))
|
||||
) |
|
||||
|
||||
typeLib::ensureWrapError(
|
||||
"experience:customUnitId";
|
||||
$ingestion | typeLib::ensureIfKey("customUnitId"; typeLib::ensureNullOr(typeLib::ensureNumber))
|
||||
) |
|
||||
|
||||
$ingestion
|
||||
end;
|
||||
|
||||
def ensureIngestions:
|
||||
. as $ingestions |
|
||||
if typeLib::typecheckingEnabled then
|
||||
(reduce $ingestions[] as $ingestion (null; $ingestion | ensureIngestion))
|
||||
end;
|
||||
|
||||
def ensureExperience:
|
||||
. as $experience |
|
||||
if typeLib::typecheckingEnabled then
|
||||
$experience | typeLib::ensureObject |
|
||||
|
||||
$experience | typeLib::ensureKey("experience"; "title") |
|
||||
$experience.title | typeLib::ensureWrapError("experience:title"; typeLib::ensureString) |
|
||||
|
||||
$experience | typeLib::ensureKey("experience"; "text") |
|
||||
$experience.text | typeLib::ensureWrapError("experience:text"; typeLib::ensureString) |
|
||||
|
||||
$experience | typeLib::ensureKey("experience"; "creationDate") |
|
||||
$experience.creationDate | typeLib::ensureWrapError("experience:creationDate"; typeLib::ensureNumber) |
|
||||
|
||||
$experience | typeLib::ensureKey("experience"; "sortDate") |
|
||||
$experience.sortDate | typeLib::ensureWrapError("experience:sortDate"; typeLib::ensureNumber) |
|
||||
|
||||
$experience | typeLib::ensureKey("experience"; "ingestions") |
|
||||
$experience.ingestions | typeLib::ensureWrapError("experience:ingestions"; typeLib::ensureArray) |
|
||||
$experience.ingestions | ensureIngestions |
|
||||
|
||||
$experience
|
||||
end;
|
||||
|
||||
def ensureExperiences:
|
||||
. as $experiences |
|
||||
if typeLib::typecheckingEnabled then
|
||||
(reduce $experiences[] as $experience (null; $experience | ensureExperience))
|
||||
end;
|
||||
|
||||
def ensureExportData:
|
||||
. as $exportData |
|
||||
if typeLib::typecheckingEnabled then
|
||||
typeLib::ensureObject |
|
||||
typeLib::ensureKey("exportData"; "customSubstances") |
|
||||
typeLib::ensureKey("exportData"; "customUnits") |
|
||||
typeLib::ensureKey("exportData"; "experiences") |
|
||||
typeLib::ensureKey("exportData"; "substanceCompanions") |
|
||||
.experiences | ensureExperiences
|
||||
end;
|
||||
|
|
@ -1,106 +0,0 @@
|
|||
import "typeLib" as typeLib;
|
||||
import "ansiLib" as ansiLib;
|
||||
import "JSONLib" as JSONLib;
|
||||
|
||||
def logLevels:
|
||||
[
|
||||
"trace",
|
||||
"debug",
|
||||
"info",
|
||||
"warn",
|
||||
"error",
|
||||
"fatal"
|
||||
];
|
||||
|
||||
def isJSONTooComplex:
|
||||
(.. | length) > 128;
|
||||
|
||||
def isValidLogLevel($logLevel):
|
||||
logLevels | any(index($logLevel));
|
||||
|
||||
def ensureLogLevel:
|
||||
. as $logLevel |
|
||||
if typeLib::typecheckingEnabled then
|
||||
if isValidLogLevel($logLevel) | not then typeLib::typeErrorText("logLevel") end
|
||||
end;
|
||||
|
||||
def maxLogLevel:
|
||||
($ENV["JQ_LOGLEVEL"] // "info") as $maxLogLevel |
|
||||
if isValidLogLevel($maxLogLevel) | not then
|
||||
"info"
|
||||
else $maxLogLevel end;
|
||||
|
||||
def shouldLog($logLevel):
|
||||
maxLogLevel as $maxLogLevel |
|
||||
logLevels as $logLevels |
|
||||
reduce range($logLevels | length) as $logLevelIndex ({};
|
||||
.[$logLevels[$logLevelIndex]] = $logLevelIndex
|
||||
) as $logLevelIndexes |
|
||||
$logLevelIndexes[$maxLogLevel] <= $logLevelIndexes[$logLevel];
|
||||
|
||||
def ansiColourByName:
|
||||
. as $name |
|
||||
{
|
||||
"red": "31",
|
||||
"yellow": "33",
|
||||
"blue": "36",
|
||||
"gray": "37"
|
||||
}[$name];
|
||||
|
||||
def levelColour:
|
||||
. as $logLevel |
|
||||
{
|
||||
"trace": "yellow",
|
||||
"debug": "gray",
|
||||
"info": "blue",
|
||||
"warn": "yellow",
|
||||
"error": "red",
|
||||
"fatal": "red"
|
||||
}[$logLevel] | ansiColourByName;
|
||||
|
||||
def log($logLevel; $msg; $data):
|
||||
. as $input |
|
||||
($logLevel | ensureLogLevel) |
|
||||
($msg | typeLib::ensureNullOr(typeLib::ensureString)) |
|
||||
|
||||
if shouldLog($logLevel) then
|
||||
($logLevel | levelColour) as $logLevelColour |
|
||||
($logLevel | ascii_upcase | ansiLib::colourText($logLevelColour)) as $logLevelText |
|
||||
($msg | ansiLib::colourText("gray" | ansiColourByName)) as $msgText |
|
||||
|
||||
if $data != null then
|
||||
if $data | isJSONTooComplex | not then
|
||||
$data | JSONLib::encodeJSON(true; 2)
|
||||
else
|
||||
$data | tojson
|
||||
end
|
||||
else "" end | . as $dataText |
|
||||
|
||||
"\($logLevelText) \($msgText) \($dataText)\n" |
|
||||
if $logLevel == "fatal" then halt_error(1) else stderr end
|
||||
end |
|
||||
|
||||
$input;
|
||||
|
||||
def trace($msg; $data): log("trace"; $msg; $data);
|
||||
def debug($msg; $data): log("debug"; $msg; $data);
|
||||
def info($msg; $data): log("info"; $msg; $data);
|
||||
def warn($msg; $data): log("warn"; $msg; $data);
|
||||
def error($msg; $data): log("error"; $msg; $data);
|
||||
def fatal($msg; $data): log("fatal"; $msg; $data);
|
||||
|
||||
def trace($msg): trace($msg; null);
|
||||
def debug($msg): debug($msg; null);
|
||||
def info($msg): info($msg; null);
|
||||
def warn($msg): warn($msg; null);
|
||||
def error($msg): error($msg; null);
|
||||
def fatal($msg): fatal($msg; null);
|
||||
|
||||
def logTest:
|
||||
([
|
||||
"trace",
|
||||
"debug",
|
||||
"info",
|
||||
"warn",
|
||||
"error"
|
||||
][] | log(.; "example text \(.)"; {})) | empty;
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
def round(precision):
|
||||
. * pow(10; precision) | round / pow(10; precision);
|
||||
|
|
@ -1,10 +0,0 @@
|
|||
def titleCase:
|
||||
[splits("\\b") | select(length>0)]
|
||||
| map((.[:1]|ascii_upcase) + (.[1:] |ascii_downcase))
|
||||
| join("");
|
||||
|
||||
def lpad(string;len;fill):
|
||||
if len == 0 then string else (fill * len)[0:len] + string end;
|
||||
|
||||
def rpad(string;len;fill):
|
||||
if len == 0 then string else string + (fill * len)[0:len] end;
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
def _readFile($filename): error("_readFile only supported in gojq-extended");
|
||||
def _writeFileString($filename): error("_writeFileString only supported in gojq-extended");
|
||||
|
|
@ -1,84 +0,0 @@
|
|||
import "stringLib" as stringLib;
|
||||
|
||||
def printPrettyTable($title; $columnTitles; $rows):
|
||||
if [$rows[] | length] | unique | length > 1 then error("non-even number of columns") end |
|
||||
|
||||
$title | if . == null then "" end | . as $title |
|
||||
|
||||
" | " as $numColumnseperator |
|
||||
|
||||
def padRow($numColumns; $maxColumnLengths):
|
||||
. as $row |
|
||||
[
|
||||
range($numColumns) as $columnNumber |
|
||||
$row[$columnNumber] as $content |
|
||||
if $columnNumber == 0 then
|
||||
stringLib::lpad($content; $maxColumnLengths[$columnNumber] - ($content | length) ; " ")
|
||||
else
|
||||
stringLib::rpad($content; $maxColumnLengths[$columnNumber] - ($content | length) ; " ")
|
||||
end
|
||||
];
|
||||
|
||||
([$rows[] | length] | unique[0]) as $numColumns |
|
||||
([$columnTitles | length] | unique[0]) as $numColumnTitles |
|
||||
if $numColumns != $numColumnTitles then error("unequal title rows and columns") end |
|
||||
|
||||
[$columnTitles[] | length] as $maxColumnLengths |
|
||||
(reduce $rows[] as $column ($maxColumnLengths;
|
||||
[
|
||||
range($numColumns) as $columnNumber |
|
||||
[
|
||||
.[$columnNumber],
|
||||
($column[$columnNumber] | length)
|
||||
] | max
|
||||
]
|
||||
)) as $maxColumnLengths |
|
||||
|
||||
$columnTitles |
|
||||
padRow($numColumns; $maxColumnLengths) |
|
||||
join($numColumnseperator) as $columnTitleRow |
|
||||
|
||||
[$rows[] | padRow($numColumns; $maxColumnLengths)] as $rows |
|
||||
|
||||
$title | length as $titleLength |
|
||||
|
||||
((($numColumns - 1) * ($numColumnseperator | length)) + ($maxColumnLengths | add)) as $maxRowLength |
|
||||
[
|
||||
$maxRowLength,
|
||||
$titleLength
|
||||
] | max as $maxLength |
|
||||
|
||||
|
||||
# Pad title to be centered to maximum row length
|
||||
$title | if $titleLength < $maxRowLength then
|
||||
stringLib::lpad($title; ($maxLength - $titleLength) / 2; " ")
|
||||
end | . as $title |
|
||||
|
||||
# if title is longer than maximum row length, pad the first row the difference between them
|
||||
if $titleLength > $maxRowLength then
|
||||
[
|
||||
$rows[] as $row |
|
||||
[
|
||||
stringLib::lpad($row[0]; $titleLength - $maxRowLength; " ")
|
||||
] + $row[1:]
|
||||
]
|
||||
else $rows end | . as $rows |
|
||||
|
||||
($rows | map(join($numColumnseperator))) as $rows |
|
||||
if $title != "" then
|
||||
|
||||
[
|
||||
$title,
|
||||
([range($maxLength) | "-"] | join("")),
|
||||
|
||||
$columnTitleRow,
|
||||
([range($maxLength) | "-"] | join("")),
|
||||
$rows
|
||||
] | flatten | join("\n") + "\n"
|
||||
else
|
||||
|
||||
[
|
||||
$columnTitleRow,
|
||||
$rows
|
||||
] | flatten | join("\n") + "\n"
|
||||
end;
|
||||
|
|
@ -1,114 +0,0 @@
|
|||
def printTestResult:
|
||||
. as $result | $result |
|
||||
if .passed then
|
||||
"Test \"\(.name)\" Passed"
|
||||
else
|
||||
"Test \"\(.name)\" Failed\nReason: \(.reason)\nOutput: \(.output | tojson)"
|
||||
end;
|
||||
|
||||
def runTest($name; testExpr; checkResult; $expectError):
|
||||
try (
|
||||
(null | testExpr) as $output |
|
||||
if $expectError then
|
||||
{
|
||||
$name,
|
||||
passed: false,
|
||||
reason: "Expected error but no error was raised",
|
||||
$output
|
||||
}
|
||||
elif ($output | checkResult) then
|
||||
{
|
||||
$name,
|
||||
passed: true,
|
||||
$output
|
||||
}
|
||||
else
|
||||
{
|
||||
$name,
|
||||
passed: false,
|
||||
reason: "Result was different from expected",
|
||||
$output
|
||||
}
|
||||
end
|
||||
) catch (
|
||||
. as $error |
|
||||
if ($expectError | not) then
|
||||
{
|
||||
$name,
|
||||
passed: false,
|
||||
reason: "Error caught when no error was expected",
|
||||
output: $error
|
||||
}
|
||||
elif ($expectError and ($error | checkResult)) then
|
||||
{
|
||||
$name,
|
||||
passed: true,
|
||||
output: $error
|
||||
}
|
||||
elif ($expectError and ($error | checkResult | not)) then
|
||||
{
|
||||
$name,
|
||||
passed: false,
|
||||
reason: "Expected error but received different error",
|
||||
output: $error
|
||||
}
|
||||
else
|
||||
error("unknown error")
|
||||
end
|
||||
);
|
||||
|
||||
def expectPassed:
|
||||
if (.passed | not) then
|
||||
error(. | printTestResult)
|
||||
end;
|
||||
def expectPassed($result): $result | expectPassed;
|
||||
|
||||
def expectFailed:
|
||||
if (.passed) then
|
||||
error(. | printTestResult)
|
||||
end;
|
||||
def expectFailed($result): $result | expectFailed;
|
||||
|
||||
def testTests:
|
||||
expectPassed(runTest(
|
||||
"passing test";
|
||||
true;
|
||||
. == true;
|
||||
false
|
||||
)) |
|
||||
expectPassed(runTest(
|
||||
"error expected and equal";
|
||||
error("error");
|
||||
. == "error";
|
||||
true
|
||||
)) |
|
||||
expectFailed(runTest(
|
||||
"failing test";
|
||||
true;
|
||||
. == false;
|
||||
false
|
||||
)) |
|
||||
expectFailed(runTest(
|
||||
"error expected but no error";
|
||||
null;
|
||||
. == null;
|
||||
true
|
||||
)) |
|
||||
expectFailed(runTest(
|
||||
"error not expected";
|
||||
error("error");
|
||||
. == null;
|
||||
false
|
||||
)) |
|
||||
expectFailed(runTest(
|
||||
"error different";
|
||||
error("error");
|
||||
. == "different error";
|
||||
true
|
||||
));
|
||||
|
||||
def testLibMain:
|
||||
testTests |
|
||||
"Tests Passed\n" |
|
||||
halt_error(0);
|
||||
|
||||
|
|
@ -1,89 +0,0 @@
|
|||
import "testLib" as testLib;
|
||||
|
||||
def typecheckingEnabled:
|
||||
if $ENV["JQ_TYPECHECKING"] != null then
|
||||
["true", "1", "debug"] | any(index($ENV["JQ_TYPECHECKING"]))
|
||||
else false end;
|
||||
|
||||
def typecheckingDebug:
|
||||
if $ENV["JQ_TYPECHECKING"] == "debug" then
|
||||
true
|
||||
else false end;
|
||||
|
||||
def dumpType:
|
||||
if (. | type) == "object" then
|
||||
. | [to_entries | sort_by(.key)[] | {"\(.key)": (.value|dumpType)}] | add
|
||||
elif (. | type) == "array" then
|
||||
[.[] | dumpType] as $array |
|
||||
if ($array | length > 0) then
|
||||
if ($array | all(select(. == $array[0]))) then
|
||||
[$array[0]]
|
||||
else
|
||||
$array
|
||||
end
|
||||
else
|
||||
"array:empty/unknown"
|
||||
end
|
||||
else
|
||||
. | type
|
||||
end;
|
||||
|
||||
def typeErrorText:
|
||||
. as $type |
|
||||
"Type Error Checking '\($type)'";
|
||||
|
||||
def typeErrorText($type): $type | typeErrorText;
|
||||
|
||||
def typeError($type):
|
||||
if typecheckingDebug then debug({typeName: $type, value: ., valueType: . | dumpType}) end |
|
||||
error($type | typeErrorText);
|
||||
|
||||
def ensureNull: if typecheckingEnabled and (. | type != "null") then typeError("null") end;
|
||||
def ensureBool: if typecheckingEnabled and (. | type) != "boolean" then typeError("bool") end;
|
||||
def ensureString: if typecheckingEnabled and (. | type) != "string" then typeError("string") end;
|
||||
def ensureArray: if typecheckingEnabled and (. | type) != "array" then typeError("array") end;
|
||||
def ensureObject: if typecheckingEnabled and (. | type) != "object" then typeError("object") end;
|
||||
def ensureNumber: if typecheckingEnabled and (. | type) != "number" then typeError("number") end;
|
||||
|
||||
def ensureNull($value): $value | ensureNull;
|
||||
def ensureBool($value): $value | ensureBool;
|
||||
def ensureString($value): $value | ensureString;
|
||||
def ensureArray($value): $value | ensureArray;
|
||||
def ensureObject($value): $value | ensureObject;
|
||||
def ensureNumber($value): $value | ensureNumber;
|
||||
|
||||
def ensureNullOr(ensureType):
|
||||
if . == null then . else . | ensureType end;
|
||||
|
||||
def ensureKey($type; $key): if (. | has($key) | not) then typeError("\($type):\($key)") end;
|
||||
def ensureKey($value; $type; $key): $value | ensureKey($type; $key);
|
||||
|
||||
def ensureIfKey($key; ensureType): if (. | has($key)) then .[$key] | ensureType end;
|
||||
|
||||
def ensureWrapError($newType; ensureType):
|
||||
. as $value |
|
||||
try (. | ensureType)
|
||||
catch (
|
||||
. as $prevError |
|
||||
if typecheckingDebug then debug({$newType, $prevError}) end |
|
||||
error(typeErrorText($newType))
|
||||
);
|
||||
|
||||
def ensureWrapError($value; $newType; ensureType):
|
||||
$value | ensureWrapError($newType; ensureType);
|
||||
|
||||
# JQ_TYPECHECKING=true required for tests
|
||||
def typeLibTests:
|
||||
testLib::expectPassed(testLib::runTest(
|
||||
"null is null";
|
||||
(null | ensureNull);
|
||||
true;
|
||||
false
|
||||
)) |
|
||||
testLib::expectPassed(testLib::runTest(
|
||||
"boolean is not null";
|
||||
(true | ensureNull);
|
||||
(. == typeErrorText("null"));
|
||||
true
|
||||
));
|
||||
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
import "stringLib" as stringLib;
|
||||
|
||||
def debugLog($target; $value):
|
||||
if
|
||||
($ENV["JQ_DEBUG"] == $target)
|
||||
or
|
||||
($target == "*")
|
||||
or
|
||||
($ENV["JQ_DEBUG"] | split(",") | any(. as $debugTarget | $target | startswith($debugTarget | split("*")[0])))
|
||||
then
|
||||
debug({$target, $value})
|
||||
end;
|
||||
|
||||
def assert(cond; $msg): if cond then . else error($msg) end;
|
||||
def assert($loc; cond; $msg): assert(cond; "\($loc.file):\($loc.line): " + $msg);
|
||||
|
||||
def firstN($n): .[:$n];
|
||||
|
||||
def orderedUnique:
|
||||
(reduce .[] as $value ([];
|
||||
if
|
||||
(. | any(index($value)) | not)
|
||||
then . += [$value]
|
||||
else . end
|
||||
));
|
||||
|
||||
def sortFilterFromString($filterString):
|
||||
($filterString | split("|")).[] as $filter |
|
||||
if
|
||||
$filter == "reverse" then . | reverse
|
||||
elif ($filter | startswith("firstN")) then
|
||||
($filter | ltrimstr("firstN(") | rtrimstr(")")) as $arg |
|
||||
. | firstN($arg | try fromjson catch error("invalid number passed to firstN"))
|
||||
end;
|
||||
322
tool/main.jq
322
tool/main.jq
|
|
@ -1,322 +0,0 @@
|
|||
import "lib/typeLib" as typeLib;
|
||||
import "lib/argsLib" as argsLib;
|
||||
import "lib/stringLib" as stringLib;
|
||||
import "lib/tableLib" as tableLib;
|
||||
import "lib/utilsLib" as utilsLib;
|
||||
import "lib/journalLib" as journalLib;
|
||||
import "lib/gojqExtendedLib" as gojqExtendedLib;
|
||||
import "lib/journalTypes" as journalTypes;
|
||||
|
||||
import "journalUtils" as journalUtils;
|
||||
|
||||
def printExperienceStats($stats; $substanceFilter; $consumerFilter; $withTitle):
|
||||
. as $experience |
|
||||
|
||||
($consumerFilter // ["default"]) as $consumerFilter |
|
||||
|
||||
$experience.ingestions |
|
||||
journalLib::filterIngestions($substanceFilter; $consumerFilter) |
|
||||
sort_by(.sortDate) as $ingestions |
|
||||
|
||||
($ingestions | journalLib::ingestionsSubstanceNames) as $substanceNames |
|
||||
($ingestions | journalLib::ingestionsByConsumer) as $ingestionsByConsumer |
|
||||
|
||||
($ingestionsByConsumer | keys) as $consumerNames |
|
||||
|
||||
"" as $experienceStatsText |
|
||||
$experienceStatsText |
|
||||
if $withTitle then
|
||||
. += ($experience | journalUtils::formatExperienceTitle | . + "\n")
|
||||
end | . as $experienceStatsText |
|
||||
|
||||
reduce $consumerNames[] as $consumerName ($experienceStatsText;
|
||||
. as $experienceStatsText |
|
||||
$experienceStatsText |
|
||||
if ($consumerNames != ["default"])
|
||||
then . += "Consumer: \($consumerName)\n"
|
||||
end | . as $experienceStatsText |
|
||||
|
||||
($ingestionsByConsumer[$consumerName] | journalLib::ingestionsSubstanceNames) as $consumerSubstanceNames |
|
||||
|
||||
$experienceStatsText | reduce $consumerSubstanceNames[] as $substanceName (.;
|
||||
. as $experienceStatsText |
|
||||
|
||||
($stats.[$consumerName].[$substanceName] | keys) as $ingestionMethods |
|
||||
|
||||
($experienceStatsText | . += "Substance: \($substanceName)\n") as $experienceStatsText |
|
||||
|
||||
reduce ($stats.[$consumerName].[$substanceName] | to_entries)[] as $ingestionMethodInfo ($experienceStatsText;
|
||||
. as $experienceStatsText |
|
||||
|
||||
$ingestionMethodInfo |
|
||||
.key as $ingestionMethod |
|
||||
.value as $ingestionInfo |
|
||||
|
||||
def formatIngestionInfo:
|
||||
if $ingestionInfo.dose == null then
|
||||
"Unknown \($ingestionInfo.unit)"
|
||||
else
|
||||
if $ingestionInfo.isEstimate then "~" else "" end +
|
||||
"\($ingestionInfo.dose * 100 | round / 100)" +
|
||||
if $ingestionInfo.standardDeviation != null then
|
||||
"±\($ingestionInfo.standardDeviation)"
|
||||
else "" end +
|
||||
|
||||
if $ingestionInfo.isUnknown then "+ Unknown" else "" end +
|
||||
" \($ingestionInfo.unit)"
|
||||
end;
|
||||
|
||||
$experienceStatsText |
|
||||
. += "Dose (\($ingestionMethod | stringLib::titleCase)): \($ingestionInfo | formatIngestionInfo)\n" |
|
||||
. as $experienceStatsText |
|
||||
|
||||
$experienceStatsText
|
||||
) | . as $experienceStatsText |
|
||||
|
||||
$experienceStatsText | if ($ingestionMethods | length > 1) then
|
||||
($stats | journalLib::statsCalculateCombinedDose($substanceName; $consumerName)) as $combinedDose |
|
||||
. += "Combined Dose: \($combinedDose.dose // "Unknown") \($combinedDose.unit)\n"
|
||||
end | . as $experienceStatsText |
|
||||
|
||||
$experienceStatsText | . += "\n"
|
||||
)
|
||||
) | rtrimstr("\n\n");
|
||||
|
||||
def printExperienceLog($customUnits; $substanceFilter; $consumerFilter; $pretty; $withTitle):
|
||||
. as $experience |
|
||||
($consumerFilter // ["default"]) as $consumerFilter |
|
||||
|
||||
$experience.ingestions |
|
||||
journalLib::filterIngestions($substanceFilter; $consumerFilter) |
|
||||
sort_by(.sortDate) as $ingestions |
|
||||
|
||||
$ingestions | journalLib::ingestionsConsumerNames as $consumerNames |
|
||||
|
||||
if ($consumerNames != ["default"]) then
|
||||
["Substance", "Dose", "ROA", "Consumer", "Time"]
|
||||
else
|
||||
["Substance", "Dose", "ROA", "Time"]
|
||||
end | . as $columnTitles |
|
||||
|
||||
[
|
||||
$ingestions[] as $ingestion |
|
||||
$ingestion |
|
||||
.substanceName as $substanceName |
|
||||
journalLib::ingestionConsumerName as $consumerName |
|
||||
journalUtils::formatIngestionDose($customUnits) as $doseText |
|
||||
journalUtils::formatIngestionROA($customUnits) as $roaText |
|
||||
journalUtils::formatIngestionTime as $timeText |
|
||||
if ($consumerNames != ["default"])
|
||||
then [$substanceName, $doseText, $roaText, $consumerName, $timeText]
|
||||
else [$substanceName, $doseText, $roaText, $timeText] end
|
||||
] as $rows |
|
||||
|
||||
tableLib::printPrettyTable(
|
||||
if $withTitle then ($experience | journalUtils::formatExperienceTitle) else null end;
|
||||
$columnTitles;
|
||||
$rows
|
||||
);
|
||||
|
||||
def printExperiences($customUnits; $substanceFilter; $consumerFilter):
|
||||
. as $experiences |
|
||||
|
||||
$experiences |
|
||||
.[] as $entry |
|
||||
$entry.experience as $experience |
|
||||
$entry.stats as $stats |
|
||||
($experience | printExperienceLog(
|
||||
$customUnits;
|
||||
$substanceFilter;
|
||||
$consumerFilter;
|
||||
true;
|
||||
true
|
||||
)) +
|
||||
"\nCumulative Doses:\n" +
|
||||
($experience | printExperienceStats(
|
||||
$stats;
|
||||
$substanceFilter;
|
||||
$consumerFilter;
|
||||
false
|
||||
)) + "\n";
|
||||
|
||||
|
||||
def main:
|
||||
def usage:
|
||||
[
|
||||
"psychonaut_journal_stats {printExperience,printExperiences}",
|
||||
""
|
||||
] | join("\n") | halt_error(1);
|
||||
|
||||
($ARGS | argsLib::parseArgs) as $parsedArgs |
|
||||
|
||||
$parsedArgs.nonArgs[0] as $program |
|
||||
($parsedArgs | .nonArgs |= $parsedArgs.nonArgs[1:]) as $parsedArgs |
|
||||
|
||||
if gojqExtendedLib::checkSupported then
|
||||
if $parsedArgs.longArgs["export-file"] then
|
||||
$parsedArgs.longArgs["export-file"]
|
||||
else
|
||||
$ARGS.named["exportFileName"]
|
||||
end | . as $exportFileName |
|
||||
{
|
||||
name: $exportFileName,
|
||||
content: gojqExtendedLib::readFile($exportFileName) | fromjson
|
||||
}
|
||||
else
|
||||
if $parsedArgs.longArgs | has("export-file") then
|
||||
"--export-file was provided but this version of jq doesn't support reading files" +
|
||||
"using EXPORT_FILE instead\n" | stderr
|
||||
end |
|
||||
{
|
||||
name: $ARGS.named["exportFileName"],
|
||||
content: $ARGS.named["exportFile"][0]
|
||||
}
|
||||
end | . as $exportFile |
|
||||
|
||||
$exportFile.name as $exportFileName |
|
||||
$exportFile.content as $exportData |
|
||||
|
||||
if $exportData == null then
|
||||
if gojqExtendedLib::checkSupported then
|
||||
"please set EXPORT_FILE= or --export-file to a valid psychonaut journal export file\n" |
|
||||
halt_error(1)
|
||||
else
|
||||
"please set EXPORT_FILE= to a valid psychonaut journal export file\n" |
|
||||
halt_error(1)
|
||||
end
|
||||
end |
|
||||
|
||||
$exportData | journalTypes::ensureExportData |
|
||||
|
||||
if $program == null then
|
||||
if any($parsedArgs.shortArgs[]; . == "h") then usage end |
|
||||
if ($parsedArgs.longArgs | has("help")) then usage end |
|
||||
|
||||
usage
|
||||
elif $program == "printExperience" then
|
||||
def printExperienceUsage($reason):
|
||||
[
|
||||
$reason,
|
||||
"Usage: printExperience [experienceTitle] --title=bool --stats=bool --substance-filter=[substanceNames,] --consumer-filter=[consumerNames,]",
|
||||
""
|
||||
] | map(select(. != null)) | join("\n") | halt_error(1);
|
||||
|
||||
if any($parsedArgs.shortArgs[]; . == "h") then printExperienceUsage(null) end |
|
||||
if ($parsedArgs.longArgs | has("help")) then printExperienceUsage(null) end |
|
||||
|
||||
$parsedArgs.nonArgs[0] as $experienceTitle |
|
||||
if $experienceTitle == null then printExperienceUsage("experienceTitle not provided") end |
|
||||
|
||||
{
|
||||
substanceFilter: null,
|
||||
consumerFilter: null,
|
||||
withTitle: true,
|
||||
withStats: true,
|
||||
} as $defaultOptions |
|
||||
$defaultOptions as $options |
|
||||
|
||||
reduce ($parsedArgs.longArgs | to_entries[]) as $longArg ($options; (
|
||||
$longArg.key as $arg |
|
||||
$longArg.value as $value |
|
||||
|
||||
if $arg == "title" then
|
||||
.withTitle |= ($value // $defaultOptions.withTitle | argsLib::parseArgBool)
|
||||
end |
|
||||
if $arg == "stats" then
|
||||
.withStats |= ($value // $defaultOptions.withStats | argsLib::parseArgBool)
|
||||
end |
|
||||
if $arg == "substance-filter" then
|
||||
.substanceFilter |= ($parsedArgs.longArgs.["substance-filter"] | split(","))
|
||||
end |
|
||||
if $arg == "consumer-filter" then
|
||||
.consumerFilter |= ($parsedArgs.longArgs.["consumer-filter"] | split(","))
|
||||
end
|
||||
)) | . as $options |
|
||||
|
||||
$exportData.experiences | journalLib::experienceByTitle($experienceTitle) as $experience |
|
||||
if $experience == null then error("Experience not found") end |
|
||||
|
||||
($experience | printExperienceLog(
|
||||
$exportData.customUnits;
|
||||
$options.substanceFilter;
|
||||
$options.consumerFilter;
|
||||
$options.pretty;
|
||||
$options.withTitle
|
||||
)) as $ingestionLog |
|
||||
|
||||
if $options.withStats then
|
||||
($experience | journalLib::experienceStats($exportData.customUnits)) as $stats |
|
||||
$ingestionLog +
|
||||
"\n\nCumulative Doses:\n" +
|
||||
($experience | printExperienceStats(
|
||||
$stats;
|
||||
$options.substanceFilter;
|
||||
$options.consumerFilter;
|
||||
false
|
||||
))
|
||||
else
|
||||
$ingestionLog
|
||||
end
|
||||
elif $program == "printExperiences" then
|
||||
def printExperiencesUsage($reason):
|
||||
[
|
||||
$reason,
|
||||
"Usage: printExperiences --substance-filter=[substanceNames,] --consumer-filter=[consumerNames,] --sort-method={old-to-new,highest-combined-dose,highest-dose-for-method} --sort-option-substance-name=[string] --sort-options-ingestion-method=[string] --sort-options-consumer-name=[string] --sort-filter={firstN(x),reverse}",
|
||||
""
|
||||
] | map(select(. != null)) | join("\n") | halt_error(1);
|
||||
|
||||
if any($parsedArgs.shortArgs[]; . == "h") then printExperiencesUsage(null) end |
|
||||
if ($parsedArgs.longArgs | has("help")) then printExperiencesUsage(null) end |
|
||||
|
||||
{
|
||||
substanceFilter: null,
|
||||
consumerFilter: null,
|
||||
sortMethod: "old-to-new",
|
||||
sortOptions: {},
|
||||
sortFilter: null
|
||||
} as $defaultOptions |
|
||||
$defaultOptions as $options |
|
||||
|
||||
reduce ($parsedArgs.longArgs | to_entries[]) as $longArg ($options; (
|
||||
$longArg.key as $arg |
|
||||
$longArg.value as $value |
|
||||
if $arg == "substance-filter" then
|
||||
.substanceFilter |= ($parsedArgs.longArgs.["substance-filter"] | split(","))
|
||||
end |
|
||||
if $arg == "consumer-filter" then
|
||||
.consumerFilter |= ($parsedArgs.longArgs.["consumer-filter"] | split(","))
|
||||
end |
|
||||
if $arg == "sort-method" then
|
||||
.sortMethod |= $parsedArgs.longArgs.["sort-method"]
|
||||
end |
|
||||
if $arg == "sort-option-substance-name" then
|
||||
.sortOptions.substanceName |= $parsedArgs.longArgs.["sort-option-substance-name"]
|
||||
end |
|
||||
if $arg == "sort-option-ingestion-method" then
|
||||
.sortOptions.ingestionMethod |= $parsedArgs.longArgs.["sort-option-ingestion-method"]
|
||||
end |
|
||||
if $arg == "sort-option-consumer-name" then
|
||||
.sortOptions.consumerName |= $parsedArgs.longArgs.["sort-option-consumer-name"]
|
||||
end |
|
||||
if $arg == "sort-filter" then
|
||||
.sortFilter |= $parsedArgs.longArgs.["sort-filter"]
|
||||
end
|
||||
)) | . as $options |
|
||||
|
||||
$exportData.experiences |
|
||||
journalLib::filterSortExperiences(
|
||||
$exportData.customUnits;
|
||||
$options.substanceFilter;
|
||||
$options.consumerFilter;
|
||||
$options.sortMethod;
|
||||
$options.sortOptions
|
||||
) |
|
||||
if ($options.sortFilter != null) then utilsLib::sortFilterFromString($options.sortFilter) end |
|
||||
printExperiences(
|
||||
$exportData.customUnits;
|
||||
$options.substanceFilter;
|
||||
$options.consumerFilter
|
||||
)
|
||||
else
|
||||
usage
|
||||
end;
|
||||
205
tool/testdata/tests_export.json
vendored
205
tool/testdata/tests_export.json
vendored
|
|
@ -1,205 +0,0 @@
|
|||
{
|
||||
"substanceCompanions": [
|
||||
{
|
||||
"substanceName": "Caffeine",
|
||||
"color": "BLUE"
|
||||
},
|
||||
{
|
||||
"color": "BROWN",
|
||||
"substanceName": "N-Acetylcysteine"
|
||||
},
|
||||
{
|
||||
"substanceName": "Custom",
|
||||
"color": "CYAN"
|
||||
}
|
||||
],
|
||||
"customUnits": [
|
||||
{
|
||||
"substanceName": "Caffeine",
|
||||
"isEstimate": false,
|
||||
"isArchived": false,
|
||||
"creationDate": 1730892759000,
|
||||
"administrationRoute": "ORAL",
|
||||
"unit": "pill",
|
||||
"originalUnit": "mg",
|
||||
"id": 1251361475,
|
||||
"estimatedDoseStandardDeviation": null,
|
||||
"name": "Tablet",
|
||||
"dose": 200,
|
||||
"note": ""
|
||||
}
|
||||
],
|
||||
"experiences": [
|
||||
{
|
||||
"isFavorite": false,
|
||||
"text": "",
|
||||
"creationDate": 1730892508000,
|
||||
"title": "Experience 1",
|
||||
"ratings": [],
|
||||
"sortDate": 1730892507000,
|
||||
"timedNotes": [],
|
||||
"ingestions": [
|
||||
{
|
||||
"estimatedDoseStandardDeviation": null,
|
||||
"dose": 20,
|
||||
"stomachFullness": null,
|
||||
"administrationRoute": "INSUFFLATED",
|
||||
"substanceName": "Caffeine",
|
||||
"creationDate": 1730892508000,
|
||||
"units": "mg",
|
||||
"time": 1730892507000,
|
||||
"isDoseAnEstimate": false,
|
||||
"notes": "",
|
||||
"consumerName": null,
|
||||
"customUnitId": null
|
||||
},
|
||||
{
|
||||
"customUnitId": null,
|
||||
"estimatedDoseStandardDeviation": null,
|
||||
"time": 1730892510000,
|
||||
"stomachFullness": null,
|
||||
"substanceName": "Caffeine",
|
||||
"dose": 20,
|
||||
"notes": "",
|
||||
"creationDate": 1730892511000,
|
||||
"isDoseAnEstimate": true,
|
||||
"units": "mg",
|
||||
"consumerName": null,
|
||||
"administrationRoute": "INSUFFLATED"
|
||||
},
|
||||
{
|
||||
"estimatedDoseStandardDeviation": null,
|
||||
"dose": 100,
|
||||
"units": "mg",
|
||||
"creationDate": 1730892529000,
|
||||
"isDoseAnEstimate": false,
|
||||
"consumerName": null,
|
||||
"notes": "",
|
||||
"administrationRoute": "ORAL",
|
||||
"time": 1730892528000,
|
||||
"substanceName": "Caffeine",
|
||||
"customUnitId": null,
|
||||
"stomachFullness": "EMPTY"
|
||||
},
|
||||
{
|
||||
"substanceName": "Caffeine",
|
||||
"notes": "",
|
||||
"customUnitId": null,
|
||||
"time": 1730892533000,
|
||||
"isDoseAnEstimate": true,
|
||||
"administrationRoute": "ORAL",
|
||||
"units": "mg",
|
||||
"estimatedDoseStandardDeviation": null,
|
||||
"dose": 100,
|
||||
"creationDate": 1730892534000,
|
||||
"stomachFullness": "EMPTY",
|
||||
"consumerName": null
|
||||
},
|
||||
{
|
||||
"estimatedDoseStandardDeviation": 20,
|
||||
"isDoseAnEstimate": true,
|
||||
"administrationRoute": "ORAL",
|
||||
"dose": 100,
|
||||
"time": 1730892549000,
|
||||
"units": "mg",
|
||||
"consumerName": null,
|
||||
"creationDate": 1730892554000,
|
||||
"notes": "",
|
||||
"substanceName": "Caffeine",
|
||||
"stomachFullness": "EMPTY",
|
||||
"customUnitId": null
|
||||
},
|
||||
{
|
||||
"stomachFullness": "EMPTY",
|
||||
"notes": "",
|
||||
"dose": 250,
|
||||
"isDoseAnEstimate": false,
|
||||
"time": 1730892600000,
|
||||
"administrationRoute": "ORAL",
|
||||
"creationDate": 1730892603000,
|
||||
"estimatedDoseStandardDeviation": null,
|
||||
"units": "mg",
|
||||
"consumerName": null,
|
||||
"customUnitId": null,
|
||||
"substanceName": "N-Acetylcysteine"
|
||||
}
|
||||
],
|
||||
"location": null
|
||||
},
|
||||
{
|
||||
"text": "",
|
||||
"sortDate": 1730892605000,
|
||||
"isFavorite": false,
|
||||
"ingestions": [
|
||||
{
|
||||
"stomachFullness": "EMPTY",
|
||||
"dose": 250,
|
||||
"isDoseAnEstimate": false,
|
||||
"substanceName": "N-Acetylcysteine",
|
||||
"notes": "",
|
||||
"consumerName": null,
|
||||
"customUnitId": null,
|
||||
"creationDate": 1730892610000,
|
||||
"estimatedDoseStandardDeviation": null,
|
||||
"time": 1730892605000,
|
||||
"units": "mg",
|
||||
"administrationRoute": "ORAL"
|
||||
},
|
||||
{
|
||||
"substanceName": "Custom",
|
||||
"stomachFullness": null,
|
||||
"customUnitId": null,
|
||||
"time": 1730892696000,
|
||||
"isDoseAnEstimate": false,
|
||||
"units": "mg",
|
||||
"notes": "",
|
||||
"consumerName": null,
|
||||
"estimatedDoseStandardDeviation": null,
|
||||
"administrationRoute": "SMOKED",
|
||||
"creationDate": 1730892698000,
|
||||
"dose": 100
|
||||
},
|
||||
{
|
||||
"dose": null,
|
||||
"estimatedDoseStandardDeviation": null,
|
||||
"substanceName": "Custom",
|
||||
"units": "mg",
|
||||
"administrationRoute": "SMOKED",
|
||||
"creationDate": 1730892704000,
|
||||
"notes": "",
|
||||
"consumerName": null,
|
||||
"customUnitId": null,
|
||||
"time": 1730892702000,
|
||||
"isDoseAnEstimate": false,
|
||||
"stomachFullness": null
|
||||
},
|
||||
{
|
||||
"stomachFullness": "EMPTY",
|
||||
"time": 1730892770000,
|
||||
"consumerName": null,
|
||||
"dose": 1,
|
||||
"isDoseAnEstimate": false,
|
||||
"customUnitId": 1251361475,
|
||||
"substanceName": "Caffeine",
|
||||
"notes": "",
|
||||
"estimatedDoseStandardDeviation": null,
|
||||
"administrationRoute": "ORAL",
|
||||
"units": "mg",
|
||||
"creationDate": 1730892771000
|
||||
}
|
||||
],
|
||||
"title": "Experience 2",
|
||||
"creationDate": 1730892610000,
|
||||
"location": null,
|
||||
"ratings": [],
|
||||
"timedNotes": []
|
||||
}
|
||||
],
|
||||
"customSubstances": [
|
||||
{
|
||||
"description": "",
|
||||
"name": "Custom",
|
||||
"units": "mg"
|
||||
}
|
||||
]
|
||||
}
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
import "lib/testLib" as testLib;
|
||||
import "lib/typeLib" as typeLib;
|
||||
import "lib/journalLibTests" as journalLibTests;
|
||||
|
||||
def testsMain:
|
||||
testLib::testTests |
|
||||
typeLib::typeLibTests |
|
||||
journalLibTests::journalLibTests |
|
||||
"Tests Passed\n" | halt_error(0);
|
||||
Loading…
Reference in a new issue