scripts/check_site.sh

-#!/bin/sh
-
-SITE_CONFIG_LUA=packages/gluon/gluon/gluon-core/files/usr/lib/lua/gluon/site_config.lua
-CHECK_SITE_LIB=scripts/check_site_lib.lua
-
-"$GLUONDIR"/openwrt/staging_dir/host/bin/lua -e "site = dofile(os.getenv('GLUONDIR') .. '/${SITE_CONFIG_LUA}'); dofile(os.getenv('GLUONDIR') .. '/${CHECK_SITE_LIB}'); dofile()"

scripts/check_site_lib.lua

-local function loadvar(varname)
-   local ok, val = pcall(assert(loadstring('return site.' .. varname)))
-   if ok then
-      return val
-   else
-      return nil
-   end
-end
-
-local function assert_type(var, t, msg)
-   assert(type(var) == t, msg)
-end
-
-
-function need_string(varname, required)
-   local var = loadvar(varname)
-
-   if required == false and var == nil then
-      return nil
-   end
-
-   assert_type(var, 'string', "site.conf error: expected `" .. varname .. "' to be a string")
-   return var
-end
-
-function need_string_match(varname, pat, required)
-   local var = need_string(varname, required)
-
-   if not var then
-      return nil
-   end
-
-   assert(var:match(pat), "site.conf error: expected `" .. varname .. "' to match pattern `" .. pat .. "'")
-
-   return var
-end
-
-function need_number(varname, required)
-   local var = loadvar(varname)
-
-   if required == false and var == nil then
-      return nil
-   end
-
-   assert_type(var, 'number', "site.conf error: expected `" .. varname .. "' to be a number")
-
-   return var
-end
-
-function need_boolean(varname, required)
-   local var = loadvar(varname)
-
-   if required == false and var == nil then
-      return nil
-   end
-
-   assert_type(var, 'boolean', "site.conf error: expected `" .. varname .. "' to be a boolean")
-
-   return var
-end
-
-function need_array(varname, subcheck, required)
-   local var = loadvar(varname)
-
-   if required == false and var == nil then
-      return nil
-   end
-
-   assert_type(var, 'table', "site.conf error: expected `" .. varname .. "' to be an array")
-
-   for _, e in ipairs(var) do
-      subcheck(e)
-   end
-
-   return var
-end
-
-function need_table(varname, subcheck, required)
-   local var = loadvar(varname)
-
-   if required == false and var == nil then
-      return nil
-   end
-
-   assert_type(var, 'table', "site.conf error: expected `" .. varname .. "' to be a table")
-
-   for k, v in pairs(var) do
-      subcheck(k, v)
-   end
-
-   return var
-end
-
-function need_string_array(varname, required)
-   return assert(pcall(need_array, varname, function(e) assert_type(e, 'string') end, required),
-		 "site.conf error: expected `" .. varname .. "' to be a string array")
-end

scripts/clean_output.lua

+local lib = dofile('scripts/target_lib.lua')
+local env = lib.env
+
+
+local subtarget = env.SUBTARGET
+if subtarget == '' then
+	subtarget = 'generic'
+end
+
+local bindir = env.BOARD .. '/' .. subtarget
+
+
+lib.exec({'rm', '-f', 'openwrt/bin/targets/'..bindir..'/\0'}, true, '2>/dev/null')
+
+-- Full builds will output the "packages" directory, so clean up first
+if (env.GLUON_DEVICES or '') == '' then
+	lib.exec {'rm', '-rf', 'openwrt/bin/targets/'..bindir..'/packages'}
+end

scripts/container.sh

+#!/usr/bin/env bash
+# shellcheck enable=check-unassigned-uppercase
+
+set -euo pipefail
+
+# move into base directory, in case this script is not executed via `make container`
+cd "$(dirname "$0")/.."
+
+# normalize branch name to reflect a valid image name
+BRANCH=$(git branch --show-current 2>/dev/null | sed 's/[^a-z0-9-]/_/ig')
+TAG="gluon:${BRANCH:-latest}"
+
+if [ "$(command -v podman)" ]
+then
+	podman build -t "${TAG}" contrib/docker
+	podman run -it --rm -u "$(id -u):$(id -g)" --userns=keep-id --volume="$(pwd):/gluon:z" "${TAG}"
+elif [ "$(command -v docker)" ]
+then
+	docker build -t "${TAG}" contrib/docker
+	docker run -it --rm -u "$(id -u):$(id -g)" --volume="$(pwd):/gluon" -e HOME=/gluon "${TAG}"
+else
+	echo "Please install either podman or docker. Exiting" >&2
+	exit 1
+fi

scripts/copy_output.lua

+local lib = dofile('scripts/target_lib.lua')
+local env = lib.env
+
+local target = env.GLUON_TARGET
+
+assert(target)
+assert(env.GLUON_IMAGEDIR)
+assert(env.GLUON_PACKAGEDIR)
+
+
+local openwrt_target
+local subtarget = env.SUBTARGET
+if subtarget ~= '' then
+	openwrt_target = env.BOARD .. '-' .. subtarget
+else
+	openwrt_target = env.BOARD
+	subtarget = 'generic'
+end
+
+local bindir = env.BOARD .. '/' .. subtarget
+
+
+local function mkdir(dir)
+	lib.exec {'mkdir', '-p', dir}
+end
+
+mkdir(env.GLUON_IMAGEDIR..'/factory')
+mkdir(env.GLUON_IMAGEDIR..'/sysupgrade')
+mkdir(env.GLUON_IMAGEDIR..'/other')
+mkdir(env.GLUON_DEBUGDIR)
+mkdir(env.GLUON_METADIR..'/openwrt-profiles')
+
+
+lib.include(target)
+
+
+local function image_source(image)
+	return string.format(
+		'openwrt/bin/targets/%s/openwrt-%s-%s%s%s',
+		bindir, openwrt_target, image.name, image.in_suffix, image.extension)
+end
+
+local function clean(image, name)
+	local dir, file = image:dest_name(name, '\0', '\0')
+	lib.exec {'rm', '-f', dir..'/'..file}
+end
+
+for _, images in pairs(lib.images) do
+	for _, image in ipairs(images) do
+		clean(image, image.image)
+
+		local destdir, destname = image:dest_name(image.image)
+		local source = image_source(image)
+
+		lib.exec {'cp', source, destdir..'/'..destname}
+
+		for _, alias in ipairs(image.aliases) do
+			clean(image, alias)
+
+			local _, aliasname = image:dest_name(alias)
+			lib.exec {'ln', '-s', destname, destdir..'/'..aliasname}
+		end
+	end
+
+	for _, image in ipairs(images) do
+		local source = image_source(image)
+		lib.exec {'rm', '-f', source}
+	end
+end
+
+-- copy kernel image with debug symbols
+local kernel_debug_glob = string.format('%s/gluon-\0-%s-kernel-debug.tar.zst',
+	env.GLUON_DEBUGDIR,
+	target)
+lib.exec {'rm', '-f', kernel_debug_glob}
+local kernel_debug_source = string.format('openwrt/bin/targets/%s/kernel-debug.tar.zst',
+	bindir)
+local kernel_debug_dest = string.format('%s/gluon-%s-%s-%s-kernel-debug.tar.zst',
+	env.GLUON_DEBUGDIR,
+	lib.site_code,
+	env.GLUON_RELEASE,
+	target)
+lib.exec {'cp', kernel_debug_source, kernel_debug_dest}
+
+-- copy OpenWrt profile JSON
+local profile_json_source = string.format('openwrt/bin/targets/%s/profiles.json',
+	bindir)
+local profile_json_dest = string.format('%s/openwrt-profiles/%s.json',
+	env.GLUON_METADIR,
+	target)
+lib.exec {'cp', profile_json_source, profile_json_dest}
+
+-- Copy opkg repo
+if (env.GLUON_DEVICES or '') == '' then
+	local package_prefix = string.format('gluon-%s-%s', lib.site_code, env.GLUON_RELEASE)
+	local function dest_dir(prefix)
+		return env.GLUON_PACKAGEDIR..'/'..prefix..'/'..bindir
+	end
+
+	lib.exec {'rm', '-f', dest_dir('\0')..'/\0'}
+	lib.exec({'rmdir', '-p', dest_dir('\0')}, true, '2>/dev/null')
+	mkdir(dest_dir(package_prefix))
+	lib.exec {'rm', '-rf', 'openwrt/bin/targets/'..bindir..'/packages/tmp'}
+	lib.exec {'cp', 'openwrt/bin/targets/'..bindir..'/packages/\0', dest_dir(package_prefix)}
+end

scripts/default_feeds.sh

+#!/bin/sh
+
+# list feeds which don't start with #
+DEFAULT_FEEDS="$(awk '!/^#/ {print $2}' openwrt/feeds.conf.default)"
+export DEFAULT_FEEDS

scripts/domain_aliases.lua

+local json = require 'jsonc'
+
+local domain = assert(json.load(arg[1]))
+for k, _ in pairs(domain.domain_names) do
+	print(k)
+end

scripts/feature_lib.lua

+local M = {}
+
+local function to_keys(t)
+	local ret = {}
+	for _, v in ipairs(t) do
+		ret[v] = true
+	end
+	return ret
+end
+
+local function collect_keys(t)
+	local ret = {}
+	for v in pairs(t) do
+		table.insert(ret, v)
+	end
+	return ret
+end
+
+function M.get_packages(files, features)
+	local enabled_features = to_keys(features)
+	local handled_features = {}
+	local packages = {}
+
+	local funcs = {}
+
+	local function add_pkgs(pkgs)
+		for _, pkg in ipairs(pkgs or {}) do
+			packages[pkg] = true
+		end
+	end
+
+	function funcs._(feature)
+		return enabled_features[feature] ~= nil
+	end
+
+	function funcs.feature(feature, pkgs)
+		assert(
+			type(feature) == 'string',
+			'Incorrect use of feature(): pass a feature name without _ as first argument')
+
+		if enabled_features[feature] then
+			handled_features[feature] = true
+			add_pkgs(pkgs)
+		end
+
+	end
+
+	function funcs.when(cond, pkgs)
+		assert(
+			type(cond) == 'boolean',
+			'Incorrect use of when(): pass a locical expression of _-prefixed strings as first argument')
+
+		if cond then
+			add_pkgs(pkgs)
+		end
+	end
+
+	-- Evaluate the feature definition files
+	for _, file in ipairs(files) do
+		local f, err = loadfile(file)
+		if not f then
+			error('Failed to parse feature definition: ' .. err)
+		end
+		setfenv(f, funcs)
+		f()
+	end
+
+	-- Handle default packages
+	for _, feature in ipairs(features) do
+		if not handled_features[feature] then
+			packages['gluon-' .. feature] = true
+		end
+	end
+
+	return collect_keys(packages)
+end
+
+return M

scripts/feeds.sh

+#!/usr/bin/env bash
+
+set -e
+
+. scripts/modules.sh
+. scripts/default_feeds.sh
+
+
+rm -rf openwrt/tmp
+rm -rf openwrt/feeds
+rm -rf openwrt/package/feeds
+
+(
+	echo "$GLUON_BASE_FEEDS"
+	for feed in $FEEDS; do
+		echo "src-link $feed ../../packages/$feed"
+	done
+	for feed in $(echo "$DEFAULT_FEEDS" | grep -vxF "$FEEDS"); do
+		echo "src-dummy $feed"
+	done
+) > openwrt/feeds.conf
+
+openwrt/scripts/feeds update -a
+openwrt/scripts/feeds install -a

scripts/filesize.sh

+#!/bin/sh
+
+check_command() {
+	command -v "$1" >/dev/null
+}
+
+if check_command gnustat; then
+	gnustat -c%s "$@"
+elif check_command gstat; then
+	gstat -c%s "$@"
+elif check_command stat; then
+	stat -c%s "$@"
+else
+	echo "$0: no suitable stat implementation was found" >&2
+	exit 1
+fi