Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!bloom-beacon!hermes!dzenc
From: dzenc@hermes.ai.mit.edu (Daniel Zenchelsky)
Newsgroups: comp.sys.amiga
Subject: "mv" (move) command
Message-ID: <3312@hermes.ai.mit.edu>
Date: 25 Mar 89 00:25:41 GMT
Reply-To: dzenc@hermes.UUCP (Daniel Zenchelsky)
Organization: The MIT AI Lab, Cambridge, MA
Lines: 61

Ok. Heres a little script a threw together the other night after getting
upset with the AmigaDOS 1.3 rename command...

------ CUT HERE -------

.key pat,TO

IF <pat> EQ ""
SKIP USAGE
ENDIF

IF <TO> EQ ""
SKIP USAGE
ENDIF

failat 21
rename > nil: <pat> <TO>
IF FAIL
assign temp<$$>: <TO>
IF NOT FAIL
list >t:q<$$> <pat> lformat="rename *"%s%s*" temp<$$>:%s"
IF NOT FAIL
execute t:q<$$>
ELSE
echo "<pat> not found"
ENDIF
ENDIF
ENDIF
SKIP DONE

LAB USAGE
ECHO ""
ECHO "mv - By Daniel Zenchelsky"
ECHO ""
ECHO " (1) mv [DIR]FILE [to] [DIR]FILE "
ECHO " (2) mv FILE [to] DIR "
ECHO " (3) mv PATTERN [to] DIR "
ECHO ""

LAB DONE
failat 10
assign temp<$$>:
; single file rename, single file move, or multiple file move


--------------

Any comments? Suggestions for improvement?

Have Fun.

-Dan

+-----------------------------------------------------------+
|  ______                                                   |
| ||   |o|  Daniel Zenchelsky  --  dzenc@hermes.ai.mit.edu  |
| ||___| |                                                  |
| |   _  |  "Yes, but every time I try to see things your   |
| \_[]_|_|   way, I get a headache."                        |
|                                                           |
+-----------------------------------------------------------+