# OSLIB ܿȤ

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

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

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

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

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

OSQARN, OSGARG, OSABRT ˤĤƤ, make κ, ȥåץǥ쥯ȥˤ 
Mkinclude  OSLIB  sun 뤤 others Τɤ餫ꤹ뤳
ˤä򤵤.

# 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
