src/Basics/SinglePar.cc
// Input	    par : A single parameter (this)
//		    line: String representing part of ASCII input line
// Return	    stat: TRUE if coord parameter set from line
Input      par : A single parameter (this)
line: String representing part of ASCII input line
Return     stat: TRUE if coord parameter set from line
Input par : A single parameter ( this ) line : String representing part of ASCII input line Return stat : TRUE if coord parameter set from line
int SinglePar::setCoord(string& input)
  {
  cutBlksXBlks(input, "(");			
  string scratch = cutDouble(input);		
  if(scratch == string("")) return -1;			
  ParData = string("( ") + scratch;		
  cutBlksXBlks(input, ",");			
  scratch = cutDouble(input);			
  if(scratch == string("")) return -1;			
  ParData += string(", ") + scratch;		
  cutBlksXBlks(input, ",");			
  scratch = cutDouble(input);			
  if(scratch == string("")) return -1;			
  ParData += string(", ") + scratch 		, # ) 
          +  string(" )");
  cutBlksXBlks(input, ")");			
  cutBlksXBlks(input, "-");			
  ParState = input;				
  return 1;
  }
int SinglePar :: setCoord ( string & input ) { cutBlksXBlks ( input , " " ) ; string scratch = cutDouble ( input ) ; if ( scratch == string ( " " ) ) return -1 ; ParData = string ( " " ) + scratch ; cutBlksXBlks ( input , " " ) ; scratch = cutDouble ( input ) ; if ( scratch == string ( " " ) ) return -1 ; ParData += string ( " " ) + scratch ; cutBlksXBlks ( input , " " ) ; scratch = cutDouble ( input ) ; if ( scratch == string ( " " ) ) return -1 ; ParData += string ( " " ) + scratch + string ( " " ) ; cutBlksXBlks ( input , " " ) ; cutBlksXBlks ( input , " " ) ; ParState = input ; return 1 ; }
Input      par : A single parameter (this)
line: String representing part of ASCII input line
Return     stat: TRUE if coord parameter set from line
Input par : A single parameter ( this ) line : String representing part of ASCII input line Return stat : TRUE if coord parameter set from line
// Cut out past (  // Cut out a double // Bail if no 1st ordinate // Start data with ( # // Remove blanks & comma // Cut out a double // Bail if no 2nd ordinate // Data now ( #, # // Remove blanks & comma // Cut out a double // Bail if no 3nd ordinate // Data now ( #, #, # )  // Cut out past closing ) // Cut remaining past - // Rest is the comment