r

来自「这是一个使用 cobol 实现的 unix 系统下的汉字输入法程序」· 代码 · 共 22 行

# 定义文件存储目录
HOME=$HOME/myf
if  [ ! -d $HOME ]
then mkdir $HOME
fi
if [ -f rts32 ]
then COBDIR=.
     COBRUN=./rts32
elif [ -f /usr/lib/cobol/rts32 ]
then COBRUN=/usr/lib/cobol/rts32
else echo "没有COBOL运行支持系统! 再见!"
     exit 1
fi
COBSW=-F-i
#COBSW=-F
export HOME COBSW COBDIR
if [ "$1" = "" ]
then INT=xwblx
else INT=$1
fi
$COBRUN $INT