← Back to branch summary

~showard314/ubuntu/karmic/r-base/remove_start_comments

« back to all changes in this revision

Viewing changes to src/gnuwin32/installer/JRins.pl

  • Committer: Bazaar Package Importer
  • Author(s): Dirk Eddelbuettel
  • Date: 2009-01-19 12:40:24 UTC
  • mfrom: (5.1.4 sid)
  • Revision ID: james.westby@ubuntu.com-20090119124024-abxsf4e0y7713w9m
Tags: 2.8.1-2
http://bugs.debian.org/512324
debian/control: Add another Build-Depends: exclusion for the 
'kfreebsd-i386 kfreebsd-amd64 hurd-i386' architecture to openjdk-6-jdk.
Thanks to Petr Salinger for the heads-up.               (Closes: 512324)

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/gnuwin32/installer/JRins.pl
121
121
[Registry] 
122
122
Root: HKLM; Subkey: "Software\\R-core"; Flags: uninsdeletekeyifempty; Tasks: recordversion; Check: IsAdmin
123
123
Root: HKLM; Subkey: "Software\\R-core\\R"; Flags: uninsdeletekeyifempty; Tasks: recordversion; Check: IsAdmin
124
 
Root: HKLM; Subkey: "Software\\R-core\\R"; Flags: uninsdeletevalue; ValueType: string; ValueName: "InstallPath"; ValueData: "{app}"; Check: IsAdmin
125
 
Root: HKLM; Subkey: "Software\\R-core\\R"; Flags: uninsdeletevalue; ValueType: string; ValueName: "Current Version"; ValueData: "${RVER}"; Check: IsAdmin
 
124
Root: HKLM; Subkey: "Software\\R-core\\R"; Flags: uninsdeletevalue; ValueType: string; ValueName: "InstallPath"; ValueData: "{app}"; Tasks: recordversion; Check: IsAdmin
 
125
Root: HKLM; Subkey: "Software\\R-core\\R"; Flags: uninsdeletevalue; ValueType: string; ValueName: "Current Version"; ValueData: "${RVER}"; Tasks: recordversion; Check: IsAdmin
126
126
 
127
127
Root: HKLM; Subkey: "Software\\R-core\\R\\${RVER}"; Flags: uninsdeletekey; Tasks: recordversion; Check: IsAdmin
128
 
Root: HKLM; Subkey: "Software\\R-core\\R\\${RVER}"; ValueType: string; ValueName: "InstallPath"; ValueData: "{app}"; Check: IsAdmin
 
128
Root: HKLM; Subkey: "Software\\R-core\\R\\${RVER}"; ValueType: string; ValueName: "InstallPath"; ValueData: "{app}"; Tasks: recordversion; Check: IsAdmin
129
129
 
130
130
Root: HKCU; Subkey: "Software\\R-core"; Flags: uninsdeletekeyifempty; Tasks: recordversion; Check: NonAdmin
131
131
Root: HKCU; Subkey: "Software\\R-core\\R"; Flags: uninsdeletekeyifempty; Tasks: recordversion; Check: NonAdmin
132
 
Root: HKCU; Subkey: "Software\\R-core\\R"; Flags: uninsdeletevalue; ValueType: string; ValueName: "InstallPath"; ValueData: "{app}"; Check: NonAdmin
133
 
Root: HKCU; Subkey: "Software\\R-core\\R"; Flags: uninsdeletevalue; ValueType: string; ValueName: "Current Version"; ValueData: "${RVER}"; Check: NonAdmin
 
132
Root: HKCU; Subkey: "Software\\R-core\\R"; Flags: uninsdeletevalue; ValueType: string; ValueName: "InstallPath"; ValueData: "{app}"; Tasks: recordversion; Check: NonAdmin
 
133
Root: HKCU; Subkey: "Software\\R-core\\R"; Flags: uninsdeletevalue; ValueType: string; ValueName: "Current Version"; ValueData: "${RVER}"; Tasks: recordversion; Check: NonAdmin
134
134
 
135
135
Root: HKCU; Subkey: "Software\\R-core\\R\\${RVER}"; Flags: uninsdeletekey; Tasks: recordversion; Check: NonAdmin
136
 
Root: HKCU; Subkey: "Software\\R-core\\R\\${RVER}"; ValueType: string; ValueName: "InstallPath"; ValueData: "{app}"; Check: NonAdmin
 
136
Root: HKCU; Subkey: "Software\\R-core\\R\\${RVER}"; ValueType: string; ValueName: "InstallPath"; ValueData: "{app}"; Tasks: recordversion; Check: NonAdmin
137
137
 
138
138
Root: HKCR; Subkey: ".RData"; ValueType: string; ValueName: ""; ValueData: "RWorkspace"; Flags: uninsdeletevalue; Tasks: associate; Check: IsAdmin
139
139
Root: HKCR; Subkey: "RWorkspace"; ValueType: string; ValueName: ""; ValueData: "R Workspace"; Flags: uninsdeletekey; Tasks: associate; Check: IsAdmin
179
179
  MDISDIPage: TInputOptionWizardPage;
180
180
  HelpStylePage: TInputOptionWizardPage;
181
181
  InternetPage: TInputOptionWizardPage;
 
182
  INIFilename: String;
182
183
  
183
184
function IsAdmin: boolean;
184
185
begin
191
192
end;
192
193
 
193
194
procedure InitializeWizard;
 
195
var
 
196
  option : String;
 
197
  index : Integer;
194
198
begin
195
199
  NoAdminPage := CreateOutputMsgPage(wpWelcome, SetupMessage(msgInformationTitle), 
196
200
    CustomMessage(\'adminprivilegesrequired\'), CustomMessage(\'adminexplanation\'));
221
225
  InternetPage.Add(CustomMessage(\'Internet0\'));
222
226
  InternetPage.Add(CustomMessage(\'Internet1\'));    
223
227
 
224
 
  case GetPreviousData(\'MDISDI\', \'\') of
225
 
    \'MDI\': MDISDIPage.SelectedValueIndex := 0;
226
 
    \'SDI\': MDISDIPage.SelectedValueIndex := 1;
227
 
  else
228
 
    MDISDIPage.SelectedValueIndex := ${MDISDI};
229
 
  end;
230
 
 
231
 
  case GetPreviousData(\'HelpStyle\', \'\') of
232
 
    \'plain\': HelpStylePage.SelectedValueIndex := 0;
233
 
    \'CHM\':   HelpStylePage.SelectedValueIndex := 1;
234
 
    \'HTML\':  HelpStylePage.SelectedValueIndex := 2;
235
 
  else
236
 
    HelpStylePage.SelectedValueIndex := ${HelpStyle};
237
 
  end;
238
 
  
239
 
  case GetPreviousData(\'Internet\', \'\') of
240
 
    \'Standard\': InternetPage.SelectedValueIndex := 0;
241
 
    \'Internet2\': InternetPage.SelectedValueIndex := 1;
242
 
  else
243
 
    InternetPage.SelectedValueIndex := ${Internet};
 
228
  INIFilename := ExpandConstant(\'{param:LOADINF}\');
 
229
  if INIFilename <> \'\' then INIFilename := ExpandFilename(INIFilename);
 
230
  
 
231
  { From highest to lowest, priority is:
 
232
    LOADINF value
 
233
    PreviousData value
 
234
    Default from build }
 
235
  
 
236
  option := GetPreviousData(\'MDISDI\', \'\');
 
237
  if INIFilename <> '' then
 
238
    option := GetIniString(\'R\', \'MDISDI\', option, INIFilename);
 
239
  case option of
 
240
    \'MDI\': index := 0;
 
241
    \'SDI\': index := 1;
 
242
  else
 
243
    index := ${MDISDI};
244
244
  end;  
 
245
  MDISDIPage.SelectedValueIndex := index;
 
246
 
 
247
  option := GetPreviousData(\'HelpStyle\', \'\');
 
248
  if INIFilename <> \'\' then
 
249
    option := GetIniString(\'R\', \'HelpStyle\', option, INIFilename);  
 
250
  case option of
 
251
    \'plain\': index := 0;
 
252
    \'CHM\':   index := 1;
 
253
    \'HTML\':  index := 2;
 
254
  else
 
255
    index := ${HelpStyle};
 
256
  end;
 
257
  HelpStylePage.SelectedValueIndex := index;
245
258
  
 
259
  option := GetPreviousData(\'Internet\', \'\');
 
260
  if INIFilename <> \'\' then
 
261
    option := GetIniString(\'R\', \'Internet\', option, INIFilename);
 
262
  case option of
 
263
    \'Standard\':  index := 0;
 
264
    \'Internet2\': index := 1;
 
265
  else
 
266
    index := ${Internet};
 
267
  end;
 
268
  InternetPage.SelectedValueIndex := index;
 
269
    
 
270
  { Get the save name now, because the current dir might change }
 
271
  INIFilename := ExpandConstant(\'{param:SAVEINF}\');
 
272
  if INIFilename <> \'\' then INIFilename := ExpandFilename(INIFilename);    
246
273
end;
247
274
 
248
275
procedure RegisterPreviousData(PreviousDataKey: Integer);
251
278
  HelpStyle: String;
252
279
  Internet: String;
253
280
begin
 
281
 
 
282
  
254
283
  { Store the settings so we can restore them next time }
255
284
  case MDISDIPage.SelectedValueIndex of
256
285
    0: MDISDI := \'MDI\';
257
286
    1: MDISDI := \'SDI\';
258
287
  end;
259
288
  SetPreviousData(PreviousDataKey, \'MDISDI\', MDISDI);
 
289
  if INIFilename <> \'\' then
 
290
    SetIniString(\'R\', \'MDISDI\', MDISDI, INIFilename);
 
291
    
260
292
  case HelpStylePage.SelectedValueIndex of
261
293
    0: HelpStyle := \'plain\';
262
294
    1: HelpStyle := \'CHM\';
263
295
    2: HelpStyle := \'HTML\';
264
296
  end;
265
297
  SetPreviousData(PreviousDataKey, \'HelpStyle\', HelpStyle);  
 
298
  if INIFilename <> \'\' then
 
299
    SetIniString(\'R\', \'HelpStyle\', HelpStyle, INIFilename);
 
300
  
266
301
  case InternetPage.SelectedValueIndex of
267
302
    0: Internet := \'Standard\';
268
303
    1: Internet := \'Internet2\';
269
304
  end;
270
305
  SetPreviousData(PreviousDataKey, \'Internet\', Internet);
 
306
  if INIFilename <> \'\' then
 
307
    SetIniString(\'R\', \'Internet\', Internet, INIFilename);
271
308
end;
272
309
 
273
310
procedure SetCommentMarker(var lines: TArrayOfString; option: String; active: boolean);
411
448
                 || m/^share\\make/
412
449
                 || m/^share\\perl/
413
450
                 || m/^share\\R/
 
451
                 || m/^share\\sh/
414
452
                 || m/^share\\texmf/
415
453
                 || m/^bin\\build/
416
454
                 || m/^bin\\check/