
# OSLIB ܿȤ

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

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

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

ޥɥ饤ˤ륪ץλǽˤ뤿ˤ, OSQARN, 
OSGARG ܿƤʤФʤʤ. ޥ˥奢ݤ
, Ρ֥ޥɥ饤ˤ륪ץλ굡ǽפѤƤ
Τ, Υ롼ܿƤʤȥޥ˥奢Ǥ
ʤ. 

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

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

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

ʲ, 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
