Conference hydra::amiga_v1

    ASH, the Amiga Sheel that comes with ARP 1.3 has a minor
    incompatability with SEDT. The ARP Shell uses the "$" symbol to
    expand environment variables. Unfortunately, SEDT uses the "$" symbol
    in the code for SEDT$DIR and SEDT$TMP. To get around this problem,
    I ZAPped SEDT and changed all occurrences of SEDT$DIR and SEDT$TMP
    with SEDT_DIR and SEDT_TMP. NewZap perfroms this operation very
    well, although it will not perform a search for a string that begins
    with $. A search of SEDT$ revealed all but one occurrence which
    I later found with a search for string DIR.
    
    At any rate ARP 1.3 is much improved over V1.1 and has a load of
    new functionality including the shell. Floopy-based users will
    appreciate the extremely compact code, greater power of the commands,
    and consistent user interface (like * wildcard). The ARP Shell is
    also much better than the AmigaDOS shell.
    
    Do leave comment in this note about how you like it. There is a
    comprehensive manual do out soon. Also, the installation process
    is totally automated.
    
    Paul
    

    Zoo complains about Invalid or corrupt archive.
    
    tom

    Ya gotta ZOO it on your Amiga ... not on VMS.

    I ran CVTARC U on it and it de-ZOO'd fine on VMS.  Thanks Paul.
    
    -steve

I got as far as printing out the docs and installing the commands and shell
last night. This is a very nice installation procedure! Now I have to set
up my startup and all to use the commands and shell, but the docs look good 
so far.
Dave

    The User's Guide has not been posted yet. The documentation supplied
    is really just an overview and some Shell information.
    
    Paul

    Well, as much as I would like to see Charlie and the ARP gang getting
    their act together, I allready found some incompatiblities (or should
    I say bugs???), too.
    
    The PROTECT command isn't 100% compatible, you can say "protect
    file a add" to add the archive bit with the CBM command, but ARP
    is much more persistent where the "a" is to be placed (after the
    "add").
    But what really pissed me off is that Charlie Heaths own TxED 2.01
    won't print anymore with the new library. There is obviously a major
    incompatibility in the new (IMHO still yucky) file requester.
    Maybe it will work with the announced 2.02 upgrade (should have
    been out since Feb.), but still....
    With all the numerous environment variables I also find it a very
    bad style not to release the complete package (documentation).
    Despite all the critics I find that ARP 1.3 is a major step in the
    right direction, too. Some of the commands (like mount) perform
    leagues better than their BCPL counterparts.
    
    BTW, to introduce myself, I'm the President of the Software Brewery.
    Programs like Tinfo, Remlib, AmiCron 2.5 etc... where brewed by
    us ;-). If ya folks got any questions or comments on 'em, just e-mail
    me.
    
    'nuff said,
    	<CB>
    
    Christian Balzer @ FRN

Correct, you need V2.02 of TexED which I believe is available.

    That's what I guessed, but it's been a long time since "early
    February", when TxED 2.02 was supposed to be shipping and it should
    have been an automatic update... Didn't made it over here 'till
    now.
    
    - <CB>

	Is there any way using ASH that you can tell it not to try to resolve
an alias?  Specifically, I want to use the default CD in a command in a script
file, but I have CD set as an alias for something else.  I've got it now using
C:CD which works, but causes a disk acces even though I've made C:CD resident
(with ARES).

Mark

       Paul, I keep getting "node unreachable" for DICKNS??
       
       Does anyone else have ARPREL13.ZOO in a public directory I could
       pull it from??
       
       Thanks
       
       Art
       

    I just installed ARP 1.3 this weekend.  I was impressed with how
    smooth and easy the installation was.  A couple of pluses for me
    is the full support of the * wild card, in particular in the RENAME
    command.  And even though it may be considered cosmetic I like getting
    the devices in sorted order from the INFO command.  I am looking
    forward to exploring the new features in ASH.

    One sore spot with ASH, trying to get certain special characters
    in scripts is very difficult. I tried to build scripts to do full
    and incremental backups for me using Matt Dillon's backup utility
    where the exclusion of files is done with a -d"*.foo*" switch. To
    write a logical for the asterix, I had to say ASTER="****" and luckily
    the command doesn't really require the " as there is no known way
    to do this. These two characters are not covered by the ' literal
    flag. After much frustration, I finally worked around this problem
    but it is pretty messy. 
    
    The end result was pretty good, I say full FULL_BACKUP and it gives
    me output files on my Winchester of the form FULL-dd-mmm-yy-BCK.nn
    that I can then transfer to floppy at a later time. ( much better
    than tending a backup for an hour with floppies only to have it
    fail because of a bad floppy ). INCREMENTAL_BACKUP gives files of
    the form INC-dd-mmm-yy-BCK.nn.  I'll post these if there is any
    interest.
    	
    	Dick

As advertised in -.1   These may look a little messy but getting by the *
bug was not fun.

	Dick
==============================================================================

; FULL_BACKUP procedure using ARP1.3 and Matt Dillon's backup
;    this places the resulting files in SYS: on your HD under the name
;    FULL-dd-mmm-yy-BCK.nn where they can be copied to floppy when you 
;    have time.  This assumes that you have spare on your HD for a compressed
;    backup of your system.
;
delete tempBCK.FOO
aster="****"
bckcmd1="backup -c -f800 -d"
bckcmd2="BCK."
bckcmd3=" SYS: "
bckcmd4="-oSYS:FULL-$(echo "$(echo "$(date)" len 18)" first 0 len 9)-BCK"
bckcmd="backup -A -s SYS:"
echo >>tempBCK.FOO "$bckcmd1$aster$bckcmd2$aster$bckcmd3$bckcmd4"
echo >>tempBCK.FOO "$bckcmd"
execute tempBCK.FOO



; INCREMENTAL_BACKUP procedure using ARP1.3 and Matt Dillon's backup
;    this places the resulting files in SYS: on your HD under the name
;    INC-dd-mmm-yy-BCK.nn where they can be copied to floppy when you 
;    have time.  This assumes that you have spare on your HD for a compressed
;    backup of your system.
;
delete tempBCK.FOO
aster="****"
bckcmd1="backup -U -c -f800 -d"
bckcmd2="BCK."
bckcmd3=" SYS: "
bckcmd4="-oSYS:INC-$(echo "$(echo "$(date)" len 18)" first 0 len 9)-BCK"
bckcmd="backup -A -s SYS:"
echo >>tempBCK.FOO "$bckcmd1$aster$bckcmd2$aster$bckcmd3$bckcmd4"
echo >>tempBCK.FOO "$bckcmd"
execute tempBCK.FOO

       I took the plunge and updated to ARP 1.3 on Saturday.  
       
       For the most part, it was a fairly smooth process.  I had been
       running a potpourri of AMIGADOS 1.3 and old ARP commands (as a
       result of upgrading to AMIGADOS 1.3 not too long ago) so had to be
       careful in editing my various startup files.  Editing and the
       checking - and rechecking - those files probably consumed the
       greater part of the 2 hours I estimate the process took. 
       
       After the editing was complete, I said a silent prayer, closed my
       eyes, and hit the Control-LAmiga-RAmiga keys.  Much to my surprise,
       when I opened them again (after a much shorter time than I was
       accustomed to due - I guess - to the fact that a number of the
       script commands are build into Ashell) I found that everything had
       loaded and seemed to be working fine.  This certainly speaks well
       of the ARP developers attempts at ensuring compatibility with
       AMIGADOS 1.3 and the previous version of ARP.
       
       I look forward to seeing the doc set.  HAS ANYONE ANY NEW
       INFORMATION ON ITS' AVAILABILITY?
       
       Art
       

     If anyone is using ARP 1.3 with CONMAN 1.3 and QMOUSE16,
     I sure would appreciate examples of your startup sequence(s) and/or
     configuration files. I am trying to get the Ash and conman features
     to appear with my QMOUSE popcli (left amiga/esc). Although I had
     thought the documentation was clear, I'm finding it assumes more
     than I know. 
     
     For example, QMOUSE documentation says anything except a NEWCLI must
     be RUN by the popcli.  At one point I thought I understood the
     difference between RUN and RUNBACK.  Now I see RUN >NIL: for QMOUSE,
     and ARP docs that imply lots of options.  Do I need to RUN ASHELL
     or not?  Even though I have managed to get some of this to work
     OK, I am sure I am reinventing some wheel or another.
     
     Thanks in advance,
     Dave

    In your s:startup-sequence ...
    
    runback >nil: -2 DH0:Tools/Qmouse -fs:qmouse.cfg
    

    In s:qmouse.cfg ...

    "-Ec:AShell >nil: CON:0/118/640/82/QMouse"   ; <Left Amiga><Esc for NewCLI
    
    
    Cheers,
    
    Paul

     Great! That's exactly what I wanted. Thanks
     DR

    Has the ARP 1.3 documentation appeared yet?  I have been waiting for it
    before installing ARP 1.3, and am getting tired of waiting.

    (Maybe I am just paranoid, but I would like to know exactly how all of
    the AmigaDos 1.3 features and old ARP features have been merged before
    I conclude that dropping in the new ARP version will work for me.  I am
    running a mixture, including in some cases both versions (with
    different names of course).)

	Paul

What about renaming all your AmigaDOS commands to have some prefix, so you
have both commands available. 

I use ARP with no problems. In most cases, ARP is better. But, believe
it or not, I actually needed the old AmigaDOS usage of "*" to be current
window once... And ARP makes it a wildcard :-}


John

    I installed Arp1.3 last night and had problems using More it complained
    about a checksum error however if you ran it, it was ok (I ARESed
    it first.
    	Also where exactly is the location of the PIP pipe handler...
    	I have tried zoo listing Conman ?
    
    		Pete
    

    So, you really don't have a problem with MORE.
    
    As far as the Pipe-Handler is concerned, you'll find it in the l
    directory of your V1.3 WorkBench disk.
    
    -Paul
    

    Oh Yes I do have a problem, and the Pipe Handler in the L directory
    does not support the PIP: device talked about in the Arp release
    notes OR does it ?   I'm refering to ASH by the way which appears
    to be part of the 1.3 release.
    
    	Also Arp 1.3 does not appear to like large RAD: devices or multiple
    copy .
                                  
    			Pete
    

    I believe the PIP handler you want is included with ConMan, which you
    can download from TAPE""::USER1:[AMIGA.FISH.FF194]C.ZOO.

    Thanks I got it off my Lattice 5.02 in the end..
    
    By the way I cured all my other problems thanks to the documentation
    
    ie RAD: neede 0 to reboot and More has to be ARESed with the NOCHECK
    qualifier..
    
    	Piping is great however it appears to add extra linefeeds any
    ideas ?
    
    		Pete
    

    Does anyone havea copy of ARPREL13.ZOO that I can download?  I looked
    in the "usual" places and did not see it.  Thanks from a VERY pleased
    new AMIGA user.  This machine is incredible!!!
    
    mark davis

WJG::AMIGA:ARPREL13.ZOO

JOhn

    I am having some difficulty with Ares/Resident usage with ARP. 
    There is a line in my old Startup-Sequence like this:
    
    	Resident CLI L:Shell-Seg SYSTEM Add
    
    If I leave this line out ARP seems to work OK ... but I may not
    have a resident CLI ???
    
    If I leave the line in things also appear to work OK (I can also
    use Sedt as the $s don't get in the way) but Ares gives values of
    zero on the usage report.  Presumably then I'm not getting full
    benefit of the Ares command.
    
    Can anyone straighten me out?

    Peter
    
    PS.  I'm invoking the AShell with the commands suggested in a previous
    a previous reply in this topic.

    The ARP documentation does go into this but, I did have some difficulty
    decyphering what was going on.
    
    First, most of the APR commands can be used from the standard Amiga
    Shell and CLI.  Which is what you get if you leave the command:
    
    	Resident CLI L:Shell-Seg SYSTEM Add
    
    in your startup file.  It is OK to run this way, but if you want to use
    the ARP shell (ASH), you must replace the above command with the one
    mentioned in the APR documentation.  The ARES command can then be used.
    
    Another major point is that the ARES commands CANNOT be contained in
    s:startup-sequence.  When you think about it this is obvious since that
    command file is being executed by the standard Amiga CLI.  So after the
    ASH shell-seg (sorry I don't remember the name) is made resident you
    must start ASH to execute the ARES commands.  I have all my ARES
    commands in a file s:startup-sequence-resident that I order executed
    with a RUNBACK command (again I would have to look at it again to see
    what the exact syntax is).  My startup is split across 3 command files,
    the third one is s:startup-sequence-background that starts things like
    MyMenu, Qmouse, and VirusX.

    Thanks, it appears that I haven't seen all the documentation.  I
    will have a look at the ASH docs and get the syntax from there.
    
    I would, however, appreciate a look at your startup sequences. 
    Perhaps you would post them here or mail me.

    Peter

    I should have some time to upload it this evening.  Remember to always
    have a fall back boot disk ready.  During my testing I had some setups
    that did not startup very well.  But I did not have a server problem.
    I would just Ctrl-D the startup and use the old CLI to edit my
    startup-sequence and try again.  

    
    Here is a copy of my startup procedure.  It is split across 4 files.
    While startup procedures are highly individualized and personal, I am
    willing to accept advice on what I have done.  If someone has a slick
    technique, I am sure we could all benefit.  The last change I made that
    I took me a while, was having MyMenu started without a problem.
    
    
;---------------------------------------------------------------
;		s:startup-sequence
;---------------------------------------------------------------
	c:SetPatch >NIL: ;patch system functions
cd c:
echo "Amiga Workbench disk.  Release 1.3 version 34.20*N"
SYS:System/FastMemFirst ; move C00000 memory to last in list
BindDrivers
SetClock load ;load system time from real time clock
addbuffers DH0: 28
;Set to the font we want to use
SYS:Util/setfont Pearl2 8
FF >NIL: -0 ;speed up Text
;resident CLI L:Shell-Seg SYSTEM pure add; activate Shell
resident CLI L:ASH SYSTEM pure add; activate ARP shell
;Shift control so the rest of the startup is under ASH
SYS:Util/runback >NIL: execute s:startup-sequence-ASH
endcli >NIL:

;---------------------------------------------------------------
;		s:startup-sequence-ASH
;---------------------------------------------------------------
addbuffers DH1: 28 DH2: 28 DH3: 28
Ares c:Assign c:CD c:MakeDir c:Mount c:Path c:Stack c:Wait
Mount newcon:
MakeDir ram:T ram:Env ram:Clipboards
Assign T: ram:T ENV: ram:Env CLIPS: ram:Clipboards
Mount aux: pipe: speak:
SYS:Util/runback >NIL: execute s:startup-sequence-resident
SYS:Util/runback >NIL: execute s:startup-sequence-background
SYS:System/SetMap usa1 ;Activate the ()/* on keypad
Path c: SYS:Util SYS:utilities SYS:system s: SYS:prefs add
Stack 20000
LoadWB delay  ;wait for inhibit to end before continuing
; Wait for the Workbench to be completly loaded, before we start MyMenu
wait 4
SYS:Util/MyMenu >NIL:
cd ram:
; Leave us in an active ASH shell
Ashell newcon:0/10/639/190/Ashell
endcli >NIL:

;---------------------------------------------------------------
;		s:startup-sequence-resident
;---------------------------------------------------------------
ares c:Ares c:Arun c:Ask c:Avail c:Copy c:Date c:Delete c:Dir
ares c:Echo c:Fault c:Info c:List c:Rename c:Run c:Status
ares c:Type SYSTEM:Util/ls SYSTEM:Utilities/more nocheck
assign CityDesk: PRODUCTS:CityDesk Data1: CityDesk:
assign LaserFonts: CityDesk:LaserFonts
assign DPaint: PRODUCTS:Dpaint Fantavision: PRODUCTS:Fantavision
assign "SS.NIB:" PRODUCTS:NIB MFF_Plus: PRODUCTS:MFF_Plus
assign WP: PRODUCTS:WP "Spell.Thes:" PRODUCTS:WP Print: PRODUCTS:WPprint
assign F18: REC:F18 Reach: REC:Reach mod: REC:Reach Shanghai: REC:Shanghai
assign StarTrek: REC:StarTrek StarTrek2: REC:StarTrek/ST2
endcli > NIL:

;---------------------------------------------------------------
;		s:startup-sequence-background
;---------------------------------------------------------------
; Start up our background tasks
SYSTEM:Util/NoClick
c:rexxmast
SYSTEM:Util/runback >NIL: -2 SYSTEM:Util/gomf2.2
SYSTEM:Util/runback >NIL: -2 SYSTEM:Util/FaccII
SYSTEM:Util/Facction -s -n 512 -c 512 -w off -l 1
c:wait 2
SYSTEM:Util/virusx 140 0
stack 4000
SYSTEM:Util/runback >NIL: -2 SYSTEM:Util/Qmouse -B-CM495-V20000-Ec:AShell
endcli > NIL:
    

  Below is my current startup sequence, in 3 files.  In my case I have 1.2
  ROMs so I must use a floppy to get my hard drives configured.  I've only
  had the hard disk for a week, so I haven't tried to optimize the hard
  disk portions very heavily.  It's so damn fast as it is, I don't mind an
  extra second or two...  8^)

  My system configuration:  B2000, 3 Megs RAM, HardFrame w/Quantum 105S.


;=================================================
; DF0:S/Startup-Sequence
;   Primary goal - get off floppy and onto hard drive ASAP!
;
Sys:SetPatch >NIL:                   ; Patch system functions
Sys:FastMemFirst                     ; Buffers, etc. to fast memory
Sys:BindDrivers                      ; Configure and mount HardFrame drives
DH0:c/cd RAM:                        ; Disconnect from floppy
DH0:c/Execute DH0:S/Startup-Sequence ; Transfer to startup on hard drive


;=================================================
; DH0:S/Startup-Sequence
;   Start AShell in small window to perform main system startup operations
;
DH0:c/Assign  SYS: DH0:  C: DH0:C  S: DH0:S  ; Make DH0: our "boot" device
c:Assign L: SYS:L  LIBS: SYS:LIBS  DEVS: SYS:DEVS  FONTS: SYS:FONTS
;  Yeah, I know I could have used DEFDISK, MOVESYS, etc. instead of Assign.
c:Echo "    Boot floppy may be removed now... "
FailAt 50                                    ; "Set NoOn"
c:Mount RAD:                                 ; Recover RAD:
c:cd RAM:                                    ; Just in case boot floppy forgot
c:ConMan -t                                  ; Use ConMan features
c:NewLook                                    ; Dress up windows
c:AShell "Con:0/100/640/45/Startup in progress..." s:StartupI    ; Goto AShell
EndCLI >NIL:


;=================================================
; DH0:S/StartupI
;   The main system startup procedure (via AShell)
;
FailAt 50                                    ; "Set NoOn"  (ASH built-in)
c:cd RAM:
c:Echo "A2000-HD Workbench w/ARP.  Release 1.3.2 version 34.20*N"
Sys:System/MergeMem >NIL:                    ; Merge 8-Up! memory blocks
c:Relabel Drive RAD: StickyRam               ; Christen ram disks
c:Relabel Drive RAM: RamDisk
c:AddBuffers DH0: 25  DH1: 25  DH2: 25       ; Spend some "cache"
c:SetClock Load                              ; Set system time
c:FF >NIL: -0                                ; Speed up text
c:Mount NewCon: Pipe: Pip: Cnc: Cnd: Cnx: Null: Aux: Speak:
c:Ares c:ARes c:List c:CD c:Mount c:Assign c:MakeDir c:Echo c:Execute c:Dir
c:Ares c:Info c:Copy c:Delete c:Rename c:Move
c:Assign Rexx: Sys:Rexx                      ; Where ARexx files live
If not exists Ram:T                          ; (IF is ASH built-in)
  c:MakeDir Ram:T
EndIf
c:MakeDir Ram:Env Ram:ClipBoards
c:Assign T: Ram:T ENV: Ram:Env CLIPS: Ram:ClipBoards
Sys:System/SetMap USA1                      ; Activate the ()/* on keypad
c:Copy Sys:RamDisk.info RAD:Disk.info       ; Ram disk icon for workbench
c:Copy Sys:RamDisk.info RAM:Disk.info
; Set path for Workbench
c:Path Reset Ram: RAD: C: Sys:Utilities Sys:System S: Sys:Prefs Sys: 
If exists DH0:Setup
  c:Execute DH0:Setup                        ; Applications on DH0:
EndIf
If exists DH1:Setup
  c:Execute DH1:Setup                        ; Applications on DH1:
EndIf
If exists DH2:Setup
  c:Execute DH2:Setup                        ; Applications on DH2:
EndIf
;If exists DH3:Setup
;  c:Execute DH3:Setup                       ; ... on DH3:  (currently unused)
;EndIf
c:SetLace                                    ; Use interlaced screens
c:LoadWB Delay                               ; Wait for Workbench to initialize
c:SetReqText s:ReqText.text                  ; Trap "TASK HELD" requests
c:DMouse -c2 -t2 -w1 -A0 -C c:AShell Cnd:0/20/560/160/Ashell
c:MyMenu >NIL:                               ; "Tools" menu
c:RexxMast                                   ; Start ARexx server
;c:SnipIt                                    ; Not working...?
c:RunBack >NIL: Sys:System/FaccII            ; Floppy disk cache
EndCLI >NIL:                                 ; (ASH built-in)

    re: -1
    
    That 105Meg Quantum with a Hardframe must be an awesome combo.
    
    I do like the idea of a seperate Setup for each drive partition.
    
    I didn't see the line to make l:ASH resident for the AShell.  I guess
    you could do without it, but isn't it needed for the ASH part to be
    shared if you have multiple shells active?
    
    I thought that it would be useful to have the Addbuffers for DH0:
    earlier in the startup to speed up the startup operation.
    
c:SetReqText s:ReqText.text                  ; Trap "TASK HELD" requests
    I am not framiliar with the above utility, could you give me a breif
    description, and how is it available? (i.e. is it on TAPE:: or NORSE::)
    
    Did you consider using the Run or Runback to execute parts of the
    startup operation multi-tasking?  Before I had a hard disk, this did
    not seem to be much of an advantage, but with the Hardframe it seems
    like a win.
    
    Did you have any timing problems with starting MyMenu?  I sure did,
    sometimes MyMenu would not be active after a boot.  It took a Wait 4
    between LoadWB and MyMenu to get it to always work.
    
    Thanks for the posting.
    
    

First, an AShell question:  Can you make AShell *NOT* think that a $ is
for a variable name?  I was trying to assign Sedt$Dir and it kept looking
for a variable and messing it up.  I finally gave up and ZAPped SEDT to use
Sedt_Dir.  (Brute force, but it works. :-)

re: -1
    
>    I didn't see the line to make l:ASH resident for the AShell.  I guess
>    you could do without it, but isn't it needed for the ASH part to be
>    shared if you have multiple shells active?
 
You only need to do this to have the Commodore NewShell commmand use AShell.
Otherwise, the first AShell loads and makes it resident for you.  (That's in
the ASH docs somewhere...)

>    Did you consider using the Run or Runback to execute parts of the
>    startup operation multi-tasking?  Before I had a hard disk, this did
>    not seem to be much of an advantage, but with the Hardframe it seems
>    like a win.
 
Neat idea.  I hadn't though of that since getting the hard disk.

>    Did you have any timing problems with starting MyMenu?  I sure did,
>    sometimes MyMenu would not be active after a boot.  It took a Wait 4
>    between LoadWB and MyMenu to get it to always work.

I was going to ask about that.  Doesn't the "delay" on LoadWB cause it not
to return until the disks die down?  I don't have a wait after my LoadWB
anymore because that's what I thought it was doing.

...richard

    re: SetReqText
    This utility is described in topic 2203.0, original name was "SRT" but
    I changed mine to a more descriptive name.  I copied it from:
        WJG::AMIGA:SET-REQUESTER-TEXT.ZOO
    
    (Didn't see it anywhere on TAPE::)

    	I have ARP installed on my system but am finding many programs
    demand ARP library V39+. The version I have is 39.1 as near as I can
    tell. Is there a version that is V39+ and where can one find it ? I
    guess I am just a bit out of date on this.

    39.1 sure looks like 39+ to me. At least that is what I use.

    Re .28:
    
    John,
    
    Is WJG::AMIGA:ARPREL13.ZOO still a good address for the ARP 1.3
    distribution?  DECnet (at least here) claims that WJG:: is unknown.
    
    Bill

Yeah, WJG got disbanded when I moved to ZKO. It's now under the 
guise of DFS::

$ ls dfs::amiga:arp*

Directory DFS::DFS$DUA1:[AMIGA]

ARP-13.LN03;1           176/177     19-JUN-1989 09:40:47.00  (RWED,RWED,RE,R)
ARPDOC13.ZOO;1          148/150     10-OCT-1989 21:06:46.00  (RWED,RWED,RE,R)
ARPPRO13.ZOO;2          334/336      7-NOV-1989 17:01:21.00  (RWED,RWED,RE,R)
ARPREL13.ZOO;2          210/210     15-APR-1989 14:05:39.00  (RWED,RWED,RE,R)

Total of 4 files, 868/873 blocks.

>>$ ls dfs::amiga:arp*

`Funny, when I type ls on VMS I get some silly editor ...

Hmmm, a u*ix symbol definition for DIR - on STAR no less... %^} %^}

Dave 

:-)

$! Unix like commands for VMS
$!
$!  1. Name this file UNIX.COM
$!  2. Put the foillowing lines in your login.com file:
$!         
$!         $ cd       :== @unix.com cd
$!         $ ls       :== @unix.com ls
$!         $ cp       :== @unix.com cp
$!         $ mkdir    :== @unix.com mkdir
$!         $ rmdir    :== @unix.com rmdir
$!         $ push     :== @unix.com push
$!         $ pop      :== @unix.com pop
$!         $ dcl_debug == 0
$!
$!  3. Example usage:
$!
$!               cd ../test
$!               cd ,            !cd to previous dir
$!               cd .            !cd to home dir
$!               ls -l ..
$!               mkdir dev$scratch:/davis/tmp
$!               rmdir dev$scratch:/davis/tmp
$!               cp ../dcl/*.com ./ 
$!               push /davis/edit/emacs  
$!               pop
$!
$!    Any questions or comments should be directed to:
$!
$!       John E. Davis  [email protected]
$!
$ this_verify = f$verify (0)
$ if dcl_debug .eqs. 1 then set verify
$ goto 'p1'_label
$ cd_ls_exit:
$    if dcl_debug then set noverify
$    if this_verify then set verify
$    exit
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$!               ls [-a] [directory]
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$ ls_label: 
$ directory := directory
$ if ("''p2'" .eqs. "")
$ then
$   directory
$   goto cd_ls_exit
$ endif
$ if (f$extract(0,1,"''p2'") .eqs. "-")
$ then
$    if ("''p3'" .eqs. "")
$    then
$       dir = ""
$    else
$       UNIX_NAME = p3
$       gosub unix_2_vms
$       dir = VMS_NAME
$    endif
$    directory/date/size=all/protection 'dir'
$ else
$    UNIX_NAME = p2
$    gosub unix_2_vms
$    dir = VMS_NAME
$    directory 'VMS_NAME'
$ endif
$ goto cd_ls_exit
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$!       cd {[,] | [directory]}
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$ cd_label:
$  esc[0,8] = %X1B
$  current_dir = f$environment("DEFAULT")
$  new_dir = f$parse(f$environment("DEFAULT"))
$  if (p2 .eqs. ",") then p2 = "''f$trnlgn("cd_old_dir")'"
$  if ("''p2'" .nes. "")
$  then
$     UNIX_NAME = p2
$     gosub unix_2_vms
$     dir = VMS_NAME
$     current_dir = f$environment("DEFAULT")
$     set def 'dir'
$     new_dir = f$parse(f$environment("DEFAULT"))
$     if ((new_dir .eqs. "") .and. ( dir .nes. "[]")) then goto cd_dir_error
$  endif
$  define/nolog cd_old_dir 'current_dir'
$  device = f$element(0,":",new_dir) + ":"
$  VMS_NAME = f$directory()
$  gosub make_unix
$  set prompt= "''UNIX_NAME'> "
$  write sys$output esc + "[1m"
$  show time
$  write sys$output "''esc'[0m"
$  write sys$output "''device'"
$  goto cd_ls_exit
$!
$  cd_dir_error:
$  set default 'current_dir'
$  bell[0,8] = 7
$  write sys$output "''bell'" + "''esc'[1mDirectory " + "''save' --> ''dir' does not exist!''esc'[0m"
$  goto cd_ls_exit
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$!     mkdir, rmdir
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$ rmdir_label:
$    UNIX_NAME = p2
$    gosub unix_2_vms
$    the_dir = VMS_NAME
$    set protection=(o:rwed) 'the_dir'
$    delete/confirm 'the_dir';*
$    goto cd_ls_exit
$ mkdir_label:
$    UNIX_NAME = p2
$    gosub unix_2_vms
$    the_dir = VMS_NAME
$    create/directory 'the_dir'
$    goto cd_ls_exit
$ cp_label:                                   ! cp file1 file2  
$    copy := copy/confirm
$    if ("''p2'" .nes. "")
$    then
$       UNIX_NAME = p2
$       gosub unix_2_vms
$       file1 = VMS_NAME
$       if ("''p3'" .nes. "")
$       then
$          UNIX_NAME = p3
$          gosub unix_2_vms
$          copy 'file1' 'VMS_NAME'
$       else
$          copy 'file1' []
$      endif
$   endif
$   goto cd_ls_exit
$ most_label:
$   UNIX_NAME = p2
$   gosub unix_2_vms
$   pager 'VMS_NAME'
$   goto cd_ls_exit
$!
$!
$!                           subroutine unix_2_vms
$!                       converts UNIX_NAME to VMS_NAME  
$!
$ unix_2_vms:
$ u2v_dir = UNIX_NAME
$ u2v_length = f$length(UNIX_NAME)
$ u2v_device = ""
$ u2v_its_root = 0
$ u2v_work = UNIX_NAME
$ if (f$locate("[",u2v_dir) .lt. u2v_length) then goto u2v_finish   !vms syntax
$ if (f$locate("/",u2v_dir) .lt. u2v_length) then goto u2v_start    !unix syntax
$ if ("''u2v_work'" .eqs. ".")
$ then
$    u2v_dir = f$trnlgn("sys$login")
$    goto u2v_finish
$ endif
$ if ("''u2v_work'" .eqs. "..")
$ then
$    u2v_dir = "[.-]"
$    goto u2v_finish
$ endif
$ if (f$extract(0,1,u2v_work) .eqs. ".")
$ then
$    u2v_dir = "''u2v_work'"
$    goto u2v_finish
$ endif
$ u2v_start:
$ u2v_new_name= "["
$ u2v_save = UNIX_NAME
$ if f$locate(":",u2v_work) .lt. u2v_length
$ then
$    u2v_device = f$element(0,":",u2v_work) + ":"
$    u2v_work = (u2v_work - u2v_device) - ":"
$    u2v_dir = ""
$ endif
$ if ("''u2v_work'" .eqs. "") then goto u2v_finish
$ if ("''u2v_work'" .eqs. "/")
$ then
$    u2v_dir = "[000000]"
$    goto u2v_finish
$ endif
$ if (f$extract(0,2,u2v_work) .eqs. "..")
$ then
$    u2v_new_name = u2v_new_name + "-"
$    u2v_work = u2v_work - ".."
$    if (f$extract(0,1,u2v_work) .eqs. "/") then u2v_work = u2v_work - "/"
$ else
$    if (f$extract(0,1,u2v_work) .eqs. ".")
$    then
$       u2v_work = u2v_work - "."
$    else
$       if (f$extract(0,1,u2v_work) .eqs. "/")
$       then
$          u2v_work = u2v_work - "/"
$          u2v_its_root = 1
$       endif
$    endif
$ endif
$! I need to add code here to take "." ---> "/"
$ u2v_count = 0
$ u2v_loop:
$    u2v_elem = f$element(u2v_count,"/",u2v_work)
$    u2v_count = u2v_count + 1
$    if ((u2v_elem .nes. "/") .and. (u2v_elem .nes. ""))
$    then
$       if (f$locate(".",u2v_elem) .lt. f$length(u2v_elem))
$       then
$          u2v_dir = u2v_new_name + "]" + u2v_elem
$          goto u2v_finish
$       else
$          u2v_new_name = u2v_new_name + "."  + u2v_elem
$          goto u2v_loop
$       endif
$    endif
$!
$ u2v_dir = u2v_new_name + "]"
$!
$ u2v_finish:
$!
$ if (u2v_its_root .eqs. 1) then u2v_dir = "[" + (u2v_dir -  "[.")
$ u2v_dir = u2v_device + u2v_dir
$ VMS_NAME = u2v_dir
$ return
$!
$!                           subroutine make_unix
$!                     converts VMS_NAME to UNIX_NAME
$!     
$ make_unix:
$   mu_count = 0
$   UNIX_NAME = ""
$   VMS_NAME = f$element(1,"[",f$element(0,"]",VMS_NAME)) - "000000."
$   mu_loop:
$    mu_elem = f$element(mu_count,".",VMS_NAME)
$    mu_count = mu_count + 1
$    if ((mu_elem .nes. ".") .and. (mu_elem .nes. ""))
$    then
$       UNIX_NAME = UNIX_NAME + "/"  + mu_elem
$       goto mu_loop
$    endif
$ UNIX_NAME = f$edit(UNIX_NAME,"lowercase")
$ UNIX_NAME = UNIX_NAME - "000000"
$ return
$! 
$! less frequently used commands go here
$!
$ push_label:                                         !push 'directory'
$    if ("''p2'".eqs. "") then goto push_usage
$    dir_stack == dir_stack+1
$    current_dir = f$environment("DEFAULT")
$    if dir_stack .eqs. 1 then goto push_one
$    if dir_stack .eqs. 2 then goto push_two
$    if dir_stack .eqs. 3 then goto push_three
$    bell[0,8] = %X07
$    esc[0,8] = %X1B
$    write sys$output "''bell'" + "''esc'[1m"+"Stack Overflow!"+"''esc'[0m"
$    dir_stack == dir_stack - 1
$    goto cd_ls_exit
$!
$    push_one:
$       define/nolog old_dir_1 'current_dir'
$       write sys$output "stack: " + "''f$trnlgn("old_dir_1")'"
$       goto push_finish
$    push_two:
$       define/nolog old_dir_2 'current_dir'
$       write sys$output "stack: " + "''f$trnlgn("old_dir_1")'" +"; "   -
                               + "''f$trnlgn("old_dir_2")'"
$       goto push_finish
$    push_three:
$       define/nolog old_dir_3 'current_dir'
$       write sys$output "stack: " + "''f$trnlgn("old_dir_1")'"  + "; "  -
                              + "''f$trnlgn("old_dir_2")'"  + "; "  -
                              + "''f$trnlgn("old_dir_3")'"
$       goto push_finish
$!
$    push_finish:
$       cd 'p2'
$       pp2 = f$environment("DEFAULT")
$       if (pp2 .nes. current_dir) then goto cd_ls_exit
$!
$    mistake:
$       if ("''p2'" .eqs. "") then goto cd_ls_exit
$       dir_stack==dir_stack-1
$       goto cd_ls_exit
$!
$    push_usage:
$       write sys$output "Usage: push directory"
$       goto cd_ls_exit
$!
$ pop_label:
$       if dir_stack .eqs. 1 then goto pop_one
$       if dir_stack .eqs. 2 then goto pop_two
$       if dir_stack .eqs. 3 then goto pop_three
$       write sys$output "''bell'" + "''esc'[1m"+"Directory Stack is empty"+"''esc'[0m"
$       goto cd_ls_exit
$   pop_one:
$       cd "''f$trnlgn("old_dir_1")'"
$       goto pop_finish
$   pop_two:
$       cd "''f$trnlgn("old_dir_2")'"
$       write sys$output "stack: " + "''f$trnlgn("old_dir_1")'"
$       goto pop_finish
$   pop_three:
$       cd "''f$trnlgn("old_dir_3")'"
$       write sys$output "stack: " + "''f$trnlgn("old_dir_1")'"  + "; "  -
                              + "''f$trnlgn("old_dir_2")'"
$       goto pop_finish
$!
$   pop_finish:
$!
$       dir_stack == dir_stack-1
$       goto cd_ls_exit

    (I have done the confernce search w/o success, dir/title, etc.)
    
    Anyone know where the latest version of ARP is?  I couldn't get
    anything of the nodes listed in notes found w/ dir/title=arp.
    
    I am trying to run MOSTRA which requires ARP.
    
    Any suggestions on ARP and WB 2.04, or for that matter, a really good
    ILBM viewer and GIF <=> IFF converter package? 
    
    Thanks,
    
    John
    
    BTW, I'm finally persuing some image scanning, any comments/suggestions
    on hardware/software setups?

    I think MOSTRA only requires the Libs:ARP.library, which seems to work
    just fine on my A3000 w/2.04.

    Where can I get it?  I have a version that came off my Fred Fish
    CD-ROM, but MOSTRA complains that it needs "ARp V39+"!  I tried most of
    the pointers I got from "dir/title=arp", but the files were gone.
    
    Thanks,
    
    JV

    I have 39+ on my system, but can't remember from whence it came.  I'll
    upload it this weekend if still needed.
    
    Tony

    That would be great.  I need it for MOSTRA.  Thanks,
    
    John