Return-Path: Delivered-To: apmail-commons-commits-archive@minotaur.apache.org Received: (qmail 14058 invoked from network); 4 Oct 2010 02:42:03 -0000 Received: from unknown (HELO mail.apache.org) (140.211.11.3) by 140.211.11.9 with SMTP; 4 Oct 2010 02:42:03 -0000 Received: (qmail 69329 invoked by uid 500); 4 Oct 2010 02:42:03 -0000 Delivered-To: apmail-commons-commits-archive@commons.apache.org Received: (qmail 69134 invoked by uid 500); 4 Oct 2010 02:42:01 -0000 Mailing-List: contact commits-help@commons.apache.org; run by ezmlm Precedence: bulk List-Help: List-Unsubscribe: List-Post: List-Id: Reply-To: dev@commons.apache.org Delivered-To: mailing list commits@commons.apache.org Received: (qmail 69127 invoked by uid 99); 4 Oct 2010 02:42:01 -0000 Received: from nike.apache.org (HELO nike.apache.org) (192.87.106.230) by apache.org (qpsmtpd/0.29) with ESMTP; Mon, 04 Oct 2010 02:42:01 +0000 X-ASF-Spam-Status: No, hits=-2000.0 required=10.0 tests=ALL_TRUSTED X-Spam-Check-By: apache.org Received: from [140.211.11.4] (HELO eris.apache.org) (140.211.11.4) by apache.org (qpsmtpd/0.29) with ESMTP; Mon, 04 Oct 2010 02:41:58 +0000 Received: by eris.apache.org (Postfix, from userid 65534) id CF0DD23889EB; Mon, 4 Oct 2010 02:41:36 +0000 (UTC) Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit 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 -0000 To: commits@commons.apache.org From: sebb@apache.org X-Mailer: svnmailer-1.0.8 Message-Id: <20101004024136.CF0DD23889EB@eris.apache.org> X-Virus-Checked: Checked by ClamAV on apache.org 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