File: make_bin

package info (click to toggle)
mit-scheme 12.1-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 208,300 kB
  • sloc: lisp: 781,881; xml: 425,435; ansic: 86,059; sh: 10,135; makefile: 2,501; asm: 2,121; csh: 1,143
file content (27 lines) | stat: -rwxr-xr-x 436 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
20
21
22
23
24
25
26
27
 
#!/bin/sh

scheme=`pwd`

if [ ! -x $scheme/microcode/Psbtobin ]
then
  (cd $scheme/microcode; make Psbtobin)
fi

cd $scheme/psb
for i in `find * -type d -print | xargs echo`
do
  if [ ! -d $scheme/$i ]
  then
    echo "mkdir $scheme/$i"
    mkdir $scheme/$i
  fi
  cd $scheme/psb/$i
  for j in *
  do
    if [ -f $j ]
    then
      echo "Psbtobin $scheme/$i/$j"
      $scheme/microcode/Psbtobin < $j > $scheme/$i/$j
    fi
  done
done