| @ECHO OFF |
| IF '%1'==' GOTO End |
| IF NOT EXIST %1\. GOTO Module_Error |
| |
| SET OUTPUT=%1\OpenWith.SCP |
| |
| SET FILE=%@FILEOPEN[supported_extensions.txt,read,t] |
| |
| ECHO // "OpenWith" Windows Registry keys for extensions supported by %1 > %OUTPUT% |
| ECHO. >> %OUTPUT% |
| |
| :While_Read_File |
| SET LINE=%@FILEREAD[%FILE%] |
| IF '%LINE%'=='' GOTO While_Read_File |
| IF '%@LEFT[1,%LINE%]'==';' GOTO While_Read_File |
| IF '%LINE%'=='**EOF**' GOTO End_Read_File |
| |
| IF NOT '%@LEFT[1,%LINE%]'=='[' GOTO Register_Extension |
| |
| SET MODULE=%@UPPER[%@WORD["[]",0,%LINE%]] |
| GOTO While_Read_File |
| |
| :Register_Extension |
| IF NOT '%MODULE%'=='%@UPPER[%1]' GOTO While_Read_File |
| |
| ECHO // .%LINE% >> %OUTPUT% |
| ECHO RegistryItem gid_Regitem_OpenOffice_%LINE%_OpenWith_%1 >> %OUTPUT% |
| ECHO ParentID = PREDEFINED_HKEY_CLASSES_ROOT; >> %OUTPUT% |
| ECHO Subkey = ".%LINE%\OpenWithProgIDs"; >> %OUTPUT% |
| ECHO ModuleID = gid_Module_Prg_%1_Bin; >> %OUTPUT% |
| ECHO Name = "opendocument.%1Document.1"; >> %OUTPUT% |
| ECHO Value = "%PRODUCTNAME %PRODUCTVERSION"; >> %OUTPUT% |
| ECHO End >> %OUTPUT% |
| ECHO. >> %OUTPUT% |
| |
| REM GOTO End_Read_File |
| GOTO While_Read_File |
| |
| :End_Read_File |
| SET ERROR=%@FILECLOSE[%FILE%] |
| GOTO End |
| |
| :Help |
| ECHO Usage: %0 Module |
| ECHO Example: %0 Calc |
| GOTO End |
| |
| :Module_Error |
| ECHO Module %1 not found ! |
| GOTO End |
| |
| :End |
