/[guile]/guile/guile-core/libguile/version.c
ViewVC logotype

Diff of /guile/guile-core/libguile/version.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by mdj, Mon Dec 9 13:42:58 2002 UTC revision 1.31 by mdj, Sun Dec 15 11:27:01 2002 UTC
# Line 59  SCM_DEFINE (scm_major_version, "major-ve Line 59  SCM_DEFINE (scm_major_version, "major-ve
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
# Line 72  SCM_DEFINE (scm_minor_version, "minor-ve Line 72  SCM_DEFINE (scm_minor_version, "minor-ve
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
# Line 85  SCM_DEFINE (scm_micro_version, "micro-ve Line 85  SCM_DEFINE (scm_micro_version, "micro-ve
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
# Line 110  SCM_DEFINE (scm_version, "version", 0, 0 Line 110  SCM_DEFINE (scm_version, "version", 0, 0
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
# Line 142  SCM_DEFINE (scm_effective_version, "effe Line 140  SCM_DEFINE (scm_effective_version, "effe
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

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26