coins.ffront
Class 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.

Field Summary

(package private) int	err_
(package private) ExecStmtManager	fESMgr
(package private) FirToHir	fHir
(package private) HirUtility	fHirUtil
(package private) Exp	fmt_
(package private) java.lang.String	fmt_str_
(package private) TypeUtility	fTypeUtil
(package private) Exp	func_do
(package private) Exp	func_e
(package private) Exp	func_s
(package private) HIR	hir
(package private) Exp	i_access
(package private) Exp	i_accesslen
(package private) Exp	i_blank
(package private) Exp	i_blanklen
(package private) Exp	i_direct
(package private) Exp	i_directlen
(package private) Exp	i_exist
(package private) Exp	i_file
(package private) Exp	i_filelen
(package private) Exp	i_form
(package private) Exp	i_formatted
(package private) Exp	i_formattedlen
(package private) Exp	i_formlen
(package private) Exp	i_name
(package private) Exp	i_named
(package private) Exp	i_namelen
(package private) Exp	i_nextrec
(package private) Exp	i_number
(package private) Exp	i_opened
(package private) Exp	i_recl
(package private) Exp	i_sequential
(package private) Exp	i_sequentiallen
(package private) Exp	i_status
(package private) Exp	i_unformatted
(package private) Exp	i_unformattedlen
(package private) Exp	iostat_
(package private) boolean	is_inquire
(package private) boolean	is_listed
(package private) boolean	read_access
(package private) boolean	read_blank
(package private) boolean	read_direct
(package private) boolean	read_end
(package private) boolean	read_err
(package private) boolean	read_exist
(package private) boolean	read_file
(package private) boolean	read_fmt
(package private) boolean	read_form
(package private) boolean	read_formatted
(package private) boolean	read_iostat
(package private) boolean	read_name
(package private) boolean	read_named
(package private) boolean	read_nextrec
(package private) boolean	read_number
(package private) boolean	read_opened
(package private) java.lang.String	read_or_write_char
(package private) boolean	read_rec
(package private) boolean	read_recl
(package private) boolean	read_sequential
(package private) boolean	read_status
(package private) boolean	read_unformatted
(package private) boolean	read_unit
(package private) boolean	read_unit_internal
(package private) Exp	rec_
(package private) Sym	sym
(package private) Exp	unit_

Constructor Summary

(package private)

I77Utils(FirToHir fth)

Method Summary

(package private) void	check_control_information_for_close(FirList ciList)
(package private) void	check_control_information_for_inquire(FirList ciList)
(package private) void	check_control_information_for_open(FirList ciList)
(package private) void	check_control_information_for_others(FirList ciList)
(package private) void	check_control_information(FirList ciList)
(package private) boolean	ci_access(Node t)
(package private) boolean	ci_blank(Node t)
(package private) boolean	ci_direct(Node t)
(package private) boolean	ci_end(Node t)
(package private) boolean	ci_err(Node t)
(package private) boolean	ci_exist(Node t)
(package private) boolean	ci_file(Node t)
(package private) boolean	ci_fmt(Node n)
(package private) boolean	ci_form(Node t)
(package private) boolean	ci_formatted(Node t)
(package private) boolean	ci_iostat(Node t)
(package private) boolean	ci_name(Node t)
(package private) boolean	ci_named(Node t)
(package private) boolean	ci_nextrec(Node t)
(package private) boolean	ci_number(Node t)
(package private) boolean	ci_opened(Node t)
(package private) boolean	ci_rec(Node t)
(package private) boolean	ci_recl(Node t)
(package private) boolean	ci_sequential(Node t)
(package private) boolean	ci_status(Node t)
(package private) boolean	ci_unformatted(Node t)
(package private) boolean	ci_unit(Node t)
(package private) Stmt	close()
(package private) void	closeInit(FirList cList)
(package private) Stmt	dolist(Node n)
(package private) void	dp(java.lang.String str)
(package private) void	error(java.lang.String msg)
(package private) int	get_lio_type(Type rt) These parameterss is followed by macro "TY*" in "libI77/lio.h".
(package private) Type	get_type_alist() declare alist at global scope
(package private) Type	get_type_cilist() declare cilist at global scope
(package private) Type	get_type_cllist() declare cllist at global scope
(package private) Type	get_type_icilist() declare icilist at global scope
(package private) Type	get_type_inlist() declare inlist at global scope
(package private) Type	get_type_olist() declare olist at global scope
(package private) Stmt	inquire()
(package private) void	inquireInit(FirList cList)
(package private) ExpStmt	io_do(Node n)
(package private) ExpStmt	io_end()
(package private) Stmt	io_start()
(package private) Stmt	open()
(package private) void	openInit(FirList cList)
(package private) Stmt	others(java.lang.String ident)
(package private) void	othersInit(FirList cList, Node fmt)
(package private) void	readInit(FirList cList, Node fmt, boolean fmt_given)
(package private) void	select_function()
(package private) void	writeInit(FirList cList)

Methods inherited from class java.lang.Object

clone, equals, finalize, getClass, hashCode, notify, notifyAll, toString, wait, wait, wait

Field Detail

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

Constructor Detail

I77Utils

I77Utils(FirToHir fth)

Method Detail

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)