XYplorer Beta Club

Code: Select all

/*******************************************************************************
@Author  : Michael Baas
@Created : February 2, 2025
@Modified: 
@Function: display the dyalog menu and launch selected
@Tags    : AppLauncher,Projects,Dyalog
@Title   : My AppLauncher (Project Menu)
@Version : v0.1
******************************************************************************/

    if (exists("C:\Program Files\Dyalog")) {// if dyalog is not disabled atm
       //$proj =  regexreplace($proj," *\&Enable Dyalog.*\r?\n","");
       $proj = readfile("<xyscripts>\AppLauncher-DyalogMenu_1.txt") 
    } else {// dyalog IS disabled...
       // $proj =  regexreplace($proj," *\&Disable Dyalog.*\r?\n","");
       $proj = readfile("<xyscripts>\AppLauncher-DyalogMenu_0.txt") 
    }
    $proj = $proj . readfile("<xyscripts>\AppLauncher-DyalogMenu.txt");
    if ("<curitem>" == "") {
        $proj =  regexreplace($proj,"^.*<curi" . "tem>.*$","");// don't use <curitem> when looking for it as a string
    } 
    $sel = popupnested($proj);
    end $sel == "";
    if (":" == substr($sel,0,1)) {
        $sel = substr($sel,1,strlen($sel)-1);
        $sel = replace($sel,"⋄⋄",";");
    } else {
        $sel = "run ". $sel;
    }
    load $sel, , "s";    

Code: Select all

   if (exists("C:\Program Files\Dyalog")) {// if dyalog is not disabled atm
       //$proj = readfile("<xyscripts>\AppLauncher-DyalogMenu_1.txt") 
       $proj = readfile(<xytagdat);
    } else {// dyalog IS disabled...
       //$proj = readfile("<xyscripts>\AppLauncher-DyalogMenu_0.txt") 
       $proj = readfile(<xytagdat>);
    }

    $proj = listfolder(<xydata>, "*.ini", 1, <crlf>);  // ADDED ONLY THIS LINE JUST TO POPULATE THE MENU EASILY

    if ("<curitem>" == "") {
        $proj =  regexreplace($proj,"^.*<curi" . "tem>.*$","");// don't use <curitem> when looking for it as a string
    }
    $sel = popupnested($proj);
    end $sel == "";
    if (":" == substr($sel,0,1)) {
        $sel = substr($sel,1,strlen($sel)-1);
        $sel = replace($sel,"⋄⋄",";");
    } else {
        $sel = "run ". quote($sel);
    }
    load $sel, , "s";