lib/libssh2
1
0
Fork 0
mirror of https://github.com/libssh2/libssh2.git synced 2025-10-30 12:05:34 +03:00
Code Activity
Files
05ba8db8aa38a97ee097a5c8ededf23eb1b579f6
libssh2/vms/man2help.c
Jose Baars f3208b99ca VMS: small improvement to the man2help utilities
2010-05-22 11:05:29 +01:00

517 lines
13 KiB
C
Raw Blame History

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <errno.h>
#include <starlet.h>
#include <lib$routines.h>
#include <ssdef.h>
#include <descrip.h>
#include <rms.h>
typedef struct manl{
struct manl *next;
char *filename;
}man, *manPtr;
typedef struct pf_fabnam{
struct FAB dfab;
struct RAB drab;
struct namldef dnam;
char expanded_filename[NAM$C_MAXRSS + 1];
} pfn, *pfnPtr;
/*----------------------------------------------------------*/
fpcopy( char *output, char *input, int len )
{
char *is, *os;
int i;
if ( len ){
for ( is = input, os = output, i = 0; i < len ; ++i, ++is, ++os){
*os = *is;
}
*os = 0;
}else{
output[0] = 0;
}
}
/*----------------------------------------------------------*/
/* give part of ilename in partname. See code for proper
value of i ( 0 = node, 1 = dev, 2 = dir,3 = name etc.
*/
int fnamepart( char *inputfile, char *part, int whatpart )
{
pfnPtr pf;
int status;
char ipart[6][256], *i, *p;
pf = calloc( 1, sizeof( pfn ) );
pf->dfab = cc$rms_fab;
pf->drab = cc$rms_rab;
pf->dnam = cc$rms_naml;
pf->dfab.fab$l_naml = &pf->dnam;
pf->dfab.fab$l_fna = (char *) -1;
pf->dfab.fab$l_dna = (char *) -1;
pf->dfab.fab$b_fns = 0;
pf->dfab.fab$w_ifi = 0;
pf->dnam.naml$l_long_defname = NULL; //inputfile;
pf->dnam.naml$l_long_defname_size = 0;//strlen( inputfile );
pf->dnam.naml$l_long_filename = inputfile;
pf->dnam.naml$l_long_filename_size = strlen( inputfile);
pf->dnam.naml$l_long_expand = pf->expanded_filename;
pf->dnam.naml$l_long_expand_alloc = NAM$C_MAXRSS ;
pf->dnam.naml$b_nop |= NAML$M_SYNCHK | NAML$M_PWD;
status = sys$parse( &pf->dfab, 0,0);
if ( !(status&1) ){
free( pf );
return( status );
}
fpcopy ( ipart[0], pf->dnam.naml$l_long_node , pf->dnam.naml$l_long_node_size);
fpcopy ( ipart[1], pf->dnam.naml$l_long_dev , pf->dnam.naml$l_long_dev_size);
fpcopy ( ipart[2], pf->dnam.naml$l_long_dir , pf->dnam.naml$l_long_dir_size);
fpcopy ( ipart[3], pf->dnam.naml$l_long_name , pf->dnam.naml$l_long_name_size);
fpcopy ( ipart[4], pf->dnam.naml$l_long_type , pf->dnam.naml$l_long_type_size);
fpcopy ( ipart[5], pf->dnam.naml$l_long_ver , pf->dnam.naml$l_long_ver_size);
for( i = ipart[ whatpart ], p = part; *i; ++i, ++p){
if ( p == part ){
*p = toupper( *i );
}else{
*p = tolower( *i );
}
}
*p = 0;
free( pf );
return(1);
}
/*----------------------------------------------------------*/
int find_file(char *filename,char *gevonden,int *findex)
{
int status;
struct dsc$descriptor gevondend;
struct dsc$descriptor filespec;
char gevonden_file[NAM$C_MAXRSS + 1];
filespec.dsc$w_length = strlen(filename);
filespec.dsc$b_dtype = DSC$K_DTYPE_T;
filespec.dsc$b_class = DSC$K_CLASS_S;
filespec.dsc$a_pointer = filename;
gevondend.dsc$w_length = NAM$C_MAXRSS;
gevondend.dsc$b_dtype = DSC$K_DTYPE_T;
gevondend.dsc$b_class = DSC$K_CLASS_S;
gevondend.dsc$a_pointer = gevonden_file;
status=lib$find_file(&filespec,&gevondend,findex,0,0,0,0);
if ( (status & 1) == 1 ){
strcpy(gevonden,strtok(gevonden_file," "));
}else{
gevonden[0] = 0;
}
return(status);
}
/*--------------------------------------------*/
manPtr addman( manPtr *manroot,char *filename )
{
manPtr m,f;
m = calloc( 1, sizeof( man) );
if ( !m ) return( NULL );
m->filename = strdup( filename );
if ( *manroot == NULL ){
*manroot = m;
}else{
for( f = *manroot; f->next ; f = f->next );
f->next = m;
}
return(m);
}
/*--------------------------------------------*/
void freeman( manPtr *manroot )
{
manPtr m,n;
for( m = *manroot; m ; m = n ){
free( m->filename );
n = m->next;
free ( m );
}
*manroot = NULL;
}
/*--------------------------------------------*/
int listofmans( char *filespec, manPtr *manroot )
{
manPtr r;
int status;
int ffindex=0;
char gevonden[NAM$C_MAXRSS + 1];
while(1){
status = find_file( filespec, gevonden, &ffindex );
if ( (status&1) ){
r = addman( manroot, gevonden );
if ( r == NULL ) return(2);
}else{
if ( !( status&1)) break;
}
}
lib$find_file_end( &ffindex);
if ( status == RMS$_NMF) status = 1;
return( status );
}
/*--------------------------------------------*/
int convertman ( char *filespec, FILE *hlp , int base_level, int add_parentheses )
{
FILE *man;
char *in, *uit;
char *m,*h;
size_t len, thislen, maxlen= 50000;
int bol,mode, return_status=1;
char subjectname[ NAM$C_MAXRSS + 1 ];
in = calloc( 1, maxlen + 1 );
uit = calloc( 1, maxlen + 1 );
if ( in == NULL || uit == NULL ) return(2);
man = fopen( filespec, "r");
if ( man == NULL ) return(vaxc$errno);
for( len = 0; !feof( man ) && len < maxlen ; len += thislen ){
thislen = fread( in + len, 1, maxlen - len, man );
}
fclose (man);
m = in;
h = uit;
*(m + len ) = 0;
for ( mode = 0, bol = 1 ; *m; ++m ){
switch ( mode ){
case 0:
switch(*m){
case '.':
if ( bol ){
mode = 1;
}else{
*h = *m;
++h;
}
break;
case '\\':
if ( bol ){
*h = ' ';++h;
*h = ' ';++h;
}
mode = 2;
break;
default:
if ( bol ){
*h = ' ';++h;
*h = ' ';++h;
}
*h = *m;
++h;
break;
}
break;
case 1: /* after . at bol */
switch(*m){
case '\\':
while( *m != '\n' && *m != '\r' && *m )++m;
mode = 0;
break;
case 'B':
++m;
*h = ' ';++h;
mode = 0;
break;
case 'I':
/* remove preceding eol */
if ( *(m+1) != 'P' ){
--h;
while ( (*h == '\n' || *h == '\r') && h > uit )--h;
++h;
}
/* skip .Ix */
for(;*m != ' ' && *m != '\n' && *m != '\r'; ++m);
/* copy line up to EOL */
for(;*m != '\n' && *m != '\r' && *m; ++m, ++h)*h = *m;
/* if line ends in ., this is an EOL */
if ( *(h-1) == '.'){
--h;
--m;
}else{
/* if line does not end in ., skip EOL in source */
if ( *(m+1) == '\n' || *(m+1) == '\r')++m;
}
mode = 0;
break;
case 'S':
if ( *(m+1) == 'H' ){
*h = '\n';++h;
if ( strncmp( m+3 ,"NAME",4) == 0 ||
strncmp( m+3 ,"SYNOPSIS",8) == 0 ||
strncmp( m+3 ,"DESCRIPTION",11) == 0 ){
while( *m != '\n' && *m != '\r')++m;
mode = 0;
}else{
++m;
/* write help level, and flag it */
*h = '0' + base_level + 1;++h;
return_status |= 2;
*h = ' ';++h;
/* skip H (or whatever after S) and blank */
++m;++m;
for(;*m != '\n' && *m != '\r' && *m; ++m, ++h){
/* write help label in lowercase, skip quotes */
/* fill blanks with underscores */
if ( *m != '\"' ){
*h = tolower( *m );
if (*h == ' ') *h = '_';
}else{
--h;
}
}
/* Add a linefeed or two */
*h = *m;++h;
*h = *m;++h;
mode = 0;
}
}
break;
case 'T':
if ( *(m+1) == 'H' ){
*h = '0' + base_level; ++h;
return_status |= 2;
*h = ' ';++h;
for ( m = m + 3; *m != ' ' && *m ; ++m, ++h ){
*h = *m;
}
if ( add_parentheses ){
*h = '(';++h;
*h = ')';++h;
}
while( *m != '\n' && *m != '\r' && *m )++m;
mode = 0;
}
break;
default:
++m;
mode = 0;
break;
}
break;
case 2: /* after \ skip two characters or print the backslash */
switch(*m){
case '\\':
*h = *m;
++h;
mode = 0;
break;
default:
++m;
mode = 0;
break;
}
break;
} /*end switch mode */
bol = 0;
if ( *m == '\n' || *m == '\r') bol = 1;
}/* end for mode */
*h = 0;
if ( (return_status&2) ){
fprintf( hlp, "%s\n\n", uit);
}else{
fnamepart( filespec, subjectname,3);
if ( *subjectname ){
fprintf( hlp, "%d %s\n\n%s\n\n", base_level, subjectname, uit);
}else{
/* No filename (as is the case with a logical), use first word as subject name */
char *n,*s;
for(n = in; isspace( *n );++n);
for(s = subjectname; !(isspace( *n )); ++n,++s)*s = *n;
*s = 0;
fprintf( hlp, "%d %s\n\n%s\n\n", base_level, subjectname, uit);
}
}
/*
printf( "read %d from %s, written %d to helpfile, return_status = %d\n",
len, filespec, strlen(uit), return_status );
*/
free( m );
free( h );
return ( 1);
}
/*--------------------------------------------*/
int convertmans( char *filespec, char *hlpfilename, int base_level, int append, int add_parentheses )
{
int status=1;
manPtr manroot=NULL, m;
FILE *hlp;
if ( append ){
hlp = fopen( hlpfilename,"a+");
}else{
hlp = fopen( hlpfilename,"w");
}
if ( hlp == NULL ) return( vaxc$errno );
status = listofmans( filespec, &manroot );
if ( !(status&1) ) return( status );
for ( m = manroot ; m ; m = m->next ){
status = convertman( m->filename, hlp , base_level, add_parentheses );
if ( !(status&1) ){
fprintf(stderr,"Convertman of %s went wrong\n", m->filename);
break;
}
}
freeman( &manroot );
return( status );
}
/*--------------------------------------------*/
void print_help()
{
fprintf( stderr, "Usage: [-a] [-b x] convertman <manfilespec> <helptextfile>\n" );
fprintf( stderr, " -a append <manfilespec> to <helptextfile>\n" );
fprintf( stderr, " -b <baselevel> if no headers found create one with level <baselevel>\n" );
fprintf( stderr, " and the filename as title.\n" );
fprintf( stderr, " -p add parentheses() to baselevel help items.\n" );
}
/*--------------------------------------------*/
main ( int argc, char **argv )
{
int status;
int i,j;
int append, base_level, basechange, add_parentheses;
char *manfile=NULL;
char *helpfile=NULL;
if ( argc < 3 ){
print_help();
return( 1 ) ;
}
append = 0;
base_level = 1;
basechange = 0;
add_parentheses = 0;
for ( i = 1; i < argc; ++i){
if ( argv[i][0] == '-' ){
for( j = 1; argv[i][j] ; ++j ){
switch( argv[i][j] ){
case 'a':
append = 1;
break;
case 'b':
if ( (i+1) < argc ){
base_level = atoi( argv[ i + 1 ] );
basechange = 1;
}
break;
case 'p':
add_parentheses = 1;
break;
}
}
if ( basechange){
basechange = 0;
i = i + 1;
}
}else{
if ( manfile == NULL ){
manfile = strdup( argv[i]);
} else if ( helpfile == NULL ){
helpfile = strdup( argv[i]);
} else {
fprintf( stderr, "Unrecognized parameter : %s\n", argv[i]);
}
}
}
/* fprintf( stderr,"manfile: %s, helpfile: %s, append: %d, base_level : %d\n",
manfile, helpfile, append, base_level);
*/
status = convertmans( manfile, helpfile, base_level, append, add_parentheses );
free( manfile );
free( helpfile );
return( status );
}
View Git Blame Copy Permalink