diff options
Diffstat (limited to 'contrib/bc/tests/dc/scripts')
| -rw-r--r-- | contrib/bc/tests/dc/scripts/easter.dc | 49 | ||||
| -rwxr-xr-x | contrib/bc/tests/dc/scripts/easter.sh | 93 | ||||
| -rw-r--r-- | contrib/bc/tests/dc/scripts/easter.txt | 5 | ||||
| -rw-r--r-- | contrib/bc/tests/dc/scripts/prime.dc | 2 | 
4 files changed, 55 insertions, 94 deletions
| diff --git a/contrib/bc/tests/dc/scripts/easter.dc b/contrib/bc/tests/dc/scripts/easter.dc new file mode 100644 index 000000000000..e2c126ba1129 --- /dev/null +++ b/contrib/bc/tests/dc/scripts/easter.dc @@ -0,0 +1,49 @@ +#! /usr/bin/dc + +# This is the actual script. +[ +	ddsf +	[ +		lfp +		[too early +		]P +		q +	]s@ +	1583>@ +	ddd19%1+sg100/1+d3*4/12-sx8*5+25/5-sz5*4/lx-10-sdlg11*20+lz+lx-30% +	d +	[30+]s@ +	0>@d +	[ +		[1+]s@ +		lg11<@ +	]s@ +	25=@d +	[1+]s@ +	24=@se44le-d +	[30+]s@ +	21>@dld+7%-7+ +	[March ]sm +	d +	[ +		31- +		[April ]sm +	]s@ +	31<@dn32PsnlmPdnsn1z>p +	10P +]sp + +2021 +lpx + +2022 +lpx + +2023 +lpx + +2024 +lpx + +2025 +lpx diff --git a/contrib/bc/tests/dc/scripts/easter.sh b/contrib/bc/tests/dc/scripts/easter.sh deleted file mode 100755 index ee8fa1d94c81..000000000000 --- a/contrib/bc/tests/dc/scripts/easter.sh +++ /dev/null @@ -1,93 +0,0 @@ -#!/bin/sh -# -# SPDX-License-Identifier: BSD-2-Clause -# -# Copyright (c) 2018-2024 Gavin D. Howard and contributors. -# -# Redistribution and use in source and binary forms, with or without -# modification, are permitted provided that the following conditions are met: -# -# * Redistributions of source code must retain the above copyright notice, this -#   list of conditions and the following disclaimer. -# -# * Redistributions in binary form must reproduce the above copyright notice, -#   this list of conditions and the following disclaimer in the documentation -#   and/or other materials provided with the distribution. -# -# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE -# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -# POSSIBILITY OF SUCH DAMAGE. -# - -set -e - -script="$0" - -testdir=$(dirname "${script}") - -# Just print the usage and exit with an error. This can receive a message to -# print. -# @param 1  A message to print. -usage() { -	if [ $# -eq 1 ]; then -		printf '%s\n\n' "$1" -	fi -	printf 'usage: %s dc_exec year [options...]\n' "$script" -	exit 1 -} - -. "$testdir/../../../scripts/functions.sh" - -if test $# -lt 2 -then -	usage "Not enough arguments; need 2" -fi - -dc_exec="$1" -shift -check_exec_arg "$dc_exec" - -year="$1" -shift - -echo $year ' -[ -	ddsf -	[ -		lfp -		[too early -		]P -		q -	]s@ -	1583>@ -	ddd19%1+sg100/1+d3*4/12-sx8*5+25/5-sz5*4/lx-10-sdlg11*20+lz+lx-30% -	d -	[30+]s@ -	0>@d -	[ -		[1+]s@ -		lg11<@ -	]s@ -	25=@d -	[1+]s@ -	24=@se44le-d -	[30+]s@ -	21>@dld+7%-7+ -	[March ]sm -	d -	[ -		31- -		[April ]sm -	]s@ -	31<@psnlmPpsn1z>p -]sp -lpx' | "$dc_exec" "$@" | tr '\012' ' ' -echo '' diff --git a/contrib/bc/tests/dc/scripts/easter.txt b/contrib/bc/tests/dc/scripts/easter.txt new file mode 100644 index 000000000000..0aef9531346d --- /dev/null +++ b/contrib/bc/tests/dc/scripts/easter.txt @@ -0,0 +1,5 @@ +4 April 2021 +17 April 2022 +9 April 2023 +31 March 2024 +20 April 2025 diff --git a/contrib/bc/tests/dc/scripts/prime.dc b/contrib/bc/tests/dc/scripts/prime.dc index cc769d2bbee1..6902aaef8f0c 100644 --- a/contrib/bc/tests/dc/scripts/prime.dc +++ b/contrib/bc/tests/dc/scripts/prime.dc @@ -1 +1 @@ -0k2p3p[dl!d2+s!%0=@l!l^!<#]s#[s/0ds^]s@[p]s&[ddvs^3s!l# x0<&2+d100000>.]ds.x +0k2p3p[dl!d2+s!%0=@l!l^!<#]s#[s/0ds^]s@[p]s&[ddvs^3s!l# x0<&2+d10000>.]ds.x | 
