Smart pascal source code


var s: String = 'a';

var i: Integer;

try
  i := 0;
  s[i] := '!';
  WriteLn('doh!');
except
end;
try
  i := 2;
  s[i] := '!';
  WriteLn('doh!');
except
end;

try
  i := 0;
  s[i] := Chr(32);
  WriteLn('doh!');
except
end;
try
  i := 2;
  s[i] := Chr(32);
  WriteLn('doh!');
except
end;

function $StrSet(s,i,v,z) {
	if (i<1) throw Exception.Create($New(Exception),"Lower bound exceeded! Index "+i.toString()+z);
	if (i>s.length) throw Exception.Create($New(Exception),"Upper bound exceeded! Index "+i.toString()+z);
	return s.substring(0,i-1)+v+s.substring(i);
}
function $New(c) { var i={ClassType:c}; c.$Init(i); return i }
function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
var s = "",
   i = 0;

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

   s = "a";
   try {
      i = 0;
      s = $StrSet(s,i,"!","");
      WriteLn("doh!");
   } catch ($e) {
      /* null */
   }
   try {
      i = 2;
      s = $StrSet(s,i,"!","");
      WriteLn("doh!");
   } catch ($e) {
      /* null */
   }
   try {
      i = 0;
      s = $StrSet(s,i," ","");
      WriteLn("doh!");
   } catch ($e) {
      /* null */
   }
   try {
      i = 2;
      s = $StrSet(s,i," ","");
      WriteLn("doh!");
   } catch ($e) {
      /* null */
   }