/* SAtester.rexx to test the S/A functions */

/*
** Tester for the REXX Rainbow Library Series
** Stem/Array Function Library by Dineen Edwards Group
** YOU MUST HAVE THE rexxarray.library from DEG
** before this pgm will work. DEG (313) 352-4288
** A Library of Array Functions for ARexx.
*/

SIGNAL ON BREAK_C
START:
SAY 'CTRL-C to quit.'
SAY 'Enter a line of separate numbers as Array A'
SAY '[Rtn] for a default Array A.'
PULL lineA

IF lineA = '' THEN lineA='2 5 8 10 0.5'
SAY 'Array A is'
SAY lineA

SAY 'Enter a line of separate numbers as Array B'
SAY '[Rtn] for a default Array B.'
PULL lineB

IF lineB = '' THEN lineB='1 5 4 5 0.1'
SAY 'Array B is'
SAY lineB


i=0
DO WHILE lineA ~= ''
   PARSE VAR lineA numA.i lineA
   i=i+1
   END

j=0
DO WHILE lineB ~= ''
   PARSE VAR lineB numB.j lineB
   j=j+1
   END

w=MAX(i-1,j-1)


SAY 'Enter Stem/Array function name you wish to test. NO ().'
PULL saf
funname=saf
saf=saf'('
SAY 'Enter number of arguments.'
PULL numarg

SAY 'Use numA & numB as INPUT array names.'
SAY
DO a=1 TO numarg
   ending=''
   rtn='[Rtn]='
   SELECT
     WHEN a=1 THEN ending='ANS'
     WHEN a=2 THEN ending='numA'
     WHEN a=3 THEN ending='numB'
     OTHERWISE rtn=''
     END

   SAY 'Enter argument No.'a rtn||ending
   PARSE UPPER PULL argument.a '.'
   IF argument.a='' THEN argument.a=ending
   IF a<numarg THEN saf=saf||argument.a','
      ELSE saf=saf||argument.a')'
   SAY saf
   END

SAY
SAY 'OK to interpret? N=exit.'
PULL ok

IF ok='N' THEN EXIT 5
saf='m='saf


INTERPRET saf

SAY m' array elements processed.'

nxtl=numarg-1
strt=argument.numarg
count=argument.nxtl
IF ~DATATYPE(count,'W') THEN count=MAX(numA.0,numB.0)
IF ~DATATYPE(strt,'W') THEN strt=1



SAY 'Count='count
SAY 'Start='strt

IF funname~='ASSIGNARRAY' THEN DO
   ans=argument.1||'.'
   SAY 'Answer_Stem. is 'argument.1
   END
   ELSE DO
      ans=argument.2||'.'
      SAY 'Assign_Stem. is 'argument.2
      END

SAY saf
SAY funname 'answer table for' ans
DO k=0 TO w
   SAY ans||k'='VALUE(ans||k) 'numA.'k'='numA.k 'numB.'k'='numb.k
   END

DROP NUMA.
DROP NUMB.
DROP ans



SIGNAL START

BREAK_C:
EXIT 0