Thus it was written in the epistle of [log in to unmask],
>
> Ted Ashton submitted some helpful command files for using RCS with additional
> steps for handling Qedit files.
>
> I don't use RCS, but can suggest one small idea for the CI command file:
>
> Run tobyte with our XL that lets some programs read Qedit files.
>
> This should eliminate the first running of Qedit to convert the file
> from Qedit to a regular text file.
>
> delete this line:
> run qedit.pub.sys;parm=128;info="t !ffile;k,y"
>
> modify this line:
> tobyte.hpbin.sys;info="-at ./CTEMP !hfsfile";xl="qcompxl.pub.robelle"
> ^^^^^^^^^^^^^^^^^^^^^^^^^
> Unfortunately you still need the 2nd Qedit conversion because I can't think
> of a way to make frombyte read a bytestream file and create a Qedit file.
>
> /paul
>
> Paul Gobes, Tech Support Mgr. phone: 888-ROBELLE fax: (604) 582-1700
> http://www.robelle.com/~paul email: [log in to unmask]
>
Paul,
Thanks for the suggestion. I also incorporated rm and mv as the command
interprater seems now to keep the file open (the finfo, I'm assuming) and
won't let me do a rename or purge. The one remaining problem is if I do a
co while I have QEDITSCR open in Qedit, the new copy of Qedit complains that
it can't open the scratch file and won't do the conversion. What should I
be doing instead?
Thanks again,
Ted
P.S. Here's the new version of ci.
--------------------->8---------------------->8---------------------
parm file,version=""
#
# Command file to check a file in after editing using RCS.
# Written by Ted Ashton
#
# $Id: CI 1.10 1997/01/20 21:22:27 ADMDEV.ADMIN Exp $
#
# $Log: CI $
# Revision 1.10 1997/01/20 21:22:27 ADMDEV.ADMIN
# Use an rm -f on ./CITEMP
#
# Revision 1.9 1997/01/20 21:15:31 ADMDEV.ADMIN
# Changed to use ;xl="qcompxl.pub.robelle" and mv and rm.
#
# Revision 1.8 1997/01/08 16:52:41 ADMDEV.ADMIN
# Changed final ACD and handled the case where no conversion is necessary.
#
# Revision 1.7 1997/01/07 15:35:32 ADMDEV.ADMIN
# Added version capability.
#
# Revision 1.6 1997/01/06 17:17:02 ADMDEV.ADMIN
# Multiple changes for QEDIT files.
#
# Revision 1.5 1997/01/06 15:57:16 ADMDEV.ADMIN
# Fixed syntax error in altsec
#
# Revision 1.1 1997/01/03 16:56:51 ADMDEV.ADMIN
# Initial revision
#
#
setvar hfsfile finfo("!file","POSIXFULLFNAME")
setvar fileacct finfo("!file","ACCOUNT")
setvar ffile finfo("!file","FULLFNAME")
echo !hfsfile
if (finfo("!ffile","FCODE") = 111) then
echo The file !file is a QEDIT file and will be converted to a text
echo file and back everytime it is checked in and out.
setvar qedit_conversion "Y"
else
setvar qedit_conversion "N"
endif
mv.hpbin.sys;info="!hfsfile ./CITEMP"
run tobyte.hpbin.sys;info="-at ./CITEMP !hfsfile";xl="qcompxl.pub.robelle"
rm.hpbin.sys;info="-f ./CITEMP"
echo Checking !hfsfile in under RCS.
if ("!version" = "") then
ci.hpbin.sys;info="-u !hfsfile"
else
ci.hpbin.sys;info="-u -r!version !hfsfile"
endif
mv.hpbin.sys;info="!hfsfile ./CITEMP"
frombyte.hpbin.sys;info="./CITEMP !hfsfile"
rm.hpbin.sys;info="-f ./CITEMP"
if (qedit_conversion = "Y") then
run qedit.pub.sys;parm=128;info="t !ffile;sh *,y"
endif
altsec !ffile;newacd=(r,l,x,racd:$OWNER;r,x,racd:$GROUP_MASK;&
r,x,racd:$GROUP;r,x,racd:@.!fileacct;racd:@.@)
------------------>8---------------------->8---------------------------------
--
Ted Ashton ([log in to unmask]) | From the Tom Swifty collection:
Southern Adventist University | "I haven't a notion", said Poseidon when
Collegedale, TN 37315 | the sea dried up.
(423) 238-2703 |
|
