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(1), |
return scm_number_to_string (SCM_MAKINUM(SCM_MAJOR_VERSION), |
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(7), |
return scm_number_to_string (SCM_MAKINUM(SCM_MINOR_VERSION), |
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(0), |
return scm_number_to_string (SCM_MAKINUM(SCM_MICRO_VERSION), |
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 |
|
|
|
#if 0 |
|
113 |
#if SCM_MAJOR_VERSION > 9999 \ |
#if SCM_MAJOR_VERSION > 9999 \ |
114 |
|| SCM_MINOR_VERSION > 9999 \ |
|| SCM_MINOR_VERSION > 9999 \ |
115 |
|| SCM_MICRO_VERSION > 9999 |
|| SCM_MICRO_VERSION > 9999 |
116 |
# error version string may overflow buffer |
# error version string may overflow buffer |
117 |
#endif |
#endif |
|
#endif |
|
118 |
sprintf (version_str, "%d.%d.%d", |
sprintf (version_str, "%d.%d.%d", |
119 |
1, |
SCM_MAJOR_VERSION, |
120 |
7, |
SCM_MINOR_VERSION, |
121 |
0); |
SCM_MICRO_VERSION); |
122 |
return scm_makfrom0str (version_str); |
return scm_makfrom0str (version_str); |
123 |
} |
} |
124 |
#undef FUNC_NAME |
#undef FUNC_NAME |
140 |
|
|
141 |
char version_str[2 * 4 + 3]; |
char version_str[2 * 4 + 3]; |
142 |
|
|
|
#if 0 |
|
143 |
#if (SCM_MAJOR_VERSION > 9999 || SCM_MINOR_VERSION > 9999) |
#if (SCM_MAJOR_VERSION > 9999 || SCM_MINOR_VERSION > 9999) |
144 |
# error version string may overflow buffer |
# error version string may overflow buffer |
145 |
#endif |
#endif |
146 |
#endif |
sprintf (version_str, "%d.%d", SCM_MAJOR_VERSION, SCM_MINOR_VERSION); |
|
sprintf (version_str, "%d.%d", 1, 7); |
|
147 |
return scm_makfrom0str (version_str); |
return scm_makfrom0str (version_str); |
148 |
} |
} |
149 |
#undef FUNC_NAME |
#undef FUNC_NAME |