fabiolimace

/**
 * Will normalize quotes in a given string. There are many variations of quotes
 * in the unicode character set, this function attempts to convert any variation
 * of quote to the standard Quotation Mark - U+0022 Standard Universal: "
 *
 * @param {string} str The string to normalize
 * @return {string} Normalized string.
 * @see https://unicode-table.com/en/sets/quotation-marks/
 */
helpers.stdQuote = (str) => {

fabiolimace

#!/usr/bin/awk -f

#
# Search records in a Cookie-Jar format file
#
# If it finds the KEY in a line that starts with `%%`, it prints the corresponding records.
#
# The text in the same line as the record separator `%%` is used as a record KEY.
#
# The KEY is a regula expression.

fabiolimace

#!/usr/bin/mawk -f

# 
# description
# 

BEGIN {
}

{

fabiolimace

#!/usr/bin/awk -f

#
# Reads a CSV file and prints a TSV file to standard output.
#
# Usage:
#        ./csv-to-tsv.awk input.csv > output.tsv
#        ./csv-to-tsv.awk -v SEP=";" input.csv > output.tsv
#        ./csv-to-tsv.awk -v COLUMNS=10 input.csv > output.tsv
#

fabiolimace

#!/bin/sh

zcat "$1" | less

fabiolimace

#!/bin/local/gawk -f

# parse utf-16 escape sequences generated by WGET
# transform them all into HTML entities: `�`

function parse_unicode() {
	while (match($0, /\\u[0-9a-f][0-9a-f][0-9a-f][0-9a-f]/)) {
		hex = substr($0, RSTART+2, RLENGTH-2);
		gsub( "\\\\u" hex, "\\&#x" hex ";", $0);
	}

fabiolimace

# hexadecimal reference to decimal
echo "--ƒ--" \
| awk '{ while (match($0, /&#x[0-9a-fA-F]+;/)) { n = "0x" substr($0, RSTART + 3, RLENGTH - 4 ); x = sprintf("&#%d;", strtonum(n)); $0 = substr($0, 1, RSTART - 1) x substr($0, RSTART + RLENGTH); }; print }'
--ƒ--

# decimal reference to character
echo "--ƒ--" \
| awk '{ while (match($0, /&#[0-9]+;/)) { n = substr($0, RSTART + 2, RLENGTH - 3 ); sub(/^0+/, "", n); x = sprintf("%c", strtonum(n)); $0 = substr($0, 1, RSTART - 1) x substr($0, RSTART + RLENGTH); }; print }'
--ƒ--

fabiolimace

function join_numbers(    i, n, x) {
	while (match($0, /[ ][0-9,.()-]+[ ][0-9,.()-]+[ ]?/)) {
		i = RSTART;
		n = RLENGTH;
		x = substr($0, i, n);
		gsub(" ", "", x);
		$0 = substr($0, 0, i-1) " " x " " substr($0, i+n)
	}
}

fabiolimace

CREATE OR REPLACE FUNCTION uuid7_sql() RETURNS uuid AS $$
       SELECT (FORMAT('%s-%s-%0s-%s-%s', 
       lpad(to_hex(trunc(EXTRACT(EPOCH FROM statement_timestamp()) * 1000)::bigint >> 16), 8, '0'),
       lpad(to_hex(trunc(EXTRACT(EPOCH FROM statement_timestamp()) * 1000)::bigint & 65535), 4, '0'),
       lpad(to_hex((trunc(random() * 2^12) + 28672)::bigint), 4, '0'), -- 28672 = 0x7000
       lpad(to_hex((trunc(random() * 2^14) + 32768)::bigint), 4, '0'), -- 32768 = 0x8000
       lpad(to_hex(trunc(random() * 2^48)::bigint), 12, '0')))::uuid;
$$ LANGUAGE SQL;

select uuid7_sql() -- 019450fe-7b0f-7ccc-8564-ad3ccc8234e0

fabiolimace

-- install the extension
CREATE EXTENSION pgcrypto;

CREATE OR REPLACE FUNCTION secure_random_bigint() RETURNS bigint AS $$
DECLARE
    v_bytes bytea;
    v_value bigint := 0;
    v_length integer := 8;
    i integer := 0;
BEGIN