Changeset 8421 in project


Ignore:
Timestamp:
02/13/08 02:38:34 (12 years ago)
Author:
Kon Lovett
Message:

Cygwin supported (as unix).

Location:
release/3/rlimit
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/rlimit/rlimit.scm

    r4207 r8421  
    77(declare
    88  (generic)
     9  (no-procedure-checks-for-usual-bindings)
    910  (hide check-limit getlimit setlimit *setlimit) )
    1011
    11 #+windows
    12 #>
    13 #include <errno.h>
    14 typedef unsigned long rlim_t;
    15 struct rlimit {
    16         rlim_t  rlim_cur;
    17         rlim_t  rlim_max;
    18 };
    19 #define RLIM_INFINITY -1
    20 static int getrlimit (int __resource, struct rlimit *__rlp) {
    21   return -1;
    22 }
    23 static int setrlimit (int __resource, const struct rlimit *__rlp) {
    24   return -1;
    25 }
    26 <#
    27 
    28 #+unix
    29 #>
    30 #include <errno.h>
    31 #include <sys/types.h>
    32 #include <sys/resource.h>
    33 <#
     12(cond-expand
     13  [(or cygwin unix)
     14    #>
     15    #include <errno.h>
     16    #include <sys/types.h>
     17    #include <sys/resource.h>
     18    <# ]
     19  [windows
     20    #>
     21    #include <errno.h>
     22    typedef unsigned long rlim_t;
     23    struct rlimit {
     24      rlim_t    rlim_cur;
     25      rlim_t    rlim_max;
     26    };
     27    #define RLIM_INFINITY -1
     28    static int getrlimit (int __resource, struct rlimit *__rlp) {
     29      return -1;
     30    }
     31    static int setrlimit (int __resource, const struct rlimit *__rlp) {
     32      return -1;
     33    }
     34    <# ]
     35  [else] )
    3436
    3537(require-for-syntax 'srfi-13)
  • release/3/rlimit/rlimit.setup

    r5278 r8421  
    66 'rlimit
    77 '("rlimit.so")
    8  `((version 1.13)
     8 `((version 1.14)
    99   (documentation "rlimit.html")
    1010   ,@(if exp '((exports "rlimit.exports")) '()) ) )
Note: See TracChangeset for help on using the changeset viewer.