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

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