Fossil

Check-in [86a8e1d923]
Login

Check-in [86a8e1d923]

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
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 86a8e1d923911c4bb356f0b5ffc9e39b6e8ce4d2
User & Date: jan.nijtmans 2013-09-12 09:06:43.557
Context
2013-10-03
14:59
Revert [b7625d8d8c], instead make sure the correct header file is included for Cygwin. ... (check-in: 19b2b2403c user: jan.nijtmans tags: trunk)
2013-09-12
09:22
Implicit function declaration on Cygwin ... (check-in: b7625d8d8c 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: 86a8e1d923 user: jan.nijtmans tags: trunk)
00:43
Fix a minor error in the mkdownload.tcl script. ... (check-in: 2d9e01e048 user: drh tags: trunk)
Changes
Unified Diff 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
  }
}
︙︙