home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / brklyprl.lha / Emulator / pasmem.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-14  |  1.6 KB  |  81 lines
  1.  
  2. /* Copyright (C) 1988, 1989 Herve' Touati, Aquarius Project, UC Berkeley */
  3.  
  4. #include <stdio.h>
  5. #include <sys/types.h>
  6. #include <sys/time.h>
  7. #include <sys/resource.h>
  8.  
  9. extern caddr_t brk();
  10. extern caddr_t sbrk();
  11. extern getrlimit();
  12. extern setrlimit();
  13.  
  14. int test_limit(limit)
  15. int limit;
  16. {
  17.    static caddr_t bottom;
  18.  
  19.    if (bottom == NULL)        /* first call to test_limit */
  20.      bottom = sbrk(0);
  21.   return (brk(bottom + limit) == (caddr_t)(-1)) ? 0 : 1;
  22. }
  23.  
  24. int binary_search(lower, upper, precision, predicate)
  25. int lower, upper, precision, (*predicate)();
  26. {
  27.    int c;
  28.  
  29.    for(;;) {
  30.       if ((upper - lower) < precision)
  31.     return lower;
  32.       c = (lower + upper) / 2;
  33.       if ((*predicate)(c)) 
  34.     lower = c;
  35.       else
  36.     upper = c;
  37.    }
  38. }
  39.      
  40. void set_environment(size)
  41. int size;
  42. {
  43.   char buffer[80];
  44.   char *getenv();
  45.   char *value = getenv("PAS_DATA_LIMIT");
  46.   int env_size;
  47.   FILE *fp;
  48.   if (value) {
  49.     sscanf(value, "%d", &env_size);
  50.     size = env_size * 1048576;
  51.   }
  52.   fp = fopen(".pas_data_limit", "w");
  53.   fprintf(fp, "%d\n", size);
  54. }
  55.  
  56. main()
  57. {
  58.    int lower_limit, upper_limit, precision, exact_limit;
  59.    struct rlimit rl;
  60.  
  61.    if (getrlimit(RLIMIT_DATA, &rl)) return -1;
  62.    rl.rlim_cur = rl.rlim_max;
  63.    if (setrlimit(RLIMIT_DATA, &rl)) return -1;
  64. #ifdef VERBOSE
  65.    printf("%d kbytes system limit\n", rl.rlim_cur / 1000);
  66. #endif
  67.  
  68.    lower_limit = getpagesize();
  69.    precision = lower_limit / 2;
  70.    upper_limit = rl.rlim_cur;
  71.    exact_limit = binary_search(lower_limit,
  72.                    upper_limit,
  73.                    precision,
  74.                    test_limit);
  75. #ifdef VERBOSE
  76.    printf("%d kbytes available\n", exact_limit / 1000);
  77. #endif
  78.    set_environment(exact_limit); 
  79. }
  80.  
  81.