Re: g77, cygwin, Win XP Pro, CALL System(Command, Status)

Re: g77, cygwin, Win XP Pro, CALL System(Command, Status)

[Lars Steinke]

Hi,

if I compile
      CALL System('cls')
on Win98. It works on 98 and the same program works on XP too (win-XP-shell).


If I try to run the ("XP"-)program in the cygwin-shell (XP-OS):

bash: a.exe: command not found

?


How can I test if the routine CALL System works correct?
Is it possible that the routine does not send the 'command' to the active win-XP-shell?

Lars



-----------------
>Hi Lars,
>
> > I guess the routine CALL System does not work?
>
>Hmmm, maybe.
>
>There is no "cls" application, nor "dir" application.  Both of those are
>cooked into the CMD.EXE shell.
>
> >BTW: clear is a unix-command. Can it work in a dos-shell with cygwin?
>
>I presumed your shell was the CygWin bash shell, since you mentioned
>CygWin.  Since clear (or more appropriately, clear.exe in CygWin) is an
>application, I was hoping it'd work in this situation.  But alas.
>
>I am surprised that the X3.64 "ESC [ 2 J" sequence didn't work.  The
>console you must be working with must not be "ANSI.SYS" savvy.  Alas and alack!
>
>Hmmm, I'm not a FORTRAN guy, so I don't have any more tricks up my sleeve
>that'd be appropriate.  (Unless there's an NCurses analog for FORTRAN...)
>
>Sorry,
>--Eljay
>
>

Re: g77, cygwin, Win XP Pro, CALL System(Command, Status)

[Eljay Love-Jensen]

Hi Lars,

 >How can I test if the routine CALL System works correct?

I do not know.  I am not familiar with FORTRAN or the vagaries of its CALL 
System.  I suspect that CALL System is very platform dependent.

 >Is it possible that the routine does not send the 'command' to the active 
win-XP-shell?

I would expect that the CALL System command should launch a brand new 
shell, not interact with the active win-XP-shell.

But I'm beyond my knowledge, so it's utter speculative guesswork.

Sorry,
--Eljay

Re: g77, cygwin, Win XP Pro, CALL System(Command, Status)

[Toon Moene]

Eljay Love-Jensen wrote:

> Hi Lars,
> 
>  >How can I test if the routine CALL System works correct?
> 
> I do not know.  I am not familiar with FORTRAN or the vagaries of its 
> CALL System.  I suspect that CALL System is very platform dependent.
> 
>  >Is it possible that the routine does not send the 'command' to the 
> active win-XP-shell?
> 
> I would expect that the CALL System command should launch a brand new 
> shell, not interact with the active win-XP-shell.
> 
> But I'm beyond my knowledge, so it's utter speculative guesswork.

The following works on Linux (actually, Debian test):

$ cat steinke.f
       CALL SYSTEM('clear')
       END
$ g77 steinke.f
$ ./a.out
<clears screen>

So it basically works.  Now why it doesn't work on Windows is beyond me, 
but I have to work daily with people who use Windows and most of what is 
happening to them is incomprensible (both by them and by me).

-- 
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG  Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
GNU Fortran 95: http://gcc.gnu.org/fortran/ (under construction)

Re: g77, cygwin, Win XP Pro, CALL System(Command, Status)

[Lars Steinke]

Hi,

the answer to my problem:

http://sources.redhat.com/ml/cygwin/2004-03/msg00887.html


Lars

Re: g77, cygwin, Win XP Pro, CALL System(Command, Status)

[Lars Steinke]

Hi,

first of all: thanks a lot for your answers!

I have revised my PATH and now it is possible to do the following:

      write(*,*)'1'
      pause
      call system('clear')
      write(*,*)'2'
      pause
      end

It works (Win-XP-shell)!

..but

if I use:

      call system('cls')

I get the following (new) message:

cls: not found

If I write the cls-command manually in the Win-XP-shell, it works.
If my program tries to invoke the cls command in the Win-XP-shell it does not work?


Thanks, Lars

Re: g77, cygwin, Win XP Pro, CALL System(Command, Status)

[Eljay Love-Jensen]

Hi Lars,

 > I guess the routine CALL System does not work?

Hmmm, maybe.

There is no "cls" application, nor "dir" application.  Both of those are 
cooked into the CMD.EXE shell.

 >BTW: clear is a unix-command. Can it work in a dos-shell with cygwin?

I presumed your shell was the CygWin bash shell, since you mentioned 
CygWin.  Since clear (or more appropriately, clear.exe in CygWin) is an 
application, I was hoping it'd work in this situation.  But alas.

I am surprised that the X3.64 "ESC [ 2 J" sequence didn't work.  The 
console you must be working with must not be "ANSI.SYS" savvy.  Alas and alack!

Hmmm, I'm not a FORTRAN guy, so I don't have any more tricks up my sleeve 
that'd be appropriate.  (Unless there's an NCurses analog for FORTRAN...)

Sorry,
--Eljay

Re: g77, cygwin, Win XP Pro, CALL System(Command, Status)

[Lars Steinke]

Hi Eljay,

thanks!
'clear' and 'ESC [ 2 J' do not work.
I have tried 'dir'. It does not work too.
I guess the routine CALL System does not work?
BTW: clear is a unix-command. Can it work in a dos-shell with cygwin?

Lars



-----------------
>Hi Lars,
>
>Try:
>
>CALL System('clear')
>
>Or you could just send the X3.64 escape sequence: ESC [ 2 J
>
>HTH,
>--Eljay
>
>

Re: g77, cygwin, Win XP Pro, CALL System(Command, Status)

[Eljay Love-Jensen]

Hi Lars,

Try:

CALL System('clear')

Or you could just send the X3.64 escape sequence: ESC [ 2 J

HTH,
--Eljay

g77, cygwin, Win XP Pro, CALL System(Command, Status)

[Lars Steinke]

Hello,

I am using g77 (cygwin, Win XP Pro) and I would like to pass a command (e.g. 'cls') to the dos-shell.

      CALL System('cls')

do not work.

I I use

      CALL System('cls', k)

the returned value of k is

127

Can you help me?


Thanks, Lars