So far, it looks like every file with through tr '\r\n' '\n\r' swapping cr and lf.
This commit is contained in:
37
internal/test/tools/TESTUTILS
Normal file
37
internal/test/tools/TESTUTILS
Normal 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
|
||||
Reference in New Issue
Block a user