Author: sebb
Date: Mon Oct 4 02:41:36 2010
New Revision: 1004089
URL: http://svn.apache.org/viewvc?rev=1004089&view=rev
Log:
Update VMS scripts
Added:
commons/proper/exec/trunk/src/test/scripts/environment.dcl (with props)
commons/proper/exec/trunk/src/test/scripts/ping.dcl (with props)
commons/proper/exec/trunk/src/test/scripts/printargs.dcl (with props)
commons/proper/exec/trunk/src/test/scripts/stdin.dcl (with props)
Modified:
commons/proper/exec/trunk/src/test/scripts/forever.dcl
Added: commons/proper/exec/trunk/src/test/scripts/environment.dcl
URL:
http://svn.apache.org/viewvc/commons/proper/exec/trunk/src/test/scripts/environment.dcl?rev=1004089&view=auto
==============================================================================
--- commons/proper/exec/trunk/src/test/scripts/environment.dcl (added)
+++ commons/proper/exec/trunk/src/test/scripts/environment.dcl Mon Oct 4
02:41:36 2010
@@ -0,0 +1,22 @@
+$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+$!
+$! Licensed to the Apache Software Foundation (ASF) under one or more
+$! contributor license agreements. See the NOTICE file distributed with
+$! this work for additional information regarding copyright ownership.
+$! The ASF licenses this file to You under the Apache License, Version 2.0
+$! (the "License"); you may not use this file except in compliance with
+$! the License. You may obtain a copy of the License at
+$!
+$! http://www.apache.org/licenses/LICENSE-2.0
+$!
+$! Unless required by applicable law or agreed to in writing, software
+$! distributed under the License is distributed on an "AS IS" BASIS,
+$! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+$! See the License for the specific language governing permissions and
+$! limitations under the License.
+$!
+$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+$!
+$! print the "environment" variables
+$!
+$ show logical
\ No newline at end of file
Propchange: commons/proper/exec/trunk/src/test/scripts/environment.dcl
------------------------------------------------------------------------------
svn:eol-style = native
Modified: commons/proper/exec/trunk/src/test/scripts/forever.dcl
URL:
http://svn.apache.org/viewvc/commons/proper/exec/trunk/src/test/scripts/forever.dcl?rev=1004089&r1=1004088&r2=1004089&view=diff
==============================================================================
--- commons/proper/exec/trunk/src/test/scripts/forever.dcl (original)
+++ commons/proper/exec/trunk/src/test/scripts/forever.dcl Mon Oct 4 02:41:36
2010
@@ -25,10 +25,14 @@ $ SET MESSAGE /NOFACILITY /NOIDENTIFIC
$!
$ SET NOON
$ ON CONTROL_Y THEN GOTO DONE
+$ close/nolog OUT
+$ open/write OUT [.target]forever.txt ! create the output file
$LOOP:
+$ write OUT "."
$ read /prompt="."/time_out=1 sys$command dummy
$ GOTO LOOP
$!
$DONE:
+$ close/nolog OUT
$! Restore message settings
$ SET MESSAGE 'l_msg'
\ No newline at end of file
Added: commons/proper/exec/trunk/src/test/scripts/ping.dcl
URL:
http://svn.apache.org/viewvc/commons/proper/exec/trunk/src/test/scripts/ping.dcl?rev=1004089&view=auto
==============================================================================
--- commons/proper/exec/trunk/src/test/scripts/ping.dcl (added)
+++ commons/proper/exec/trunk/src/test/scripts/ping.dcl Mon Oct 4 02:41:36 2010
@@ -0,0 +1,23 @@
+$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+$!
+$! Licensed to the Apache Software Foundation (ASF) under one or more
+$! contributor license agreements. See the NOTICE file distributed with
+$! this work for additional information regarding copyright ownership.
+$! The ASF licenses this file to You under the Apache License, Version 2.0
+$! (the "License"); you may not use this file except in compliance with
+$! the License. You may obtain a copy of the License at
+$!
+$! http://www.apache.org/licenses/LICENSE-2.0
+$!
+$! Unless required by applicable law or agreed to in writing, software
+$! distributed under the License is distributed on an "AS IS" BASIS,
+$! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+$! See the License for the specific language governing permissions and
+$! limitations under the License.
+$!
+$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+$!
+$! ping is started as subprocess which runs for '%1' seconds
+$!
+$ write sys$output "[ping.dcl] Blocking for %1 seconds ..."
+$ tcpip ping 127.0.0.1 /number_packets='P1 /wait=1
\ No newline at end of file
Propchange: commons/proper/exec/trunk/src/test/scripts/ping.dcl
------------------------------------------------------------------------------
svn:eol-style = native
Added: commons/proper/exec/trunk/src/test/scripts/printargs.dcl
URL:
http://svn.apache.org/viewvc/commons/proper/exec/trunk/src/test/scripts/printargs.dcl?rev=1004089&view=auto
==============================================================================
--- commons/proper/exec/trunk/src/test/scripts/printargs.dcl (added)
+++ commons/proper/exec/trunk/src/test/scripts/printargs.dcl Mon Oct 4
02:41:36 2010
@@ -0,0 +1,30 @@
+$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+$!
+$! Licensed to the Apache Software Foundation (ASF) under one or more
+$! contributor license agreements. See the NOTICE file distributed with
+$! this work for additional information regarding copyright ownership.
+$! The ASF licenses this file to You under the Apache License, Version 2.0
+$! (the "License"); you may not use this file except in compliance with
+$! the License. You may obtain a copy of the License at
+$!
+$! http://www.apache.org/licenses/LICENSE-2.0
+$!
+$! Unless required by applicable law or agreed to in writing, software
+$! distributed under the License is distributed on an "AS IS" BASIS,
+$! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+$! See the License for the specific language governing permissions and
+$! limitations under the License.
+$!
+$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+$!
+$! Print arguments
+$!
+$! Crude, but effective. Works even if argument contains un-doubled
double-quotes
+$ if f$length(P1) .gt. 0 then write sys$output P1
+$ if f$length(P2) .gt. 0 then write sys$output P2
+$ if f$length(P3) .gt. 0 then write sys$output P3
+$ if f$length(P4) .gt. 0 then write sys$output P4
+$ if f$length(P5) .gt. 0 then write sys$output P5
+$ if f$length(P6) .gt. 0 then write sys$output P6
+$ if f$length(P7) .gt. 0 then write sys$output P7
+$ if f$length(P8) .gt. 0 then write sys$output P8
\ No newline at end of file
Propchange: commons/proper/exec/trunk/src/test/scripts/printargs.dcl
------------------------------------------------------------------------------
svn:eol-style = native
Added: commons/proper/exec/trunk/src/test/scripts/stdin.dcl
URL:
http://svn.apache.org/viewvc/commons/proper/exec/trunk/src/test/scripts/stdin.dcl?rev=1004089&view=auto
==============================================================================
--- commons/proper/exec/trunk/src/test/scripts/stdin.dcl (added)
+++ commons/proper/exec/trunk/src/test/scripts/stdin.dcl Mon Oct 4 02:41:36
2010
@@ -0,0 +1,23 @@
+$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+$!
+$! Licensed to the Apache Software Foundation (ASF) under one or more
+$! contributor license agreements. See the NOTICE file distributed with
+$! this work for additional information regarding copyright ownership.
+$! The ASF licenses this file to You under the Apache License, Version 2.0
+$! (the "License"); you may not use this file except in compliance with
+$! the License. You may obtain a copy of the License at
+$!
+$! http://www.apache.org/licenses/LICENSE-2.0
+$!
+$! Unless required by applicable law or agreed to in writing, software
+$! distributed under the License is distributed on an "AS IS" BASIS,
+$! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+$! See the License for the specific language governing permissions and
+$! limitations under the License.
+$!
+$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+$!
+$! Read input and display is
+$!
+$ read /prompt="What's your name? : " sys$command answer
+$ write sys$output "Hello ''answer'"
\ No newline at end of file
Propchange: commons/proper/exec/trunk/src/test/scripts/stdin.dcl
------------------------------------------------------------------------------
svn:eol-style = native
