Annotation of gforth/iss.sh, revision 1.29

1.4       pazsan      1: #!/bin/bash
                      2: 
1.25      pazsan      3: #Copyright (C) 2000,2003,2006,2007,2009,2011 Free Software Foundation, Inc.
1.4       pazsan      4: 
                      5: #This file is part of Gforth.
                      6: 
                      7: #Gforth is free software; you can redistribute it and/or
                      8: #modify it under the terms of the GNU General Public License
1.16      anton       9: #as published by the Free Software Foundation, either version 3
1.4       pazsan     10: #of the License, or (at your option) any later version.
                     11: 
                     12: #This program is distributed in the hope that it will be useful,
                     13: #but WITHOUT ANY WARRANTY; without even the implied warranty of
                     14: #MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.#See the
                     15: #GNU General Public License for more details.
                     16: 
                     17: #You should have received a copy of the GNU General Public License
1.16      anton      18: #along with this program; if not, see http://www.gnu.org/licenses/.
1.4       pazsan     19: 
                     20: # This is the horror shell script to create an automatic install for
                     21: # Windoze.
                     22: # Note that I use sed to create a setup file
                     23: 
1.9       pazsan     24: # use iss.sh >gforth.iss
                     25: # copy the resulting *.iss to the location of your Windows installation
1.4       pazsan     26: # of Gforth, and start the setup compiler there.
                     27: 
1.18      pazsan     28: VERSION=$(cat version)
                     29: 
1.23      pazsan     30: for i in lib/gforth/$VERSION/libcc-named/*.la
                     31: do
                     32:     sed "s/dependency_libs='.*'/dependency_libs=''/g" <$i >$i+
                     33:     mv $i+ $i
                     34: done
                     35: 
1.4       pazsan     36: cat <<EOT
1.15      pazsan     37: ; This is the setup script for Gforth on Windows
1.4       pazsan     38: ; Setup program is Inno Setup
                     39: 
                     40: [Setup]
                     41: AppName=Gforth
1.18      pazsan     42: AppVerName=Gforth $VERSION
1.25      pazsan     43: AppCopyright=Copyright  1995,1996,1997,1998,2000,2003,2006,2007,2008,2009,2010,2011 Free Software Foundation
1.8       pazsan     44: DefaultDirName={pf}\gforth
1.4       pazsan     45: DefaultGroupName=Gforth
                     46: AllowNoIcons=1
1.8       pazsan     47: InfoBeforeFile=COPYING
1.22      pazsan     48: Compression=lzma
1.8       pazsan     49: DisableStartupPrompt=yes
1.18      pazsan     50: OutputBaseFilename=gforth-$VERSION
1.8       pazsan     51: 
                     52: [Messages]
                     53: WizardInfoBefore=License Agreement
                     54: InfoBeforeLabel=Gforth is free software.
                     55: InfoBeforeClickLabel=You don't have to accept the GPL to run the program. You only have to accept this license if you want to modify, copy, or distribute this program.
                     56: 
                     57: [Components]
                     58: Name: "help"; Description: "HTML Documentation"; Types: full
                     59: Name: "info"; Description: "GNU info Documentation"; Types: full
                     60: Name: "print"; Description: "Postscript Documentation for printout"; Types: full
                     61: Name: "objects"; Description: "Compiler generated intermediate stuff"; Types: full
1.4       pazsan     62: 
                     63: [Dirs]
1.8       pazsan     64: $(make distfiles -f Makedist | tr ' ' '\n' | grep -v CVS | (while read i; do
1.4       pazsan     65:   while [ ! -z "$i" ]
                     66:   do
                     67:     if [ -d $i ]; then echo $i; fi
                     68:     if [ "${i%/*}" != "$i" ]; then i="${i%/*}"; else i=""; fi
                     69:   done
                     70: done) | sort -u | sed \
                     71:   -e 's:/:\\:g' \
1.8       pazsan     72:   -e 's,^\(..*\)$,Name: "{app}\\\1",g')
                     73: Name: "{app}\doc\gforth"
                     74: Name: "{app}\doc\vmgen"
1.18      pazsan     75: Name: "{app}\lib\gforth\\$VERSION\libcc-named"
1.22      pazsan     76: Name: "{app}\include\gforth\\$VERSION"
1.4       pazsan     77: 
                     78: [Files]
                     79: ; Parameter quick reference:
                     80: ;   "Source filename", "Dest. filename", Copy mode, Flags
1.8       pazsan     81: Source: "README.txt"; DestDir: "{app}"; Flags: isreadme
1.25      pazsan     82: Source: "c:\cygwin\bin\sh.exe"; DestDir: "{app}"
1.23      pazsan     83: Source: "c:\cygwin\bin\cygwin1.dll"; DestDir: "{app}"
1.25      pazsan     84: Source: "c:\cygwin\bin\cyggcc_s-1.dll"; DestDir: "{app}"
1.23      pazsan     85: Source: "c:\cygwin\bin\cygintl-8.dll"; DestDir: "{app}"
                     86: Source: "c:\cygwin\bin\cygiconv-2.dll"; DestDir: "{app}"
1.25      pazsan     87: Source: "c:\cygwin\bin\cygltdl-7.dll"; DestDir: "{app}"
                     88: Source: "c:\cygwin\bin\cygreadline7.dll"; DestDir: "{app}"
                     89: Source: "c:\cygwin\bin\cygncursesw-10.dll"; DestDir: "{app}"
                     90: Source: "c:\cygwin\bin\cygffi-4.dll"; DestDir: "{app}"
1.22      pazsan     91: Source: "gforthmi.sh"; DestDir: "{app}"
1.8       pazsan     92: $(ls doc/gforth | sed -e 's:/:\\:g' -e 's,^\(..*\)$,Source: "doc\\gforth\\\1"; DestDir: "{app}\\doc\\gforth"; Components: help,g')
                     93: $(ls doc/vmgen | sed -e 's:/:\\:g' -e 's,^\(..*\)$,Source: "doc\\vmgen\\\1"; DestDir: "{app}\\doc\\vmgen"; Components: help,g')
1.18      pazsan     94: $(ls lib/gforth/$VERSION/libcc-named | sed -e 's:/:\\:g' -e 's,^\(..*\)$,Source: "lib\\gforth\\'$VERSION'\\libcc-named\\\1"; DestDir: "{app}\\lib\\gforth\\'$VERSION'\\libcc-named",g')
1.26      pazsan     95: $(ls lib/gforth/$VERSION/libcc-named/.libs | sed -e 's:/:\\:g' -e 's,^\(..*\)$,Source: "lib\\gforth\\'$VERSION'\\libcc-named\\.libs\\\1"; DestDir: "{app}\\lib\\gforth\\'$VERSION'\\libcc-named\\.libs",g')
1.22      pazsan     96: $(ls include/gforth/$VERSION | sed -e 's:/:\\:g' -e 's,^\(..*\)$,Source: "engine\\\1"; DestDir: "{app}\\include\\gforth\\'$VERSION'",g')
1.8       pazsan     97: $(make distfiles -f Makedist EXE=.exe | tr ' ' '\n' | grep -v engine.*exe | (while read i; do
1.4       pazsan     98:   if [ ! -d $i ]; then echo $i; fi
                     99: done) | sed \
                    100:   -e 's:/:\\:g' \
1.8       pazsan    101:   -e 's,^\(..*\)\\\([^\\]*\)$,Source: "\1\\\2"; DestDir: "{app}\\\1",g' \
                    102:   -e 's,^\([^\\]*\)$,Source: "\1"; DestDir: "{app}",g' \
                    103:   -e 's,^\(.*\.[oib]".*\),\1; Components: objects,g' \
1.9       pazsan    104:   -e 's,^\(.*\.p\)s\(".*\),\1df\2; Components: print,g' \
1.8       pazsan    105:   -e 's,^\(.*\.info.*".*\),\1; Components: info,g')
1.4       pazsan    106: 
                    107: [Icons]
                    108: ; Parameter quick reference:
                    109: ;   "Icon title", "File name", "Parameters", "Working dir (can leave blank)",
                    110: ;   "Custom icon filename (leave blank to use the default icon)", Icon index
1.8       pazsan    111: Name: "{group}\Gforth"; Filename: "{app}\gforth.exe"; WorkingDir: "{app}"
                    112: Name: "{group}\Gforth-fast"; Filename: "{app}\gforth-fast.exe"; WorkingDir: "{app}"
                    113: Name: "{group}\Gforth-dict"; Filename: "{app}\gforth-dict.exe"; WorkingDir: "{app}"
                    114: Name: "{group}\Gforth-itc"; Filename: "{app}\gforth-itc.exe"; WorkingDir: "{app}"
                    115: Name: "{group}\Gforth Manual"; Filename: "{app}\doc\gforth\index.html"; WorkingDir: "{app}"; Components: help
1.12      pazsan    116: Name: "{group}\Gforth Manual (PDF)"; Filename: "{app}\doc\gforth.pdf"; WorkingDir: "{app}"; Components: help
1.8       pazsan    117: Name: "{group}\VMgen Manual"; Filename: "{app}\doc\vmgen\index.html"; WorkingDir: "{app}"; Components: help
1.12      pazsan    118: Name: "{group}\Bash"; Filename: "{app}\sh.exe"; WorkingDir: "{app}"
1.8       pazsan    119: Name: "{group}\Uninstall Gforth"; Filename: "{uninstallexe}"
1.4       pazsan    120: 
1.13      pazsan    121: [Run]
1.29    ! pazsan    122: Filename: "{app}\sh.exe"; WorkingDir: "{app}"; Parameters: "-c ""./gforthmi.sh || read"""
        !           123: Filename: "{app}\sh.exe"; WorkingDir: "{app}"; Parameters: "-c ""./gforth fixpath.fs gforth-fast.exe || read"""
        !           124: Filename: "{app}\sh.exe"; WorkingDir: "{app}"; Parameters: "-c ""./gforth fixpath.fs gforth-ditc.exe || read"""
        !           125: Filename: "{app}\sh.exe"; WorkingDir: "{app}"; Parameters: "-c ""./gforth fixpath.fs gforth-itc.exe || read"""
        !           126: Filename: "{app}\sh.exe"; WorkingDir: "{app}"; Parameters: "-c ""./gforth-fast fixpath.fs gforth.exe || read"""
1.4       pazsan    127: 
1.23      pazsan    128: [UninstallDelete]
                    129: Type: files; Name: "{app}\gforth.fi"
                    130: Type: files; Name: "{app}\temp-image.fi1"
                    131: Type: files; Name: "{app}\temp-image.fi2"
                    132: 
1.27      pazsan    133: [Registry]
1.29    ! pazsan    134: Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: expandsz; ValueName: "Path"; ValueData: "{olddata};{app}"; Check: NeedsAddPath(ExpandConstant('{app}'))
1.27      pazsan    135: 
1.5       pazsan    136: ;[Registry]
                    137: ;registry commented out
1.8       pazsan    138: ; WorkingDir: "{app}"; Parameter quick reference:
1.4       pazsan    139: ;   "Root key", "Subkey", "Value name", Data type, "Data", Flags
1.8       pazsan    140: ;HKCR, ".fs"; STRING, "forthstream",
1.5       pazsan    141: ;HKCR, ".fs", "Content Type", STRING, "application/forth",
1.8       pazsan    142: ;HKCR, ".fb"; STRING, "forthblock",
1.5       pazsan    143: ;HKCR, ".fb", "Content Type", STRING, "application/forth-block",
1.8       pazsan    144: ;HKCR, "forthstream"; STRING, "Forth Source",
1.5       pazsan    145: ;HKCR, "forthstream", "EditFlags", DWORD, "00000000",
1.8       pazsan    146: ;HKCR, "forthstream\DefaultIcon"; STRING, "{sys}\System32\shell32.dll,61"
                    147: ;HKCR, "forthstream\Shell"; STRING, ""
                    148: ;HKCR, "forthstream\Shell\Open\command"; STRING, "{app}\gforth.exe %1"
                    149: ;HKCR, "forthblock"; STRING, "Forth Block",
1.5       pazsan    150: ;HKCR, "forthblock", "EditFlags", DWORD, "00000000",
1.8       pazsan    151: ;HKCR, "forthblock\DefaultIcon"; STRING, "{sys}\System32\shell32.dll,61"
1.29    ! pazsan    152: 
        !           153: [Code]
        !           154: function NeedsAddPath(Param: string): boolean;
        !           155: var
        !           156:   OrigPath: string;
        !           157: begin
        !           158:   if not RegQueryStringValue(HKEY_LOCAL_MACHINE,'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', OrigPath)
        !           159:   then begin
        !           160:     Result := True;
        !           161:     exit;
        !           162:   end;
        !           163:   // look for the path with leading and trailing semicolon
        !           164:   // Pos() returns 0 if not found
        !           165:   Result := Pos(';' + UpperCase(Param) + ';', ';' + UpperCase(OrigPath) + ';') = 0;  
        !           166:   if Result = True then
        !           167:      Result := Pos(';' + UpperCase(Param) + '\;', ';' + UpperCase(OrigPath) + ';') = 0; 
        !           168: end;
1.4       pazsan    169: EOT
1.19      pazsan    170: 
1.20      pazsan    171: sed -e 's/$/\r/' <README >README.txt

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>