Otherware/Otherware_1_SB_Development.iso/amiga/utility/cli/sksh017.lzh/init/Stuff.pp

Text File | 1991-04-14 | 2KB | 1 lines

(SKSH_PP,08)(31(29,alias)(04,clean)(21,=)(01,qrm *~))(44(04,cget)(32(31(29,complist)(04,-e))(31(29,complist)(04,-a)(04,!*.o))(31(29,complist)(04,-a)(04,$COMPLIST))))(31(29,alias)(04,zp)(21,=)(01,zoo -print))(31(29,alias)(04,zl)(21,=)(01,zoo -list))(31(29,alias)(04,zx)(21,=)(01,zoo -extract))(31(29,alias)(04,za)(21,=)(01,zoo -add))(44(04,zmore)(32(31(29,local)(04,zoofile)(04,tmpfile))(39(69(04,$#)(04,2))(32(31(29,echo)(02,Usage: $0 zoofile file1...))(31(29,return))))(39(55(02,$1))(32(31(04,zoofile)(21,=)(02,$1)))(32(31(04,zoofile)(21,=)(02,$1.zoo))))(39(77(55(02,$zoofile)))(32(31(29,echo)(02,$0: $zoofile not found))(31(29,return))))(31(29,shift))(31(04,tmpfile)(21,=)(02,pipe:tmp_$CLINUM.$CMDNUM))(39(61(02,$PAGER))(32(31(04,PAGER)(21,=)(01,more))))(31(04,srun)(04,-o)(02,$tmpfile)(19(31(29,which)(04,zoo)))(04,-print)(02,$zoofile)(04,$*))(31(04,$PAGER)(02,$tmpfile))))(44(04,_zadd)(32(31(29,shift)(04,2))(31(29,complist)(04,-a)(04,$*))))(44(04,zget)(32(31(29,local)(04,zoofile)(04,zlist))(39(55(02,$1))(32(31(04,zoofile)(21,=)(02,$1)))(32(31(04,zoofile)(21,=)(02,$1.zoo))))(39(77(55(02,$zoofile)))(32(31(29,echo)(02,$0: $zoofile not found))(31(29,return))))(31(29,complist)(04,-e))(31(04,zlist)(21,=)(19(31(04,zoo)(04,lf1)(02,$zoofile))))(31(04,_zadd)(04,$zlist))(31(29,complist)(04,-a)(04,$COMPLIST))))(44(04,zxdir)(32(31(29,local)(04,file)(04,dname)(04,zooname))(34(04,file)(33(04,$*))(32(31(04,dname)(21,=)(19(31(29,extname)(04,-v)(02,$file))))(31(04,zooname)(21,=)(02,$dname.zoo))(39(77(56(02,$dname)))(32(31(29,mkdir)(02,$dname))))(31(29,mv)(02,$zooname)(02,$dname))(31(29,cd)(02,$dname))(39(06(11(04,nil:))(31(04,zoo)(04,-extract)(02,$zooname)))(32(31(29,rm)(02,$zooname)))(32(31(29,echo)(02,Extract Failed!))))(31(29,cd)(04,..))))))