commons-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r1004089 - in /commons/proper/exec/trunk/src/test/scripts: environment.dcl forever.dcl ping.dcl printargs.dcl stdin.dcl
Date Mon, 04 Oct 2010 02:41:36 GMT
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



Mime
View raw message