Os envío el parche para obtener la versión del programa mediante el argumento "--version". De ello se encarga la nueva función "notice_version", que obtiene los datos de config.h. Index: slabot.c =================================================================== --- slabot.c (revisión: 19) +++ slabot.c (copia de trabajo) @@ -46,7 +46,9 @@ int port = DEFAULT_PORT; int verbose = 0; +void notice_version (); + /* Aborta el programa mostrando STR por la salida de errores standard, devolviendo un valor de retorno de error al sistema operativo */ @@ -67,6 +69,7 @@ { "verbose", no_argument, NULL, 'v' }, { "nick", required_argument, NULL, 'n' }, { "port", required_argument, NULL, 'p' }, + { "version", no_argument, NULL, 'V' } }; @@ -91,6 +94,8 @@ case 'v': verbose = 1; break; + case 'V': + notice_version (); case '?': error ("Argumento no valido"); default: @@ -110,9 +115,10 @@ "Opciones:\n" " -nick nick \t Establece el nick" "\n" " -port port \t Establece el puerto (Por defecto, 6667)" "\n" - " -verbose \t Modo verboso\n" + " -verbose \t Modo de salida detallada" "\n" + " -version \t Muestra la version de %s y finaliza" "\n" "\n" - , progname); + , progname, PACKAGE_NAME); exit (EXIT_FAILURE); } @@ -132,3 +138,16 @@ return 0; } + + +void notice_version () +{ + printf ("%s %s" "\n" + "Copyright (C) 2007" "\n" + "Esto es software libre; consulte en el código fuente las condiciones de copia." "\n" + "NO hay garantía; ni siquiera para MERCANTIBILIDAD o EL CUMPLIMIENTO DE" "\n" + "ALGÚN PROPÓSITO PARTICULAR." "\n" + "\n" + , PACKAGE_NAME, PACKAGE_VERSION); + exit (EXIT_SUCCESS); +}
KmIkC writes:
Os env,Am(Bo el parche para obtener la versi,As(Bn del programa mediante el argumento "--version". De ello se encarga la nueva funci,As(Bn "notice_version", que obtiene los datos de config.h.
Aplicado con algunas modificaciones. Gracias kmikc. -- Programming in Lisp is like playing with the primordial forces of the universe. It feels like lightning between your fingertips. No other language even feels close. $,1rt(B Glenn Ehrlich
participants (2)
-
iobrain -
KmIkC