Changeset 60ec78 in git


Ignore:
Timestamp:
Sep 22, 1999, 2:03:33 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
8dc26127af42c442cadbeb459fcd945cff962dfe
Parents:
fcc8828a7bb095ce2cfa6cabeb554095b3e4aefe
Message:
*hannes: added DYN_RL support


git-svn-id: file:///usr/local/Singular/svn/trunk@3640 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/mod_raw.cc

    rfcc882 r60ec78  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: mod_raw.cc,v 1.2 1999-05-10 12:51:30 krueger Exp $ */
     4/* $Id: mod_raw.cc,v 1.3 1999-09-22 12:03:33 hannes Exp $ */
    55/*
    66 * ABSTRACT: machine depend code for dynamic modules
     
    1313
    1414#include "mod2.h"
    15 #ifdef HAVE_DYNAMIC_LOADING
     15#if defined(HAVE_DYNAMIC_LOADING) || defined(HAVE_DYN_RL)
    1616#include "mod_raw.h"
    1717
     
    2020 * SECTION ix86-linux                                                        *
    2121 *****************************************************************************/
    22 #  ifdef ix86_Linux
    23 #    include <dlfcn.h>
     22#ifdef ix86_Linux
     23#include <dlfcn.h>
    2424
    2525void *dynl_open(
     
    4444  return(dlerror());
    4545}
    46 #  endif /* ix86_Linux */
     46#endif /* ix86_Linux */
    4747
    4848/*****************************************************************************
    4949 * SECTION HPUX-9/10                                                         *
    5050 *****************************************************************************/
    51 #  if defined(HPUX_9) || defined(HPUX_10)
    52 #    include <dl.h>
     51#if defined(HPUX_9) || defined(HPUX_10)
     52#include <dl.h>
     53
    5354typedef char *((*func_ptr) ());
    5455
     
    8081{
    8182  static char errmsg[] = "shl_load failed";
    82  
     83
    8384  return errmsg;
    8485}
     
    8889 * SECTION 68k-MPW                                                           *
    8990 *****************************************************************************/
    90 #  ifdef 68k_MPW
    91 /* #    include <> */
    92 
    93 void *dynl_open(char *filename)
    94 {
    95   return(NULL);
    96 }
    97 
    98 void *dynl_sym(void *handle, char *symbol)
    99 {
    100   return(NULL);
    101 }
    102 
    103 int dynl_close (void *handle)
    104 {
    105   return(0);
    106 }
    107 
    108 const char *dynl_error()
    109 {
    110   static char errmsg[] = "support for dynamic loading not implemented";
    111  
     91#ifdef 68k_MPW
     92/* #    include <> */
     93
     94void *dynl_open(char *filename)
     95{
     96  return(NULL);
     97}
     98
     99void *dynl_sym(void *handle, char *symbol)
     100{
     101  return(NULL);
     102}
     103
     104int dynl_close (void *handle)
     105{
     106  return(0);
     107}
     108
     109const char *dynl_error()
     110{
     111  static char errmsg[] = "support for dynamic loading not implemented";
     112
    112113  return errmsg;
    113114}
     
    118119 * SECTION AIX-4                                                             *
    119120 *****************************************************************************/
    120 #  ifdef AIX_4
    121 /* #    include <> */
    122 
    123 void *dynl_open(char *filename)
    124 {
    125   return(NULL);
    126 }
    127 
    128 void *dynl_sym(void *handle, char *symbol)
    129 {
    130   return(NULL);
    131 }
    132 
    133 int dynl_close (void *handle)
    134 {
    135   return(0);
    136 }
    137 
    138 const char *dynl_error()
    139 {
    140   static char errmsg[] = "support for dynamic loading not implemented";
    141  
     121#ifdef AIX_4
     122/* #    include <> */
     123
     124void *dynl_open(char *filename)
     125{
     126  return(NULL);
     127}
     128
     129void *dynl_sym(void *handle, char *symbol)
     130{
     131  return(NULL);
     132}
     133
     134int dynl_close (void *handle)
     135{
     136  return(0);
     137}
     138
     139const char *dynl_error()
     140{
     141  static char errmsg[] = "support for dynamic loading not implemented";
     142
    142143  return errmsg;
    143144}
     
    147148 * SECTION IRIX-6                                                            *
    148149 *****************************************************************************/
    149 #  ifdef IRIX_6
    150 /* #    include <> */
    151 
    152 void *dynl_open(char *filename)
    153 {
    154   return(NULL);
    155 }
    156 
    157 void *dynl_sym(void *handle, char *symbol)
    158 {
    159   return(NULL);
    160 }
    161 
    162 int dynl_close (void *handle)
    163 {
    164   return(0);
    165 }
    166 
    167 const char *dynl_error()
    168 {
    169   static char errmsg[] = "support for dynamic loading not implemented";
    170  
     150#ifdef IRIX_6
     151/* #    include <> */
     152
     153void *dynl_open(char *filename)
     154{
     155  return(NULL);
     156}
     157
     158void *dynl_sym(void *handle, char *symbol)
     159{
     160  return(NULL);
     161}
     162
     163int dynl_close (void *handle)
     164{
     165  return(0);
     166}
     167
     168const char *dynl_error()
     169{
     170  static char errmsg[] = "support for dynamic loading not implemented";
     171
    171172  return errmsg;
    172173}
     
    176177 * SECTION Sun3OS-4                                                          *
    177178 *****************************************************************************/
    178 #  ifdef Sun3OS_4
    179 /* #    include <> */
    180 
    181 void *dynl_open(char *filename)
    182 {
    183   return(NULL);
    184 }
    185 
    186 void *dynl_sym(void *handle, char *symbol)
    187 {
    188   return(NULL);
    189 }
    190 
    191 int dynl_close (void *handle)
    192 {
    193   return(0);
    194 }
    195 
    196 const char *dynl_error()
    197 {
    198   static char errmsg[] = "support for dynamic loading not implemented";
    199  
    200   return errmsg;
    201 }
    202 #  endif /* Sun3OS_4 */
     179#ifdef Sun3OS_4
     180/* #    include <> */
     181
     182void *dynl_open(char *filename)
     183{
     184  return(NULL);
     185}
     186
     187void *dynl_sym(void *handle, char *symbol)
     188{
     189  return(NULL);
     190}
     191
     192int dynl_close (void *handle)
     193{
     194  return(0);
     195}
     196
     197const char *dynl_error()
     198{
     199  static char errmsg[] = "support for dynamic loading not implemented";
     200
     201  return errmsg;
     202}
     203#endif /* Sun3OS_4 */
    203204
    204205/*****************************************************************************
    205206 * SECTION SunOS-4/5                                                         *
    206207 *****************************************************************************/
    207 #  if defined(SunOS_4) || defined(SunOS_5)
    208 /* #    include <> */
    209 
    210 void *dynl_open(char *filename)
    211 {
    212   return(NULL);
    213 }
    214 
    215 void *dynl_sym(void *handle, char *symbol)
    216 {
    217   return(NULL);
    218 }
    219 
    220 int dynl_close (void *handle)
    221 {
    222   return(0);
    223 }
    224 
    225 const char *dynl_error()
    226 {
    227   static char errmsg[] = "support for dynamic loading not implemented";
    228  
    229   return errmsg;
    230 }
    231 #  endif /* SunOS_4 or SunOS_5 */
     208#if defined(SunOS_4) || defined(SunOS_5)
     209/* #    include <> */
     210
     211void *dynl_open(char *filename)
     212{
     213  return(NULL);
     214}
     215
     216void *dynl_sym(void *handle, char *symbol)
     217{
     218  return(NULL);
     219}
     220
     221int dynl_close (void *handle)
     222{
     223  return(0);
     224}
     225
     226const char *dynl_error()
     227{
     228  static char errmsg[] = "support for dynamic loading not implemented";
     229
     230  return errmsg;
     231}
     232#endif /* SunOS_4 or SunOS_5 */
    232233
    233234/*****************************************************************************
    234235 * SECTION ix86-win                                                          *
    235236 *****************************************************************************/
    236 #  ifdef ix86_win
    237 /* #    include <> */
    238 
    239 void *dynl_open(char *filename)
    240 {
    241   return(NULL);
    242 }
    243 
    244 void *dynl_sym(void *handle, char *symbol)
    245 {
    246   return(NULL);
    247 }
    248 
    249 int dynl_close (void *handle)
    250 {
    251   return(0);
    252 }
    253 
    254 const char *dynl_error()
    255 {
    256   static char errmsg[] = "support for dynamic loading not implemented";
    257  
    258   return errmsg;
    259 }
    260 #  endif /* ix86_win */
     237#ifdef ix86_win
     238/* #    include <> */
     239
     240void *dynl_open(char *filename)
     241{
     242  return(NULL);
     243}
     244
     245void *dynl_sym(void *handle, char *symbol)
     246{
     247  return(NULL);
     248}
     249
     250int dynl_close (void *handle)
     251{
     252  return(0);
     253}
     254
     255const char *dynl_error()
     256{
     257  static char errmsg[] = "support for dynamic loading not implemented";
     258
     259  return errmsg;
     260}
     261#endif /* ix86_win */
    261262
    262263/*****************************************************************************
    263264 * SECTION ppc-MPW                                                           *
    264265 *****************************************************************************/
    265 #  ifdef ppc_MPW
    266 /* #    include <> */
    267 
    268 void *dynl_open(char *filename)
    269 {
    270   return(NULL);
    271 }
    272 
    273 void *dynl_sym(void *handle, char *symbol)
    274 {
    275   return(NULL);
    276 }
    277 
    278 int dynl_close (void *handle)
    279 {
    280   return(0);
    281 }
    282 
    283 const char *dynl_error()
    284 {
    285   static char errmsg[] = "support for dynamic loading not implemented";
    286  
     266#ifdef ppc_MPW
     267/* #    include <> */
     268
     269void *dynl_open(char *filename)
     270{
     271  return(NULL);
     272}
     273
     274void *dynl_sym(void *handle, char *symbol)
     275{
     276  return(NULL);
     277}
     278
     279int dynl_close (void *handle)
     280{
     281  return(0);
     282}
     283
     284const char *dynl_error()
     285{
     286  static char errmsg[] = "support for dynamic loading not implemented";
    287287  return errmsg;
    288288}
Note: See TracChangeset for help on using the changeset viewer.