$� >Director:Menus.System.Modules

*� This makes a menu of all the modules

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

(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")


ș Menu,"ModulesList -temp"


module%=0
instance%=0
�
  oldinstance%=instance%
Z  ș XOS_Module,12,module%,instance% � ,module%,instance%,base%,private%,prefix%;flag%
  ok%=(flag% � 1)=0

  � ok% �
!    name$=�0(base%+base%!&10)
A    � instance%<>0 � oldinstance%<>0 � name$+="%"+�0(prefix%)
`    ș Option,""""+name$+""" -sub ""Dynamic:DirectorObey Director:Menus.System.ModulesSub"""
  �
� � ok%

ș EndMenu

"*Set Director$Menu ModulesList
 
!�
"
#� �swi_number(name$)
$-  ș "OS_SWINumberFromString",,name$ � A%
%=A%
&
'� �0(a%)
(	s$=""
)
ȕ ?a%<>0
*
 s$+=�?a%
+
 a%+=1
,�
-=s$
�

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 4d 6f 64  |Menus.System.Mod|
00000020  75 6c 65 73 0d 00 02 04  0d 00 03 2a f4 20 54 68  |ules.......*. Th|
00000030  69 73 20 6d 61 6b 65 73  20 61 20 6d 65 6e 75 20  |is makes a menu |
00000040  6f 66 20 61 6c 6c 20 74  68 65 20 6d 6f 64 75 6c  |of all the modul|
00000050  65 73 0d 00 04 04 0d 00  05 20 ee 20 85 3a 20 ee  |es....... . .: .|
00000060  20 85 20 87 3a 20 85 20  9f 2c f6 24 2b 22 20 61  | . .: . .,.$+" a|
00000070  74 20 22 2b c3 9e 0d 00  06 04 0d 00 07 28 58 4f  |t "+.........(XO|
00000080  53 5f 4d 6f 64 75 6c 65  3d a4 73 77 69 5f 6e 75  |S_Module=.swi_nu|
00000090  6d 62 65 72 28 22 58 4f  53 5f 4d 6f 64 75 6c 65  |mber("XOS_Module|
000000a0  22 29 0d 00 08 25 4d 65  6e 75 3d a4 73 77 69 5f  |")...%Menu=.swi_|
000000b0  6e 75 6d 62 65 72 28 22  44 69 72 65 63 74 6f 72  |number("Director|
000000c0  5f 4d 65 6e 75 22 29 0d  00 09 2b 45 6e 64 4d 65  |_Menu")...+EndMe|
000000d0  6e 75 3d a4 73 77 69 5f  6e 75 6d 62 65 72 28 22  |nu=.swi_number("|
000000e0  44 69 72 65 63 74 6f 72  5f 45 6e 64 4d 65 6e 75  |Director_EndMenu|
000000f0  22 29 0d 00 0a 29 4f 70  74 69 6f 6e 3d a4 73 77  |")...)Option=.sw|
00000100  69 5f 6e 75 6d 62 65 72  28 22 44 69 72 65 63 74  |i_number("Direct|
00000110  6f 72 5f 4f 70 74 69 6f  6e 22 29 0d 00 0b 2b 43  |or_Option")...+C|
00000120  6f 6d 6d 61 6e 64 3d a4  73 77 69 5f 6e 75 6d 62  |ommand=.swi_numb|
00000130  65 72 28 22 44 69 72 65  63 74 6f 72 5f 43 6f 6d  |er("Director_Com|
00000140  6d 61 6e 64 22 29 0d 00  0c 25 44 61 73 68 3d a4  |mand")...%Dash=.|
00000150  73 77 69 5f 6e 75 6d 62  65 72 28 22 44 69 72 65  |swi_number("Dire|
00000160  63 74 6f 72 5f 44 61 73  68 22 29 0d 00 0d 04 0d  |ctor_Dash").....|
00000170  00 0e 1f c8 99 20 4d 65  6e 75 2c 22 4d 6f 64 75  |..... Menu,"Modu|
00000180  6c 65 73 4c 69 73 74 20  2d 74 65 6d 70 22 0d 00  |lesList -temp"..|
00000190  0f 04 0d 00 10 0d 6d 6f  64 75 6c 65 25 3d 30 0d  |......module%=0.|
000001a0  00 11 0f 69 6e 73 74 61  6e 63 65 25 3d 30 0d 00  |...instance%=0..|
000001b0  12 05 f5 0d 00 13 1c 20  20 6f 6c 64 69 6e 73 74  |.......  oldinst|
000001c0  61 6e 63 65 25 3d 69 6e  73 74 61 6e 63 65 25 0d  |ance%=instance%.|
000001d0  00 14 5a 20 20 c8 99 20  58 4f 53 5f 4d 6f 64 75  |..Z  .. XOS_Modu|
000001e0  6c 65 2c 31 32 2c 6d 6f  64 75 6c 65 25 2c 69 6e  |le,12,module%,in|
000001f0  73 74 61 6e 63 65 25 20  b8 20 2c 6d 6f 64 75 6c  |stance% . ,modul|
00000200  65 25 2c 69 6e 73 74 61  6e 63 65 25 2c 62 61 73  |e%,instance%,bas|
00000210  65 25 2c 70 72 69 76 61  74 65 25 2c 70 72 65 66  |e%,private%,pref|
00000220  69 78 25 3b 66 6c 61 67  25 0d 00 15 17 20 20 6f  |ix%;flag%....  o|
00000230  6b 25 3d 28 66 6c 61 67  25 20 80 20 31 29 3d 30  |k%=(flag% . 1)=0|
00000240  0d 00 16 0d 20 20 e7 20  6f 6b 25 20 8c 0d 00 17  |....  . ok% ....|
00000250  21 20 20 20 20 6e 61 6d  65 24 3d a4 30 28 62 61  |!    name$=.0(ba|
00000260  73 65 25 2b 62 61 73 65  25 21 26 31 30 29 0d 00  |se%+base%!&10)..|
00000270  18 41 20 20 20 20 e7 20  69 6e 73 74 61 6e 63 65  |.A    . instance|
00000280  25 3c 3e 30 20 84 20 6f  6c 64 69 6e 73 74 61 6e  |%<>0 . oldinstan|
00000290  63 65 25 3c 3e 30 20 8c  20 6e 61 6d 65 24 2b 3d  |ce%<>0 . name$+=|
000002a0  22 25 22 2b a4 30 28 70  72 65 66 69 78 25 29 0d  |"%"+.0(prefix%).|
000002b0  00 19 60 20 20 20 20 c8  99 20 4f 70 74 69 6f 6e  |..`    .. Option|
000002c0  2c 22 22 22 22 2b 6e 61  6d 65 24 2b 22 22 22 20  |,""""+name$+""" |
000002d0  2d 73 75 62 20 22 22 44  79 6e 61 6d 69 63 3a 44  |-sub ""Dynamic:D|
000002e0  69 72 65 63 74 6f 72 4f  62 65 79 20 44 69 72 65  |irectorObey Dire|
000002f0  63 74 6f 72 3a 4d 65 6e  75 73 2e 53 79 73 74 65  |ctor:Menus.Syste|
00000300  6d 2e 4d 6f 64 75 6c 65  73 53 75 62 22 22 22 0d  |m.ModulesSub""".|
00000310  00 1a 07 20 20 cd 0d 00  1b 0b fd 20 ac 20 6f 6b  |...  ...... . ok|
00000320  25 0d 00 1c 04 0d 00 1d  0e c8 99 20 45 6e 64 4d  |%.......... EndM|
00000330  65 6e 75 0d 00 1e 04 0d  00 1f 22 2a 53 65 74 20  |enu......."*Set |
00000340  44 69 72 65 63 74 6f 72  24 4d 65 6e 75 20 4d 6f  |Director$Menu Mo|
00000350  64 75 6c 65 73 4c 69 73  74 0d 00 20 04 0d 00 21  |dulesList.. ...!|
00000360  05 e0 0d 00 22 04 0d 00  23 18 dd 20 a4 73 77 69  |...."...#.. .swi|
00000370  5f 6e 75 6d 62 65 72 28  6e 61 6d 65 24 29 0d 00  |_number(name$)..|
00000380  24 2d 20 20 c8 99 20 22  4f 53 5f 53 57 49 4e 75  |$-  .. "OS_SWINu|
00000390  6d 62 65 72 46 72 6f 6d  53 74 72 69 6e 67 22 2c  |mberFromString",|
000003a0  2c 6e 61 6d 65 24 20 b8  20 41 25 0d 00 25 07 3d  |,name$ . A%..%.=|
000003b0  41 25 0d 00 26 04 0d 00  27 0c dd 20 a4 30 28 61  |A%..&...'.. .0(a|
000003c0  25 29 0d 00 28 09 73 24  3d 22 22 0d 00 29 0d c8  |%)..(.s$=""..)..|
000003d0  95 20 3f 61 25 3c 3e 30  0d 00 2a 0d 20 73 24 2b  |. ?a%<>0..*. s$+|
000003e0  3d bd 3f 61 25 0d 00 2b  0a 20 61 25 2b 3d 31 0d  |=.?a%..+. a%+=1.|
000003f0  00 2c 05 ce 0d 00 2d 07  3d 73 24 0d ff           |.,....-.=s$..|
000003fd