editor.sus

来自「汇编&c语言code」· SUS 代码 · 共 85 行

cls :a 30 "Microsoft Editor 1.00 Setup"

echo "Select Operation configuration"
echo
echo "  dos -  is for all version of MSdos 2.x & 3.x"
echo "  os2 -  is for protect mode only support for OS/2"
echo "  both - is for protect mode & real mode for OS/2"
echo

set os="dos"
if (dosVersion >= 1000) then set os="os2"

:selectOS
dialog simple,os,"Enter dos,os2 or both: "
if (os == "dos") then goto oka
if (os == "os2") then goto oka
if (os != "both") then goto selectOS
:oka

cls
echo "Next you will enter directary setup will install the editor files"
echo "When prompted for path, enter the drive and directary"
echo "For example: C:\, c:\bin"
echo "To accept proposed response, just press enter"
echo
set exeDir="c:\bin"

if (os != "os2")
    dialog simplePath,exeDir,"Enter path for DOS excutable programs: "
    set exeDirb=exeDir
endif

if (os != "dos")
    set exeDirb=exeDir:d
    set exeDirb=exeDirb&"\binb"
    dialog simplePath,exeDirb,"Enter path for dual mode excutable programs: "

    set exepDir=exeDirb:d
    set exepDir=exepDir&"\binp"
    dialog simplePath,exepDir,"Enter path for OS/2 only excutable programs: "
    if (os == "os2") then set exeDir=exepDir
endif

set iniDir=exeDir
dialog simplePath,iniDir,"Enter path for tools.ini file: "
if (not exist iniDir) then md iniDir

if (os != "os2") then copy "m.exe" exeDir

copy "rm.exe undel.exe megrep.exe calltree.exe ech.exe exp.exe" exeDirb

cls
echo "On startup, the Microsoft Editor keys will behave like:"
echo
echo "       QUICK - languages / Wordstar"
echo "       BRIEF"
echo "       EPSILON"
echo

set keys="quick"
:selectKeys
dialog simple,keys,"Type quick, brief or epsilon: "

if (keys == "quick") then goto okb
if (keys == "brief") then goto okb
if (keys != "epsilon") then goto selectKeys
:okb

set toKeys="a:ini\"&keys
set keys=toKeys&".ini"
set toKeys=iniDir&"\tools.ini"

if (exist toKeys)
  exec COMSPEC "/c copy " toKeys " + " keys " " toKeys

else
  copyto keys toKeys
endif


if (os != "dos")
  set volId="OS2 Program"
  copy "mep.exe" exepDir
endif