
# OSLIB ܿȤ

OSLIB Τˤϥڥ졼ƥ󥰥ƥ˰¸ʲΤ褦ʥ롼
ޤޤƤΤ, Ϥ˱ܿƤɬפ. 

  OSEXEC(CMD)          : CMD Ϳ줿ƥॳޥɤ¹Ԥ. 
  OSGENV(CENAME,CEVAL) : CENAME Ȥ̾δĶѿͤ. 
  OSQARN(N)            : ޥɥ饤θĿ. 
  OSGARG(N,CHAR)       : N ܤΥޥɥ饤ͤ. 
  OSABRT               : λ򤪤ʤ. 

Υ롼, ̤˥ץʥʵǽ¸뤿ΤΤǤ, 
ߡ롼(֤٤ͤĤΤ⤢Τդ뤳)Ȥưܿ
Ƥ褤褦ʥ롼¿. 路ϡMATH1ץޥ˥奢򻲾Ȥ
.

ޥɥ饤ˤ륪ץλǽˤ뤿ˤ, OSQARN, 
OSGARG ܿƤʤФʤʤ. ޥ˥奢ݤ
, Ρ֥ޥɥ饤ˤ륪ץλ굡ǽפѤƤ
Τ, Υ롼ܿƤʤȥޥ˥奢Ǥ
ʤ. (: ޥ˥奢˴ؤ嵭εҤ, ޥ˥奢뤬 TeX Ȥ
ܥѡ˴ޤޤƤλƤ. )

OSEXEC, OSGENV, OSABRT ˤĤƤ, Υǥ쥯ȥǼ줿 C 
ǵҤץ osexec.c, osgenv.c, osabrt.c ɸŪѤ.

OSQARN ˤĤƤ, make κ, ȥåץǥ쥯ȥˤ Mkinclude 
 OSQARN  f2003 , iargc 뤤 dummy Τɤ줫ꤹ뤳Ȥˤä
. iargc ϥޥɥ饤ΰοƱ̾Υӥ롼󤬤
˻ꤹ. ʤ dummy Ȥ. f2003  Fortran2003Υ롼
ѤǤ˻Ȥ롣


OSGARG ˤĤƤ, make κ, ȥåץǥ쥯ȥˤ Mkinclude 
 OSGARG  f2003, getarg 뤤 dummy Τɤ줫ꤹ뤳Ȥˤä
. getarg ޥɥ饤ΰͤƱ̾Υӥ롼
˻ꤹ. ʤ dummy Ȥ. f2003  Fortran2003Υ롼
ѤǤ˻Ȥ롣


HITACHIΥեȥ iargc,getarg εưۤʤΤդɬס
FORTRANˤƤϥޥɥ饤˥ץ̾ϴޤޤʤHITACHI
FORTRANCƱ褦˰ܤ˥ץ̾äƤ롣
ξ硢Ŀ1ƥޥɥ饤ֹ1­ư褦ˤ
¾ΥץƱ褦ư롣
ޤץǤFORTRANƱ褦ˤ뤳ȤǤ뤬
ξ硢¹Իˤ⥪ץꤷʤФʤΤդɬס
ˤƤ⡢ѥΥɥȤ褯ɤǰܿ뤳ȡ

OSQARN, OSGARG , դĤ configure ˤäƼưŪꤵ. 

ʲ, OSLIB Υ롼 Sun FORTRAN 1.4 ǵҤ, ߡ롼
򼨤. 

# Sun FORTRAN 1.4 ǵҤ

*-----------------------------------------------------------------------
*     EXECUTE OS COMMAND
*-----------------------------------------------------------------------
      SUBROUTINE OSEXEC(CMD)

      CHARACTER CMD*(*)


      CALL SYSTEM(CMD)

      END
*-----------------------------------------------------------------------
*     GET VALUE OF ENVIRONMENT VARIABLES
*-----------------------------------------------------------------------
      SUBROUTINE OSGENV(CENAME, CEVAL)

      CHARACTER CENAME*(*), CEVAL*(*)


      CALL GETENV(CENAME, CEVAL)

      END
*-----------------------------------------------------------------------
*     NUMBER OF COMMAND LINE ARGUMENTS
*-----------------------------------------------------------------------
      SUBROUTINE OSQARN(N)

      N = IARGC()

      END
*-----------------------------------------------------------------------
*     GET THE N-TH COMMAND LINE ARGUMENT
*-----------------------------------------------------------------------
      SUBROUTINE OSGARG(N, CHAR)

      CHARACTER CHAR*(*)


      CALL GETARG(N, CHAR)

      END
*-----------------------------------------------------------------------
*     OSABRT
*-----------------------------------------------------------------------
      SUBROUTINE OSABRT

      INTEGER GETPID, KILL

*     / SEND SIGTRAP SIGNAL TO CURRENT PROCESS /

      IPID=GETPID()
      IRET=KILL(IPID,5)

      END

# ߡ롼

*-----------------------------------------------------------------------
*     EXECUTE OS COMMAND
*-----------------------------------------------------------------------
      SUBROUTINE OSEXEC(CMD)

      CHARACTER CMD*(*)

      END
*-----------------------------------------------------------------------
*     GET VALUE OF ENVIRONMENT VARIABLES
*-----------------------------------------------------------------------
      SUBROUTINE OSGENV(CENAME, CEVAL)

      CHARACTER CENAME*(*), CEVAL*(*)


      CEVAL=' '

      END
*-----------------------------------------------------------------------
*     NUMBER OF COMMAND LINE ARGUMENTS
*-----------------------------------------------------------------------
      SUBROUTINE OSQARN(N)

      N = 0

      END
*-----------------------------------------------------------------------
*     GET THE N-TH COMMAND LINE ARGUMENT
*-----------------------------------------------------------------------
      SUBROUTINE OSGARG(N, CHAR)

      CHARACTER CHAR*(*)


      CHAR=' '

      END
*-----------------------------------------------------------------------
*     OSABRT
*-----------------------------------------------------------------------
      SUBROUTINE OSABRT

      STOP
      END
