/* * A set of definitions for C source code control systems, to provide accurate * and definitive version information to the VM. This file identifies the * platform plugin code, which is shared between Cog and the trunk interpreter. * It is included by platforms/Cross/vm/sqSCCSVersion.h. * * Currently instantiated only for Subversion. Please add definitions for * other repositories as appropriate. */ #if SUBVERSION static char SvnRawPluginsRevisionString[] = "$Rev: 3005 $"; # define PLUGINS_REV_START (SvnRawPluginsRevisionString + 6) static char SvnRawPluginsRepositoryURL[] = "$URL: http://squeakvm.org/svn/squeak/trunk/platforms/Cross/plugins/sqPluginsSCCSVersion.h $"; # define URL_START (SvnRawPluginsRepositoryURL + 6) static char * pluginsRevisionAsString() { char *maybe_space = strchr(PLUGINS_REV_START,' '); if (maybe_space) *maybe_space = 0; return PLUGINS_REV_START; } static char * pluginsRepositoryURL() { char *maybe_sqplugins = strstr(URL_START, "/sqPlugins"); if (maybe_sqplugins) *maybe_sqplugins = 0; return URL_START; } # undef PLUGINS_REV_START # undef URL_START #else /* SUBVERSION */ static char * pluginsRevisionAsString() { return "?"; } static char * pluginsRepositoryURL() { return "unknown"; } #endif /* SUBVERSION */