/*
* call-seq:
* str.to_c -> complex
*
* Returns a complex which denotes the string form. The parser
* ignores leading whitespaces and trailing garbage. Any digit
* sequences can be separated by an underscore. Returns zero for null
* or garbage string.
*
* '9'.to_c #=> (9+0i)
* '2.5'.to_c #=> (2.5+0i)
* '2.5/1'.to_c #=> ((5/2)+0i)
* '-3/2'.to_c #=> ((-3/2)+0i)
* '-i'.to_c #=> (0-1i)
* '45i'.to_c #=> (0+45i)
* '3-4i'.to_c #=> (3-4i)
* '-4e2-4e-2i'.to_c #=> (-400.0-0.04i)
* '-0.0-0.0i'.to_c #=> (-0.0-0.0i)
* '1/2+3/4i'.to_c #=> ((1/2)+(3/4)*i)
* 'ruby'.to_c #=> (0+0i)
*
* See Kernel.Complex.
*/
static VALUE
string_to_c(VALUE self)
{
char *s;
VALUE num;
rb_must_asciicompat(self);
s = RSTRING_PTR(self);
if (s && s[RSTRING_LEN(self)]) {
rb_str_modify(self);
s = RSTRING_PTR(self);
s[RSTRING_LEN(self)] = '\0';
}
if (!s)
s = (char *)"";
(void)parse_comp(s, 0, &num);
return num;
}
void
gaa_parser (int argc, char **argv)
{
if (gaa (argc, argv, &info) != -1)
{
fprintf (stderr,
"Error in the arguments. Use the --help or -h parameters to get more information.\n");
exit (1);
}
debug = info.debug;
verbose = info.verbose;
disable_extensions = info.disable_extensions;
xml = info.xml;
print_cert = info.print_cert;
starttls = info.starttls;
resume = info.resume;
insecure = info.insecure;
service = info.port;
record_max_size = info.record_size;
fingerprint = info.fingerprint;
if (info.fmtder == 0)
x509ctype = GNUTLS_X509_FMT_PEM;
else
x509ctype = GNUTLS_X509_FMT_DER;
srp_username = info.srp_username;
srp_passwd = info.srp_passwd;
x509_cafile = info.x509_cafile;
x509_crlfile = info.x509_crlfile;
x509_keyfile = info.x509_keyfile;
x509_certfile = info.x509_certfile;
pgp_keyfile = info.pgp_keyfile;
pgp_certfile = info.pgp_certfile;
psk_username = info.psk_username;
psk_key.data = (unsigned char *) info.psk_key;
if (info.psk_key != NULL)
psk_key.size = strlen (info.psk_key);
else
psk_key.size = 0;
pgp_keyring = info.pgp_keyring;
pgp_trustdb = info.pgp_trustdb;
crlf = info.crlf;
if (info.rest_args == NULL)
hostname = "localhost";
else
hostname = info.rest_args;
parse_protocols (info.proto, info.nproto, protocol_priority);
parse_ciphers (info.ciphers, info.nciphers, cipher_priority);
parse_macs (info.macs, info.nmacs, mac_priority);
parse_ctypes (info.ctype, info.nctype, cert_type_priority);
parse_kx (info.kx, info.nkx, kx_priority);
parse_comp (info.comp, info.ncomp, comp_priority);
}
