Changeset 60ec78 in git
- Timestamp:
- Sep 22, 1999, 2:03:33 PM (25 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 8dc26127af42c442cadbeb459fcd945cff962dfe
- Parents:
- fcc8828a7bb095ce2cfa6cabeb554095b3e4aefe
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/mod_raw.cc
rfcc882 r60ec78 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: mod_raw.cc,v 1. 2 1999-05-10 12:51:30 kruegerExp $ */4 /* $Id: mod_raw.cc,v 1.3 1999-09-22 12:03:33 hannes Exp $ */ 5 5 /* 6 6 * ABSTRACT: machine depend code for dynamic modules … … 13 13 14 14 #include "mod2.h" 15 #if def HAVE_DYNAMIC_LOADING15 #if defined(HAVE_DYNAMIC_LOADING) || defined(HAVE_DYN_RL) 16 16 #include "mod_raw.h" 17 17 … … 20 20 * SECTION ix86-linux * 21 21 *****************************************************************************/ 22 # 23 # 22 #ifdef ix86_Linux 23 #include <dlfcn.h> 24 24 25 25 void *dynl_open( … … 44 44 return(dlerror()); 45 45 } 46 # 46 #endif /* ix86_Linux */ 47 47 48 48 /***************************************************************************** 49 49 * SECTION HPUX-9/10 * 50 50 *****************************************************************************/ 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 53 54 typedef char *((*func_ptr) ()); 54 55 … … 80 81 { 81 82 static char errmsg[] = "shl_load failed"; 82 83 83 84 return errmsg; 84 85 } … … 88 89 * SECTION 68k-MPW * 89 90 *****************************************************************************/ 90 # 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 94 void *dynl_open(char *filename) 95 { 96 return(NULL); 97 } 98 99 void *dynl_sym(void *handle, char *symbol) 100 { 101 return(NULL); 102 } 103 104 int dynl_close (void *handle) 105 { 106 return(0); 107 } 108 109 const char *dynl_error() 110 { 111 static char errmsg[] = "support for dynamic loading not implemented"; 112 112 113 return errmsg; 113 114 } … … 118 119 * SECTION AIX-4 * 119 120 *****************************************************************************/ 120 # 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 124 void *dynl_open(char *filename) 125 { 126 return(NULL); 127 } 128 129 void *dynl_sym(void *handle, char *symbol) 130 { 131 return(NULL); 132 } 133 134 int dynl_close (void *handle) 135 { 136 return(0); 137 } 138 139 const char *dynl_error() 140 { 141 static char errmsg[] = "support for dynamic loading not implemented"; 142 142 143 return errmsg; 143 144 } … … 147 148 * SECTION IRIX-6 * 148 149 *****************************************************************************/ 149 # 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 153 void *dynl_open(char *filename) 154 { 155 return(NULL); 156 } 157 158 void *dynl_sym(void *handle, char *symbol) 159 { 160 return(NULL); 161 } 162 163 int dynl_close (void *handle) 164 { 165 return(0); 166 } 167 168 const char *dynl_error() 169 { 170 static char errmsg[] = "support for dynamic loading not implemented"; 171 171 172 return errmsg; 172 173 } … … 176 177 * SECTION Sun3OS-4 * 177 178 *****************************************************************************/ 178 # 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 # 179 #ifdef Sun3OS_4 180 /* # include <> */ 181 182 void *dynl_open(char *filename) 183 { 184 return(NULL); 185 } 186 187 void *dynl_sym(void *handle, char *symbol) 188 { 189 return(NULL); 190 } 191 192 int dynl_close (void *handle) 193 { 194 return(0); 195 } 196 197 const char *dynl_error() 198 { 199 static char errmsg[] = "support for dynamic loading not implemented"; 200 201 return errmsg; 202 } 203 #endif /* Sun3OS_4 */ 203 204 204 205 /***************************************************************************** 205 206 * SECTION SunOS-4/5 * 206 207 *****************************************************************************/ 207 # 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 # 208 #if defined(SunOS_4) || defined(SunOS_5) 209 /* # include <> */ 210 211 void *dynl_open(char *filename) 212 { 213 return(NULL); 214 } 215 216 void *dynl_sym(void *handle, char *symbol) 217 { 218 return(NULL); 219 } 220 221 int dynl_close (void *handle) 222 { 223 return(0); 224 } 225 226 const 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 */ 232 233 233 234 /***************************************************************************** 234 235 * SECTION ix86-win * 235 236 *****************************************************************************/ 236 # 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 # 237 #ifdef ix86_win 238 /* # include <> */ 239 240 void *dynl_open(char *filename) 241 { 242 return(NULL); 243 } 244 245 void *dynl_sym(void *handle, char *symbol) 246 { 247 return(NULL); 248 } 249 250 int dynl_close (void *handle) 251 { 252 return(0); 253 } 254 255 const char *dynl_error() 256 { 257 static char errmsg[] = "support for dynamic loading not implemented"; 258 259 return errmsg; 260 } 261 #endif /* ix86_win */ 261 262 262 263 /***************************************************************************** 263 264 * SECTION ppc-MPW * 264 265 *****************************************************************************/ 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 269 void *dynl_open(char *filename) 270 { 271 return(NULL); 272 } 273 274 void *dynl_sym(void *handle, char *symbol) 275 { 276 return(NULL); 277 } 278 279 int dynl_close (void *handle) 280 { 281 return(0); 282 } 283 284 const char *dynl_error() 285 { 286 static char errmsg[] = "support for dynamic loading not implemented"; 287 287 return errmsg; 288 288 }
Note: See TracChangeset
for help on using the changeset viewer.