Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/ArgParsers.inc
branch0.9.19
changeset 8924 13ac59499066
parent 8884 08fe08651130
child 8985 fe8d1a476f0b
equal deleted inserted replaced
8904:6ea838b8dcd5 8924:13ac59499066 
   168       audioArray: Array [1..3] of String = ('--volume','--nomusic','--nosound');
 
   168       audioArray: Array [1..3] of String = ('--volume','--nomusic','--nosound');
 
   169       otherArray: Array [1..3] of String = ('--locale','--fullscreen','--showfps');
 
   169       otherArray: Array [1..3] of String = ('--locale','--fullscreen','--showfps');
 
   170       mediaArray: Array [1..10] of String = ('--fullscreen-width', '--fullscreen-height', '--width', '--height', '--depth', '--volume','--nomusic','--nosound','--locale','--fullscreen');
 
   170       mediaArray: Array [1..10] of String = ('--fullscreen-width', '--fullscreen-height', '--width', '--height', '--depth', '--volume','--nomusic','--nosound','--locale','--fullscreen');
 
   171       allArray: Array [1..14] of String = ('--fullscreen-width','--fullscreen-height', '--width', '--height', '--depth','--volume','--nomusic','--nosound','--locale','--fullscreen','--showfps','--altdmg','--frame-interval','--low-quality');
 
   171       allArray: Array [1..14] of String = ('--fullscreen-width','--fullscreen-height', '--width', '--height', '--depth','--volume','--nomusic','--nosound','--locale','--fullscreen','--showfps','--altdmg','--frame-interval','--low-quality');
 
   172       reallyAll: array[0..30] of shortstring = (
 
   172       reallyAll: array[0..30] of shortstring = (
 
   173                 '--prefix', '--user-prefix', '--locale', '--fullscreen-width', '--fullscreen-height', '--width', 
   173                 '--prefix', '--user-prefix', '--locale', '--fullscreen-width', '--fullscreen-height', '--width',
 
   174                 '--height', '--frame-interval', '--volume','--nomusic', '--nosound',
 
   174                 '--height', '--frame-interval', '--volume','--nomusic', '--nosound',
 
   175                 '--fullscreen', '--showfps', '--altdmg', '--low-quality', '--raw-quality', '--stereo', '--nick', 
   175                 '--fullscreen', '--showfps', '--altdmg', '--low-quality', '--raw-quality', '--stereo', '--nick',
 
   176   {deprecated}  '--depth', '--set-video', '--set-audio', '--set-other', '--set-multimedia', '--set-everything',
 
   176   {deprecated}  '--depth', '--set-video', '--set-audio', '--set-other', '--set-multimedia', '--set-everything',
 
   177   {internal}    '--internal', '--port', '--recorder', '--landpreview',
 
   177   {internal}    '--internal', '--port', '--recorder', '--landpreview',
 
   178   {misc}        '--stats-only', '--gci', '--help');
 
   178   {misc}        '--stats-only', '--gci', '--help');
 
   179 var cmdIndex: byte;
 
   179 var cmdIndex: byte;
 
   180 begin
 
   180 begin
 
   189         {--prefix}               0 : PathPrefix        := getStringParameter (arg, paramIndex, parseParameter);
 
   189         {--prefix}               0 : PathPrefix        := getStringParameter (arg, paramIndex, parseParameter);
 
   190         {--user-prefix}          1 : UserPathPrefix    := getStringParameter (arg, paramIndex, parseParameter);
 
   190         {--user-prefix}          1 : UserPathPrefix    := getStringParameter (arg, paramIndex, parseParameter);
 
   191         {--locale}               2 : cLocaleFName      := getStringParameter (arg, paramIndex, parseParameter);
 
   191         {--locale}               2 : cLocaleFName      := getStringParameter (arg, paramIndex, parseParameter);
 
   192         {--fullscreen-width}     3 : cFullscreenWidth  := getLongIntParameter(arg, paramIndex, parseParameter);
 
   192         {--fullscreen-width}     3 : cFullscreenWidth  := getLongIntParameter(arg, paramIndex, parseParameter);
 
   193         {--fullscreen-height}    4 : cFullscreenHeight := getLongIntParameter(arg, paramIndex, parseParameter);
 
   193         {--fullscreen-height}    4 : cFullscreenHeight := getLongIntParameter(arg, paramIndex, parseParameter);
 
   194         {--width}                5 : cWindowedWidth    := getLongIntParameter(arg, paramIndex, parseParameter);
 
   194         {--width}                5 : cWindowedWidth    := max(2 * (getLongIntParameter(arg, paramIndex, parseParameter) div 2), cMinScreenWidth);
 
   195         {--height}               6 : cWindowedHeight   := getLongIntParameter(arg, paramIndex, parseParameter);
 
   195         {--height}               6 : cWindowedHeight   := max(2 * (getLongIntParameter(arg, paramIndex, parseParameter) div 2), cMinScreenHeight);
 
   196         {--frame-interval}       7 : cTimerInterval    := getLongIntParameter(arg, paramIndex, parseParameter);
 
   196         {--frame-interval}       7 : cTimerInterval    := getLongIntParameter(arg, paramIndex, parseParameter);
 
   197         {--volume}               8 : SetVolume          ( getLongIntParameter(arg, paramIndex, parseParameter) );
 
   197         {--volume}               8 : SetVolume          ( getLongIntParameter(arg, paramIndex, parseParameter) );
 
   198         {--nomusic}              9 : SetMusic           ( false );
 
   198         {--nomusic}              9 : SetMusic           ( false );
 
   199         {--nosound}             10 : SetSound           ( false );
 
   199         {--nosound}             10 : SetSound           ( false );
 
   200         {--fullscreen}          11 : cFullScreen       := true;
 
   200         {--fullscreen}          11 : cFullScreen       := true;
 
   268             if not isBool then
 
   268             if not isBool then
 
   269                 newSyntax := newSyntax + arg + ' ';
 
   269                 newSyntax := newSyntax + arg + ' ';
 
   270             end;
 
   270             end;
 
   271         inc(index);
 
   271         inc(index);
 
   272         end;
 
   272         end;
 
   273     
   273 
   274     WriteLn(stdout, 'Attempted to automatically convert to the new syntax:');
 
   274     WriteLn(stdout, 'Attempted to automatically convert to the new syntax:');
 
   275     WriteLn(stdout, newSyntax);
 
   275     WriteLn(stdout, newSyntax);
 
   276     WriteLn(stdout, '');
 
   276     WriteLn(stdout, '');
 
   277 end;
 
   277 end;
 
   278 
   278
hedgewars