make.vbs

来自「采用QT设计的S08仿真器程序 带源代码 使用串口方式,成本很低」· VBS 代码 · 共 71 行

Option Explicit
Dim FileNameProy,FileOutProy,FileAsmProy,FileErrProy,FileLstProy
Dim Titulo,MensageFinal
'======= Archivo final a generar ===========
FileNameProy= "PodS08"				'.ASM ==> .S19
FileOutProy= FileNameProy & ".s19"	'archivo a generar
FileAsmProy= FileNameProy & ".asm"	'archivo a ensamblar
FileErrProy= FileNameProy & ".err"	'archivo de error
FileLstProy= FileNameProy & ".lst"	'archivo de listado
Titulo= "Make " & FileNameProy		'para los mensajes de aviso

'======= Dependencias del proyecto ========
'de que archivos depende "FileOutProy"
Dim dependencias(2)
dependencias(0)= FileAsmProy
dependencias(1)= "QYRegs.inc"

'======= Archivos fuentes a generar ========
Dim fuentes(5)				'.MAS ==> .ASM
fuentes(0)= "BDM"
fuentes(1)= "Main"
fuentes(2)= "Ram"
fuentes(3)= "Reset"
fuentes(4)= "Vectores"

'======= Programa Ensamblador ========
Dim AssemblerProg,AssemblerParams
AssemblerProg= "C:\pemicro\ics08qtqyz\casm08z.exe "
AssemblerParams= " S L C M I Q"
'======= Programa generador de fuentes ========
Dim FuentesProg	'lo ejecuta en el directorio actual para leer el BIN
FuentesProg= "macasm.exe -C "
'======= Programa optimizador ========
Dim OptimiProg
OptimiProg= "optlst.exe "
'======= Editor de texto ========
Dim EditorTit
EditorTit= "UltraEdit-32" 'comienzo del titulo de la ventana del editor

'======= Genera fuentes y proyecto ========
Dim WshShell,FileSysObj,FileError,FileErrLine,Compilo,progArgs,BuildAll,i
Set WshShell=   CreateObject("WScript.Shell")
Set FileSysObj= CreateObject("Scripting.FileSystemObject")
Compilo= False		'flag: se compilo algo
BuildAll= False     'flag: forzar recompilar todo
'analiza los argumentos de llamada
' -B => BUILD ALL (regenera todos los archivos)
Set progArgs= WScript.Arguments
For i = 0 to progArgs.Count - 1
   	If progArgs(I) = "-B" Then
   		BuildAll= True	'fuerza regenerar todos los fuentes
	End If
Next
''' MAKE '''
If MakeFuentes Then		 'si pudo generar los archivos fuentes
	If MakeProyecto Then 'genera el proyecto
		PostBuild		 'pasos finales
	End If
End If
'======= Si hubo error, abre el Editor de texto ========
If FileError <> "" Then
	'ERROR: abrir archivo e ir a la linea indicada
	'activa el editor de texto
	If WshShell.AppActivate( EditorTit ) Then
		'abrir el archivo del error
		TypeString "%F"		'ALT+F	O	(Open)
		TypeString "O"
		TypeString FileError
		TypeString "{ENTER}"
	Else
		'no est