1
0
mirror of synced 2026-04-19 09:39:40 +00:00

So far, it looks like every file with through tr '\r\n' '\n\r' swapping cr and lf.

This commit is contained in:
Larry Masinter
2020-12-01 17:56:50 -08:00
parent 5584b38276
commit ec4f57461c
3134 changed files with 183421 additions and 9878 deletions

View File

@@ -0,0 +1,37 @@
(FILECREATED "20-Sep-85 09:23:53" {DANTE}<SVERNON>TESTUTILS.;2 1077
changes to: (FNS PRINT-TEST-ARS)
(VARS TESTUTILSCOMS)
previous date: "19-Sep-85 17:02:23" {DANTE}<SVERNON>TESTUTILS.;1)
(* Copyright (c) 1985 by XEROX Corporation. All rights reserved.)
(PRETTYCOMPRINT TESTUTILSCOMS)
(RPAQQ TESTUTILSCOMS ((FNS PRINT-TEST-ARS)))
(DEFINEQ
(PRINT-TEST-ARS
[LAMBDA (WINDOW FILE) (* edited: "20-Sep-85 09:23")
(PROG (STATUS)
(SETQ STATUS NIL)
(for I in (WINDOWPROP WINDOW (QUOTE AR.ENTRY.ALIST))
do (if (NEQ (LISTGET (CDR I)
(QUOTE Status:))
STATUS)
then (SETQ STATUS (LISTGET (CDR I)
(QUOTE Status:)))
(PRINTOUT FILE STATUS ":" T))
(PRINTOUT FILE .I6 (LISTGET (CDR I)
(QUOTE Number:))
,
(LISTGET (CDR I)
(QUOTE Subject:))
T])
)
(PUTPROPS TESTUTILS COPYRIGHT ("XEROX Corporation" 1985))
(DECLARE: DONTCOPY
(FILEMAP (NIL (367 997 (PRINT-TEST-ARS 377 . 995)))))
STOP