On Sun, 03 Aug 2008 01:00:23 +0300
Andrey Cherezov <
[hidden email]> wrote:
> Я тоже не помню. Но данный конкретный rc компилится и с помощью fres
> вставляется
> и работает как надо, версия и комментарии видны, иконка тоже, манифест
> на вид gui действует.
Бага в fres была в align-dword.
Манифест тоже надо на cvs (чтобы можно было перекомпилить всегда).
Я пару строк поправил. В аттаче.
По-хорошему манифест надо будет генерировать и подставлять номер версии.
--
~ygrek
[fres.f.patch]
Empty password used - try 'cvs login' with a real password
Index: fres.f
===================================================================
RCS file: /cvsroot/spf/devel/~yz/prog/fres/fres.f,v
retrieving revision 1.2
diff -u -r1.2 fres.f
--- fres.f 12 Mar 2007 19:34:59 -0000 1.2
+++ fres.f 4 Aug 2008 09:52:41 -0000
@@ -348,6 +348,7 @@
20 OF " Vxd " ENDOF
21 OF " AniCursor " ENDOF
22 OF " AniIcon " ENDOF
+ 24 OF " Manifest " ENDOF
1 <| " Type%-8d" |)
END-CASE
THEN
@@ -405,7 +406,7 @@
unmap-output-file
;
\ ------------------------------------------
-: align-dword ( a -- a') DUP CELL MOD IF 2+ THEN ;
+: align-dword ( a -- a' ) DUP CELL MOD DUP 0= IF DROP EXIT THEN CELL SWAP - + ;
: ord/uni-beyond ( a -- a')
DUP W@ 0xFFFF = IF
CELL+
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="4.19.0.0"
processorArchitecture="X86"
name="RuFIG.SP-Forth.spf"
type="win32"/>
<description>SP-Forth</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"/>
</dependentAssembly>
</dependency>
</assembly>
/*
$Id$
SPF resources
*/
#ifndef RT_MANIFEST
#define RT_MANIFEST 24
#endif
1 ICON "spf.ico"
1 RT_MANIFEST "spf.manifest"
#include <windows.h>
#define IDR_VERSION1 1
IDR_VERSION1 VERSIONINFO MOVEABLE IMPURE LOADONCALL DISCARDABLE
FILEVERSION 4,19,0,0
PRODUCTVERSION 4,19,0,0
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
FILEFLAGS 0
FILEOS VOS_DOS_WINDOWS32
FILETYPE VFT_APP
FILESUBTYPE 0 // not used
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "040904E4"
//language ID = U.S. English, char set = Windows, Multilingual
BEGIN
VALUE "FileDescription", "SP-Forth - ANS Forth compiler\0"
VALUE "FileVersion", "4.19.0.0\0"
VALUE "ProductVersion", "4.19.0.0\0"
VALUE "InternalName", "SPF4\0"
VALUE "OriginalFilename", "spf4.exe\0"
VALUE "ProductName", "SP-Forth\0"
VALUE "Comments", "Open source project
http://spf.sf.net/.\r\nRuFIG
http://forth.org.ru/\0"
VALUE "LegalCopyright", "(C) 1992-2008 RuFIG\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0409, 1252
END
END
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/_______________________________________________
Spf-dev mailing list
[hidden email]
https://lists.sourceforge.net/lists/listinfo/spf-dev