# # pal2abl.ksh - convert Palasm source to Abel source # # Version: 0.01 # Date : 15 Jan 1997 # Disk : rulhe1:~moene/msdos/adm/ea/pal2abl/ # Author : M.J. Moene # # Usage: sh ./pal2abl.ksh [file ...] # # trap '' INT EXIT typeset bnm=${0%.*} # basename typeset prg=${bnm##*/} awk=${bnm}.awk ver="0.00" dat="1 Oct 1992" if [ $# -eq 0 ] then print - "$prg $ver Program to convert PALASM source to ABEL source file." print - "Usage: $prg [file ...]" exit 1 fi for src in $@ # for all specified files do # e.g. ./HL9102A.PAL typeset -l tmp=${src%%.*} # --> ./hl9102a typeset -l tmp=${tmp%%a} # --> ./hl9102 typeset -l dst=${tmp}b.abl # --> ./hl9102b.abl ( dest. filename ) typeset -u mod=${tmp##*/}B # --> HL9102B ( module name ) if [ -f $src ] # if file exists: then # then process it print - "$dst:" awkl -f $awk module=$mod $src >$dst || rm $dst else # else warn user print - "$prg: cannot find file $src." fi done # # End of file #