home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / d / d423_liu / 9.ddi / SUBROUTN.IN_ / SUBROUTN.IN
Encoding:
INI File  |  1993-07-24  |  10.9 KB  |  324 lines
  1. [SetupMessage]
  2.     set Status     = STATUS_FAILED
  3.     set UserAction = "CANCEL"
  4.     set LanguageList = ^(LanguageID, 1)
  5.     Ifcontains(i) $($0) in $(LanguageList)
  6.         goto displaymessage
  7.     else
  8.         set Status = STATUS_NOLANGUAGE
  9.         goto finish_SetupMessage
  10.     endif
  11. displaymessage = +
  12.     set DlgText = $($2)
  13.     ifstr(i) $($1) == "WARNING"
  14.         read-syms WarningDlg$($0)
  15.     else-ifstr(i) $($1) == "FATAL"
  16.         read-syms FatalDlg$($0)
  17.     else-ifstr(i) $($1) == "NONFATAL"
  18.         read-syms NonfatalDlg$($0)
  19.     else-ifstr(i) $($1) == "STATUS"
  20.         read-syms StatusDlg$($0)
  21.     else
  22.         goto finish_SetupMessage
  23.     endif
  24.     ui start "SetupMessage"
  25.     ifstr(i) $(DLGEVENT) == "OK"
  26.         set Status     = STATUS_SUCCESSFUL
  27.         set UserAction = $(DLGEVENT)
  28.     else-ifstr(i) $(DLGEVENT) == "CANCEL"
  29.         set Status     = STATUS_SUCCESSFUL
  30.         set UserAction = $(DLGEVENT)
  31.     else
  32.     endif
  33. finish_SetupMessage = +
  34.     Return $(Status) $(UserAction)
  35.     end
  36. [QueryUserQuit]
  37.     set Status     = STATUS_FAILED
  38.     set UserAction = CANCEL
  39.     set LanguageList = ^(LanguageID, 1)
  40.     Ifcontains(i) $($0) in $(LanguageList)
  41.     else
  42.         set Status = STATUS_NOLANGUAGE
  43.         goto fin_QueryUserQuit
  44.     endif
  45.     read-syms ExitWarningDlg$($0)
  46.     ui start "ExitWarning"
  47.     ifstr(i) $(DLGEVENT) == "YES"
  48.         set Status     = STATUS_SUCCESSFUL
  49.         set UserAction = "OK"
  50.     else-ifstr(i) $(DLGEVENT) == "NO"
  51.         set Status     = STATUS_SUCCESSFUL
  52.         set UserAction = "CANCEL"
  53.     else
  54.     endif
  55. fin_QueryUserQuit = +
  56.     Return $(Status) $(UserAction)
  57. [PushBillboard]
  58.     read-syms BillboardDlg$(!STF_LANGUAGE)
  59.     ui start "Billboard"
  60.     Return
  61. [PopBillboard]
  62.     ui pop 1
  63.     Return
  64. [AllocateUnusedDrive]
  65.     set Status = STATUS_FAILED
  66.     set Drive  = ""
  67.     ifstr(i) $(!STF_UNUSEDDRIVES) == {}
  68.         goto finish_allocate
  69.     else-ifstr(i) $(!STF_UNUSEDDRIVES) == ""
  70.         goto finish_allocate
  71.     else
  72.         set NewDriveList = {}
  73.         ForListDo $(!STF_UNUSEDDRIVES)
  74.             ifstr(i) $(#) != 1
  75.                 set NewDriveList = >($(NewDriveList), $($))
  76.             else
  77.                 set Drive  = $($)
  78.                 set Status = STATUS_SUCCESSFUL
  79.             endif
  80.         EndForListDo
  81.         set !STF_UNUSEDDRIVES = $(NewDriveList)
  82.     endif
  83. finish_allocate = +
  84.     Return $(Status) $(Drive)
  85. [FreeUnusedDrive]
  86.     set !STF_UNUSEDDRIVES = >($(!STF_UNUSEDDRIVES), $($0))
  87.     Return
  88. [DriversExist]
  89.     set Status = STATUS_FAILED
  90.     set LanguageList = ^(LanguageID, 1)
  91.     Ifcontains(i) $($0) in $(LanguageList)
  92.     else
  93.         set Status = STATUS_NOLANGUAGE
  94.         goto finish_DriversExist
  95.     endif
  96.     read-syms DriversExistDlg$($0)
  97.     ui start "DriversExist"
  98.     ifstr(i) $(DLGEVENT) == "DLGBUTTON0"
  99.         set Status = STATUS_CURRENT
  100.     else-ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
  101.         set Status = STATUS_NEW
  102.     else-ifstr(i) $(DLGEVENT) == "BACK"
  103.         set Status = STATUS_USERCANCEL
  104.     endif
  105.     ui pop 1
  106. finish_DriversExist = +
  107.     Return $(Status)
  108. [DoAskSource]
  109.     read-syms DoAskSourceDlgText$(!STF_LANGUAGE)
  110.     shell "" DoAskSourceEx $($0) $(DlgText)
  111.     Return $($R0) $($R1) $($R2) $($R3)
  112. [DoAskSourceEx]
  113.     set Status      = STATUS_FAILED
  114.     set Src         = $($0)
  115.     set DriveToFree = ""
  116.     read-syms  AskSourceStrings$(!STF_LANGUAGE)
  117. asksource = +
  118.     read-syms DisketteDlg$(!STF_LANGUAGE)
  119.     ui start "Diskette"
  120.     ifstr(i) $(DLGEVENT) == "CONTINUE"
  121.         LibraryProcedure IsFullPath, $(!LIBHANDLE), CheckPathFullPathSpec $(EditTextOut)
  122.         ifstr(i) $(IsFullPath) == "NO"
  123.             StartWait
  124.             LibraryProcedure STATUS, $(!LIBHANDLE), ProcessForUNC $(EditTextOut)
  125.             EndWait
  126.             ifstr(i) $(STATUS) == "ERROR"
  127.                 shell "" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String1)
  128.                 goto asksource
  129.             else-ifstr(i) $(STATUS) == "NOT-UNC"
  130.                 shell "" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String2)
  131.                 goto asksource
  132.             else-ifstr(i) $(STATUS) == "UNC-FAILCONNECT"
  133.                 shell "" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String4)
  134.                 goto asksource
  135.             else
  136.                 set Src = $(STATUS)
  137.             endif
  138.         else
  139.             set Src = $(EditTextOut)
  140.         endif
  141.         ui pop 1
  142.         LibraryProcedure STATUS, $(!LIBHANDLE), AppendBackSlash $(Src)
  143.         ifstr(i) $(STATUS) == "ERROR"
  144.             goto finish_DoAskSource
  145.         else
  146.             set Src = $(STATUS)
  147.             set Status = STATUS_SUCCESSFUL
  148.             goto finish_DoAskSource
  149.         endif
  150.     else-ifstr(i) $(DLGEVENT) == "BACK"
  151.         ui pop 1
  152.         set Status = STATUS_USERCANCEL
  153.         goto finish_DoAskSource
  154.     else
  155.         ui pop 1
  156.         goto finish_DoAskSource
  157.     endif
  158. finish_DoAskSource = +
  159.     Return $(Status) $(Src) $(DriveToFree) $(EditTextOut)
  160. [SetupHelpIds]
  161.     !MinimumID                 =    0
  162.     !MaximumID                 = 5000
  163.     !InitialContentsID         = 5
  164.     !IDH_DB_COMPUTERNAMEQ_INS  =   10
  165.     !IDH_DB_COMPUTERNAMEV_INS  =   11
  166.     !IDH_DB_FULLNAMEQ_INS      =   30
  167.     !IDH_DB_FULLNAMEV_INS      =   31
  168.     !IDH_DB_ORGNAMEQ_INS       =   32
  169.     !IDH_DB_ORGNAMEV_INS       =   33
  170.     !IDH_DB_INSTALLMODE_INS    =   50
  171.     !IDH_DB_OPTIONS_INS        =   60
  172.     !IDH_DB_SYSTEM_INS         =   70
  173.     !IDH_DB_VIRTUAL_INS        =   80
  174.     !IDH_DB_REPAIR_INS         =   90
  175.     !IDH_DB_PRNSETUP_INS       =  100
  176.     !IDH_DB_OPTIONAL_INS       =  110
  177.     !IDH_DB_CUSTOMISE_INS      =  111
  178.     !IDH_DB_OEMSINGLESEL_INS   =  120
  179.     !IDH_DB_OEMMULTISEL_INS    =  121
  180.     !IDH_DB_ACCOUNTSETUP_INS   =  130
  181.     !IDH_DB_ACCOUNTADMN_INS    =  131
  182.     !IDH_DB_SEARCHDRIVE_INS    =  150
  183.     !IDH_DB_APPCONFLICT_INS    =  151
  184.     !IDH_DB_MAINTAIN_INS            = 1000
  185.     !IDH_DB_MOPTIONAL_INS           = 1010
  186.     !IDH_DB_MCUSTOMISE_INS          = 1011
  187.     !IDH_DB_MSYSTEM_INS             = 1020
  188.     !IDH_DB_MPROFILE_INS            = 1030
  189.     !IDH_DB_SCSI_DRIVER_INS         = 1040
  190.     !IDH_DB_SCSI_SELECTDRIVER_INS   = 1041
  191.     !IDH_DB_DRIVEREXIST_INS         = 1042
  192.     !IDH_DB_TAPE_DRIVER_INS         = 1043
  193.     !IDH_DB_TAPE_SELECTDRIVER_INS   = 1044
  194.     !IDH_DB_CARDSELECTION_INS   = 3000  
  195.     !IDH_DB_SOFTSELECTION_INS   = 3001  
  196.     !IDH_DB_OEMNADD1_INS        = 3500  
  197.     !IDH_DB_OEMNADD2_INS        = 3510  
  198.     !IDH_DB_OEMNADDE_INS        = 3520  
  199.     !IDH_UB_OEMNADDP_INS        = 3521  
  200.     !IDH_DB_OEMNADE1_INS        = 3530  
  201.     !IDH_DB_OEMNADE2_INS        = 3540  
  202.     !IDH_DB_OEMNADE3_INS        = 3545  
  203.     !IDH_DB_OEMNADLB_INS        = 3546  
  204.     !IDH_DB_OEMNADAM_INS        = 3547  
  205.     !IDH_DB_OEMNADEM_INS        = 3550  
  206.     !IDH_DB_OEMNADN2_INS        = 3551  
  207.     !IDH_DB_OEMNADN1_INS        = 3552  
  208.     !IDH_DB_OEMNADNE_INS        = 3560  
  209.     !IDH_DB_OEMNADIN_INS        = 3561  
  210.     !IDH_DB_OEMNADP3_INS        = 3570  
  211.     !IDH_DB_OEMNADP9_INS        = 3580  
  212.     !IDH_DB_OEMNADSO_INS        = 3590  
  213.     !IDH_DB_OEMNADTK_INS        = 3600  
  214.     !IDH_DB_OEMNADTM_INS        = 3605  
  215.     !IDH_DB_OEMNADUB_INS        = 3610  
  216.     !IDH_DB_OEMNADWD_INS        = 3620  
  217.     !IDH_DB_OEMNADWM_INS        = 3630  
  218.     !IDH_DB_OEMNSVNB_INS        = 3640  
  219.     !IDH_DB_OEMNSVRD_INS        = 3650  
  220.     !IDH_DB_OEMNSVRE_INS        = 3660  
  221.     !IDH_DB_OEMNSVSV_INS        = 3670  
  222.     !IDH_DB_OEMNSVWK_INS        = 3680  
  223.     !IDH_DB_OEMNXPDL_INS        = 3690  
  224.     !IDH_DB_OEMNXPNB_INS        = 3700  
  225.     !IDH_DB_OEMNXPSN_INS        = 3710  
  226.     !IDH_DB_OEMNXPSN_1          = 3711  
  227.     !IDH_DB_OEMNXPSN_2          = 3712  
  228.     !IDH_DB_OEMNXPTC_INS        = 3720  
  229.     !IDH_DB_OEMNXPTC_1          = 3721  
  230.     !IDH_DB_OEMNXPTC_2          = 3722  
  231.     !IDH_DB_OEMNXPTC_3          = 3723  
  232.     !IDH_DB_LMHOST_INS          = 3730  
  233.     !IDH_DB_RPCLOCATE_INS       = 3740  
  234.     !IDH_DB_GET_PROTOCOL        = 4000  
  235.     !IDH_DB_VER_EXISTED         = 4010  
  236.     !IDH_DB_DETECT_BYPASS       = 4020  
  237.     !IDH_DB_DETECT_FOUND        = 4030  
  238.     !IDH_DB_DETECT_FAILED       = 4040  
  239.     !IDH_DB_DETECT_CHKRAS       = 4050  
  240.     !IDH_DB_OEMNADLT_INS        = 4060  
  241. [ReadSetupHelpIds]
  242.     read-syms "SetupHelpIds"
  243.     Return
  244. [LanguageID]
  245.     ENG
  246. [WarningDlgENG]
  247.     STF_MB_TITLE = "Setup Message"
  248.     DlgType      = "MessageBox"
  249.     STF_MB_TEXT  = $(DlgText)
  250.     STF_MB_TYPE  = 2
  251.     STF_MB_ICON  = 5
  252.     STF_MB_DEF   = 2
  253. [FatalDlgENG]
  254.     STF_MB_TITLE = "Setup Message"
  255.     DlgType      = "MessageBox"
  256.     STF_MB_TEXT  = $(DlgText)
  257.     STF_MB_TYPE  = 1
  258.     STF_MB_ICON  = 3
  259.     STF_MB_DEF   = 1
  260. [NonfatalDlgENG]
  261.     STF_MB_TITLE = "Setup Message"
  262.     DlgType      = "MessageBox"
  263.     STF_MB_TEXT  = $(DlgText)
  264.     STF_MB_TYPE  = 1
  265.     STF_MB_ICON  = 5
  266.     STF_MB_DEF   = 1
  267. [StatusDlgENG]
  268.     STF_MB_TITLE = "Setup Message"
  269.     DlgType      = "MessageBox"
  270.     STF_MB_TEXT  = $(DlgText)
  271.     STF_MB_TYPE  = 1
  272.     STF_MB_ICON  = 2
  273.     STF_MB_DEF   = 1
  274. [ExitWarningDlgENG]
  275.     STF_MB_TITLE = "Exit Windows NT Setup"
  276.     STF_MB_TEXT  = "Windows NT is not correcly installed.  Are you "+
  277.                    "sure you want to exit Setup?"
  278.     DlgType      = "MessageBox"
  279.     STF_MB_TYPE  = 3
  280.     STF_MB_ICON  = 5
  281.     STF_MB_DEF   = 2
  282. [BillboardDlgENG]
  283.     DlgType     = Billboard
  284.     DlgTemplate = $($0)
  285.     TextFields  = {$($1)}
  286. [DriversExistDlgENG]
  287.     Caption      = "Windows NT Setup"
  288.     DlgText      = "The driver(s) for this "$($1)" are already on the system. "+
  289.                    "Do you want to use the currently installed driver(s) or "+
  290.                    "install new one(s)."
  291.     Current      = "Cu&rrent"
  292.     New          = "&New"
  293.     Cancel       = "Cancel"
  294.     Help         = "&Help"
  295.     DlgType      = "Info"
  296.     DlgTemplate  = "DRIVEREXISTS"
  297.     HelpContext  = $(!IDH_DB_DRIVEREXIST_INS)
  298. [DoAskSourceDlgTextENG]
  299.     DlgText        = "Please enter the full path of the Windows NT distribution "+
  300.                      "files.  If you want to install files from the original Setup "+
  301.                      "floppy disks, type a drive letter (such as A:) and Setup will "+
  302.                      "prompt you for the correct disk.  Then choose Continue."
  303. [AskSourceStringsENG]
  304. String1 = "Error processing path entered.  Please reenter the path."
  305. String2 = "Setup requires a full path of the Windows NT distribution files.  "+
  306.           "Please reenter the path."
  307. String3 = "Setup failed to find a free drive to use to connect to the "+
  308.           "server specified.  Please free up some drives and try again."
  309. String4 = "Setup failed to connect to the server specified.  Please reenter "+
  310.           "the path."
  311. [DisketteDlgENG]
  312.     Caption        = "Windows NT Setup"
  313.     Continue       = "Continue"
  314.     Cancel         = "Cancel"
  315.     DlgType        = "Edit"
  316.     DlgTemplate    = "DISKETTE"
  317.     DlgText        = $($1)
  318.     Edit1Label     = ""
  319.     EditTextIn     = $(Src)
  320.     EditFocus      = "ALL"
  321.  
  322.  
  323.  
  324.