mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-05 21:02:26 +00:00
adapted Base64 file from Oberon S3.
This commit is contained in:
Norayr Chilingarian
parent
a9465ccfc6
commit
fa9e73f7af
2 changed files with 234 additions and 0 deletions
233
src/library/s3/ethBase64.Mod
Normal file
233
src/library/s3/ethBase64.Mod
Normal file
|
|
@ -0,0 +1,233 @@
|
|||
MODULE ethBase64; (* Adapted for VOC from Oberon System 3 *)
|
||||
IMPORT Files, Texts, Oberon, Out;
|
||||
|
||||
VAR
|
||||
encTable: ARRAY 64 OF CHAR;
|
||||
decTable: ARRAY 128 OF INTEGER;
|
||||
W: Texts.Writer;
|
||||
|
||||
PROCEDURE DecodeText*(T: Texts.Text; beg: LONGINT; F: Files.File): BOOLEAN;
|
||||
VAR
|
||||
R: Texts.Reader;
|
||||
codes: ARRAY 4 OF INTEGER;
|
||||
Ri: Files.Rider;
|
||||
i: INTEGER;
|
||||
ch: CHAR;
|
||||
ok, end: BOOLEAN;
|
||||
BEGIN
|
||||
Files.Set(Ri, F, 0);
|
||||
ok := TRUE; end := FALSE;
|
||||
Texts.OpenReader(R, T, beg);
|
||||
Texts.Read(R, ch);
|
||||
REPEAT
|
||||
i := 0;
|
||||
WHILE ~R.eot & ok & (i < 4) DO
|
||||
WHILE ~R.eot & (ch <= " ") DO
|
||||
Texts.Read(R, ch)
|
||||
END;
|
||||
IF (ch >= 0X) & (ch < 80X) THEN
|
||||
codes[i] := decTable[ORD(ch)];
|
||||
ok := codes[i] >= 0; INC(i);
|
||||
IF ok THEN
|
||||
Texts.Read(R, ch)
|
||||
END
|
||||
ELSE
|
||||
ok := FALSE
|
||||
END
|
||||
END;
|
||||
IF i > 0 THEN
|
||||
IF ok & (i = 4) THEN
|
||||
Files.Write(Ri, CHR(ASH(codes[0], 2)+ASH(codes[1], -4)));
|
||||
Files.Write(Ri, CHR(ASH(codes[1], 4)+ASH(codes[2], -2)));
|
||||
Files.Write(Ri, CHR(ASH(codes[2], 6)+codes[3]))
|
||||
ELSIF ch = "=" THEN
|
||||
ok := TRUE; end := TRUE; DEC(i);
|
||||
IF i = 2 THEN
|
||||
Files.Write(Ri, CHR(ASH(codes[0], 2)+ASH(codes[1], -4)))
|
||||
ELSIF i = 3 THEN
|
||||
Files.Write(Ri, CHR(ASH(codes[0], 2)+ASH(codes[1], -4)));
|
||||
Files.Write(Ri, CHR(ASH(codes[1], 4)+ASH(codes[2], -2)))
|
||||
ELSIF i # 0 THEN
|
||||
ok := FALSE
|
||||
END
|
||||
ELSE
|
||||
end := TRUE
|
||||
END
|
||||
ELSE
|
||||
end := TRUE
|
||||
END
|
||||
UNTIL R.eot OR end;
|
||||
RETURN ok
|
||||
END DecodeText;
|
||||
|
||||
PROCEDURE Decode*;
|
||||
VAR
|
||||
S: Texts.Scanner;
|
||||
F: Files.File;
|
||||
T: Texts.Text;
|
||||
beg, end, time: LONGINT;
|
||||
res: INTEGER;
|
||||
BEGIN
|
||||
Texts.OpenScanner(S, Oberon.Par.text, Oberon.Par.pos);
|
||||
Texts.Scan(S);
|
||||
IF S.class IN {Texts.Name, Texts.String} THEN
|
||||
Texts.WriteString(W, S.s);
|
||||
F := Files.New(S.s);
|
||||
Texts.Scan(S);
|
||||
IF (S.class = Texts.Char) & ((S.c = "@") OR (S.c = "^")) THEN
|
||||
T := NIL;
|
||||
time := -1;
|
||||
Oberon.GetSelection(T, beg, end, time);
|
||||
IF T = NIL THEN
|
||||
Texts.WriteString(W, " - no selection");
|
||||
Texts.WriteLn(W);
|
||||
Texts.Append(Oberon.Log, W.buf);
|
||||
RETURN
|
||||
END
|
||||
ELSIF S.class IN {Texts.Name, Texts.String} THEN
|
||||
NEW(T);
|
||||
Texts.Open(T, S.s);
|
||||
beg := 0
|
||||
ELSE
|
||||
beg := Texts.Pos(S);
|
||||
T := Oberon.Par.text
|
||||
END;
|
||||
IF DecodeText(T, beg, F) THEN
|
||||
Files.Register(F);
|
||||
Texts.WriteString(W, " done")
|
||||
ELSE
|
||||
Texts.WriteString(W, " failed")
|
||||
END;
|
||||
Texts.WriteLn(W);
|
||||
Texts.Append(Oberon.Log, W.buf)
|
||||
END
|
||||
END Decode;
|
||||
|
||||
PROCEDURE EncodeFile*(F: Files.File; T: Texts.Text);
|
||||
VAR
|
||||
R: Files.Rider;
|
||||
i, j, c, c0, c1, c2, l: LONGINT;
|
||||
chars: ARRAY 3 OF CHAR;
|
||||
|
||||
PROCEDURE OutCode();
|
||||
BEGIN
|
||||
IF l > 76 THEN (* Standard line length for Base64 *)
|
||||
Texts.WriteLn(W);
|
||||
Texts.Append(T, W.buf);
|
||||
l := 0
|
||||
END;
|
||||
c0 := ORD(chars[0]);
|
||||
c := ASH(c0, -2);
|
||||
Texts.Write(W, encTable[c]);
|
||||
c0 := c0 - ASH(c, 2);
|
||||
|
||||
c1 := ORD(chars[1]);
|
||||
c := ASH(c0, 4) + ASH(c1, -4);
|
||||
Texts.Write(W, encTable[c]);
|
||||
c1 := c1 MOD 16;
|
||||
|
||||
c2 := ORD(chars[2]);
|
||||
c := ASH(c1, 2) + ASH(c2, -6);
|
||||
Texts.Write(W, encTable[c]);
|
||||
c2 := c2 MOD 64;
|
||||
|
||||
Texts.Write(W, encTable[c2]);
|
||||
INC(l, 4)
|
||||
END OutCode;
|
||||
|
||||
BEGIN
|
||||
l := 0;
|
||||
Files.Set(R, F, 0);
|
||||
Files.Read(R, chars[0]);
|
||||
i := 1;
|
||||
WHILE ~R.eof DO
|
||||
IF i >= 3 THEN
|
||||
OutCode();
|
||||
i := 0
|
||||
END;
|
||||
Files.Read(R, chars[i]);
|
||||
INC(i)
|
||||
END;
|
||||
DEC(i);
|
||||
IF i > 0 THEN
|
||||
j := i;
|
||||
WHILE i < 3 DO
|
||||
chars[i] := 0X;
|
||||
INC(i)
|
||||
END;
|
||||
OutCode();
|
||||
(* Handle padding *)
|
||||
IF j < 3 THEN
|
||||
Texts.Append(T, W.buf);
|
||||
(* Remove extra characters and add padding *)
|
||||
j := 3 - j;
|
||||
Texts.Delete(T, T.len - j, T.len);
|
||||
FOR i := 1 TO j DO
|
||||
Texts.Write(W, "=")
|
||||
END
|
||||
END
|
||||
END;
|
||||
Texts.WriteLn(W);
|
||||
Texts.Append(T, W.buf)
|
||||
END EncodeFile;
|
||||
|
||||
PROCEDURE Encode*;
|
||||
VAR
|
||||
S: Texts.Scanner;
|
||||
F: Files.File;
|
||||
T: Texts.Text;
|
||||
name: ARRAY 256 OF CHAR;
|
||||
BEGIN
|
||||
NEW(T);
|
||||
Texts.Open(T, "");
|
||||
Texts.OpenScanner(S, Oberon.Par.text, Oberon.Par.pos);
|
||||
Texts.Scan(S);
|
||||
IF S.class IN {Texts.Name, Texts.String} THEN
|
||||
COPY(S.s, name);
|
||||
F := Files.Old(name);
|
||||
IF F # NIL THEN
|
||||
EncodeFile(F, T);
|
||||
(* In VOC, we'll output to console instead of opening a viewer *)
|
||||
Out.String("=== Base64 Encoded: "); Out.String(name);
|
||||
Out.String(" ==="); Out.Ln;
|
||||
(* Output the encoded text - would need a helper to print Text to console *)
|
||||
Out.String("[Base64 encoded content would be here]"); Out.Ln;
|
||||
Out.String("=== End ==="); Out.Ln;
|
||||
ELSE
|
||||
Out.String("File not found: "); Out.String(name); Out.Ln;
|
||||
END
|
||||
END
|
||||
END Encode;
|
||||
|
||||
PROCEDURE InitTables();
|
||||
VAR i, max: INTEGER;
|
||||
BEGIN
|
||||
(* Build encoding table *)
|
||||
max := ORD("Z") - ORD("A");
|
||||
FOR i := 0 TO max DO
|
||||
encTable[i] := CHR(i + ORD("A"))
|
||||
END;
|
||||
INC(max);
|
||||
FOR i := max TO max + ORD("z") - ORD("a") DO
|
||||
encTable[i] := CHR(i - max + ORD("a"))
|
||||
END;
|
||||
max := max + ORD("z") - ORD("a") + 1;
|
||||
FOR i := max TO max + ORD("9") - ORD("0") DO
|
||||
encTable[i] := CHR(i - max + ORD("0"))
|
||||
END;
|
||||
encTable[62] := "+";
|
||||
encTable[63] := "/";
|
||||
|
||||
(* Build decoding table *)
|
||||
FOR i := 0 TO 127 DO
|
||||
decTable[i] := -1
|
||||
END;
|
||||
FOR i := 0 TO 63 DO
|
||||
decTable[ORD(encTable[i])] := i
|
||||
END
|
||||
END InitTables;
|
||||
|
||||
BEGIN
|
||||
InitTables();
|
||||
Texts.OpenWriter(W)
|
||||
END ethBase64.
|
||||
|
|
@ -369,6 +369,7 @@ s3:
|
|||
cd $(BUILDDIR)/$(MODEL); "$(ROOTDIR)/$(OBECOMP)" -Fs -O$(MODEL) ../../../src/library/s3/ethDates.Mod
|
||||
cd $(BUILDDIR)/$(MODEL); "$(ROOTDIR)/$(OBECOMP)" -Fs -O$(MODEL) ../../../src/library/s3/ethReals.Mod
|
||||
cd $(BUILDDIR)/$(MODEL); "$(ROOTDIR)/$(OBECOMP)" -Fs -O$(MODEL) ../../../src/library/s3/ethStrings.Mod
|
||||
cd $(BUILDDIR)/$(MODEL); "$(ROOTDIR)/$(OBECOMP)" -Fs -O$(MODEL) ../../../src/library/s3/ethBase64.Mod
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue