hlindberg’s gists

hlindberg / haddock.rb

Created July 6, 2023 15:57

Ruby code to return random captain haddock curse

	class Haddock
	CURSES = [
	"Aardvark",
	"Abecedarians",
	"Addle-pated lumps of anthracite",
	"Anachronisms",
	"Anacoluthons",
	"Antediluvian bulldozer",
	"Anthracite",
	"Anthropithecus",

hlindberg / env_data.rb

Last active January 13, 2023 12:48

	Puppet::Functions.create_function(:env_data) do
	# @since 4.8.0
	dispatch :env_data do
	param 'Struct[{}]', :options
	param 'Puppet::LookupContext', :context
	end

	def env_data(options, context)
	ENV.to_h
	end

hlindberg / advent_1.pp

Created December 1, 2022 21:28

	[ 1000, 2000, 3000, "", 4000, "", 5000, 6000, "", 7000, 8000, 9000, "", 10000,
	].reduce([0]) \|$memo, $v\| { if $v == "" { $memo << 0 } else { $memo[0,-2] << $memo[-1]+$v } }
	.map() \|$i,$x\| { [$i,$x] }
	.sort() \|$a,$b\| { compare($b[1], $a[1]) }
	.then() \|$x\| { $x[0] }
	.then() \|$x\| { "Elf ${x[0]} has ${x[1]} calories" }
	.notice()

hlindberg / puppet.ebnf

Created February 14, 2020 08:55

	# Puppet EBNF (kind of)
	# Try with: http://www.bottlecaps.de/rr/ui

	ACTOR ::= 'actor' ( '(' PARAMS ')')? ('inherits' NAME)?
	'{'
	(QUEUE \| INBOX \| ACTION \| SEQUENCE \| PARALLEL \| FUNCTION \| STATE \| CONSTANT \| LOCAL_TYPE)*
	'}'

	SEQUENCE ::= 'sequence' '{' (ACTION \| SEQUENCE \| PARALLEL)* '}'
	PARALLEL ::= 'parallel' '{' (ACTION \| SEQUENCE \| PARALLEL)* '}'

hlindberg / gist:e033ab9c8e20282cc494db6f04afc308

Last active January 30, 2020 15:52

	# The latch function remembers what it was called with
	# and returns what it was previously called with.
	#
	# This is using global namespace - in your code use a module namespace
	#
	Puppet::Functions.create_function(:latch) do
	dispatch :example do
	repeated_param 'Any', :arg
	end

hlindberg / sorthash.pp

Last active July 20, 2022 12:36

This is an example of how to recursively sort a Hash in the puppet language using the tree_each() function. Note that in versions before Puppet 6.0 the `convert_to` function does not accept the extra 'hash_tree' arg.ument.

	# When you need to process a hash with keys in sorted order
	# you may have found the `sort()` function - but it only
	# operates on an Array.
	#
	# Most of the time what is wanted is simply achieved
	# by taking the keys of a hash and sorting those and
	# then iterating over the keys.
	#
	# When, however the wanted result is a new Hash
	# with all keys sorted recursively then this becomes

hlindberg / example.pp

Created February 12, 2019 21:20

mapping a hash

	$h = { 'b' => ['banana', 'bandana'], 'o' => ['orange', 'ovaltine'] }
	$h2 = $h.map \|$k, $v \| { [$k,$v[0]] }
	notice "h2 = ${h2}"
	notice Hash($h2)

hlindberg / puppet_grammar.xhtml

Created November 5, 2018 15:21

	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml">
	<head>
	<meta http-equiv="Content-Type" content="application/xhtml+xml; charset=UTF-8" />
	<meta name="generator" content="Railroad Diagram Generator 1.52.1729" />
	<style type="text/css">
	::-moz-selection
	{
	color: #FFFEF8;
	background: #1E1800;
	}

hlindberg / any2bool.rb

Created November 2, 2018 15:14

Example: Puppet function calling new to create a Boolean from a String

	Puppet::Functions.create_function(:any2bool) do
	dispatch :any2bool do
	param 'Any', :to_be_converted
	end

	def any2bool(to_be_converted)
	call_function('new', Puppet::Pops::Types::PBooleanType::DEFAULT, to_be_converted)
	end
	end

hlindberg / functional_puppet.pp

Created October 5, 2018 09:32

A fun example using Deferred to write puppet code in a functional style

	# Resolves a given value - if given a Deferred it will be called and all other values are returned as is.
	#
	function resolve(Any $x) {
	if $x =~ Deferred { $x.call } else { $x }
	}

	# Resolves and evaluates a condition and either resolves and evaluates the given when_true,
	# or the given when_false depending on the outcome of the evaluation of the condition.
	# The result is undef if the selected when_true/when_false is undefined.
	#

	[ 1000, 2000, 3000, "", 4000, "", 5000, 6000, "", 7000, 8000, 9000, "", 10000,
	].reduce([0]) \|$memo, $v\| { if $v == "" { $memo << 0 } else { $memo[0,-2] << $memo[-1]+$v } }
	.map() \|$i,$x\| { [$i,$x] }
	.sort() \|$a,$b\| { compare($b[1], $a[1]) }
	.then() \|$x\| { $x[0] }
	.then() \|$x\| { "Elf ${x[0]} has ${x[1]} calories" }
	.notice()

Henrik Lindberg hlindberg