version 1.1.1.2, 2000/01/22 14:16:01 |
version 1.1.1.3, 2003/09/15 07:09:26 |
Line 44 static char *RCSid = "$Id$"; |
|
Line 44 static char *RCSid = "$Id$"; |
|
#include "plot.h" |
#include "plot.h" |
#include "setshow.h" |
#include "setshow.h" |
|
|
#define DEF_FORMAT "%g" /* default format for tic mark labels */ |
|
#define SIGNIF (0.01) /* less than one hundredth of a tic mark */ |
|
|
|
|
|
/* input data, parsing variables */ |
/* input data, parsing variables */ |
|
|
extern TBOOLEAN is_3d_plot; |
extern TBOOLEAN is_3d_plot; |
|
|
/* From version.c, used in show_version () */ |
|
extern char version[]; |
|
extern char patchlevel[]; |
|
extern char date[]; |
|
extern char gnuplot_copyright[]; |
|
extern char faq_location[]; |
|
extern char bug_email[]; |
|
extern char help_email[]; |
|
|
|
|
|
#ifndef TIMEFMT |
#ifndef TIMEFMT |
#define TIMEFMT "%d/%m/%y,%H:%M" |
#define TIMEFMT "%d/%m/%y,%H:%M" |
#endif |
#endif |
|
|
c_token++; |
c_token++; |
} else if (almost_equals(c_token, "ve$rsion")) { |
} else if (almost_equals(c_token, "ve$rsion")) { |
show_version(stderr); |
show_version(stderr); |
c_token++; |
|
if (almost_equals(c_token, "l$ong")) { |
|
show_version_long(); |
|
c_token++; |
|
} |
|
} else if (almost_equals(c_token, "xr$ange")) { |
} else if (almost_equals(c_token, "xr$ange")) { |
(void) putc('\n', stderr); |
(void) putc('\n', stderr); |
show_range(FIRST_X_AXIS, xmin, xmax, autoscale_x, "x"); |
show_range(FIRST_X_AXIS, xmin, xmax, autoscale_x, "x"); |
|
|
} |
} |
fprintf(fp, "%s\n\ |
fprintf(fp, "%s\n\ |
%s\t%s\n\ |
%s\t%s\n\ |
%s\t%sversion %s\n\ |
%s\tVersion %s patchlevel %s\n\ |
%s\tpatchlevel %s\n\ |
|
%s\tlast modified %s\n\ |
%s\tlast modified %s\n\ |
|
%s\tSystem: %s %s\n\ |
%s\n\ |
%s\n\ |
%s\t%s\n\ |
%s\t%s\n\ |
%s\tThomas Williams, Colin Kelley and many others\n\ |
%s\tThomas Williams, Colin Kelley and many others\n\ |
%s\n\ |
%s\n\ |
%s\tType `help` to access the on-line reference manual\n\ |
%s\tType `help` to access the on-line reference manual\n\ |
%s\tThe gnuplot FAQ is available from\n\ |
%s\tThe gnuplot FAQ is available from\n\ |
%s\t<%s>\n\ |
%s\t%s\n\ |
%s\n\ |
%s\n\ |
%s\tSend comments and requests for help to <%s>\n\ |
%s\tSend comments and requests for help to <%s>\n\ |
%s\tSend bugs, suggestions and mods to <%s>\n\ |
%s\tSend bugs, suggestions and mods to <%s>\n\ |
%s\n", |
%s\n", |
p, /* empty line */ |
p, /* empty line */ |
p, PROGRAM, |
p, PROGRAM, |
p, OS, version, |
p, gnuplot_version, gnuplot_patchlevel, |
p, patchlevel, |
p, gnuplot_date, |
p, date, |
p, os_name, os_rel, |
p, /* empty line */ |
p, /* empty line */ |
p, gnuplot_copyright, |
p, gnuplot_copyright, |
p, /* authors */ |
p, /* authors */ |
|
|
p, help_email, |
p, help_email, |
p, bug_email, |
p, bug_email, |
p); /* empty line */ |
p); /* empty line */ |
|
|
|
c_token++; |
|
if (almost_equals(c_token, "l$ong")) { |
|
show_version_long(); |
|
c_token++; |
|
} |
} |
} |
|
|
void show_version_long() |
void show_version_long() |
{ |
{ |
char *helpfile = NULL; |
char *helpfile = NULL; |
#ifdef HAVE_SYS_UTSNAME_H |
|
struct utsname uts; |
|
|
|
/* something is fundamentally wrong if this fails ... */ |
|
if (uname(&uts) > -1) { |
|
# ifdef _AIX |
|
fprintf(stderr, "\nSystem: %s %s.%s", uts.sysname, uts.version, uts.release); |
|
# elif defined (SCO) |
|
fprintf(stderr, "\nSystem: SCO %s", uts.release); |
|
# else |
|
fprintf(stderr, "\nSystem: %s %s", uts.sysname, uts.release); |
|
# endif |
|
} else { |
|
fprintf(stderr, "\n%s\n", OS); |
|
} |
|
|
|
#else /* ! HAVE_SYS_UTSNAME_H */ |
|
|
|
fprintf(stderr, "\n%s\n", OS); |
|
|
|
#endif /* HAVE_SYS_UTSNAME_H */ |
|
|
|
fputs("\nCompile options:\n", stderr); |
fputs("\nCompile options:\n", stderr); |
|
|