load_text(name){
  size = 1024;
  fih = new BufferedReader(new InputStreamReader(new FileInputStream(name)),size);
  text = "";
  line = "";
  while((line = fih.readLine())!=null){
    text+=line;
    text+="\n";
  }
  fih.close();
  return text;
}

print(load_text(getSourceFileInfo()));

include("/sdcard/com.googlecode.bexforandroid/extras/bex/android.bex")
droid = Android()

load_text = |name| {
  size = 1024
  fih = BufferedReader.new(InputStreamReader.new(FileInputStream.new(name)),size)
  text = ""
  line = ""
  while { (line = fih.readLine())!=null } {
    text+=line
    text+="\n"
  }
  fih.close()
  return(text)
}

key = "com.googlecode.android_scripting.extra.SCRIPT_PATH"
print(load_text(droid.call("getIntent").get("result").get("extras").get(key)))

-module(showThis_Erlang).
-export([main/0]).
main()->
  Key = "com.googlecode.android_scripting.extra.SCRIPT_PATH",
  {struct,[_,_,_,_,_,{"extras",{struct,[{Key,Name}]}}]} = android:getIntent(),
  print(load_text(Name))
.

load_text(Name)->
  {ok,Binary} = file:read_file(Name),
  binary_to_list(Binary).

print(S)->
  io:fwrite("~s",[S]).

Not solved. Please send me answers if you have.

droid = Android.new

def load_text(name)
  text = ""
  fih = File.open(name,"r")
  while line = fih.gets
    text = text+line
  end
  fih.close
  return text
end

puts load_text(__FILE__)

(import "com.googlecode.rpc.*")
(import "java.io.*")
(define droid (com.googlecode.rpc.Android.))

(define load_text (lambda (name)
  (set! size 1024)
  (set! text "")
  (set! fih (BufferedReader. (InputStreamReader. (FileInputStream. name)) size))
  (let loop ()
    (tryCatch 
      (begin 
        (set! line (.readLine fih)) 
        (set! text (string-append text (string-append line "\n")))
        (loop))
      (lambda(e) ())))
    (.close fih)))

(define key "com.googlecode.android_scripting.extra.SCRIPT_PATH")
(load_text(.get (.get (.get (.call droid "getIntent") "result") "extras") key))
(.println System.out$ text)
(exit)

import com.googlecode.rpc.*;
import java.io.*;

function load_text(name){
  size = 1024;
  fih = new BufferedReader(new InputStreamReader(new FileInputStream(name)),size);
  text = "";
  line = "";
  while((line = fih.readLine())!=null){
    text = text line;
    text = text "\n";
  }
  fih.close();
  return text;
}

BEGIN{
  droid = new Android();
  key = "com.googlecode.android_scripting.extra.SCRIPT_PATH";
  intent = droid.call("getIntent");
  print load_text(intent.get("result").get("extras").get(key))
}

require "android"

function load_text(name)
  text = ""
  line = ""
  io.input(name)
  while true do
    line = io.read()
    if line==nil then break end
    text = text..line.."\n"
  end
  io.close()
  return text
end

print(""..load_text(arg[0]))

<?php 
require_once("Android.php");
$droid = new Android();
$text = @file_get_contents(__FILE__);
echo $text;
?>

use Android;

sub load_text {
  my $text = "";
  my $name = "@_";
  open(my $FIH,"<$name") or return "";
  while (my $line = <$FIH>){
    chomp($line);
    $text = "$text"."$line"."\n";
  }
  close($FIH);
  return $text;
}

print &load_text("$0");

import android
droid = android.Android()

def load_text(name):
  text = ""
  fih = open(name)
  while 1:
    line = fih.readline()
    if not line:
      break
    text = text+line
  fih.close
  return text

print load_text(__file__)

importPackage(java.io);
load("/sdcard/com.googlecode.rhinoforandroid/extras/rhino/android.js");
var droid = new Android();

function load_text(name){
  var size = 1024;
  var fih = BufferedReader(InputStreamReader(FileInputStream(name)),size);
  var text = "";
  var line = "";
  while(line = fih.readLine()){
    if(line==null)break;
    text = text+line+"\n";
  }
  fih.close();
  return text;
}

var key = "com.googlecode.android_scripting.extra.SCRIPT_PATH";
var name = droid.getIntent()["extras"][key];
java.lang.System.out.println(load_text(name));

#!/system/bin/sh
sleep 1
while read line
  do text=${text}${line}"\n"
done < $0
echo  -e  "$text"

import com.googlecode.rpc.*;
$droid = [new Android];

sub load_text{
  $name = $1;
  $size = 1024;
  $fih = openf($name);
  $text = "";
  $line = "";
  while $line (readln($fih)) {
    $text .= $line;
    $text .= "\n";
  }
  closef($name);
  return $text;
}

print(load_text($__SCRIPT__));

android <- Android();

function load_text(name){
  local text = "";
  local fih = file(name,"r");
  local filesize = fih.len();
  local pos = 0;
  while(pos!=filesize){
    text += fih.readn('b').tochar();
    pos++;
  }
  return text;
}

local key = "com.googlecode.android_scripting.extra.SCRIPT_PATH";
print(load_text(android.getIntent().result.extras[key]));

proc load_text {name} {
  set text ""
  set fih [open $name]
  while {! [eof $fih] } {
    set line [gets $fih]
    append text $line "\n"
  }
  close $fih
  return $text
}

set name [info script]
puts [load_text $name]

unset name