UnixOperatingSystem.st
changeset 14435 fc486e748569
parent 14377 055d0bcf41ec
child 14563 466905625978
equal deleted inserted replaced
14434:82419864bb2a 14435:fc486e748569
  2303     /*
  2303     /*
  2304      * POSIX errnos - these should be defined
  2304      * POSIX errnos - these should be defined
  2305      */
  2305      */
  2306 #ifdef EPERM
  2306 #ifdef EPERM
  2307     if (sym == @symbol(EPERM)) {
  2307     if (sym == @symbol(EPERM)) {
  2308 	RETURN ( __mkSmallInteger(EPERM) );
  2308         RETURN ( __mkSmallInteger(EPERM) );
  2309     }
  2309     }
  2310 #endif
  2310 #endif
  2311 
  2311 
  2312 #ifdef ENOENT
  2312 #ifdef ENOENT
  2313     if (sym == @symbol(ENOENT)) {
  2313     /* ERROR_FILE_NOT_FOUND is originally windows, but referd to in ExternalStream>>#openError: */
  2314 	RETURN ( __mkSmallInteger(ENOENT) );
  2314     if (sym == @symbol(ENOENT) || sym == @symbol(ERROR_FILE_NOT_FOUND)) {
       
  2315         RETURN ( __mkSmallInteger(ENOENT) );
  2315     }
  2316     }
  2316 #endif
  2317 #endif
  2317 
  2318 
  2318 #ifdef ESRCH
  2319 #ifdef ESRCH
  2319     if (sym == @symbol(ESRCH)) {
  2320     if (sym == @symbol(ESRCH)) {
  2320 	RETURN ( __mkSmallInteger(ESRCH) );
  2321         RETURN ( __mkSmallInteger(ESRCH) );
  2321     }
  2322     }
  2322 #endif
  2323 #endif
  2323 
  2324 
  2324 #ifdef EINTR
  2325 #ifdef EINTR
  2325     if (sym == @symbol(EINTR)) {
  2326     if (sym == @symbol(EINTR)) {
  2326 	RETURN ( __mkSmallInteger(EINTR) );
  2327         RETURN ( __mkSmallInteger(EINTR) );
  2327     }
  2328     }
  2328 #endif
  2329 #endif
  2329 
  2330 
  2330 #ifdef EIO
  2331 #ifdef EIO
  2331     if (sym == @symbol(EIO)) {
  2332     if (sym == @symbol(EIO)) {
  2332 	RETURN ( __mkSmallInteger(EIO) );
  2333         RETURN ( __mkSmallInteger(EIO) );
  2333     }
  2334     }
  2334 #endif
  2335 #endif
  2335 
  2336 
  2336 #ifdef ENXIO
  2337 #ifdef ENXIO
  2337     if (sym == @symbol(ENXIO)) {
  2338     if (sym == @symbol(ENXIO)) {
  2338 	RETURN ( __mkSmallInteger(ENXIO) );
  2339         RETURN ( __mkSmallInteger(ENXIO) );
  2339     }
  2340     }
  2340 #endif
  2341 #endif
  2341 
  2342 
  2342 #ifdef E2BIG
  2343 #ifdef E2BIG
  2343     if (sym == @symbol(E2BIG)) {
  2344     if (sym == @symbol(E2BIG)) {
  2344 	RETURN ( __mkSmallInteger(E2BIG) );
  2345         RETURN ( __mkSmallInteger(E2BIG) );
  2345     }
  2346     }
  2346 #endif
  2347 #endif
  2347 
  2348 
  2348 #ifdef ENOEXEC
  2349 #ifdef ENOEXEC
  2349     if (sym == @symbol(ENOEXEC)) {
  2350     if (sym == @symbol(ENOEXEC)) {
  2350 	RETURN ( __mkSmallInteger(ENOEXEC) );
  2351         RETURN ( __mkSmallInteger(ENOEXEC) );
  2351     }
  2352     }
  2352 #endif
  2353 #endif
  2353 
  2354 
  2354 #ifdef EBADF
  2355 #ifdef EBADF
  2355     if (sym == @symbol(EBADF)) {
  2356     if (sym == @symbol(EBADF)) {
  2356 	RETURN ( __mkSmallInteger(EBADF) );
  2357         RETURN ( __mkSmallInteger(EBADF) );
  2357     }
  2358     }
  2358 #endif
  2359 #endif
  2359 
  2360 
  2360 #ifdef ECHILD
  2361 #ifdef ECHILD
  2361     if (sym == @symbol(ECHILD)) {
  2362     if (sym == @symbol(ECHILD)) {
  2362 	RETURN ( __mkSmallInteger(ECHILD) );
  2363         RETURN ( __mkSmallInteger(ECHILD) );
  2363     }
  2364     }
  2364 #endif
  2365 #endif
  2365 
  2366 
  2366 #if defined(EAGAIN)
  2367 #if defined(EAGAIN)
  2367     if (sym == @symbol(EAGAIN)) {
  2368     if (sym == @symbol(EAGAIN)) {
  2368 	RETURN ( __mkSmallInteger(EAGAIN) );
  2369         RETURN ( __mkSmallInteger(EAGAIN) );
  2369     }
  2370     }
  2370 #endif
  2371 #endif
  2371 
  2372 
  2372 #ifdef ENOMEM
  2373 #ifdef ENOMEM
  2373     if (sym == @symbol(ENOMEM)) {
  2374     if (sym == @symbol(ENOMEM)) {
  2374 	RETURN ( __mkSmallInteger(ENOMEM) );
  2375         RETURN ( __mkSmallInteger(ENOMEM) );
  2375     }
  2376     }
  2376 #endif
  2377 #endif
  2377 
  2378 
  2378 #ifdef EACCES
  2379 #ifdef EACCES
  2379     if (sym == @symbol(EACCES)) {
  2380     if (sym == @symbol(EACCES)) {
  2380 	RETURN ( __mkSmallInteger(EACCES) );
  2381         RETURN ( __mkSmallInteger(EACCES) );
  2381     }
  2382     }
  2382 #endif
  2383 #endif
  2383 
  2384 
  2384 #ifdef EFAULT
  2385 #ifdef EFAULT
  2385     if (sym == @symbol(EFAULT)) {
  2386     if (sym == @symbol(EFAULT)) {
  2386 	RETURN ( __mkSmallInteger(EFAULT) );
  2387         RETURN ( __mkSmallInteger(EFAULT) );
  2387     }
  2388     }
  2388 #endif
  2389 #endif
  2389 
  2390 
  2390 #ifdef EBUSY
  2391 #ifdef EBUSY
  2391     if (sym == @symbol(EBUSY)) {
  2392     if (sym == @symbol(EBUSY)) {
  2392 	RETURN ( __mkSmallInteger(EBUSY) );
  2393         RETURN ( __mkSmallInteger(EBUSY) );
  2393     }
  2394     }
  2394 #endif
  2395 #endif
  2395 
  2396 
  2396 #ifdef EXDEV
  2397 #ifdef EXDEV
  2397     if (sym == @symbol(EXDEV)) {
  2398     if (sym == @symbol(EXDEV)) {
  2398 	RETURN ( __mkSmallInteger(EXDEV) );
  2399         RETURN ( __mkSmallInteger(EXDEV) );
  2399     }
  2400     }
  2400 #endif
  2401 #endif
  2401 
  2402 
  2402 #ifdef ENODEV
  2403 #ifdef ENODEV
  2403     if (sym == @symbol(ENODEV)) {
  2404     if (sym == @symbol(ENODEV)) {
  2404 	RETURN ( __mkSmallInteger(ENODEV) );
  2405         RETURN ( __mkSmallInteger(ENODEV) );
  2405     }
  2406     }
  2406 #endif
  2407 #endif
  2407 
  2408 
  2408 #ifdef ENOTDIR
  2409 #ifdef ENOTDIR
  2409     if (sym == @symbol(ENOTDIR)) {
  2410     if (sym == @symbol(ENOTDIR)) {
  2410 	RETURN ( __mkSmallInteger(ENOTDIR) );
  2411         RETURN ( __mkSmallInteger(ENOTDIR) );
  2411     }
  2412     }
  2412 #endif
  2413 #endif
  2413 
  2414 
  2414 #ifdef EISDIR
  2415 #ifdef EISDIR
  2415     if (sym == @symbol(EISDIR)) {
  2416     if (sym == @symbol(EISDIR)) {
  2416 	RETURN ( __mkSmallInteger(EISDIR) );
  2417         RETURN ( __mkSmallInteger(EISDIR) );
  2417     }
  2418     }
  2418 #endif
  2419 #endif
  2419 
  2420 
  2420 #ifdef EINVAL
  2421 #ifdef EINVAL
  2421     if (sym == @symbol(EINVAL)) {
  2422     if (sym == @symbol(EINVAL)) {
  2422 	RETURN ( __mkSmallInteger(EINVAL) );
  2423         RETURN ( __mkSmallInteger(EINVAL) );
  2423     }
  2424     }
  2424 #endif
  2425 #endif
  2425 
  2426 
  2426 #ifdef ENFILE
  2427 #ifdef ENFILE
  2427     if (sym == @symbol(ENFILE)) {
  2428     if (sym == @symbol(ENFILE)) {
  2428 	RETURN ( __mkSmallInteger(ENFILE) );
  2429         RETURN ( __mkSmallInteger(ENFILE) );
  2429     }
  2430     }
  2430 #endif
  2431 #endif
  2431 
  2432 
  2432 #ifdef EMFILE
  2433 #ifdef EMFILE
  2433     if (sym == @symbol(EMFILE)) {
  2434     if (sym == @symbol(EMFILE)) {
  2434 	RETURN ( __mkSmallInteger(EMFILE) );
  2435         RETURN ( __mkSmallInteger(EMFILE) );
  2435     }
  2436     }
  2436 #endif
  2437 #endif
  2437 
  2438 
  2438 #ifdef ENOTTY
  2439 #ifdef ENOTTY
  2439     if (sym == @symbol(ENOTTY)) {
  2440     if (sym == @symbol(ENOTTY)) {
  2440 	RETURN ( __mkSmallInteger(ENOTTY) );
  2441         RETURN ( __mkSmallInteger(ENOTTY) );
  2441     }
  2442     }
  2442 #endif
  2443 #endif
  2443 
  2444 
  2444 #ifdef EFBIG
  2445 #ifdef EFBIG
  2445     if (sym == @symbol(EFBIG)) {
  2446     if (sym == @symbol(EFBIG)) {
  2446 	RETURN ( __mkSmallInteger(EFBIG) );
  2447         RETURN ( __mkSmallInteger(EFBIG) );
  2447     }
  2448     }
  2448 #endif
  2449 #endif
  2449 
  2450 
  2450 #ifdef ENOSPC
  2451 #ifdef ENOSPC
  2451     if (sym == @symbol(ENOSPC)) {
  2452     if (sym == @symbol(ENOSPC)) {
  2452 	RETURN ( __mkSmallInteger(ENOSPC) );
  2453         RETURN ( __mkSmallInteger(ENOSPC) );
  2453     }
  2454     }
  2454 #endif
  2455 #endif
  2455 
  2456 
  2456 #ifdef ESPIPE
  2457 #ifdef ESPIPE
  2457     if (sym == @symbol(ESPIPE)) {
  2458     if (sym == @symbol(ESPIPE)) {
  2458 	RETURN ( __mkSmallInteger(ESPIPE) );
  2459         RETURN ( __mkSmallInteger(ESPIPE) );
  2459     }
  2460     }
  2460 #endif
  2461 #endif
  2461 
  2462 
  2462 #ifdef EROFS
  2463 #ifdef EROFS
  2463     if (sym == @symbol(EROFS)) {
  2464     if (sym == @symbol(EROFS)) {
  2464 	RETURN ( __mkSmallInteger(EROFS) );
  2465         RETURN ( __mkSmallInteger(EROFS) );
  2465     }
  2466     }
  2466 #endif
  2467 #endif
  2467 
  2468 
  2468 #ifdef EMLINK
  2469 #ifdef EMLINK
  2469     if (sym == @symbol(EMLINK)) {
  2470     if (sym == @symbol(EMLINK)) {
  2470 	RETURN ( __mkSmallInteger(EMLINK) );
  2471         RETURN ( __mkSmallInteger(EMLINK) );
  2471     }
  2472     }
  2472 #endif
  2473 #endif
  2473 
  2474 
  2474 #ifdef EPIPE
  2475 #ifdef EPIPE
  2475     if (sym == @symbol(EPIPE)) {
  2476     if (sym == @symbol(EPIPE)) {
  2476 	RETURN ( __mkSmallInteger(EPIPE) );
  2477         RETURN ( __mkSmallInteger(EPIPE) );
  2477     }
  2478     }
  2478 #endif
  2479 #endif
  2479 
  2480 
  2480 #ifdef EDOM
  2481 #ifdef EDOM
  2481     if (sym == @symbol(EDOM)) {
  2482     if (sym == @symbol(EDOM)) {
  2482 	RETURN ( __mkSmallInteger(EDOM) );
  2483         RETURN ( __mkSmallInteger(EDOM) );
  2483     }
  2484     }
  2484 #endif
  2485 #endif
  2485 
  2486 
  2486 #ifdef ERANGE
  2487 #ifdef ERANGE
  2487     if (sym == @symbol(ERANGE)) {
  2488     if (sym == @symbol(ERANGE)) {
  2488 	RETURN ( __mkSmallInteger(ERANGE) );
  2489         RETURN ( __mkSmallInteger(ERANGE) );
  2489     }
  2490     }
  2490 #endif
  2491 #endif
  2491 
  2492 
  2492 #ifdef EDEADLK
  2493 #ifdef EDEADLK
  2493     if (sym == @symbol(EDEADLK)) {
  2494     if (sym == @symbol(EDEADLK)) {
  2494 	RETURN ( __mkSmallInteger(EDEADLK) );
  2495         RETURN ( __mkSmallInteger(EDEADLK) );
  2495     }
  2496     }
  2496 #endif
  2497 #endif
  2497 
  2498 
  2498 #ifdef ENAMETOOLONG
  2499 #ifdef ENAMETOOLONG
  2499     if (sym == @symbol(ENAMETOOLONG)) {
  2500     if (sym == @symbol(ENAMETOOLONG)) {
  2500 	RETURN ( __mkSmallInteger(ENAMETOOLONG) );
  2501         RETURN ( __mkSmallInteger(ENAMETOOLONG) );
  2501     }
  2502     }
  2502 #endif
  2503 #endif
  2503 
  2504 
  2504 #ifdef ENOLCK
  2505 #ifdef ENOLCK
  2505     if (sym == @symbol(ENOLCK)) {
  2506     if (sym == @symbol(ENOLCK)) {
  2506 	RETURN ( __mkSmallInteger(ENOLCK) );
  2507         RETURN ( __mkSmallInteger(ENOLCK) );
  2507     }
  2508     }
  2508 #endif
  2509 #endif
  2509 
  2510 
  2510 #ifdef ENOSYS
  2511 #ifdef ENOSYS
  2511     if (sym == @symbol(ENOSYS)) {
  2512     if (sym == @symbol(ENOSYS)) {
  2512 	RETURN ( __mkSmallInteger(ENOSYS) );
  2513         RETURN ( __mkSmallInteger(ENOSYS) );
  2513     }
  2514     }
  2514 #endif
  2515 #endif
  2515 
  2516 
  2516 #ifdef ENOTEMPTY
  2517 #ifdef ENOTEMPTY
  2517     if (sym == @symbol(ENOTEMPTY)) {
  2518     if (sym == @symbol(ENOTEMPTY)) {
  2518 	RETURN ( __mkSmallInteger(ENOTEMPTY) );
  2519         RETURN ( __mkSmallInteger(ENOTEMPTY) );
  2519     }
  2520     }
  2520 #endif
  2521 #endif
  2521 
  2522 
  2522 #ifdef EEXIST
  2523 #ifdef EEXIST
  2523     if (sym == @symbol(EEXIST)) {
  2524     if (sym == @symbol(EEXIST)) {
  2524 	RETURN ( __mkSmallInteger(EEXIST) );
  2525         RETURN ( __mkSmallInteger(EEXIST) );
  2525     }
  2526     }
  2526 #endif
  2527 #endif
  2527 
  2528 
  2528 #ifdef EILSEQ
  2529 #ifdef EILSEQ
  2529     if (sym == @symbol(EILSEQ)) {
  2530     if (sym == @symbol(EILSEQ)) {
  2530 	RETURN ( __mkSmallInteger(EILSEQ) );
  2531         RETURN ( __mkSmallInteger(EILSEQ) );
  2531     }
  2532     }
  2532 #endif
  2533 #endif
  2533 
  2534 
  2534     /*
  2535     /*
  2535      * XPG3 errnos - defined on most systems
  2536      * XPG3 errnos - defined on most systems
  2536      */
  2537      */
  2537 #ifdef ENOTBLK
  2538 #ifdef ENOTBLK
  2538     if (sym == @symbol(ENOTBLK)) {
  2539     if (sym == @symbol(ENOTBLK)) {
  2539 	RETURN ( __mkSmallInteger(ENOTBLK) );
  2540         RETURN ( __mkSmallInteger(ENOTBLK) );
  2540     }
  2541     }
  2541 #endif
  2542 #endif
  2542 
  2543 
  2543 #ifdef ETXTBSY
  2544 #ifdef ETXTBSY
  2544     if (sym == @symbol(ETXTBSY)) {
  2545     if (sym == @symbol(ETXTBSY)) {
  2545 	RETURN ( __mkSmallInteger(ETXTBSY) );
  2546         RETURN ( __mkSmallInteger(ETXTBSY) );
  2546     }
  2547     }
  2547 #endif
  2548 #endif
  2548 
  2549 
  2549     /*
  2550     /*
  2550      * some others
  2551      * some others
  2551      */
  2552      */
  2552 #ifdef EWOULDBLOCK
  2553 #ifdef EWOULDBLOCK
  2553     if (sym == @symbol(EWOULDBLOCK)) {
  2554     if (sym == @symbol(EWOULDBLOCK)) {
  2554 	RETURN ( __mkSmallInteger(EWOULDBLOCK) );
  2555         RETURN ( __mkSmallInteger(EWOULDBLOCK) );
  2555     }
  2556     }
  2556 #endif
  2557 #endif
  2557 
  2558 
  2558 #ifdef EOVERFLOW
  2559 #ifdef EOVERFLOW
  2559     if (sym == @symbol(EOVERFLOW)) {
  2560     if (sym == @symbol(EOVERFLOW)) {
  2560 	RETURN ( __mkSmallInteger(EOVERFLOW) );
  2561         RETURN ( __mkSmallInteger(EOVERFLOW) );
  2561     }
  2562     }
  2562 #endif
  2563 #endif
  2563 
  2564 
  2564 #ifdef ENOMSG
  2565 #ifdef ENOMSG
  2565     if (sym == @symbol(ENOMSG)) {
  2566     if (sym == @symbol(ENOMSG)) {
  2566 	RETURN ( __mkSmallInteger(ENOMSG) );
  2567         RETURN ( __mkSmallInteger(ENOMSG) );
  2567     }
  2568     }
  2568 #endif
  2569 #endif
  2569 
  2570 
  2570 #ifdef ELOOP
  2571 #ifdef ELOOP
  2571     if (sym == @symbol(ELOOP)) {
  2572     if (sym == @symbol(ELOOP)) {
  2572 	RETURN ( __mkSmallInteger(ELOOP) );
  2573         RETURN ( __mkSmallInteger(ELOOP) );
  2573     }
  2574     }
  2574 #endif
  2575 #endif
  2575 
  2576 
  2576     /*
  2577     /*
  2577      * some stream errors
  2578      * some stream errors
  2578      */
  2579      */
  2579 #ifdef ETIME
  2580 #ifdef ETIME
  2580     if (sym == @symbol(ETIME)) {
  2581     if (sym == @symbol(ETIME)) {
  2581 	RETURN ( __mkSmallInteger(ETIME) );
  2582         RETURN ( __mkSmallInteger(ETIME) );
  2582     }
  2583     }
  2583 #endif
  2584 #endif
  2584 
  2585 
  2585 #ifdef ENOSR
  2586 #ifdef ENOSR
  2586     if (sym == @symbol(ENOSR)) {
  2587     if (sym == @symbol(ENOSR)) {
  2587 	RETURN ( __mkSmallInteger(ENOSR) );
  2588         RETURN ( __mkSmallInteger(ENOSR) );
  2588     }
  2589     }
  2589 #endif
  2590 #endif
  2590 
  2591 
  2591 #ifdef ENOSTR
  2592 #ifdef ENOSTR
  2592     if (sym == @symbol(ENOSTR)) {
  2593     if (sym == @symbol(ENOSTR)) {
  2593 	RETURN ( __mkSmallInteger(ENOSTR) );
  2594         RETURN ( __mkSmallInteger(ENOSTR) );
  2594     }
  2595     }
  2595 #endif
  2596 #endif
  2596 
  2597 
  2597 #ifdef ECOMM
  2598 #ifdef ECOMM
  2598     if (sym == @symbol(ECOMM)) {
  2599     if (sym == @symbol(ECOMM)) {
  2599 	RETURN ( __mkSmallInteger(ECOMM) );
  2600         RETURN ( __mkSmallInteger(ECOMM) );
  2600     }
  2601     }
  2601 #endif
  2602 #endif
  2602 
  2603 
  2603 #ifdef EPROTO
  2604 #ifdef EPROTO
  2604     if (sym == @symbol(EPROTO)) {
  2605     if (sym == @symbol(EPROTO)) {
  2605 	RETURN ( __mkSmallInteger(EPROTO) );
  2606         RETURN ( __mkSmallInteger(EPROTO) );
  2606     }
  2607     }
  2607 #endif
  2608 #endif
  2608 
  2609 
  2609     /*
  2610     /*
  2610      * nfs errors
  2611      * nfs errors
  2611      */
  2612      */
  2612 #ifdef ESTALE
  2613 #ifdef ESTALE
  2613     if (sym == @symbol(ESTALE)) {
  2614     if (sym == @symbol(ESTALE)) {
  2614 	RETURN ( __mkSmallInteger(ESTALE) );
  2615         RETURN ( __mkSmallInteger(ESTALE) );
  2615     }
  2616     }
  2616 #endif
  2617 #endif
  2617 
  2618 
  2618 #ifdef EREMOTE
  2619 #ifdef EREMOTE
  2619     if (sym == @symbol(EREMOTE)) {
  2620     if (sym == @symbol(EREMOTE)) {
  2620 	RETURN ( __mkSmallInteger(EREMOTE) );
  2621         RETURN ( __mkSmallInteger(EREMOTE) );
  2621     }
  2622     }
  2622 #endif
  2623 #endif
  2623 
  2624 
  2624     /*
  2625     /*
  2625      * some networking errors
  2626      * some networking errors
  2626      */
  2627      */
  2627 #ifdef EINPROGRESS
  2628 #ifdef EINPROGRESS
  2628     if (sym == @symbol(EINPROGRESS)) {
  2629     if (sym == @symbol(EINPROGRESS)) {
  2629 	RETURN ( __mkSmallInteger(EINPROGRESS) );
  2630         RETURN ( __mkSmallInteger(EINPROGRESS) );
  2630     }
  2631     }
  2631 #endif
  2632 #endif
  2632 
  2633 
  2633 #ifdef EALREADY
  2634 #ifdef EALREADY
  2634     if (sym == @symbol(EALREADY)) {
  2635     if (sym == @symbol(EALREADY)) {
  2635 	RETURN ( __mkSmallInteger(EALREADY) );
  2636         RETURN ( __mkSmallInteger(EALREADY) );
  2636     }
  2637     }
  2637 #endif
  2638 #endif
  2638 
  2639 
  2639 #ifdef ENOTSOCK
  2640 #ifdef ENOTSOCK
  2640     if (sym == @symbol(ENOTSOCK)) {
  2641     if (sym == @symbol(ENOTSOCK)) {
  2641 	RETURN ( __mkSmallInteger(ENOTSOCK) );
  2642         RETURN ( __mkSmallInteger(ENOTSOCK) );
  2642     }
  2643     }
  2643 #endif
  2644 #endif
  2644 
  2645 
  2645 #ifdef EDESTADDRREQ
  2646 #ifdef EDESTADDRREQ
  2646     if (sym == @symbol(EDESTADDRREQ)) {
  2647     if (sym == @symbol(EDESTADDRREQ)) {
  2647 	RETURN ( __mkSmallInteger(EDESTADDRREQ) );
  2648         RETURN ( __mkSmallInteger(EDESTADDRREQ) );
  2648     }
  2649     }
  2649 #endif
  2650 #endif
  2650 
  2651 
  2651 #ifdef EMSGSIZE
  2652 #ifdef EMSGSIZE
  2652     if (sym == @symbol(EMSGSIZE)) {
  2653     if (sym == @symbol(EMSGSIZE)) {
  2653 	RETURN ( __mkSmallInteger(EMSGSIZE) );
  2654         RETURN ( __mkSmallInteger(EMSGSIZE) );
  2654     }
  2655     }
  2655 #endif
  2656 #endif
  2656 
  2657 
  2657 #ifdef EPROTOTYPE
  2658 #ifdef EPROTOTYPE
  2658     if (sym == @symbol(EPROTOTYPE)) {
  2659     if (sym == @symbol(EPROTOTYPE)) {
  2659 	RETURN ( __mkSmallInteger(EPROTOTYPE) );
  2660         RETURN ( __mkSmallInteger(EPROTOTYPE) );
  2660     }
  2661     }
  2661 #endif
  2662 #endif
  2662 
  2663 
  2663 #ifdef ENOPROTOOPT
  2664 #ifdef ENOPROTOOPT
  2664     if (sym == @symbol(ENOPROTOOPT)) {
  2665     if (sym == @symbol(ENOPROTOOPT)) {
  2665 	RETURN ( __mkSmallInteger(ENOPROTOOPT) );
  2666         RETURN ( __mkSmallInteger(ENOPROTOOPT) );
  2666     }
  2667     }
  2667 #endif
  2668 #endif
  2668 
  2669 
  2669 #ifdef EPROTONOSUPPORT
  2670 #ifdef EPROTONOSUPPORT
  2670     if (sym == @symbol(EPROTONOSUPPORT)) {
  2671     if (sym == @symbol(EPROTONOSUPPORT)) {
  2671 	RETURN ( __mkSmallInteger(EPROTONOSUPPORT) );
  2672         RETURN ( __mkSmallInteger(EPROTONOSUPPORT) );
  2672     }
  2673     }
  2673 #endif
  2674 #endif
  2674 
  2675 
  2675 #ifdef ESOCKTNOSUPPORT
  2676 #ifdef ESOCKTNOSUPPORT
  2676     if (sym == @symbol(ESOCKTNOSUPPORT)) {
  2677     if (sym == @symbol(ESOCKTNOSUPPORT)) {
  2677 	RETURN ( __mkSmallInteger(ESOCKTNOSUPPORT) );
  2678         RETURN ( __mkSmallInteger(ESOCKTNOSUPPORT) );
  2678     }
  2679     }
  2679 #endif
  2680 #endif
  2680 
  2681 
  2681 #ifdef EOPNOTSUPP
  2682 #ifdef EOPNOTSUPP
  2682     if (sym == @symbol(EOPNOTSUPP)) {
  2683     if (sym == @symbol(EOPNOTSUPP)) {
  2683 	RETURN ( __mkSmallInteger(EOPNOTSUPP) );
  2684         RETURN ( __mkSmallInteger(EOPNOTSUPP) );
  2684     }
  2685     }
  2685 #endif
  2686 #endif
  2686 
  2687 
  2687 #ifdef EPFNOSUPPORT
  2688 #ifdef EPFNOSUPPORT
  2688     if (sym == @symbol(EPFNOSUPPORT)) {
  2689     if (sym == @symbol(EPFNOSUPPORT)) {
  2689 	RETURN ( __mkSmallInteger(EPFNOSUPPORT) );
  2690         RETURN ( __mkSmallInteger(EPFNOSUPPORT) );
  2690     }
  2691     }
  2691 #endif
  2692 #endif
  2692 
  2693 
  2693 #ifdef EAFNOSUPPORT
  2694 #ifdef EAFNOSUPPORT
  2694     if (sym == @symbol(EAFNOSUPPORT)) {
  2695     if (sym == @symbol(EAFNOSUPPORT)) {
  2695 	RETURN ( __mkSmallInteger(EAFNOSUPPORT) );
  2696         RETURN ( __mkSmallInteger(EAFNOSUPPORT) );
  2696     }
  2697     }
  2697 #endif
  2698 #endif
  2698 
  2699 
  2699 #ifdef EADDRINUSE
  2700 #ifdef EADDRINUSE
  2700     if (sym == @symbol(EADDRINUSE)) {
  2701     if (sym == @symbol(EADDRINUSE)) {
  2701 	RETURN ( __mkSmallInteger(EADDRINUSE) );
  2702         RETURN ( __mkSmallInteger(EADDRINUSE) );
  2702     }
  2703     }
  2703 #endif
  2704 #endif
  2704 
  2705 
  2705 #ifdef EADDRNOTAVAIL
  2706 #ifdef EADDRNOTAVAIL
  2706     if (sym == @symbol(EADDRNOTAVAIL)) {
  2707     if (sym == @symbol(EADDRNOTAVAIL)) {
  2707 	RETURN ( __mkSmallInteger(EADDRNOTAVAIL) );
  2708         RETURN ( __mkSmallInteger(EADDRNOTAVAIL) );
  2708     }
  2709     }
  2709 #endif
  2710 #endif
  2710 
  2711 
  2711 #ifdef ETIMEDOUT
  2712 #ifdef ETIMEDOUT
  2712     if (sym == @symbol(ETIMEDOUT)) {
  2713     if (sym == @symbol(ETIMEDOUT)) {
  2713 	RETURN ( __mkSmallInteger(ETIMEDOUT) );
  2714         RETURN ( __mkSmallInteger(ETIMEDOUT) );
  2714     }
  2715     }
  2715 #endif
  2716 #endif
  2716 
  2717 
  2717 #ifdef ECONNREFUSED
  2718 #ifdef ECONNREFUSED
  2718     if (sym == @symbol(ECONNREFUSED)) {
  2719     if (sym == @symbol(ECONNREFUSED)) {
  2719 	RETURN ( __mkSmallInteger(ECONNREFUSED) );
  2720         RETURN ( __mkSmallInteger(ECONNREFUSED) );
  2720     }
  2721     }
  2721 #endif
  2722 #endif
  2722 
  2723 
  2723 #ifdef ENETDOWN
  2724 #ifdef ENETDOWN
  2724     if (sym == @symbol(ENETDOWN)) {
  2725     if (sym == @symbol(ENETDOWN)) {
  2725 	RETURN ( __mkSmallInteger(ENETDOWN) );
  2726         RETURN ( __mkSmallInteger(ENETDOWN) );
  2726     }
  2727     }
  2727 #endif
  2728 #endif
  2728 
  2729 
  2729 #ifdef ENETUNREACH
  2730 #ifdef ENETUNREACH
  2730     if (sym == @symbol(ENETUNREACH)) {
  2731     if (sym == @symbol(ENETUNREACH)) {
  2731 	RETURN ( __mkSmallInteger(ENETUNREACH) );
  2732         RETURN ( __mkSmallInteger(ENETUNREACH) );
  2732     }
  2733     }
  2733 #endif
  2734 #endif
  2734 
  2735 
  2735 #ifdef ENETRESET
  2736 #ifdef ENETRESET
  2736     if (sym == @symbol(ENETRESET)) {
  2737     if (sym == @symbol(ENETRESET)) {
  2737 	RETURN ( __mkSmallInteger(ENETRESET) );
  2738         RETURN ( __mkSmallInteger(ENETRESET) );
  2738     }
  2739     }
  2739 #endif
  2740 #endif
  2740 
  2741 
  2741 #ifdef ECONNABORTED
  2742 #ifdef ECONNABORTED
  2742     if (sym == @symbol(ECONNABORTED)) {
  2743     if (sym == @symbol(ECONNABORTED)) {
  2743 	RETURN ( __mkSmallInteger(ECONNABORTED) );
  2744         RETURN ( __mkSmallInteger(ECONNABORTED) );
  2744     }
  2745     }
  2745 #endif
  2746 #endif
  2746 
  2747 
  2747 #ifdef ECONNRESET
  2748 #ifdef ECONNRESET
  2748     if (sym == @symbol(ECONNRESET)) {
  2749     if (sym == @symbol(ECONNRESET)) {
  2749 	RETURN ( __mkSmallInteger(ECONNRESET) );
  2750         RETURN ( __mkSmallInteger(ECONNRESET) );
  2750     }
  2751     }
  2751 #endif
  2752 #endif
  2752 
  2753 
  2753 #ifdef EISCONN
  2754 #ifdef EISCONN
  2754     if (sym == @symbol(EISCONN)) {
  2755     if (sym == @symbol(EISCONN)) {
  2755 	RETURN ( __mkSmallInteger(EISCONN) );
  2756         RETURN ( __mkSmallInteger(EISCONN) );
  2756     }
  2757     }
  2757 #endif
  2758 #endif
  2758 
  2759 
  2759 #ifdef ENOTCONN
  2760 #ifdef ENOTCONN
  2760     if (sym == @symbol(ENOTCONN)) {
  2761     if (sym == @symbol(ENOTCONN)) {
  2761 	RETURN ( __mkSmallInteger(ENOTCONN) );
  2762         RETURN ( __mkSmallInteger(ENOTCONN) );
  2762     }
  2763     }
  2763 #endif
  2764 #endif
  2764 
  2765 
  2765 #ifdef ESHUTDOWN
  2766 #ifdef ESHUTDOWN
  2766     if (sym == @symbol(ESHUTDOWN)) {
  2767     if (sym == @symbol(ESHUTDOWN)) {
  2767 	RETURN ( __mkSmallInteger(ESHUTDOWN) );
  2768         RETURN ( __mkSmallInteger(ESHUTDOWN) );
  2768     }
  2769     }
  2769 #endif
  2770 #endif
  2770 
  2771 
  2771 #ifdef EHOSTDOWN
  2772 #ifdef EHOSTDOWN
  2772     if (sym == @symbol(EHOSTDOWN)) {
  2773     if (sym == @symbol(EHOSTDOWN)) {
  2773 	RETURN ( __mkSmallInteger(EHOSTDOWN) );
  2774         RETURN ( __mkSmallInteger(EHOSTDOWN) );
  2774     }
  2775     }
  2775 #endif
  2776 #endif
  2776 
  2777 
  2777 #ifdef EHOSTUNREACH
  2778 #ifdef EHOSTUNREACH
  2778     if (sym == @symbol(EHOSTUNREACH)) {
  2779     if (sym == @symbol(EHOSTUNREACH)) {
  2779 	RETURN ( __mkSmallInteger(EHOSTUNREACH) );
  2780         RETURN ( __mkSmallInteger(EHOSTUNREACH) );
  2780     }
  2781     }
  2781 #endif
  2782 #endif
  2782 
  2783 
  2783 #ifdef EREMOTEIO
  2784 #ifdef EREMOTEIO
  2784     if (sym == @symbol(EREMOTEIO)) {
  2785     if (sym == @symbol(EREMOTEIO)) {
  2785 	RETURN ( __mkSmallInteger(EREMOTEIO) );
  2786         RETURN ( __mkSmallInteger(EREMOTEIO) );
  2786     }
  2787     }
  2787 #endif
  2788 #endif
  2788 #ifdef EDQUOT
  2789 #ifdef EDQUOT
  2789     if (sym == @symbol(EDQUOT)) {
  2790     if (sym == @symbol(EDQUOT)) {
  2790 	RETURN ( __mkSmallInteger(EDQUOT) );
  2791         RETURN ( __mkSmallInteger(EDQUOT) );
  2791     }
  2792     }
  2792 #endif
  2793 #endif
  2793 #ifdef ENOMEDIUM
  2794 #ifdef ENOMEDIUM
  2794     if (sym == @symbol(ENOMEDIUM)) {
  2795     if (sym == @symbol(ENOMEDIUM)) {
  2795 	RETURN ( __mkSmallInteger(ENOMEDIUM) );
  2796         RETURN ( __mkSmallInteger(ENOMEDIUM) );
  2796     }
  2797     }
  2797 #endif
  2798 #endif
  2798 #ifdef EMEDIUMTYPE
  2799 #ifdef EMEDIUMTYPE
  2799     if (sym == @symbol(EMEDIUMTYPE)) {
  2800     if (sym == @symbol(EMEDIUMTYPE)) {
  2800 	RETURN ( __mkSmallInteger(EMEDIUMTYPE) );
  2801         RETURN ( __mkSmallInteger(EMEDIUMTYPE) );
  2801     }
  2802     }
  2802 #endif
  2803 #endif
  2803 
  2804 
  2804 %}.
  2805 %}.
  2805     ^ -1
  2806     ^ -1
 13279 ! !
 13280 ! !
 13280 
 13281 
 13281 !UnixOperatingSystem class methodsFor:'documentation'!
 13282 !UnixOperatingSystem class methodsFor:'documentation'!
 13282 
 13283 
 13283 version
 13284 version
 13284     ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.286 2012-10-08 12:34:01 stefan Exp $'
 13285     ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.287 2012-10-26 09:49:17 stefan Exp $'
 13285 !
 13286 !
 13286 
 13287 
 13287 version_CVS
 13288 version_CVS
 13288     ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.286 2012-10-08 12:34:01 stefan Exp $'
 13289     ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.287 2012-10-26 09:49:17 stefan Exp $'
 13289 ! !
 13290 ! !
 13290 
 13291 
 13291 UnixOperatingSystem initialize!
 13292 UnixOperatingSystem initialize!
 13292 UnixOperatingSystem::FileDescriptorHandle initialize!
 13293 UnixOperatingSystem::FileDescriptorHandle initialize!