Changeset 1291


Ignore:
Timestamp:
Nov 22, 2008, 2:35:20 AM (16 years ago)
Author:
John Small
Message:

Ticket 297: 1) Moved the copyright text into the repository (which
ReleaseTool/Edit will then edit back into the DEF files;
2) ReleaseEdit now ensures that it runs from the correct directory
and that the repository file exists.

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • TabularUnified trunk/ReleaseEdit.cmd

    r1289 r1291  
    3333*/
    3434
     35n = setlocal()
     36
    3537signal on Error
    3638signal on FAILURE name Error
     
    5052*/
    5153sed_separator = '&'
     54
     55/* Change to proper directory */
     56parse source . . thispgm
     57thisdir = left(thispgm, lastpos('\', thispgm)) || '.'
     58call directory thisdir
    5259
    5360/* Process parameters */
     
    6370   CSDlevel = 0
    6471
    65 /* Set fixed strings */
    66 globals = 'repository copyright_year_marker copyright_year_marker_len'
    67 repository = 'option_descriptions.txt'
    68 mkstr_makefile  = 'DLL\INTERNAL\MAKEFILE'
    69 warpin_makefile = 'WARPIN\MAKEFILE'
    70 copyright_h     = 'DLL\COPYRIGHT.H'
    71 parse value date('s') with year 5 month 7 day
    72 last_year = year - 1
    73 
    7472/* Prepare temporary file */
    7573call RxFuncAdd 'SysTempFilename', 'REXXUTIL', 'SysTempFilename'
     
    8482   'del' file
    8583
     84/* Set fixed strings */
     85globals = 'repository copyright_year_marker copyright_year_marker_len'
     86repository = 'option_descriptions.txt'
     87mkstr_makefile  = 'DLL\INTERNAL\MAKEFILE'
     88warpin_makefile = 'WARPIN\MAKEFILE'
     89copyright_h     = 'DLL\COPYRIGHT.H'
     90parse value date('s') with year 5 month 7 day
     91last_year = year - 1
     92
    8693/* Process the request */
    8794select
    8895   when ext = 'DEF' then
    8996      do
     97         if stream(repository, 'c', 'query exists') = '' then
     98            do
     99               say 'Error! Unable to locate repository file:' repository
     100               say
     101               say 'Unable to proceed with request.'
     102               say
     103               '@if not exist' file 'copy' tmpfile file '>nul 2>nul'
     104               '@pause'
     105               signal exit_routine
     106            end
     107
    90108         copyright_year_marker = 'copyright-year'
    91109         copyright_year_marker_len = length(copyright_year_marker)
     
    100118         processor_type = GetFromRepository( 'processor_type', 'U', 1 )
    101119         fixpack_ver    = GetFromRepository( 'fixpack_ver', '', 11 )
    102          description    = GetFromRepository( 'desc.' || left(file, pos('.', file) - 1), '', 79 )
     120         description    = GetFromRepository( 'desc.' || left(file, pos('.', file) - 1), '', 579 /* i.e. disable length check */ )
    103121         call stream repository, 'c', 'close'
    104122
     
    152170      nop         /* Or error message or usage info? */
    153171end
     172exit_routine:
    154173'@if exist' tmpfile 'del' tmpfile
     174n = endlocal()
    155175return
    156176
  • TabularUnified trunk/option_descriptions.txt

    r1287 r1291  
    1313; and the description for dll\fm3dll.def starts with:
    1414;       desc.dll\fm3dll=
     15;
    1516; EVERY def file needs an entry for the description in this file.
     17;
     18; NOTE: In the copyright portion of the description, use the
     19; string "copyright-year" as a placeholder for the current year.
     20; ReleaseEdit with replace it with the current year.
    1621;
    1722; NOTE: If a description requires a '&', then ReleaseEdit.cmd
     
    4752country_code=US
    4853processor_type=U
    49 desc.av2=FM/2 Archive Viewer MiniApp
    50 desc.databar=FM/2 Databar MiniApp
    51 desc.dirsize=FM/2 Directory Sizes MiniApp
    52 desc.eas=FM/2 EA Editor MiniApp
    53 desc.fm3=F(ile) M(anager)/2
    54 desc.fm4=F(ile) M(anager)/2 Lite
    55 desc.global=FM/2 Global MiniApp
    56 desc.ini=FM/2 INI Editor MiniApp
    57 desc.killproc=FM/2 Kill Process MiniApp
    58 desc.sysinfo=FM/2 SysInfo MiniApp
    59 desc.undel=FM/2 Undelete MiniApp
    60 desc.vcollect=FM/2 Collector MiniApp
    61 desc.vdir=FM/2 View Directory MiniApp
    62 desc.viewinfs=FM/2 View INFs MiniApp
    63 desc.vtree=FM/2 Tree View MiniApp
    64 desc.dll\fm3dll=FM/2 Runtime DLL
    65 desc.dll\fm3res=FM/2 Runtime Resource DLL
     54desc.av2=FM/2 Archive Viewer MiniApp Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     55desc.databar=FM/2 Databar MiniApp Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     56desc.dirsize=FM/2 Directory Sizes MiniApp Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     57desc.eas=FM/2 EA Editor MiniApp Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     58desc.fm3=F(ile) M(anager)/2 Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     59desc.fm4=F(ile) M(anager)/2 Lite Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     60desc.global=FM/2 Global MiniApp Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     61desc.ini=FM/2 INI Editor MiniApp Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     62desc.killproc=FM/2 Kill Process MiniApp Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     63desc.sysinfo=FM/2 SysInfo MiniApp Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     64desc.undel=FM/2 Undelete MiniApp Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     65desc.vcollect=FM/2 Collector MiniApp Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     66desc.vdir=FM/2 View Directory MiniApp Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     67desc.viewinfs=FM/2 View INFs MiniApp Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     68desc.vtree=FM/2 Tree View MiniApp Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     69desc.dll\fm3dll=FM/2 Runtime DLL Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
     70desc.dll\fm3res=FM/2 Runtime Resource DLL Copyright (c) 1993, 1998 M. Kimes, Copyright (c) 2001, copyright-year Steven Levine and Associates, Inc. All rights reserved
Note: See TracChangeset for help on using the changeset viewer.