Discussion :

[nielsie95]

Mon français n'est pas parfait, donc je vais parler anglais.

First of all, I would like to say Sepi is a very nice and promising project
I followed your guide to compile the latest version (got it from SourceForge SVN) on Delphi 2007. The problem is that it does compile, but the unit importer fails (it gives me an error that it can't find an entrypoint for a procedure in SepiReflection110.bpl). I compiled the rest of the library without the imports (commented those out) and that worked fine.

I want to make a program that interprets Delphi code without having to compile it first to a file (like Remobjects Pascal Script does). Is this possible? If so, how would I do such a thing? I tried to do it myself, but got an error on calling the "main function".

Also, do you think it is possible to port this project to Lazarus?

Thanks in advance,
Nielsie95

[sjrd]

Bonjour,

Je voudrais d'abord signaler que le forum étant francophone, il est demandé que les messages soient écrits en français. Même si tu fais des fautes, personne ne t'en tiendras rigueur.

Je vais donc répondre en français. Je suis néanmoins joignable en anglais par e-mail, si nécessaire.

First of all, I would like to say Sepi is a very nice and promising project

Merci

I followed your guide to compile the latest version (got it from SourceForge SVN) on Delphi 2007. The problem is that it does compile, but the unit importer fails (it gives me an error that it can't find an entrypoint for a procedure in SepiReflection110.bpl). I compiled the rest of the library without the imports (commented those out) and that worked fine.

Hum, c'est bizarre. Il se pourrait que ton path système ne contienne pas le dossier dans lequel Delphi stocke les .bpl. Cela dit, tu dois pouvoir contourner le problème en compilant l'importeur sans l'option "Compiler avec les paquets d'exécution" du menu Projet > Options.

I want to make a program that interprets Delphi code without having to compile it first to a file (like Remobjects Pascal Script does). Is this possible? If so, how would I do such a thing? I tried to do it myself, but got an error on calling the "main function".

En théorie, c'est possible, oui. Il faudrait alors compiler vers un TMemoryStream, puis réutiliser le même stream comme argument de TSepiRuntimeUnit.Create.

Pour compiler vers un TMemoryStream, il faut écrire une variante de SepiCompilerUtils.CompilerSepiSource (dans le dossier source\run\SepiCompiler).

Pour créer l'unité à partir du memory stream, il suffit de faire

Code Delphi :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure ExecuteMain(ScriptStream: TStream);
const 
  MainMethodName = 'Main'; 
var 
  SepiRoot: TSepiRoot; 
  RuntimeUnit: TSepiRuntimeUnit;
  SepiUnit: TSepiUnit; 
  MainMethod: TSepiMethod; 
  EntryPoint: TProcedure; 
begin 
  SepiRoot := TSepiRoot.Create; 
  try 
    RuntimeUnit := TSepiRuntimeUnit.Create(SepiRoot, ScriptStream);
    SepiUnit := RuntimeUnit.SepiUnit;
    MainMethod := SepiUnit.FindComponent(MainMethodName) as TSepiMethod; 
    EntryPoint := TProcedure(MainMethod.Code); 
    EntryPoint; 
  finally 
    SepiRoot.Free; 
  end; 
end;

Il est nécessaire d'utiliser des SepiRoot séparés pour la compilation et pour l'exécution. (Ou au moins utiliser des forks séparés, mais c'est compliqué à utiliser correctement.)

Also, do you think it is possible to port this project to Lazarus?

Pas dans l'immédiat. Je ne connais pas suffisamment les détails d'implémentation de FreePascal, ne l'ayant jamais utilisé. Je le ferai un jour, c'est sûr. Mais quand ? Ca je n'en sais rien.

Merci encore pour votre intérêt pour Sepi

[nielsie95]

If English really is a big problem on the forums, I'll ask any further questions through mail/pm.

It works now, thank you I must say it performs very well compared to Pascal Script (speed wise, but also feature wise), so thanks again for your hard work!

[sjrd]

I must say it performs very well compared to Pascal Script (speed wise, but also feature wise)

C'est amusant, je me serais attendu à l'ordre inverse, i.e. "non seulement au niveau des fonctionnalités, mais aussi de la vitesse".

En effet, Sepi a été développé pour les fonctionnalités, qui devaient pallier au manque de fonctionnalités de Pascal Script et Scripter Studio. La vitesse n'est qu'un effet "du hasard" que je n'avais même pas prémédité Mais bon c'est vrai que Pascal Script a une implémentation qui n'encourage pas la vitesse.