Artifact 86d7cb83aa1e080c63d54b2e7bba63366007fda749a1245936ac32d380d10e55:


@@ex @@main1
LINK:	Loading
[LNKXCT	MAIN1 execution]
Call on Init
AB
9
10
8
90
7
720
6
5040
5
30240
4
151200
3
604800
2
1814400
1
3628800
3628800

Ctime:    98662 ms,  98662 ms
 

Ctime:    99412 ms,  750 ms
 

Ctime:    99450 ms,  38 ms
 7

Ctime:    99913 ms,  463 ms
 
Quitting
@NEWPAGE()
@@ex @@main2
LINK:	Loading
[LNKXCT	MAIN2 execution]
Call on Init
StrInf
55688 55688
Strlen
51 51
Byte
0 65 A
1 97 a
2 66 B
3 98 b
4 67 C
5 99 c
6 68 D
7 100 d
8 69 E
9 101 e
10 70 F
String
AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUnVvWwXxYyZz
"----- Now input characters until #" 

11223344556677

aaaabbbbccddeeffgg

#"----- First Print Called" 
1
ANATOM 
(1 . 2) 
(AA  (B1  . B2 )  . B3 ) 
(AA  (B1 ) ) 

Quitting
@NEWPAGE()
@@ex @@main3
LINK:	Loading
[LNKXCT	MAIN3 execution]
Call on Init
"MAIN3: Casetest" 
Test case from -1 to 11
Will classify argument
Show for N=-1, expect default case
Show for N=0, expect 0 case
Show for N=1, expect 1,2,3 case
Show for N=2, expect 1,2,3 case
Show for N=3, expect 1,2,3 case
Show for N=4, expect default case
Show for N=5, expect default case
Show for N=6, expect 6 ... 10 case
Show for N=7, expect 6 ... 10 case
Show for N=8, expect 6 ... 10 case
Show for N=9, expect 6 ... 10 case
Show for N=10, expect 6 ... 10 case
Show for N=11, expect default case
Show for N=12, expect default case
"MAIN3: test CONS" 
(2 . 1) 
(3 2 . 1) 
(4 3 2 . 1) 
(5 4 3 2 . 1) 
(6 5 4 3 2 . 1) 
(7 6 5 4 3 2 . 1) 
(8 7 6 5 4 3 2 . 1) 
(9 8 7 6 5 4 3 2 . 1) 

Quitting
@NEWPAGE()
@@ex @@main4
LINK:	Loading
[LNKXCT	MAIN4 execution]
1. --- Test EQSTR
----- For EqStr(AB,AB) T  should be T   OK ------
----- For EqStr(AB,AB) T  should be T   OK ------
----- For EqStr(AB,Ab) NIL  should be NIL   OK ------
----- For EqStr(AB,ABC) NIL  should be NIL   OK ------
2. --- Test FindId on existing ID's
Lookup string="A" 
Found In LookUpId=65
----- For FindId(A) A  should be A   OK ------
Lookup string="AB" 
Found In LookUpId=190
----- For FindId(AB) AB  should be AB   OK ------
3. --- Test FindId on new ID, make sure same place
Lookup string="ABC" 
Not Found in LookupId
New ID# 192
Lookup string="ABC" 
Found In LookUpId=192
----- For FindId(ABC) ABC  should be ABC   OK ------
Lookup string="FOO" 
Not Found in LookupId
New ID# 193
Lookup string="ABC" 
Found In LookUpId=192
----- For FindId(ABC) again ABC  should be ABC   OK ------
4. --- Test RATOM loop. Type various ID's, STRING's and INTEGER's
   Move to next part of test by typing the id Q
   Inspect printout carefully
NextSymbol =194
1
Item read= <0:1> 1
"123"Item read= <4:5890> "123" 
A
Lookup string="A" 
Found In LookUpId=65
Item read= <30:65> A 
a
Lookup string="a" 
Found In LookUpId=97
Item read= <30:97> a 
AA
Lookup string="AA" 
Not Found in LookupId
New ID# 194
Item read= <30:194> AA 
aa
Lookup string="aa" 
Not Found in LookupId
New ID# 195
Item read= <30:195> aa 
abc
Lookup string="abc" 
Not Found in LookupId
New ID# 196
Item read= <30:196> abc 
ABC
Lookup string="ABC" 
Found In LookUpId=192
Item read= <30:192> ABC 
abc
Lookup string="abc" 
Found In LookUpId=196
Item read= <30:196> abc 
Q
Lookup string="Q" 
Found In LookUpId=81
Item read= <30:81> Q 
5. --- Test READ loop. Type various S-expressions
   Move to next part of test by typing the id Q
   Inspect printout carefully
'A
  Item read= <9:5912> (QUOTE  A ) 
(12 '(34) (5 (6)))  Item read= <9:5930> (12 (QUOTE  (34) )  (5 (6) ) ) 

Q
  Item read= <30:81> Q 

Quitting
@NEWPAGE()
@@ex @@main5
LINK:	Loading
[LNKXCT	MAIN5 execution]
(very) MINI-PSL: A Read-Eval-Print Loop, terminate with Q
1 lisp> 1

1
2 lisp> 'A

A 
3 lisp> (SETQ A 3)
3
4 lisp> A

3
5 lisp> (PRINT (CONS A A))
(3 . 3) 
(3 . 3) 
6 lisp> (QUIT)

Quitting
@NEWPAGE()
@@ex @@main6
LINK:	Loading
%LNKFTH	Fullword value RESET being truncated to halfword
%LNKMDS	Multiply-defined global symbol RESET
	Detected in module .MAIN from file DSK:SUB6.REL
	Defined value = 104000000147, this value = 163306
[LNKXCT	MAIN6 execution]
Test BINDING Primitives
----- For 3rd bound AA 3 should be 3  OK ------
----- For 2rd bound AA NIL  should be NIL   OK ------
----- For Original AA 1 should be 1  OK ------
MINI-PSL: A Read-Eval-Print Loop, terminate with Q
1 lisp> (DE FOO (X) (COND ((NULL X) 2) (T 3)))
FOO 
2 lisp> (FOO NIL)
2
3 lisp> (FOO 2)
3
4 lisp> (DF E (TIM) (TIMEEVAL TIM))
E 
5 lisp> (TESTSETUP)
(SETQ  FOO  (CADR  (QUOTE  (1 2 3) ) ) ) 
6 lisp> (E EMPTYTEST 10000)

Ctime:    118090 ms,  118090 ms
 
Ctime:    118127 ms,  37 ms
 37
7 lisp> (E SLOWEMPTYTEST 10000)

Ctime:    118259 ms,  132 ms
 
Ctime:    118413 ms,  154 ms
 154
8 lisp> (E LISTONLYCDRTEST1)

Ctime:    118534 ms,  121 ms
 
Ctime:    120275 ms,  1741 ms
 1741
9 lisp> (FUM)
 **** Uncompiled function in APPLY: FUM  NIL 
NIL 
10 lisp> (QUIT)

Quitting



REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]