Voici un petit script qui permet de lancer l'exécution d'un source en langage Panoramic à partir de l'éditeur PsPad.
C'est du javascript à sauvegarder dans le répertoire PSPad Editor\script\JScript sous le nom ScriptPanoramic.js :
// Lancement d'un programme en langage panoramic .
// Auteur : Nardo26 .
// Constantes :
module_name = "ScriptPanoramic";
module_ver = "1.0";
module_title="Panoramic";
menu_name = "Panoramic";
function Init()
{
addMenuItem("Run",menu_name,"RunPano","SHIFT+F9");
addMenuItem("Open script file",menu_name,"openScript");
}
// Lancement du programme
function RunPano()
{
var Source = newEditor();
sleep(100);
try
{
// On déclare la source comme étant la fenêtre en cours d'édition
Source.assignActiveEditor();
}
catch(e)
{
echo("erreur pas de fenêtre ouverte !")
return;
}
// on récupère son contenu puis on le stocke dans le presse-papier :
setClipboardText(Source.Text());
var loader=modulePath()+"..Loader.exe"
// puis on lance le petit utilitaire réalisé par cosmos70
new ActiveXObject("Shell.Application").ShellExecute(loader);
}
// Ouverture du script dans l'éditeur
function openScript()
{
var obj1 = newEditor();
obj1.openFile(moduleFileName(module_name));
}
Ce script s'appuie sur une idée géniale de cosmos70, dont voici le source : (c'est tout bête, mais il fallait y penser !...)
' .
' Auteur : cosmos70 .
' .
memo 1 : width 1,1000 : ' mettre large pour éviter les sauts de ligne
clipboard_paste 1 : ' on récupère le contenu du presse-papier
if count(1)>0
' si la première ligne contient le mot "panoramic"
if instr(upper$(item_read$(1,1)),"PANORAMIC")>0
file_save 1,"c:\Temp\panoramic.bas" : ' on sauvegarde le contenu
chain "c:\Temp\panoramic.bas" : ' puis on exécute...
end_if
end_if
end
Compilez le source panoramic en Loader.exe, mettez l'exécutable dans le répertoire PSPad Editor\script puis il ne reste plus qu'à compiler le script java dans PsPad et de définir un raccourci-clavier et le tour est joué !
Un nouveau sous-menu apparait dans 'Script' :
