#define INCL_WIN

#include <os2.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "fm3dll.h"

#pragma alloc_text(FINDREC,FindCnrRecord,FindParentRecord,ShowCnrRecord)


PCNRITEM FindCnrRecord (HWND hwndCnr,CHAR *filename,PCNRITEM pciParent,
                        BOOL partial,BOOL partmatch,BOOL noenv) {

  SEARCHSTRING   srch;
  PCNRITEM       pci;
  register CHAR *file,*p;

  if(partial) {
    if(strlen(filename) > 3) {
      file = strrchr(filename,'\\');
      if(!file) {
        file = strrchr(filename,':');
        if(file)
          file++;
        else
          file = filename;
      }
      else
        file++;
    }
    else
      file = filename;
  }
  else
    file = filename;
  memset(&srch,
         0,
         sizeof(SEARCHSTRING));
  srch.cb = (ULONG)sizeof(SEARCHSTRING);
  srch.pszSearch = (PSZ)file;
  srch.fsPrefix = FALSE;
  srch.fsCaseSensitive = FALSE;
  srch.usView = CV_TREE; /* | CV_EXACTMATCH; */
  if(!pciParent)
    pciParent = (PCNRITEM)CMA_FIRST;
  pci = WinSendMsg(hwndCnr,
                   CM_SEARCHSTRING,
                   MPFROMP(&srch),
                   MPFROMP(pciParent));
  while(pci &&
        (INT)pci != -1) {
    if(!noenv ||
       (pci->flags & (RECFLAGS_ENV | RECFLAGS_UNDERENV)) == 0) {
      if(!partmatch) {  /* full name must match full name */
        if(!stricmp(pci->szFileName,filename))
          return pci; /* success */
      }
      else {            /* only root name must match */
        if(strlen(pci->szFileName) > 3) {
          p = strrchr(pci->szFileName,'\\');
          if(!p) {
            p = strrchr(pci->szFileName,':');
            if(p)
              p++;
            else
              p = pci->szFileName;
          }
          else
            p++;
        }
        else
          p = pci->szFileName;
        if(!stricmp(p,file))
          return pci; /* success */
      }
    }
    pci = WinSendMsg(hwndCnr,
                     CM_SEARCHSTRING,
                     MPFROMP(&srch),
                     MPFROMP(pci));
  }
Abort:
  return NULL;    /* failure */
}


PCNRITEM FindParentRecord (HWND hwndCnr,PCNRITEM pciC) {

  PCNRITEM pciP = (PCNRITEM)NULL,pci = pciC;

  if(pci) {
    for(;;) {
      pciP = WinSendMsg(hwndCnr,
                        CM_QUERYRECORD,
                        MPFROMP(pci),
                        MPFROM2SHORT(CMA_PARENT,
                                     CMA_ITEMORDER));
      if(pciP &&
         (INT)pciP != -1)
        pci = pciP;
      else
        break;
    }
  }
  return pci;
}


VOID ShowCnrRecord (HWND hwndCnr,PMINIRECORDCORE pmi) {

  QUERYRECORDRECT qrecrct ;
  RECTL           rcl ;
  RECTL           rclViewport ;

  memset(&qrecrct,
         0,
         sizeof(QUERYRECORDRECT));
  qrecrct.cb = sizeof(QUERYRECORDRECT);
  qrecrct.pRecord = (PRECORDCORE)pmi;
  qrecrct.fsExtent = (CMA_ICON | CMA_TEXT | CMA_TREEICON);
  if(!WinSendMsg(hwndCnr,
                 CM_QUERYRECORDRECT,
                 MPFROMP(&rcl),
                 MPFROMP(&qrecrct))) {
    qrecrct.fsExtent = CMA_TEXT | CMA_TREEICON;
    WinSendMsg(hwndCnr,
               CM_QUERYRECORDRECT,
               MPFROMP(&rcl),
               MPFROMP(&qrecrct));
  }
  WinSendMsg(hwndCnr,
             CM_QUERYVIEWPORTRECT,
             MPFROMP(&rclViewport),
             MPFROM2SHORT(CMA_WINDOW,FALSE));
  WinSendMsg(hwndCnr,
             CM_SCROLLWINDOW,
             MPFROMSHORT(CMA_VERTICAL),
             MPFROMLONG((rclViewport.yTop - rcl.yTop) - 4));
  WinSendMsg(hwndCnr,
             CM_SCROLLWINDOW,
             MPFROMSHORT(CMA_HORIZONTAL),
             MPFROMLONG(rcl.xLeft - 4));
}