Install PostScript Fonts - Revision history

Jan: /* Function */

2008-07-26T23:17:57Z

Function

â† Older revision		Revision as of 23:17, 26 July 2008
Line 21:		Line 21:
	Push $0		Push $0
	Push $R0		Push $R0
	~~Push $R1~~
	~~Push $R2~~

	!define Index 'Line${__LINE__}'		!define Index 'Line${__LINE__}'
Line 56:		Line 54:
	!undef FontBase		!undef FontBase

	~~Pop $R2~~
	~~Pop $R1~~
	Pop $R0		Pop $R0
	Pop $0		Pop $0

Jan: /* Changelog */

2008-07-26T21:45:48Z

Changelog

â† Older revision		Revision as of 21:45, 26 July 2008
Line 64:		Line 64:

	== Changelog ==		== Changelog ==
			[2008-07-26] updated to require less parameters, included dependencies
	[2008-07-24] first public release		[2008-07-24] first public release

Jan: /* Description */

2008-07-26T21:44:19Z

Description

â† Older revision		Revision as of 21:44, 26 July 2008
Line 1:		Line 1:
	{{PageAuthor\|Jan}}		{{PageAuthor\|Jan}}
	== Description ==		== Description ==
	This script is based on the [[Advanced Font Installation]] script, it can be used to install a PostScript/Type 1 font		This script is based on the [[Advanced Font Installation]] script, it can be used to install a PostScript/Type 1 font. It requires the [http://forums.winamp.com/showthread.php?s=&threadid=223066&highlight=registryWrite Registry Plugin] by Instructor

	== Function ==		== Function ==

Jan: /* Function */

2008-07-26T21:43:26Z

Function

â† Older revision		Revision as of 21:43, 26 July 2008
Line 4:		Line 4:

	== Function ==		== Function ==
	<highlight-nsis>ifndef GetBaseName		<highlight-nsis>!ifndef GetBaseName
	!include FileFunc.nsh		!include FileFunc.nsh
	!insertmacro GetBaseName		!insertmacro GetBaseName
Line 17:		Line 17:


	; !insertmacro ~~InstallType1~~ "C:\PathTo\MyFontB.pfm" "My Font Bold"		; !insertmacro InstallPostScript "C:\PathTo\MyFontB.pfm" "My Font Bold"
	!macro ~~InstallType1~~ FontPath FontName		!macro InstallPostScript FontPath FontName
	Push $0		Push $0
	Push $R0		Push $R0

Jan: /* Function */

2008-07-26T21:40:25Z

Function

â† Older revision		Revision as of 21:40, 26 July 2008
Line 4:		Line 4:

	== Function ==		== Function ==
	<highlight-nsis>!ifndef GetBaseName		<highlight-nsis>ifndef GetBaseName
	!include FileFunc.nsh		!include FileFunc.nsh
	!insertmacro GetBaseName		!insertmacro GetBaseName
	!endif		!endif

			; requires the Registry plugin by Instructor
			!macro registry::Write _PATH _VALUE _STRING _TYPE _ERR
			registry::_Write /NOUNLOAD `${_PATH}` `${_VALUE}` `${_STRING}` `${_TYPE}`
			Pop ${_ERR}
			!macroend
			!define registry::Write `!insertmacro registry::Write`


	; !insertmacro InstallType1 "C:\PathTo\MyFontB.pfm" "My Font Bold"		; !insertmacro InstallType1 "C:\PathTo\MyFontB.pfm" "My Font Bold"

Jan: /* Function */

2008-07-26T21:38:44Z

Function

â† Older revision		Revision as of 21:38, 26 July 2008
Line 6:		Line 6:
	<highlight-nsis>!ifndef GetBaseName		<highlight-nsis>!ifndef GetBaseName
	!include FileFunc.nsh		!include FileFunc.nsh
	!insertmacro ~~GetParent~~		!insertmacro GetBaseName
	!endif		!endif

	; !insertmacro InstallType1 "C:\PathTo\MyFontB.pfm" "My Font Bold"		; !insertmacro InstallType1 "C:\PathTo\MyFontB.pfm" "My Font Bold"
	!macro InstallType1 FontPath FontName		!macro InstallType1 FontPath FontName
Line 15:		Line 15:
	Push $R1		Push $R1
	Push $R2		Push $R2

	!define Index 'Line${__LINE__}'		!define Index 'Line${__LINE__}'

	${GetBaseName} ${FontPath} $0		${GetBaseName} "${FontPath}" $0
	!define FontBase $0		!define FontBase $0

	SetOutPath $FONTS		SetOutPath $FONTS
	IfFileExists "$FONTS\${FontBase}.pfm" ${Index} "${Index}-New"		IfFileExists "$FONTS\${FontBase}.pfm" ${Index} "${Index}-New"

	"${Index}-New:"		"${Index}-New:"
	File '${FontPath}'		File '${FontPath}'
	goto ${Index}		goto ${Index}

	${Index}:		${Index}:
	ClearErrors		ClearErrors
	ReadRegStr $R0 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion" "CurrentVersion"		ReadRegStr $R0 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion" "CurrentVersion"
	IfErrors "${Index}-Error" "${Index}-GO"		IfErrors "${Index}-Error" "${Index}-GO"

	"${Index}-Error:"		"${Index}-Error:"
	MessageBox MB_OK\|MB_ICONEXCLAMATION "PostScript fonts can only be installed in Windows 2000 or later!"		MessageBox MB_OK\|MB_ICONEXCLAMATION "PostScript fonts can only be installed in Windows 2000 or later!"
	goto "${Index}-End"		goto "${Index}-End"

	"${Index}-GO:"		"${Index}-GO:"
	ClearErrors		ClearErrors
Line 42:		Line 42:
	System::Call "GDI32::AddFontResourceA(t) i ('${FontBase}.pfm\|${FontBase}.pfb') .s"		System::Call "GDI32::AddFontResourceA(t) i ('${FontBase}.pfm\|${FontBase}.pfb') .s"
	goto "${Index}-End"		goto "${Index}-End"

	"${Index}-End:"		"${Index}-End:"

	!undef Index		!undef Index
	!undef FontBase		!undef FontBase

	Pop $R2		Pop $R2
	Pop $R1		Pop $R1
	Pop $R0		Pop $R0
	Pop $0		Pop $0
	!macroend</highlight-nsis>		!macroend
			</highlight-nsis>

	== Changelog ==		== Changelog ==

Jan: /* Function */

2008-07-26T21:32:54Z

Function

â† Older revision		Revision as of 21:32, 26 July 2008
Line 5:		Line 5:
	== Function ==		== Function ==
	<highlight-nsis>!ifndef GetBaseName		<highlight-nsis>!ifndef GetBaseName
	!include ~~FileInc~~.nsh		!include FileFunc.nsh
	!insertmacro GetParent		!insertmacro GetParent
	!endif		!endif

Jan: /* Function */

2008-07-26T21:32:35Z

Function

â† Older revision		Revision as of 21:32, 26 July 2008
Line 4:		Line 4:

	== Function ==		== Function ==
	!ifndef GetBaseName		<highlight-nsis>!ifndef GetBaseName
	!include FileInc.nsh		!include FileInc.nsh
	!insertmacro GetParent		!insertmacro GetParent
	!endif		!endif

	~~<highlight-nsis>~~; !insertmacro InstallType1 "C:\PathTo\MyFontB.pfm" "My Font Bold"		; !insertmacro InstallType1 "C:\PathTo\MyFontB.pfm" "My Font Bold"
	!macro InstallType1 FontPath FontName		!macro InstallType1 FontPath FontName
	Push $0		Push $0

Jan: /* Function */

2008-07-26T21:24:07Z

Function

â† Older revision		Revision as of 21:24, 26 July 2008
Line 4:		Line 4:

	== Function ==		== Function ==
			!ifndef GetBaseName
			!include FileInc.nsh
			!insertmacro GetParent
			!endif

	<highlight-nsis>; !insertmacro InstallType1 "C:\PathTo\MyFontB.pfm" "My Font Bold"		<highlight-nsis>; !insertmacro InstallType1 "C:\PathTo\MyFontB.pfm" "My Font Bold"
	!macro InstallType1 FontPath FontName		!macro InstallType1 FontPath FontName

Jan at 21:22, 26 July 2008

2008-07-26T21:22:35Z

â† Older revision		Revision as of 21:22, 26 July 2008
Line 1:		Line 1:
	{{PageAuthor\|Jan}}		{{PageAuthor\|Jan}}
	~~== Note ==~~
	This script is based on the [[Advanced Font Installation]] script, which only works TrueType and bitmapped fonts. It's still a very early version, which requires two steps to install a font. Within the next days, I plan to merge those two functions.

	== Description ==		== Description ==
	~~These functions~~ can be used to ~~determine the name of~~ a PostScript/Type 1 font ~~and install it properly. The name-detection is maybe a bit clumsy, as it depends on the availability of an .inf file coming along the with font.~~		This script is based on the [[Advanced Font Installation]] script, it can be used to install a PostScript/Type 1 font

	== Function ==		== Function ==