StringToINTERCAL/StringToINTERCAL.java at main · Maxoplata/StringToINTERCAL · GitHub

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
/**
 * StringToINTERCAL.java
 *
 * Converts a string to an INTERCAL script that will output said string.
 * usage: javac StringToINTERCAL.java && java StringToINTERCAL your string here
 *
 * @author Maxamilian Demian <max@maxdemian.com>
 * @link https://www.maxodev.org
 * @link https://github.com/Maxoplata/StringToINTERCAL
 */

classStringToINTERCAL {
staticintpoliteCount = 0;

staticStringpoliteLine(Stringline) {
if (politeCount == 3) {
politeCount = 0;

returnString.format("PLEASE %s\n", line);
 }

politeCount++;

returnString.format("DO %s\n", line);
	}

staticStringleadingZeros(Stringdec) {
intcount = dec.length();

if (count < 8) {
dec = newString(newchar[8 - count]).replace("\0", "0") + dec;
 }

returndec;
	}

staticStringconvertToINTERCAL(Stringstr) {
// reset politeCount
politeCount = 0;

Stringret = politeLine(String.format(",1 <- #%s", str.length()));

intlastCharLoc = 256;
for (inti = 0; i < str.length(); i++) {
intcharLoc = Integer.parseInt(newStringBuilder(leadingZeros(Integer.toBinaryString((int) str.charAt(i)))).reverse().toString(), 2);

intmovePosition = 0;

if (charLoc < lastCharLoc) {
movePosition = (lastCharLoc - charLoc);
 } elseif (charLoc > lastCharLoc) {
movePosition = (256 - charLoc) + lastCharLoc;
 }

lastCharLoc -= movePosition;
if (lastCharLoc < 1) {
lastCharLoc = 256 + lastCharLoc;
 }

ret += politeLine(String.format(",1 SUB #%d <- #%d", (i + 1), movePosition));
 }

ret += politeLine("READ OUT ,1");
ret += politeLine("GIVE UP");

returnret;
	}

publicstaticvoidmain(String[] args) {
if (args.length > 0) {
StringinputString = String.join(" ", args);

System.out.println(convertToINTERCAL(inputString));
 }
	}
}