swapend.ajla

   1 fn main
   2 [
   3         var hr := ropen(d, args[0], 0);
   4         var a := read_full(hr);
   5         if native_to_int(native.n_int32, a[len(a) - 4 .. ]) = #616C6A41 then
   6                 return;
   7         if native_to_int(native.n_int32, a[len(a) - 4 .. ]) <> #416A6C61 then
   8                 abort;
   9         for i in range(0, len(a), 4) do [
  10                 a[i + 0], a[i + 3] := a[i + 3], a[i + 0];
  11                 a[i + 1], a[i + 2] := a[i + 2], a[i + 1];
  12         ]
  13         var hw := wopen(d, args[0], open_flag_create, open_mode_read_all_users);
  14         write(hw, a);
  15 ]