pegasus/src/Platforms/Vms/VMS_Crtl_Init.cpp - diff

Return to VMS_Crtl_Init.cpp CVS log

Up to [Pegasus] / pegasus / src / Platforms / Vms

Diff for /pegasus/src/Platforms/Vms/VMS_Crtl_Init.cpp between version 1.5 and 1.6

version 1.5, 2006/01/30 16:18:40

version 1.6, 2006/03/07 18:44:42

Line 28

// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

//==============================================================================

// This example of how to call lib$initialize from C++ was taken

// from the internal notes file: cxxc_bugs 11466.4

#include <unixlib.h> // decc$feature_get_index(), set_value()

#include <stdio.h> // perror()

#include <errno.h> // errno

#ifdef __cplusplus

extern "C" {

#endif

#include <unixlib.h>

#include <stdio.h>

#include <errno.h>

int decc$feature_get_index(const char *name);

typedef void (*fptr_t)(void);

int decc$feature_set_value(int index, int mode, int value);

void LIB$INITIALIZE();

// Sets current value for a feature

Line 65

Line 73

set ("DECC$EFS_CHARSET", TRUE);

set ("DECC$EFS_FILE_TIMESTAMPS", TRUE);

set ("DECC$FILENAME_UNIX_NO_VERSION", TRUE);

#if !defined FILENAME_UNIX_REPORT_FALSE

set ("DECC$FILENAME_UNIX_REPORT", TRUE);

#else

set ("DECC$FILENAME_UNIX_REPORT", FALSE);

#endif

set ("DECC$FILE_OWNER_UNIX", TRUE);

set ("DECC$FILE_PERMISSION_UNIX", TRUE);

set ("DECC$READDIR_DROPDOTNOTYPE", TRUE);

Line 74

Line 86

}

int LIB$INITIALIZE();

fptr_t x = LIB$INITIALIZE;

#pragma extern_model save

#pragma extern_model strict_refdef "LIB$INITIALIZ" nopic,con,rel,gbl,noshr,noexe,nowrt,novec,long

int spare[8] = {0};

#pragma extern_model strict_refdef "LIB$INITIALIZE" nopic,con,rel,gbl,noshr,noexe,nowrt,novec,long

#pragma extern_model strict_refdef "LIB$INITIALIZD_" gbl,noexe,nowrt,noshr,long

void (*x_set_coe)() = set_coe;

extern const fptr_t y = set_coe;

#pragma extern_model restore

#ifdef __cplusplus

} // extern "C"

#endif

Legend:

Removed from v.1.5
changed lines
	Added in v.1.6

No CVS admin address has been configured