Table of contents -> Chapter 17 - The default Teimsi's Framework and the sample projects

	includec(º_scriptdir_\local_bmp_compresion.thp)		//	Includes a file "local_bmp_compresion" (standard) which is found in the current ".Tsi" script's folder.

	include_tco(tco_inc\bitmaps\bmpobject.tco)		//	Includes the object file "bmpobject.tco" found within the folder "tco_inc\bitmaps" which is also inside the directory of the TEIMSI installation.

; //########################################################################################################
	
	/*
	
		Unlike small files (about less than 500 kilobytes) text files larger should be treated differently or otherwise an insufficient memory error will be generated in the instruction "var arr_lines=explode(_nl,binary_read(arr_files[t]));", that happens because the "explode" function creates an array whose items are strings, each string uses a internal handler whose quantity is limited in our version of the compiler; also there is a long time consuming to build the array of rows. Therefore for processing big files it's recommended to speed up the task leaning on the assembler.
	
		The example below is relatively fast compared to other methods, although the sum of strings in TEIMSI may be much slower than in assembler. Be displayed as rows are fetched from a unique string that contains the contents of the input file.
	
	*/
	
		main()
		
		function main(){
		_savelocal: ult_linea dd ?,num_b_nl dd ?, pos_final dd ?, et_tocall dd ?, tmppos_esi dd ?
	
			// "_savelocal" declares local variables in the procedure expressed into assembler language.
	
			alert_ex("This sample program, will try to load the file \"huge.txt\", numerate it's lines and put the resulting text on the file \"huge2.txt\" !", "Information", _mb_iconinformation);
	
			var inputfile="huge.txt";
			var outputfile="huge2.txt";
	
			if(-fileexists(inputfile)){
				alert_ex("Unable to locate the file " + inputfile, "Information", _mb_iconinformation);
				return;
			}
			var file_content=binary_read(inputfile)		//	Read the file's content into a single large string.
	
			var maxsizeline=2000, line=str_repeatn(" ", maxsizeline), reco_reti=0, strout=""	//	These variables are used in the processing of the input text, the "line" variable has a buffer space,
															// is where each row of the file is placed and should not be changed.
	
			var counter=1 	//	The counter indicates the number of initial row, it will increase with each processed row.
	
		//	The following assembler code located in block "_direct" is responsible for initializing variables that will be used by the internal routine "WALKOVER_TEXT"; that routine will be called in a "cycle" that will load each row of the file contents into the "line" variable.
	
	
	jmp(continuation_temisi)
	
	; //###############################
	
	//	These lines have a routine that processes each loaded row, the "processing_line" label indicates the start of this routine which is called from assembler.
	
	processing_line:
	
		var line2= counter+"- "+line
		counter++
		strout=strout+line2+_nl

		//	On this TEIMSI block, one might only write:  strout=strout+line+_nl, which would leave the output file "huge2.txt" with the same contents of the input file "huge.txt" but before that we process the line of the row to perform the desired "numbering" task.
		//	
		//	In this case the "line" variable should not be changed because its internal data buffer is used by assembler. The "reco_reti" variable has a zero, but you may indicate reco_reti=1 if I an error occurred (eg syntax error in the row), which will make that the line read cycle were interrupted and displayed the message "Error in the row " (contents of the row).
	
	_direct{
		mov eax, [reco_reti+reg.vo]
		RET
	}
	
	; //###############################
	
	continuation_temisi:
		_direct{
			mov [tmppos_esi], 0				;	Load the pointer from memory and the length of the "file_content" string.
			mov eax, [file_content+reg.vo]
			NWPOS_eax
			mov ecx, [file_content+reg.nu]
			m2ma [et_tocall], (processing_line)
			mov [reco_reti+reg.vo], 0
	
			call WALKOVER_TEXT
		}
		if(reco_reti==1){
			alert("Error found on line " +line)
			sys.quit()
		}
	
		binary_write(outputfile,strout)
	
		alert_ex("Written data on the file " + outputfile, "Information", _mb_iconinformation);
	return;

			_direct{

			WALKOVER_TEXT:
	
			;	Below is the "cycle" that puts in the "line" variable every row of the input text file.
	
				mov eax, [file_content+reg.vo]		;	Determine the pointer on memory with the file's content.
				NWPOS_eax
				mov [tmppos_esi], esi
				mov ecx, [file_content+reg.nu]
				mov [ult_linea], 0
			
				lea eax, [esi+ecx]
				mov [pos_final], eax
			
				task_c1:
	
					mov ecx, [pos_final]			;	A row ends with a line feed character chr(10) or with the string chr(13)+chr(10).
					sub ecx, esi
			
					mov edi, esi
					mov al, 10
			
					or ebx, 1
					repnz scasb
					jz @f
						mov [ult_linea], 1		;	Activates last row indicator if it's reached the end of the file.
					@@:
					jnz @f
						mov [num_b_nl], 1
				
						dec edi
						cmp byte [edi-1], 13
						jnz @f
				
						mov [num_b_nl], 2
						dec edi
					@@:
					mov ecx, edi
					sub ecx, esi
	
				push esi ecx ebx
	
					cmp ecx, [maxsizeline+reg.vo]		;	To avoid problems the size of each readen row is limited.
					jb @f
						mov ecx, [maxsizeline+reg.vo]
					@@:
	
					mov [line+reg.nu], ecx			;	The length of the row was loaded, now it's need to copy it to the "line" variable and process it.
					mov eax, [line+reg.vo]
					NWPOS_eaxedi
			
					mov eax, ecx
					and eax, 3
					shr ecx, 2
					rep movsd
					mov ecx, eax
					rep movsb
			
					call dword [et_tocall]
	
					mov ebx, [file_content+reg.vo]		;	now adjusts the [pos_final] variable in case that the position in memory of the file's content has changed.
					NWPOS_ebx
	
					mov edx, esi
					sub esi, [tmppos_esi]
					jz @f
						mov [tmppos_esi], edx
						add edx, [file_content+reg.nu]
						mov [pos_final], edx
						add [ss:esp+8], esi			;	esi = (oldesi - oldloccad) + newloccad
					@@:
	
				pop  ebx ecx esi
	
					mov byte [esi+ecx], bl
	
					cmp eax, 1
					jz @f
				
					add esi, ecx
					add esi, [num_b_nl]
	
				cmp [ult_linea], 0
				jz task_c1
				@@:

			RET
			}
		}
@eof_file

; //########################################################################################################

; //########################################################################################################

	/*
		This program obtains information about physical and virtual memory using the "GlobalMemoryStatus" function from the kernel32 library. More information can be
	 found in the documentation of the Win * operating systems API's in the file "win32.hlp" downloadable from the internet using the links to the available tools of the Links chapter.
	
	*/
	
	place_idata{
	
		struct _MEMORYSTATUS
			dwLength		dd ?
			dwMemoryLoad		dd ?
			dwTotalPhys		dd ?
			dwAvailPhys		dd ?
			dwTotalPageFile	dd ?
			dwAvailPageFile	dd ?
			dwTotalVirtual	dd ?
			dwAvailVirtual	dd ?
		ends
		memory_info _MEMORYSTATUS
	
		MACRO copy_2tsi_dbl dest_tsi_dbl, mem_dword
	
			push dword 0
			push dword mem_dword
				fild qword [ss:esp]
				fstp qword [dest_tsi_dbl+reg.vo]
			add esp, 8
		ENDM
	}
	
	@import:GlobalMemoryStatus
	
	var d_dwLength=0.0, d_dwMemoryLoad=0.0, d_dwTotalPhys=0.0, d_dwAvailPhys=0.0, d_dwTotalPageFile=0.0, d_dwAvailPageFile=0.0, d_dwTotalVirtual=0.0, d_dwAvailVirtual=0.0
	
	_direct{
		mov dword [memory_info+_MEMORYSTATUS.dwLength], sizeof._MEMORYSTATUS
		invoke GlobalMemoryStatus, (memory_info)
	
	
		copy_2tsi_dbl d_dwLength,       [memory_info.dwLength]
		copy_2tsi_dbl d_dwMemoryLoad,   [memory_info.dwMemoryLoad]
		copy_2tsi_dbl d_dwTotalPhys,    [memory_info.dwTotalPhys]
		copy_2tsi_dbl d_dwAvailPhys,    [memory_info.dwAvailPhys]
		copy_2tsi_dbl d_dwTotalPageFile,[memory_info.dwTotalPageFile]
		copy_2tsi_dbl d_dwAvailPageFile,[memory_info.dwAvailPageFile]
		copy_2tsi_dbl d_dwTotalVirtual, [memory_info.dwTotalVirtual]
		copy_2tsi_dbl d_dwAvailVirtual, [memory_info.dwAvailVirtual]
	}
	
	
	var report = "Total RAM memory		= " + d_dwTotalPhys + _nl + "RAM memory being used	= " + (d_dwTotalPhys - d_dwAvailPhys) + _nl + "Total of virtual local memory	= " + d_dwTotalVirtual + _nl + "Virtual local memory in use	= " + (d_dwTotalVirtual-d_dwAvailVirtual) + _nl
	
	alert_ex(report, "Information about the System Memory:", _mb_iconinformation)
	
	
@eof_file

; //########################################################################################################