mirror of
https://github.com/open-simh/simtools.git
synced 2026-01-13 15:27:18 +00:00
66e00b9900
Too much to list all, but includes (in no particular order): - Cleanup for 64-bit builds, MSVC warnings. - Structured help - Help file compiler. - Supports volsets, writes/create work. - Support for I18n in messages, help. - Makefiles. - Initialize volume/volset - Command line editing/history Builds and works on Linux and Windows (VS). Not recently built or tested on other platforms, but not intentinonally broken.
364 lines
10 KiB
C
364 lines
10 KiB
C
/* Timothe Litt March 2016
|
|
* Copyright (C) 2016 Timothe litt
|
|
* litt at acm dot org
|
|
*
|
|
* Free for use with the ODS2 package. All other rights reserved.
|
|
*/
|
|
|
|
/*
|
|
* This is distributed as part of ODS2, originally written by
|
|
* Paul Nankervis, email address: Paulnank@au1.ibm.com
|
|
*
|
|
* ODS2 is distributed freely for all members of the
|
|
* VMS community to use. However all derived works
|
|
* must maintain comments in their source to acknowledge
|
|
* the contributions of the original author and
|
|
* subsequent contributors. This is free software; no
|
|
* warranty is offered, and while we believe it to be useful,
|
|
* you use it at your own risk.
|
|
*/
|
|
|
|
/* Write a message data file.
|
|
*
|
|
* Update/translate messages in cc.msg (en_us.msg)
|
|
* The makefiles handle this:
|
|
*
|
|
* message -bt vms_messages.msg en_us.msg en_us.mt
|
|
* cc genmsg '-DTABLEFILE="en_us.mt"' -o genmsg
|
|
* genmsg en_us.mdf
|
|
* rm -f genmsg
|
|
* ods2 set message en_us
|
|
*
|
|
* For translations:
|
|
* message -br vms_messages_fr.msg fr_ca.msg fr_ca.mt
|
|
* cc genmsg '-DTABLEFILE="fr_ca.mt"' -o genmsg
|
|
* genmsg fr_ca.mdf
|
|
* rm -f genmsg
|
|
* ods2 set message fr_ca
|
|
*/
|
|
|
|
#ifndef TABLEFILE
|
|
#define TABLEFILE "default.md"
|
|
#endif
|
|
|
|
#define _XOPEN_SOURCE
|
|
|
|
#ifdef _MSC_VER /* fopen*/
|
|
#define _CRT_SECURE_NO_WARNINGS 1
|
|
#endif
|
|
|
|
#include <stddef.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <stdio.h>
|
|
#ifndef _WIN32
|
|
#include <unistd.h>
|
|
#endif
|
|
|
|
#define SYSMSG_INTERNAL
|
|
#include "sysmsg.h"
|
|
|
|
#include "ssdef.h"
|
|
#include "stsdef.h"
|
|
|
|
static const char
|
|
hdrrec[] = { MSG_HEADER_REC },
|
|
facrec[] = { MSG_FAC_REC },
|
|
msgrec[] = { MSG_MSG_REC },
|
|
summary1[] = { "%s: %"PRIu32 " facilities, %"PRIu32 " messages" },
|
|
summary2[] = { ", file size %"PRIuMAX " writtten to " };
|
|
|
|
static const char facdatafmt[] = { "{ \"%s\", UINT32_C(%"PRIu32")},\n" };
|
|
static const char msgdatafmt[] = { "{ \"%s\", \"%s\", UINT32_C(0x%08"PRIX32"), UINT32_C(%"PRIu32") },\n" };
|
|
|
|
/* For portability of .mdf files, need fixed length encodings for host-specific
|
|
* format descriptors... This re-encodes them without source changes:
|
|
*/
|
|
|
|
#undef PRIo8
|
|
#undef PRIo16
|
|
#undef PRIo32
|
|
#undef PRIo64
|
|
#define PRIo8 "\001A"
|
|
#define PRIo16 "\001B"
|
|
#define PRIo32 "\001C"
|
|
#define PRIo64 "\001D"
|
|
|
|
#undef PRIu8
|
|
#undef PRIu16
|
|
#undef PRIu32
|
|
#undef PRIu64
|
|
#define PRIu8 "\001E"
|
|
#define PRIu16 "\001F"
|
|
#define PRIu32 "\001G"
|
|
#define PRIu64 "\001H"
|
|
|
|
#undef PRIX8
|
|
#undef PRIX16
|
|
#undef PRIX32
|
|
#undef PRIX64
|
|
#define PRIX8 "\001I"
|
|
#define PRIX16 "\001J"
|
|
#define PRIX32 "\001K"
|
|
#define PRIX64 "\001L"
|
|
|
|
#undef PRId8
|
|
#undef PRId16
|
|
#undef PRId32
|
|
#undef PRId64
|
|
#define PRId8 "\001M"
|
|
#define PRId16 "\001N"
|
|
#define PRId32 "\001O"
|
|
#define PRId64 "\001P"
|
|
|
|
/* Instantiate the tables from ssdef.h (whatever language; it's essentially an object file)
|
|
*/
|
|
|
|
static
|
|
struct VMSFAC fac2text[] = {
|
|
#define GENERATE_FACTAB
|
|
#include TABLEFILE
|
|
};
|
|
|
|
static
|
|
struct VMSMSG vms2text[] = {
|
|
#define GENERATE_MSGTAB
|
|
#include TABLEFILE
|
|
};
|
|
|
|
static void putbyte( char c, size_t idx, char **buf, size_t *size );
|
|
|
|
/******************************************************************* main() */
|
|
|
|
int main( int argc, char **argv ) {
|
|
struct VMSFAC *fp;
|
|
struct VMSMSG *mp;
|
|
FILE *ofp;
|
|
int ac, quiet = 0, help = 0, newh = 0;
|
|
char **av, *pname, *outname = NULL;
|
|
|
|
ac = argc; av = argv;
|
|
pname = argv[0];
|
|
if( argc <= 1 ) help = 1;
|
|
for( ; argc > 1; --argc, ++argv ) {
|
|
if( !strcmp( argv[1], "--" ) ) break;
|
|
if( *argv[1] == '-' && argv[1][1] ) {
|
|
char *p;
|
|
|
|
for( p = argv[1]+1; *p; p++ ) {
|
|
switch( *p ) {
|
|
case 'h':
|
|
help = 1;
|
|
break;
|
|
case 'd':
|
|
newh = 1;
|
|
break;
|
|
case 'q':
|
|
quiet = 1;
|
|
break;
|
|
default:
|
|
fprintf( stderr, "Unknown option %c\n", argv[1][1] );
|
|
exit( EXIT_FAILURE );
|
|
}
|
|
}
|
|
} else {
|
|
break;
|
|
}
|
|
}
|
|
|
|
if( help ) {
|
|
fprintf( stderr, "%s - Generate ODS2 message file\n\n"
|
|
" Options: -q -- suppress informational messages\n"
|
|
" -d -- generate a data file for built-in table\n"
|
|
"./message -bt vms_messages.msg ods2_en.msg en_us.mt\n"
|
|
"cc genmsg '-DTABLEFILE=\"en_us.mt\"'\n"
|
|
"./genmsg en_us.mdf\n"
|
|
"./ods2 set message en_us\n"
|
|
" ./genmsg -d default.md\n", pname
|
|
);
|
|
exit( EXIT_SUCCESS );
|
|
}
|
|
|
|
if( argc > 1 ) {
|
|
if( strcmp( argv[1], "-" ) ) {
|
|
outname = argv[1];
|
|
}
|
|
--argc; ++argv;
|
|
}
|
|
|
|
qsort( fac2text, (uint32_t)(sizeof(fac2text)/sizeof(fac2text[0]))-1,
|
|
sizeof(fac2text[0]), &faccmp );
|
|
qsort( vms2text, (uint32_t)(sizeof(vms2text)/sizeof(vms2text[0])),
|
|
sizeof(vms2text[0]), &msgcmp );
|
|
|
|
if( outname == NULL )
|
|
ofp = stdout;
|
|
else if( (ofp = fopen( outname, "wb" )) == NULL ) {
|
|
perror( outname );
|
|
exit( EXIT_FAILURE );
|
|
}
|
|
|
|
if( !quiet ) {
|
|
fprintf( stderr, summary1, TABLEFILE,
|
|
(uint32_t)(sizeof(fac2text)/sizeof(fac2text[0])) -1,
|
|
(uint32_t)(sizeof(vms2text)/sizeof(vms2text[0])) );
|
|
}
|
|
|
|
if( newh ) { /* Generate a new .h file for built-in defaults */
|
|
size_t i, bufsize = 80;
|
|
char *buf = NULL;
|
|
|
|
fprintf( ofp,
|
|
"/* This is an automatically-generated file.\n"
|
|
" * Command:" );
|
|
for( ; ac > 0; --ac, ++av )
|
|
fprintf( ofp, " %s", *av );
|
|
fprintf( ofp,
|
|
"\n"
|
|
" * Compiled-in version of a message table\n"
|
|
" * This technlology was developed by Timothe Litt, and is\n"
|
|
" * free to use with the ODS2 package, originally developed by\n"
|
|
" * Paul Nankervis <Paulnank@au1.ibm.com>.\n"
|
|
" * ODS2 may be freely distributed within the VMS community\n"
|
|
" * providing that the contributions of the original author and\n"
|
|
" * subsequent contributors are acknowledged in the help text and\n"
|
|
" * source files. This is free software; no warranty is offered,\n"
|
|
" * and while we believe it to be useful, you use it at your own risk.\n"
|
|
" */\n\n" );
|
|
|
|
fprintf( ofp,
|
|
"#ifdef GENERATE_FACTAB\n"
|
|
"#undef GENERATE_FACTAB\n" );
|
|
for( i = 0; i < (uint32_t)(sizeof(fac2text)/sizeof(fac2text[0]))-1; i++ ) {
|
|
fprintf( ofp, facdatafmt, fac2text[i].text, fac2text[i].code );
|
|
}
|
|
fprintf( ofp,
|
|
"#endif\n"
|
|
"#ifdef GENERATE_MSGTAB\n"
|
|
"#undef GENERATE_MSGTAB\n" );
|
|
for( i = 0; i < (uint32_t)(sizeof(vms2text)/sizeof(vms2text[0])); i++ ) {
|
|
char *p;
|
|
size_t idx;
|
|
|
|
p = vms2text[i].text;
|
|
|
|
for( idx = 0; *p; p++ ) {
|
|
char c = *p;
|
|
switch( c ) {
|
|
case '"':
|
|
case '\\':
|
|
putbyte( '\\', idx++, &buf, &bufsize );
|
|
break;
|
|
case '\n':
|
|
putbyte( '\\', idx++, &buf, &bufsize );
|
|
c = 'n';
|
|
break;
|
|
case '\001': {
|
|
const char *xpn;
|
|
|
|
putbyte( '"', idx++, &buf, &bufsize );
|
|
c = *++p;
|
|
xpn = prisym[ c - PRI_CODEBASE ];
|
|
while( *xpn ) {
|
|
putbyte( *xpn++, idx++, &buf, &bufsize );
|
|
}
|
|
putbyte( '"', idx++, &buf, &bufsize );
|
|
continue;
|
|
}
|
|
default:
|
|
break;
|
|
}
|
|
putbyte( c, idx++, &buf, &bufsize );
|
|
}
|
|
putbyte( '\0', idx++, &buf, &bufsize );
|
|
|
|
|
|
fprintf( ofp, msgdatafmt,
|
|
vms2text[i].ident, buf,
|
|
vms2text[i].code, vms2text[i].nargs );
|
|
}
|
|
fprintf( ofp,
|
|
"#endif\n" );
|
|
if( ofp != stdout )
|
|
fclose( ofp );
|
|
|
|
if( !quiet ) {
|
|
if( ofp == stdout )
|
|
fputc( '\n', stderr );
|
|
else
|
|
fprintf( stderr, ", written to %s\n", outname );
|
|
}
|
|
exit( EXIT_SUCCESS );
|
|
}
|
|
|
|
/* File header record. Version + number of facilities + number of message definitions
|
|
*/
|
|
|
|
fprintf( ofp, hdrrec,
|
|
(uint32_t)(sizeof(fac2text)/sizeof(fac2text[0])) -1,
|
|
(uint32_t)(sizeof(vms2text)/sizeof(vms2text[0])) );
|
|
fputc( '\0', ofp );
|
|
|
|
/* Output each facility with its associated string.
|
|
* Always produce an end-marker for the string.
|
|
*/
|
|
|
|
for( fp = fac2text; fp < fac2text + sizeof(fac2text)/sizeof(fac2text[0]) -1; fp++ ) {
|
|
fprintf( ofp, facrec, fp->code );
|
|
if( fp->text )
|
|
fprintf( ofp, "%s", fp->text );
|
|
fputc( '\0', ofp );
|
|
}
|
|
|
|
/* Same for each message definition, but two strings.
|
|
*/
|
|
|
|
for( mp = vms2text; mp < vms2text + sizeof(vms2text)/sizeof(vms2text[0]); mp++ ) {
|
|
fprintf( ofp, msgrec,
|
|
mp->code, mp->nargs );
|
|
if( mp->ident )
|
|
fprintf( ofp, "%s", mp->ident );
|
|
fputc( '\0', ofp );
|
|
if( mp->text )
|
|
fprintf( ofp, "%s", mp->text );
|
|
fputc( '\0', ofp );
|
|
}
|
|
|
|
/* wrap up */
|
|
|
|
fprintf( ofp, MSG_EOF_REC );
|
|
fputc( '\0', ofp );
|
|
|
|
if( ferror(ofp) ) {
|
|
perror( "write" );
|
|
exit( EXIT_FAILURE );
|
|
}
|
|
|
|
if( !quiet && ofp != stdout )
|
|
fprintf( stderr, summary2, (uintmax_t)ftell(ofp) );
|
|
|
|
if( ofp != stdout )
|
|
fclose( ofp );
|
|
|
|
if( !quiet ) {
|
|
if( ofp == stdout )
|
|
fputc( '\n', stderr );
|
|
else
|
|
fprintf( stderr, "%s\n", outname );
|
|
}
|
|
|
|
exit( EXIT_SUCCESS );
|
|
}
|
|
|
|
static void putbyte( char c, size_t idx, char **buf, size_t *size ) {
|
|
if( *buf == NULL || idx+1 > *size ) {
|
|
*buf = realloc( *buf, *size += 32 );
|
|
if( *buf == NULL ) {
|
|
perror( "realloc" );
|
|
exit( EXIT_FAILURE );
|
|
}
|
|
}
|
|
buf[0][idx++] = c;
|
|
return;
|
|
}
|