diff --git a/internal/test/Library/MatMult/Auto/AR8230.TEST b/internal/test/Library/MATMULT/Auto/AR8230.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/AR8230.TEST rename to internal/test/Library/MATMULT/Auto/AR8230.TEST diff --git a/internal/test/Library/MatMult/Auto/DEGREES-TO-RADIANS.TEST b/internal/test/Library/MATMULT/Auto/DEGREES-TO-RADIANS.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/DEGREES-TO-RADIANS.TEST rename to internal/test/Library/MATMULT/Auto/DEGREES-TO-RADIANS.TEST diff --git a/internal/test/Library/MatMult/Auto/IDENTITY-3-BY-3.TEST b/internal/test/Library/MATMULT/Auto/IDENTITY-3-BY-3.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/IDENTITY-3-BY-3.TEST rename to internal/test/Library/MATMULT/Auto/IDENTITY-3-BY-3.TEST diff --git a/internal/test/Library/MatMult/Auto/IDENTITY-4-BY-4.TEST b/internal/test/Library/MATMULT/Auto/IDENTITY-4-BY-4.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/IDENTITY-4-BY-4.TEST rename to internal/test/Library/MATMULT/Auto/IDENTITY-4-BY-4.TEST diff --git a/internal/test/Library/MatMult/Auto/MAKE-HOMOGENEOUS-3-BY-3.TEST b/internal/test/Library/MATMULT/Auto/MAKE-HOMOGENEOUS-3-BY-3.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/MAKE-HOMOGENEOUS-3-BY-3.TEST rename to internal/test/Library/MATMULT/Auto/MAKE-HOMOGENEOUS-3-BY-3.TEST diff --git a/internal/test/Library/MatMult/Auto/MAKE-HOMOGENEOUS-3-VECTOR.TEST b/internal/test/Library/MATMULT/Auto/MAKE-HOMOGENEOUS-3-VECTOR.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/MAKE-HOMOGENEOUS-3-VECTOR.TEST rename to internal/test/Library/MATMULT/Auto/MAKE-HOMOGENEOUS-3-VECTOR.TEST diff --git a/internal/test/Library/MatMult/Auto/MAKE-HOMOGENEOUS-4-BY-4.TEST b/internal/test/Library/MATMULT/Auto/MAKE-HOMOGENEOUS-4-BY-4.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/MAKE-HOMOGENEOUS-4-BY-4.TEST rename to internal/test/Library/MATMULT/Auto/MAKE-HOMOGENEOUS-4-BY-4.TEST diff --git a/internal/test/Library/MatMult/Auto/MAKE-HOMOGENEOUS-4-VECTOR.TEST b/internal/test/Library/MATMULT/Auto/MAKE-HOMOGENEOUS-4-VECTOR.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/MAKE-HOMOGENEOUS-4-VECTOR.TEST rename to internal/test/Library/MATMULT/Auto/MAKE-HOMOGENEOUS-4-VECTOR.TEST diff --git a/internal/test/Library/MatMult/Auto/MAKE-HOMOGENEOUS-N-BY-3.TEST b/internal/test/Library/MATMULT/Auto/MAKE-HOMOGENEOUS-N-BY-3.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/MAKE-HOMOGENEOUS-N-BY-3.TEST rename to internal/test/Library/MATMULT/Auto/MAKE-HOMOGENEOUS-N-BY-3.TEST diff --git a/internal/test/Library/MatMult/Auto/MAKE-HOMOGENEOUS-N-BY-4.TEST b/internal/test/Library/MATMULT/Auto/MAKE-HOMOGENEOUS-N-BY-4.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/MAKE-HOMOGENEOUS-N-BY-4.TEST rename to internal/test/Library/MATMULT/Auto/MAKE-HOMOGENEOUS-N-BY-4.TEST diff --git a/internal/test/Library/MatMult/Auto/PERSPECTIVE-4-BY-4.TEST b/internal/test/Library/MATMULT/Auto/PERSPECTIVE-4-BY-4.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/PERSPECTIVE-4-BY-4.TEST rename to internal/test/Library/MATMULT/Auto/PERSPECTIVE-4-BY-4.TEST diff --git a/internal/test/Library/MatMult/Auto/ROTATE-3-BY-3.TEST b/internal/test/Library/MATMULT/Auto/ROTATE-3-BY-3.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/ROTATE-3-BY-3.TEST rename to internal/test/Library/MATMULT/Auto/ROTATE-3-BY-3.TEST diff --git a/internal/test/Library/MatMult/Auto/ROTATE-4-BY-4-ABOUT-X.TEST b/internal/test/Library/MATMULT/Auto/ROTATE-4-BY-4-ABOUT-X.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/ROTATE-4-BY-4-ABOUT-X.TEST rename to internal/test/Library/MATMULT/Auto/ROTATE-4-BY-4-ABOUT-X.TEST diff --git a/internal/test/Library/MatMult/Auto/ROTATE-4-BY-4-ABOUT-Y.TEST b/internal/test/Library/MATMULT/Auto/ROTATE-4-BY-4-ABOUT-Y.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/ROTATE-4-BY-4-ABOUT-Y.TEST rename to internal/test/Library/MATMULT/Auto/ROTATE-4-BY-4-ABOUT-Y.TEST diff --git a/internal/test/Library/MatMult/Auto/ROTATE-4-BY-4-ABOUT-Z.TEST b/internal/test/Library/MATMULT/Auto/ROTATE-4-BY-4-ABOUT-Z.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/ROTATE-4-BY-4-ABOUT-Z.TEST rename to internal/test/Library/MATMULT/Auto/ROTATE-4-BY-4-ABOUT-Z.TEST diff --git a/internal/test/Library/MatMult/Auto/SCALE-3-BY-3.TEST b/internal/test/Library/MATMULT/Auto/SCALE-3-BY-3.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/SCALE-3-BY-3.TEST rename to internal/test/Library/MATMULT/Auto/SCALE-3-BY-3.TEST diff --git a/internal/test/Library/MatMult/Auto/SCALE-4-BY-4.TEST b/internal/test/Library/MATMULT/Auto/SCALE-4-BY-4.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/SCALE-4-BY-4.TEST rename to internal/test/Library/MATMULT/Auto/SCALE-4-BY-4.TEST diff --git a/internal/test/Library/MatMult/Auto/TRANSLATE-3-BY-3.TEST b/internal/test/Library/MATMULT/Auto/TRANSLATE-3-BY-3.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/TRANSLATE-3-BY-3.TEST rename to internal/test/Library/MATMULT/Auto/TRANSLATE-3-BY-3.TEST diff --git a/internal/test/Library/MatMult/Auto/TRANSLATE-4-BY-4.TEST b/internal/test/Library/MATMULT/Auto/TRANSLATE-4-BY-4.TEST similarity index 100% rename from internal/test/Library/MatMult/Auto/TRANSLATE-4-BY-4.TEST rename to internal/test/Library/MATMULT/Auto/TRANSLATE-4-BY-4.TEST diff --git a/internal/test/Library/TEdit/Hand-Aux/.read-me-first b/internal/test/Library/TEDIT/hand-aux/.read-me-first similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/.read-me-first rename to internal/test/Library/TEDIT/hand-aux/.read-me-first diff --git a/internal/test/Library/TEdit/Hand-Aux/.read-me-first.~1~ b/internal/test/Library/TEDIT/hand-aux/.read-me-first.~1~ similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/.read-me-first.~1~ rename to internal/test/Library/TEDIT/hand-aux/.read-me-first.~1~ diff --git a/internal/test/Library/TEdit/Hand-Aux/.read-me-first.~2~ b/internal/test/Library/TEDIT/hand-aux/.read-me-first.~2~ similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/.read-me-first.~2~ rename to internal/test/Library/TEDIT/hand-aux/.read-me-first.~2~ diff --git a/internal/test/Library/TEdit/Hand-Aux/.read-me-first.~3~ b/internal/test/Library/TEDIT/hand-aux/.read-me-first.~3~ similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/.read-me-first.~3~ rename to internal/test/Library/TEDIT/hand-aux/.read-me-first.~3~ diff --git a/internal/test/Library/TEdit/Hand-Aux/AR10063.TEdit b/internal/test/Library/TEDIT/hand-aux/AR10063.TEdit similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/AR10063.TEdit rename to internal/test/Library/TEDIT/hand-aux/AR10063.TEdit diff --git a/internal/test/Library/TEdit/Hand-Aux/AR8400-TEST-SAMPLE.TEDIT b/internal/test/Library/TEDIT/hand-aux/AR8400-TEST-SAMPLE.TEDIT similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/AR8400-TEST-SAMPLE.TEDIT rename to internal/test/Library/TEDIT/hand-aux/AR8400-TEST-SAMPLE.TEDIT diff --git a/internal/test/Library/TEdit/Hand-Aux/BIG-FOOTNOTE.TEDIT b/internal/test/Library/TEDIT/hand-aux/BIG-FOOTNOTE.TEDIT similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/BIG-FOOTNOTE.TEDIT rename to internal/test/Library/TEDIT/hand-aux/BIG-FOOTNOTE.TEDIT diff --git a/internal/test/Library/TEdit/Hand-Aux/DANCER10-C0.DISPLAYFONT b/internal/test/Library/TEDIT/hand-aux/DANCER10-C0.DISPLAYFONT similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/DANCER10-C0.DISPLAYFONT rename to internal/test/Library/TEDIT/hand-aux/DANCER10-C0.DISPLAYFONT diff --git a/internal/test/Library/TEdit/Hand-Aux/DANCEROBJ.LCOM b/internal/test/Library/TEDIT/hand-aux/DANCEROBJ.LCOM similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/DANCEROBJ.LCOM rename to internal/test/Library/TEDIT/hand-aux/DANCEROBJ.LCOM diff --git a/internal/test/Library/TEdit/Hand-Aux/Dancer12-C0.DisplayFont b/internal/test/Library/TEDIT/hand-aux/Dancer12-C0.DisplayFont similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/Dancer12-C0.DisplayFont rename to internal/test/Library/TEDIT/hand-aux/Dancer12-C0.DisplayFont diff --git a/internal/test/Library/TEdit/Hand-Aux/HEADING-KEEP-EXTRA-LINE-GRAB.TEDIT b/internal/test/Library/TEDIT/hand-aux/HEADING-KEEP-EXTRA-LINE-GRAB.TEDIT similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/HEADING-KEEP-EXTRA-LINE-GRAB.TEDIT rename to internal/test/Library/TEDIT/hand-aux/HEADING-KEEP-EXTRA-LINE-GRAB.TEDIT diff --git a/internal/test/Library/TEdit/Hand-Aux/KANJI-DEBUG.MAIL b/internal/test/Library/TEDIT/hand-aux/KANJI-DEBUG.MAIL similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/KANJI-DEBUG.MAIL rename to internal/test/Library/TEDIT/hand-aux/KANJI-DEBUG.MAIL diff --git a/internal/test/Library/TEdit/Hand-Aux/KANJI-DEBUG.MAIL-LAFITE-TOC b/internal/test/Library/TEDIT/hand-aux/KANJI-DEBUG.MAIL-LAFITE-TOC similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/KANJI-DEBUG.MAIL-LAFITE-TOC rename to internal/test/Library/TEDIT/hand-aux/KANJI-DEBUG.MAIL-LAFITE-TOC diff --git a/internal/test/Library/TEdit/Hand-Aux/KANJI-DEBUG2.MAIL b/internal/test/Library/TEDIT/hand-aux/KANJI-DEBUG2.MAIL similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/KANJI-DEBUG2.MAIL rename to internal/test/Library/TEDIT/hand-aux/KANJI-DEBUG2.MAIL diff --git a/internal/test/Library/TEdit/Hand-Aux/MASINTER-CAROL-NEWSLETTER b/internal/test/Library/TEDIT/hand-aux/MASINTER-CAROL-NEWSLETTER similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/MASINTER-CAROL-NEWSLETTER rename to internal/test/Library/TEDIT/hand-aux/MASINTER-CAROL-NEWSLETTER diff --git a/internal/test/Library/TEdit/Hand-Aux/UNDERLINE-TEST.TEDIT b/internal/test/Library/TEDIT/hand-aux/UNDERLINE-TEST.TEDIT similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/UNDERLINE-TEST.TEDIT rename to internal/test/Library/TEDIT/hand-aux/UNDERLINE-TEST.TEDIT diff --git a/internal/test/Library/TEdit/Hand-Aux/abbrev-sample.tedit b/internal/test/Library/TEDIT/hand-aux/abbrev-sample.tedit similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/abbrev-sample.tedit rename to internal/test/Library/TEDIT/hand-aux/abbrev-sample.tedit diff --git a/internal/test/Library/TEdit/Hand-Aux/dancer10-C0.WD b/internal/test/Library/TEDIT/hand-aux/dancer10-C0.WD similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/dancer10-C0.WD rename to internal/test/Library/TEDIT/hand-aux/dancer10-C0.WD diff --git a/internal/test/Library/TEdit/Hand-Aux/dancer12-c0.wd b/internal/test/Library/TEDIT/hand-aux/dancer12-c0.wd similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/dancer12-c0.wd rename to internal/test/Library/TEDIT/hand-aux/dancer12-c0.wd diff --git a/internal/test/Library/TEdit/Hand-Aux/new-page-after.tedit b/internal/test/Library/TEDIT/hand-aux/new-page-after.tedit similarity index 100% rename from internal/test/Library/TEdit/Hand-Aux/new-page-after.tedit rename to internal/test/Library/TEDIT/hand-aux/new-page-after.tedit diff --git a/internal/test/Library/rs232/hand/TESTRECEIVE b/internal/test/Library/rs232/hand/TESTRECEIVE deleted file mode 100644 index d46693a6..00000000 --- a/internal/test/Library/rs232/hand/TESTRECEIVE +++ /dev/null @@ -1,58 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "XCL-USER") -(il:filecreated "27-Feb-88 13:23:39" il:{eris}library>rs232>hand>testreceive.\;2 2635 - - il:|previous| il:|date:| "16-Nov-87 18:09:08" il:{eris}library>rs232>hand>testreceive.\;1 -) - - -; Copyright (c) 1987, 1988 by Xerox Corporation. All rights reserved. - -(il:prettycomprint il:testreceivecoms) - -(il:rpaqq il:testreceivecoms ((file-environments "TESTRECEIVE") - (il:functions get-data receive-data))) - -(define-file-environment "TESTRECEIVE" :package "XCL-USER" :readtable "XCL" :compiler - :compile-file) - - -(defun get-data (strm) - - (il:* il:|;;| "get the data and return the number of characters picked up.") - - (let ((chars-received 0)) - (loop - - (il:* il:|;;| - "now we start getting data. Just count the number of chars picked up and time how long it takes.") - - (cond - ((il:readp strm) - (il:bin strm) - (incf chars-received)) - (t (return chars-received)))))) - - -(defun receive-data nil - - (il:* il:|;;| "hang around until readp goes high (they are sending the data) and then count the number of chars until the data stops. Print out this number of characters and a TIME of the input to standard-output.") - - (let (chars-received) - (with-open-stream (input-stream (il:openstream "{RS232}" - 'il:input)) - (loop (loop - - (il:* il:|;;| "wait till readp goes high.") - - (when (il:readp input-stream) - (return)) - (il:block 100)) - (time (setq chars-received (get-data input-stream)) - :output *standard-output*) - (format *standard-output* "~%~s characters received.~%" - chars-received))))) - -(il:putprops il:testreceive il:copyright ("Xerox Corporation" 1987 1988)) -(il:declare\: il:dontcopy - (il:filemap (nil))) -il:stop diff --git a/internal/test/Library/rs232/hand/TESTRECEIVE.dfasl b/internal/test/Library/rs232/hand/TESTRECEIVE.dfasl deleted file mode 100644 index 69629a61..00000000 Binary files a/internal/test/Library/rs232/hand/TESTRECEIVE.dfasl and /dev/null differ diff --git a/internal/test/Library/rs232/hand/TESTSEND b/internal/test/Library/rs232/hand/TESTSEND deleted file mode 100644 index f9df27d0..00000000 --- a/internal/test/Library/rs232/hand/TESTSEND +++ /dev/null @@ -1,29 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "XCL-USER") -(il:filecreated "27-Feb-88 13:34:15" il:{eris}library>rs232>hand>testsend.\;2 1072 - - il:|previous| il:|date:| "16-Nov-87 16:20:15" il:{eris}library>rs232>hand>testsend.\;1) - - -; Copyright (c) 1987, 1988 by Xerox Corporation. All rights reserved. - -(il:prettycomprint il:testsendcoms) - -(il:rpaqq il:testsendcoms ((file-environments "TESTSEND") - (il:functions send-data))) - -(define-file-environment "TESTSEND" :package "XCL-USER" :readtable "XCL" :compiler :compile-file) - - -(defun send-data (n) - -(il:* il:|;;;| "send n characters across an RS232 stream.") - - (with-open-stream (output-stream (il:openstream "{rs232}" 'il:output)) - (time (dotimes (i n) - (il:bout output-stream 99)) - :output *standard-output*))) - -(il:putprops il:testsend il:copyright ("Xerox Corporation" 1987 1988)) -(il:declare\: il:dontcopy - (il:filemap (nil))) -il:stop diff --git a/internal/test/Library/rs232/hand/TESTSEND.dfasl b/internal/test/Library/rs232/hand/TESTSEND.dfasl deleted file mode 100644 index 27be9e2e..00000000 Binary files a/internal/test/Library/rs232/hand/TESTSEND.dfasl and /dev/null differ diff --git a/internal/test/README.TEDIT b/internal/test/README.TEDIT index 64bf72ec..95d09893 100644 Binary files a/internal/test/README.TEDIT and b/internal/test/README.TEDIT differ diff --git a/internal/test/README.ps b/internal/test/README.ps deleted file mode 100644 index 3cd6bff4..00000000 --- a/internal/test/README.ps +++ /dev/null @@ -1,497 +0,0 @@ -%!PS-Adobe-2.0 -%%Title: {DSK}larry>ilisp>medley>internal>test>README.ps;1 -%%Creator: PostScript Driver Copyright (C) 1988-1992 Venue and others -%%CreationDate: 19-Dec-2020 18:53:07 -%%EndComments -/bdef {bind def} bind def -/ldef {load def} bdef -/S /show ldef -/M /moveto ldef -/DR {transform round exch round exch itransform} bdef -/L {gsave newpath setlinewidth 0 setlinecap - M lineto currentpoint stroke grestore M} bdef -/L1 {gsave newpath 0 setdash setgray setlinewidth 0 setlinecap - M lineto currentpoint stroke grestore M} bdef -/F {findfont exch scalefont setfont} bdef -/CLP {newpath M dup 0 rlineto exch 0 exch rlineto - neg 0 rlineto closepath clip newpath} bdef -/R {gsave setgray newpath M dup 0 rlineto exch 0 exch - rlineto neg 0 rlineto closepath eofill grestore} bdef -/ellipsedict 9 dict def -ellipsedict /mtrx matrix put -/ellipse - { ellipsedict begin - /endangle exch def - /startangle exch def - /orientation exch def - /minorrad exch def - /majorrad exch def - /y exch def - /x exch def - /savematrix mtrx currentmatrix def - x y translate - orientation rotate - majorrad minorrad scale - 0 0 1 startangle endangle arc - savematrix setmatrix - end } bdef -/concatprocs - {/proc2 exch cvlit def - /proc1 exch cvlit def - /newproc proc1 length proc2 length add array def - newproc 0 proc1 putinterval - newproc proc1 length proc2 putinterval - newproc cvx - } bdef -/resmatrix matrix def -/findresolution - {72 0 resmatrix defaultmatrix dtransform - /yres exch def /xres exch def - xres dup mul yres dup mul add sqrt - } bdef -/thebitimage - {/maskp exch def - /bihgt exch def - /biwid exch def - /byte 1 string def - /strbufl biwid 8 div ceiling cvi def - /strbuf strbufl string def - maskp not{{1 exch sub} currenttransfer concatprocs settransfer} if - biwid bihgt - maskp { true } { 1 } ifelse - [biwid 0 0 bihgt 0 0] - {/col 0 def - {currentfile byte readhexstring pop 0 get - dup 16#B2 eq {pop - currentfile byte readhexstring pop 0 get 1 add - currentfile byte readhexstring pop pop /nbyte byte 0 get def - { strbuf col nbyte put /col col 1 add def} repeat} - {dup 16#B3 eq {pop /col col - currentfile byte readhexstring pop - 0 get add 1 add def} - {16#B4 eq {currentfile byte readhexstring pop pop} if - strbuf col byte 0 get put /col col 1 add def} ifelse - } ifelse - col strbufl ge { exit } if } loop - strbuf } - maskp { imagemask } { image } ifelse - } bdef -/setuserscreendict 22 dict def -setuserscreendict begin - /tempctm matrix def - /temprot matrix def - /tempscale matrix def -end -/setuserscreen - {setuserscreendict begin - /spotfunction exch def - /screenangle exch def - /cellsize exch def - /m tempctm currentmatrix def - /rm screenangle temprot rotate def - /sm cellsize dup tempscale scale def - sm rm m m concatmatrix m concatmatrix pop - 1 0 m dtransform /y1 exch def /x1 exch def - /veclength x1 dup mul y1 dup mul add sqrt def - /frequency findresolution veclength div def - /newscreenangle y1 x1 atan def - m 2 get m 1 get mul m 0 get m 3 get mul sub - 0 gt { { neg } /spotfunction load concatprocs - /spotfunction exch def } if - frequency newscreenangle /spotfunction load setscreen - end - } bdef -/setpatterndict 18 dict def -setpatterndict begin - /bitison - {/ybit exch def /xbit exch def - /bytevalue bstring ybit bwidth mul xbit 8 idiv add get def - /mask 1 7 xbit 8 mod sub bitshift def - bytevalue mask and 0 ne - } bdef -end -/bitpatternspotfunction - {setpatterndict begin - /y exch def /x exch def - /xindex x 1 add 2 div bpside mul 1 sub cvi def - /yindex y 1 add 2 div bpside mul 1 sub cvi def - xindex yindex bitison - {/onbits onbits 1 add def 1} - {/offbits offbits 1 add def 0} ifelse - end - } bdef -/setpattern - {setpatterndict begin - /cellsz exch def - /angle exch def - /bwidth exch def - /bpside exch def - /bstring exch def - /onbits 0 def /offbits 0 def - cellsz angle /bitpatternspotfunction load setuserscreen - {} settransfer - offbits offbits onbits add div setgray - end - } bdef -% - - - - - Fraction-setting code, to support NS fonts better - - - - - -/fractiondict 20 dict def -/fractionshow -{ fractiondict begin -/denom exch def -/num exch def -/regfont currentfont def -/fractfont currentfont [.65 0 0 .6 0 0] makefont def -gsave newpath 0 0 moveto -(1) true charpath flattenpath pathbbox -/height exch def pop pop pop - grestore -0 .4 height mul rmoveto -fractfont setfont num show -0 .4 height mul neg rmoveto regfont setfont (\244) show -fractfont setfont denom show regfont setfont end } bdef -/f14 { (1) (4) fractionshow } bdef -/f12 { (1) (2) fractionshow } bdef -/f34 { (3) (4) fractionshow } bdef -/f18 { (1) (8) fractionshow } bdef -/f38 { (3) (8) fractionshow } bdef -/f58 { (5) (8) fractionshow } bdef -/f78 { (7) (8) fractionshow } bdef -/f13 { (1) (3) fractionshow } bdef -/f23 { (2) (3) fractionshow } bdef -/bboxdict 20 dict def -/bboxchk { bboxdict begin -/regfont currentfont def -/chkfont currentfont [1.25 0 0 1.25 0 0] makefont def -gsave newpath 0 0 moveto -(\161) true charpath flattenpath pathbbox -/height exch def pop pop pop - grestore - currentpoint - .2 height mul .3 height mul rmoveto -chkfont setfont (\063) show - moveto - regfont setfont -(\161) show end } bdef -/rencdict 15 dict def -/encodefont { rencdict begin -/newname exch def -/oldfont exch def -/newcodes [ -8#001 /Aacute -8#002 /Acircumflex -8#003 /Adieresis -8#004 /Agrave -8#005 /Aring -8#006 /Atilde -8#007 /Ccedilla -8#010 /Eacute -8#011 /Ecircumflex -8#012 /Edieresis -8#013 /Egrave -8#014 /Iacute -8#015 /Icircumflex -8#016 /Idieresis -8#017 /Igrave -8#020 /Ntilde -8#021 /Oacute -8#022 /Ocircumflex -8#023 /Odieresis -8#024 /Ograve -8#025 /Otilde -8#026 /Scaron -8#027 /Uacute -8#030 /Ucircumflex -8#031 /Udieresis -8#032 /Ugrave -8#033 /Ydieresis -8#034 /Zcaron -8#177 /periodinferior -8#201 /aacute -8#202 /acircumflex -8#203 /adieresis -8#204 /agrave -8#205 /aring -8#206 /atilde -8#207 /ccedilla -8#210 /eacute -8#211 /ecircumflex -8#212 /edieresis -8#213 /egrave -8#214 /iacute -8#215 /icircumflex -8#216 /idieresis -8#217 /igrave -8#220 /ntilde -8#221 /oacute -8#222 /ocircumflex -8#223 /odieresis -8#224 /ograve -8#225 /otilde -8#226 /scaron -8#227 /uacute -8#230 /ucircumflex -8#231 /udieresis -8#232 /ugrave -8#233 /ydieresis -8#234 /zcaron -8#235 /Eth -8#236 /eth -8#237 /Thorn -8#240 /thorn - ] def -/olddict oldfont findfont def /newfont olddict maxlength dict def -olddict { exch dup /FID ne { dup /Encoding eq -{ exch dup length array copy newfont 3 1 roll put } -{ exch newfont 3 1 roll put } ifelse } - { pop pop } ifelse } forall -newfont /FontName newname put -newcodes aload pop -newcodes length 2 idiv { newfont /Encoding get 3 1 roll put } repeat -newname newfont definefont pop end } def - /accentdict 10 dict def - /accentor { accentdict begin /scaler exch def /delta exch def -/unders exch def /accents exch def /mainch exch def /scrt (X) def - /w1 mainch stringwidth pop def - currentpoint mainch show currentpoint 4 2 roll -accents { /ch exch def 2 copy moveto - scrt 0 ch put - /w2 scrt stringwidth pop def - w1 w2 sub 2 div delta rmoveto scrt show - /delta delta 150 scaler mul 9 div add def - } forall -unders { /ch exch def 2 copy moveto - scrt 0 ch put - /w2 scrt stringwidth pop def - ch 46 eq { w1 w2 sub 2 div -175 scaler mul 9 div rmoveto scrt show 0 175 rmoveto } - { w1 w2 sub 2 div 0 rmoveto scrt show } ifelse - } forall - pop pop moveto end } def -%%EndProlog -%%BeginSetup -letter -/imagesizefactor 1 def -%%EndSetup -/Courier /Courier-Acnt encodefont -800 /Courier-Acnt F - -%%Page: 1 1 -%%BeginPageSetup -/savepage save def -0.01 imagesizefactor mul dup scale -%%EndPageSetup -gsave - 0 rotate - 79200 61200 0 0 CLP -/Helvetica-Bold /Helvetica-Bold-Acnt encodefont -2400 /Helvetica-Bold-Acnt F -7200 70129 M (Notes on {Medley}test>) S -1400 /Helvetica-Bold-Acnt F -7200 67108 M ( subdirs:) S -/Helvetica /Helvetica-Acnt encodefont -1400 /Helvetica-Acnt F -10800 65708 M (admin, ARs, env, GC, IO , LANGUAGE, Library, loops, lyric, Maiko,) S -7200 64308 M (tools) S -1400 /Helvetica-Bold-Acnt F -7200 62908 M () S -1400 /Helvetica-Acnt F -(Top level files) S -7200 61508 M ( ) S -1400 /Helvetica-Bold-Acnt F -10800 61508 M (README.TEDIT) S -1400 /Helvetica-Acnt F -( \(this file\)) S -1400 /Helvetica-Bold-Acnt F -10800 60108 M (TEST-RESULTS) S -1400 /Helvetica-Acnt F -( \(contains log from running AUTO tests from 1988\)) S -7200 58708 M ( ) S -1400 /Helvetica-Bold-Acnt F -10800 58708 M (DOT.read-me-first ) S -1400 /Helvetica-Acnt F -( \(originally .read-me-first\)) S -1400 /Helvetica-Bold-Acnt F -7200 54508 M (4045> ) S -1400 /Helvetica-Acnt F -( Deleted) S -1400 /Helvetica-Bold-Acnt F -7200 51708 M (Maiko>) S -1400 /Helvetica-Acnt F -7200 50308 M ( Subdir ARs, AUTO, Aux, HAND, OBSOLETE ) S -7200 48908 M ( Top level files) S -7200 46108 M ( ) S -1400 /Helvetica-Bold-Acnt F -(STACKHAX) S -1400 /Helvetica-Acnt F -( \(has CHECKSTACKSPACE, seems to get tangled up in) S -12000 44708 M (it's own stack) S -7200 43308 M ( ) S -1400 /Helvetica-Bold-Acnt F -(STACKTAKESHI) S -1400 /Helvetica-Acnt F -( \(seems to cause a stack overflow on opurpose,) S -12000 41908 M (which leaves stack clean enough that URAID hard-reset recovers) S -12000 40508 M (from. Suspect timeouts aren't correct) S -7200 39108 M ( ) S -1400 /Helvetica-Bold-Acnt F -(BAD-XREF \() S -1400 /Helvetica-Acnt F -(no compiled file\) ) S -7200 37708 M ( ) S -1400 /Helvetica-Bold-Acnt F -(display.cl) S -1400 /Helvetica-Acnt F -( \(says "from Texas Instruments"\)) S -7200 36308 M ( ) S -1400 /Helvetica-Bold-Acnt F -7200 34908 M (Maiko>ARs) S -1400 /Helvetica-Acnt F -(>) S -10800 33508 M (looks like junk: ) S -7200 32108 M ( ) S -1400 /Helvetica-Bold-Acnt F -(optests ) S -1400 /Helvetica-Acnt F -(& .dfasl \(like AUTO>OPCODES.TEST\)) S -7200 30708 M ( ) S -1400 /Helvetica-Bold-Acnt F -10800 30708 M (ENDLESSPUSHES) S -1400 /Helvetica-Acnt F -7200 29308 M ( ) S -1400 /Helvetica-Bold-Acnt F -10800 29308 M (AR-TEST-CASES.Auto-log) S -1400 /Helvetica-Bold-Acnt F -7200 25108 M (Maiko>AUTO>) S -1400 /Helvetica-Acnt F -7200 23708 M ( ) S -1400 /Helvetica-Bold-Acnt F -(OPCODES.TEST) S -1400 /Helvetica-Acnt F -7200 22308 M ( ) S -1400 /Helvetica-Bold-Acnt F -(OPCODES.DFASL) S -1400 /Helvetica-Acnt F -( ) S -10800 20908 M (may need EXPORTS.ALL to compile) S -7200 19508 M ( ) S -10800 19508 M (most tests succeed) S -7200 18108 M ( test BITBLT-DIAGONALS and BITBLT-SLOPED-LINES fail) S -7200 16708 M ( A little hard to debug because the inspector for 2D arrays fail) S -1400 /Helvetica-Bold-Acnt F -7200 13908 M (Maiko>Aux>) S -1400 /Helvetica-Acnt F -7200 12508 M ( ) S -10800 12508 M (Another cop y of ) S -1400 /Helvetica-Bold-Acnt F -(bbtests ) S -1400 /Helvetica-Acnt F -(and ) S -1400 /Helvetica-Bold-Acnt F -(optests.lisp) S -1400 /Helvetica-Bold-Acnt F -7200 9708 M (Maiko>HAND>) S -1400 /Helvetica-Acnt F -7200 8308 M ( ) S -1400 /Helvetica-Bold-Acnt F -10800 8308 M (MAIKO-ARRAY-TESTS) S -1400 /Helvetica-Acnt F -( and) S -1400 /Helvetica-Bold-Acnt F -( DFASL) S -1400 /Helvetica-Acnt F -( looks like in AUTO) S -grestore savepage restore showpage - -%%Page: 2 2 -%%BeginPageSetup -/savepage save def -0.01 imagesizefactor mul dup scale -%%EndPageSetup -gsave - 0 rotate - 79200 61200 0 0 CLP -/Helvetica /Helvetica-Acnt encodefont -1000 /Helvetica-Acnt F -7200 75600 M (2) S -/Helvetica-Bold /Helvetica-Bold-Acnt encodefont -1400 /Helvetica-Bold-Acnt F -7200 68108 M (Maiko>OBSOLETE>) S -7200 66708 M ( ) S -1400 /Helvetica-Acnt F -(Probably incororated into AUTO>) S -1400 /Helvetica-Acnt F -7200 65308 M ( ) S -1400 /Helvetica-Bold-Acnt F -(AREF-TESTER) S -1400 /Helvetica-Acnt F -7200 63908 M ( ) S -1400 /Helvetica-Bold-Acnt F -10800 63908 M (ARRAY-TESTER.TEST ) S -1400 /Helvetica-Acnt F -( ) S -7200 62508 M ( ) S -1400 /Helvetica-Bold-Acnt F -(FLOAT-TESTER) S -1400 /Helvetica-Acnt F -7200 61108 M ( ) S -1400 /Helvetica-Bold-Acnt F -(MAIKO-UNWIND-TESTS) S -1400 /Helvetica-Acnt F -7200 59708 M ( ) S -1400 /Helvetica-Bold-Acnt F -(TESTER) S -1400 /Helvetica-Acnt F -( \(compiled OK\)) S -7200 58308 M ( ) S -1400 /Helvetica-Bold-Acnt F -(unwindtest) S -1400 /Helvetica-Acnt F -7200 56908 M ( ) S -1400 /Helvetica-Bold-Acnt F -(xclopcodetests) S -1400 /Helvetica-Bold-Acnt F -7200 54108 M (Library>) S -1400 /Helvetica-Acnt F -7200 52708 M ( 4045xlpstream> junk) S -7200 51308 M ( Auto> junk\(!\)) S -1400 /Helvetica-Bold-Acnt F -7200 45708 M (loops>) S -7200 44308 M ( LOOPS-SETUP.TEDIT) S -7200 42908 M ( LOOPS-TESTER-.... ) S -1400 /Helvetica-Acnt F -(files) S -1400 /Helvetica-Bold-Acnt F -7200 40108 M (test>Lyric>) S -7200 38708 M ( ) S -1400 /Helvetica-Acnt F -(\(old-versions of) S -1400 /Helvetica-Bold-Acnt F -( DO-TEST .dfasl ) S -1400 /Helvetica-Acnt F -(and) S -1400 /Helvetica-Bold-Acnt F -( .tedit\)) S -7200 35908 M (Tools>) S -1400 /Helvetica-Bold-Acnt F -10800 34508 M (AUTOTEST.TEDIT) S -1400 /Helvetica-Acnt F -( \(originql AUTOTEST.TEDIT-orig\)) S -7200 33108 M ( ) S -1400 /Helvetica-Bold-Acnt F -10800 33108 M (AUTOTEST & .DFASL) S -1400 /Helvetica-Acnt F -( framework for running tests) S -7200 30308 M ( ) S -1400 /Helvetica-Bold-Acnt F -(DO-TEST & .DFASL ) S -1400 /Helvetica-Acnt F -(\(copied newer version from Medley) S -12000 28908 M (internal/library\)) S -7200 27508 M ( ) S -1400 /Helvetica-Bold-Acnt F -(DO-TEST.TEDIT) S -1400 /Helvetica-Acnt F -( on Writing Software Tests) S -7200 26108 M ( \(many other files not reviewed yet\)) S -grestore savepage restore showpage - -%%Trailer