blob: 1c247356116e425b9e27316e5fd976ea28272ce5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
############################################################################
#
# File: xformpat.icn
#
# Subject: Program to apply transformation to patterns
#
# Author: Ralph E. Griswold
#
# Date: August 12, 1993
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# This program takes patterns from standard input and applies a
# transformation to each one, writing the results to standard output.
# The transformation to be applied is given in terms of command-line
# arguments, with the transformation first, followed by any arguments,
# as in
#
# xformpat center 32 32
#
# which would attempt to produce a 32x32 centered pattern from each
# pattern in standard input.
#
# Warning: Some transformations can fail. In cae of failure, no
# pattern is written.
#
############################################################################
#
# Links: patxform
#
############################################################################
invocable all
link patxform
procedure main(args)
local xform, rows
xform := proc("p" || args[1]) | stop("** invalid transformation")
while rows := pat2rows(readpatt()) do {
get(args) # a trick here; there's always an extra
push(args, rows)
write(rows2pat(xform ! args))
}
end
|
