File: mpfrcase2.awk

package info (click to toggle)
gawk 1%3A5.3.2-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 24,120 kB
  • sloc: ansic: 56,743; awk: 14,966; sh: 6,985; yacc: 6,820; makefile: 3,144; sed: 119; python: 31; csh: 6
file content (19 lines) | stat: -rw-r--r-- 481 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
{
    for (i = 1; i <= NF; i++) {
        switch ($i) {
            case "+" : case "-" :
            case "*" : case "/" :
            case "%" : case "^" :
                printf $i; break
            case /[a-z]/ :
                printf $i; break
            case /[0-9]/ : 
                printf $i; break
            case /[ \t]/ :
                printf $i; break
            default :
                print " wrong character " i " th: "  $i
        }
    }
    print ""
}