Stats

  • Locked Locked
  • Replies 15
  • Subscribers 145
  • Views 24587
  • Members are here 0
This discussion has been locked.
You can no longer post new replies to this discussion. If you have a question you can start a new discussion

How to parse the contents of a file?

Messi

Hi everyone,

    If for example i have some file say rules file with contents of file being : <ruleno.> <rule name> <value>.

   How to parse the contents of this file and store in  table format?

  Can i get code for this?

Thanks,

  Messi

Parents

  • Hi, thanks for the help

     My code was this: This had space as delimiter .

    procedure( parseFile( fileName )
    let( (ruleFile line token tmpList Ctr wordlist)
     
        unless( ruleFile = infile( fileName)
          error( "Cannot open file %L for reading" fileName)
        ) ; unless
        
        Table = makeTable( "MY_TABLE" nil)
        Ctr = 1
        token = car( line)
        tmpList = cons( token tmpList)
        Table[token] = list( "list(")
        gets( line ruleFile)
        Ctr = Ctr + length(
      setof( paren parseString( line "") paren == "("))
        Ctr = Ctr - length(
      setof( paren parseString( line "") paren == ")")) 
      
        wordList = parseString( line " \n\t")
         while( Ctr != 0 && line
             Table[token] = cons( line Table[token])
                    gets( line ruleFile)
        wordList = parseString( line||"" " \n\t")
            Ctr = Ctr + length(
          setof( paren parseString( line||"" "") paren == "("))
             Ctr = Ctr - length(
        setof( paren parseString( line||"" "") paren == ")"))
           ) ; while 
         if( Ctr == 0 then
             Table[token] = reverse( cons( line
               Table[token]))
           else
      
      Table[token] = "ERROR "
           ) ; if
          );list      
          
          
      
        close(ruleFile)
        list( reverse( tmpList) Table )
      
     
       );let
     );procedure
       
    anyway thanks, i was experimenting with my input file and trying to bring changes in my code to as i felt that is the best way to learn.

     

    Regards,

    Messi

Reply

  • Hi, thanks for the help

     My code was this: This had space as delimiter .

    procedure( parseFile( fileName )
    let( (ruleFile line token tmpList Ctr wordlist)
     
        unless( ruleFile = infile( fileName)
          error( "Cannot open file %L for reading" fileName)
        ) ; unless
        
        Table = makeTable( "MY_TABLE" nil)
        Ctr = 1
        token = car( line)
        tmpList = cons( token tmpList)
        Table[token] = list( "list(")
        gets( line ruleFile)
        Ctr = Ctr + length(
      setof( paren parseString( line "") paren == "("))
        Ctr = Ctr - length(
      setof( paren parseString( line "") paren == ")")) 
      
        wordList = parseString( line " \n\t")
         while( Ctr != 0 && line
             Table[token] = cons( line Table[token])
                    gets( line ruleFile)
        wordList = parseString( line||"" " \n\t")
            Ctr = Ctr + length(
          setof( paren parseString( line||"" "") paren == "("))
             Ctr = Ctr - length(
        setof( paren parseString( line||"" "") paren == ")"))
           ) ; while 
         if( Ctr == 0 then
             Table[token] = reverse( cons( line
               Table[token]))
           else
      
      Table[token] = "ERROR "
           ) ; if
          );list      
          
          
      
        close(ruleFile)
        list( reverse( tmpList) Table )
      
     
       );let
     );procedure
       
    anyway thanks, i was experimenting with my input file and trying to bring changes in my code to as i felt that is the best way to learn.

     

    Regards,

    Messi

Children
No Data

Community Guidelines

The Cadence Design Communities support Cadence users and technologists interacting to exchange ideas, news, technical information, and best practices to solve problems and get the most from Cadence technology. The community is open to everyone, and to provide the most value, we require participants to follow our Community Guidelines that facilitate a quality exchange of ideas and information. By accessing, contributing, using or downloading any materials from the site, you agree to be bound by the full Community Guidelines.