Back to index

plt-scheme  4.2.1
mzdyn.c
Go to the documentation of this file.
00001 /*
00002   MzScheme
00003   Copyright (c) 2004-2009 PLT Scheme Inc.
00004   Copyright (c) 1995 Matthew Flatt
00005   All rights reserved.
00006 
00007   Please see the full copyright in the documentation.
00008 
00009   libscheme
00010   Copyright (c) 1994 Brent Benson
00011   All rights reserved.
00012 */
00013 
00014 /* This file should be linked with any MzScheme extension dynamic
00015    object. */
00016 
00017 
00018 #include "escheme.h"
00019 #ifdef INCLUDE_WITHOUT_PATHS
00020 # include "schvers.h"
00021 #else
00022 # include "../src/schvers.h"
00023 #endif
00024 
00025 #ifdef MZ_PRECISE_GC
00026 # define PLAIN_OR_3M "@3m"
00027 #else
00028 # define PLAIN_OR_3M ""
00029 #endif
00030 
00031 #ifdef LINK_EXTENSIONS_BY_TABLE
00032 Scheme_Extension_Table *scheme_extension_table;
00033 #endif
00034 
00035 #ifdef CODEFRAGMENT_DYNAMIC_LOAD
00036 #pragma export on
00037 char *scheme_initialize_internal(
00038 #ifdef LINK_EXTENSIONS_BY_TABLE
00039                              Scheme_Extension_Table *table
00040 #endif
00041                              );
00042 #pragma export off
00043 #endif
00044 
00045 char *scheme_initialize_internal(
00046 #ifdef LINK_EXTENSIONS_BY_TABLE
00047                              Scheme_Extension_Table *table
00048 #endif
00049                              )
00050 {
00051 #ifdef LINK_EXTENSIONS_BY_TABLE
00052   scheme_extension_table = table;
00053 #endif
00054 
00055   return MZSCHEME_VERSION PLAIN_OR_3M;
00056 }