Contents of /archive/wimplibs/Libs/1

REM > JLibraries:Libs.1
REM © James Bursa, 1997

REM JB  19 Nov 1997     created


DEF PROCLibs_Load(Dire$)
LOCAL Buff%, BuffB%, Read%

Buff% = FNHeap_Alloc(64)
IF Buff% = 0 THEN ERROR Erro_Memo%, ""
BuffB% = !Buff%

Read% = 0

 REPEAT
   IF RIGHT$(Dire$, 1) = "." THEN
    SYS"OS_GBPB", 12, LEFT$(Dire$), BuffB%, 1, Read%, 64, 0 TO ,,,, Read%
   ELSE
    SYS"OS_GBPB", 12, Dire$, BuffB%, 1, Read%, 64, 0 TO ,,,, Read%
   ENDIF
   IF (Read% <> -1) AND (BuffB%!20 = &FFB) THEN
    LIBRARY Dire$+FNWimp_GetString(BuffB% + 24)
   ENDIF
   IF (Read% <> -1) AND (BuffB%!20 = &1000) THEN
    PROCLibs_Load(Dire$+FNWimp_GetString(BuffB% + 24)+".")
   ENDIF
 UNTIL Read% = -1

PROCHeap_Free(Buff%)
ENDPROC
1	REM > JLibraries:Libs.1
2	REM © James Bursa, 1997
3
4	REM JB 19 Nov 1997 created
5
6
7	DEF PROCLibs_Load(Dire$)
8	LOCAL Buff%, BuffB%, Read%
9
10	Buff% = FNHeap_Alloc(64)
11	IF Buff% = 0 THEN ERROR Erro_Memo%, ""
12	BuffB% = !Buff%
13
14	Read% = 0
15
16	REPEAT
17	IF RIGHT$(Dire$, 1) = "." THEN
18	SYS"OS_GBPB", 12, LEFT$(Dire$), BuffB%, 1, Read%, 64, 0 TO ,,,, Read%
19	ELSE
20	SYS"OS_GBPB", 12, Dire$, BuffB%, 1, Read%, 64, 0 TO ,,,, Read%
21	ENDIF
22	IF (Read% <> -1) AND (BuffB%!20 = &FFB) THEN
23	LIBRARY Dire$+FNWimp_GetString(BuffB% + 24)
24	ENDIF
25	IF (Read% <> -1) AND (BuffB%!20 = &1000) THEN
26	PROCLibs_Load(Dire$+FNWimp_GetString(BuffB% + 24)+".")
27	ENDIF
28	UNTIL Read% = -1
29
30	PROCHeap_Free(Buff%)
31	ENDPROC