coins.ffront
クラス I77Utils

java.lang.Object
  |
  +--coins.ffront.I77Utils

public class I77Utils
extends java.lang.Object

File I77wrapper.java Utility class to use libI77. libI77 is IO library for F2C, distributed at http://www.netlib.org/f2c/index.html To use libI77, follow their notice.


フィールドの概要
(パッケージプライベート)  int err_
           
(パッケージプライベート)  ExecStmtManager fESMgr
           
(パッケージプライベート)  FirToHir fHir
           
(パッケージプライベート)  HirUtility fHirUtil
           
(パッケージプライベート)  Exp fmt_
           
(パッケージプライベート)  java.lang.String fmt_str_
           
(パッケージプライベート)  TypeUtility fTypeUtil
           
(パッケージプライベート)  Exp func_do
           
(パッケージプライベート)  Exp func_e
           
(パッケージプライベート)  Exp func_s
           
(パッケージプライベート)  HIR hir
           
(パッケージプライベート)  Exp i_access
           
(パッケージプライベート)  Exp i_accesslen
           
(パッケージプライベート)  Exp i_blank
           
(パッケージプライベート)  Exp i_blanklen
           
(パッケージプライベート)  Exp i_direct
           
(パッケージプライベート)  Exp i_directlen
           
(パッケージプライベート)  Exp i_exist
           
(パッケージプライベート)  Exp i_file
           
(パッケージプライベート)  Exp i_filelen
           
(パッケージプライベート)  Exp i_form
           
(パッケージプライベート)  Exp i_formatted
           
(パッケージプライベート)  Exp i_formattedlen
           
(パッケージプライベート)  Exp i_formlen
           
(パッケージプライベート)  Exp i_name
           
(パッケージプライベート)  Exp i_named
           
(パッケージプライベート)  Exp i_namelen
           
(パッケージプライベート)  Exp i_nextrec
           
(パッケージプライベート)  Exp i_number
           
(パッケージプライベート)  Exp i_opened
           
(パッケージプライベート)  Exp i_recl
           
(パッケージプライベート)  Exp i_sequential
           
(パッケージプライベート)  Exp i_sequentiallen
           
(パッケージプライベート)  Exp i_status
           
(パッケージプライベート)  Exp i_unformatted
           
(パッケージプライベート)  Exp i_unformattedlen
           
(パッケージプライベート)  Exp iostat_
           
(パッケージプライベート)  boolean is_inquire
           
(パッケージプライベート)  boolean is_listed
           
(パッケージプライベート)  boolean read_access
           
(パッケージプライベート)  boolean read_blank
           
(パッケージプライベート)  boolean read_direct
           
(パッケージプライベート)  boolean read_end
           
(パッケージプライベート)  boolean read_err
           
(パッケージプライベート)  boolean read_exist
           
(パッケージプライベート)  boolean read_file
           
(パッケージプライベート)  boolean read_fmt
           
(パッケージプライベート)  boolean read_form
           
(パッケージプライベート)  boolean read_formatted
           
(パッケージプライベート)  boolean read_iostat
           
(パッケージプライベート)  boolean read_name
           
(パッケージプライベート)  boolean read_named
           
(パッケージプライベート)  boolean read_nextrec
           
(パッケージプライベート)  boolean read_number
           
(パッケージプライベート)  boolean read_opened
           
(パッケージプライベート)  java.lang.String read_or_write_char
           
(パッケージプライベート)  boolean read_rec
           
(パッケージプライベート)  boolean read_recl
           
(パッケージプライベート)  boolean read_sequential
           
(パッケージプライベート)  boolean read_status
           
(パッケージプライベート)  boolean read_unformatted
           
(パッケージプライベート)  boolean read_unit
           
(パッケージプライベート)  boolean read_unit_internal
           
(パッケージプライベート)  Exp rec_
           
(パッケージプライベート)  Sym sym
           
(パッケージプライベート)  Exp unit_
           
 
コンストラクタの概要
(パッケージプライベート) I77Utils(FirToHir fth)
           
 
メソッドの概要
(パッケージプライベート)  void check_control_information_for_close(FirList ciList)
           
(パッケージプライベート)  void check_control_information_for_inquire(FirList ciList)
           
(パッケージプライベート)  void check_control_information_for_open(FirList ciList)
           
(パッケージプライベート)  void check_control_information_for_others(FirList ciList)
           
(パッケージプライベート)  void check_control_information(FirList ciList)
           
(パッケージプライベート)  boolean ci_access(Node t)
           
(パッケージプライベート)  boolean ci_blank(Node t)
           
(パッケージプライベート)  boolean ci_direct(Node t)
           
(パッケージプライベート)  boolean ci_end(Node t)
           
(パッケージプライベート)  boolean ci_err(Node t)
           
(パッケージプライベート)  boolean ci_exist(Node t)
           
(パッケージプライベート)  boolean ci_file(Node t)
           
(パッケージプライベート)  boolean ci_fmt(Node n)
           
(パッケージプライベート)  boolean ci_form(Node t)
           
(パッケージプライベート)  boolean ci_formatted(Node t)
           
(パッケージプライベート)  boolean ci_iostat(Node t)
           
(パッケージプライベート)  boolean ci_name(Node t)
           
(パッケージプライベート)  boolean ci_named(Node t)
           
(パッケージプライベート)  boolean ci_nextrec(Node t)
           
(パッケージプライベート)  boolean ci_number(Node t)
           
(パッケージプライベート)  boolean ci_opened(Node t)
           
(パッケージプライベート)  boolean ci_rec(Node t)
           
(パッケージプライベート)  boolean ci_recl(Node t)
           
(パッケージプライベート)  boolean ci_sequential(Node t)
           
(パッケージプライベート)  boolean ci_status(Node t)
           
(パッケージプライベート)  boolean ci_unformatted(Node t)
           
(パッケージプライベート)  boolean ci_unit(Node t)
           
(パッケージプライベート)  Stmt close()
           
(パッケージプライベート)  void closeInit(FirList cList)
           
(パッケージプライベート)  Stmt dolist(Node n)
           
(パッケージプライベート)  void dp(java.lang.String str)
           
(パッケージプライベート)  void error(java.lang.String msg)
           
(パッケージプライベート)  int get_lio_type(Type rt)
          These parameterss is followed by macro "TY*" in "libI77/lio.h".
(パッケージプライベート)  Type get_type_alist()
          declare alist at global scope // rewind, backspace, endfile typedef struct { flag aerr; ftnint aunit; } alist;
(パッケージプライベート)  Type get_type_cilist()
          declare cilist at global scope typedef struct { flag cierr; // int ftnint ciunit; // int flag ciend; // int char *cifmt; // char * ftnint cirec; // int } cilist;
(パッケージプライベート)  Type get_type_cllist()
          declare cllist at global scope typedef struct{ flag cerr; // int ftnint cunit; // int char *csta; // char * } cllist;
(パッケージプライベート)  Type get_type_icilist()
          declare icilist at global scope typedef struct { flag icierr; // int char *iciunit; // char * flag iciend; // int char *icifmt; // char * ftnint icirlen;// int ftnint icirnum;// int } icilist;
(パッケージプライベート)  Type get_type_inlist()
          declare inlist at global scope typedef struct { flag inerr; ftnint inunit; char *infile; ftnlen infilen; ftnint *inex; //parameters in standard's order ftnint *inopen; ftnint *innum; ftnint *innamed; char *inname; ftnlen innamlen; char *inacc; ftnlen inacclen; char *inseq; ftnlen inseqlen; char *indir; ftnlen indirlen; char *infmt; ftnlen infmtlen; char *inform; ftnint informlen; char *inunf; ftnlen inunflen; ftnint *inrecl; ftnint *innrec; char *inblank; ftnlen inblanklen; } inlist;
(パッケージプライベート)  Type get_type_olist()
          declare olist at global scope typedef struct { flag oerr; // int ftnint ounit; // int char *ofnm; // char * ftnlen ofnmlen; // int char *osta; // char * char *oacc; // char * char *ofm; // char * ftnint orl; // int char *oblnk; // char * } olist;
(パッケージプライベート)  Stmt inquire()
           
(パッケージプライベート)  void inquireInit(FirList cList)
           
(パッケージプライベート)  ExpStmt io_do(Node n)
           
(パッケージプライベート)  ExpStmt io_end()
           
(パッケージプライベート)  Stmt io_start()
           
(パッケージプライベート)  Stmt open()
           
(パッケージプライベート)  void openInit(FirList cList)
           
(パッケージプライベート)  Stmt others(java.lang.String ident)
           
(パッケージプライベート)  void othersInit(FirList cList, Node fmt)
           
(パッケージプライベート)  void readInit(FirList cList, Node fmt, boolean fmt_given)
           
(パッケージプライベート)  void select_function()
           
(パッケージプライベート)  void writeInit(FirList cList)
           
 
クラス java.lang.Object から継承したメソッド
clone, equals, finalize, getClass, hashCode, notify, notifyAll, toString, wait, wait, wait
 

フィールドの詳細

fHir

FirToHir fHir

hir

HIR hir

sym

Sym sym

fTypeUtil

TypeUtility fTypeUtil

fHirUtil

HirUtility fHirUtil

fESMgr

ExecStmtManager fESMgr

read_unit

boolean read_unit

read_unit_internal

boolean read_unit_internal

read_fmt

boolean read_fmt

read_rec

boolean read_rec

read_err

boolean read_err

read_end

boolean read_end

read_iostat

boolean read_iostat

is_listed

boolean is_listed

read_file

boolean read_file

read_status

boolean read_status

read_access

boolean read_access

read_form

boolean read_form

read_recl

boolean read_recl

read_blank

boolean read_blank

read_exist

boolean read_exist

read_opened

boolean read_opened

read_number

boolean read_number

read_named

boolean read_named

read_name

boolean read_name

read_sequential

boolean read_sequential

read_direct

boolean read_direct

read_formatted

boolean read_formatted

read_unformatted

boolean read_unformatted

read_nextrec

boolean read_nextrec

is_inquire

boolean is_inquire

unit_

Exp unit_

rec_

Exp rec_

iostat_

Exp iostat_

err_

int err_

fmt_str_

java.lang.String fmt_str_

fmt_

Exp fmt_

i_file

Exp i_file

i_filelen

Exp i_filelen

i_status

Exp i_status

i_access

Exp i_access

i_accesslen

Exp i_accesslen

i_form

Exp i_form

i_formlen

Exp i_formlen

i_recl

Exp i_recl

i_blank

Exp i_blank

i_blanklen

Exp i_blanklen

i_exist

Exp i_exist

i_opened

Exp i_opened

i_number

Exp i_number

i_named

Exp i_named

i_name

Exp i_name

i_namelen

Exp i_namelen

i_sequential

Exp i_sequential

i_sequentiallen

Exp i_sequentiallen

i_direct

Exp i_direct

i_directlen

Exp i_directlen

i_formatted

Exp i_formatted

i_formattedlen

Exp i_formattedlen

i_unformatted

Exp i_unformatted

i_unformattedlen

Exp i_unformattedlen

i_nextrec

Exp i_nextrec

func_do

Exp func_do

func_s

Exp func_s

func_e

Exp func_e

read_or_write_char

java.lang.String read_or_write_char
コンストラクタの詳細

I77Utils

I77Utils(FirToHir fth)
メソッドの詳細

writeInit

void writeInit(FirList cList)

readInit

void readInit(FirList cList,
              Node fmt,
              boolean fmt_given)

openInit

void openInit(FirList cList)

closeInit

void closeInit(FirList cList)

inquireInit

void inquireInit(FirList cList)

othersInit

void othersInit(FirList cList,
                Node fmt)

get_type_cilist

Type get_type_cilist()
declare cilist at global scope
 typedef struct
 {	flag   cierr;  // int
    ftnint ciunit; // int
    flag   ciend;  // int
    char  *cifmt;  // char *
    ftnint cirec;  // int
  } cilist;
 


get_type_icilist

Type get_type_icilist()
declare icilist at global scope
 typedef struct
 {
   flag icierr;   // int
   char *iciunit; // char *
   flag iciend;   // int
   char *icifmt;  // char *
   ftnint icirlen;// int
   ftnint icirnum;// int
 } icilist;
 


get_type_olist

Type get_type_olist()
declare olist at global scope
             typedef struct
             {	flag   oerr;    // int
             ftnint ounit;   // int
             char  *ofnm;    // char *
             ftnlen ofnmlen; // int
             char  *osta;    // char *
             char  *oacc;    // char *
             char  *ofm;     // char *
             ftnint orl;     // int
             char  *oblnk;   // char *
             } olist;
 


get_type_cllist

Type get_type_cllist()
declare cllist at global scope
   typedef struct{
 	  flag   cerr;   // int
      ftnint cunit;  // int
      char  *csta;   // char *
    } cllist;
 


get_type_inlist

Type get_type_inlist()
declare inlist at global scope
   typedef struct
   {
   flag inerr;
   ftnint  inunit;
   char   *infile;
   ftnlen  infilen;
   ftnint *inex;      //parameters in standard's order
   ftnint *inopen;
   ftnint *innum;
   ftnint *innamed;
   char   *inname;
   ftnlen  innamlen;
   char   *inacc;
   ftnlen  inacclen;
   char   *inseq;
   ftnlen  inseqlen;
   char   *indir;
   ftnlen  indirlen;
   char   *infmt;
   ftnlen  infmtlen;
   char   *inform;
   ftnint  informlen;
   char   *inunf;
   ftnlen  inunflen;
   ftnint *inrecl;
   ftnint *innrec;
   char   *inblank;
   ftnlen  inblanklen;
   } inlist;
   


get_type_alist

Type get_type_alist()
declare alist at global scope
             // rewind, backspace, endfile
             typedef struct
             {	flag aerr;
             ftnint aunit;
             } alist;
 


ci_unit

boolean ci_unit(Node t)

ci_fmt

boolean ci_fmt(Node n)

ci_rec

boolean ci_rec(Node t)

ci_iostat

boolean ci_iostat(Node t)

ci_err

boolean ci_err(Node t)

ci_end

boolean ci_end(Node t)

ci_file

boolean ci_file(Node t)

ci_status

boolean ci_status(Node t)

ci_access

boolean ci_access(Node t)

ci_form

boolean ci_form(Node t)

ci_recl

boolean ci_recl(Node t)

ci_blank

boolean ci_blank(Node t)

ci_exist

boolean ci_exist(Node t)

ci_opened

boolean ci_opened(Node t)

ci_number

boolean ci_number(Node t)

ci_named

boolean ci_named(Node t)

ci_name

boolean ci_name(Node t)

ci_sequential

boolean ci_sequential(Node t)

ci_direct

boolean ci_direct(Node t)

ci_formatted

boolean ci_formatted(Node t)

ci_unformatted

boolean ci_unformatted(Node t)

ci_nextrec

boolean ci_nextrec(Node t)

check_control_information

void check_control_information(FirList ciList)

check_control_information_for_open

void check_control_information_for_open(FirList ciList)

check_control_information_for_close

void check_control_information_for_close(FirList ciList)

check_control_information_for_inquire

void check_control_information_for_inquire(FirList ciList)

check_control_information_for_others

void check_control_information_for_others(FirList ciList)

select_function

void select_function()

io_start

Stmt io_start()

io_end

ExpStmt io_end()

get_lio_type

int get_lio_type(Type rt)
These parameterss is followed by macro "TY*" in "libI77/lio.h".
   #define TYADDR  1
   #define TYSHORT 2
   #define TYLONG  3
   #define TYREAL  4
   #define TYDREAL 5
   #define TYCOMPLEX  6
   #define TYDCOMPLEX 7
   #define TYLOGICAL  8
   #define TYCHAR 9
   #define TYSUBR 10
   #define TYINT1 11
   #define TYLOGICAL1 12
   #define TYLOGICAL2 13
   #ifdef Allow_TYQUAD
   #undef TYQUAD
   #define TYQUAD 14
   #endif
   


io_do

ExpStmt io_do(Node n)

dolist

Stmt dolist(Node n)

open

Stmt open()

close

Stmt close()

inquire

Stmt inquire()

others

Stmt others(java.lang.String ident)

dp

void dp(java.lang.String str)

error

void error(java.lang.String msg)