Changeset 3577


Ignore:
Timestamp:
Mar 25, 2008, 9:11:34 PM (13 years ago)
Author:
yura
Message:
  • $native in rfp_src.rf.
Location:
to-imperative/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/src/rfp_src.rf

    r3564 r3577  
    44$use "rfpc" "rfp_helper" ;
    55
    6 $use "org.refal.plus.wrappers.java.io.BufferedReader";
    7 $use "org.refal.plus.wrappers.java.io.InputStreamReader";
    8 $use "org.refal.plus.wrappers.java.lang.ClassLoader";
     6//$use "org.refal.plus.wrappers.java.io.BufferedReader";
     7//$use "org.refal.plus.wrappers.java.io.InputStreamReader";
     8//$use "org.refal.plus.wrappers.java.lang.ClassLoader";
    99//$use "org.refal.plus.wrappers.org.refal.plus.comp.CompilerEnvironment";
    1010//$use "org.refal.plus.wrappers.org.refal.plus.comp.FormatReader";
     11
     12$func BRclose s = ;
     13$native BRclose = "void java.io.BufferedReader.close ()";
     14
     15$func BRreadLine s = s;
     16$native BRreadLine = "java.lang.String java.io.BufferedReader.readLine ()";
     17
     18$func BufferedReader s = s;
     19$native BufferedReader = "java.io.BufferedReader (java.io.Reader)";
     20
     21$func InputStreamReader s = s;
     22$native InputStreamReader = "java.io.InputStreamReader (java.io.InputStream)";
     23
     24$func GetSystemResourceAsStream s = s;
     25$native GetSystemResourceAsStream = "static java.io.InputStream java.lang.ClassLoader.getSystemResourceAsStream (java.lang.String)";
    1126
    1227$func  Arg_GetImplementationReader t.fileId = (e.qname) (e.inter_reader) (e.implem_reader) ;
  • to-imperative/trunk/java/compiler/org/refal/plus/compiler/rfp_src.java

    r3564 r3577  
    5151  static  final Expr _c_26 = Expr.getConcatenator (3).toRight (Symbol.newWord ("Apply")).toRight (Symbol.newWord ("Apply")).toRight (Symbol.newWord ("Unexpected fail")).yield ();
    5252
     53  @RefalFormat("$func BRclose s = ;")
     54  static  void BRclose (Expr _gs_arg1) throws RefalException {
     55    try {
     56      ((java.io.BufferedReader) Native.objectValue(_gs_arg1.at(0))).close();
     57    } catch (java.lang.Exception e) {
     58      throw new org.refal.plus.RefalException("org.refal.plus.compiler.rfp_src", "BRclose", e.toString());
     59    }
     60  }
     61
     62  @RefalFormat("$func BRreadLine s = s;")
     63  static  void BRreadLine (Expr _gs_arg1, Result _gs_res1) throws RefalException {
     64    try {
     65      _gs_res1.assign(Native.sValueOf(((java.io.BufferedReader) Native.objectValue(_gs_arg1.at(0))).readLine()));
     66    } catch (java.lang.Exception e) {
     67      throw new org.refal.plus.RefalException("org.refal.plus.compiler.rfp_src", "BRreadLine", e.toString());
     68    }
     69  }
     70
     71  @RefalFormat("$func BufferedReader s = s;")
     72  static  void BufferedReader (Expr _gs_arg1, Result _gs_res1) throws RefalException {
     73    try {
     74      _gs_res1.assign(Native.sValueOf(new java.io.BufferedReader(((java.io.Reader) Native.objectValue(_gs_arg1.at(0))))));
     75    } catch (java.lang.Exception e) {
     76      throw new org.refal.plus.RefalException("org.refal.plus.compiler.rfp_src", "BufferedReader", e.toString());
     77    }
     78  }
     79
     80  @RefalFormat("$func InputStreamReader s = s;")
     81  static  void InputStreamReader (Expr _gs_arg1, Result _gs_res1) throws RefalException {
     82    try {
     83      _gs_res1.assign(Native.sValueOf(new java.io.InputStreamReader(((java.io.InputStream) Native.objectValue(_gs_arg1.at(0))))));
     84    } catch (java.lang.Exception e) {
     85      throw new org.refal.plus.RefalException("org.refal.plus.compiler.rfp_src", "InputStreamReader", e.toString());
     86    }
     87  }
     88
     89  @RefalFormat("$func GetSystemResourceAsStream s = s;")
     90  static  void GetSystemResourceAsStream (Expr _gs_arg1, Result _gs_res1) throws RefalException {
     91    try {
     92      _gs_res1.assign(Native.sValueOf(java.lang.ClassLoader.getSystemResourceAsStream(((java.lang.String) Native.objectValue(_gs_arg1.at(0))))));
     93    } catch (java.lang.Exception e) {
     94      throw new org.refal.plus.RefalException("org.refal.plus.compiler.rfp_src", "GetSystemResourceAsStream", e.toString());
     95    }
     96  }
     97
    5398  @RefalFormat("$func? Reader_GetLine e = e;")
    5499  static public boolean Reader_GetLine (Expr _ge_arg1, Result _v_res1) throws RefalException
     
    178223                break _block3;
    179224              }
    180               org.refal.plus.wrappers.java.io.BufferedReader.BRclose (_vs_channel);
     225              BRclose (_vs_channel);
    181226            }
    182227            break _block2;
     
    270315        {
    271316          Expr _v_rsplit__file = _va_1.getLeft();
    272           Expr _ve__dollar_tmp_m_62_m_38 = _va_1.getRight();
     317          Expr _ve__dollar_tmp_m_77_m_38 = _va_1.getRight();
    273318          if (!_va_1.isValid ())
    274319          {
     
    299344              continue _continue1;
    300345            }
    301             int _v_len___dollar_tmp_m_62_m_9 = (_v_len3 - _v_len4);
    302             if (!_vs_dir__separator.termEquals (_v_rsplit__rsplit__file, (0 + _v_len___dollar_tmp_m_62_m_9)))
     346            int _v_len___dollar_tmp_m_77_m_9 = (_v_len3 - _v_len4);
     347            if (!_vs_dir__separator.termEquals (_v_rsplit__rsplit__file, (0 + _v_len___dollar_tmp_m_77_m_9)))
    303348            {
    304349              continue _continue2;
    305350            }
    306             Expr _ve__dollar_tmp_m_62_m_9 = Expr.empty;
    307             _ve__dollar_tmp_m_62_m_9 = _v_rsplit__rsplit__file.subexpr (0, _v_len___dollar_tmp_m_62_m_9);
     351            Expr _ve__dollar_tmp_m_77_m_9 = Expr.empty;
     352            _ve__dollar_tmp_m_77_m_9 = _v_rsplit__rsplit__file.subexpr (0, _v_len___dollar_tmp_m_77_m_9);
    308353            _ve_name = _ge_name__2;
    309354            break _exit2;
     
    321366      {
    322367        Expr _v_rsplit__file2 = _va_3.getLeft();
    323         Expr _ve__dollar_tmp_m_63_m_20 = _va_3.getRight();
     368        Expr _ve__dollar_tmp_m_78_m_20 = _va_3.getRight();
    324369        if (!_va_3.isValid ())
    325370        {
     
    356401    {
    357402      Expr _v_rsplit__file3 = _va_4.getLeft();
    358       Expr _ve__dollar_tmp_m_66_m_27 = _va_4.getRight();
     403      Expr _ve__dollar_tmp_m_81_m_27 = _va_4.getRight();
    359404      if (!_va_4.isValid ())
    360405      {
     
    454499        _exit1: _continue1: for ( ; ; _va_7.next ())
    455500        {
    456           Expr _ve__dollar_tmp_m_91_m_34 = _va_7.getLeft();
     501          Expr _ve__dollar_tmp_m_106_m_34 = _va_7.getLeft();
    457502          Expr _v_lsplit__Get2 = _va_7.getRight();
    458503          if (!_va_7.isValid ())
     
    466511            break _block1__branch1;
    467512          }
    468           int _v_len___dollar_tmp_m_91_m_48 = (_v_len1 - _v_len2);
     513          int _v_len___dollar_tmp_m_106_m_48 = (_v_len1 - _v_len2);
    469514          if (_v_lsplit__Get2.isSymbolAt (0))
    470515          {
     
    479524          }
    480525          int _v_len__dirname = (_v_len3 - _v_len4);
    481           Expr _ve__dollar_tmp_m_91_m_48 = Expr.empty;
    482           _ve__dollar_tmp_m_91_m_48 = _v_lsplit__Get2.subexpr ((0 + 1), _v_len___dollar_tmp_m_91_m_48);
     526          Expr _ve__dollar_tmp_m_106_m_48 = Expr.empty;
     527          _ve__dollar_tmp_m_106_m_48 = _v_lsplit__Get2.subexpr ((0 + 1), _v_len___dollar_tmp_m_106_m_48);
    483528          Expr _ve_dirname = Expr.empty;
    484529          _ve_dirname = _v_deref__lsplit__Get2.subexpr (0, _v_len__dirname);
     
    503548            refal.plus.Convert.ToWord (_ve_fname, _gs_auxcall2);
    504549            Result _gs_auxcall3 = new Result (Expr.empty);
    505             org.refal.plus.wrappers.java.lang.ClassLoader.GetSystemResourceAsStream (_gs_auxcall2.getExpr (), _gs_auxcall3);
     550            GetSystemResourceAsStream (_gs_auxcall2.getExpr (), _gs_auxcall3);
    506551            Result _v_Null1 = new Result (Expr.empty);
    507552            refal.plus.Java.Null (_v_Null1);
     
    534579            _vs_null = _v_compose2.subexpr ((0 + 1), 1);
    535580            Result _gs_auxcall4 = new Result (Expr.empty);
    536             org.refal.plus.wrappers.java.io.InputStreamReader.InputStreamReader (_vs_is, _gs_auxcall4);
     581            InputStreamReader (_vs_is, _gs_auxcall4);
    537582            Result _gs_auxcall5 = new Result (Expr.empty);
    538             org.refal.plus.wrappers.java.io.BufferedReader.BufferedReader (_gs_auxcall4.getExpr (), _gs_auxcall5);
     583            BufferedReader (_gs_auxcall4.getExpr (), _gs_auxcall5);
    539584            _v_res1.assign (Expr.getConcatenator ().toRight (_c_6).toRight ((Comparable<?>) _ve_fname).toRight ((Comparable<?>) _gs_auxcall5.getExpr ()).yield ());
    540585            break _block2;
     
    552597            _exit2: _continue2: for ( ; ; _va_8.next ())
    553598            {
    554               Expr _ve__dollar_tmp_m_100_m_36 = _va_8.getLeft();
     599              Expr _ve__dollar_tmp_m_115_m_36 = _va_8.getLeft();
    555600              Expr _v_lsplit__Get3 = _va_8.getRight();
    556601              if (!_va_8.isValid ())
     
    564609                break _block2__branch2;
    565610              }
    566               int _v_len___dollar_tmp_m_100_m_50 = (_v_len5 - _v_len6);
     611              int _v_len___dollar_tmp_m_115_m_50 = (_v_len5 - _v_len6);
    567612              if (_v_lsplit__Get3.isSymbolAt (0))
    568613              {
     
    577622              }
    578623              int _v_len__dirname2 = (_v_len7 - _v_len8);
    579               Expr _ve__dollar_tmp_m_100_m_50 = Expr.empty;
    580               _ve__dollar_tmp_m_100_m_50 = _v_lsplit__Get3.subexpr ((0 + 1), _v_len___dollar_tmp_m_100_m_50);
     624              Expr _ve__dollar_tmp_m_115_m_50 = Expr.empty;
     625              _ve__dollar_tmp_m_115_m_50 = _v_lsplit__Get3.subexpr ((0 + 1), _v_len___dollar_tmp_m_115_m_50);
    581626              Expr _ve_dirname = Expr.empty;
    582627              _ve_dirname = _v_deref__lsplit__Get3.subexpr (0, _v_len__dirname2);
     
    671716          return false;
    672717        }
    673         int _v_len___dollar_tmp_m_114_m_8 = (_v_len9 - _v_len10);
     718        int _v_len___dollar_tmp_m_129_m_8 = (_v_len9 - _v_len10);
    674719        int _v_len11 = _ve_qname.length ();
    675720        int _v_len12 = 2;
     
    679724        }
    680725        int _v_len__lib = (_v_len11 - _v_len12);
    681         if (!_c_10.termEquals (err, (0 + _v_len___dollar_tmp_m_114_m_8)))
     726        if (!_c_10.termEquals (err, (0 + _v_len___dollar_tmp_m_129_m_8)))
    682727        {
    683728          return false;
     
    687732          return false;
    688733        }
    689         Expr _ve__dollar_tmp_m_114_m_8 = Expr.empty;
    690         _ve__dollar_tmp_m_114_m_8 = err.subexpr (0, _v_len___dollar_tmp_m_114_m_8);
     734        Expr _ve__dollar_tmp_m_129_m_8 = Expr.empty;
     735        _ve__dollar_tmp_m_129_m_8 = err.subexpr (0, _v_len___dollar_tmp_m_129_m_8);
    691736        Expr _ve_lib = Expr.empty;
    692737        _ve_lib = _ve_qname.subexpr ((0 + 1 + 1), _v_len__lib);
     
    703748        _exit3: _continue3: for ( ; ; _va_10.next ())
    704749        {
    705           Expr _ve__dollar_tmp_m_117_m_33 = _va_10.getLeft();
     750          Expr _ve__dollar_tmp_m_132_m_33 = _va_10.getLeft();
    706751          Expr _v_lsplit__Get4 = _va_10.getRight();
    707752          if (!_va_10.isValid ())
     
    715760            return false;
    716761          }
    717           int _v_len___dollar_tmp_m_117_m_47 = (_v_len13 - _v_len14);
     762          int _v_len___dollar_tmp_m_132_m_47 = (_v_len13 - _v_len14);
    718763          if (_v_lsplit__Get4.isSymbolAt (0))
    719764          {
     
    728773          }
    729774          int _v_len__dirname3 = (_v_len15 - _v_len16);
    730           Expr _ve__dollar_tmp_m_117_m_47 = Expr.empty;
    731           _ve__dollar_tmp_m_117_m_47 = _v_lsplit__Get4.subexpr ((0 + 1), _v_len___dollar_tmp_m_117_m_47);
     775          Expr _ve__dollar_tmp_m_132_m_47 = Expr.empty;
     776          _ve__dollar_tmp_m_132_m_47 = _v_lsplit__Get4.subexpr ((0 + 1), _v_len___dollar_tmp_m_132_m_47);
    732777          Expr _ve_dirname = Expr.empty;
    733778          _ve_dirname = _v_deref__lsplit__Get4.subexpr (0, _v_len__dirname3);
     
    904949
    905950  @RefalFormat("$func? ReadFormatsFromBox e = e;")
    906   static  boolean ReadFormatsFromBox (Expr _ve__dollar_tmp_m_156_m_21, Result _v_res1) throws RefalException
     951  static  boolean ReadFormatsFromBox (Expr _ve__dollar_tmp_m_171_m_21, Result _v_res1) throws RefalException
    907952  {
    908953    Result _v_Get1 = new Result (Expr.empty);
     
    926971  {
    927972    Result _vs_string = new Result (Expr.empty);
    928     org.refal.plus.wrappers.java.io.BufferedReader.BRreadLine (_vs_reader, _vs_string);
     973    BRreadLine (_vs_reader, _vs_string);
    929974    _block1__branch1: {
    930975      Result _v_Null1 = new Result (Expr.empty);
Note: See TracChangeset for help on using the changeset viewer.