fabiolimace

# Smartlink - GENAI MP3 Player - USB Mass Storage
# /etc/udev/rules.d/80-smartlink-mp3-player.rules
# https://github.com/ilyakurdyukov/smartlink_flash
# lsusb: Bus 001 Device 020: ID 301a:2801 SmartlinkTechnology USB2.0 Device
SUBSYSTEMS=="usb", ATTRS{idVendor}=="301a", ATTRS{idProduct}=="2800", MODE="0666", TAG+="uaccess"
SUBSYSTEMS=="usb", ATTRS{idVendor}=="301a", ATTRS{idProduct}=="2801", MODE="0666", TAG+="uaccess"

fabiolimace

#!/bin/bash

#
# Convert a ebook into an audiobook.
#
# Input format: TXT
# Output format: MP3
#
# USAGE
#

fabiolimace

#!/bin/bash

#
# Este script baixa o RSS do site G1 da Globo.
#
# Produz dois arquivos:
#
# 1. Um arquivo XML o conteúdo inalterado;
# 2. Um arquivo Record-Jar gerado a partir do XML.
#

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 }'
--ƒ--