view release on metacpan or  search on metacpan

Query.xs  view on Meta::CPAN

	Be::Query::Query = 0
	Be::Query = 1
PREINIT:
        DIR *q;
	dev_t d[256];
	char buf[PATH_MAX];
	dirent *de;
	int justone = 1;
	int i;
	int32 pos;
PPCODE:
	memset(d, 0, sizeof(d));
	if (strcmp("all", volumepath)) { /* nope, it's a pathname */
	  d[0] = dev_for_path(volumepath);
	} else { /* fill up the array with all the device numbers */
	  i = 0;
	  while(0 <= (d[i++] = next_dev(&pos))) {
	 	; /* we filled the array on the previous line */
	  }
	}