Fossil

Check-in [86a8e1d9]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Let "fossil version -v" report the real Tcl version running, not the version of the Tcl (stub) library it was compiled with.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:86a8e1d923911c4bb356f0b5ffc9e39b6e8ce4d2
User & Date: jan.nijtmans 2013-09-12 09:06:43
Context
2013-09-12
09:22
Implicit function declaration on Cygwin check-in: b7625d8d user: jan.nijtmans tags: trunk
09:06
Let "fossil version -v" report the real Tcl version running, not the version of the Tcl (stub) library it was compiled with. check-in: 86a8e1d9 user: jan.nijtmans tags: trunk
00:43
Fix a minor error in the mkdownload.tcl script. check-in: 2d9e01e0 user: drh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/main.c.

793
794
795
796
797
798
799




800
801
802
803
804
805
806
807
808




809
810

811
812





813
814
815
816
817
818
819
*/
void version_cmd(void){
  fossil_print("This is fossil version " RELEASE_VERSION " "
               MANIFEST_VERSION " " MANIFEST_DATE " UTC\n");
  if(!find_option("verbose","v",0)){
    return;
  }else{




    fossil_print("Compiled on %s %s using %s (%d-bit)\n",
                 __DATE__, __TIME__, COMPILER_NAME, sizeof(void*)*8);
    fossil_print("SQLite %s %.30s\n", SQLITE_VERSION, SQLITE_SOURCE_ID);
    fossil_print("Schema version %s\n", AUX_SCHEMA);
    fossil_print("zlib %s\n", ZLIB_VERSION);
#if defined(FOSSIL_ENABLE_SSL)
    fossil_print("SSL (%s)\n", OPENSSL_VERSION_TEXT);
#endif
#if defined(FOSSIL_ENABLE_TCL)




    fossil_print("TCL (Tcl %s)\n", TCL_PATCH_LEVEL);
#endif

#if defined(FOSSIL_ENABLE_TCL_STUBS)
    fossil_print("TCL_STUBS\n");





#endif
#if defined(FOSSIL_ENABLE_JSON)
    fossil_print("JSON (API %s)\n", FOSSIL_JSON_API_VERSION);
#endif
  }
}








>
>
>
>









>
>
>
>
|
<
>

<
>
>
>
>
>







793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817

818
819

820
821
822
823
824
825
826
827
828
829
830
831
*/
void version_cmd(void){
  fossil_print("This is fossil version " RELEASE_VERSION " "
               MANIFEST_VERSION " " MANIFEST_DATE " UTC\n");
  if(!find_option("verbose","v",0)){
    return;
  }else{
#if defined(FOSSIL_ENABLE_TCL)
    int rc;
    const char *zRc;
#endif
    fossil_print("Compiled on %s %s using %s (%d-bit)\n",
                 __DATE__, __TIME__, COMPILER_NAME, sizeof(void*)*8);
    fossil_print("SQLite %s %.30s\n", SQLITE_VERSION, SQLITE_SOURCE_ID);
    fossil_print("Schema version %s\n", AUX_SCHEMA);
    fossil_print("zlib %s\n", ZLIB_VERSION);
#if defined(FOSSIL_ENABLE_SSL)
    fossil_print("SSL (%s)\n", OPENSSL_VERSION_TEXT);
#endif
#if defined(FOSSIL_ENABLE_TCL)
    Th_FossilInit(0, 0);
    th_register_tcl(g.interp, &g.tcl);
    rc = Th_Eval(g.interp, 0, "tclEval {package require Tcl}", -1);
    zRc = Th_ReturnCodeName(rc, 1);
    fossil_print("TCL (Tcl %s%s%s%s)\n", zRc, zRc ? ": " : "",

      Th_GetResult(g.interp, 0),
#if defined(FOSSIL_ENABLE_TCL_STUBS)

      zRc? "" : ", loaded only when needed"
#else
      ""
#endif
    );
#endif
#if defined(FOSSIL_ENABLE_JSON)
    fossil_print("JSON (API %s)\n", FOSSIL_JSON_API_VERSION);
#endif
  }
}