home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / rpc / types.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  551 b   |  24 lines
  1. if (!defined &__TYPES_RPC_HEADER__) {
  2.     eval 'sub __TYPES_RPC_HEADER__ {1;}';
  3.     eval 'sub bool_t {\'int\';}';
  4.     eval 'sub enum_t {\'int\';}';
  5.     eval 'sub FALSE {(0);}';
  6.     eval 'sub TRUE {(1);}';
  7.     eval 'sub __dontcare__ {-1;}';
  8.     if (!defined &NULL) {
  9.     eval 'sub NULL {0;}';
  10.     }
  11.     eval 'sub mem_alloc {
  12.         local($bsize) = @_;
  13.         eval " &malloc($bsize)";
  14.     }';
  15.     eval 'sub mem_free {
  16.         local($ptr, $bsize) = @_;
  17.         eval " &free($ptr)";
  18.     }';
  19.     if (!defined &makedev) {
  20.     require 'sys/types.ph';
  21.     }
  22. }
  23. 1;
  24.