#define INCL_DOS #define INCL_WIN #define INCL_GPI #include #include #include #include #include #include "fm3dll.h" #include "fm3dlg.h" #include "fm3str.h" #include "mle.h" #pragma data_seg(DATA1) #pragma alloc_text(AUTOVIEW,AutoViewProc,CreateHexDump,AutoObjProc) #pragma alloc_text(AUTOVIEW2,MakeAutoWin,WriteEA,PutComments) static HWND hwndAutoObj = (HWND)0; static CHAR stopflag; static CHAR currfile[CCHMAXPATH]; extern BOOL loadedarcs; BOOL WriteEA (HWND hwnd,CHAR *filename,CHAR *eaname,USHORT type,CHAR *data) { /* save an ea to disk */ FEA2LIST *pfealist = NULL; EAOP2 eaop; APIRET rc; ULONG ealen; USHORT len,*num,*plen,usCodepage; CHAR *p,*eaval; BOOL ret = FALSE; if(!filename || !eaname) return ret; usCodepage = (USHORT)WinQueryCp(WinQueryWindowULong(hwnd,QWL_HMQ)); len = (data) ? strlen(data) : 0; ealen = sizeof(FEA2LIST) + 24L + strlen(eaname) + 1L + (ULONG)len + 4L; switch(type) { case EAT_EA: case EAT_ASCII: break; case EAT_MVST: if(data) { ealen += sizeof(USHORT) * 5; p = data; while(*p) { if(*p == '\n' && *(p + 1)) ealen += sizeof(USHORT); p++; } } break; case EAT_MVMT: if(data) { ealen += sizeof(USHORT) * 5; p = data; while(*p) { if(*p == '\n' && *(p + 1)) ealen += (sizeof(USHORT) * 2); p++; } } break; default: return ret; } if(!DosAllocMem((PPVOID)&pfealist,ealen,PAG_COMMIT | PAG_READ | PAG_WRITE | OBJ_TILE) && pfealist) { memset(pfealist,0,ealen); pfealist->list[0].cbName = strlen(eaname); memcpy(pfealist->list[0].szName,eaname,pfealist->list[0].cbName + 1); eaval = pfealist->list[0].szName + pfealist->list[0].cbName + 1; switch(type) { case EAT_EA: case EAT_ASCII: if(data) { *(USHORT *)eaval = (USHORT)type; eaval += sizeof(USHORT); *(USHORT *)eaval = (USHORT)len; eaval += sizeof(USHORT); memcpy(eaval,data,len); eaval += len; } break; case EAT_MVST: if(data) { *(USHORT *)eaval = (USHORT)EAT_MVST; eaval += sizeof(USHORT); *(USHORT *)eaval = usCodepage; eaval += sizeof(USHORT); num = (USHORT *)eaval; *num = 0; eaval += sizeof(USHORT); *(USHORT *)eaval = (USHORT)EAT_ASCII; eaval += sizeof(USHORT); plen = (USHORT *)eaval; *plen = 0; eaval += sizeof(USHORT); p = data; while(*p) { while(*p) { if(*p == '\n') { p++; break; } *eaval++ = *p++; (*plen)++; } if(*p || *plen) (*num)++; if(*p) { plen = (USHORT *)eaval; *plen = 0; eaval += sizeof(USHORT); } } } break; case EAT_MVMT: if(data) { *(USHORT *)eaval = (USHORT)EAT_MVMT; eaval += sizeof(USHORT); *(USHORT *)eaval = usCodepage; eaval += sizeof(USHORT); num = (USHORT *)eaval; *num = 0; eaval += sizeof(USHORT); *(USHORT *)eaval = (USHORT)EAT_ASCII; eaval += sizeof(USHORT); plen = (USHORT *)eaval; *plen = 0; eaval += sizeof(USHORT); p = data; while(*p) { while(*p) { if(*p == '\n') { p++; break; } *eaval++ = *p++; (*plen)++; } if(*p || *plen) (*num)++; if(*p) { *(USHORT *)eaval = (USHORT)EAT_ASCII; eaval += sizeof(USHORT); plen = (USHORT *)eaval; *plen = 0; eaval += sizeof(USHORT); } } } break; } pfealist->list[0].cbValue = (ULONG)(eaval - (pfealist->list[0].szName + pfealist->list[0].cbName + 1)); memset(&eaop,0,sizeof(eaop)); eaop.fpFEA2List = pfealist; pfealist->cbList = 13L + (ULONG)pfealist->list[0].cbName + (ULONG)pfealist->list[0].cbValue; rc = DosSetPathInfo(filename,FIL_QUERYEASIZE,(PVOID)&eaop, (ULONG)sizeof(EAOP2),DSPI_WRTTHRU); DosFreeMem(pfealist); if(!rc) ret = TRUE; } return ret; } BOOL PutComments (HWND hwnd,CHAR *filename,CHAR *comments) { register CHAR *p; if(comments) { /* check -- is it empty? */ p = comments; while(*p && isspace(*p)) p++; if(!*p) comments = NULL; } return WriteEA(hwnd,filename,".COMMENTS",EAT_MVMT,comments); } ULONG CreateHexDump (CHAR *value,ULONG cbValue,CHAR *ret,ULONG retlen, ULONG startval,BOOL longlead) { register CHAR *p,*pp,*a; register ULONG x = 0,y,z; if(value && cbValue && ret && retlen) { pp = p = value; a = ret; if(startval) *a++ = '\n'; while(x < cbValue && a - ret < retlen) { y = x; if(longlead) sprintf(a,"%08lx ",x + startval); else sprintf(a,"%04lx ",x + startval); a += (6 + (startval != 0L) + ((longlead != 0L) * 4)); do { sprintf(a,"%02hx ",*p); a += 3; p++; x++; } while(x < cbValue && (x % 16)); if(x % 16) { z = x; while(z % 16) { *a++ = ' '; *a++ = ' '; *a++ = ' '; z++; } } *a++ = ' '; p = pp; do { if(*p && *p != '\n' && *p != '\r' && *p != '\t' && *p != '\x1a') *a++ = *p++; else { *a++ = '.'; p++; } y++; } while(y < x); if(x < cbValue) *a++ = '\n'; pp = p; } *a = 0; return (ULONG)(a - ret); } return 0L; } MRESULT EXPENTRY AutoObjProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2) { switch(msg) { case UM_LOADFILE: *currfile = 0; stopflag--; if(fAutoView) { WinSetWindowText((fComments) ? hwndAutoMLE : hwndAutoview,""); MLEsetreadonly(hwndAutoMLE,TRUE); MLEsetchanged(hwndAutoMLE,FALSE); } if(mp1) { if(fAutoView) { strcpy(currfile,(CHAR *)mp1); if(!fComments) { if(IsFile((CHAR *)mp1) == 1) { HFILE handle; ULONG action,olen,len,l; CHAR *buff,*buff2,*p,buffer[80]; ARC_TYPE *info; if(!DosOpen((CHAR *)mp1, &handle, &action, 0L, 0L, OPEN_ACTION_FAIL_IF_NEW | OPEN_ACTION_OPEN_IF_EXISTS, OPEN_FLAGS_FAIL_ON_ERROR | OPEN_FLAGS_NOINHERIT | OPEN_FLAGS_RANDOMSEQUENTIAL | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READONLY, 0L)) { len = (AutoviewHeight < 96) ? 512 : 3072; buff = malloc(len + 2); if(buff) { buff2 = malloc((AutoviewHeight < 96) ? 2049 : 9217); if(buff2) { *buff2 = 0; if(!DosRead(handle, buff, len, &len) && len) { buff[len] = 0; p = buff2; if(IsBinary(buff,len)) { olen = len; if(!loadedarcs) load_archivers(); info = arcsighead; while(info) { if(info->signature && *info->signature) { l = strlen(info->signature); l = min(l,79); if(!DosChgFilePtr(handle,abs(info->file_offset), (info->file_offset >= 0L) ? FILE_BEGIN : FILE_END, &len)) { if(!DosRead(handle, buffer, l, &len) && len == l) { if(!memcmp(info->signature, buffer, l)) break; } } } info = info->next; } if(info) { sprintf(p,"**%s%s%s\n", (info->id) ? info->id : "", (info->id) ? " " : "", GetPString(IDS_ARCHIVETEXT)); p += strlen(p); } CreateHexDump(buff, olen, p, ((AutoviewHeight < 96) ? 2048 : 9216) - (p - buff2), 0,FALSE); } else { register CHAR *src,*dest; CHAR *endsrc; src = buff; dest = buff2; endsrc = buff + len; while(src < endsrc) { if(dest == buff2 && (*src == '\t' || *src == ' ' || *src == '\r' || *src == '\n')) { src++; } else if(*src == '\t' || !*src) { *dest = ' '; dest++; src++; } else if(*src == '\r' || *src == '\n') { *dest = *src; while(*(src + 1) == '\r' || *(src + 1) == '\n' || *(src + 1) == ' ' || *(src + 1) == '\t') src++; dest++; src++; } else { *dest = *src; src++; dest++; } } *dest = 0; } if(*buff2) WinSetWindowText(hwndAutoview,buff2); } free(buff2); } free(buff); } DosClose(handle); } } else if(!IsFile(currfile)) { static FILEFINDBUF4 ffb[130]; static char fullname[CCHMAXPATH + 4]; HDIR hdir = HDIR_CREATE; ULONG x,nm,ml,mc; PBYTE fb; PFILEFINDBUF4 pffbFile; char *buff,*p; APIRET rc; sprintf(fullname, "%s%s*", currfile, (currfile[strlen(currfile) - 1] == '\\') ? "" : "\\"); DosError(FERR_DISABLEHARDERR); nm = sizeof(ffb) / sizeof(FILEFINDBUF4); if(AutoviewHeight < 96) nm /= 2; rc = DosFindFirst(fullname, &hdir, FILE_NORMAL | FILE_DIRECTORY | FILE_READONLY | FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN, &ffb, sizeof(ffb), &nm, FIL_QUERYEASIZE); if(!rc && nm) { fb = (PBYTE)&ffb; x = ml = 0; while(x < nm) { pffbFile = (PFILEFINDBUF4)fb; mc = (ULONG)pffbFile->cchName + ((pffbFile->attrFile & FILE_DIRECTORY) != 0); ml = max(ml,mc); if(!pffbFile->oNextEntryOffset) break; fb += pffbFile->oNextEntryOffset; x++; } buff = malloc((CCHMAXPATHCOMP + 42) * nm); if(buff) { p = buff; *p = 0; fb = (PBYTE)&ffb; x = 0; while(x < nm) { pffbFile = (PFILEFINDBUF4)fb; if(!(!*pffbFile->achName || (((pffbFile->attrFile & FILE_DIRECTORY) && pffbFile->achName[0] == '.') && (!pffbFile->achName[1] || (pffbFile->achName[1] == '.' && !pffbFile->achName[2]))))) { sprintf(p, "%s%-*.*s %-8lu [%s%s%s%s] %04lu/%02lu/%02lu " "%02lu:%02lu:%02lu\r", ((pffbFile->attrFile & FILE_DIRECTORY) != 0) ? "\\" : " ", ml, ml, pffbFile->achName, pffbFile->cbFile + ((pffbFile->cbList > 4) ? pffbFile->cbList / 2 : 0), ((pffbFile->attrFile & FILE_READONLY) != 0) ? "R" : "-", ((pffbFile->attrFile & FILE_ARCHIVED) != 0) ? "A" : "-", ((pffbFile->attrFile & FILE_HIDDEN) != 0) ? "H" : "-", ((pffbFile->attrFile & FILE_SYSTEM) != 0) ? "S" : "-", pffbFile->fdateLastWrite.year + 1980, pffbFile->fdateLastWrite.month, pffbFile->fdateLastWrite.day, pffbFile->ftimeLastWrite.hours, pffbFile->ftimeLastWrite.minutes, pffbFile->ftimeLastWrite.twosecs * 2); p += strlen(p); } if(!pffbFile->oNextEntryOffset) break; fb += pffbFile->oNextEntryOffset; x++; } if(*buff) WinSetWindowText(hwndAutoview,buff); free(buff); } } if(!rc) DosFindClose(hdir); } } else { APIRET rc; EAOP2 eaop; PGEA2LIST pgealist; PFEA2LIST pfealist; PGEA2 pgea; PFEA2 pfea; CHAR *value,*buff,*p,*data; USHORT len,type,plen,dlen; BOOL readonly = FALSE; pgealist = malloc(sizeof(GEA2LIST) + 64); if(pgealist) { memset(pgealist,0,sizeof(GEA2LIST) + 64); pgea = &pgealist->list[0]; strcpy(pgea->szName,".COMMENTS"); pgea->cbName = strlen(pgea->szName); pgea->oNextEntryOffset = 0L; pgealist->cbList = (sizeof(GEA2LIST) + pgea->cbName); pfealist = malloc(65536); if(pfealist) { memset(pfealist,0,65536); pfealist->cbList = 65536; eaop.fpGEA2List = pgealist; eaop.fpFEA2List = pfealist; eaop.oError = 0L; rc = DosQueryPathInfo((CHAR *)mp1,FIL_QUERYEASFROMLIST, (PVOID)&eaop, (ULONG)sizeof(EAOP2)); free(pgealist); if(!rc) { pfea = &eaop.fpFEA2List->list[0]; if(pfea->cbName && pfea->cbValue) { value = pfea->szName + pfea->cbName + 1; value[pfea->cbValue] = 0; if(*(USHORT *)value == EAT_MVMT) { buff = malloc(65536); if(buff) { p = buff; *buff = 0; data = value + (sizeof(USHORT) * 3); type = *(USHORT *)data; data += sizeof(USHORT); len = *(USHORT *)data; data += sizeof(USHORT); while((data - value) - len < pfea->cbValue) { if(type == EAT_ASCII) { dlen = plen = 0; while(dlen < len) { if(data[dlen] == '\r') { dlen++; if(dlen < len && data[dlen] != '\n') p[plen++] = '\n'; } else p[plen++] = data[dlen++]; } if((!len || !plen || p[plen - 1] != '\n') && (data - value) + len < pfea->cbValue) p[plen++] = '\n'; p += plen; *p = 0; } else readonly = TRUE; data += len; if(data - value >= pfea->cbValue) break; type = *(USHORT *)data; data += sizeof(USHORT); len = *(USHORT *)data; data += sizeof(USHORT); } WinSetWindowText(hwndAutoMLE,buff); free(buff); } } else readonly = TRUE; } /* else EA not present */ MLEsetchanged(hwndAutoMLE,FALSE); MLEsetreadonly(hwndAutoMLE,readonly); } else { MLEsetchanged(hwndAutoMLE,FALSE); MLEsetreadonly(hwndAutoMLE,FALSE); } free(pfealist); } } } } free((CHAR *)mp1); } return 0; case UM_CLOSE: if(!PostMsg((HWND)0,WM_QUIT,MPVOID,MPVOID)) WinSendMsg((HWND)0,WM_QUIT,MPVOID,MPVOID); WinDestroyWindow(hwnd); return 0; } return WinDefWindowProc(hwnd,msg,mp1,mp2); } VOID MakeAutoWin (VOID *args) { HAB hab2; HMQ hmq2; HWND hwndParent = (HWND)args; QMSG qmsg2; hab2 = WinInitialize(0); if(hab2) { hmq2 = WinCreateMsgQueue(hab2,128); if(hmq2) { DosError(FERR_DISABLEHARDERR); WinRegisterClass(hab2, GetPString(IDS_WCOBJECTWINDOW), AutoObjProc, 0, sizeof(PVOID)); hwndAutoObj = WinCreateWindow(HWND_OBJECT, GetPString(IDS_WCOBJECTWINDOW), (PSZ)NULL, 0, 0L, 0L, 0L, 0L, 0L, HWND_TOP, OBJ_FRAME, NULL, NULL); if(hwndAutoObj) { WinSetWindowULong(hwndAutoObj,0,hwndParent); priority_normal(); while(WinGetMsg(hab2,&qmsg2,(HWND)0,0,0)) WinDispatchMsg(hab2,&qmsg2); WinDestroyWindow(hwndAutoObj); hwndAutoObj = (HWND)0; } else { if(!PostMsg(hwndParent,UM_CLOSE,MPVOID,MPVOID)) WinSendMsg(hwndParent,UM_CLOSE,MPVOID,MPVOID); } WinDestroyMsgQueue(hmq2); } else WinTerminate(hab2); } } MRESULT EXPENTRY AutoViewProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2) { USHORT id = WinQueryWindowUShort(hwnd,QWS_ID); switch(msg) { case WM_CREATE: { MRESULT mr; if(!hwndAutoObj && _beginthread(MakeAutoWin, NULL, 65536, (PVOID)hwnd) == -1) PostMsg(hwnd, UM_CLOSE, MPVOID, MPVOID); mr = PFNWPStatic(hwnd,msg,mp1,mp2); SetPresParams(hwnd, &RGBGREY, &RGBBLACK, &RGBGREY, GetPString(IDS_4SYSTEMVIOTEXT)); stopflag = 0; return mr; } case UM_SETUP: MLEsetlimit(hwnd,32768); MLEsetformat(hwnd,MLFIE_NOTRANS); MLEsetchanged(hwnd,FALSE); return 0; case WM_BUTTON1DOWN: { SWP swp; WinQueryWindowPos(hwnd,&swp); if(SHORT2FROMMP(mp1) > swp.cy - 4) { HPS hps = WinGetPS(WinQueryWindow(hwnd,QW_PARENT)); SWP swpC; TRACKINFO track; if(hps) { WinQueryWindowPos(WinWindowFromID(WinQueryWindow(hwnd,QW_PARENT), FID_CLIENT),&swpC); track.cxBorder = 4; track.cyBorder = 4; track.cxGrid = 1; track.cyGrid = 8; track.cxKeyboard = 8; track.rclTrack.yBottom = swp.y; track.rclTrack.yTop = swp.y + swp.cy; track.rclTrack.xLeft = swp.x; track.rclTrack.xRight = swp.x + swp.cx; track.rclBoundary = track.rclTrack; track.rclBoundary.yTop = (swpC.cy + swp.y + swp.cy) - 116; track.ptlMinTrackSize.x = swp.x + swp.cx; track.ptlMinTrackSize.y = 36; track.ptlMaxTrackSize.x = swp.x + swp.cx; track.ptlMaxTrackSize.y = (swpC.cy + swp.cy) - 116; track.fs = TF_TOP; if(WinTrackRect(hwnd,hps,&track)) { AutoviewHeight = track.rclTrack.yTop - track.rclTrack.yBottom; PrfWriteProfileData(fmprof, FM3Str, "AutoviewHeight", &AutoviewHeight, sizeof(ULONG)); WinSendMsg(WinQueryWindow(hwnd,QW_PARENT), WM_UPDATEFRAME, MPFROMLONG(FCF_SIZEBORDER), MPVOID); } WinReleasePS(hps); } return (MRESULT)TRUE; } else if(id != MAIN_AUTOVIEWMLE) return CommonTextButton(hwnd,msg,mp1,mp2); } break; case WM_BUTTON3DOWN: case WM_BUTTON1UP: case WM_BUTTON3UP: if(id != MAIN_AUTOVIEWMLE) return CommonTextButton(hwnd,msg,mp1,mp2); break; case WM_MOUSEMOVE: shiftstate = (SHORT2FROMMP(mp2) & (KC_ALT | KC_SHIFT | KC_CTRL)); { SWP swp; WinQueryWindowPos(hwnd,&swp); if(SHORT2FROMMP(mp1) > swp.cy - 4) { WinSetPointer(HWND_DESKTOP,hptrNS); return (MRESULT)TRUE; } } break; case WM_PAINT: PostMsg(hwnd, UM_PAINT, MPVOID, MPVOID); break; case UM_PAINT: PaintRecessedWindow(hwnd,(HPS)0,TRUE,TRUE); return 0; case WM_SETFOCUS: switch(id) { case MAIN_AUTOVIEWMLE: if(!mp2 && !AutoMenu) { if(*currfile) { if(MLEgetchanged(hwnd)) { CHAR *ea = malloc(32768); if(ea) { *ea = 0; WinQueryWindowText(hwnd,32767,ea); PutComments(hwnd, currfile, ea); PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(IDM_RESCAN,0), MPVOID); free(ea); } } } } break; default: if(mp2) PostMsg(hwnd, UM_FOCUSME, mp1, mp2); break; } break; case UM_FOCUSME: if(mp2) { PID pid; TID tid; if(WinQueryWindowProcess((HWND)mp1, &pid, &tid) && pid == mypid) WinSetFocus(HWND_DESKTOP, (HWND)mp1); else WinSetFocus(HWND_DESKTOP, hwndTree); } return 0; case UM_CLICKED: case UM_CLICKED3: if(id != MAIN_AUTOVIEWMLE) { PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(((msg == UM_CLICKED3) ? IDM_EAS : IDM_VIEWORARC), 0), MPVOID); } return 0; case WM_COMMAND: PostMsg(hwnd, UM_COMMAND, mp1, mp2); return 0; case UM_COMMAND: switch(SHORT1FROMMP(mp1)) { case IDM_RESCAN: if(*currfile) { CHAR *cf = strdup(currfile); if(cf) { stopflag++; if(!PostMsg(hwndAutoObj, UM_LOADFILE, MPFROMP(cf), MPVOID)) free(cf); } } break; case IDM_INFO: DefaultView(hwnd, (HWND)0, hwndMain, NULL, 16, currfile); break; case IDM_VIEW: DefaultView(hwnd, (HWND)0, hwndMain, NULL, 0, currfile); break; case IDM_EDIT: DefaultView(hwnd, (HWND)0, hwndMain, NULL, 8, currfile); break; case IDM_EAS: { char *list[2]; list[0] = currfile; list[1] = NULL; WinDlgBox(HWND_DESKTOP, hwndMain, DisplayEAsProc, FM3ModHandle, EA_FRAME, (PVOID)list); } break; default: PostMsg(hwndMain, msg, mp1, mp2); } return 0; case WM_MENUEND: if((HWND)mp2 == AutoMenu) { WinDestroyWindow(AutoMenu); AutoMenu = (HWND)0; } break; case WM_CONTEXTMENU: CheckMenu(&AutoMenu,(id == MAIN_AUTOVIEWMLE) ? IDM_AUTOVIEWMLE : IDM_AUTOVIEW); WinCheckMenuItem(AutoMenu, IDM_AUTOVIEWFILE, !fComments); WinCheckMenuItem(AutoMenu, IDM_AUTOVIEWCOMMENTS, fComments); WinEnableMenuItem(AutoMenu, IDM_VIEW, (IsFile(currfile) == 1)); WinEnableMenuItem(AutoMenu, IDM_EDIT, (IsFile(currfile) == 1)); WinEnableMenuItem(AutoMenu, IDM_INFO, (*currfile != 0)); PopupMenu(hwnd, hwnd, AutoMenu); break; case UM_LOADFILE: stopflag++; if(!PostMsg(hwndAutoObj, msg, mp1, mp2)) { if(mp1) free((CHAR *)mp1); } return 0; case UM_CLOSE: if(AutoMenu) { WinDestroyWindow(AutoMenu); AutoMenu = (HWND)0; } WinDestroyWindow(hwnd); return 0; case WM_CLOSE: WinSendMsg(hwnd, UM_CLOSE, MPVOID, MPVOID); return 0; case WM_DESTROY: if(id != MAIN_AUTOVIEWMLE) { if(hwndAutoObj) if(!PostMsg(hwndAutoObj, WM_CLOSE, MPVOID, MPVOID)) WinSendMsg(hwndAutoObj, WM_CLOSE, MPVOID, MPVOID); break; } break; } if(id == MAIN_AUTOVIEWMLE) return PFNWPMLE(hwnd,msg,mp1,mp2); return PFNWPStatic(hwnd,msg,mp1,mp2); }