getdefs.awk

来自「用于求解大型稀疏线性方程组Ax=b的数值计算库.」· AWK 代码 · 共 15 行

/DEL/ {  
                 val = $0
                 gsub(/DEL /,"",val)
                 printf("/%s/d\n", val)
                 next; 
}

{
                 var = $0
                 val = $0
                 gsub(/ <- .*/,"",var)
                 gsub(/.* <- /,"",val)
                 printf("s/%s/%s/\n", var,val)
}