summaryrefslogtreecommitdiff
path: root/systems/knuth/local/mf/ini_to_trap
blob: c18984179f0f0cbfc7a504543b39381cc19d3765 (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
#! /bin/csh
# A shell script to perform modifications on the changefile for inimf
# to make a changefile for trapmf (used to test mf).
#
# To use it, say
#	ini_to_trap inimf.ch trapmf.ch
#
ed - $1 <<edscriptend
/debug=/
//
s/@{//p
/gubed=/
s/@t@>@}//p
/@!mem_max=/
//
s/[0-9][0-9]*/3000/p
/@!error_line=/
s/[0-9][0-9]*/64/p
/@!half_error_line=/
s/[0-9][0-9]*/32/p
/@!max_print_line=/
s/[0-9][0-9]*/72/p
/@!screen_width=/
s/[0-9][0-9]*/100/p
/@!screen_depth=/
s/[0-9][0-9]*/200/p
/@!gf_buf_size=/
s/[0-9][0-9]*/8/p
/@d mem_min=/
//
s/-[0-9]*/0/p
/@d mem_top==/
s/[0-9][0-9]*/3000/p
/% BEGIN HOOK FOR THE TRAP TEST/
.+1,.+5s/%//
.+1,/% END HOOK FOR THE TRAP TEST/d
w $2
edscriptend