Adding upstream version 2.9.0dev.12.upstream/2.9.0dev.12upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 607 insertions, 0 deletions

diff --git a/PACKAGE/lynx.iss b/PACKAGE/lynx.iss
new file mode 100644
index 0000000..79bb463
--- /dev/null
+++ b/PACKAGE/lynx.iss
@@ -0,0 +1,607 @@
+; $LynxId: lynx.iss,v 1.38 2023/01/03 00:17:48 tom Exp $

+; vile:ts=4 sw=4 notabinsert fk=8bit

+;

+; This is the BASE script for different flavors of the installer for Lynx.

+; It can be overridden to select different source-executables (and their associated

+; screen library, e.g., pdcurses or slang).

+;

+; The script assumes environment variables have been set, e.g., to point to

+; data which is used by the installer:

+;

+; LYNX_BINDIR - directory containing lynx.exe (or different names)

+; LYNX_DLLSDIR - directory containing curses or slang dlls.

+; LYNX_DOCSDIR - files and subdirectories installed from Unix with "make install-doc"

+; LYNX_HELPDIR - files and subdirectories installed from Unix with "make install-help"

+

+#include "version.iss"

+

+#ifndef MyAppExeName

+#define MyAppExeName "lynx.exe"

+#endif

+

+#if Ver < 0x5060100

+#define MySendTo '{sendto}\' + myAppName + '.lnk'

+#else

+#define MySendTo '{usersendto}\' + myAppName + '.lnk'

+#endif

+#define MyQuickLaunch '{userappdata}\Microsoft\Internet Explorer\Quick Launch\' + myAppName + '.lnk'

+

+#ifndef SourceExeName

+#define SourceExeName "lynx-default.exe"

+#endif

+

+#ifndef NoScreenDll

+#ifndef ScreenDllName

+#define ScreenDllName "pdcurses.dll"

+#endif

+#endif

+

+#ifndef BzipDllName

+#define BzipDllName "libbz2.dll"

+#endif

+

+#ifndef ZlibDllName

+#define ZlibDllName "zlib1.dll"

+#endif

+

+#ifndef BzipExeName

+#define BzipExeName "bzip2.exe"

+#endif

+

+#ifndef GzipExeName

+#define GzipExeName "gzip.exe"

+#endif

+

+#ifndef SetupBaseName

+#define SetupBaseName "lynx"

+#endif

+

+#ifndef BinsSrcDir

+#define BinsSrcDir GetEnv("LYNX_BINDIR")

+#if BinsSrcDir == ""

+#define BinsSrcDir "..\bin"

+#endif

+#endif

+

+#ifndef DllsSrcDir

+#define DllsSrcDir GetEnv("LYNX_DLLSDIR")

+#if DllsSrcDir == ""

+#define DllsSrcDir "..\bin"

+#endif

+#endif

+

+#ifndef DocsSrcDir

+#define DocsSrcDir GetEnv("LYNX_DOCSDIR")

+#if DocsSrcDir == ""

+#define DocsSrcDir "..\docs"

+#endif

+#endif

+

+#ifndef HelpSrcDir

+#define HelpSrcDir GetEnv("LYNX_HELPDIR")

+#if HelpSrcDir == ""

+#define HelpSrcDir "..\lynx_help"

+#endif

+#endif

+

+[Setup]

+AppName={#MyAppName}

+#emit 'AppVersion=' + LYNX_VERSION

+#emit 'VersionInfoDescription=Setup for "' + MyAppName + '"'

+#define LYNX_TARGET0 StringChange(LYNX_VERSION,LYNX_RELEASE + "rel.",LYNX_RELEASE + ".00")

+#define LYNX_TARGET1 StringChange(LYNX_TARGET0,LYNX_TARGETS + "dev.",LYNX_RELEASE + ".10")

+#define LYNX_TARGET2 StringChange(LYNX_TARGET1,LYNX_TARGETS + "pre.",LYNX_RELEASE + ".20")

+#emit 'VersionInfoVersion=' + LYNX_TARGET1

+AppVerName={#MyAppVerName}

+AppPublisher={#MyAppPublisher}

+AppCopyright=© 1997-2022,2023, Thomas E. Dickey

+AppPublisherURL={#MyAppURL}

+AppSupportURL={#MyAppURL}

+AppUpdatesURL={#MyAppURL}

+DefaultDirName={pf}\{#MyAppName}

+DefaultGroupName={#MyAppName}

+AllowNoIcons=yes

+LicenseFile=..\COPYHEADER

+InfoBeforeFile=..\README

+OutputDir=..\PACKAGE\lynx-setup

+#emit 'OutputBaseFilename=' + SetupBaseName + LYNX_VERSION + '-setup'

+Compression=lzma

+SolidCompression=yes

+PrivilegesRequired=none

+SetupLogging=no

+

+[Languages]

+Name: "english"; MessagesFile: "compiler:Default.isl"

+

+[Components]

+Name: main; Description: The Lynx executable; types: full custom compact

+Name: explorer; Description: Windows Explorer integration; types: full custom

+

+[Tasks]

+Name: for_all_users; Description: Install for all users on this machine; GroupDescription: Configuration Settings; Components: main; Check: isGuru; Flags: unchecked

+Name: register_vars; Description: Use registry for environment variables; GroupDescription: Configuration Settings; Components: main; Flags: unchecked

+Name: use_sendto; Description: Add Send To Entry; GroupDescription: Windows Explorer; Components: explorer; Flags: unchecked

+Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Components: main; Flags: unchecked

+Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Components: main; Flags: unchecked

+

+

+[Dirs]

+Name: "{app}\doc"

+Name: "{app}\doc\samples"

+Name: "{app}\doc\test"

+Name: "{app}\help"

+Name: "{app}\help\keystrokes"

+Name: "{app}\icon"

+

+[Files]

+#emit 'Source: "' + BinsSrcDir + '\' + SourceExeName + '"; DestDir: "{app}"; DestName: ' + MyAppExeName + '; AfterInstall: myPostExecutable; Flags: ignoreversion'

+#ifndef NoScreenDll

+#emit 'Source: "' + DllsSrcDir + '\' + ScreenDllName + '"; DestDir: "{app}"; DestName: ' + ScreenDllName + '; Flags: ignoreversion'

+#endif

+#emit 'Source: "' + DllsSrcDir + '\' + BzipExeName + '"; DestDir: "{app}"; DestName: ' + BzipExeName + '; Flags: ignoreversion'

+#emit 'Source: "' + DllsSrcDir + '\' + GzipExeName + '"; DestDir: "{app}"; DestName: ' + GzipExeName + '; Flags: ignoreversion'

+#emit 'Source: "' + DocsSrcDir + '\*.*"; DestDir: "{app}\doc"; Flags: '

+#emit 'Source: "' + DocsSrcDir + '\..\samples\*.*"; DestDir: "{app}\doc\samples"; Flags: '

+#emit 'Source: "' + DocsSrcDir + '\..\test\*.*"; DestDir: "{app}\doc\test"; Flags: '

+#emit 'Source: "' + HelpSrcDir + '\*.*"; DestDir: "{app}\help"; Flags: '

+#emit 'Source: "' + HelpSrcDir + '\keystrokes\*.*"; DestDir: "{app}\help\keystrokes"; Flags: '

+

+; some of these data files are from an earlier installer by Claudio Santambrogio

+Source: "..\lynx.cfg"; DestDir: "{app}" ; AfterInstall: myCustomCfg; Flags: ignoreversion

+Source: "..\lynx.man"; DestDir: "{app}"

+Source: "..\samples\*.lss"; DestDir: "{app}"

+Source: "..\samples\home.htm"; DestDir: "{app}"

+Source: "..\samples\jumps.htm"; DestDir: "{app}"

+Source: "..\samples\lynx-demo.cfg"; DestDir: "{app}"

+Source: "..\samples\lynx.bat"; DestDir: "{app}"

+Source: "..\samples\lynx.ico"; DestDir: "{app}\icon"

+Source: "..\samples\lynx_bookmarks.htm"; DestDir: "{app}"

+Source: "..\samples\oldlynx.bat"; DestDir: "{app}"

+; NOTE: Don't use "Flags: ignoreversion" on any shared system files

+

+[Icons]

+Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"

+Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"

+Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

+

+[Run]

+Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#MyAppName}}"; Flags: nowait postinstall skipifsilent

+

+[UninstallDelete]

+Type: files; Name: {app}\.lynx_cookies

+Type: dirifempty; Name: {app}

+#emit 'Type: files; Name: ' + mySendTo

+#emit 'Type: files; Name: ' + myQuickLaunch

+

+[Code]

+#emit 'const MY_APP_NAME = ''{app}\' + myAppProg + '.exe'';'

+

+

+function isGuru(): Boolean;

+begin

+    Result := isAdminLoggedOn();

+end;

+

+function environRootKey(): Integer;

+begin

+    Result := HKEY_CURRENT_USER;

+end;

+

+function appKey(): string;

+begin

+    Result := 'Software\Lynx';

+end;

+

+function envSubKey(): string;

+begin

+    Result := 'Environment';

+end;

+

+function appSubKey(): string;

+begin

+    Result := appKey() + '\' + envSubKey();

+end;

+

+function envSysKey(): string;

+begin

+    Result := 'System\CurrentControlSet\Control\Session Manager\Environment';

+end;

+

+// Set the environment variable ValueName.

+procedure addVarToEnv(const RootKey: Integer; const SubKeyName, ValueName, toAdd: String);

+var

+    Updated : string;

+begin

+    Updated := ExpandConstant(toAdd);

+    RegWriteStringValue(RootKey, SubKeyName, ValueName, Updated);

+    Log('Added ' + toAdd + ' to ' + ValueName);

+    // MsgBox('addVarToEnv: ' #13#13 + ValueName + '="' + Updated + '"', mbInformation, MB_OK)

+end;

+

+// Remove the given environment variable ValueName.

+function removeVarFromEnv(const RootKey: Integer; const SubKeyName, ValueName: String): Boolean;

+var

+    Current : string;

+begin

+    Result := False;

+    if RegQueryStringValue(RootKey, SubKeyName, ValueName, Current) then

+    begin

+        RegDeleteValue(RootKey, SubKeyName, ValueName);

+        Result := True;

+        Log('Removed ' + ValueName);

+        // MsgBox('removeVarFromEnv: ' #13#13 + ValueName + '="' + Current + '"', mbInformation, MB_OK)

+    end;

+end;

+

+function selectedVarsRootKey(): Integer;

+begin

+    if isTaskSelected('for_all_users') then

+        Result := HKEY_LOCAL_MACHINE

+    else

+        Result := HKEY_CURRENT_USER;

+end;

+

+function selectedVarsSubKey(): String;

+begin

+    if isTaskSelected('for_all_users') then

+    begin

+        if isTaskSelected('register_vars') then

+            Result := appSubKey()

+        else

+            Result := envSysKey();

+    end else

+    begin

+        if isTaskSelected('register_vars') then

+            Result := appSubKey()

+        else

+            Result := envSubKey();

+    end;

+end;

+

+procedure addAnyVariable(const ValueName, newValue: String);

+begin

+    addVarToEnv(selectedVarsRootKey(), selectedVarsSubKey(), ValueName, NewValue);

+end;

+

+// FIXME: should only remove if it matches the installer's value

+procedure removeAnyVariable(const ValueName: String);

+begin

+    removeVarFromEnv(HKEY_CURRENT_USER, envSubKey(), ValueName);

+    removeVarFromEnv(HKEY_CURRENT_USER, appSubKey(), ValueName);

+    removeVarFromEnv(HKEY_LOCAL_MACHINE, appSubKey(), ValueName);

+    removeVarFromEnv(HKEY_LOCAL_MACHINE, envSysKey(), ValueName);

+end;

+

+// http://www.delphidabbler.com/articles?article=12

+procedure AddSendTo();

+begin

+  CreateShellLink(

+#emit 'ExpandConstant(''' + MySendTo + '''),'

+#emit '''SendTo link for ' + myAppName + ''','

+    ExpandConstant(MY_APP_NAME),      // program

+    '',                               // option(s) will be followed by pathname

+    '',                               // no target directory

+    '',                               // no icon filename

+    -1,                               // no icon index

+    SW_SHOWNORMAL);

+end;

+

+procedure AddQuickLaunch();

+begin

+  CreateShellLink(

+#emit 'ExpandConstant(''' + MyQuickLaunch + '''),'

+#emit '''SendTo link for ' + myAppName + ''','

+    ExpandConstant(MY_APP_NAME),      // program

+    '',                               // option(s) will be followed by pathname

+    '',                               // no target directory

+    '',                               // no icon filename

+    -1,                               // no icon index

+    SW_SHOWNORMAL);

+end;

+

+// This is called after installing the executable.

+procedure myPostExecutable();

+var

+  Keypath : String;

+  AppDir  : String;

+begin

+  Keypath := appKey();

+  AppDir := ExpandConstant('{app}');

+  Log('Setting registry key "' + Keypath + '" to "' + AppDir + '"');

+  if not RegWriteStringValue(selectedVarsRootKey(), Keypath, '', AppDir) then

+    Log('Failed to set key');

+

+  if isTaskSelected('use_sendto') then

+    begin

+    AddSendTo();

+    Log('** added Send-To link');

+    end;

+

+  if isTaskSelected('quicklaunchicon') then

+    begin

+    AddQuickLaunch();

+    Log('** added Quick-launch link');

+    end;

+end;

+

+// This is called after installing the lynx.cfg file.

+procedure myCustomCfg();

+var

+  AppDir  : String;

+  CfgFile : String;

+begin

+  AppDir := ExpandConstant('{app}');

+  CfgFile := AppDir + '\lynx.cfg';

+

+  addAnyVariable('LYNX_CFG', CfgFile);

+  Log('** set LYNX_CFG=' + CfgFile);

+

+  SaveStringToFile(CfgFile, 'HELPFILE:' + AppDir + '/help/Lynx_help_main.html.gz' + #10, True);

+  SaveStringToFile(CfgFile, 'COLOR_STYLE:' + AppDir + '/lynx.lss' + #10, True);

+

+  SaveStringToFile(CfgFile, 'CHMOD_PATH:' + #10, True);

+  SaveStringToFile(CfgFile, 'COPY_PATH:' + #10, True);

+  SaveStringToFile(CfgFile, 'MKDIR_PATH:' + #10, True);

+  SaveStringToFile(CfgFile, 'MV_PATH:' + #10, True);

+  SaveStringToFile(CfgFile, 'RMDIR_PATH:' + #10, True);

+  SaveStringToFile(CfgFile, 'RM_PATH:' + #10, True);

+  SaveStringToFile(CfgFile, 'TOUCH_PATH:' + #10, True);

+

+  Log('** customized ' + CfgFile);

+

+  if isTaskSelected('use_sendto') then

+    begin

+    AddSendTo();

+    Log('** added Send-To link');

+    end;

+end;

+

+function CleanupMyKey(const theRootKey: Integer): Boolean;

+var

+  Path : String;

+  Value : String;

+begin

+  Result := False;

+  if RegQueryStringValue(theRootKey, appKey(), '', Value) then

+    begin

+      if Value <> '' then

+        begin

+        Result := True;

+        Log('Deleting value of "' + appKey() + '" = "' + Value + '"');

+        if not RegDeleteValue(theRootKey, appKey(), '') then

+          Log('Failed to delete value');

+

+        Path := appKey() + '\Environment';

+        Log('Checking for subkey "' + Path + '"');

+        if RegValueExists(theRootKey, Path, '') then

+          begin

+          if RegDeleteKeyIncludingSubkeys(theRootKey, Path) then

+            Log('Deleted key "' + Path + '"')

+          else

+            Log('Failed to delete key "' + Path + '"');

+          end;

+

+        if RegDeleteKeyIfEmpty(theRootKey, appKey()) then

+          Log('Deleted key "' + appKey() + '"')

+        else

+          Log('Failed to delete key "' + appKey() + '"');

+        end

+    end

+end;

+

+#ifdef SslGlob1

+#emit "const SslGlob1 = " + SslGlob1 + ";"

+#emit "const SslGlob2 = " + SslGlob2 + ";"

+var

+    SslDirPage     : TInputFileWizardPage;

+    SslLibraryPath : String;

+

+function DirContains(const PathList: string; const PathItem: string): Boolean;

+var

+    myList : string;

+    myItem : string;

+    myPart : string;

+    offset : integer;

+begin

+    Result := False;

+    myList := Uppercase(PathList);

+    myItem := Uppercase(RemoveBackslashUnlessRoot(PathItem));

+    offset := Pos(myItem, myList);

+    if offset <> 0 then

+        begin

+        myPart := Copy( myList, offset + Length(myItem), Length(myList) );

+        if ( Length(myPart) = 0 ) or ( Pos(';', myPart) = 1 ) or ( Pos('\;', myPart) = 1 ) then

+            begin

+            Result := True;

+            end;

+        end;

+end;

+

+function PathCat(const head, tail: string): string;

+begin

+    Result := RemoveBackslashUnlessRoot(head) + '\' + tail;

+end;

+

+procedure CopyFromTo(const source, target, name: string);

+var

+    FailExists : Boolean;

+    Status:      Boolean;

+begin

+    Log('Copy from: ' + PathCat(source, name));

+    Log('Copy   to: ' + PathCat(target, name));

+    FailExists := False;

+    Status := FileCopy(PathCat(source, name), PathCat(target, name), FailExists);

+    if not Status then

+        begin

+        MsgBox('Failed to copy ' + name, mbError, MB_OK);

+        Abort();

+        end;

+end;

+

+procedure ReallyDelete(const fullPath: string);

+begin

+    if FileExists( fullpath ) then

+        begin

+        if DeleteFile( fullPath ) then

+            Log( '...successful' )

+        else

+            begin

+            MsgBox('Failed to delete ' + fullPath, mbError, MB_OK);

+            end;

+        end;

+end;

+

+procedure DeleteAppFile(const name: string);

+var

+    AppDir   : string;

+    fullPath : string;

+    findRec  : TFindRec;

+begin

+    AppDir := ExpandConstant('{app}');

+    fullPath := PathCat( AppDir, name );

+    Log( 'Deleting ' + fullPath );

+    if Pos('*', fullPath) <> 0 then

+        begin

+        if FindFirst(fullPath, findRec) then

+            begin

+            ReallyDelete( PathCat( AppDir, findRec.name ) );

+            while FindNext( findRec ) do

+                ReallyDelete( PathCat( AppDir, findRec.name ) );

+            end

+        end

+    else

+        begin

+        ReallyDelete( fullPath );

+        end;

+end;

+

+function checkSslDir(): Boolean;

+begin

+    Result := True;

+    SslLibraryPath := Trim( SslDirPage.Values[0] );

+    if ( Length( SslLibraryPath ) = 0 ) or ( not FileExists( SslLibraryPath ) ) then

+        begin

+        MsgBox('No SSL library found', mbError, MB_OK)

+        Result := False;

+        end;

+end;

+

+procedure copySslDlls();

+var

+    SslDirectory   : String;

+    SslFilename    : String;

+    TargetDir      : String;

+begin

+    Log('Copying SSL DLLs');

+    SslDirectory := ExtractFilePath(SslLibraryPath);

+

+    // If the directory is not already in the PATH, copy the DLLs to

+    // the application directory.

+    if DirContains( GetEnv('PATH'), SslDirectory) then

+        Log( 'PATH contains SSL directory' )

+    else

+        begin

+        TargetDir := ExpandConstant('{app}');

+        CreateDir(TargetDir);

+        if DirExists(TargetDir) then

+            begin

+            SslFilename := Lowercase( ExtractFileName( SslLibraryPath ) );

+            CopyFromTo( SslDirectory, TargetDir, SslFilename );

+            Log( 'comparing: ' + SslFilename + ' to ' + SslGlob1 );

+            if CompareText( SslFilename, SslGlob1 ) = 0 then

+                // old-ssl is literal, new is a glob...

+                CopyFromTo( SslDirectory, TargetDir, SslGlob2 )

+            else

+                // new-ssl matches "libssl-x-x-z", s/libssl/libcrypto/

+                SslFilename := 'libcrypto' + Copy(SslFilename, 7, Length(SslFilename));

+                CopyFromTo( SslDirectory, TargetDir, SslFilename );

+#ifdef RuntimeBundle

+            // older releases of OpenSSL bundled the Visual Studio runtime

+            SslFilename := SslDirectory + '\' + 'msvcr120.dll' ;

+            if FileExists(SslFilename) then

+                begin

+                CopyFromTo( SslDirectory, TargetDir, 'msvcr120.dll' );

+                end

+#endif

+            end

+        else

+            begin

+            MsgBox( 'Cannot create application directory', mbError, MB_OK )

+            Abort();

+            end

+        end;

+    Log('done - Copying SSL DLLs');

+end;

+

+procedure RegisterPreviousData(PreviousDataKey: Integer);

+begin

+    SetPreviousData( PreviousDataKey, 'SSL PATH', SslLibraryPath );

+end;

+

+function NextButtonClick(CurPageId: integer): Boolean;

+begin

+    Result := True;

+    if CurPageId = SslDirPage.Id then

+        begin

+        Result := checkSslDir();

+        end;

+end;

+

+procedure CurStepChanged(CurStep: TSetupStep);

+begin

+    if CurStep = ssInstall then

+    begin

+        CopySslDlls();

+    end;

+end;

+

+procedure InitializeWizard();

+var

+    myGlob: string;

+begin

+    // Create a page to locate the SSL library

+    SslDirPage := CreateInputFilePage(wpSelectDir,

+        'Select SSL Library Location',

+        'Where is the SSL library located?',

+        'Select it from the directory, then click Next.');

+

+    myGlob := 'SSL dll|' + SslGlob1;

+    Log( 'search for SSL libraries ' + myGlob );

+    SslDirPage.Add( 'Locate SSL library:', myGlob, '*.dll' );

+    SslDirPage.Values[0] := GetPreviousData( 'SSL PATH', '' );

+end;

+#endif

+

+// On uninstall, we do not know which registry setting was selected during install, so we remove all.

+procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

+begin

+  case CurUninstallStep of

+    usUninstall:

+      begin

+      Log('CurUninstallStepChanged:' + 'Uninstall is about to start.')

+        // ...insert code to perform pre-uninstall tasks here...

+#ifdef SslGlob1

+      DeleteAppFile( SslGlob1 );

+      DeleteAppFile( SslGlob2 );

+      DeleteAppFile( 'msvcr120.dll' );

+#endif

+      end;

+    usPostUninstall:

+      begin

+        removeAnyVariable('LYNX_CFG');

+      {

+        If we don't find the settings in the current user, try the local machine.

+        The setup program cannot pass the all-users flag to the uninstaller, so we

+        have to try both.

+      }

+      Log('Checking current-user registry key');

+      if not CleanupMyKey(HKEY_CURRENT_USER) then

+        begin

+        Log('Checking local-machine registry key');

+        CleanupMyKey(HKEY_LOCAL_MACHINE);

+        end;

+

+        Log('CurUninstallStepChanged:' + 'Uninstall just finished.');

+      end;

+  end;

+end;