+lar_archive * lar_find_archive( const char *package, const char *path, int pkg )
+{
+ uint32_t i;
+ uint32_t j;
+ uint32_t seg = 1;
+ uint32_t len = 0;
+ uint32_t pln = 0;
+ char sep = ( pkg ? '.' : '/' );
+ struct stat s;
+ LAR_FNAME(buffer);
+
+ if( path )
+ {
+ for( pln = 0; path[pln] != '\0'; pln++ )
+ if( pln >= (sizeof(buffer) - 5) )
+ LAR_DIE("Library path exceeds maximum allowed length");
+
+ memcpy(buffer, path, pln);
+ }
+
+ if( buffer[pln-1] != '/' )
+ buffer[pln++] = '/';
+
+ for( len = 0; package[len] != '\0'; len++ )
+ {
+ if( len >= (sizeof(buffer) - 5 - pln) )
+ LAR_DIE("Package name exceeds maximum allowed length");
+
+ if( package[len] == sep ) seg++;
+ }
+
+ while( seg > 0 )
+ {
+ for( i = 0, j = 1; (i < len) && (j <= seg); i++ )
+ {
+ if( package[i] == sep ) {
+ if( j < seg ) j++; else break;
+ }
+
+ buffer[pln+i] = ( package[i] == sep ) ? LAR_DIRSEP : package[i];
+ }
+
+ strcpy(&buffer[pln+i], ".lar");
+
+ if( (stat(buffer, &s) > -1) && (s.st_mode & S_IFREG) )
+ return lar_open(buffer);
+
+ seg--;
+ }
+
+ return NULL;
+}
+
+lar_member * lar_find_member( lar_archive *ar, const char *package )
+{
+ int len;
+ LAR_FNAME(buffer);
+
+ for( len = 0; package[len] != '\0'; len++ )
+ {
+ if( len >= (sizeof(buffer) - 5) )
+ LAR_DIE("Package name exceeds maximum allowed length");
+
+ buffer[len] = ( package[len] == '.' ) ? '/' : package[len];
+ }
+
+ strcpy(&buffer[len], ".lua");
+
+ return lar_open_member(ar, buffer);
+}