#!/bin/sh

# Test ST routines
#
# $Id: tSTroutines,v 1.11 1996/07/16 libtsp-V2R7a $

PATH=${PATH}:bin
export PATH

echo ""
echo "========== tSTcatMax"
tSTcatMax 5 abc de
tSTcatMax 5 abc def			2>&1

echo ""
echo "========== tSTcopyMax"
tSTcopyMax 5 abcd
tSTcopyMax 5 abcde
tSTcopyMax 5 abcdef			2>&1

echo ""
echo "========== tSTcopyNMax"
tSTcopyNMax 3 5 ab
tSTcopyNMax 3 5 abc
tSTcopyNMax 3 5 abcd
tSTcopyNMax 5 3 abcd			2>&1

echo ""
echo "========== tSTdecNxxx"
tSTdecNxxx D 1 1 "23.1"
tSTdecNxxx F 1 1 "23.1"
tSTdecNxxx I 1 1 "23"
tSTdecNxxx I 1 1 "23.1"			2>&1
tSTdecNxxx L 1 1 "23"
tSTdecNxxx L 1 1 "23.1"			2>&1

tSTdecNxxx I 1 1 ""			2>&1
tSTdecNxxx I 1 1 " 23 aaa"		2>&1
tSTdecNxxx I 0 3 ""
tSTdecNxxx I 0 3 "11"
tSTdecNxxx I 0 3 "11,"			2>&1
tSTdecNxxx I 1 3 "11"
tSTdecNxxx I 1 3 "11 22"
tSTdecNxxx I 1 3 "11 22 33"
tSTdecNxxx I 1 3 "11 22 33 44"		2>&1
tSTdecNxxx I 1 3 "11 aa 33"		2>&1
tSTdecNxxx I 1 3 "11aa 22bb"		2>&1

echo ""
echo "========== tSTdecPair"
tSTdecPair Irange ""			2>&1
tSTdecPair Irange "11"
tSTdecPair Irange "11 : 22"
tSTdecPair Irange "11 : 22 : 33"	2>&1
tSTdecPair Irange "11:22 33"		2>&1
tSTdecPair Irange "aa : 22"		2>&1
tSTdecPair Irange "11aa : 22"		2>&1
tSTdecPair Irange "1.1"			2>&1
tSTdecPair Irange "1:2.2"		2>&1

tSTdecPair Lrange " 11 : 22 "

tSTdecPair Ifrac ""			2>&1
tSTdecPair Ifrac "11"
tSTdecPair Ifrac "44.1/8"		2>&1
tSTdecPair Ifrac "aa"			2>&1

tSTdecPair Dfrac ""			2>&1
tSTdecPair Dfrac "11"
tSTdecPair Dfrac "44.1/8"

echo ""
echo "========== tSTfindToken"
tSTfindToken '	' ',' '' 2
tSTfindToken '' ',' '' 0
tSTfindToken ' a = b c, d ' ',' '""()' 0
tSTfindToken ' a = b c, d ' ',' '""()' 1
tSTfindToken ' a = b c, d ' ',' '""()' 2
tSTfindToken ' a = "b (c, d)", (e,f) ' ',' '""()' 2

echo ""
echo "========== tSTkeyMatch"
tSTkeyMatch "abc"
tSTkeyMatch "abcd"
tSTkeyMatch "abcde"
tSTkeyMatch "abcdex"
tSTkeyMatch "ab"
tSTkeyMatch "abC"
tSTkeyMatch " abc"
tSTkeyMatch "abcx"
tSTkeyMatch "h"
tSTkeyMatch "ha"
tSTkeyMatch "dest"
tSTkeyMatch "destr"
tSTkeyMatch "destro"
tSTkeyMatch "destroy"
tSTkeyMatch "destroye"
tSTkeyMatch		# NULL string
tSTkeyMatch ""		# empty string

echo ""
echo "========== tSTkeyXpar"
tSTkeyXpar 'first = "abc"'
tSTkeyXpar 'fir="abc'

echo ""
echo "========== tSTunQuote"
tSTunQuote 'abc' ''
tSTunQuote '"abc"def"' '""'
tSTunQuote 'x(abd)x' '()xx'
tSTunQuote abcdef '""'

echo ""
echo "========== tSTstrstrNM"
tSTstrstrNM 5 3 abcdefghi cdexx
tSTstrstrNM 5 3 abcdefghi defxx
tSTstrstrNM 5 3 abcde bcd
tSTstrstrNM 5 3 abcd bcd
tSTstrstrNM 5 1 abcd c

echo ""
echo "========== tSTtrimNMax"
tSTtrimNMax 3 5 "   "
tSTtrimNMax 3 5 ab
tSTtrimNMax 3 5 "ab   "
tSTtrimNMax 3 5 abc
tSTtrimNMax 3 5 "abc  "
tSTtrimNMax 3 5 abcd
tSTtrimNMax 5 3 abcd			2>&1

echo ""
echo "========== tsscanf"
tsscanf
