File: params.pas

package info (click to toggle)
ironseed 0.4.0-7
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 10,816 kB
  • sloc: pascal: 27,286; ansic: 795; makefile: 282; perl: 277; sh: 229
file content (17 lines) | stat: -rw-r--r-- 271 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
program test_params;

uses utils_;

procedure checkparams;
begin
 if (paramstr(1)<>'/playseed') and (paramstr(1)<>'/killseed') then
  begin
   writeln('Do not run this program separately.  Please run "is".');
   halt(4);
  end;
 init_dirs;
end;

begin
 checkparams;
end.