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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
############################################################################
#
# File: bkutil.icn
#
# Subject: Procedures for HP95LX phone books and appointment books
#
# Author: Robert J. Alexander
#
# Date: August 14, 1996
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# Utility procedures for HP95LX phone book and appointment book processing.
#
############################################################################
#
# See also: abkform.icn, pbkform.icn
#
############################################################################
procedure bk_int(i)
return char(i % 256) || char(i / 256)
end
procedure bk_read_int(f)
return ord(reads(f)) + 256 * ord(reads(f))
end
procedure bk_format_lines(s,width)
local lines,lines2,line,c,lineSeg
/width := 39
lines := []
#
# Make a list of the actual lines, as delimited by "\0".
#
s ? {
while put(lines,tab(find("\0"))) do move(1)
put(lines,"" ~== tab(0))
}
#
# Now build a new list, with lines longer than "width" broken at
# word boundaries.
#
lines2 := []
every line := !lines do {
while *line > width do {
line ? {
#
# Scan back from end of string to find a space
#
tab(width + 2)
until pos(1) do {
c := move(-1)
if c == " " then break
}
if pos(1) then {
#
# No space was found -- use next "width" chars.
#
lineSeg := move(width)
line := tab(0)
}
else {
#
# A space was found -- break line there.
#
lineSeg := &subject[1:&pos]
move(1)
line := tab(0)
}
put(lines2,lineSeg)
}
}
put(lines2,line)
}
return lines2
end
|
