/[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.29 by rlb, Mon Dec 9 00:46:24 2002 UTC revision 1.30 by mdj, Mon Dec 9 13:42:58 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(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
# 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(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
# 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(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
# 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    
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
# Line 140  SCM_DEFINE (scm_effective_version, "effe Line 142  SCM_DEFINE (scm_effective_version, "effe
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

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

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