59 |
"E.g., the 1 in \"1.6.5\".") |
"E.g., the 1 in \"1.6.5\".") |
60 |
#define FUNC_NAME s_scm_major_version |
#define FUNC_NAME s_scm_major_version |
61 |
{ |
{ |
62 |
return scm_number_to_string (SCM_MAKINUM(SCM_MAJOR_VERSION), |
return scm_number_to_string (SCM_MAKINUM(1), |
63 |
SCM_MAKINUM(10)); |
SCM_MAKINUM(10)); |
64 |
} |
} |
65 |
#undef FUNC_NAME |
#undef FUNC_NAME |
72 |
"E.g., the 6 in \"1.6.5\".") |
"E.g., the 6 in \"1.6.5\".") |
73 |
#define FUNC_NAME s_scm_minor_version |
#define FUNC_NAME s_scm_minor_version |
74 |
{ |
{ |
75 |
return scm_number_to_string (SCM_MAKINUM(SCM_MINOR_VERSION), |
return scm_number_to_string (SCM_MAKINUM(7), |
76 |
SCM_MAKINUM(10)); |
SCM_MAKINUM(10)); |
77 |
} |
} |
78 |
#undef FUNC_NAME |
#undef FUNC_NAME |
85 |
"E.g., the 5 in \"1.6.5\".") |
"E.g., the 5 in \"1.6.5\".") |
86 |
#define FUNC_NAME s_scm_micro_version |
#define FUNC_NAME s_scm_micro_version |
87 |
{ |
{ |
88 |
return scm_number_to_string (SCM_MAKINUM(SCM_MICRO_VERSION), |
return scm_number_to_string (SCM_MAKINUM(0), |
89 |
SCM_MAKINUM(10)); |
SCM_MAKINUM(10)); |
90 |
} |
} |
91 |
#undef FUNC_NAME |
#undef FUNC_NAME |
110 |
|
|
111 |
char version_str[3 * 4 + 3]; |
char version_str[3 * 4 + 3]; |
112 |
|
|
113 |
|
#if 0 |
114 |
#if SCM_MAJOR_VERSION > 9999 \ |
#if SCM_MAJOR_VERSION > 9999 \ |
115 |
|| SCM_MINOR_VERSION > 9999 \ |
|| SCM_MINOR_VERSION > 9999 \ |
116 |
|| SCM_MICRO_VERSION > 9999 |
|| SCM_MICRO_VERSION > 9999 |
117 |
# error version string may overflow buffer |
# error version string may overflow buffer |
118 |
#endif |
#endif |
119 |
|
#endif |
120 |
sprintf (version_str, "%d.%d.%d", |
sprintf (version_str, "%d.%d.%d", |
121 |
SCM_MAJOR_VERSION, |
1, |
122 |
SCM_MINOR_VERSION, |
7, |
123 |
SCM_MICRO_VERSION); |
0); |
124 |
return scm_makfrom0str (version_str); |
return scm_makfrom0str (version_str); |
125 |
} |
} |
126 |
#undef FUNC_NAME |
#undef FUNC_NAME |
142 |
|
|
143 |
char version_str[2 * 4 + 3]; |
char version_str[2 * 4 + 3]; |
144 |
|
|
145 |
|
#if 0 |
146 |
#if (SCM_MAJOR_VERSION > 9999 || SCM_MINOR_VERSION > 9999) |
#if (SCM_MAJOR_VERSION > 9999 || SCM_MINOR_VERSION > 9999) |
147 |
# error version string may overflow buffer |
# error version string may overflow buffer |
148 |
#endif |
#endif |
149 |
sprintf (version_str, "%d.%d", SCM_MAJOR_VERSION, SCM_MINOR_VERSION); |
#endif |
150 |
|
sprintf (version_str, "%d.%d", 1, 7); |
151 |
return scm_makfrom0str (version_str); |
return scm_makfrom0str (version_str); |
152 |
} |
} |
153 |
#undef FUNC_NAME |
#undef FUNC_NAME |