• Arts
• Business
• Computers
• Games
• Health
• Home
• Kids and Teens
• News
• Recreation
• Reference
• Regional
• Science
• Shopping
• Society
• Sports

OSCall

! Copyright (C) 2001 by Fortran Library ! ! This source may be freely copied, modified, or distributed so long as the original ! copyright statement remains intact. ! ! Suggestions for improvment to the original posted version are welcome. Comments ! should be sent to mailto:[email protected] ! ! Version: 2.0, 4 August 2001, 21:20:00 ! ! Purpose: OS Command line interface utility with immediate return or wait specified ! in milliseconds (routine automatically quotes the command string) ! ! System Requirements: Written for Digital/Compaq/Intel) Visual Fortran (x86) ! ! Routine Name: OSCall ! ! iWaitMS: default 32-bit (unsigned) integer wait value in milliseconds ! 0 = do not wait for completion ! >0 = Number of milliseconds to wait for completion of initiated process ! -1 = Infinite wait (wait for process completion) ! ! Command: character command string ! ! Args: optional character argument list string ! ! iRet: default integer return code ! -1 = Unable to initiate process ! 0 = Successful process initiate (if iWait = 0) ! 1 = Successful process initiate (Process terminated normally prior to wait period) ! 2 = Successful process initiate (Wait timeout occurred prior to process termination) ! 3 = Successful process initiate (Wait abandoned (unreleased mutex object)) ! 4 = Successful process initiate (Wait failed) ! subroutine OSCall(iWaitMS,Command,Args,iRet) use dflib use dfwin use dfwinty implicit none character(*), intent(in) :: Command !Command portion of the command line (i.e. the program name) character(*), intent(in) :: Args !Argument portion of the command line character(256) :: CmdLine !Work area for the command line integer, intent(in) :: iWaitMS !Process completion wait value in milliseconds integer, intent(out) :: iRet !Main return code integer :: iWRC !Return code for WaitForSingleObject integer :: iCRC !Return code for CreateProcess type (T_StartupInfo) :: StartInfo !CreatProcess parms type (T_Process_Information) :: ProcInfo !CreatProcess parms (created process info) ! ! Initialize ret

Contact Information