1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
#!/bin/bash
#Copyright (C) 2000,2003 Free Software Foundation, Inc.
#This file is part of Gforth.
#Gforth is free software; you can redistribute it and/or
#modify it under the terms of the GNU General Public License
#as published by the Free Software Foundation; either version 2
#of the License, or (at your option) any later version.
#This program is distributed in the hope that it will be useful,
#but WITHOUT ANY WARRANTY; without even the implied warranty of
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.#See the
#GNU General Public License for more details.
#You should have received a copy of the GNU General Public License
#along with this program; if not, write to the Free Software
#Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
# This is the horror shell script to create an automatic install for
# Windoze.
# Note that I use sed to create a setup file
# use iss.sh >iss.txt
# copy the resulting iss.txt to the location of your Windows installation
# of Gforth, and start the setup compiler there.
cat <<EOT
; This is the setup script for 4stack on Windows
; Setup program is Inno Setup
[Setup]
Bits=32
AppName=Gforth
AppVerName=$(./gforth -v 2>&1)
AppCopyright=Copyright 1995,1996,1997,1998,2000,2003 Free Software Foundation
DefaultDirName=gforth
DefaultGroupName=Gforth
AllowNoIcons=1
LicenseFile=COPYING
[Dirs]
$(make distfiles -f Makedist | tr ' ' '\n' | (while read i; do
while [ ! -z "$i" ]
do
if [ -d $i ]; then echo $i; fi
if [ "${i%/*}" != "$i" ]; then i="${i%/*}"; else i=""; fi
done
done) | sort -u | sed \
-e 's:/:\\:g' \
-e 's:^\(..*\)$:{app}\\\1:g')
[Files]
; Parameter quick reference:
; "Source filename", "Dest. filename", Copy mode, Flags
"README.txt", "{app}\README.txt", copy_normal, flag_isreadme
"cygwin1.dll", "{app}\cygwin1.dll", copy_normal,
"sh.exe", "{app}\sh.exe", copy_normal,
"gforth.fi", "{app}\gforth.fi", copy_normal,
$(make distfiles -f Makedist EXE=.exe | tr ' ' '\n' | (while read i; do
if [ ! -d $i ]; then echo $i; fi
done) | sed \
-e 's:/:\\:g' \
-e 's:^\(..*\)$:"\1", "{app}\\\1", copy_normal,:g')
[Icons]
; Parameter quick reference:
; "Icon title", "File name", "Parameters", "Working dir (can leave blank)",
; "Custom icon filename (leave blank to use the default icon)", Icon index
"Gforth", "{app}\gforth.exe", "", "{app}", , 0
"Gforth-fast", "{app}\gforth-fast.exe", "", "{app}", , 0
"Gforth-dict", "{app}\gforth-dict.exe", "", "{app}", , 0
"Gforth-itc", "{app}\gforth-itc.exe", "", "{app}", , 0
"Gforth-prof", "{app}\gforth-prof.exe", "", "{app}", , 0
[Run]
"{app}\gforth.exe", "-i {app}\gforth.fi {app}\fixpath.fs {app} gforth-fast.exe",
"{app}\gforth.exe", "-i {app}\gforth.fi {app}\fixpath.fs {app} gforth-ditc.exe",
"{app}\gforth.exe", "-i {app}\gforth.fi {app}\fixpath.fs {app} gforth-itc.exe",
"{app}\gforth.exe", "-i {app}\gforth.fi {app}\fixpath.fs {app} gforth-prof.exe",
"{app}\gforth-fast.exe", "-i {app}\gforth.fi {app}\fixpath.fs {app} gforth.exe",
;[Registry]
;registry commented out
; Parameter quick reference:
; "Root key", "Subkey", "Value name", Data type, "Data", Flags
;HKCR, ".fs", "", STRING, "forthstream",
;HKCR, ".fs", "Content Type", STRING, "application/forth",
;HKCR, ".fb", "", STRING, "forthblock",
;HKCR, ".fb", "Content Type", STRING, "application/forth-block",
;HKCR, "forthstream", "", STRING, "Forth Source",
;HKCR, "forthstream", "EditFlags", DWORD, "00000000",
;HKCR, "forthstream\DefaultIcon", "", STRING, "{sys}\System32\shell32.dll,61"
;HKCR, "forthstream\Shell", "", STRING, ""
;HKCR, "forthstream\Shell\Open\command", "", STRING, "{app}\gforth.exe %1"
;HKCR, "forthblock", "", STRING, "Forth Block",
;HKCR, "forthblock", "EditFlags", DWORD, "00000000",
;HKCR, "forthblock\DefaultIcon", "", STRING, "{sys}\System32\shell32.dll,61"
EOT
|
