Inicio Explorar Axuda
Iniciar sesión
pascal
/
fpc
réplica de https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Ficheiros Incidencias 0 Wiki
Rama: svn/fixes_2_2_0_dos
Ramas Etiquetas
fpc
/
packages
/
base
/
libc
/
getopth.inc

getopth.inc 1.3 KB
Permalink Histórico Raw

12345678910111213141516171819202122232425262728293031323334 
  1. 

  2. var
    3. 

  3.   optarg : Pchar;cvar;external;
    4. 

  4.   optind : longint;cvar;external;
    5. 

  5.   opterr : longint;cvar;external;
    6. 

  6.   optopt : longint;cvar;external;
    7. 

  7. 

  8. type
    9. 

  9.    Poption = ^option;
    10. 

  10.    option = record
    11. 

  11.      name : Pchar;
    12. 

  12.      has_arg : longint;
    13. 

  13.      flag : Plongint;
    14. 

  14.      val : longint;
    15. 

  15.    end;
    16. 

  16. 

  17. 

  18. const
    19. 

  19.    no_argument = 0;
    20. 

  20.    required_argument = 1;
    21. 

  21.    optional_argument = 2;
    22. 

  22. 

  23. 

  24. function getopt(___argc:longint; ___argv:PPchar; __shortopts:Pchar):longint;cdecl;external clib name 'getopt';
    25. 

  25. function getopt_long(___argc:longint; ___argv:PPchar; __shortopts:Pchar; __longopts:Poption; __longind:Plongint):longint;cdecl;external clib name 'getopt_long';
    26. 

  26. function getopt_long_only(___argc:longint; ___argv:PPchar; __shortopts:Pchar; __longopts:Poption; __longind:Plongint):longint;cdecl;external clib name 'getopt_long_only';
    27. 

  27. 

  28. { ---------------------------------------------------------------------
    29. 

  29.     Borland compatibility types
    30. 

  30.   ---------------------------------------------------------------------}
    31. 

  31. 

  32. // Type
    33. 

  33. function getopt_long(___argc:longint; ___argv:PPchar; __shortopts:Pchar; const __longopts:option; var __longind:longint):longint;cdecl;external clib name 'getopt_long';
    34. 

  34. function getopt_long_only(___argc:longint; ___argv:PPchar; __shortopts:Pchar; const __longopts:option; var __longind:longint):longint;cdecl;external clib name 'getopt_long_only';
    35.