1 - Forth Interest Group

More documents

Recommendations

Info

1 ARRAY.FTH - basic array classes \ Classes for indexed objects Version 1.0, 4 Feb 1997 \ Andrew McKewan rnckewan@austin.finnigan.com \ .................................................................. \ This is the base class for all indexed objects. It provides the \ primitives that are common to all indexed objects. :Class IndexedObj
TESTER.FTH - Hayes' automated testing program \ From: John Hayes S1I \ Subject: tester.fr \ Date: Mon, 27 Nov 95 13:10:09 PST \ (C) 1995 JOHNS HOPKINS UNIVERSITY / APPLIL3 HYSICS LABORATORY \ MAY BE DISTRIBUTED FREELY AS LONG AS THIS COPYRIGHT NOTICE REMAINS. \ VERSION 1.1 HEX \ SET THE FOLLOWING FLAG TO TRUE FOR MORE VERBOSE OUTPUT; THIS MAY \ ALLOW YOU TO TELL WHICH TEST CAUSED YOUR SYSTEM TO HANG. VARIABLE VERBOSE FALSE VERBOSE ! : EMPTY-STACK \ ( . . . -- ) EMPTY STACK: HANDLES UNDERFLOWED STACK TOO. DEPTH DUP IF DUP O< IF NEGATE 0 DO 0 LOOP ELSE 0 DO DROP LOOP THEN THEN ; : ERROR \ ( C-ADDR U -- ) DISPLAY AN ERROR MESSAGE FOLLOWED BY \ THE LINE THAT HAD THE ERROR. TYPE SOURCE TYPE CR \ DISPLAY LINE CORRESPONDING TO ERROR EMPTY-STACK \ THROW AWAY EVERY THING ELSE VARIABLE ACTUAL-DEPTH CREATE ACTUAL-RESULTS 20 CELLS ALLOT \ STACK RECORD \ ( -- ) SYNTACTIC SUGAR. : -> \ ( ... -- ) RECORD DEPTH AND CONTENT OF STACK. DEPTH DUP ACTUAL-DEPTH ! \ RECORD DEPTH DUP IF \ IF THERE IS SOMETHING ON STACK 0 DO ACTUAL-RESULTS I CELLS + ! LOOP \ SAVE THEM THEN ; : 1 \ ( ... -- ) COMPARE STACK (EXPECTED) CONTENTS WITH SAVED \ (ACTUAL) CONTENTS. DEPTH ACTUAL-DEPTH @ = IF \ IF DEPTHS MATCH DEPTH DUP IF \ IF THERE IS SOMETHING ON THE STACK 0 DO \ FOR EACH STACK ITEM ACTUAL-RESULTS I CELLS + D \ COMPARE ACTUAL WITH EXPECTED IF S" INCORRECT RESULT: " ERROR LEAVE THEN LOOP THEN ELSE S" WRONG NUMBER OF RESULTS: " ERROR THEN ; : TESTING \ ( -- ) TALKING COMMENT. .. SOURCE VERBOSE @ IF DUP >R TYPE CR R> >IN ! ELSE 21N ! DROP THEN ; \ DEPTH MISMATCH <strong>Forth</strong> Dimensions XlWl 31
Page 2 and 3: SILICON COMPOSERS INC FAST Forth Na
Page 4 and 5: Forth Dimensions Volume XIX, Number
Page 6 and 7: i j As usual, a lot is happening he
Page 8 and 9: orth I had been coding assembler, i
Page 10 and 11: ermit is not only the name of Henso
Page 12 and 13: - - - - - I Control Structure Salad
Page 14 and 15: ecomes as shown in Figure Six. Note
Page 16 and 17: o you have some spare time on your
Page 18 and 19: tries a number of tacks in an effor
Page 20 and 21: Abstract-This note describes the ge
Page 22 and 23: ALL ABOUT FORTH, 3rd ed., June 1990
Page 24 and 25: Volume 10 (January 1989) 810-$15 RT
Page 26 and 27: ANS-compatible stack-picture tool \
Page 28 and 29: Standardizing OOF Extensions Standa
Page 30 and 31: Get It Up I ( Six One-Liners ) ( Al
Page 32 and 33: improving String Processing Speed B
Page 36 and 37: TEST.FTH - class test suite \ test.
Page 38 and 39: 0 VALUE POBJ I ( Heap> Point TO POB
Page 40 and 41: The contents need to be agreed and
Page 42: New FORML dates ... ... the week be

1 - Forth Interest Group

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?