今天论坛真冷清~~出个格式化缩进的题，求应战

bulletmarquis

回复 10# yestreenstars


    {:3_191:}

jason680

回复 11# bulletmarquis

Would you like this way ...
Note: It's only work for some simple awk code

$ perl -lane '{s/(\)\{)/$1\n/g;s/(BEGIN|END)\{/$1\{\n/g;s/;([^"])/;\n$1/g;s/([^\n])}/$1\n}\n/g;s/^\s*\{/\{\n/gm;@d=split"\n";while($_=shift @d){$c--if(/^\s*\}/);$s="  " x $c;if(m/^\s*for/){$_.=shift(@d).shift(@d)};print "$s$_";$c++if(m/\{\s*$/)}}' x.awk

1. awk -v ord="$ord" -v key="$1" -v l=$length -v ka="0x41C64E6D" -v kb="0x3039" -v kc="0x80000000" 'function mod(p){
   
2.   return (p%256)
   
3. }
   
4. function div(p){
   
5.   return int(p/256)
   
6. }
   
7. function str_val(str,ret,chars,n,i,k,c){
   
8.   if(str ~ /^0[0-7]*$/){
   
9.     n=length(str);
   
10.     ret=0;
    
11.     for(i=1;i<=n;i++){
    
12.       c=substr(str,i,1);
    
13.       if((k=index("01234567",c))>0)k--;
    
14.       ret=ret*8+k
    
15.     }
    
16.   }else if(str ~ /^0[xX][[:xdigit:]]+/){
    
17.     str=substr(str,3);
    
18.     n=length(str);
    
19.     ret=0;
    
20.     for(i=1;i<=n;i++){
    
21.       c=substr(str,i,1);
    
22.       c=tolower(c);
    
23.       if((k=index("0123456789",c))>0)k--;
    
24.       else if((k=index("abcdef",c))>0) k+=9;
    
25.       ret=ret*16+k
    
26.     }
    
27.   }else if(str ~ /^[-+]?([0-9]+([.][0-9]*([Ee][0-9]+)?)?|([.][0-9]+([Ee][-+]?[0-9]+)?))$/){
    
28.     ret=str+0
    
29.   }
    
30.   else ret="NOT-A-NUMBER";
    
31.   return ret
    
32. }
    
33. function hex_ary(p,ary){
    
34.   p=str_val(p);
    
35.   ary="";
    
36.   while(p>0){
    
37.     ary=sprintf("%s:%d",ary,mod(p));
    
38.     p=div(p)
    
39.   }
    
40.   ary=substr(ary,2);
    
41.   return ary
    
42. }
    
43. function b_mul(a,b,c,i,j,m,n){
    
44.   m=length(a);
    
45.   n=length(b);
    
46.   for(i=1;i<=m;i++) for(j=1;
    
47.   j<=n;
    
48.   j++){
    
49.     c[i+j-1]+=a[i]*b[j];
    
50.     c[i+j]+=div(c[i+j-1]);
    
51.     c[i+j-1]=mod(c[i+j-1])
    
52.   }
    
53.   for(i=length(c);c[i]<1&&i>1;i--) delete c[i]
    
54. }
    
55. BEGIN{
    
56.   split(key,ks,":");
    
57.   split(ord,o,":");
    
58.   for(i=1;i<=l;i++) k[i]=str_val(sprintf("%s%s","0x",ks[length(ks)+1-o[i]]));
    
59.   split(hex_ary(ka),a,":");
    
60.   split(hex_ary(kb),b,":");
    
61.   split(hex_ary(kc),c,":");
    
62.   h=l;
    
63.   la=length(a);
    
64.   lb=length(b);
    
65.   lc=length(c);
    
66.   h=(h<la)?la:h;
    
67.   h=(h<lb)?lb:h;
    
68.   h=(h<lc)?lc:h;
    
69.   ta=str_val(ka);
    
70.   tb=str_val(kb);
    
71.   tc=str_val(kc)
    
72. }
    
73. {
    
74.   for(i=1;i<=NF;i++) printf "%02X ",xor(k[i],$i);
    
75.   if(NF<l) exit;
    
76.   tk=0;
    
77.   for(i=l;i>0;i--) tk=tk*256+k[o[i]];
    
78.   delete t;
    
79.   delete d;
    
80.   for(i=1;i<=2*h;i++) t[i]=(i>lb)?0:b[i];
    
81.   for(i=1;i<=l;i++) d[i]=k[o[i]];
    
82.   b_mul(d,a,t);
    
83.   delete p;
    
84.   tp=int((tk*ta+tb)/tc);
    
85.   i=1;
    
86.   while(tp>0){
    
87.     p[i++]=mod(tp);
    
88.     tp=div(tp)
    
89.   }
    
90.   ;
    
91.   delete q;
    
92.   b_mul(p,c,q);
    
93.   m=length(q);
    
94.   for(i=1;i<=m;i++){
    
95.     t[i]-=q[i];
    
96.     t[i+1]-=(t[i]<0);
    
97.     t[i]=mod(t[i]+256)
    
98.   }
    
99.   for(i=length(t);t[i]<1&&i>1;i--) delete t[i];
    
100.   for(i=1;i<=l;i++) k[o[i]]=t[i];
     
101. }'

复制代码

yestreenstars

回复 12# jason680

OMG
Orz
还真有人理楼主~
{:3_184:}
   

reb00t

回复 12# jason680


    大神威武！！

funexploit

如果只是需要看懂代码的话，我的完全可以满足要求：
1、建立tmp.c，复制代码
2、全选，运行格式化代码的命令C-M-\

格式化后的代码如下：

1. function mod(p)
   
2. {
   
3.     return (p % 256)}
   
4. 
   
5. function div(p)
   
6. {
   
7.     return int (p / 256)} function str_val(str, ret, chars, n, i, k, c)
   
8.     {
   
9.         if (str ~ /^0[0 - 7] * $ /) {
   
10.             n = length(str);
    
11.             ret = 0;
    
12.             for (i = 1; i <= n; i++) {
    
13.                 c = substr(str, i, 1);
    
14.                 if ((k = index("01234567", c)) > 0)
    
15.                     k--;
    
16.                 ret = ret * 8 + k}
    
17.         } else if (str ~ /^0[xX][[: xdigit:]] + /) {
    
18.             str = substr(str, 3);
    
19.             n = length(str);
    
20.             ret = 0;
    
21.             for (i = 1; i <= n; i++) {
    
22.                 c = substr(str, i, 1);
    
23.                 c = tolower(c);
    
24.                 if ((k = index("0123456789", c)) > 0)
    
25.                     k--;
    
26.                 else if ((k = index("abcdef", c)) > 0)
    
27.                     k += 9;
    
28.                 ret = ret * 16 + k}
    
29.         } else if (str ~
    
30.                    /^[-+]? ([0 - 9] +
    
31.                             ([.][0 - 9] * ([Ee][0 - 9] +) ?) ? |([.][0 - 9] +
    
32.                                                                  ([Ee][-+]?[0 - 9]
    
33.                                                                   +) ?)) $ /) {
    
34.             ret = str + 0} else
    
35.             ret = "NOT-A-NUMBER";
    
36.         return ret}
    
37. 
    
38. function hex_ary(p, ary)
    
39. {
    
40.     p = str_val(p);
    
41.     ary = "";
    
42.     while (p > 0) {
    
43.         ary = sprintf("%s:%d", ary, mod(p));
    
44.         p = div(p)}
    
45.     ary = substr(ary, 2);
    
46.     return ary}
    
47. 
    
48. function b_mul(a, b, c, i, j, m, n)
    
49. {
    
50.     m = length(a);
    
51.     n = length(b);
    
52.     for (i = 1; i <= m; i++)
    
53.         for (j = 1; j <= n; j++) {
    
54.             c[i + j - 1] += a[i] * b[j];
    
55.             c[i + j] += div(c[i + j - 1]);
    
56.             c[i + j - 1] = mod(c[i + j - 1])}
    
57.     for (i = length(c); c[i] < 1 && i > 1; i--)
    
58.         delete c[i]} BEGIN {
    
59.             split(key, ks, ":");
    
60.             split(ord, o, ":");
    
61.             for (i = 1; i <= l; i++)
    
62.                 k[i] = str_val(sprintf("%s%s", "0x", ks[length(ks) + 1 - o[i]]));
    
63.             split(hex_ary(ka), a, ":");
    
64.             split(hex_ary(kb), b, ":");
    
65.             split(hex_ary(kc), c, ":");
    
66.             h = l;
    
67.             la = length(a);
    
68.             lb = length(b);
    
69.             lc = length(c);
    
70.             h = (h < la) ? la : h;
    
71.             h = (h < lb) ? lb : h;
    
72.             h = (h < lc) ? lc : h;
    
73.             ta = str_val(ka);
    
74.             tb = str_val(kb);
    
75.             tc = str_val(kc)} {
    
76.             for (i = 1; i <= NF; i++)
    
77.                 printf "%02X ", xor(k[i], $i);
    
78.             if (NF < l)
    
79.                 exit;
    
80.             tk = 0;
    
81.             for (i = l; i > 0; i--)
    
82.                 tk = tk * 256 + k[o[i]];
    
83.             delete t;
    
84.             delete d;
    
85.             for (i = 1; i <= 2 * h; i++)
    
86.                 t[i] = (i > lb) ? 0 : b[i];
    
87.             for (i = 1; i <= l; i++)
    
88.                 d[i] = k[o[i]];
    
89.             b_mul(d, a, t);
    
90.             delete p;
    
91.             tp = int ((tk * ta + tb) / tc);
    
92.             i = 1;
    
93.             while (tp > 0) {
    
94.                 p[i++] = mod(tp);
    
95.                 tp = div(tp)};
    
96.             delete q;
    
97.             b_mul(p, c, q);
    
98.             m = length(q);
    
99.             for (i = 1; i <= m; i++) {
    
100.                 t[i] -= q[i];
     
101.                 t[i + 1] -= (t[i] < 0);
     
102.                 t[i] = mod(t[i] + 256)}
     
103.             for (i = length(t); t[i] < 1 && i > 1; i--)
     
104.                 delete t[i];
     
105.             for (i = 1; i <= l; i++)
     
106.                 k[o[i]] = t[i];
     
107.                      }
     
108. 
     

复制代码

格式化命令C-M-\对应的elisp函数：

1. ;; 调用外部的indent命令格式化代码
   
2. (defun edx-indent-region (start end)
   
3.   (interactive "r")
   
4.   (let ((old-region-end (- (point-max) end)))
   
5.         (save-excursion
   
6.           ;; 先调用Gnu indent命令对选中的代码进行格式化
   
7.           (call-process-region
   
8.                 start end "indent" t (list (buffer-name) nil) nil
   
9.                 "-kr"                                                        ; K&R风格
   
10.                 "-l80"                                                        ; 超过这个值后断行
    
11.                 )
    
12.           ;; 然后用emacs自带的indent-region命令对代码进行二次格式化
    
13.           (indent-region start (- (point-max) old-region-end))
    
14.           (save-buffer)
    
15.           )))
    

复制代码

jason680

回复 15# funexploit

There is some issue with BEGIN block

1.     ...
   
2.     for (i = length(c); c[i] < 1 && i > 1; i--)
   
3.         delete c[i]} BEGIN {
   
4.     ...

复制代码

funexploit

回复 16# jason680

这是格式化c代码的elisp程序，如果只是为了能看懂复杂的awk脚本的话，完全够用了
   

李满满

大神为何如此叼扎天~

Herowinter

回复 12# jason680

大神为何这么吊，国庆的缘故吗？
   

ziyunfei

你需要写一个shell parser 和 awk parser, 才有可能写出适合这个 case 的完美的 beautifier