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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
(******************************************************************************)
(* Copyright (c) 1988 by GMD Karlruhe, Germany *)
(* Gesellschaft fuer Mathematik und Datenverarbeitung *)
(* (German National Research Center for Computer Science) *)
(* Forschungsstelle fuer Programmstrukturen an Universitaet Karlsruhe *)
(* All rights reserved. *)
(******************************************************************************)
IMPLEMENTATION MODULE NumConv;
FROM Strings1 IMPORT Length;
VAR
DigitChar: ARRAY [0..MaxBase-1] OF CHAR; (* = "0123456789ABCDEF" *)
PROCEDURE Str2Num(VAR num: LONGCARD; base: tBase;
str: ARRAY OF CHAR;
VAR done: BOOLEAN);
(* Convert 'str' to 'num' using 'base' *)
VAR
i: CARDINAL;
digit: CARDINAL;
ch: CHAR;
BEGIN
i := 0;
num := 0;
LOOP
IF i <= HIGH(str) THEN ch := CAP(str[i])
ELSE ch := 0C (* fake an ASCIIZ string *)
END;
IF ("0" <= ch) & (ch <= "9") THEN
digit := ORD(ch) - ORD("0")
ELSIF ("A" <= ch) & (ch <= "F") THEN
digit := ORD(ch) - ORD("A") + 10
ELSE
EXIT
END;
INC(i);
IF (digit < base) & (num <= (MAX(LONGCARD) - digit) DIV base) THEN
num := num * base + digit;
ELSE (* error: bad digit or overflow *)
(* ch # 0C *)
EXIT
END;
END;
done := ch = 0C;
END Str2Num;
PROCEDURE Num2Str(num: LONGCARD; base: tBase;
VAR str: ARRAY OF CHAR;
VAR done: BOOLEAN);
(* Convert 'num' to 'str' using 'base' *)
VAR i,j: CARDINAL;
BEGIN
done := TRUE;
i := HIGH(str)+1;
REPEAT (* str[i..HIGH(str)] contains conversion result *)
IF i <= 0 THEN (* error: num does not fit into str *)
done := FALSE;
RETURN
END;
DEC(i);
str[i] := DigitChar[num MOD base];
num := num DIV base;
UNTIL num = 0;
(* copy conversion result from str[i..HIGH(str)] to str[0..] *)
j := 0;
WHILE i <= HIGH(str) DO
str[j] := str[i];
INC(i);
INC(j)
END;
IF j <= HIGH(str) THEN (* make ASCIIZ *)
str[j] := 0C
END
END Num2Str;
PROCEDURE AdjustWidth(VAR str: ARRAY OF CHAR; width: INTEGER; filler: CHAR);
(* make str at least abs(width) chars long
width >= 0: insert filler chars to the left if necessary
width < 0 : append filler chars if necessary
*)
VAR
LeftJustified: BOOLEAN;
i, delta: INTEGER;
len, wid: CARDINAL;
BEGIN
LeftJustified := width < 0;
wid := ABS(width);
len := Length(str);
IF NOT ((len <= wid) & (wid <= HIGH(str))) THEN RETURN END;
IF LeftJustified THEN
FOR i := INTEGER(len) TO INTEGER(wid)-1 DO
str[i] := filler
END
ELSE
delta := wid - len;
FOR i := INTEGER(len)-1 TO 0 BY -1 DO
str[i+delta] := str[i]
END;
FOR i := delta -1 TO 0 BY -1 DO
str[i] := filler;
END
END;
IF wid <= HIGH(str) THEN (* make ASCIIZ *)
str[wid] := 0C
END
END AdjustWidth;
BEGIN
DigitChar := "0123456789ABCDEF";
END NumConv.
|
