Context Navigation

source: xtideuniversalbios/trunk/Assembly_Library/Src/Menu/Dialog/DialogFile.asm@ 510

Visit:

Last change on this file since 510 was 505, checked in by krille_n_@…, 12 years ago

Changes:

Reverted the changes to MenuEvents.inc done in r492 since they broke the F1 key function in XTIDECFG.
Added a tail-call optimized variant of the CALL_DISPLAY_LIBRARY macro (JMP_DISPLAY_LIBRARY).
Put a block size limit in AH1Eh_ChangeXTCFmodeBasedOnControlRegisterInAL. I think it's needed but if not, it's easy to remove.
Other optimizations and fixes.

File size: 22.9 KB

Rev	Line
[41]	1	; Project name : Assembly Library
	2	; Description : Displays file dialog.
	3
[376]	4	;
[505]	5	; XTIDE Universal BIOS and Associated Tools
[376]	6	; Copyright (C) 2009-2010 by Tomi Tilli, 2011-2012 by XTIDE Universal BIOS Team.
	7	;
	8	; This program is free software; you can redistribute it and/or modify
	9	; it under the terms of the GNU General Public License as published by
	10	; the Free Software Foundation; either version 2 of the License, or
	11	; (at your option) any later version.
[505]	12	;
[376]	13	; This program is distributed in the hope that it will be useful,
	14	; but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
[505]	16	; GNU General Public License for more details.
[376]	17	; Visit http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
	18	;
[41]	19
	20	CURRENTDIR_CHARACTERS EQU 002Eh
	21	UPDIR_CHARACTERS EQU 2E2Eh
	22
	23	; Section containing code
	24	SECTION .text
	25
	26	;--------------------------------------------------------------------
	27	; DialogFile_GetFileNameWithIoInDSSI
	28	; Parameters:
	29	; DS:SI: Ptr to FILE_DIALOG_IO
	30	; SS:BP: Ptr to parent MENU
	31	; Returns:
	32	; Nothing
	33	; Corrupts registers:
	34	; AX, BX, CX, DX, SI, DI
	35	;--------------------------------------------------------------------
	36	ALIGN JUMP_ALIGN
	37	DialogFile_GetFileNameWithIoInDSSI:
	38	mov bx, FileEventHandler
	39	mov BYTE [si+FILE_DIALOG_IO.bUserCancellation], TRUE
	40	jmp Dialog_DisplayWithDialogInputInDSSIandHandlerInBX
	41
	42
	43	;--------------------------------------------------------------------
	44	; FileEventHandler
	45	; Common parameters for all events:
	46	; BX: Menu event (anything from MENUEVENT struct)
	47	; SS:BP: Ptr to DIALOG
	48	; Common return values for all events:
	49	; CF: Set if event processed
	50	; Cleared if event not processed
	51	; Corrupts registers:
	52	; All
	53	;--------------------------------------------------------------------
	54	ALIGN JUMP_ALIGN
	55	FileEventHandler:
	56	jmp [cs:bx+.rgfnEventHandlers]
	57
	58
	59	ALIGN JUMP_ALIGN
	60	.ItemSelectedFromCX:
	61	call LoadItemStringBufferToESDI
[106]	62	call Registers_CopyESDItoDSSI
[52]	63	call ItemLineSplitter_GetLineToDSSIandLengthToCXfromStringInDSSIwithIndexInCX
[41]	64	jmp ParseSelectionFromItemLineInDSSI
	65
	66
	67	ALIGN JUMP_ALIGN
	68	.RefreshInformation:
	69	call GetInfoLinesToCXandDialogFlagsToAX
	70	mov si, [cs:.rgszInfoStringLookup]
	71	xor bx, bx
	72	xchg dx, ax
	73	ALIGN JUMP_ALIGN
	74	.InfoLineLoop:
	75	shr dl, 1
	76	jnc SHORT .CheckNextFlag
	77	mov si, [cs:bx+.rgszInfoStringLookup]
	78	push bx
	79	CALL_DISPLAY_LIBRARY PrintNullTerminatedStringFromCSSI
	80	pop bx
	81	ALIGN JUMP_ALIGN
	82	.CheckNextFlag:
	83	inc bx
	84	inc bx
	85	loop .InfoLineLoop
	86	stc ; Event processed
	87	ret
	88
	89
[53]	90	ALIGN JUMP_ALIGN
	91	.RefreshItemFromCX:
	92	call LoadItemStringBufferToESDI
	93	mov ax, FILE_STRING_LENGTH
	94	xchg ax, cx
	95	mul cx
	96	add di, ax
	97	mov si, di
	98	mov bx, es
	99	dec cx ; Do not print LF at the end of file string
	100	CALL_DISPLAY_LIBRARY PrintCharBufferFromBXSIwithLengthInCX
	101	stc
	102	ret
	103
	104
[41]	105	ALIGN WORD_ALIGN
	106	.rgszInfoStringLookup:
	107	dw g_szChangeDrive
	108	dw g_szSelectDirectory
	109	dw g_szCreateNew
	110
	111	.rgfnEventHandlers:
	112	istruc MENUEVENT
	113	at MENUEVENT.InitializeMenuinitFromDSSI, dw InitializeMenuinitFromSSBP
[58]	114	at MENUEVENT.ExitMenu, dw Dialog_EventExitMenu
[41]	115	at MENUEVENT.IdleProcessing, dw Dialog_EventNotHandled
	116	at MENUEVENT.ItemHighlightedFromCX, dw Dialog_EventNotHandled
	117	at MENUEVENT.ItemSelectedFromCX, dw .ItemSelectedFromCX
	118	at MENUEVENT.KeyStrokeInAX, dw HandleFunctionKeyFromAH
	119	at MENUEVENT.RefreshTitle, dw Dialog_EventRefreshTitle
	120	at MENUEVENT.RefreshInformation, dw .RefreshInformation
[53]	121	at MENUEVENT.RefreshItemFromCX, dw .RefreshItemFromCX
[41]	122	iend
	123
	124
	125	;--------------------------------------------------------------------
[54]	126	; ReInitializeMenuinitFromSSBP
[41]	127	; InitializeMenuinitFromSSBP
	128	; Parameters:
	129	; SS:BP: Ptr to DIALOG
	130	; Returns:
	131	; Nothing
	132	; Corrupts registers:
	133	; All, except BP
	134	;--------------------------------------------------------------------
	135	ALIGN JUMP_ALIGN
[54]	136	ReInitializeMenuinitFromSSBP:
	137	call DisplayLoadingMessageInInformationArea
[41]	138	InitializeMenuinitFromSSBP:
	139	call LoadItemStringBufferToESDI
	140	call CreateStringFromCurrentDirectoryContentsToESDI
[46]	141	call LoadItemStringBufferToESDI
	142	call SortDirectoryContentsStringFromESDIwithCountInCX
[53]	143	call RemoveLastLFandTerminateESDIwithNull
[54]	144
[106]	145	call Registers_CopySSBPtoDSSI
[52]	146	xor ax, ax
	147	call Dialog_EventInitializeMenuinitFromDSSIwithHighlightedItemInAX
[41]	148	call GetInfoLinesToCXandDialogFlagsToAX
	149	mov [bp+MENUINIT.bInfoLines], cl
	150	CALL_DISPLAY_LIBRARY GetColumnsToALandRowsToAH
	151	mov [bp+MENUINIT.bHeight], ah ; Always max height
[52]	152	mov WORD [bp+MENU.wFirstVisibleItem], 0
[41]	153	ret
	154
	155
	156	;--------------------------------------------------------------------
	157	; LoadItemStringBufferToESDI
	158	; Parameters:
	159	; SS:BP: Ptr to DIALOG
	160	; Returns:
	161	; ES:DI: Ptr to item string buffer
	162	; Corrupts registers:
	163	; Nothing
	164	;--------------------------------------------------------------------
	165	ALIGN JUMP_ALIGN
	166	LoadItemStringBufferToESDI:
	167	les di, [bp+DIALOG.fpDialogIO]
	168	les di, [es:di+FILE_DIALOG_IO.fszItemBuffer]
	169	ret
	170
	171
	172	;--------------------------------------------------------------------
	173	; CreateStringFromCurrentDirectoryContentsToESDI
	174	; Parameters:
	175	; ES:DI: Buffer where to create item string
	176	; SS:BP: Ptr to DIALOG
	177	; Returns:
[46]	178	; CX: Number of files or directories found
[41]	179	; Corrupts registers:
[53]	180	; AX, BX, DX, SI, DI, DS
[41]	181	;--------------------------------------------------------------------
	182	ALIGN JUMP_ALIGN
	183	CreateStringFromCurrentDirectoryContentsToESDI:
[53]	184	mov bx, di
	185	CALL_DISPLAY_LIBRARY PushDisplayContext
	186	mov cx, -1
	187	CALL_DISPLAY_LIBRARY PrepareOffScreenBufferInESBXwithLengthInCX ; ES:DI now points to buffer
	188
[41]	189	lds si, [bp+DIALOG.fpDialogIO]
[293]	190	eMOVZX cx, [si+FILE_DIALOG_IO.bFileAttributes]
[41]	191	lds si, [si+FILE_DIALOG_IO.fpFileFilterString]
	192	call Directory_UpdateDTAForFirstMatchForDSSIwithAttributesInCX
[53]	193
[41]	194	call .ClearDLifInRootDirectory
	195	call Directory_GetDiskTransferAreaAddressToDSSI
[46]	196	xor cx, cx ; Clear file/directory count
[53]	197	call .FindMatchingFilesAndPrintThemToOffScreenBuffer
[41]	198
[505]	199	JMP_DISPLAY_LIBRARY PopDisplayContext
[41]	200
	201	;--------------------------------------------------------------------
	202	; .ClearDLifInRootDirectory
	203	; Parameters:
	204	; SS:BP: Ptr to DIALOG
	205	; ES:DI: Ptr to destination string buffer
	206	; Returns:
	207	; DL: Cleared if in root directory
	208	; Set if in any other directory
	209	; Corrupts registers:
	210	; AX, SI, DS
	211	;--------------------------------------------------------------------
	212	ALIGN JUMP_ALIGN
	213	.ClearDLifInRootDirectory:
[106]	214	call Registers_CopyESDItoDSSI
[41]	215	call Directory_WriteCurrentPathToDSSI
	216	mov dl, [si]
	217	ret
	218
	219	;--------------------------------------------------------------------
[53]	220	; .FindMatchingFilesAndPrintThemToOffScreenBuffer
[41]	221	; Parameters:
[53]	222	; CX: Initial directory count
	223	; DL: Zero if root directory selected
	224	; DS:SI: Ptr to DTA with first matching file
[41]	225	; Returns:
[53]	226	; CX: Incremented by number of files/directories found
[41]	227	; Corrupts registers:
[53]	228	; AX, BX, DX, DI, DS
[41]	229	;--------------------------------------------------------------------
	230	ALIGN JUMP_ALIGN
[53]	231	.FindMatchingFilesAndPrintThemToOffScreenBuffer:
	232	call AppendFileFromDTAinDSSItoOffScreenBuffer
	233	call Directory_UpdateDTAForNextMatchUsingPreviousParameters
	234	jnc SHORT .FindMatchingFilesAndPrintThemToOffScreenBuffer
[41]	235	ret
	236
[46]	237
[41]	238	;--------------------------------------------------------------------
[53]	239	; AppendFileFromDTAinDSSItoOffScreenBuffer
[41]	240	; Parameters:
[46]	241	; CX: Files/directores found
[41]	242	; DL: Zero if root directory selected
	243	; DS:SI: Ptr to DTA containing file information
	244	; Returns:
[46]	245	; CX: Incremented by number of files/directories found
[41]	246	; Corrupts registers:
[53]	247	; AX, BX
[41]	248	;--------------------------------------------------------------------
	249	ALIGN JUMP_ALIGN
[53]	250	AppendFileFromDTAinDSSItoOffScreenBuffer:
[41]	251	call .FilterCurrentDirectory ; We never want "."
	252	call .FilterUpDirectoryWhenInRoot ; No ".." when in root directory
[46]	253	inc cx ; Nothing filtered so increment files/directories
[41]	254
	255	push bp
	256	push si
[53]	257	push dx
[46]	258	push cx
[41]	259	call .FormatFileOrDirectoryToBufferFromDTAinDSSI
[46]	260	pop cx
[53]	261	pop dx
[41]	262	pop si
	263	pop bp
	264	ret
	265
	266	;--------------------------------------------------------------------
[53]	267	; .FilterCurrentDirectory
	268	; .FilterUpDirectoryWhenInRoot
	269	; Parameters:
	270	; DL: Zero if root directory selected
	271	; DS:SI: Ptr to DTA containing file information
	272	; Returns:
	273	; Nothing
	274	; Returns from AppendFileToBufferInESDIfromDtaInDSSI when filtering
	275	; Corrupts registers:
	276	; AX
	277	;--------------------------------------------------------------------
	278	ALIGN JUMP_ALIGN
	279	.FilterCurrentDirectory:
	280	cmp WORD [si+DTA.szFile], CURRENTDIR_CHARACTERS
[181]	281	je SHORT .DoFilter
[53]	282	ret
	283
	284	ALIGN JUMP_ALIGN
	285	.FilterUpDirectoryWhenInRoot:
	286	test dl, dl ; Set ZF if root directory selected
	287	jnz SHORT .ReturnWithoutFiltering
	288	cmp WORD [si+DTA.szFile], UPDIR_CHARACTERS
	289	jne SHORT .ReturnWithoutFiltering
[181]	290	.DoFilter:
[53]	291	add sp, BYTE 2 ; Remove return address from stack
	292	ALIGN JUMP_ALIGN, ret
	293	.ReturnWithoutFiltering:
	294	ret
	295
	296	;--------------------------------------------------------------------
[41]	297	; .FormatFileOrDirectoryToBufferFromDTAinDSSI
	298	; Parameters:
	299	; DS:SI: Ptr to DTA containing file information
	300	; Returns:
	301	; Nothing
	302	; Corrupts registers:
	303	; AX, BX, CX, DX, SI, DI, BP
	304	;--------------------------------------------------------------------
	305	ALIGN JUMP_ALIGN
	306	.FormatFileOrDirectoryToBufferFromDTAinDSSI:
	307	mov bp, sp
	308	lea ax, [si+DTA.szFile]
	309
	310	test BYTE [si+DTA.bFileAttributes], FLG_FILEATTR_DIRECTORY
	311	jnz SHORT .FormatDirectory
[46]	312	; Fall to .FormatFile
[41]	313
[46]	314	;--------------------------------------------------------------------
	315	; .FormatFile
	316	; Parameters:
	317	; BP: SP before pushing formatting parameters
	318	; DS:AX: Far pointer to file name
	319	; DS:SI: Ptr to DTA containing file information
	320	; Returns:
	321	; Nothing
	322	; Corrupts registers:
[53]	323	; AX, BX, CX, DX, SI, DI
[46]	324	;--------------------------------------------------------------------
	325	.FormatFile:
	326	xchg si, ax
[53]	327	call String_ConvertDSSItoLowerCase
[46]	328	xchg ax, si
[52]	329
	330	; Push parameters for file name
[53]	331	push ax ; Push file name offset
	332	push ds ; Push file name segment
[46]	333
	334	; Push parameters for file size
[41]	335	mov ax, [si+DTA.dwFileSize]
	336	mov dx, [si+DTA.dwFileSize+2]
	337	xor bx, bx
	338	xor cx, cx
	339	call Size_GetSizeToAXAndCharToDLfromBXDXAXwithMagnitudeInCX
	340	mov cl, 'i'
	341	cmp dl, ' '
	342	eCMOVE cl, dl
	343	push ax
	344	push dx
	345	push cx
[46]	346
	347	; Format to buffer
[41]	348	mov si, g_szFileFormat
	349	jmp SHORT .FormatStringInCSSIandReturn
	350
[46]	351	;--------------------------------------------------------------------
	352	; .FormatDirectory
	353	; Parameters:
	354	; BP: SP before pushing formatting parameters
	355	; DS:AX: Far pointer to directory name
	356	; DS:SI: Ptr to DTA containing file information
	357	; Returns:
	358	; Nothing
	359	; Corrupts registers:
[53]	360	; AX, SI, DI
[46]	361	;--------------------------------------------------------------------
[41]	362	ALIGN JUMP_ALIGN
	363	.FormatDirectory:
[46]	364	push ax ; Push directory name offset
	365	push ds ; Push directory name segment
[41]	366	mov ax, g_szSub
	367	cmp WORD [si+DTA.szFile], UPDIR_CHARACTERS
	368	eCMOVE ax, g_szUp
	369	push ax
	370	mov si, g_szDirectoryFormat
	371	ALIGN JUMP_ALIGN
	372	.FormatStringInCSSIandReturn:
[505]	373	JMP_DISPLAY_LIBRARY FormatNullTerminatedStringFromCSSI
[41]	374
	375
	376	;--------------------------------------------------------------------
[46]	377	; SortDirectoryContentsStringFromESDIwithCountInCX
	378	; Parameters:
	379	; CX: Number of files and directories
	380	; ES:DI: Buffer containing directory contents string
	381	; SS:BP: Ptr to DIALOG
	382	; Returns:
[53]	383	; ES:DI: Ptr to end of directory contents string
[46]	384	; Corrupts registers:
[53]	385	; AX, BX, CX, DX, SI, DS
[46]	386	;--------------------------------------------------------------------
	387	ALIGN JUMP_ALIGN
	388	SortDirectoryContentsStringFromESDIwithCountInCX:
[106]	389	call Registers_CopyESDItoDSSI
[46]	390
[181]	391	; Add directory contents string length to DI
[53]	392	mov ax, FILE_STRING_LENGTH
[181]	393	push ax
[53]	394	mul cx
	395	add di, ax
	396
[181]	397	mov dx, cx
	398	pop cx
	399	mov bx, .FileStringComparator
	400	jmp Sort_ItemsFromDSSIwithCountInDXsizeInCXandComparatorInBX
	401
[46]	402	;--------------------------------------------------------------------
	403	; .FileStringComparator
	404	; Parameters:
	405	; CX: Item size in bytes
	406	; DS:SI: Ptr to first item to compare
	407	; ES:DI: Ptr to second item to compare
	408	; Returns:
[181]	409	; FLAGS: Signed comparison between first and second item
[46]	410	; Corrupts registers:
	411	; Nothing
	412	;--------------------------------------------------------------------
	413	ALIGN JUMP_ALIGN
	414	.FileStringComparator:
	415	push di
	416	push si
	417	push cx
	418	push bx
	419
	420	mov bx, FILE_STRING_LENGTH-2 ; Zero BH
	421	cmp WORD [si], UPDIR_CHARACTERS
	422	je SHORT .ForceValueFromDSSItoBeLess
	423	mov bl, [si+bx]
	424	cmp bl, [es:di+FILE_STRING_LENGTH-2] ; 'B' for files, 'R' for directories
	425	jne SHORT .ForceValueFromDSSItoBeMoreOrLess
	426	repe cmpsb ; Two directories or two files
	427
	428	ALIGN JUMP_ALIGN
	429	.ReturnFromComparison:
	430	pop bx
	431	pop cx
	432	pop si
	433	pop di
	434	ret
	435	ALIGN JUMP_ALIGN
	436	.ForceValueFromDSSItoBeMoreOrLess:
	437	ja SHORT .ForceValueFromDSSItoBeLess ; Directory in SI, file in DI
	438	xchg bl, bh
	439	; Fall to ForceValueFromDSSItoBeLess
	440	ALIGN JUMP_ALIGN
	441	.ForceValueFromDSSItoBeLess:
	442	cmp bh, bl
	443	jmp SHORT .ReturnFromComparison
	444
	445
	446	;--------------------------------------------------------------------
[54]	447	; RemoveLastLFandTerminateESDIwithNull
	448	; Parameters:
	449	; ES:DI: Ptr to end of buffer to terminate
	450	; Returns:
	451	; Nothing
	452	; Corrupts registers:
	453	; AX
	454	;--------------------------------------------------------------------
	455	ALIGN JUMP_ALIGN
	456	RemoveLastLFandTerminateESDIwithNull:
	457	dec di
	458	xor ax, ax
	459	stosb
	460	ret
	461
	462
	463	;--------------------------------------------------------------------
[41]	464	; GetInfoLinesToCXandDialogFlagsToAX
	465	; Parameters:
	466	; SS:BP: Ptr to DIALOG
	467	; Returns:
	468	; AX: Dialog flags
	469	; CX: Number of info lines to be displayed
	470	; Corrupts registers:
	471	; SI, DS
	472	;--------------------------------------------------------------------
	473	ALIGN JUMP_ALIGN
	474	GetInfoLinesToCXandDialogFlagsToAX:
	475	xor ax, ax
	476	call GetDialogFlagsToAL
	477	jmp Bit_GetSetCountToCXfromAX
	478
	479	;--------------------------------------------------------------------
	480	; GetDialogFlagsToAL
	481	; Parameters:
	482	; SS:BP: Ptr to DIALOG
	483	; Returns:
	484	; AL: Dialog flags
	485	; Corrupts registers:
	486	; SI, DS
	487	;--------------------------------------------------------------------
	488	ALIGN JUMP_ALIGN
	489	GetDialogFlagsToAL:
	490	lds si, [bp+DIALOG.fpDialogIO]
	491	mov al, [si+FILE_DIALOG_IO.bDialogFlags]
	492	ret
	493
	494
	495	;--------------------------------------------------------------------
	496	; ParseSelectionFromItemLineInDSSI
	497	; Parameters:
	498	; DS:SI: Ptr to char buffer containing file or directory to be selected
	499	; SS:BP: Ptr to DIALOG
	500	; Returns:
	501	; Nothing
	502	; Corrupts registers:
	503	; All, except BP
	504	;--------------------------------------------------------------------
	505	ALIGN JUMP_ALIGN
	506	ParseSelectionFromItemLineInDSSI:
[46]	507	mov ax, [si]
	508	cmp ax, UPDIR_CHARACTERS
	509	je SHORT .ChangeToUpdir
	510	call Char_IsUpperCaseLetterInAL
	511	jc SHORT .ParseAndChangeToSubdirInDSSI
[141]	512	call Char_IsDecimalDigitInAL
	513	jc SHORT .ParseAndChangeToSubdirInDSSI ; Assume subdir and check for errors
[46]	514	; Fall to .ParseAndSelectFileFromDSSI
[41]	515
	516	;--------------------------------------------------------------------
[46]	517	; .ParseAndSelectFileFromDSSI
[41]	518	; Parameters:
[46]	519	; DS:SI: NULL terminated string selected from dialog
[41]	520	; SS:BP: Ptr to DIALOG
	521	; Returns:
	522	; Nothing (exits dialog)
	523	; Corrupts registers:
	524	; All, except BP
	525	;--------------------------------------------------------------------
[46]	526	.ParseAndSelectFileFromDSSI:
[41]	527	les di, [bp+DIALOG.fpDialogIO]
	528	add di, BYTE FILE_DIALOG_IO.szFile
	529	mov cx, FILENAME_BUFFER_SIZE-1
[50]	530	call Memory_CopyCXbytesFromDSSItoESDI
[41]	531	xor ax, ax
	532	stosb ; Terminate with NULL
[293]	533	jmp SHORT CloseFileDialogAfterSuccessfulSelection
[41]	534
	535	;--------------------------------------------------------------------
[46]	536	; .ChangeToUpdir
[41]	537	; Parameters:
	538	; SS:BP: Ptr to DIALOG
	539	; Returns:
	540	; Nothing
	541	; Corrupts registers:
	542	; All, except BP
	543	;--------------------------------------------------------------------
	544	ALIGN JUMP_ALIGN
[46]	545	.ChangeToUpdir:
[51]	546	push cs
	547	pop ds
[46]	548	mov si, g_szUpdir
	549	jmp SHORT .ChangeDirectoryToDSSI
	550
	551	;--------------------------------------------------------------------
	552	; .ParseAndChangeToSubdirInDSSI
	553	; Parameters:
	554	; DS:SI: NULL terminated string selected from dialog
	555	; SS:BP: Ptr to DIALOG
	556	; Returns:
	557	; Nothing
	558	; Corrupts registers:
	559	; All, except BP
	560	;--------------------------------------------------------------------
	561	ALIGN JUMP_ALIGN
	562	.ParseAndChangeToSubdirInDSSI:
	563	mov BYTE [si+12], NULL ; Terminate with NULL (unnecessary spaces do not matter)
	564	.ChangeDirectoryToDSSI:
[41]	565	call Directory_ChangeToPathFromDSSI
[141]	566	jc SHORT .ParseAndSelectFileFromDSSI ; Must have been a file starting with number
[41]	567	; Fall to RefreshFilesToDisplay
	568
	569	;--------------------------------------------------------------------
	570	; RefreshFilesToDisplay
	571	; Parameters:
	572	; SS:BP: Ptr to DIALOG
	573	; Returns:
	574	; Nothing
	575	; Corrupts registers:
	576	; All, except BP
	577	;--------------------------------------------------------------------
	578	ALIGN JUMP_ALIGN
	579	RefreshFilesToDisplay:
[54]	580	call ReInitializeMenuinitFromSSBP
[41]	581	jmp MenuInit_RefreshMenuWindow
	582
	583
	584	;--------------------------------------------------------------------
	585	; HandleFunctionKeyFromAH
	586	; Parameters:
	587	; AH: Scancode for function key
	588	; SS:BP: Ptr to DIALOG
	589	; Returns:
	590	; Nothing
	591	; Corrupts registers:
	592	; AX, SI, DI, BP
	593	;--------------------------------------------------------------------
	594	ALIGN JUMP_ALIGN
	595	HandleFunctionKeyFromAH:
	596	call GetDialogFlagsToAL
	597	cmp ah, KEY_FILEDIALOG_NEW_FILE_OR_DIR
	598	je SHORT HandleFunctionKeyForCreatingNewFileOrDirectory
	599	cmp ah, KEY_FILEDIALOG_SELECT_DIRECTORY
	600	je SHORT HandleFunctionKeyForSelectingDirectoryInsteadOfFile
	601	cmp ah, KEY_FILEDIALOG_CHANGE_DRIVE
	602	je SHORT HandleFunctionKeyForDriveChange
	603	ReturnWithoutHandlingKeystroke:
	604	clc ; Event not processed
	605	ret
	606
	607
	608	;--------------------------------------------------------------------
	609	; HandleFunctionKeyForCreatingNewFileOrDirectory
	610	; Parameters:
	611	; AL: File dialog flags
	612	; SS:BP: Ptr to DIALOG
	613	; Returns:
	614	; Closes file dialog
	615	; Corrupts registers:
	616	; All, except BP
	617	;--------------------------------------------------------------------
	618	ALIGN JUMP_ALIGN
	619	HandleFunctionKeyForCreatingNewFileOrDirectory:
	620	test al, FLG_FILEDIALOG_NEW
	621	jz SHORT ReturnWithoutHandlingKeystroke
	622
	623	mov cx, STRING_DIALOG_IO_size
	624	call Memory_ReserveCXbytesFromStackToDSSI
	625	call .InitializeStringDialogIoInDSSIforInputtingFileName
	626
	627	CALL_MENU_LIBRARY GetStringWithIoInDSSI
	628	mov al, [si+STRING_DIALOG_IO.bUserCancellation]
	629	add sp, BYTE STRING_DIALOG_IO_size
	630	test al, al ; User cancellation?
	631	jnz SHORT ReturnWithoutHandlingKeystroke
[293]	632	jmp CloseFileDialogAfterSuccessfulSelection
[41]	633
	634	ALIGN JUMP_ALIGN
	635	.InitializeStringDialogIoInDSSIforInputtingFileName:
	636	call InitializeNullStringsToDialogInputInDSSI
	637	mov WORD [si+DIALOG_INPUT.fszTitle], g_szEnterNewFileOrDirectory
	638	mov WORD [si+STRING_DIALOG_IO.fnCharFilter], NULL
	639	mov WORD [si+STRING_DIALOG_IO.wBufferSize], FILENAME_BUFFER_SIZE
	640	les ax, [bp+DIALOG.fpDialogIO]
	641	add ax, BYTE FILE_DIALOG_IO.szFile
	642	mov [si+STRING_DIALOG_IO.fpReturnBuffer], ax
	643	mov [si+STRING_DIALOG_IO.fpReturnBuffer+2], es
	644	ret
	645
	646
	647	;--------------------------------------------------------------------
	648	; HandleFunctionKeyForSelectingDirectoryInsteadOfFile
	649	; Parameters:
	650	; AL: File dialog flags
	651	; SS:BP: Ptr to DIALOG
	652	; Returns:
	653	; Closes file dialog
	654	; Corrupts registers:
	655	; All, except BP
	656	;--------------------------------------------------------------------
	657	ALIGN JUMP_ALIGN
	658	HandleFunctionKeyForSelectingDirectoryInsteadOfFile:
	659	test al, FLG_FILEDIALOG_DIRECTORY
	660	jz SHORT ReturnWithoutHandlingKeystroke
[293]	661	; Fall to CloseFileDialogAfterSuccessfulSelection
[41]	662
	663	;--------------------------------------------------------------------
[293]	664	; CloseFileDialogAfterSuccessfulSelection
[41]	665	; Parameters:
	666	; SS:BP: Ptr to DIALOG
	667	; Returns:
	668	; Nothing (exits dialog)
	669	; Corrupts registers:
	670	; All, except BP
	671	;--------------------------------------------------------------------
	672	ALIGN JUMP_ALIGN
[293]	673	CloseFileDialogAfterSuccessfulSelection:
[41]	674	lds di, [bp+DIALOG.fpDialogIO]
	675	mov BYTE [di+FILE_DIALOG_IO.bUserCancellation], FALSE
	676	jmp MenuInit_CloseMenuWindow
	677
	678
	679	;--------------------------------------------------------------------
	680	; HandleFunctionKeyForDriveChange
	681	; Parameters:
	682	; AL: File dialog flags
	683	; SS:BP: Ptr to DIALOG
	684	; Returns:
	685	; Nothing
	686	; Corrupts registers:
	687	; All, except BP
	688	;--------------------------------------------------------------------
	689	ALIGN JUMP_ALIGN
	690	HandleFunctionKeyForDriveChange:
	691	test al, FLG_FILEDIALOG_DRIVES
	692	jz SHORT ReturnWithoutHandlingKeystroke
	693
[54]	694	call DisplayLoadingMessageInInformationArea
	695	mov cx, DRIVE_DIALOG_IO_size
	696	call Memory_ReserveCXbytesFromStackToDSSI
	697	call .DisplayDriveSelectionDialogWithIoInDSSI
	698	call .ChangeDriveToUserSelectionFromIoInDSSI
	699	add sp, BYTE DRIVE_DIALOG_IO_size
	700	ret
[41]	701
	702	;--------------------------------------------------------------------
[54]	703	; .DisplayDriveSelectionDialogWithIoInDSSI
[41]	704	; Parameters:
[54]	705	; DS:SI: Ptr to uninitialized DRIVE_DIALOG_IO
[41]	706	; SS:BP: Ptr to DIALOG
	707	; Returns:
[54]	708	; DS:SI: Ptr to DRIVE_DIALOG_IO
[41]	709	; Corrupts registers:
[54]	710	; AX, DI
[41]	711	;--------------------------------------------------------------------
	712	ALIGN JUMP_ALIGN
[54]	713	.DisplayDriveSelectionDialogWithIoInDSSI:
[41]	714	call InitializeNullStringsToDialogInputInDSSI
	715	mov WORD [si+DIALOG_INPUT.fszTitle], g_szSelectNewDrive
[54]	716	CALL_MENU_LIBRARY GetDriveWithIoInDSSI
	717	ret
[41]	718
	719	;--------------------------------------------------------------------
[54]	720	; .ChangeDriveToUserSelectionFromIoInDSSI
[41]	721	; Parameters:
[54]	722	; DS:SI: Ptr to DRIVE_DIALOG_IO
[41]	723	; SS:BP: Ptr to DIALOG
	724	; Returns:
	725	; Nothing
	726	; Corrupts registers:
[54]	727	; All, except BP
[41]	728	;--------------------------------------------------------------------
	729	ALIGN JUMP_ALIGN
[54]	730	.ChangeDriveToUserSelectionFromIoInDSSI:
	731	cmp BYTE [si+DRIVE_DIALOG_IO.bUserCancellation], FALSE
	732	jne SHORT .UserCancelledDriveChange
[41]	733
[54]	734	mov dl, [si+DRIVE_DIALOG_IO.bReturnDriveNumber]
	735	call Drive_SetDefaultFromDL
	736	jmp RefreshFilesToDisplay
	737	.UserCancelledDriveChange:
[41]	738	ret
	739
	740
	741	;--------------------------------------------------------------------
[54]	742	; DisplayLoadingMessageInInformationArea
[53]	743	; Parameters:
[54]	744	; SS:BP: Ptr to DIALOG
[53]	745	; Returns:
	746	; Nothing
	747	; Corrupts registers:
[54]	748	; AX, BX, CX, DX, SI, DI
[53]	749	;--------------------------------------------------------------------
	750	ALIGN JUMP_ALIGN
[54]	751	DisplayLoadingMessageInInformationArea:
	752	call MenuText_ClearInformationArea
	753	call MenuText_PrepareToDrawInformationArea
	754	mov si, g_szLoadingPleaseWait
[505]	755	JMP_DISPLAY_LIBRARY PrintNullTerminatedStringFromCSSI
[53]	756
	757
	758	;--------------------------------------------------------------------
[41]	759	; InitializeNullStringsToDialogInputInDSSI
	760	; Parameters:
	761	; DS:SI: Ptr to DIALOG_INPUT
	762	; SS:BP: Ptr to DIALOG
	763	; Returns:
	764	; Nothing
	765	; Corrupts registers:
	766	; AX
	767	;--------------------------------------------------------------------
	768	ALIGN JUMP_ALIGN
	769	InitializeNullStringsToDialogInputInDSSI:
	770	mov ax, g_szNull
	771	mov [si+DIALOG_INPUT.fszTitle], ax
	772	mov [si+DIALOG_INPUT.fszTitle+2], cs
	773	mov [si+DIALOG_INPUT.fszItems], ax
	774	mov [si+DIALOG_INPUT.fszItems+2], cs
	775	mov [si+DIALOG_INPUT.fszInfo], ax
	776	mov [si+DIALOG_INPUT.fszInfo+2], cs
	777	ret

Note: See TracBrowser for help on using the repository browser.

Download in other formats: