开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数值算法/人工智能 > 查看源码
extman.awk
资源名称：leda.tar.gz　[点击查看]
上传用户：gzelex
上传日期：2007-01-07
资源大小：707k
文件大小：5k
源码类别：

数值算法/人工智能

开发平台：

MultiPlatform

extman.awk：源码内容
  1. BEGIN { datatype = "?????????????"; }
  3. function removeweb() 
  4. { x = 0; 
  5. # gsub(/|.*|/,"$DUMMY$");
  6. # gsub("_","\\_");
  7. }
  10. //*{\Moperations/ { 
  11.   sub(//*{/,"");
  12.   sub(/}*//,"");
  13.   sub("Moperations","operations");
  14.   print;
  15.   print " ";
  16. }
  18. //*{\Mop/ {
  19.   if ($1 ~ "opl")
  20.      print "\opl " memberfunc;
  21.   else
  22.      print "\op  " memberfunc;
  23.   $1 = "           { ";
  24.   while ($0 !~ /} **//)
  25.   { removeweb();
  26.     print;
  27.     getline;
  28.    }
  29.   sub(/} **//," }");
  30.   removeweb();
  31.   print;
  32.   print " ";
  33.   print " ";
  34.   getline;
  35. }
  37. //*{\Mfunc/ {
  38.   if ($1 ~ "funcl")
  39.      print "\funcl " memberfunc;
  40.   else
  41.      print "\func  " memberfunc;
  42.   $1 = "           { ";
  43.   while ($0 !~ /} **//)
  44.   { removeweb();
  45.     print;
  46.     getline;
  47.    }
  48.   sub(/} **//," }");
  49.   removeweb();
  50.   print;
  51.   print " ";
  52.   print " ";
  53.   getline;
  54. }
  56. //*{\Mbinopfunc/ {
  57.   split(memberfunc,arr);
  58.   if (arr[2] !~ /[a-z,A-Z]+.*/)   # binary operator
  59.   { sub(arr[2],"",memberfunc);
  60.     sub(/(/,"",memberfunc);
  61.     sub(/)/,"",memberfunc);
  62.     sub(/,/,"\ "arr[2],memberfunc);
  63.    }
  64.   rtype = arr[1]
  65.   sub(/\/,"\\",rtype);
  66.   sub(rtype,"",memberfunc);
  67.   gsub(datatype,"",memberfunc);
  68.   gsub(/ \ /,"",memberfunc);
  69.   sub(/ &/," \\&",memberfunc);
  70.   print "\binopfunc  " arr[1] " " memberfunc;
  71.   $1 = "           { ";
  72.   while ($0 !~ /} **//)
  73.   { removeweb();
  74.     print;
  75.     getline;
  76.    }
  77.   sub(/} **//," }");
  78.   removeweb();
  79.   print;
  80.   print " ";
  81.   print " ";
  82.   getline;
  83. }
  87. //*{\Marrop/ {
  88.   sub(/[]/,"",memberfunc);
  89.   sub(/(/,"",memberfunc);
  90.   sub(/)/,"",memberfunc);
  91.   print "\arrop " memberfunc;
  92.   $1 =  "         { ";
  93.   while ($0 !~ /} **//)
  94.   { removeweb();
  95.     print;
  96.     getline;
  97.    }
  98.   sub(/} **//," }");
  99.   removeweb();
  100.   print;
  101.   print " ";
  102.   print " ";
  103.   getline;
  104. }
  106. //*{\Mfunop/ {
  107.   gsub(/(/,"",memberfunc);
  108.   gsub(/)/,"",memberfunc);
  109.   print "\funop " memberfunc;
  110.   $1 =  "         { ";
  111.   while ($0 !~ /} **//)
  112.   { removeweb();
  113.     print;
  114.     getline;
  115.    }
  116.   sub(/} **//," }");
  117.   removeweb();
  118.   print;
  119.   print " ";
  120.   print " ";
  121.   getline;
  122. }
  124. //*{\Munop/ {
  125.   if (memberfunc ~ /( *int/)       # postfix op
  126.     opcmd = "\postunop ";
  127.   else
  128.     opcmd = "\unop ";
  129.   sub(/(.*)/,"",memberfunc);
  130.   sub(/{}/,"",memberfunc);
  131.   print opcmd memberfunc;
  132.   $1 =  "         { ";
  133.   while ($0 !~ /} **//)
  134.   { removeweb();
  135.     print;
  136.     getline;
  137.    }
  138.   sub(/} **//," }");
  139.   removeweb();
  140.   print;
  141.   print " ";
  142.   print " ";
  143.   getline;
  144. }
  148. //*{\Mbinop/ {
  149.   dtype = datatype;
  150.   sub(/\/,"\\",dtype);
  151.   gsub(dtype,"@",memberfunc); # delete all but first occurences of datatype
  152.   sub(/^@/,datatype,memberfunc);
  153.   gsub(/@/,"",memberfunc);
  154.   sub(/(/,"",memberfunc);
  155.   sub(/)/,"",memberfunc);
  156.   gsub(/ \ /,"",memberfunc);
  157.   print "\binop " memberfunc;
  158.   $1 =  "         { ";
  159.   while ($0 !~ /} **//)
  160.   { removeweb();
  161.     print;
  162.     getline;
  163.    }
  164.   sub(/} **//," }");
  165.   removeweb();
  166.   print;
  167.   print " ";
  168.   print " ";
  169.   getline;
  170. }
  174. //*{\Mcreate/ {
  175.   print "\create " constargs;
  176.   $1 = "   {"
  177.   while ($0 !~ /} **//)
  178.   { removeweb();
  179.     print;
  180.     getline;
  181.    }
  182.   gsub(/} **//," }");
  183.   removeweb();
  184.   print;
  185.   print " ";
  186.   print " ";
  187.   getline;
  188. }
  191. //*{\Manpage/ { 
  192.   sub(//*{\Manpage/,"\manpage");
  193.   sub(/}*//,"");
  194.   gsub("_","\_");
  195.   print;
  196.   print " ";
  197.   gsub("{"," ");
  198.   gsub("}"," ");
  199.   datatype = $2;
  200. }
  204. //*{\Mtext/ { 
  205.   sub(//*{\Mtext/,"");
  206.   while ($0 !~ /}*//) 
  207.   { removeweb();
  208.     print;
  209.     getline;
  210.    }
  211.   sub(/}*//,"");
  212.   removeweb();
  213.   print;
  214.   print " ";
  215. }
  217. //*{\M/ { 
  218.   sub(//*{\M/,"\");
  219.   while ($0 !~ /}*//) 
  220.   { removeweb();
  221.     print;
  222.     getline;
  223.    }
  224.   sub(/}*//,"");
  225.   removeweb();
  226.   print;
  227.   print " ";
  228. }
  231. /^ *[a-z,A-Z,0-9,_,&,<,>]+ +[a-z,A-Z,0-9,_,&]+/ {  # member or friend function ?
  232. sub(/ *virtual */,"");
  233. sub("return","");
  234. sub("friend","");
  235. sub("inline","");
  236. sub("extern","");
  237. if ($0 ~ /^.*operator/ || $0 ~ /^ *[a-z,A-Z,0-9,_,&,<,>]+ +[a-z,A-Z,0-9,_]+(.*)/)
  238.    { 
  239.       sub(/ *{.*$/,"");
  240.       sub(/ +$/,"");
  241.       sub(/;$/,"");
  242.       sub(/^ +/,"");
  244.       gsub("<","\<",$1);   # replace template brackets in first arg
  245.       gsub(">","\>",$1);
  246.       gsub("_","\_");
  247.       gsub("%","\%");
  248.       gsub("\|","|");
  249.       gsub("~","\tilde{}");
  250.       sub(/const *$/,"");
  251.       sub(/operator */,"operator");
  252.       sub(/(/," {(");
  253.       sub(/) *$/,")}");
  254.       if ($0 !~ /(*.+)/)
  255.         { #gsub(/, */,", ");
  256.           for(i=2;i<NF;i++) sub(/, */,", ",$i);
  257.           for(i=3;i<NF;i++) 
  258.           { if ($i ~ "const") 
  259.               { j = i+1;
  260.                 sub("&","",$j);
  261.                 sub(/const */,"",$i); 
  262.                }
  263.             else
  264.               sub(/$/,"\",$i);
  265.             gsub("<","\<",$i);  # replace template brackets in parameters 
  266.             gsub(">","\>",$i);
  267.            }
  268.          }
  269.       else
  270.          for(i=3;i<NF;i++) sub(/$/,"\",$i);
  271.       sub(/operator/,"");
  272.       gsub(/&/,"\\&");
  274.       memberfunc = $0;
  275.      }
  276.  }
  280. { if ($0 ~ datatype"\(")  # constructor ?
  281.   {
  282.     gsub("_","\_");
  283.     gsub("&","");
  284.     gsub(/const */,"");
  285.     sub(/ *{.*$/,"");
  286.     sub(/::/,"doppeldoppel");
  287.     sub(/ *:.*$/,"");
  288.     sub("doppeldoppel","::");
  289.     sub(/; *$/,"");
  290.     sub(/(/," {(");
  291.     sub(/) *$/,")}");
  292.     sub(/^.*{/,"{");
  293.     sub(" ","\ ");
  294.     for(i=2;i<NF;i++) sub(/$/,"\",$i);
  295.     sub("\(\)"," ");
  296.     gsub("<","\<");
  297.     gsub(">","\>");
  298.     constargs = $0
  299.    }
  300. }