From:	CRDGW2::CRDGW2::MRGATE::"SMTP::KSUVAX1.CIS.KSU.EDU::MCCALL!NEWSMGR" 11-JUL-1990 05:07:49.34
To:	MRGATE::"ARISIA::EVERHART"
CC:	
Subj:	DCL to rename maps with "_" to "-"

Received:  by crdgw1.ge.com (5.57/GE 1.70)
	 id AA28476; Wed, 11 Jul 90 04:57:44 EDT
Resent-From: mccall!newsmgr@ksuvax1.cis.ksu.edu
Return-Path: mccall!newsmgr@ksuvax1.cis.ksu.edu
Received: from harris.cis.ksu.edu by DRYCAS.CLUB.CC.CMU.EDU; Wed, 11 Jul 90
 04:32 EST
Received: from ksuvax1.cis.ksu.edu by harris.cis.ksu.edu (5.58/SWH-2.03); id
 AA01184; Wed, 11 Jul 90 03:32:18 CDT
Received: by ksuvax1.cis.ksu.edu (5.59++/CIS1.1) id AA06463; Wed, 11 Jul 90
 03:32:14 CDT
Date: 11 Jul 90 00:46:46 GMT
From: fac2@dayton.saic.com
Subject: DCL to rename maps with "_" to "-"
To: vmsnet@DRYCAS.CLUB.CC.CMU.EDU
Message-Id: <1141.269a3eb6@dayton.saic.com>
Resent-Date: Wed, 11 Jul 90 04:33 EST
Resent-To: VMSNET-LIST@DRYCAS.CLUB.CC.CMU.EDU
Resent-Message-Id: <68108A28AD6F000DF3@DRYCAS.CLUB.CC.CMU.EDU>
Organization: Science Applications Intl. Corp., Dayton, Ohio
X-Envelope-To: everhart%arisia.decnet@CRDGW1.GE.COM
X-Vms-To: vmsnet@DRYCAS.CLUB.CC.CMU.EDU

	Following is a small command procedure that I created to rename the
map files referenced in section 8.13 of the DECUS UUCP v1.2 documentation
from the u.usa_*_* form to the u.usa-*-* form that DECUS UUCP understands.
The maps in the distribution are in a ZOO file with the underscores in the
filenames.  This can also be used when you get the maps from uunet and the untar
routine uses underscores to resolve multiple period occurances in filenames.
It is meant to be run from the UUCP_PATH_DATA: directory.

-- 
_____________________________________________________________________________
             ____ ____    ___
Earle Ake   /___ /___/ / /     Science Applications International Corporation
           ____//   / / /__                 Dayton, Ohio
-----------------------------------------------------------------------------
Internet: fac2%dayton.saic.com@uunet.uu.net    uucp: dayvb!fac2



$! File: UUCP_PATH_DATA:change_to-rename.com
$!
$! Renames all those "_" created by unZOOing the maps to the "-" notation
$! that DECUS uucp expects.
$!
$! Earle Ake  uucp: fac2@dayton.saic.com  dayvb!fac2
$!
$! July 10, 1990
$!
$	set default UUCP_PATH_DATA:
$!
$ GetMoreFiles:
$	file = f$search("*.*_*")
$	if file .eqs. "" then exit
$	device = f$parse(file,,,"device")
$	directory = f$parse(file,,,"directory")
$	file = file - device - directory
$	newfile = file
$ GetMoreUnderscores:
$	l = f$locate("_",newfile)
$	if l .ne. f$length(newfile)
$	then
$	  newfile[l,1] := "-"
$	  goto GetMoreUnderscores
$	else
$	  if file .nes. newfile then rename/log 'file' 'newfile'
$	endif
$	goto GetMoreFiles
