Create images of graphs and allow Igor to reopen the original image pxp when it opens the image

#pragma TextEncoding = "UTF-8"
#pragma rtGlobals=3     // Use modern global access method and strict wave access.

//PART 1: save a graph with a text file containing "recovery" information (including waves in the graph,the pxp name,etc)
function saveTopGraphs(numGraphs, pathName, [h, w, res, nStr,type,nt])
    Variable numGraphs; String pathName
    Variable h, w       //optionally set height. Uses inches by multiplying input value by 72
    Variable res        //see otions in switch statement below. 0 or 8 is 8x screen resolution, 1 is 1x, so on
    String nStr //when passed, this is used as start of output name. If more than one graph being saved, naming is [nStr]0, [nStr]1, ...
    Variable type   //-2 for high res enhanced metafile, -5 for png, -7 for tiff, -8 pdf
    Variable nt     //supress transparency
   
    Variable usedType
    if (ParamIsDefault(type))   //no type speficiation, use default
        usedType = -5           //-2 for high res enhanced metafile (good for illustrator), -5 for png (good for PPT or illustrator by ref), -7 for tiff
    else
        usedType = type
    endif
   
    make/o/t/free typeExtensions = {".emf",".png",".jpg",".tif",".pdf",".svg"}
    dl_assignLblsFromList(typeExtensions,0,0,"-2;-5;-6;-7;-8;-9;","",0)
   
    Variable spbt = (ParamIsDefault(nt) || !nt) ? 1 : 0         //Save PNG Background as Transparent (only affects PNGs)
   
    PathInfo $pathName
    if (!V_flag)
        Newpath/O $pathName
       
        if (V_flag)
            Print "saveTopGraphs(): path set canceled; aborting."      
        endif
    endif
    PathInfo $pathName
    String picSavePath = S_path
   
    if (ParamIsDefault(res) || numtype(res) || (res <= 0))
        res = 8
    endif
   
    Variable resVal = res*72        //1 to 8 are options for res
   
    String graphWindows = WinList("*", ";", "WIN:1" )
   
    Variable i, count,maxn=min(numGraphs,ItemsInList(graphWindows)); String picFileName,graphN,infoTxtFileName
    make/o/t/free/n=(1,15) picInfo      //put info along one row for easy writing with save/J (delimited text from wave columns)
    for (i=0;i<maxn;i+=1)
        graphN = StringFromList(i, graphWindows)
        //check for height, width changes
        if (!ParamIsDefault(h) || !ParamIsDefault(w))
            if (!ParamIsDefault(h))
                ModifyGraph/W=$graphN height = h*72
                ModifyGraph/W=$graphN height = 0        //makes height adjustable again
            endif
            if (!ParamIsDefault(w))
                ModifyGraph/W=$graphN width = w*72
                ModifyGraph/W=$graphN width = 0     //makes height adjustable again
            endif
            doupdate
        endif
       
        //check for a custom name
        if (ParamIsDefault(nStr))   //no custom name
            SavePICT/Z/O/P=$pathName/EF=2/Q=1/B=(resVal)/E=(usedType)/TRAN=(spbt)/WIN=$graphN
            picFileName = graphN + typeExtensions[%$num2str(usedType)]
        else        //custom name
            if (numGraphs < 2)      //just one input, don't append a number to give it a unique name
                picFileName = nStr
            else                    //multiple windows to save, append a number to make sure output name is unique for each one
                picFileName = nStr + num2str(count)
            endif
            picFileName += typeExtensions[%$num2str(usedType)]
            SavePICT/Z/O/P=$pathName/EF=2/E=(usedType)/Q=1/B=(resVal)/TRAN=(spbt)/WIN=$graphN as picFileName
        endif      
       
        if (V_flag == 0)
            Print "Saved: " + graphN,"target save name =", picFileName
           
            //save text file with info about this file
            Pathinfo home
            String traces=tracenamelist(graphN,";",2^0+2^1+2^2+2^3+2^4+2^5),wavesForTraces="",xwavesForTraces=""
            Variable j,numTraces=itemsinlist(traces)
            for (j=0;j<numTraces;j+=1)
                wavesForTraces+=nameofwave(tracenametowaveref(graphN,stringfromlist(j,traces)))
                xWavesForTraces+=nameofwave(XWaveRefFromTrace(graphN,stringfromlist(j,traces)))
            endfor
            picInfo[0][0]="picFileName~"+picFileName
            picInfo[0][1]="graphName~"+graphN
            picInfo[0][2]="experimentName~"+igorinfo(1)+".pxp"
            picInfo[0][3]="experimentFullPath~"+S_path  //from pathinfo home
            picInfo[0][4]="lastSaveDate~"+date()
            picInfo[0][5]="lastSaveTime~"+time()
            picInfo[0][6]="picSavePath~"+picSavePath
            picInfo[0][7]="OS_user~"+igorinfo(7)
            picInfo[0][8]="saveWidthInch~"+num2str(winDim(graphN,0))
            picInfo[0][9]="saveHeightInch~"+num2str(winDim(graphN,1))
            picInfo[0][10]="graphFullWaveList~"+wavelist("*",";","WIN:"+graphN)
            picInfo[0][11]="graphTraceList~"+traces
            picInfo[0][12]="wavesForTraces~"+wavesForTraces
            picInfo[0][13]="xWavesForTraces~"+xWavesForTraces
            picInfo[0][14]="winRecreation~"+winrecreation(graphN,0)
            infoTxtFileName = picFileName +".txt"
            save/J/P=$pathName/o/dlim="\r\n"/e=0 picInfo as infoTxtFileName
           
            count+=1
        else
            Print "Error in saveTopGraphs() from SavePICT. Error code = " , num2str(V_flag) ," on graphN",graphN,"i=",i
        endif
    endfor
    Print "total num saved = " + num2str(count) + " of target num = " + num2str(numGraphs)
end

//PART 2: what to do if that graph is passed to Igor as a file to open

//setup to call a function when any file open request is started
function BeforeFileOpenHook(refNum, fileNameStr, pathNameStr, fileTypeStr, fileCreatorStr, fileKind )
    Variable refNum  //is the file reference number. You can use this number with file I/O operations to read from the file. Igor closes the file when the user-defined function returns, and refNum  becomes invalid. The file is opened for read-only; if you want to write to the file, you must close and reopen it with write access. refNum  will be -1 for experiment files and XOPs. In this case, Igor has not opened the file for you.
    String fileNameStr //  contains the name of the file.
    String pathNameStr  // contains the name of the symbolic path. pathNameStr  is not the value of the path. Use the PathInfo operation to determine the path's value.
    String fileTypeStr  // contains the Macintosh file type code, if applicable. File type codes are obsolete. Use the file name extension to determine if you want to handle the file. You can use ParseFilePath to obtain the extension from fileNameStr .
    String fileCreatorStr // contains the Macintosh creator code, if applicable. Creator codes are obsolete so ignore this parameter.
    Variable fileKind // is a number that identifies what kind of file Igor thinks it is. Values for fileKind  are listed in the next section.
           
    return fio_reopenImgPxp(refNum,fileNameStr,pathNameStr)

end

//handle reopening
static strconstant acceptedFileExtensions = "png;emf;"      //don't include periods; semi-colon delimited list. Currently only png and emf will be handled. Others can be added
function fio_reopenImgPxp(refNum,fileNameStr,pathNameStr)
    Variable refNum;string fileNameStr,pathNameStr
   
    String fileExtension = fio_getFileNameOrExtension(fileNameStr,1)
   
    Variable acceptedFileExtension = itemsinlist(ListMatch(acceptedFileExtensions,"*"+fileExtension)) > 0
    if (!acceptedFileExtension)
        return 0
    endif
   
    String txtFileName = fileNameStr + ".txt"
    STring txtFiles = indexedfile($pathNameStr,-1,".txt")
    Variable txtFileInd = whichlistitem(txtFileName,txtFiles)
       
    if (txtFileInd < 0)
        print "fio_reopenImgPxp() acceptable file type opened but no associated text file found, aborting"
        return 0
    endif
   
    //make sure path to search for pxp files is set (once per experiment with drag)
    //this could be altered to search more of the available drives
    pathinfo fio_reopenImgPxpPath
    if (!V_flag)
        newpath/M="fio_reopenImgPxp() Choose a new path for retrieving PXP files on image drag"/o fio_reopenImgPxpPath//fio_reopenImgPxp
        if (V_flag)
            Print "fio_reopenImgPxp() failed to set path to retrieve pxp files on image drag, aborting. need to set symbolic path with name fio_reopenImgPxpPath"
        endif
    endif
    String pxpPath = S_path
   
    String info = fio_readTxtFile(pathNameStr,txtFileName)
    String experimentName = stringbykey("experimentName",info,"~","\r")
    String experimentName_noPrefix = removeending(experimentName,".pxp")
   
    if (stringmatch(experimentName,igorinfo(1)))
        print "fio_reopenImgPxp() This pxp created the image"
        return 1
    endif
   
    WAVE/T openExpInfo = fio_getIgorExperiments("")
    Variable expIndex = finddimlabel(openExpInfo,0,experimentName_noPrefix)
       
    if (expIndex >= 0)
        Variable is64 = str2num(openExpInfo[expIndex][%is64])
        String winTitle=openExpInfo[expIndex][%$"Window Title"]
        String activateCmd="nircmd win activate title \""+winTitle+"\""
        String flashCmd="nircmd win flash title \""+winTitle+"\""
        print "fio_reopenImgPxp() Pxp file that created this image,",experimentName," is already open in",selectstring(is64,"Igor32","Igor64"),"win="+winTitle,"attempting to activate that window (requires nircmd)"
        executescripttext/B/Z/w=1 activateCmd
       
        if (V_flag)
            print "fio_reopenImgPxp() could not activate pxp that contained image ("+experimentName+"), appears nircd is not installed. Add nircmd.exe (http://www.nirsoft.net/utils/nircmd.html) to C:/Windows"
        else
            executescripttext/B/Z/w=1 flashCmd
        endif
       
        //doesnt seem like there is any easily available error handling if window is not found
        return 1
    endif
   
    String pxpFiles = indexedfile(fio_reopenImgPxpPath,-1,".pxp")
    Variable pxpFileInd = whichlistitem(experimentName,pxpFiles)
    if (pxpFileInd<0)
        print "fio_reopenImgPxp() pxp that generated image:",experimentName,". not found. need to set symbolic path with name fio_reopenImgPxpPath to proper path, or maybe it has been renamed since last image save"
        return 1
    endif
   
    String sysPxpPath = parsefilepath(5,pxpPath,"*",0,100)
    String fullPath = sysPxpPath+stringfromlist(pxpFileInd,pxpFiles)
    print "fio_reopenImgPxp() pxp that generated image found at:",fullPath+". attempting open in new instance of Igor64"
   
    executeIgorScript_doCmd(fullPath,64,newInstance=1,noCommand=1)
   
    return 1
end

//get a (textwave) list of open Igor experiment windows (via ExecuteScriptText)
function/WAVE fio_getIgorExperiments(outRef)
    String outRef       //pass "" for free wave
   
    String cmdExeKeys="Image Name;PID;Session Name;Session#;Mem Usage;Status;User Name;CPU Time;Window Title;"      //output from the script below contains items with these keys. formatting is parsed by key in text_getCmdExeListInfo()
   
    ExecuteScriptText/B "tasklist /v /FO LIST /fi \"IMAGENAME eq Igor*\""

    WAVE/T instanceInfo = listtotextwave(S_value,"\r\n\r\n")        //format is /r delimited list with key:<\t>itemStr<\r> it seems
   
    duplicate/o/free/t instanceInfo,titleStrs,winTitles,imageNameStrs
    Variable numWins = dimsize(instanceInfo,0),i,itemsInWindowTitleStr
   
   
    Variable numCmdKeys=itemsinlist(cmdExeKeys),numParams=itemsinlist(cmdExeKeys)+3
    if (strlen(outRef) == 0)
        make/o/free/n=(numWins,numParams)/t out
    else
        make/o/n=(numWins,numParams)/t $outref/wave=out
    endif
   
    String key
    for (i=0;i<numCmdKeys;i+=1)
        key=stringfromlist(i,cmdExeKeys)
        setdimlabel 1,i,$key,out
    endfor
    setdimlabel 1,numCmdKeys,is64,out
    setdimlabel 1,numCmdKeys+1,isDefault,out
    setdimlabel 1,numCmdKeys+2,winTitleNoIgorInfo,out       //also stored in the dimension label
   
    out[][0,numCmdKeys]=text_getCmdExeListInfo(stringfromlist(q,cmdExeKeys),instanceInfo[p])
   
    out[][%is64] = num2str(stringmatch(out[p][%$"Image Name"],"*Igor64.exe*"))
    out[][%isDefault] = num2str(itemsinlist(out[p][%$"Window Title"]," - ") < 2 )//for named windows, will be 2; for unnamed will be 1 --not a super safe test. Would be better to get Igor version and check a match to expected given 32-bit or 64-bit
   
    String experimentName
    for (i=0;i<numWins;i+=1)
        experimentName = stringfromlist(0,out[i][%$"Window Title"]," - ")  
        experimentName = text_removeSurroundingSpaces(experimentName,2)
       
        out[i][%winTitleNoIgorInfo] = experimentName
   
        setdimlabel 0,i,$experimentName,out
    endfor
       
    return out
end

//parses output from ExecuteScriptText "tasklist..." as above
function/S text_getCmdExeListInfo(key,list)
    String key,list
   
    String match = stringfromlist(0,listmatch(list,key+":*","\r\n"),"\r\n")
    match = replacestring(key+":",match,"",0,1)
    return text_removeSurroundingSpaces(match,2)

end

//wrapper function for calling Igor from script
strconstant ksExecutable32="IgorBinaries_Win32\Igor.exe"
strconstant ksExecutable64="IgorBinaries_x64\Igor64.exe"
function executeIgorScript_doCmd(cmdStr,igorVers,[newInstance,noCommand])
    String cmdStr           //command to execute in other instance of igor
    Variable igorVers       //version of Igor to command
    Variable newInstance    //use the /I flag to start a new Igor instance. otherwise, a new instance should only be created if there are no instances of the version of Igor running
    Variable noCommand      //suppress the /X command flag. This is required to open a pre-existing pxp file
   
    String windowsIgorPath = SpecialDirPath("Igor Application",0,1,0)
    Variable doNewInstance = !ParamIsDefault(newInstance) && newInstance
    Variable doCommand = ParamIsDefault(noCommand) || !noCommand
    String newInstanceOption = selectstring(doNewInstance,"","/I ")
    String commandOption = selectstring(doCommand,"","/X ")
    string execPath
    switch (igorVers)
        case 32:
            execPath =  "\""+ windowsIgorPath  + ksExecutable32 +"\""
            break
        case 64:
            execPath =  "\""+ windowsIgorPath  + ksExecutable64 +"\""
            break
        default:
            return 0        //not a valid igor version
    endswitch

    String scriptText = execPath +  " " +commandOption + newInstanceOption + "\"" + cmdStr + "\""
    ExecuteScriptText  scriptText
end


//GENERALISH HELPER FUNCTIONS needed to run parts 1 and 2
function/S fio_getFileNameOrExtension(str,extensionNotName)
    String str
    Variable extensionNotName
   
    Variable items = itemsinlist(str,".")
   
   
    if (extensionNotName)
        return stringfromlist(items-1,str,".")
    endif
   
    String noExt = removelistitem(items-1,str,".")
    Variable len = strlen(noExt)
   
    return noExt[0,len-2]       //remove last "."
   
end

function dl_assignLblsFromList(wv,dim,startIndex,list,appendStr,appendBeforeLblNotAfter[reuseLast])
    WAVE wv
    Variable dim        //dim to label
    Variable startIndex //index to start at in dim to label (end index is based on length of list)
    String list         //list of labels to assign
    String appendStr
    Variable appendBeforeLblNotAfter
    Variable reuseLast      //optionally pass to coninue using the last in the list until the end of the dimension
   
    variable i,num=itemsinlisT(list),maxIndex = dimsize(wv,dim),index,count=0
    String lb=stringfromlist(0,list)
    for (i=0;(i+startIndex)<maxIndex;i+=1)      //loop through from startIndex til end of dimension ..
        index = i+startIndex
        if (i >= num)
            if (ParamIsDefault(reuseLast) || !reuseLast)
                break
            endif
            SetDimLabel dim,index,$lb,wv;count+=1
        endif      
       
       
        if (appendBeforeLblNotAfter)
            lb=appendStr + stringfromlist(i,list)
        else
            lb=stringfromlist(i,list) + appendStr
        endif
        SetDimLabel dim,index,$lb,wv;count+=1
    endfor

    return count
end

function winDim(winN,widthOrHeight)
    String winN
    Variable widthOrHeight      //0 width 1 height, returns in inches
   
    if (strlen(winN) < 1)
        winN = winname(0,1)
    endif
   
    getwindow $winN,psize
   
    Variable minCoord,maxCoord
    if (widthOrHeight)      //height
        minCoord = V_top
        maxCoord = v_bottom
    else
        minCoord = V_left
        maxCoord = v_right
    endif
   
    //getwindow $winN,expand
   
    return (maxCoord - minCoord) / 72// / v_value
end

Function/S fio_readTxtFile(pathNameStr,fileNameStr)
    String pathNameStr      //symbolic path for file
    String fileNameStr  //full name of file including extension
   
    Variable refNum
    Open/R/P=$pathNameStr refNum as fileNameStr
    if (refNum == 0)
        pathinfo $pathNameStr
        print "fio_readTxtFile() failed to find pathNameStr",fileNameStr,"in symbolic path",pathNameStr,"("+S_path+")"
        return ""       // Failed
    endif

    Variable lineNumber, len
    String buffer,out=""
    lineNumber = 0
    do
        FReadLine refNum, buffer
        len = strlen(buffer)
        if (len == 0)
            break       // No more lines to be read
        endif
        out += buffer
        if (CmpStr(buffer[len-1],"\r") != 0)    // Last line has no CR ?
            out+="\r"
        endif
        lineNumber += 1
    while (1)

    close refnum
   
    return out
End
     
function/S text_removeSurroundingSpaces(str,beforeAfterOrBoth)
    String str; Variable beforeAfterOrBoth      //0 just before, 1 after, 2 both
   
    Variable i,firstNonSpacePos,lastNonSpacePos,len=strlen(str)
    if ( (beforeAfterOrBoth==0) || (beforeAfterOrBoth==2) )
        for (i=0;i<len;i+=1)
            if (!stringmatch(str[i], " "))
                break
            endif
        endfor
        firstNonSpacePos = i
        if (firstNonSpacePos == len)        //got through whole loop, string is empty or all blank
            return ""
        endif
   
        if (beforeAfterOrBoth==0)
            return str[firstNonSpacePos,inf]
        endif
    endif
   
    //beforeAfterOrBoth is 1 or 2
    for (i=len-1;i>=0;i-=1)
        if (!stringmatch(str[i]," "))
            break
        endif
    endfor
   
    lastNonSpacePos = i
   
    if (beforeAfterOrBoth==1)       //just return without ending spaces
        if (lastNonSpacePos == 0)   //got through whole loop, string is empty or all blank
            return ""
        endif
   
        return str[0,lastNonSpacePos]
    endif
   
    if (lastNonSpacePos == firstNonSpacePos)    //got through whole loop, string is empty or all blank
        return ""
    endif
                                    //return without ending and preceding spaces
    return str[firstNonSpacePos,lastNonSpacePos]
end