1 # A kind of clone of dc geared towards binary operations. 2 # by Paolo Bonzini 3 # 4 # commands available: 5 # conversion commands 6 # b convert decimal to binary 7 # d convert binary to decimal 8 # 9 # arithmetic commands 10 # < shift left binary by decimal number of bits (11 3< gives 11000) 11 # > shift right binary by decimal number of bits (1011 2> gives 10) 12 # & binary AND (between two binary operands) 13 # | binary OR (between two binary operands) 14 # ^ binary XOR (between two binary operands) 15 # ~ binary NOT (between one binary operand) 16 # 17 # stack manipulation commands 18 # c clear stack 19 # P pop stack top 20 # D duplicate stack top 21 # x exchange top two elements 22 # r rotate stack counter-clockwise (second element becomes first) 23 # R rotate stack clockwise (last element becomes first) 24 # 25 # other commands 26 # l print stack (stack top is first) 27 # p print stack top 28 # q quit, print stack top if any (cq is quiet quit) 29 # 30 # The only shortcoming is that you'd better not attempt conversions of 31 # values above 1000 or so. 32 # 33 # This version does everything in pattern space (a la dc.sed). 34 # -------------------------------------------------------------------------- 35 # This was actually used in a one-disk distribution of Linux to compute 36 # netmasks as follows (1 parameter => compute netmask e.g. 24 becomes 37 # 255.255.255.0; 2 parameters => given host address and netmask compute 38 # network and broadcast addresses): 39 # 40 # if [ $# = 1 ]; then 41 # OUTPUT='$1.$2.$3.$4' 42 # set 255.255.255.255 $1 43 # else 44 # OUTPUT='$1.$2.$3.$4 $5.$6.$7.$8' 45 # fi 46 # 47 # if [ `expr $2 : ".*\\."` -gt 0 ]; then 48 # MASK="$2 br b8<r b16<r b24< R|R|R|" 49 # else 50 # MASK="$2b 31b ^d D 51 # 11111111111111111111111111111111 x>1> x<1<" 52 # fi 53 # 54 # set `echo "$1 br b8<r b16<r b24< R|R|R| D # Load address 55 # $MASK D ~r # Load mask 56 # 57 # & DDD 24>dpP 16>11111111& dpP 8>11111111& dpP 11111111& dpP 58 # | DDD 24>dpP 16>11111111& dpP 8>11111111& dpP 11111111& dpP 59 # " | sed -f binary.sed` 60 # 61 # eval echo $OUTPUT 62 # -------------------------------------------------------------------------- 63 64 65 1s/^/%%/ 66 67 :cmd 68 s/\(.*%%\) *\([0-9][0-9]*\)/\2\ 69 \1/ 70 tcmd 71 s/%% *#.*/%%/ 72 /%%$/ { 73 $b quit 74 N 75 } 76 77 /^.*%%D/ s/^[^\n]*\n/&&/ 78 /^.*%%P/ s/^[^\n]*\n// 79 /^.*%%x/ s/^\([^\n]*\n\)\([^\n]*\n\)/\2\1/ 80 /^.*%%r/ s/^\([^\n]*\n\)\([^%]*\)/\2\1/ 81 /^.*%%R/ s/^\([^%]*\n\)\([^\n]*\n\)/\2\1/ 82 /^.*%%c/ s/^.*%%/%%/ 83 /^.*%%p/ P 84 85 /^.*%%l/ { 86 h 87 s/.%%.*// 88 p 89 g 90 } 91 92 /^.*%%q/ { 93 :quit 94 /^%%/!P 95 d 96 } 97 98 /^.*%%b/ { 99 # Decimal to binary via analog form 100 s/^\([^\n]*\)/-&;9876543210aaaaaaaaa/ 101 :d2bloop1 102 s/\(a*\)-\(.\)\([^;]*;[0-9]*\2.\{9\}\(a*\)\)/\1\1\1\1\1\1\1\1\1\1\4-\3/ 103 t d2bloop1 104 s/-;9876543210aaaaaaaaa/;a01!/ 105 :d2bloop2 106 s/\(a*\)\1\(a\{0,1\}\)\(;\2.\(.\)[^!]*!\)/\1\3\4/ 107 /^a/b d2bloop2 108 s/[^!]*!// 109 } 110 111 /^.*%%d/ { 112 # Binary to decimal via analog form 113 s/^\([^\n]*\)/-&;10a/ 114 :b2dloop1 115 s/\(a*\)-\(.\)\([^;]*;[0-9]*\2.\(a*\)\)/\1\1\4-\3/ 116 t b2dloop1 117 s/-;10a/;aaaaaaaaa0123456789!/ 118 :b2dloop2 119 s/\(a*\)\1\1\1\1\1\1\1\1\1\(a\{0,9\}\)\(;\2.\{9\}\(.\)[^!]*!\)/\1\3\4/ 120 /^a/b b2dloop2 121 s/[^!]*!// 122 } 123 124 /^.*%%&/ { 125 # Binary AND 126 s/\([^\n]*\)\n\([^\n]*\)/-\1-\2-111 01000/ 127 :andloop 128 s/\([^-]*\)-\([^-]*\)\([^-]\)-\([^-]*\)\([^-]\)-\([01 ]*\3\5\([01]\)\)/\7\1-\2-\4-\6/ 129 t andloop 130 s/^0*\([^-]*\)-[^\n]*/\1/ 131 s/^\n/0&/ 132 } 133 134 /^.*%%^/ { 135 # Binary XOR 136 s/\([^\n]*\)\n\([^\n]*\)/-\1-\2-000 01101/ 137 b orloop 138 } 139 140 /^.*%%|/ { 141 # Binary OR 142 s/\([^\n]*\)\n\([^\n]*\)/-\1-\2-000 10111/ 143 :orloop 144 s/\([^-]*\)-\([^-]*\)\([^-]\)-\([^-]*\)\([^-]\)-\([01 ]*\3\5\([01]\)\)/\7\1-\2-\4-\6/ 145 t orloop 146 s/\([^-]*\)-\([^-]*\)-\([^-]*\)-[^\n]*/\2\3\1/ 147 } 148 149 /^.*%%~/ { 150 # Binary NOT 151 s/^\(.\)\([^\n]*\n\)/\1-010-\2/ 152 :notloop 153 s/\(.\)-0\{0,1\}\1\(.\)0\{0,1\}-\([01\n]\)/\2\3-010-/ 154 t notloop 155 156 # If result is 00001..., \3 does not match (it looks for -10) and we just 157 # remove the table and leading zeros. If result is 0000...0, \3 matches 158 # (it looks for -0), \4 is a zero and we leave a lone zero as top of the 159 # stack. 160 161 s/0*\(1\{0,1\}\)\([^-]*\)-\(\1\(0\)\)\{0,1\}[^-]*-/\4\1\2/ 162 } 163 164 /^.*%%</ { 165 # Left shift, convert to analog and add a binary digit for each analog digit 166 s/^\([^\n]*\)/-&;9876543210aaaaaaaaa/ 167 :lshloop1 168 s/\(a*\)-\(.\)\([^;]*;[0-9]*\2.\{9\}\(a*\)\)/\1\1\1\1\1\1\1\1\1\1\4-\3/ 169 t lshloop1 170 s/^\(a*\)-;9876543210aaaaaaaaa\n\([^\n]*\)/\2\1/ 171 s/a/0/g 172 } 173 174 /^.*%%>/ { 175 # Right shift, convert to analog and remove a binary digit for each analog digit 176 s/^\([^\n]*\)/-&;9876543210aaaaaaaaa/ 177 :rshloop1 178 s/\(a*\)-\(.\)\([^;]*;[0-9]*\2.\{9\}\(a*\)\)/\1\1\1\1\1\1\1\1\1\1\4-\3/ 179 t rshloop1 180 s/^\(a*\)-;9876543210aaaaaaaaa\n\([^\n]*\)/\2\1/ 181 :rshloop2 182 s/.a// 183 s/^aa*/0/ 184 /a\n/b rshloop2 185 } 186 187 188 s/%%./%%/ 189 tcmd 190
