+++ /dev/null
-////////////////////////////////////////////////////////////////////////////////
-//
-// IIIIIII SSSSSS
-// II SS InstallShield (R)
-// II SSSSSS (c) 1996-1997, InstallShield Software Corporation
-// II SS (c) 1990-1996, InstallShield Corporation
-// IIIIIII SSSSSS All Rights Reserved.
-//
-//
-// This code is generated as a starting setup template. You should
-// modify it to provide all necessary steps for your setup.
-//
-//
-// File Name: Setup.rul
-//
-// Description: InstallShield script
-//
-// Comments: This template script performs a basic setup on a
-// Windows 95 or Windows NT 4.0 platform. With minor
-// modifications, this template can be adapted to create
-// new, customized setups.
-//
-////////////////////////////////////////////////////////////////////////////////
-
-
- // Include header file
-#include "ifx.h"
-
-////////////////////// string defines ////////////////////////////
-
-#define UNINST_LOGFILE_NAME "Uninst.isu"
-
-//////////////////// installation declarations ///////////////////
-
- // ----- DLL prototypes -----
-
-
- // your DLL prototypes
-
-
- // ---- script prototypes -----
-
- // generated
- prototype ShowDialogs();
- prototype MoveFileData();
- prototype HandleMoveDataError( NUMBER );
- prototype ProcessBeforeDataMove();
- prototype ProcessAfterDataMove();
- prototype SetupRegistry();
- prototype SetupFolders();
- prototype CleanUpInstall();
- prototype SetupInstall();
- prototype SetupScreen();
- prototype CheckListScreen();
- prototype CheckRequirements();
- prototype DialogShowSdWelcome();
- prototype DialogShowSdShowInfoList();
- prototype DialogShowSdAskDestPath();
- prototype DialogShowSdSetupType();
- prototype DialogShowSdComponentDialog2();
- prototype DialogShowSdSelectFolder();
- prototype DialogShowSdFinishReboot();
-
- // your prototypes
- prototype MyParsePath ( STRING );
- prototype ForwardSlashify ( STRING, BYREF STRING );
- prototype CreateExecPerlScript ( STRING, STRING );
- prototype DropSuffix ( STRING, BYREF STRING );
- prototype BaseName ( STRING, BYREF STRING );
-
- // ----- global variables ------
-
- // generated
- BOOL bWinNT, bIsShellExplorer, bInstallAborted, bIs32BitSetup;
- STRING svDir;
- STRING svName, svCompany, svSerial;
- STRING szAppPath;
- STRING svSetupType;
- LIST listPath;
-
-
- // your global variables
- //STRING szRawCpp
- STRING szPerlPath;
- STRING szBinDir, szBinDirUnslashed,
- szLibDir, szLibDirUnslashed,
- szDataDir, szLibExecDir;
-
-
-///////////////////////////////////////////////////////////////////////////////
-//
-// MAIN PROGRAM
-//
-// The setup begins here by hiding the visible setup
-// window. This is done to allow all the titles, images, etc. to
-// be established before showing the main window. The following
-// logic then performs the setup in a series of steps.
-//
-///////////////////////////////////////////////////////////////////////////////
-program
- Disable( BACKGROUND );
-
- CheckRequirements();
-
- SetupInstall();
-
- SetupScreen();
-
- if (ShowDialogs()<0) goto end_install;
-
- if (ProcessBeforeDataMove()<0) goto end_install;
-
- if (MoveFileData()<0) goto end_install;
-
- if (ProcessAfterDataMove()<0) goto end_install;
-
- if (SetupRegistry()<0) goto end_install;
-
- if (SetupFolders()<0) goto end_install;
-
- CheckListScreen();
-
- end_install:
-
- CleanUpInstall();
-
- // If an unrecoverable error occurred, clean up the partial installation.
- // Otherwise, exit normally.
-
- if (bInstallAborted) then
- abort;
- endif;
-
-endprogram
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: ShowDialogs //
-// //
-// Purpose: This function manages the display and navigation //
-// the standard dialogs that exist in a setup. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function ShowDialogs()
- NUMBER nResult;
- begin
-
- Dlg_Start:
- // beginning of dialogs label
-
- Dlg_SdWelcome:
- nResult = DialogShowSdWelcome();
- if (nResult = BACK) goto Dlg_Start;
-
- Dlg_SdShowInfoList:
- nResult = DialogShowSdShowInfoList();
- if (nResult = BACK) goto Dlg_SdWelcome;
-
- Dlg_SdAskDestPath:
- nResult = DialogShowSdAskDestPath();
- if (nResult = BACK) goto Dlg_SdShowInfoList;
-
- Dlg_SdSetupType:
- nResult = DialogShowSdSetupType();
- if (nResult = BACK) goto Dlg_SdAskDestPath;
-
- Dlg_SdComponentDialog2:
- if ((nResult = BACK) && (svSetupType != "Custom") && (svSetupType != "")) then
- goto Dlg_SdSetupType;
- endif;
- nResult = DialogShowSdComponentDialog2();
- if (nResult = BACK) goto Dlg_SdSetupType;
-
- Dlg_SdSelectFolder:
- //nResult = DialogShowSdSelectFolder();
- //if (nResult = BACK) goto Dlg_SdComponentDialog2;
-
- return 0;
-
- end;
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: ProcessBeforeDataMove //
-// //
-// Purpose: This function performs any necessary operations prior to the //
-// actual data move operation. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function ProcessBeforeDataMove()
- STRING svLogFile;
- NUMBER nResult;
- begin
-
- InstallationInfo( @COMPANY_NAME, @PRODUCT_NAME, @PRODUCT_VERSION, @PRODUCT_KEY );
-
- svLogFile = UNINST_LOGFILE_NAME;
-
- nResult = DeinstallStart( svDir, svLogFile, @UNINST_KEY, 0 );
- if (nResult < 0) then
- MessageBox( @ERROR_UNINSTSETUP, WARNING );
- endif;
-
- szAppPath = TARGETDIR; // TODO : if your application .exe is in a subdir of TARGETDIR then add subdir
-
- if ((bIs32BitSetup) && (bIsShellExplorer)) then
- RegDBSetItem( REGDB_APPPATH, szAppPath );
- RegDBSetItem( REGDB_APPPATH_DEFAULT, szAppPath ^ @PRODUCT_KEY );
- RegDBSetItem( REGDB_UNINSTALL_NAME, @UNINST_DISPLAY_NAME );
- endif;
- // TODO : update any items you want to process before moving the data
- //
-
- ComponentSetTarget( MEDIA, "<DOCDIR>", TARGETDIR ^ "\\doc" );
-
- return 0;
- end;
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: MoveFileData //
-// //
-// Purpose: This function handles the data movement for //
-// the setup. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function MoveFileData()
- NUMBER nResult, nDisk;
- begin
-
- nDisk = 1;
- SetStatusWindow( 0, "" );
- Disable( DIALOGCACHE );
- Enable( STATUS );
- StatusUpdate( ON, 100 );
- nResult = ComponentMoveData( MEDIA, nDisk, 0 );
-
- HandleMoveDataError( nResult );
-
- Disable( STATUS );
-
- return nResult;
-
- end;
-
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: HandleMoveDataError //
-// //
-// Purpose: This function handles the error (if any) during the move data //
-// operation. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function HandleMoveDataError( nResult )
- STRING szErrMsg, svComponent , svFileGroup , svFile;
- begin
-
- svComponent = "";
- svFileGroup = "";
- svFile = "";
-
- switch (nResult)
- case 0:
- return 0;
- default:
- ComponentError ( MEDIA , svComponent , svFileGroup , svFile , nResult );
- szErrMsg = @ERROR_MOVEDATA + "\n\n" +
- @ERROR_COMPONENT + " " + svComponent + "\n" +
- @ERROR_FILEGROUP + " " + svFileGroup + "\n" +
- @ERROR_FILE + " " + svFile;
- SprintfBox( SEVERE, @TITLE_CAPTIONBAR, szErrMsg, nResult );
- bInstallAborted = TRUE;
- return nResult;
- endswitch;
-
- end;
-
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: ProcessAfterDataMove //
-// //
-// Purpose: This function performs any necessary operations needed after //
-// all data has been moved. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function ProcessAfterDataMove()
- STRING szPath, szGcc, szGccDir;
- STRING szTemp, szRes, szPathEntry, szDrive;
- NUMBER nvSize,nvType, nResult, nPos, nSuccess;
- LIST listDirs;
- begin
-
- RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
- RegDBGetKeyValueEx ( "SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment" ,
- "path" , nvType, szPath , nvSize );
-
- // Spin through path looking for perl.exe.
- // Our task is made considerably harder since the
- // the free version of InstallShield doesn't support
- // functions such as StrGetTokens() or ParsePath().
- // TODO: Convert this back to IS Prof Edn
-
- MyParsePath ( szPath );
- nResult = ListGetFirstString ( listPath, szPathEntry);
- szPathEntry = ""; szPerlPath="";
- while ( nResult != END_OF_LIST )
- if ( FindFile (szPathEntry, "perl.exe", szRes ) = 0 ) then
- szPerlPath = szPathEntry + "/" + szRes;
- nResult = END_OF_LIST;
- else
- nResult = ListGetNextString ( listPath, szPathEntry );
- endif;
- endwhile;
- if ( StrCompare ( szPerlPath, "" ) = 0 ) then
- // If not found in global env. block, look in the
- // user-specific part.
- RegDBSetDefaultRoot ( HKEY_CURRENT_USER );
- RegDBGetKeyValueEx ( "Environment", "path", nvType, szPath, nvSize);
- MyParsePath ( szPath );
- nResult = ListGetFirstString ( listPath, szPathEntry);
- szPathEntry = ""; szPerlPath="";
- while ( nResult != END_OF_LIST )
- if ( FindFile (szPathEntry, "perl.exe", szRes ) = 0 ) then
- szPerlPath = szPathEntry + "/" + szRes;
- nResult = END_OF_LIST;
- else
- nResult = ListGetNextString ( listPath, szPathEntry );
- endif;
- endwhile;
- endif;
-
- if ( StrCompare ( szPerlPath, "" ) = 0 ) then
- // Default it to /bin/perl
- MessageBox ("Unable to find perl in your PATH. Not to worry, this installer includes a version that should be useable." +
- "When the installer has finished, please copy it from the bin/ directory of the ghc installation to /bin/perl",
- INFORMATION);
- szPerlPath = "/bin/perl.exe";
- else
- // strip initial drive spec.
- GetDir ( szPerlPath, szTemp);
- ForwardSlashify ( szTemp, szPerlPath );
- endif;
- DropSuffix (szPerlPath, szTemp);
- szPerlPath = szTemp;
-
- ListDestroy (listPath);
-
- return 0;
- end;
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: SetupRegistry //
-// //
-// Purpose: This function makes the registry entries for this setup. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function SetupRegistry()
- NUMBER nResult,nWays,i;
- STRING szProjectDir, szProjectVersionDir, szTargetDir;
- STRING szSyslib, szWay, szSyslibsDir;
- STRING szLib, szSyslibsKey;
- //LIST syslib_list, way_list;
- begin
-
- // TODO : Add all your registry entry keys here
- //
- //
-
- nResult = CreateRegistrySet( "" );
-
- // By now, we will have had the following Registry
- // entries generated (see ProcessBeforeDataMove() ):
- //
- // HK_L_M\Software\Glasgow University\GHC\<version no.>
- //
- // For GHC, we store and use the install info inside
- // HK_L_M\Software\Haskell\GHC (== %ROOT%)
-
- // So, we perform the following tasks here:
- //
- // * Checks to see if %ROOT% is defined.
- // If not, creates it.
- // * Checks for %ROOT%\Version is defined.
- // * Create %ROOT%\<version>.
- // * Create %ROOT%\<version>\libdir
- // (This key will be given a value later.)
- // * Create %ROOT%\syslib\ and fill it in
- // with the syslibs that has been installed.
- // * %ROOT%\syslib\name\<way>
- // is added for each kind (e.g., seq, conc)
- // syslib we're installing.
-
- // When we eventually reach the end, the registry
- // should be ready for use by the installed app.
-
- // Check to see if we've already installed
- // a version of GHC on this box..
- RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
-
- szProjectDir = @HASKELL_REG_ROOT ^ @PRODUCT_NAME;
-
- // check whether we've already got the Registry sub-tree we're
- // about to add to. If not, then we create it
- // level-by-level, so as to ensure that the uninstaller
- // can clean up after us.
- if ( RegDBKeyExist ( @HASKELL_REG_ROOT ) < 0) then
- RegDBCreateKeyEx (@HASKELL_REG_ROOT, "");
- endif;
- if ( RegDBKeyExist ( szProjectDir ) < 0 ) then
- RegDBCreateKeyEx ( szProjectDir, "");
- endif;
-
- // Note: we overwrite any existing value.
- RegDBSetKeyValueEx( szProjectDir, "Version", REGDB_STRING,
- @PRODUCT_KEY, -1);
-
- szProjectVersionDir = szProjectDir ^ @PRODUCT_KEY;
-
- if ( RegDBKeyExist ( szProjectVersionDir ) < 0) then
- RegDBCreateKeyEx ( szProjectVersionDir, "");
- endif;
-
- // Here starts the GHC specific part
-
- ForwardSlashify (TARGETDIR, szTargetDir);
- // fill in the all-important path to where the archives
- // and interface files have been parked.
- szLibDir = szTargetDir + "/lib";
- szLibDirUnslashed = TARGETDIR ^ "\\lib";
- RegDBSetKeyValueEx ( szProjectVersionDir, "libdir", REGDB_STRING,
- szLibDir , -1);
- // libexecdir
- szLibExecDir = szTargetDir + "/lib";
- RegDBSetKeyValueEx ( szProjectVersionDir, "libexecdir", REGDB_STRING,
- szLibExecDir , -1);
- // bindir
- szBinDir = szTargetDir + "/bin";
- szBinDirUnslashed = TARGETDIR ^ "\\bin";
- RegDBSetKeyValueEx ( szProjectVersionDir, "bindir", REGDB_STRING,
- szBinDir , -1);
-
- return 0;
- end;
-
-
-///////////////////////////////////////////////////////////////////////////////
-//
-// Function: SetupFolders
-//
-// Purpose: This function creates all the folders and shortcuts for the
-// setup. This includes program groups and items for Windows 3.1.
-//
-///////////////////////////////////////////////////////////////////////////////
-function SetupFolders()
- NUMBER nResult;
- begin
-
-
- // TODO : Add all your folder (program group) along with shortcuts (program items)
- //
- //
- // CreateProgramFolder, AddFolderIcon....
- //
-
- CreateExecPerlScript ( szBinDirUnslashed, "ghc-" + @PRODUCT_VERSION );
- CreateExecPerlScript ( szBinDirUnslashed, "stat2resid" );
- CreateExecPerlScript ( szLibDirUnslashed, "hscpp" );
- CreateExecPerlScript ( szLibDirUnslashed, "mkdependHS" );
-
- VarSave (SRCTARGETDIR);
- SRCDIR = szBinDirUnslashed;
- TARGETDIR = szBinDirUnslashed;
- CopyFile( "ghc-" + @PRODUCT_VERSION, "ghc");
- VarRestore (SRCTARGETDIR);
-
- nResult = CreateShellObjects( "" );
-
- return nResult;
- end;
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: CleanUpInstall //
-// //
-// Purpose: This cleans up the setup. Anything that should //
-// be released or deleted at the end of the setup should //
-// be done here. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function CleanUpInstall()
- begin
-
-
- if (bInstallAborted) then
- return 0;
- endif;
-
- DialogShowSdFinishReboot();
-
- if (BATCH_INSTALL) then // ensure locked files are properly written
- CommitSharedFiles(0);
- endif;
-
- return 0;
- end;
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: SetupInstall //
-// //
-// Purpose: This will setup the installation. Any general initialization //
-// needed for the installation should be performed here. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function SetupInstall()
-
- begin
-
- Enable( CORECOMPONENTHANDLING );
-
- bInstallAborted = FALSE;
-
- GetDisk(WINDIR, svDir);
-
- if (bIs32BitSetup) then
- svDir = svDir + "\\" ^ @PRODUCT_NAME_SHORT ^ @PRODUCT_KEY;
- else
- // We're (=>ghc) 32 through and through, but for the sake of
- // completenes.
- svDir = svDir + "\\" ^ @PRODUCT_NAME_SHORT ^ @PRODUCT_NAME16;
- endif;
-
- TARGETDIR = svDir;
-
- SdProductName( @PRODUCT_NAME );
-
- Enable( DIALOGCACHE );
-
- return 0;
- end;
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: SetupScreen //
-// //
-// Purpose: This function establishes the screen look. This includes //
-// colors, fonts, and text to be displayed. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function SetupScreen()
- begin
-
- SetColor ( BACKGROUND, BLUE );
- Enable( FULLWINDOWMODE );
- Enable( INDVFILESTATUS );
-
- SetTitle( @TITLE_MAIN, 24, WHITE );
-
- SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION ); // Caption bar text.
-
- Enable( BACKGROUND );
-
- Delay( 1 );
- end;
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: CheckRequirements //
-// //
-// Purpose: This function checks all minimum requirements for the //
-// application being installed. If any fail, then the user //
-// is informed and the setup is terminated. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function CheckRequirements()
- NUMBER nvDx, nvDy, nvResult;
- STRING svResult;
-
- begin
-
- bWinNT = FALSE;
- bIsShellExplorer = FALSE;
-
- // Check screen resolution.
- GetExtents( nvDx, nvDy );
-
- if (nvDy < 480) then
- MessageBox( @ERROR_VGARESOLUTION, WARNING );
- abort;
- endif;
-
- // set 'setup' operation mode
- bIs32BitSetup = TRUE;
- GetSystemInfo( ISTYPE, nvResult, svResult );
- if (nvResult = 16) then
- bIs32BitSetup = FALSE; // running 16-bit setup
- return 0; // no additional information required
- endif;
-
- // --- 32-bit testing after this point ---
-
- // Determine the target system's operating system.
- GetSystemInfo( OS, nvResult, svResult );
-
- if (nvResult = IS_WINDOWSNT) then
- // Running Windows NT.
- bWinNT = TRUE;
-
- // Check to see if the shell being used is EXPLORER shell.
- if (GetSystemInfo( OSMAJOR, nvResult, svResult ) = 0) then
- if (nvResult >= 4) then
- bIsShellExplorer = TRUE;
- endif;
- endif;
-
- elseif (nvResult = IS_WINDOWS95 ) then
- bIsShellExplorer = TRUE;
-
- endif;
-
-end;
-
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: DialogShowSdWelcome //
-// //
-// Purpose: This function handles the standard welcome dialog. //
-// //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function DialogShowSdWelcome()
- NUMBER nResult;
- STRING szTitle, szMsg;
- begin
-
- szTitle = "";
- szMsg = "";
- nResult = SdWelcome( szTitle, szMsg );
-
- return nResult;
- end;
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: DialogShowSdShowInfoList //
-// //
-// Purpose: This function displays the general information list dialog. //
-// //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function DialogShowSdShowInfoList()
- NUMBER nResult;
- LIST list;
- STRING szTitle, szMsg, szFile;
- begin
-
- szFile = SUPPORTDIR ^ "announce";
-
- list = ListCreate( STRINGLIST );
- ListReadFromFile( list, szFile );
- szTitle = "";
- szMsg = " ";
- nResult = SdShowInfoList( szTitle, szMsg, list );
-
- ListDestroy( list );
-
- return nResult;
- end;
-
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: DialogShowSdAskDestPath //
-// //
-// Purpose: This function asks the user for the destination directory. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function DialogShowSdAskDestPath()
- NUMBER nResult;
- STRING szTitle, szMsg;
- begin
-
- szTitle = "";
- szMsg = "WARNING! The path must not contain spaces.";
- nResult = SdAskDestPath( szTitle, szMsg, svDir, 0 );
-
- TARGETDIR = svDir;
-
- return nResult;
- end;
-
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: DialogShowSdSetupType //
-// //
-// Purpose: This function displays the standard setup type dialog. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function DialogShowSdSetupType()
- NUMBER nResult, nType;
- STRING szTitle, szMsg;
- begin
-
- switch (svSetupType)
- case "Typical":
- nType = TYPICAL;
- case "Custom":
- nType = CUSTOM;
- case "Compact":
- nType = COMPACT;
- case "":
- svSetupType = "Typical";
- nType = TYPICAL;
- endswitch;
-
- szTitle = "";
- szMsg = "";
- nResult = SetupType( szTitle, szMsg, "", nType, 0 );
-
- switch (nResult)
- case COMPACT:
- svSetupType = "Compact";
- case TYPICAL:
- svSetupType = "Typical";
- case CUSTOM:
- svSetupType = "Custom";
- endswitch;
-
- return nResult;
- end;
-
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: DialogShowSdComponentDialog2 //
-// //
-// Purpose: This function displays the custom component dialog. //
-// //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function DialogShowSdComponentDialog2()
- NUMBER nResult;
- STRING szTitle, szMsg;
- begin
-
- if ((svSetupType != "Custom") && (svSetupType != "")) then
- return 0;
- endif;
-
- szTitle = "";
- szMsg = "";
- nResult = SdComponentDialog2( szTitle, szMsg, svDir, "" );
-
- return nResult;
- end;
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: CheckListScreen //
-// //
-// Purpose: Show a check-list of post-install user actions. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function CheckListScreen()
- BOOL bDone;
- NUMBER nCmdValue;
- begin
- EzDefineDialog("CHECKLIST", "", "", 30001);
-
- bDone = FALSE;
- while (bDone=FALSE)
- nCmdValue = WaitOnDialog("CHECKLIST");
- switch (nCmdValue)
- case DLG_INIT:
- // Process the Next button.
- case SD_PBUT_CONTINUE:
- bDone = TRUE;
- // Process the Cancel button.
- case SD_PBUT_EXITSETUP:
- bDone = TRUE;
- // Process the close dialog box button.
- case DLG_CLOSE:
- bDone = TRUE;
- // Process dialog box errors.
- case DLG_ERR:
- MessageBox("Internal dialog box error", SEVERE);
- bDone = TRUE;
- endswitch;
- endwhile;
- // Identify the end of dialog box processing.
- EndDialog("CHECKLIST");
- // Free the dialog box and list from memory.
- ReleaseDialog("CHECKLIST");
- end;
-
-///////////////////////////////////////////////////////////////////////////////
-// //
-// Function: DialogShowSdFinishReboot //
-// //
-// Purpose: This function will show the last dialog of the product. //
-// It will allow the user to reboot and/or show some readme text. //
-// //
-///////////////////////////////////////////////////////////////////////////////
-function DialogShowSdFinishReboot()
- NUMBER nResult, nDefOptions;
- STRING szTitle, szMsg1, szMsg2, szOption1, szOption2;
- NUMBER bOpt1, bOpt2;
- begin
-
- if (!BATCH_INSTALL) then
- bOpt1 = FALSE;
- bOpt2 = FALSE;
- szMsg1 = "";
- szMsg2 = "";
- szOption1 = "";
- szOption2 = "";
- szTitle = "Installation is now complete.";
- nResult = SdFinish( szTitle, szMsg1, szMsg2, szOption1, szOption2, bOpt1, bOpt2 );
- return 0;
- else
- nDefOptions = SYS_BOOTMACHINE;
- szTitle = "";
- szMsg1 = "";
- szMsg2 = "";
- nResult = SdFinishReboot( szTitle, szMsg1, nDefOptions, szMsg2, 0 );
- return nResult;
- endif;
- end;
-
-function MyParsePath(szPath)
- STRING szTmp,szPth;
- NUMBER nPos;
- begin
- szPth = szPath;
- listPath = ListCreate( STRINGLIST );
-
- // Man, all I want is map. Please? :-)
- nPos = StrFind ( szPth, ";");
- while ( nPos > 0 )
- StrSub ( szTmp, szPth, 0, nPos);
- ListAddString ( listPath, szTmp, AFTER );
- StrSub ( szTmp, szPth, nPos + 1, StrLength ( szPth) - nPos );
- szPth = szTmp;
- nPos = StrFind ( szPth, ";" );
- endwhile;
-
- return 0;
- end;
-
- function ForwardSlashify ( szStr , theRes )
- NUMBER nPos;
- STRING szTemp, szRes;
- begin
- // Tortuous piece of code to convert backslashes into
- // forward ones.
- nPos = StrFind ( szStr, "\\");
- szRes="";
- while ( nPos >= 0 )
- StrSub ( szTemp, szStr, 0, nPos);
- szRes = szRes + szTemp + "/";
- StrSub ( szTemp, szStr, nPos + 1, StrLength ( szStr) - nPos );
- szStr = szTemp;
- nPos = StrFind ( szStr, "\\" );
- endwhile;
- StrSub ( szTemp, szStr, 0, StrLength (szStr));
- szRes = szRes + szTemp;
- theRes = szRes;
- return 0;
- end;
-
- function CreateExecPerlScript ( szPath, szFileName )
- NUMBER nResult, writeHandle, readHandle;
- STRING szLine;
- begin
- VarSave (SRCTARGETDIR);
- SRCDIR = szPath;
- TARGETDIR = szPath;
- DeleteFile ( szFileName + ".bak");
- RenameFile ( szFileName, szFileName + ".bak");
- VarRestore (SRCTARGETDIR);
-
- OpenFileMode (FILE_MODE_APPEND);
- if ( CreateFile ( writeHandle, szPath, szFileName ) < 0 ) then
- MessageBox ("CreateFile " + szPath ^ szFileName + " failed", INFORMATION);
- endif;
- // append
- WriteLine (writeHandle, "#!" + szPerlPath );
- WriteLine (writeHandle, "$libdir='" + szLibDir + "';");
- WriteLine (writeHandle, "$bindir='" + szBinDir + "';");
- WriteLine (writeHandle, "$libexecdir='" + szLibExecDir + "';");
- WriteLine (writeHandle, "$datadir='" + szDataDir + "';");
- WriteLine (writeHandle, "$SED='sed';");
- WriteLine (writeHandle, "$TMPDIR='C:/TEMP';");
- WriteLine (writeHandle, "$RAWCPP='gcc -E';");
- // For the benefit of mkdependHS, which doesn't get this prepended
- WriteLine (writeHandle, "$INSTALLING=1;");
-
- OpenFileMode (FILE_MODE_NORMAL);
- if ( OpenFile ( readHandle, szPath, szFileName + ".bak") < 0 ) then
- MessageBox ("OpenFile " + szPath ^ szFileName + ".bak failed", INFORMATION);
- endif;
-
- // copy the template over.
- nResult = GetLine ( readHandle, szLine);
- while ( nResult >= 0 )
- WriteLine ( writeHandle, szLine);
- nResult = GetLine ( readHandle, szLine);
- endwhile;
- if ( CloseFile( readHandle ) < 0 ) then
- MessageBox ( "CloseFile " + szPath ^ szFileName + ".bak failed",
- INFORMATION);
- endif;
- if ( CloseFile( writeHandle ) < 0 ) then
- MessageBox ( "CloseFile " + szPath ^ szFileName + " failed",
- INFORMATION);
- endif;
- // There's no way to set the 'x' bit using
- // SetFileInfo(), but luckily it is not needed to run #! scripts
- // under cygwin.
- SetFileInfo ( szPath ^ szFileName, FILE_ATTRIBUTE, FILE_ATTR_NORMAL, "");
- // Delete the .bak file
- DeleteFile ( szPath ^ szFileName + ".bak");
-
- return 0;
- end;
-
- function DropSuffix ( szInp, szOut )
- NUMBER nResult, nLen;
- STRING szTemp, szTemp2;
- begin
- nLen = 0;
- szTemp2 = szInp;
- nResult = StrFind ( szTemp2 , ".");
- while ( nResult >= 0 )
- nLen = nLen + nResult;
- StrSub ( szTemp, szTemp2, nResult + 1, StrLength ( szTemp2) - nResult );
- szTemp2 = szTemp;
- nResult = StrFind ( szTemp2, "." );
- if ( nResult >= 0 ) then
- nLen = nLen + 1; // incl the previous . if there's more.
- endif;
- endwhile;
- StrSub ( szOut, szInp, 0, nLen);
- return 0;
- end;
\ No newline at end of file
projects / ghc-hetmet.git / blobdiff