home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / unix / programm / 5409 < prev    next >
Encoding:
Text File  |  1992-11-24  |  8.6 KB  |  157 lines

  1. Xref: sparky comp.unix.programmer:5409 comp.sys.sun.apps:2550 comp.unix.questions:13903
  2. Path: sparky!uunet!usc!sdd.hp.com!apollo.hp.com!xuucp!mrst!fjs
  3. From: fjs@mrst.uucp (Fred J. Sena)
  4. Newsgroups: comp.unix.programmer,comp.sys.sun.apps,comp.unix.questions,comp.unix.perl
  5. Subject: Re: SCCS to RCS Conversion
  6. Message-ID: <1992Nov24.002153.4577@mrst.uucp>
  7. Date: 24 Nov 92 00:21:53 GMT
  8. Organization: MRS Technology, Inc.
  9. Lines: 146
  10.  
  11. hi,
  12.  
  13. I received several solutions to the SCCS to RCS conversion problem, as well
  14. as several requests for information about this.  I would have mailed this out
  15. to the individuals who asked for it, but I accidently deleted those messages.
  16.  
  17. Anywho, enclosed you will find a script that works great for RCS to SCCS
  18. conversion.
  19.  
  20. Many thanks to:
  21.     eggert@twinsun.com (Paul Eggert)
  22.     rfs@se28.wg2.waii.com (Robert Starr)
  23.     harvard!gynko.circ.upenn.edu!rsk (Rich Kulawiec)
  24.  
  25. For their replies.  And thanks to Karl Fox who wrote the original script.
  26.  
  27.     --fred
  28.                             fjs@mrst
  29.  
  30. -----------------------------------------------------------------------------
  31. #!/bin/sh
  32. #
  33. # GENTLE READER -- write this message to file [no headers!]; run "sh file".
  34. #
  35. # [un]shark: Copyleft 1987-91 by James A. Woods.  Patent pending.
  36. # Seed planted by Karl Fox; code intensified by Paul Eggert.
  37. #
  38. # "Cleverly he dialed from within." -- D. Van Vliet, "Trout Mask Replica"
  39. #
  40. PATH=$PATH:. a=atob m=unshark z=zcat
  41. r="rm -f $a $m* $z" v="cc -o $z $m.c"
  42. trap "$r;exit 1" 1 2 13 15
  43. echo decoding...
  44. (:|compress|btoa|$a|$z)2>$m>&2||(sed '1,9s/./#define & /
  45. s/@/[w]/g
  46. s/C/char /g
  47. s/I/;if(/g
  48. s/W/;while(/g
  49. s/Y/%lx /g
  50. s/}/;}/g'>$m.c<<_&&
  51. FX,perror("$m bite: resend"),1;
  52. GgetC()
  53. H(w=g())
  54. K[69001]
  55. PputC
  56. Q256
  57. U*p
  58. Xreturn 0
  59. Zw=QWw--)t@=0
  60. #include<stdio.h>
  61. long M,N,c,f,m,o,r,s,w;y(l){o=o&-1-l|-1-o&l;m+=l+1;f+=f+(f>>31&1)+l}int
  62. O,S,e,i,k,n,q,t K;b(g){k=4Wg<k)y(P((C)(w>>--k*8)&255));w=0}CD K,h
  63. K;main(g,V)C**V;{I**V-97)X,a()WG-10)W(g=G)+1&&g-'x')if(g-10)
  64. {I4<k)b(0)Ig>32&g<'v')w=w*85+g-33,++k;else{Ig-'z'|k)F
  65. w=0;k=5}}WG-78)Iscanf("%ldYEYSYRY",&M,&N,&c,&s,&r)-5)F
  66. IM){b(g=3-(M-1&3))Wg--)y(0)}I(M-N|c-o|s-m|r-f)&4294967295)F X}long
  67. g(){CUIm<f&n<k&&(m=(1l<<++n)-1)||O>=S){O=0;S=fread(D,1,n,stdin)*8IS<8)X-1;
  68. S-=n-1}p=D+O/8;q=O&7;O+=n;X,(1<<8-q)-1&U>>q|m&((15<n+q)U[2]*Q|p[1]&255)<<8-q}
  69. a(){CU=D+Q;G;G;k=G;e=k>>7&1;k&=31Ik>16)F
  70. Z,h@=w;n=8;f=Q+e;i=o=HIo<0)X,1;P(i)WH+1){Iw==Q&e){Z;m=n=8;f=QIH<0)X}
  71. c=wIw>=f)U++=i,w=oWw>=Q)U++=h@,w=t@;P(i=h@)Wp>D+Q)P(*--p)
  72. I(w=f)<1l<<k)t@=o,h[f++]=i;o=c}X}
  73. _
  74. ($v||$v -Mh)&&ln $z $a)&&tr v\\176 .\\136<<\w|$a>$m-&&$z<$m->$m&&tar xvf $m&&$r
  75. xbtoa Begin
  76. +v\KkM?G*NU^2L'#SS[maKVAULCb\&6jTM2NJenZ<3-pH7`LEB0P]CQ;9"S61b@MI#iip`)),N9UiF
  77. ;,%?2$BlJ0LfVpCu#K*iVk[&DBI&Z:R*1Im0>VBF=2!>,OSS2#'4^nCj^c5R=)hRKgh7Ln$(DEsH&,
  78. F)"B2ePBL))>`[!]4cOaN5+GNE<,oV:5["GE1:g+RZ&!KB>lKY&)t=GoIPOh`#-]0J:i+N8?I$gkl7
  79. cQ;3gVA]Ss^;msnS(CH=E72':5Qni7$dOAZc22F;2aHTuTfe],=MW'/31?HFo*=>>4!R;\'$l:d'J=
  80. tj&L5Qr'\]9N?YmMF2=n/kd+TmCVmb4k*=$QpBgo5eZ]\*b-iX-7&-'lPj+?8lo'd*e&7N&ghTGLVk
  81. %@;i[Ee*)b$ZcbXfO9vv-X;@kv5440:Y!jI@;(Y:)f4U6-O"I;;3`8\AW4H6@][\ffnC;=Tb^je9ne
  82. mJGN?iuKQVg!(3q06<CUX`^*&eK/V<IY*HT<l6=aSZ_8Zjl]G8srE'+o2)01u(TGbZo=G@]%e8ZN8E
  83. virMCa>_$j);aCB-)A5i%_*/%(8u&)QI)^P]gMhTj"4P3i_!UD_PlOQ<J=n-(&VaT]f?EJm_'@]WDr
  84. Q$49a("IvWNeOCG1`Q=KRg4e(sX+&=0W#R7lVCPY-6HBA%3mLS<=_+c#++S0vALhH1M0^'Z;c3C+Of
  85. cU4)$k(%9#cJ:/I$eDDmU\-</NDBBiV@^0h3'nE7R>`+R%It)e@nE>#]T'Q_7HN;(=/RdA"Yt]Vi;k
  86. -V586+@d@nZlfUC;sn&D;H!U_R^caQg/T$2JRPh(@k<G%#aX&vX]-G,=)X)nQ?@/RCPg4iS/%c$/dQ
  87. +ZWhLAO/mM6dc-dJa=_Wg<kL&)!6&(o"YtQ*AP_"AGDfF2Uemok+9#_fMMedv"]^Ed/*Z!Y&YIHV\]
  88. WKV&ki`he:KmE+A"d&:XW)%q,mTBd&P--?<S^-bDAA0d[>GGpG_]U@:aS")5u@Fn$D(8-XVe_5/(WB
  89. &=R?s7Bq0_Y=(/YUolv9t&NO*BZY!2FUFmt[K9N\Da+>&COers'SuBQR-fd?Z*D>o\#LLN]V)VZKOq
  90. BcgA3d]&N!c$)eQ96!3(G$-N6s+jC&OTg#Tc(]D-AOTJMKflD9J=-W@f-C)2P=^em@qu2l[fpnWe9B
  91. 6l-pKDHP^nRrA:HTf93,$n^ZTMs>Ai!HA<#I-Fs>i/i]CBZG=8:m&@P8=2*@NeD7ob^c?SL0+UL!G*
  92. BH>(gCQ2!)P4[/iR(P`s"cIE`3Ki/63BAJp#T/kL7X;hGk'U*\k)"@ID9*Y`"9%c/?aB1SIro$Ej>B
  93. dX5GK?Y<T@i,gZ_%'Ma@a\Lhvg<H@N?OsS*:vW$15'$DB4sSEfFWcKTWno,I)?gg0LjU'71KYQ*/!h
  94. V]^Tq'6$N*g;j`0$8lfsW29=iK5iRogJ06*dnK^YA@$2J-KI&7M_$k(/8K5V+"url`/8%Pt>2&P5\B
  95. JM17h>_s\`!]c5srRG1BI`=5V<nCjA]5^Q)eG,/));n=NYZM[+)19b3>$C$'Q1D]]Ce[!Pt#1Bc+PQ
  96. -!cKb;ev5m6T88)QuvvBk!1/[[%tu(W):fOFS)#=#)G1G_2W>WZQ%G>BK4a%%W\Sh*9TTMR*q[gO04
  97. \;m<%MQiGl\Y+BkBvUh;jXGn1>CUJYN=PCiOcVLJ<Hc"v(BJ-@uqRhjMH#CvbJ8?*4%2:Tk\ond)%,
  98. E^DLA/[t`!BvpXW/G%/VQ,`/7Q*"LNj?&k+'k'?6AcPeJp"IR\Y5ivF-?2K1aS>8ohnrH;@#2rVR3S
  99. /9O&0ncK9kL2@0U`EoK]^(kYeBl)B2\q@Er3Pb(/YM[kJveAW1\/k7cW;D#6p==\EgZtel!D=nU_#a
  100. ;AfiLs4qUB@NZ\rm#oC,`7e_lI8>R)[35CU_Fq<d3(EhS^mG?5f-uG]Tt9+;M!X+e"@]2'clFW*89a
  101. A>mGRX_s9[>Hm,=\B8qH!ND!P'k*I"i$C%&fdg\2MJKu(o#$!+"_WA5-XmY<:[Bj\@1\V>`Tf4ac"c
  102. UE>j9mQLFBII:8MJsEWaJ>X0Q-<b[igBbPl+NR[V3<vd1^gc[>G`TM:_T1*W2lPfC`Nh<Sd`P8a(nG
  103. -sAA9q&+MUjKil2Qi#+BM^`og;(n?1q?>(E0K$ZFO\OHd=r,IhHSn&"h4RBCN,e@jPbjB8B*qvEqFE
  104. kjTL=K#ApVbO)tKfN^u4[Tl+Y%@\!g4GD76`D@X%[i9`"Y]A3o$KYT*jn;(^>jG@i$E]PvAVA;<N;p
  105. Tc4FXkJ>pQt<)l$MAvh\46>!q^>1I:?sKJ/K+eg%FeB^HLo]neXZ]?!:3G$(u,eKH\vJ1k@C1k>rSs
  106. ^^(]0dib;+K[l$tEH,TC*K2NTmnCULNA7^fF:0/ul9a_UZdU]UW"!`+PoWn;vR"P>&3iXW,4^`:8_d
  107. +kkQ#BGVBq*u4D#</WQ$Z/Z&??uiu%Vra>1osN+j!e)V]M\2nC,l8#)h!m"evpdXdIvN;"ILI7U\rJ
  108. -8Fd_serI'OBDNP8\:6%UedX(f21Vv?OW>FAN&WkWf=nvAXM4J-S%R4B9D66Q&WqD0MD(1Y]dpE"7f
  109. 62XOM3@>S3Jrgeg]B!+j)!"C!V;ct[q:CN\G$HnI-fM?4Z8GfDZS_aG!U8t[pR-g-Yk)djn3bX"G&I
  110. r!(4pIg0CnG98!6oElJf]FB"]iC>0+WMQ<2F=4GgF"YpWiNIqu,u6hto<i&@VlnY!uq[Bc>WWJe1?:
  111. %MfE-B"gm#)E"D>KMRdOL3K>Wm3aVkfhE=C4>+>jaT_vfLk@nu_r*(P!K2H>j'/1F*_DrNQEpEi7$)
  112. ]-E5'hSH"qqL[*m]S#kb`@$Wk?3S#9kQjr;3QgY]/@W:1U'Yt"g$7M,MYgcd[-=5<4j^\NM'+2>-g&
  113. v6)=+>`sYqXt,43)+5TbhZGRqf<-MOC*:pZbH7=Q[Q4g:3H)TPc&ief4\6)1]RXp__Y')[rYGi<HF7
  114. J'p3oP5V3RH($!4;Mv(9R^]n0H!^>N`#&#HNQ[l_MGi]0]:doc(-YHZ2Et"gir\km`kB`Ns1<*cPD6
  115. O5]7t>a`J=3*SRjEPkV039A6\89!SDeWE5R4laFA:/%?U+Z<n-)pi!"UkZ#DY`CWv[L54&vb`;)j7<
  116. `tVUBKi/0]>Spga63;!@L<uh[FH?`=#_d+dL!$cW?QauF#X\pN!p:d0,^=9YLkc`kL4-<DC#C:_BI/
  117. "mL3):vTa#&=f4\RQLgKX-BJ^T9@>H4#!gi\<Cd<bKBIm[*Mv[)!Ht\49p][\mL0dCPWYgKFZn68o#
  118. MN31F\m<(@TO&h@9-5dWY8*uiBT^h<G@QuH\Qe!;A^5A9L)'gTCNvqPR!8UDc>V<v)6"PEWRP+"XUA
  119. V+HQS/TE6EY"=8!gi(+L?8<2hgNp9^LmJ)\\&WcZ'N[<$Tj`lgM=9;(`O7]rBqZr8]8<<j4ORj<Np?
  120. 7P7k`6:3O97M*qvPj*=V9ZgOSGc:,u=d4Lak5oL"WtqAC-<Sf9%1p![M^d$-/2H\WSQ?OtEYr0MvH_
  121. H';b=P;YFb4'@d+fTK1mKKL-:-QiRI,Sb#9D*SDg/U:MMf9H++PYb8Bn9>"XB2!lcQ!E"-J%&-BOG_
  122. -`(iu?jEWBN+p)D#G@Y/iM,(MG:-iug+'j#G]BH]e!_\jS-LVE;"K'#a1;,>g8,`2\jvThEcA2F8))
  123. CM=!bk2_2</S5O#<uU`QUcjkL&uYI"+(>K5=\(C&XZ5U#28#?4l?NijsGVh'r)X->EB(q!!8G-LhM@
  124. &,esMda*9"OKsfTWDYF=v_Zq6mRj?@M4n+qd&=gY[S&]cD+RfP;O9-e#&i?LvTKvES!(58!G1='Uf#
  125. \lnk'"tHK5J/GQFV>lj!K"v-RG`vM,FTAiYHX/6<cf9;upFFp]ckF??C7[N>;_;YWKB2NK:Gb1C"vB
  126. Z?WpW""6NXBeXtq;']nRI1OI&DRY&GfUgkX=t+]A-]e>r-j$i51"]S4g?>,LYQ^iT"^E/O+*sG@!2;
  127. &;![MKS-CLSYg7mQhQ3f7>C8dgRWM4+R"UP1(4^+Uvb)JaA"Vq@F5S+[Z7uAGY+6+e5ETs*_v@5-:3
  128. d*MBJ'ggW66$QC"`=m@ZUo5XH#U9]IDjgv+n1tp@fe"HG0Dr]Du,uA&>sU'VT3qZ?f2(88K7t;&TO3
  129. BUZ5A'js>2m76Io0:ra;nH'eGaJ8SKmppD#5(RgqpB#OqN0IJsYp5!_^*)2lY-U8;v>)>L*#:HaN?Z
  130. E(b6)-YZUF=ir4NO(X\pJ)Z##5gH_@[!n7tc'k(-LvjgS0SS(mp9WT]2pN&o'KB$3CuXIMkbY)sXG_
  131. VCSWLUvH9!/'7q!WiFY8X[C54B-<),G`vJN&l6ZO#PXljg3V1gG@"FUp)821`!!_fE\UK9SV@tp<eb
  132. (h-c0Lop1H_/Zof#U,G*lrvY&uoED5o^2i:U:gO_Vf7hn?941C>@DU<oR@Bm,u#%@!NQ9oYT#R6]1M
  133. b^2Q>iC7Tg&ddq4tkgtDtF)a+9GqI59"T9gUIFt@SI-oM:WDETGD!N;&_"EHHP3<AT>"K3%AQd33)Y
  134. )X@EmvX#NM*!nBdfB6eH-k^blq"st]!?9eXQ"p,h_#'U'S-a3iio1]H;"+>-g*f*V0+u*I*Yr*@5N+
  135. \'G0qWXSFtaIg]D<=4+9b[4"B*%A2(5_,X(L8]'fdUF1I<dq0sOak\9!1P)aSPqdi`P[[DXg8&jrEK
  136. "L`%l[Q7<pB:H>FgU8U=[okFE,QJkj7g!nGZ[GIpB@0ln1:eOe4/OM5W;CNZ&@N6A[Z1!lL)@O?9=o
  137. 4;!]@3oSkH"3fVBP!HSBcQS<:H"U`DL*#<d%=g(Co-:ql/:>-fCXjXVjaV7iM5=j\$?`]Lo7CHF`<"
  138. *7'9@(<@fRsff+)H[%BG?VL=ZQEP:\;T+O]pjk6f9ksG'm6?If*_Z#j=%#_:9,9X]440g`$Ti:WYZY
  139. ]EN$%K"2=VYE,u<#2(66g,vIhN\;%'"+MbdOHbl,+TG-o7^&b$1!M<p[TCp^E]fQEF-\l62Ah'<o(O
  140. Smg%($*%(Q_c9(G*@"CDa3P#1M8;T,Y=>]>`EJ_'C2>hg#rBm)<E+TX84D`u?aD+JS(8Lb3QN`<j0l
  141. dK4MU!f:$69e<EB#XE8vM/'K6rVO>;6H0'([kVv'#@,0&X110k`\j-?OuY)g)o]NG\]]e(NklI'8WB
  142. LEaFq-qUs(MoHHOuh_gX<[Kp*6iU7vN#Qm,`S9O*<WJ-*u^(bYkXkeRHT5Qk>R!rYF,9sQFIfYWJ]b
  143. Y>soCi[,^97([f-$3tDnG=>SXMf)9a(<<oJ]rtK=NLF;Kh^dJbRDC?lc:oQ^ldEfWgp,L367JW\shu
  144. Q<%N^#/?B@ub/Ok#>VSuYZ3I5^E"OlWIr*3eHj4"mbiha9K*q_dI(0P8aUV"dR<Z58kW5V(]O)&kWV
  145. a`;bIf$\Z,sYsb=p$uZl&f5"A@[^bA2-;Ea5,g>LAU&A5OrCgl9S4cZEVCgQF_RjY#=',MKfW(9JKD
  146. /^B,VcF1Um4AZ/V?j$i+!^lG[9i)Br5Qu<C""`@3dW5X#&-iOBeP^8v,N=CurG^1Y!d"9aGMKqvb8E
  147. FX_C!MF#joB#NN6gLcnbO?lo`\`Cs3I7R(q2gIo05W9V/r`1%utH#<g@WXjH38`f-G:1CVZm%+pcFH
  148. 7qZ!?vdvk/?^IGYG>IXH+-L8?nuG)@O;8pWavJ/AoA%'"qS0j%Ko)Oo\"5_bhq0q9ROs2N5B:qM8rc
  149. S`dQX`S_VB$grWinBj63e1ehUCRSZs9DH9SS@;!a#4D3]HDs?&3fXlL9+]>-YO=)Bam:pd+Zd-hNme
  150. u#3IG?O;J(Zj5'Fc'cvnkml]%;/3p;JtWR_5Acaon;dWra)K_$,i(!XBc"EhM@94U#=e>Vr4'^4B$7
  151. U*":"5%X7!X4PE_jkT\N(M--g7#f9!!#l)jH0T"t1rU?nm7h:\<eE+[0;Cf1inR=k'cu+d^u;8m&`\
  152. 6^-<2q\i\DR39\f0Oj@h2`ES7hK]g&1bD(a*V^+gYMj"B,X#N"k(?9I(-ja$$[(?s)Jrn6@GcK%I?(
  153. %mR(;LmYN6(%LCI:id?,075v_:SbUfK8jpvrLs(h;AURivCsd+eShHPj""=k`"B^NrJ7(*pJhOl',N
  154. =Q@A(cT';]Xkn='t
  155. xbtoa End N 4879 130f E ee S 8de02 R 42951c60
  156. w
  157.