Fish 'n' More 2/fishmore-publicdomainlibraryvol.ii1991xetec.iso/disks/disk381.lzh/SKsh/Stuff.sksh.pp

Text File | 1990-10-20 | 6KB | 1 lines

(SKSH_PP,07)(42(04,man)(30(37(58(02,$PAGER))(30(29(04,PAGER)(21,=)(01,more))))(37(74(52(02,MAN:$1.MAN)))(30(29(27,echo)(02,No manual entry for $1)))(30(29(04,$PAGER)(02,MAN:$1.MAN))))))(42(04,qrm)(30(29(27,local)(04,ans))(32(04,file)(31(04,$*))(30(29(27,echo)(04,-n)(02,Remove $file ? ))(29(27,read)(04,ans))(37(71(72(02,$ans)(01,y))(72(02,$ans)(01,Y)))(30(29(27,rm)(04,-v)(02,$file))))))))(29(27,alias)(04,clean)(21,=)(01,qrm *~))(42(04,pushd)(30(37(62(04,$#)(04,1))(30(29(27,echo)(02,Usage: $0 new_dir)))(37(74(53(02,$1)))(30(29(27,echo)(02,$0: Can't cd to $1)))(30(29(04,DIRSTACK)(21,=)(02,$PWD,$DIRSTACK))(29(27,export)(04,-l)(04,DIRSTACK))(29(27,cd)(02,$1)))))))(42(04,popd)(30(29(27,local)(04,comma_pos)(04,new_dir))(37(62(04,$#)(04,0))(30(29(27,echo)(02,Usage: $0))(29(27,return)))(37(58(02,$DIRSTACK))(30(29(27,echo)(01,The directory stack is empty))(29(27,return)))))(29(04,comma_pos)(21,=)(19(45(82(02,$DIRSTACK)(01,,)))))(29(04,new_dir)(21,=)(19(45(81(02,$DIRSTACK)(04,1)(19(45(76(04,$comma_pos)(04,1))))))))(29(04,DIRSTACK)(21,=)(19(45(81(02,$DIRSTACK)(19(45(75(04,$comma_pos)(04,1))))(04,32000)))))(29(27,export)(04,-l)(04,DIRSTACK))(37(29(27,cd)(02,$new_dir))(30(29(27,true)))(30(29(27,echo)(02,$0: Can't cd to $new_dir.))))))(29(27,alias)(04,cleard)(21,=)(01,DIRSTACK=""))(29(27,alias)(04,dstack)(21,=)(01,echo "$DIRSTACK"))(42(04,cget)(30(29(27,complist)(04,-e))(29(27,complist)(04,-a)(04,!*.o))(29(27,complist)(04,-a)(04,$COMPLIST))))(29(27,alias)(04,zp)(21,=)(01,zoo -print))(29(27,alias)(04,zl)(21,=)(01,zoo -list))(29(27,alias)(04,zx)(21,=)(01,zoo -extract))(29(27,alias)(04,za)(21,=)(01,zoo -add))(42(04,zmore)(30(29(27,local)(04,zoofile)(04,tmpfile))(37(66(04,$#)(04,2))(30(29(27,echo)(02,Usage: $0 zoofile file1...))(29(27,return))))(37(52(02,$1))(30(29(04,zoofile)(21,=)(02,$1)))(30(29(04,zoofile)(21,=)(02,$1.zoo))))(37(74(52(02,$zoofile)))(30(29(27,echo)(02,$0: $zoofile not found))(29(27,return))))(29(27,shift))(29(04,tmpfile)(21,=)(02,pipe:tmp_$CLINUM.$CMDNUM))(37(58(02,$PAGER))(30(29(04,PAGER)(21,=)(01,more))))(29(04,srun)(04,-o)(02,$tmpfile)(19(29(27,which)(04,zoo)))(04,-print)(02,$zoofile)(04,$*))(29(04,$PAGER)(02,$tmpfile))))(42(04,_zadd)(30(29(27,shift)(04,2))(29(27,complist)(04,-a)(04,$*))))(42(04,zget)(30(29(27,local)(04,zoofile)(04,zlist))(37(52(02,$1))(30(29(04,zoofile)(21,=)(02,$1)))(30(29(04,zoofile)(21,=)(02,$1.zoo))))(37(74(52(02,$zoofile)))(30(29(27,echo)(02,$0: $zoofile not found))(29(27,return))))(29(27,complist)(04,-e))(29(04,zlist)(21,=)(19(29(04,zoo)(04,lf1)(02,$zoofile))))(29(04,_zadd)(04,$zlist))(29(27,complist)(04,-a)(04,$COMPLIST))))(42(04,zxdir)(30(29(27,local)(04,file)(04,dname)(04,zooname))(32(04,file)(31(04,$*))(30(29(04,dname)(21,=)(19(29(27,extname)(04,-v)(02,$file))))(29(04,zooname)(21,=)(02,$dname.zoo))(37(74(53(02,$dname)))(30(29(27,mkdir)(02,$dname))))(29(27,mv)(02,$zooname)(02,$dname))(29(27,cd)(02,$dname))(37(06(11(04,nil:))(29(04,zoo)(04,-extract)(02,$zooname)))(30(29(27,rm)(02,$zooname)))(30(29(27,echo)(02,Extract Failed!))))(29(27,cd)(04,..))))))(42(04,emacs_mode)(30(29(27,setmap)(04,-r))(29(27,setmap)(04,-m)(04,0)(04,BOL)(04,ISM)(01,#)(04,PIO)(04,ACC))(29(27,setmap)(04,0)(04,8)(04,BS)(04,9)(04,CC1)(04,1)(04,BOL)(04,2)(04,LFT)(04,4)(04,DEL)(04,127)(04,DEL)(04,5)(04,EOL)(04,6)(04,RHT)(04, )(04,7)(04,ZAP)(04,11)(04,KEL)(04,14)(04,DN)(04,15)(04,EXE)(04,16)(04,UP)(04,18)(04,SRH)(04,27)(04,@1)(04,155)(04,@2)(04, )(04,12)(04,RDL)(04,26)(04,TIM)(04,21)(04,REP)(04,20)(04,SPC)(04,25)(04,YNK))(29(27,setmap)(04,1)(04,27)(04,CC1)(21,=)(04,CC2)(04,\*)(04,CC3)(04,8)(04,BDW)(04,f)(04,FWW)(04,b)(04,BKW)(04,d)(04,DLW)(04,\.)(04,ILP)(04, )(04,\/)(04,ILT)(01,<)(04,HOL)(01,>)(04,TOL)(01,#)(01,!0)(04,48)(04,ERC)(04,49)(04,ERC)(04,50)(04,ERC)(04, )(04,51)(04,ERC)(04,52)(04,ERC)(04,53)(04,ERC)(04,54)(04,ERC)(04,55)(04,ERC)(04,56)(04,ERC)(04,57)(04,ERC))(29(27,setmap)(04,2)(04,A)(04,UP)(04,B)(04,DN)(04,C)(04,RHT)(04,D)(04,LFT)(04,T)(04,HOL)(04,S)(04,TOL)(01, )(04,@3)(04, )(04,48)(04,FNK)(04,49)(04,FNK)(04,50)(04,FNK)(04,51)(04,FNK)(04,52)(04,FNK)(04,53)(04,FNK)(04,54)(04,FNK)(04, )(04,55)(04,FNK)(04,56)(04,FNK)(04,57)(04,FNK))(29(27,setmap)(04,3)(04,A)(04,BKW)(04,@)(04,FWW))))(42(04,vi_mode)(30(29(27,setmap)(04,-r))(29(27,setmap)(04,-n)(04,1))(29(27,setmap)(04,-e)(04,1)(04,2))(29(27,setmap)(04,-m)(04,0)(04,BOL)(04,GK0))(29(27,setmap)(04,-m)(04,1)(04,EOL)(04,GK0))(29(27,setmap)(04,-m)(04,2)(04,RHT)(04,GK0))(29(27,setmap)(04,-m)(04,3)(04,BOL)(04,ISM)(01,#)(04,PIO)(04,ACC))(29(27,setmap)(04,0)(04,27)(04,@1)(04,8)(04,BS)(04,9)(04,CC1)(04,12)(04,RDL)(04,155)(04,@3)(04,127)(04,DEL)(04,20)(04,SPC))(29(27,setmap)(04,1)(04,k)(04,UP)(04,j)(04,DN)(04,h)(04,LFT)(04,l)(04,RHT)(04,x)(04,DEL)(04,10)(04,ACC)(04,13)(04,ACC)(04,i)(04,@0)(04,a)(01,!2)(04, )(04,d)(04,@2)(04,27)(04,CC1)(04,$)(04,EOL)(04,\^)(04,BOL)(04,\/)(04,SRH)(04,155)(04,@3)(04,n)(04,SRH)(04,8)(04,BS)(04,w)(04,FWW)(04, )(04,W)(04,FWW)(04,b)(04,BKW)(04,B)(04,BKW)(04,-)(04,UP)(04,+)(04,DN)(04,D)(04,KEL)(04,R)(04,TIM)(04,_)(04,ILP)(04,\*)(04,CC3)(04,12)(04,RDL)(04, )(21,=)(04,CC2)(04,X)(04,BS)(04,127)(04,DEL)(04,A)(01,!1)(04,I)(01,!0)(01,#)(01,!3)(04,p)(04,YNK)(04,49)(04,ERC)(04, )(04,50)(04,ERC)(04,51)(04,ERC)(04,52)(04,ERC)(04,53)(04,ERC)(04,54)(04,ERC)(04,55)(04,ERC)(04,56)(04,ERC)(04,57)(04,ERC))(29(27,setmap)(04,2)(04,w)(04,DLW)(04,$)(04,KEL)(04,d)(04,ZAP)(04,c)(04,DEL))(29(27,setmap)(04,3)(04,A)(04,UP)(04,B)(04,DN)(04,C)(04,RHT)(04,D)(04,LFT)(04,T)(04,HOL)(04,S)(04,TOL)(01, )(04,@4)(04, )(04,48)(04,FNK)(04,49)(04,FNK)(04,50)(04,FNK)(04,51)(04,FNK)(04,52)(04,FNK)(04,53)(04,FNK)(04,54)(04,FNK)(04, )(04,55)(04,FNK)(04,56)(04,FNK)(04,57)(04,FNK))(29(27,setmap)(04,4)(04,A)(04,BKW)(04,@)(04,FWW))))