contrib/dsgrid/Src/dsuser.c
void c_dsgetc(char *pnam, char *vnam)
{
   char *s;
   if (!strncmp(pnam,"erf",3) || !strncmp(pnam,"ERF",3)) {
      s = ds_error_file;
   }
   else {
      sprintf(ds_emsg,"\n  Parameter name supplied is: %s\n",pnam);
      DSErrorHnd(4, "c_dsgetc", ds_filee, ds_emsg);
      return;
   }
   for ( ;  *s != '\0'; ++s, ++vnam) {
      *vnam = *s;
   }
      *vnam = '\0';
}
/*
 *  Get values for character parameters.
 */
Get values for character parameters.
Get values for character parameters .
void c_dsgetc(char *pnam, char *vnam)
{
   char *s;
   if (!strncmp(pnam,"erf",3) || !strncmp(pnam,"ERF",3)) {
      s = ds_error_file;
   }
   else {
      sprintf(ds_emsg,"\n  Parameter name supplied is: %s\n",pnam);
      DSErrorHnd(4, "c_dsgetc", ds_filee, ds_emsg);
      return;
   }
   for ( ;  *s != '\0'; ++s, ++vnam) {
      *vnam = *s;
   }
      *vnam = '\0';
}
void c_dsgetc ( char * pnam , char * vnam ) { char * s ; if ( ! strncmp ( pnam , " " , 3 ) || ! strncmp ( pnam , " " , 3 ) ) { s = ds_error_file ; } else { sprintf ( ds_emsg , " \n \n " , pnam ) ; DSErrorHnd ( 4 , " " , ds_filee , ds_emsg ) ; return ; } for ( ; * s != ' \0 ' ; ++ s , ++ vnam ) { * vnam = * s ; } * vnam = ' \0 ' ; }
Get values for character parameters.
Get values for character parameters .