DesktopPD/Director/!Director/Menus/System/ExpPath

Home » Archimedes archive » Acorn User » AU 1998-09.adf » Features » DesktopPD/Director/!Director/Menus/System/ExpPath

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn User » AU 1998-09.adf » Features
Filename:	DesktopPD/Director/!Director/Menus/System/ExpPath
Read OK:	✔
File size:	0D83 bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Acorn User » AU 1995-10.adf » !Direct » Director/!Director/Menus/System/ExpPath
Archimedes archive » Acorn User » AU 1998-09.adf » Features » DesktopPD/Director/!Director/Menus/System/ExpPath

File contents

    1REM >Director:Menus.System.ExpPath
    2
    3REM This expands a path into a serious of menu entries
    4REM By SJM (simon@uniqway.demon.co.uk)
    5
    6REM Call with the Path variable to be expanded as the argument
    7REM eg "Dynamic:/Director:Menus.System.ExpPath C"
    8
    9REM 1.00 15/5/95 SJM Started
   10REM 1.01 23/5/95 SJM Fixed bug with Foo: path entries
   11REM 1.02 26/5/95 NCW Made it recurse in Foo:Bar entries also
   12REM                  Collapses paths as far as possible
   13
   14ON ERROR: ON ERROR OFF: ERROR ERR,REPORT$+" at "+STR$ERL
   15
   16REM set this to false if you don't want nested paths to be expanded also
   17allow_recurse=TRUE
   18
   19debug=FALSE
   20
   21XOS_Module=FNswi_number("XOS_Module")
   22Menu=FNswi_number("Director_Menu")
   23EndMenu=FNswi_number("Director_EndMenu")
   24Option=FNswi_number("Director_Option")
   25Command=FNswi_number("Director_Command")
   26Dash=FNswi_number("Director_Dash")
   27XOS_ReadVarVal=FNswi_number("XOS_ReadVarVal")
   28
   29buffer_size%=1024
   30DIM buffer% buffer_size%
   31
   32SYS"OS_GetEnv" TO A$
   33
   34PROCskippast
   35WHILERIGHT$(A$,1)=" " A$=LEFT$(A$):ENDWHILE
   36IFFNuc(LEFT$(A$,5))="-QUIT" THEN PROCskippast : PROCskippast
   37path$=A$
   38
   39title$=path$
   40IF FNreduce(path$, dir$, TRUE) THEN
   41  PROCmake_menu
   42  OSCLI"Set Director$Menu ExpandedPath"
   43ELSE
   44  path$+=dir$
   45  IF "." = RIGHT$(path$) THEN path$ = LEFT$(path$)
   46  OSCLI"Set Director$Menu Path:"+path$
   47ENDIF
   48
   49END
   50
   51DEF PROCmake_menu
   52  SYS Menu,""""+title$+""" ExpandedPath -temp"
   53  
   54  REPEAT
   55    comma%=INSTR(path$,",",1)
   56    IF comma% THEN
   57      IF comma% = 1 THEN
   58         element$=""
   59      ELSE
   60         element$=LEFT$(path$,comma%-1)
   61      ENDIF
   62      path$=MID$(path$,comma%+1)
   63    ELSE
   64      element$=path$
   65      path$=""
   66    ENDIF
   67  
   68    element$+=dir$
   69    IF element$="" THEN element$="@"
   70  
   71    recurse%=FNreduce(element$, edir$, FALSE)
   72    element$+=edir$
   73    IF allow_recurse=0 THEN recurse%=FALSE
   74  
   75    IF "." = RIGHT$(element$) THEN element$ = LEFT$(element$)
   76    IF recurse% THEN
   77      SYS Option,""""+element$+""" -sub ""Dynamic:/Director:Menus.System.ExpPath "+element$+""" -sprite small_path"
   78    ELSE
   79      SYS Option,"-path "+element$+" -up"
   80    ENDIF
   81  
   82  UNTIL path$=""
   83  
   84  SYS EndMenu
   85ENDPROC
   86
   87DEF FNreduce(RETURN path$, RETURN dir$, all_the_way%)
   88LOCAL done%,p%,q%,var$,a$,more%
   89  dir$=""
   90  more%=FALSE
   91  REPEAT
   92    IF debug THEN SYS Option,"["+path$+dir$+"] -grey"
   93    done%=TRUE
   94    p%=INSTR(path$,":")
   95    IF p% THEN
   96      var$=FNread(LEFT$(path$,p%-1)+"$Path")
   97      IF var$<>"" THEN
   98
   99        q%=INSTR(var$,",")
  100        IF q%=0 OR all_the_way% THEN
  101          a$=MID$(path$,p%+1)
  102          IF RIGHT$(a$)<>"." AND a$<>"" THEN a$+="."
  103          dir$=a$+dir$
  104          path$=var$
  105          IF RIGHT$(dir$)="." THEN dir$=LEFT$(dir$)
  106          IF q%=0 THEN done%=FALSE ELSE more%=TRUE
  107        ELSE
  108          more%=TRUE
  109        ENDIF
  110
  111      ENDIF
  112    ENDIF
  113  UNTIL done%
  114=more%
  115
  116DEF FNswi_number(name$)
  117  SYS "OS_SWINumberFromString",,name$ TO A%
  118=A%
  119
  120DEF FN0(a%)
  121s$=""
  122WHILE ?a%<>0
  123 s$+=CHR$?a%
  124 a%+=1
  125ENDWHILE
  126=s$
  127
  128
  129DEF PROCskiptospace WHILELEFT$(A$,1)<>" "ANDLENA$<>0 A$=MID$(A$,2):ENDWHILE:ENDPROC
  130DEF PROCskipspace WHILELEFT$(A$,1)=" " A$=MID$(A$,2):ENDWHILE:ENDPROC
  131DEF PROCskippast PROCskiptospace:PROCskipspace:ENDPROC
  132
  133DEF FNuc(a$)
  134LOCALZ%,z$,b$
  135FORZ%=1TOLENa$
  136z$=MID$(a$,Z%,1)
  137IFz$>="a"IFz$<="z" z$=CHR$(ASCz$-32)
  138b$+=z$:NEXT
  139=b$
  140
  141DEF FNleaf(path$)
  142leaf$=""
  143FOR I=LENpath$ TO 1 STEP -1
  144  IF "." = MID$(path$,I,1) THEN =MID$(path$,I+1)
  145NEXT
  146=path$
  147
  148DEF FNread(a$)
  149LOCAL read%,flags%
  150  ?buffer%=13
  151  SYS XOS_ReadVarVal,a$,buffer%,buffer_size%,0,3 TO ,,read%;flags%
  152  IF flags% AND 1 THEN read%=0
  153  buffer%?read%=13
  154=$buffer%

$� >Director:Menus.System.ExpPath

8� This expands a path into a serious of menu entries
(� By SJM (simon@uniqway.demon.co.uk)

@� Call with the Path variable to be expanded as the argument
3� eg "Dynamic:/Director:Menus.System.ExpPath C"

	� 1.00 15/5/95 SJM Started

7� 1.01 23/5/95 SJM Fixed bug with Foo: path entries
>� 1.02 26/5/95 NCW Made it recurse in Foo:Bar entries also
9�                  Collapses paths as far as possible


 � �: � � �: � �,�$+" at "+Þ

J� set this to false if you don't want nested paths to be expanded also
allow_recurse=�

debug=�

(XOS_Module=�swi_number("XOS_Module")
%Menu=�swi_number("Director_Menu")
+EndMenu=�swi_number("Director_EndMenu")
)Option=�swi_number("Director_Option")
+Command=�swi_number("Director_Command")
%Dash=�swi_number("Director_Dash")
0XOS_ReadVarVal=�swi_number("XOS_ReadVarVal")

buffer_size%=1024
� buffer% buffer_size%

 ș"OS_GetEnv" � A$
!
"
�skippast
#ȕ�A$,1)=" " A$=�A$):�
$0�uc(�A$,5))="-QUIT" � �skippast : �skippast
%path$=A$
&
'title$=path$
(� �reduce(path$, dir$, �) �
)  �make_menu
*'  �"Set Director$Menu ExpandedPath"
+�
,  path$+=dir$
-'  � "." = �path$) � path$ = �path$)
.&  �"Set Director$Menu Path:"+path$
/�
0
1�
2
3� �make_menu
41  ș Menu,""""+title$+""" ExpandedPath -temp"
5  
6  �
7    comma%=�path$,",",1)
8    � comma% �
9      � comma% = 1 �
:         element$=""
;      �
<&         element$=�path$,comma%-1)
=      �
>       path$=�path$,comma%+1)
?	    �
@      element$=path$
A      path$=""
B	    �
C  
D    element$+=dir$
E$    � element$="" � element$="@"
F  
G,    recurse%=�reduce(element$, edir$, �)
H    element$+=edir$
I&    � allow_recurse=0 � recurse%=�
J  
K2    � "." = �element$) � element$ = �element$)
L    � recurse% �
Mv      ș Option,""""+element$+""" -sub ""Dynamic:/Director:Menus.System.ExpPath "+element$+""" -sprite small_path"
N	    �
O,      ș Option,"-path "+element$+" -up"
P	    �
Q  
R  � path$=""
S  
T  ș EndMenu
U�
V
W,� �reduce(� path$, � dir$, all_the_way%)
X� done%,p%,q%,var$,a$,more%
Y
  dir$=""
Z
  more%=�
[  �
\4    � debug � ș Option,"["+path$+dir$+"] -grey"
]    done%=�
^    p%=�path$,":")
_    � p% �
`*      var$=�read(�path$,p%-1)+"$Path")
a      � var$<>"" �
b
c        q%=�var$,",")
d#        � q%=0 � all_the_way% �
e          a$=�path$,p%+1)
f,          � �a$)<>"." � a$<>"" � a$+="."
g          dir$=a$+dir$
h          path$=var$
i(          � �dir$)="." � dir$=�dir$)
j(          � q%=0 � done%=� � more%=�
k
        �
l          more%=�
m
        �
n
o      �
p	    �
q
  � done%
r
=more%
s
t� �swi_number(name$)
u-  ș "OS_SWINumberFromString",,name$ � A%
v=A%
w
x� �0(a%)
y	s$=""
z
ȕ ?a%<>0
{
 s$+=�?a%
|
 a%+=1
}�
~=s$

�
�5� �skiptospace ȕ�A$,1)<>" "��A$<>0 A$=�A$,2):�:�
�+� �skipspace ȕ�A$,1)=" " A$=�A$,2):�:�
�)� �skippast �skiptospace:�skipspace:�
�
�
� �uc(a$)
�
�Z%,z$,b$
�
�Z%=1��a$
�z$=�a$,Z%,1)
�!�z$>="a"�z$<="z" z$=�(�z$-32)
�b$+=z$:�
�=b$
�
�� �leaf(path$)
�leaf$=""
�� I=�path$ � 1 � -1
�(  � "." = �path$,I,1) � =�path$,I+1)
��
�
=path$
�
�� �read(a$)
�� read%,flags%
�  ?buffer%=13
�D  ș XOS_ReadVarVal,a$,buffer%,buffer_size%,0,3 � ,,read%;flags%
�  � flags% � 1 � read%=0
�  buffer%?read%=13
�
=$buffer%
�

00000000  0d 00 01 24 f4 20 3e 44  69 72 65 63 74 6f 72 3a  |...$. >Director:|
00000010  4d 65 6e 75 73 2e 53 79  73 74 65 6d 2e 45 78 70  |Menus.System.Exp|
00000020  50 61 74 68 0d 00 02 04  0d 00 03 38 f4 20 54 68  |Path.......8. Th|
00000030  69 73 20 65 78 70 61 6e  64 73 20 61 20 70 61 74  |is expands a pat|
00000040  68 20 69 6e 74 6f 20 61  20 73 65 72 69 6f 75 73  |h into a serious|
00000050  20 6f 66 20 6d 65 6e 75  20 65 6e 74 72 69 65 73  | of menu entries|
00000060  0d 00 04 28 f4 20 42 79  20 53 4a 4d 20 28 73 69  |...(. By SJM (si|
00000070  6d 6f 6e 40 75 6e 69 71  77 61 79 2e 64 65 6d 6f  |mon@uniqway.demo|
00000080  6e 2e 63 6f 2e 75 6b 29  0d 00 05 04 0d 00 06 40  |n.co.uk).......@|
00000090  f4 20 43 61 6c 6c 20 77  69 74 68 20 74 68 65 20  |. Call with the |
000000a0  50 61 74 68 20 76 61 72  69 61 62 6c 65 20 74 6f  |Path variable to|
000000b0  20 62 65 20 65 78 70 61  6e 64 65 64 20 61 73 20  | be expanded as |
000000c0  74 68 65 20 61 72 67 75  6d 65 6e 74 0d 00 07 33  |the argument...3|
000000d0  f4 20 65 67 20 22 44 79  6e 61 6d 69 63 3a 2f 44  |. eg "Dynamic:/D|
000000e0  69 72 65 63 74 6f 72 3a  4d 65 6e 75 73 2e 53 79  |irector:Menus.Sy|
000000f0  73 74 65 6d 2e 45 78 70  50 61 74 68 20 43 22 0d  |stem.ExpPath C".|
00000100  00 08 04 0d 00 09 1e f4  20 31 2e 30 30 20 31 35  |........ 1.00 15|
00000110  2f 35 2f 39 35 20 53 4a  4d 20 53 74 61 72 74 65  |/5/95 SJM Starte|
00000120  64 0d 00 0a 37 f4 20 31  2e 30 31 20 32 33 2f 35  |d...7. 1.01 23/5|
00000130  2f 39 35 20 53 4a 4d 20  46 69 78 65 64 20 62 75  |/95 SJM Fixed bu|
00000140  67 20 77 69 74 68 20 46  6f 6f 3a 20 70 61 74 68  |g with Foo: path|
00000150  20 65 6e 74 72 69 65 73  0d 00 0b 3e f4 20 31 2e  | entries...>. 1.|
00000160  30 32 20 32 36 2f 35 2f  39 35 20 4e 43 57 20 4d  |02 26/5/95 NCW M|
00000170  61 64 65 20 69 74 20 72  65 63 75 72 73 65 20 69  |ade it recurse i|
00000180  6e 20 46 6f 6f 3a 42 61  72 20 65 6e 74 72 69 65  |n Foo:Bar entrie|
00000190  73 20 61 6c 73 6f 0d 00  0c 39 f4 20 20 20 20 20  |s also...9.     |
000001a0  20 20 20 20 20 20 20 20  20 20 20 20 20 43 6f 6c  |             Col|
000001b0  6c 61 70 73 65 73 20 70  61 74 68 73 20 61 73 20  |lapses paths as |
000001c0  66 61 72 20 61 73 20 70  6f 73 73 69 62 6c 65 0d  |far as possible.|
000001d0  00 0d 04 0d 00 0e 20 ee  20 85 3a 20 ee 20 85 20  |...... . .: . . |
000001e0  87 3a 20 85 20 9f 2c f6  24 2b 22 20 61 74 20 22  |.: . .,.$+" at "|
000001f0  2b c3 9e 0d 00 0f 04 0d  00 10 4a f4 20 73 65 74  |+.........J. set|
00000200  20 74 68 69 73 20 74 6f  20 66 61 6c 73 65 20 69  | this to false i|
00000210  66 20 79 6f 75 20 64 6f  6e 27 74 20 77 61 6e 74  |f you don't want|
00000220  20 6e 65 73 74 65 64 20  70 61 74 68 73 20 74 6f  | nested paths to|
00000230  20 62 65 20 65 78 70 61  6e 64 65 64 20 61 6c 73  | be expanded als|
00000240  6f 0d 00 11 13 61 6c 6c  6f 77 5f 72 65 63 75 72  |o....allow_recur|
00000250  73 65 3d b9 0d 00 12 04  0d 00 13 0b 64 65 62 75  |se=.........debu|
00000260  67 3d a3 0d 00 14 04 0d  00 15 28 58 4f 53 5f 4d  |g=........(XOS_M|
00000270  6f 64 75 6c 65 3d a4 73  77 69 5f 6e 75 6d 62 65  |odule=.swi_numbe|
00000280  72 28 22 58 4f 53 5f 4d  6f 64 75 6c 65 22 29 0d  |r("XOS_Module").|
00000290  00 16 25 4d 65 6e 75 3d  a4 73 77 69 5f 6e 75 6d  |..%Menu=.swi_num|
000002a0  62 65 72 28 22 44 69 72  65 63 74 6f 72 5f 4d 65  |ber("Director_Me|
000002b0  6e 75 22 29 0d 00 17 2b  45 6e 64 4d 65 6e 75 3d  |nu")...+EndMenu=|
000002c0  a4 73 77 69 5f 6e 75 6d  62 65 72 28 22 44 69 72  |.swi_number("Dir|
000002d0  65 63 74 6f 72 5f 45 6e  64 4d 65 6e 75 22 29 0d  |ector_EndMenu").|
000002e0  00 18 29 4f 70 74 69 6f  6e 3d a4 73 77 69 5f 6e  |..)Option=.swi_n|
000002f0  75 6d 62 65 72 28 22 44  69 72 65 63 74 6f 72 5f  |umber("Director_|
00000300  4f 70 74 69 6f 6e 22 29  0d 00 19 2b 43 6f 6d 6d  |Option")...+Comm|
00000310  61 6e 64 3d a4 73 77 69  5f 6e 75 6d 62 65 72 28  |and=.swi_number(|
00000320  22 44 69 72 65 63 74 6f  72 5f 43 6f 6d 6d 61 6e  |"Director_Comman|
00000330  64 22 29 0d 00 1a 25 44  61 73 68 3d a4 73 77 69  |d")...%Dash=.swi|
00000340  5f 6e 75 6d 62 65 72 28  22 44 69 72 65 63 74 6f  |_number("Directo|
00000350  72 5f 44 61 73 68 22 29  0d 00 1b 30 58 4f 53 5f  |r_Dash")...0XOS_|
00000360  52 65 61 64 56 61 72 56  61 6c 3d a4 73 77 69 5f  |ReadVarVal=.swi_|
00000370  6e 75 6d 62 65 72 28 22  58 4f 53 5f 52 65 61 64  |number("XOS_Read|
00000380  56 61 72 56 61 6c 22 29  0d 00 1c 04 0d 00 1d 15  |VarVal")........|
00000390  62 75 66 66 65 72 5f 73  69 7a 65 25 3d 31 30 32  |buffer_size%=102|
000003a0  34 0d 00 1e 1a de 20 62  75 66 66 65 72 25 20 62  |4..... buffer% b|
000003b0  75 66 66 65 72 5f 73 69  7a 65 25 0d 00 1f 04 0d  |uffer_size%.....|
000003c0  00 20 16 c8 99 22 4f 53  5f 47 65 74 45 6e 76 22  |. ..."OS_GetEnv"|
000003d0  20 b8 20 41 24 0d 00 21  04 0d 00 22 0d f2 73 6b  | . A$..!..."..sk|
000003e0  69 70 70 61 73 74 0d 00  23 1a c8 95 c2 41 24 2c  |ippast..#....A$,|
000003f0  31 29 3d 22 20 22 20 41  24 3d c0 41 24 29 3a ce  |1)=" " A$=.A$):.|
00000400  0d 00 24 30 e7 a4 75 63  28 c0 41 24 2c 35 29 29  |..$0..uc(.A$,5))|
00000410  3d 22 2d 51 55 49 54 22  20 8c 20 f2 73 6b 69 70  |="-QUIT" . .skip|
00000420  70 61 73 74 20 3a 20 f2  73 6b 69 70 70 61 73 74  |past : .skippast|
00000430  0d 00 25 0c 70 61 74 68  24 3d 41 24 0d 00 26 04  |..%.path$=A$..&.|
00000440  0d 00 27 10 74 69 74 6c  65 24 3d 70 61 74 68 24  |..'.title$=path$|
00000450  0d 00 28 1f e7 20 a4 72  65 64 75 63 65 28 70 61  |..(.. .reduce(pa|
00000460  74 68 24 2c 20 64 69 72  24 2c 20 b9 29 20 8c 0d  |th$, dir$, .) ..|
00000470  00 29 10 20 20 f2 6d 61  6b 65 5f 6d 65 6e 75 0d  |.).  .make_menu.|
00000480  00 2a 27 20 20 ff 22 53  65 74 20 44 69 72 65 63  |.*'  ."Set Direc|
00000490  74 6f 72 24 4d 65 6e 75  20 45 78 70 61 6e 64 65  |tor$Menu Expande|
000004a0  64 50 61 74 68 22 0d 00  2b 05 cc 0d 00 2c 11 20  |dPath"..+....,. |
000004b0  20 70 61 74 68 24 2b 3d  64 69 72 24 0d 00 2d 27  | path$+=dir$..-'|
000004c0  20 20 e7 20 22 2e 22 20  3d 20 c2 70 61 74 68 24  |  . "." = .path$|
000004d0  29 20 8c 20 70 61 74 68  24 20 3d 20 c0 70 61 74  |) . path$ = .pat|
000004e0  68 24 29 0d 00 2e 26 20  20 ff 22 53 65 74 20 44  |h$)...&  ."Set D|
000004f0  69 72 65 63 74 6f 72 24  4d 65 6e 75 20 50 61 74  |irector$Menu Pat|
00000500  68 3a 22 2b 70 61 74 68  24 0d 00 2f 05 cd 0d 00  |h:"+path$../....|
00000510  30 04 0d 00 31 05 e0 0d  00 32 04 0d 00 33 10 dd  |0...1....2...3..|
00000520  20 f2 6d 61 6b 65 5f 6d  65 6e 75 0d 00 34 31 20  | .make_menu..41 |
00000530  20 c8 99 20 4d 65 6e 75  2c 22 22 22 22 2b 74 69  | .. Menu,""""+ti|
00000540  74 6c 65 24 2b 22 22 22  20 45 78 70 61 6e 64 65  |tle$+""" Expande|
00000550  64 50 61 74 68 20 2d 74  65 6d 70 22 0d 00 35 06  |dPath -temp"..5.|
00000560  20 20 0d 00 36 07 20 20  f5 0d 00 37 1c 20 20 20  |  ..6.  ...7.   |
00000570  20 63 6f 6d 6d 61 25 3d  a7 70 61 74 68 24 2c 22  | comma%=.path$,"|
00000580  2c 22 2c 31 29 0d 00 38  12 20 20 20 20 e7 20 63  |,",1)..8.    . c|
00000590  6f 6d 6d 61 25 20 8c 0d  00 39 18 20 20 20 20 20  |omma% ...9.     |
000005a0  20 e7 20 63 6f 6d 6d 61  25 20 3d 20 31 20 8c 0d  | . comma% = 1 ..|
000005b0  00 3a 18 20 20 20 20 20  20 20 20 20 65 6c 65 6d  |.:.         elem|
000005c0  65 6e 74 24 3d 22 22 0d  00 3b 0b 20 20 20 20 20  |ent$=""..;.     |
000005d0  20 cc 0d 00 3c 26 20 20  20 20 20 20 20 20 20 65  | ...<&         e|
000005e0  6c 65 6d 65 6e 74 24 3d  c0 70 61 74 68 24 2c 63  |lement$=.path$,c|
000005f0  6f 6d 6d 61 25 2d 31 29  0d 00 3d 0b 20 20 20 20  |omma%-1)..=.    |
00000600  20 20 cd 0d 00 3e 20 20  20 20 20 20 20 70 61 74  |  ...>       pat|
00000610  68 24 3d c1 70 61 74 68  24 2c 63 6f 6d 6d 61 25  |h$=.path$,comma%|
00000620  2b 31 29 0d 00 3f 09 20  20 20 20 cc 0d 00 40 18  |+1)..?.    ...@.|
00000630  20 20 20 20 20 20 65 6c  65 6d 65 6e 74 24 3d 70  |      element$=p|
00000640  61 74 68 24 0d 00 41 12  20 20 20 20 20 20 70 61  |ath$..A.      pa|
00000650  74 68 24 3d 22 22 0d 00  42 09 20 20 20 20 cd 0d  |th$=""..B.    ..|
00000660  00 43 06 20 20 0d 00 44  16 20 20 20 20 65 6c 65  |.C.  ..D.    ele|
00000670  6d 65 6e 74 24 2b 3d 64  69 72 24 0d 00 45 24 20  |ment$+=dir$..E$ |
00000680  20 20 20 e7 20 65 6c 65  6d 65 6e 74 24 3d 22 22  |   . element$=""|
00000690  20 8c 20 65 6c 65 6d 65  6e 74 24 3d 22 40 22 0d  | . element$="@".|
000006a0  00 46 06 20 20 0d 00 47  2c 20 20 20 20 72 65 63  |.F.  ..G,    rec|
000006b0  75 72 73 65 25 3d a4 72  65 64 75 63 65 28 65 6c  |urse%=.reduce(el|
000006c0  65 6d 65 6e 74 24 2c 20  65 64 69 72 24 2c 20 a3  |ement$, edir$, .|
000006d0  29 0d 00 48 17 20 20 20  20 65 6c 65 6d 65 6e 74  |)..H.    element|
000006e0  24 2b 3d 65 64 69 72 24  0d 00 49 26 20 20 20 20  |$+=edir$..I&    |
000006f0  e7 20 61 6c 6c 6f 77 5f  72 65 63 75 72 73 65 3d  |. allow_recurse=|
00000700  30 20 8c 20 72 65 63 75  72 73 65 25 3d a3 0d 00  |0 . recurse%=...|
00000710  4a 06 20 20 0d 00 4b 32  20 20 20 20 e7 20 22 2e  |J.  ..K2    . ".|
00000720  22 20 3d 20 c2 65 6c 65  6d 65 6e 74 24 29 20 8c  |" = .element$) .|
00000730  20 65 6c 65 6d 65 6e 74  24 20 3d 20 c0 65 6c 65  | element$ = .ele|
00000740  6d 65 6e 74 24 29 0d 00  4c 14 20 20 20 20 e7 20  |ment$)..L.    . |
00000750  72 65 63 75 72 73 65 25  20 8c 0d 00 4d 76 20 20  |recurse% ...Mv  |
00000760  20 20 20 20 c8 99 20 4f  70 74 69 6f 6e 2c 22 22  |    .. Option,""|
00000770  22 22 2b 65 6c 65 6d 65  6e 74 24 2b 22 22 22 20  |""+element$+""" |
00000780  2d 73 75 62 20 22 22 44  79 6e 61 6d 69 63 3a 2f  |-sub ""Dynamic:/|
00000790  44 69 72 65 63 74 6f 72  3a 4d 65 6e 75 73 2e 53  |Director:Menus.S|
000007a0  79 73 74 65 6d 2e 45 78  70 50 61 74 68 20 22 2b  |ystem.ExpPath "+|
000007b0  65 6c 65 6d 65 6e 74 24  2b 22 22 22 20 2d 73 70  |element$+""" -sp|
000007c0  72 69 74 65 20 73 6d 61  6c 6c 5f 70 61 74 68 22  |rite small_path"|
000007d0  0d 00 4e 09 20 20 20 20  cc 0d 00 4f 2c 20 20 20  |..N.    ...O,   |
000007e0  20 20 20 c8 99 20 4f 70  74 69 6f 6e 2c 22 2d 70  |   .. Option,"-p|
000007f0  61 74 68 20 22 2b 65 6c  65 6d 65 6e 74 24 2b 22  |ath "+element$+"|
00000800  20 2d 75 70 22 0d 00 50  09 20 20 20 20 cd 0d 00  | -up"..P.    ...|
00000810  51 06 20 20 0d 00 52 10  20 20 fd 20 70 61 74 68  |Q.  ..R.  . path|
00000820  24 3d 22 22 0d 00 53 06  20 20 0d 00 54 10 20 20  |$=""..S.  ..T.  |
00000830  c8 99 20 45 6e 64 4d 65  6e 75 0d 00 55 05 e1 0d  |.. EndMenu..U...|
00000840  00 56 04 0d 00 57 2c dd  20 a4 72 65 64 75 63 65  |.V...W,. .reduce|
00000850  28 f8 20 70 61 74 68 24  2c 20 f8 20 64 69 72 24  |(. path$, . dir$|
00000860  2c 20 61 6c 6c 5f 74 68  65 5f 77 61 79 25 29 0d  |, all_the_way%).|
00000870  00 58 1f ea 20 64 6f 6e  65 25 2c 70 25 2c 71 25  |.X.. done%,p%,q%|
00000880  2c 76 61 72 24 2c 61 24  2c 6d 6f 72 65 25 0d 00  |,var$,a$,more%..|
00000890  59 0d 20 20 64 69 72 24  3d 22 22 0d 00 5a 0d 20  |Y.  dir$=""..Z. |
000008a0  20 6d 6f 72 65 25 3d a3  0d 00 5b 07 20 20 f5 0d  | more%=...[.  ..|
000008b0  00 5c 34 20 20 20 20 e7  20 64 65 62 75 67 20 8c  |.\4    . debug .|
000008c0  20 c8 99 20 4f 70 74 69  6f 6e 2c 22 5b 22 2b 70  | .. Option,"["+p|
000008d0  61 74 68 24 2b 64 69 72  24 2b 22 5d 20 2d 67 72  |ath$+dir$+"] -gr|
000008e0  65 79 22 0d 00 5d 0f 20  20 20 20 64 6f 6e 65 25  |ey"..].    done%|
000008f0  3d b9 0d 00 5e 16 20 20  20 20 70 25 3d a7 70 61  |=...^.    p%=.pa|
00000900  74 68 24 2c 22 3a 22 29  0d 00 5f 0e 20 20 20 20  |th$,":").._.    |
00000910  e7 20 70 25 20 8c 0d 00  60 2a 20 20 20 20 20 20  |. p% ...`*      |
00000920  76 61 72 24 3d a4 72 65  61 64 28 c0 70 61 74 68  |var$=.read(.path|
00000930  24 2c 70 25 2d 31 29 2b  22 24 50 61 74 68 22 29  |$,p%-1)+"$Path")|
00000940  0d 00 61 16 20 20 20 20  20 20 e7 20 76 61 72 24  |..a.      . var$|
00000950  3c 3e 22 22 20 8c 0d 00  62 04 0d 00 63 19 20 20  |<>"" ...b...c.  |
00000960  20 20 20 20 20 20 71 25  3d a7 76 61 72 24 2c 22  |      q%=.var$,"|
00000970  2c 22 29 0d 00 64 23 20  20 20 20 20 20 20 20 e7  |,")..d#        .|
00000980  20 71 25 3d 30 20 84 20  61 6c 6c 5f 74 68 65 5f  | q%=0 . all_the_|
00000990  77 61 79 25 20 8c 0d 00  65 1d 20 20 20 20 20 20  |way% ...e.      |
000009a0  20 20 20 20 61 24 3d c1  70 61 74 68 24 2c 70 25  |    a$=.path$,p%|
000009b0  2b 31 29 0d 00 66 2c 20  20 20 20 20 20 20 20 20  |+1)..f,         |
000009c0  20 e7 20 c2 61 24 29 3c  3e 22 2e 22 20 80 20 61  | . .a$)<>"." . a|
000009d0  24 3c 3e 22 22 20 8c 20  61 24 2b 3d 22 2e 22 0d  |$<>"" . a$+=".".|
000009e0  00 67 1a 20 20 20 20 20  20 20 20 20 20 64 69 72  |.g.          dir|
000009f0  24 3d 61 24 2b 64 69 72  24 0d 00 68 18 20 20 20  |$=a$+dir$..h.   |
00000a00  20 20 20 20 20 20 20 70  61 74 68 24 3d 76 61 72  |       path$=var|
00000a10  24 0d 00 69 28 20 20 20  20 20 20 20 20 20 20 e7  |$..i(          .|
00000a20  20 c2 64 69 72 24 29 3d  22 2e 22 20 8c 20 64 69  | .dir$)="." . di|
00000a30  72 24 3d c0 64 69 72 24  29 0d 00 6a 28 20 20 20  |r$=.dir$)..j(   |
00000a40  20 20 20 20 20 20 20 e7  20 71 25 3d 30 20 8c 20  |       . q%=0 . |
00000a50  64 6f 6e 65 25 3d a3 20  8b 20 6d 6f 72 65 25 3d  |done%=. . more%=|
00000a60  b9 0d 00 6b 0d 20 20 20  20 20 20 20 20 cc 0d 00  |...k.        ...|
00000a70  6c 15 20 20 20 20 20 20  20 20 20 20 6d 6f 72 65  |l.          more|
00000a80  25 3d b9 0d 00 6d 0d 20  20 20 20 20 20 20 20 cd  |%=...m.        .|
00000a90  0d 00 6e 04 0d 00 6f 0b  20 20 20 20 20 20 cd 0d  |..n...o.      ..|
00000aa0  00 70 09 20 20 20 20 cd  0d 00 71 0d 20 20 fd 20  |.p.    ...q.  . |
00000ab0  64 6f 6e 65 25 0d 00 72  0a 3d 6d 6f 72 65 25 0d  |done%..r.=more%.|
00000ac0  00 73 04 0d 00 74 18 dd  20 a4 73 77 69 5f 6e 75  |.s...t.. .swi_nu|
00000ad0  6d 62 65 72 28 6e 61 6d  65 24 29 0d 00 75 2d 20  |mber(name$)..u- |
00000ae0  20 c8 99 20 22 4f 53 5f  53 57 49 4e 75 6d 62 65  | .. "OS_SWINumbe|
00000af0  72 46 72 6f 6d 53 74 72  69 6e 67 22 2c 2c 6e 61  |rFromString",,na|
00000b00  6d 65 24 20 b8 20 41 25  0d 00 76 07 3d 41 25 0d  |me$ . A%..v.=A%.|
00000b10  00 77 04 0d 00 78 0c dd  20 a4 30 28 61 25 29 0d  |.w...x.. .0(a%).|
00000b20  00 79 09 73 24 3d 22 22  0d 00 7a 0d c8 95 20 3f  |.y.s$=""..z... ?|
00000b30  61 25 3c 3e 30 0d 00 7b  0d 20 73 24 2b 3d bd 3f  |a%<>0..{. s$+=.?|
00000b40  61 25 0d 00 7c 0a 20 61  25 2b 3d 31 0d 00 7d 05  |a%..|. a%+=1..}.|
00000b50  ce 0d 00 7e 07 3d 73 24  0d 00 7f 04 0d 00 80 04  |...~.=s$........|
00000b60  0d 00 81 35 dd 20 f2 73  6b 69 70 74 6f 73 70 61  |...5. .skiptospa|
00000b70  63 65 20 c8 95 c0 41 24  2c 31 29 3c 3e 22 20 22  |ce ...A$,1)<>" "|
00000b80  80 a9 41 24 3c 3e 30 20  41 24 3d c1 41 24 2c 32  |..A$<>0 A$=.A$,2|
00000b90  29 3a ce 3a e1 0d 00 82  2b dd 20 f2 73 6b 69 70  |):.:....+. .skip|
00000ba0  73 70 61 63 65 20 c8 95  c0 41 24 2c 31 29 3d 22  |space ...A$,1)="|
00000bb0  20 22 20 41 24 3d c1 41  24 2c 32 29 3a ce 3a e1  | " A$=.A$,2):.:.|
00000bc0  0d 00 83 29 dd 20 f2 73  6b 69 70 70 61 73 74 20  |...). .skippast |
00000bd0  f2 73 6b 69 70 74 6f 73  70 61 63 65 3a f2 73 6b  |.skiptospace:.sk|
00000be0  69 70 73 70 61 63 65 3a  e1 0d 00 84 04 0d 00 85  |ipspace:........|
00000bf0  0d dd 20 a4 75 63 28 61  24 29 0d 00 86 0d ea 5a  |.. .uc(a$).....Z|
00000c00  25 2c 7a 24 2c 62 24 0d  00 87 0d e3 5a 25 3d 31  |%,z$,b$.....Z%=1|
00000c10  b8 a9 61 24 0d 00 88 10  7a 24 3d c1 61 24 2c 5a  |..a$....z$=.a$,Z|
00000c20  25 2c 31 29 0d 00 89 21  e7 7a 24 3e 3d 22 61 22  |%,1)...!.z$>="a"|
00000c30  e7 7a 24 3c 3d 22 7a 22  20 7a 24 3d bd 28 97 7a  |.z$<="z" z$=.(.z|
00000c40  24 2d 33 32 29 0d 00 8a  0c 62 24 2b 3d 7a 24 3a  |$-32)....b$+=z$:|
00000c50  ed 0d 00 8b 07 3d 62 24  0d 00 8c 04 0d 00 8d 12  |.....=b$........|
00000c60  dd 20 a4 6c 65 61 66 28  70 61 74 68 24 29 0d 00  |. .leaf(path$)..|
00000c70  8e 0c 6c 65 61 66 24 3d  22 22 0d 00 8f 17 e3 20  |..leaf$=""..... |
00000c80  49 3d a9 70 61 74 68 24  20 b8 20 31 20 88 20 2d  |I=.path$ . 1 . -|
00000c90  31 0d 00 90 28 20 20 e7  20 22 2e 22 20 3d 20 c1  |1...(  . "." = .|
00000ca0  70 61 74 68 24 2c 49 2c  31 29 20 8c 20 3d c1 70  |path$,I,1) . =.p|
00000cb0  61 74 68 24 2c 49 2b 31  29 0d 00 91 05 ed 0d 00  |ath$,I+1).......|
00000cc0  92 0a 3d 70 61 74 68 24  0d 00 93 04 0d 00 94 0f  |..=path$........|
00000cd0  dd 20 a4 72 65 61 64 28  61 24 29 0d 00 95 12 ea  |. .read(a$).....|
00000ce0  20 72 65 61 64 25 2c 66  6c 61 67 73 25 0d 00 96  | read%,flags%...|
00000cf0  11 20 20 3f 62 75 66 66  65 72 25 3d 31 33 0d 00  |.  ?buffer%=13..|
00000d00  97 44 20 20 c8 99 20 58  4f 53 5f 52 65 61 64 56  |.D  .. XOS_ReadV|
00000d10  61 72 56 61 6c 2c 61 24  2c 62 75 66 66 65 72 25  |arVal,a$,buffer%|
00000d20  2c 62 75 66 66 65 72 5f  73 69 7a 65 25 2c 30 2c  |,buffer_size%,0,|
00000d30  33 20 b8 20 2c 2c 72 65  61 64 25 3b 66 6c 61 67  |3 . ,,read%;flag|
00000d40  73 25 0d 00 98 1c 20 20  e7 20 66 6c 61 67 73 25  |s%....  . flags%|
00000d50  20 80 20 31 20 8c 20 72  65 61 64 25 3d 30 0d 00  | . 1 . read%=0..|
00000d60  99 16 20 20 62 75 66 66  65 72 25 3f 72 65 61 64  |..  buffer%?read|
00000d70  25 3d 31 33 0d 00 9a 0d  3d 24 62 75 66 66 65 72  |%=13....=$buffer|
00000d80  25 0d ff                                          |%..|
00000d83

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .