Home > Archive > Clipper > March 2007 > SWPRUNCMD
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
|
|
| Scott Burke 2007-03-01, 6:55 pm |
| I am trying to convert an old clipper program to xharbour. Amoung my many
problems is
that I need a replacement for SWPRUNCMD.
I know that SWPRUNCMD is a blinker command. Is there an xharbour equal?
The command is used like this:
case choice = 5 .OR. LastKey() = K_ESC
exit
case choice = 1
swpruncmd(rt_local, 80, "", "")
case choice = 2
swpruncmd(rt_net1, 80, "", "")
case choice = 3
swpruncmd(rt_net2, 80, "", "")
case choice = 4
swpruncmd(rt_net3, 80, "", "")
endcase
| |
|
| Dear Scott Burke:
On Mar 1, 9:30 am, "Scott Burke" <Sbu...@magsonline.com> wrote:
> I am trying to convert an old clipper program
> to xharbour. Amoung my many problems is that I
> need a replacement for SWPRUNCMD.
> I know that SWPRUNCMD is a blinker command. Is
> there an xharbour equal?
>
> The command is used like this:
> case choice = 5 .OR. LastKey() = K_ESC
> exit
> case choice = 1
> swpruncmd(rt_local, 80, "", "")
> case choice = 2
> swpruncmd(rt_net1, 80, "", "")
> case choice = 3
> swpruncmd(rt_net2, 80, "", "")
> case choice = 4
> swpruncmd(rt_net3, 80, "", "")
> endcase
Just run(). You could create a wrapper to set / restore the DOS path
and TMP / TEMP environments inside your own function swpruncmd(). You
no longer care about freeing memory (the 80 above), since the OpSys
takes care of this overhead.
David A. Smith
| |
| Scott Burke 2007-03-01, 6:55 pm |
| so instead of swpruncmd(rt_local, 80, "", "") do RUN(rt_local) ???
I will give it a try.
Scott Burke
"dlzc" <dlzc1@cox.net> wrote in message
news:1172768565.628452.297070@k78g2000cwa.googlegroups.com...
> Dear Scott Burke:
>
> On Mar 1, 9:30 am, "Scott Burke" <Sbu...@magsonline.com> wrote:
>
> Just run(). You could create a wrapper to set / restore the DOS path
> and TMP / TEMP environments inside your own function swpruncmd(). You
> no longer care about freeing memory (the 80 above), since the OpSys
> takes care of this overhead.
>
> David A. Smith
>
| |
|
| Dear Scott Burke:
On Mar 1, 11:01 am, "Scott Burke" <Sbu...@magsonline.com> wrote:
>
> Scott Burke
>
> "dlzc" <d...@cox.net> wrote in message
>
> news:1172768565.628452.297070@k78g2000cwa.googlegroups.com...
>
>
>
[color=darkred]
> so instead of swpruncmd(rt_local, 80, "",
> "") do RUN(rt_local) ???
> I will give it a try.
I would start with:
function swpruncmd
parameters cRunName, nWasted, cPath, cTemp
return run( cRunName )
.... and test and handle cPath and cTemp as needed.
David A. Smith
|
|
|
|
|