OpenEuphoria

Re: Help with plugin concept

• Posted by "Igor Kachan" <kinz at peterlink.ru> Feb 13, 2004
• 665 views

Hello Judith,

----------
> From: Judith Evans <camping at txcyber.com>
> To: Eu Forum <EUforum at topica.com>
> Subject: RE: Help with plugin concept
> 
> 
> The corrected routine is below but it doesn't 
> really matter because it will never work.
> 
> files=dir(the_current_dir & "//Plugins")
> if sequence(files) then
>     if length(files) then
>         for i=1 to length(files) do
>             if not equal("d",files[i][D_ATTRIBUTES]) then
> --corrected line
>               include files[i][D_NAME]    <=== gets ex.err
> -----------------------------------
>             end if
>         end for
>     end if
> end if

Try please:

-- code
include file.e

object files

sequence PluginS
integer P_S

PluginS={}

files = dir(current_dir()) -- & "//Plugins") -- just to test, any files
if sequence(files) then
    if length(files) then
	for i=1 to length(files) do
	    if not equal("d",files[i][D_ATTRIBUTES]) then
 --            include files[i][D_NAME]    <=== gets ex.err
   PluginS &= "include " & files[i][D_NAME] & "\n"  --<-- this is a clue
	    end if
	end for
    end if
end if

P_S = open ("plugins.ew", "wb")
 puts(P_S, PluginS)
close(P_S)

include plugins.ew
-- end of code

Why not?
Works for me ...

Good Luck!

Regards,
Igor Kachan
kinz at peterlink.ru