mirror of
https://github.com/libssh2/libssh2.git
synced 2025-07-31 00:03:08 +03:00
VMS port of libssh2 including VMS specific build procedures
This commit is contained in:
Jose Baars
committed by
Daniel Stenberg
Daniel Stenberg
parent
28ef62be20
commit
ad1ec1c9e4
506
vms/man2help.c
Normal file
506
vms/man2help.c
Normal file
@ -0,0 +1,506 @@
|
||||
#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 )
|
||||
{
|
||||
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;
|
||||
}
|
||||
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 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 );
|
||||
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" );
|
||||
}
|
||||
/*--------------------------------------------*/
|
||||
|
||||
main ( int argc, char **argv )
|
||||
{
|
||||
int status;
|
||||
int i,j;
|
||||
int append, base_level, basechange;
|
||||
char *manfile=NULL;
|
||||
char *helpfile=NULL;
|
||||
|
||||
if ( argc < 3 ){
|
||||
print_help();
|
||||
return( 1 ) ;
|
||||
}
|
||||
|
||||
append = 0;
|
||||
base_level = 1;
|
||||
basechange = 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;
|
||||
}
|
||||
}
|
||||
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 );
|
||||
|
||||
free( manfile );
|
||||
free( helpfile );
|
||||
|
||||
return( status );
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user