git.m6w6.name Git - m6w6/ext-psi/blob - psi.d/getopt.psi

   1 function psi\opterr(int $value) : void {
   2         let _v = intval($value);
   3         return void(opterr_set);
   4 }
   5 function psi\optind() : int {
   6         return to_int(optind);
   7 }
   8 function psi\optopt() : int {
   9         return to_int(optopt);
  10 }
  11 function psi\optarg() : string {
  12         return to_string(optarg);
  13 }
  14
  15 function psi\getopt(array &$argv, string $options) : int {
  16         let argc = count($argv);
  17         let argv = &arrval($argv,
  18                 *argv = strval($argv)
  19         );
  20         let optstring = strval($options);
  21         return to_int(getopt);
  22         set $argv = to_array(argv,
  23                 to_string(argv)
  24         );
  25 }