Annotation 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	james	32	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