[Pascal] Как нормально реализовать аргументы в паскале?

calc_fibonacci.pas(63,15) Error: Identifier not found "hasoption"
calc_fibonacci.pas(68,15) Error: Identifier not found "hasoption"
calc_fibonacci.pas(71,32) Error: Identifier not found "getoptionvalue"
calc_fibonacci.pas(74,15) Error: Identifier not found "hasoption"
calc_fibonacci.pas(77,32) Error: Identifier not found "getoptionvalue"
calc_fibonacci.pas(120,14) Error: Variable identifier expected
calc_fibonacci.pas(121,14) Error: Variable identifier expected
calc_fibonacci.pas(122,9) Error: Variable identifier expected
calc_fibonacci.pas(129) Fatal: There were 8 errors compiling module, stopping

Мне уже хоть кто-нибудь скажет, что за модуль с getoptionvalue и hasoption, что описаны здесь

Не, мне дикий так и не сказал, что за модуль нужен

Зачем усложнять жизнь библиотеками и использовать непременно case?

var
  n : Integer;
begin
  for n := 1 to MAX do
    begin
      {$I args} // if paramstr(n) = 'X' or 'Y' then Z; 
    end
end.
[/quote]
а в файлике args уже спокойно и красиво пишешь проверки.

http://www.freepascal.org/docs-html/fcl/custapp/tcustomapplication.getoptionv...

жестокий ты человек. бояться тебя надо.

CustApp пробовали?

case умеет только целые значения. Увы. Рекомендую глянуть ассемблерный код или хотя бы разобраться в принципе работы case.

А, ч’рт, я слоупок

Я уже все перепробовал: «uses CRT,sysutils,getopts,unix,baseunix,linux,custapp;» сейчас. Но все равно:

Free Pascal Compiler version 2.4.0 [2010/05/05] for i386
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for i386
Compiling calc_fibonacci.pas
calc_fibonacci.pas(63,15) Error: Identifier not found "hasoption"
calc_fibonacci.pas(68,15) Error: Identifier not found "hasoption"
calc_fibonacci.pas(71,32) Error: Identifier not found "getoptionvalue"
calc_fibonacci.pas(74,15) Error: Identifier not found "hasoption"
calc_fibonacci.pas(77,32) Error: Identifier not found "getoptionvalue"
calc_fibonacci.pas(120,14) Error: Variable identifier expected
calc_fibonacci.pas(121,14) Error: Variable identifier expected
calc_fibonacci.pas(122,9) Error: Variable identifier expected
calc_fibonacci.pas(129) Fatal: There were 8 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

щмук, ты с каких пор стал фанатом паскаля?

Спасибо, поправьте мое сообщение

> Зачем усложнять жизнь библиотеками

да конечно свой мотороллер лучше

Проклятые урановые рудники^UКурсачи на паскале, АРМы на FoxPro, ракетные шахты, проекты с унаследованными велосипедолибами на паскале (теперь кроссплатформенном и многопоточном, но криво портированном)...

Ты лучшеб помог

getopts, легко и понятно:

program testopt;

{ Program to depmonstrate the getopts function. }

{
  Valid calls to this program are
  optex --verbose --add me --delete you
  optex --append --create child
  optex -ab -c me -d you
  and so on
}
uses getopts;

var c : char;
    optionindex : Longint;
    theopts : array[1..7] of TOption;

begin
  with theopts[1] do
   begin
    name:='add';
    has_arg:=1;
    flag:=nil;
    value:=#0;
  end;
  with theopts[2] do
   begin
    name:='append';
    has_arg:=0;
    flag:=nil;
    value:=#0;
  end;
  with theopts[3] do
   begin
    name:='delete';
    has_arg:=1;
    flag:=nil;
    value:=#0;
  end;
  with theopts[4] do
   begin
    name:='verbose';
    has_arg:=0;
    flag:=nil;
    value:=#0;
  end;
  with theopts[5] do
   begin
    name:='create';
    has_arg:=1;
    flag:=nil;
    value:='c'
  end;
  with theopts[6] do
   begin
    name:='file';
    has_arg:=1;
    flag:=nil;
    value:=#0;
  end;
  with theopts[7] do
   begin
    name:='';
    has_arg:=0;
    flag:=nil;
  end;
  c:=#0;
  repeat
    c:=getlongopts('abc:d:012',@theopts[1],optionindex);
    case c of
      '1','2','3','4','5','6','7','8','9' :
        begin
        writeln ('Got optind : ',c)
        end;
      #0 : begin
           write ('Long option : ',theopts[optionindex].name);
           if theopts[optionindex].has_arg>0 then
             writeln (' With value  : ',optarg)
           else
             writeln
           end;
      'a' : writeln ('Option a.');
      'b' : writeln ('Option b.');
      'c' : writeln ('Option c : ', optarg);
      'd' : writeln ('Option d : ', optarg);
      '?',':' : writeln ('Error with opt : ',optopt);
   end; { case }
until c=endofoptions;
if optind<=paramcount then
    begin
    write ('Non options : ');
    while optind<=paramcount do
      begin
      write (paramstr(optind),' ');
      inc(optind)
      end;
    writeln
    end
end.

хз, может лучше и правда закопать до конца это чудище?

У меня компилятор ругается что не знает никаких getoptionvalue, и hasoption. и я не знаю что с этим делать

Жестокости мало.

могу дать лопату

{$mode objfpc}{$H+}
uses
  custapp;
type

  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
  end;

procedure TMyApplication.DoRun;
begin
  Terminate;
end;

var
  Application : TMyApplication;

begin
  Application := TMyApplication.Create(nil);
  Application.Run;

  if Application.HasOption('h', 'help') then writeln('Hello');

  Application.Free;
end.

Все работает если включать мозг. Просто оставь паскаль. Не для тебя он.

в следующем примере что привел - еще меньше) Хотя, видимо надо брать на вооружение лоровскую традицию писать для ленивых идиотов код как можно сложнее, запутанней и максимально черезжопу)

ОК. Согласен, с bash у меня все быстрее и проще получалось.
Только вот интересно, мне ведь скоро(если перейду на 2 курс) изучать C++ или C. Вот скажите, там все так-же странно, или проще?

Я всегда был фанатом русского языка :)

>да конечно свой мотороллер лучше

да. Не веришь - посмотри на код того же getopts или не дай боже залезь в класс TCustomApplication.
Если класс используется в проекте в другом коде - то да, имеет смысл его использовать вместо своего велосипеда. Если нет - зачем лишняя абстракция?

И да, почему я ленивый идиот? В том вики не было указано, что надо использовать:

type

  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
  end;

procedure TMyApplication.DoRun;
begin
  Terminate;
end;

Вот скажите, там все так-же странно, или проще?

int getWinner() 
{
  int i(0),*d(&field[0][0]),*n(&field[0][2]);
  while(i-3){int*r(&field[i][0]),*c(&field[0][i++]);
  if((*r)&&(*r++==*r)&&(*r++==*r))return*r;
  if((*c)&&(*c==*(c+3))&&(*c==*(c+6)))return*c;}
  return (*d)&&(*d==*(d+4))&&(*d==*(d+8))?*d:
  ((*n)&&(*n==*(n+2))&&(*n==*(n+4))?*n:0);
}

бгг)

>И да, почему я ленивый идиот?

потому что я нашел решение а ты нет. Достаточное доказательство? xD

Да и то, тут используются классы(а что это такое? название знаю, а что это такое нет), и уже объектно-ориентированный паскаль, как я вижу.

и что? Объектный паскаль. Претензии?

О, это уже не так странно! Тут я уже хоть что-то понимаю
korvin_: Можешь давать лопату :3

Ви там вообще что используете? Уж не TP ли?

Я объектный паскаль не проходил даже в колледже еще, и смотрю еще долго не буду

Kwrite|gedit+fpc в консоли

>Case может обслужить только перечислимые типы и char (который по сути есть byte).

Это ты с каким-то другим языком перепутал, в паскале строки в case работают.

У меня оно все равно ругалось почему-то. Даже если поместить названия ключей в константы

>уже все перепробовал: «uses CRT,sysutils,getopts,unix,baseunix,linux,custapp;»

О, хоспади. Де ж вы такие ниасиляторы беретесь. Прямым текстом написано же по ссылке:

The unit custapp that comes with FPC provides the TCustomApplication class, which provides functions to easily check and read parameters.

если хочешь без TCustomApplication делай тупо на getopts (по второй ссылке, что я привел), почти то же самое.

Я классы еще не проходил. Да и пока тебя не было, решили закопать в пользу C

>Да и то, тут используются классы(а что это такое? название знаю, а что это такое нет), и уже объектно-ориентированный паскаль, как я вижу.

не хочешь объектного, юзай

uses getopts

ссылку уже давал.

O, RLY? Cool story, bro!

>Я классы еще не проходил. Да и пока тебя не было, решили закопать в пользу C

Ооо. откапывай обратно. В С тебя ожидает вообще ни с чем не сравнимый секс со строками.

>изучать C++ или C. Вот скажите, там все так-же странно, или проще?

«Изучать» в каком объеме? велосипедопарсеры-то? Аналогично, если не хуже. На С некоторые любят мозголомные свичи посимвольно в циклах. На плюсах кто с шаблонами связался и полюбил это дело - вообще могут моск взорвать.

Да, действительно, попутал.

А классы мне тоже определенно рано, потому что я даже из матчасти по классам ничего не понимаю. «Объекты, над которыми можно прозводить действия» я пока игры быдлокодить не собираюсь.

Изучать в объеме средне-специального образования.

>Да и пока тебя не было, решили закопать в пользу C

Абассаца! Ниасилятор паскаля лезет в С. За тобой уже выехали * и & :)

Аффтар. Прислушайся в вышестоящему оратору и откопай паскаль обратно :) Он дело говорит.

Так я вообще скоро заброшу программирование, и пойду убьюсь апстену, с такими то постами

>А классы мне тоже определенно рано, потому что я даже из матчасти по классам ничего не понимаю.

ну так я и сказал. Юзай uses getopts. Там никаких классов нет.

Логические множители? Может быть

Постараюсь конечно разобраться с классами, но если не получиться, труп страуса меня ждет.

>«Объекты, над которыми можно прозводить действия» я пока игры быдлокодить не собираюсь.

А какая связь? Быдлокодить игры на любом языке можно.

okay :(