Smart pascal source code


var s := '';
for var c in s do;

for var c in s do
  WriteLn(c);

s := 'hello';
for var c in s do
  WriteLn(c);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
h
e
l
l
o

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

// inspired from 
// https://developer.mozilla.org/en/JavaScript/Reference/Global_Objects/String/charCodeAt
function $uniCharAt(str, idx) {
    var c = str.charCodeAt(idx);
    if (0xD800 <= c && c <= 0xDBFF) { // High surrogate
        return str.substr(idx, 2);
    }
    if (0xDC00 <= c && c <= 0xDFFF) { // Low surrogate
        return null;
    }
    return str.charAt(idx);
}function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
var s = "",
   c = "",
   c$1 = "",
   c$2 = "";

/* <<< main JS >>> */

s = "";
for (var $temp1 = 0; $temp1 < s.length; $temp1++) {
	c = $uniCharAt(s, $temp1);
	if (!c)
		continue;
	/* null */
}
for (var $temp2 = 0; $temp2 < s.length; $temp2++) {
	c$1 = $uniCharAt(s, $temp2);
	if (!c$1)
		continue;
	WriteLn(c$1)
}
s = "hello";
for (var $temp3 = 0; $temp3 < s.length; $temp3++) {
	c$2 = $uniCharAt(s, $temp3);
	if (!c$2)
		continue;
	WriteLn(c$2)
}