<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type"> </head> <body bgcolor="#ffffff" text="#000000"> Dear Bilal, What are you trying to do here? <tt>   (if   (not (equal? (pdg-vertex-ids-killed (caddr z)) #f))        (abs-loc-set-traverse (pdg-vertex-ids-killed (caddr z)) (display "to" out-port)  )        ) </tt> It looks like you are giving the result of (display "to"  out-port) to the function 'abs-loc-set-traverse'. In this function apparently you're doing an apply on the result of 'display', which yields the given error. So, the lambda you've provided should do what you want, or did you actually want a string as argument (don't use apply on that though ;-). You can give it "to" then. --Hans Bilal, Haider Z schreef: <blockquote cite="mid9FFEE39DADA4A442B06FB5673765F41002848267@CSD-EXBE-VS1.lsbu.ac.uk" type="cite"> <meta http-equiv="Content-Type" content="text/html; "> <meta name="Generator" content="Microsoft Word 11 (filtered medium)"> <o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags" name="country-region"> <o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags" name="City"><o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags" name="Street"> <o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags" name="address"><o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags" name="PlaceType"> <o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags" name="PlaceName"><o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags" name="place">  <style>  </style></o:SmartTagType></o:SmartTagType></o:SmartTagType></o:SmartTagType></o:SmartTagType></o:SmartTagType></o:SmartTagType> <div class="Section1"> Dear Colleagues,<o:p></o:p> <o:p> </o:p> I am a PhD student at LSBU working on ‘Measuring Ripple Effect for Object oriented software’.<o:p></o:p> I would be extremely grateful for your, or whoever you recommend, assistance on a problem I’m facing and stuck on!<o:p></o:p> I have familiarized myself with Scheme and currently working on writing a Scheme program to list for me all assigned TO and FROM variables with their line numbers listed. Apart from the red bolded section of my code shown below, which is supposed to display TO or FROM to each listed variable appropriately, the rest of my program working correctly. However, this section of the code is not working properly and giving me the following error: apply: bad procedure: #[undefined]<o:p></o:p> <o:p> </o:p> A Sample Function of the C program being analysed by the tool I am using (Codesurfer):<o:p></o:p> <o:p> </o:p> /* ======================================================================================== */<o:p></o:p> /* ===========                           biggest_prime                      =============== */<o:p></o:p> /* ======================================================================================== */<o:p></o:p> <o:p> </o:p> int biggest_prime (root)<o:p></o:p> new_tree_node *root;<o:p></o:p> {<o:p></o:p>   /* This function calculates the Biggest prime metric */<o:p></o:p> <o:p> </o:p>  int child;<o:p></o:p>  new_tree_node *parent;<o:p></o:p> <o:p> </o:p>  if ( (*root).prime_name[0] != 'P' && biggest_prime_value < (*(*root).prime).num_of_nodes )<o:p></o:p>      biggest_prime_value = (*(*root).prime).num_of_nodes;<o:p></o:p> <o:p> </o:p>  parent = root->children;<o:p></o:p> <o:p> </o:p>  for(child = 0; child < (*root).child_num; child ++)<o:p></o:p>     if (child == 0)<o:p></o:p>         biggest_prime (root->children);<o:p></o:p>     else<o:p></o:p>        {<o:p></o:p>          biggest_prime (parent->siblings) ;<o:p></o:p>          parent = parent->siblings;<o:p></o:p>        }<o:p></o:p> <o:p> </o:p>   return (biggest_prime_value);<o:p></o:p> }<o:p></o:p> <o:p> </o:p> My Program:<o:p></o:p> (define (assignments)<o:p></o:p> (define filenumber 1)<o:p></o:p>    (for-each<o:p></o:p>       (lambda(pdg)<o:p></o:p>          (when (eqv? (pdg-kind pdg) 'user-defined)<o:p></o:p>             (let* ((out-port (open-output-file (string-append "Fun" (number->string filenumber) "_V.dat"))) (linelist ()))<o:p></o:p>                (pdg-vertex-set-traverse (pdg-vertices pdg)<o:p></o:p>                   (lambda(v)<o:p></o:p>                      (let* ((fileuid (pdg-compilation-uid (pdg-vertex-pdg v))))<o:p></o:p>                         (int-pair-set-traverse (pdg-vertex-charpos v)<o:p></o:p>                            (lambda(offset w)<o:p></o:p>                               (if (not (equal? (pdg-vertex-ids-killed v) #f))<o:p></o:p>                                  (abs-loc-set-traverse (pdg-vertex-ids-killed v)<o:p></o:p>                                     (lambda(y)<o:p></o:p>                                        (let* ((line-num (file-get-line-num fileuid offset)))<o:p></o:p>                                           (set! linelist (cons (list line-num y v) linelist))<o:p></o:p>                                        )<o:p></o:p>                                     #t)<o:p></o:p>                                  )<o:p></o:p>                               )<o:p></o:p>                               (if (not (equal? (pdg-vertex-ids-used v) #f))<o:p></o:p>                                  (abs-loc-set-traverse (pdg-vertex-ids-used v)<o:p></o:p>                                     (lambda(y)<o:p></o:p>                                        (let* ((line-num (file-get-line-num fileuid offset)))<o:p></o:p>                                           (set! linelist (cons (list line-num y v) linelist))<o:p></o:p>                                        )<o:p></o:p>                                     #t)<o:p></o:p>                                  )<o:p></o:p>                               )<o:p></o:p>                            #t)<o:p></o:p>                         )<o:p></o:p>                      )<o:p></o:p>                   #t)<o:p></o:p>                )<o:p></o:p>                (set! linelist <o:p></o:p>                   (sort linelist<o:p></o:p>                      (lambda (a b)<o:p></o:p>                         (< (cadar a) (cadar b))<o:p></o:p>                      )<o:p></o:p>                   )<o:p></o:p>                )<o:p></o:p>                (for-each<o:p></o:p>                   (lambda (z)<o:p></o:p>                      (let ((linenum (car z)))<o:p></o:p>                         (define line-num (car z))<o:p></o:p>                         (display (cdr line-num) out-port)<o:p></o:p>                         (write-char #\tab out-port)<o:p></o:p>                         (if (not (equal? (pdg-vertex-ids-killed (caddr z)) #f))<o:p></o:p>                            (abs-loc-set-traverse (pdg-vertex-ids-killed (caddr z))<o:p></o:p>                                  (display "to" out-port)<o:p></o:p>                            )<o:p></o:p>                         )<o:p></o:p>                         (if (not (equal? (pdg-vertex-ids-used (caddr z)) #f))<o:p></o:p>                            (abs-loc-set-traverse (pdg-vertex-ids-used (caddr z))<o:p></o:p>                                  (display "from" out-port)<o:p></o:p>                            )<o:p></o:p>                         )<o:p></o:p>                         (newline out-port)<o:p></o:p>                      )<o:p></o:p>                   )<o:p></o:p>                linelist)<o:p></o:p>             (close-output-port out-port))<o:p></o:p>          (set! filenumber (+ filenumber 1)))<o:p></o:p>       )<o:p></o:p>    (sdg-pdgs))<o:p></o:p> )<o:p></o:p> (assignments)<o:p></o:p> <o:p> </o:p> I have tried to use the lambda function, as shown below:<o:p></o:p>                         (if (not (equal? (pdg-vertex-ids-killed (caddr z)) #f))<o:p></o:p>                            (abs-loc-set-traverse (pdg-vertex-ids-killed (caddr z))<o:p></o:p>                               (lambda (x)<o:p></o:p>                                  (display "to" out-port)<o:p></o:p>                               #t)<o:p></o:p>                            )<o:p></o:p>                         )<o:p></o:p>                         (if (not (equal? (pdg-vertex-ids-used (caddr z)) #f))<o:p></o:p>                            (abs-loc-set-traverse (pdg-vertex-ids-used (caddr z))<o:p></o:p>                               (lambda (x)<o:p></o:p>                                  (display "from" out-port)<o:p></o:p>                               #t)<o:p></o:p>                            )<o:p></o:p>                         )<o:p></o:p> <o:p> </o:p> However, it gave me wrong output, some had TO and FROM both listed together:<o:p></o:p> (257)     from<o:p></o:p> (257)     to<o:p></o:p> (257)     from<o:p></o:p> (258)     to<o:p></o:p> (265)     from<o:p></o:p> (265)     fromfrom<o:p></o:p> (265)     fromfrom<o:p></o:p> (266)     tofrom<o:p></o:p> (266)     tofrom<o:p></o:p> (268)     tofrom<o:p></o:p> (268)     tofrom<o:p></o:p> (270)     fromfrom<o:p></o:p> (270)     fromfrom<o:p></o:p> (270)     fromfrom<o:p></o:p> (270)     to<o:p></o:p> (270)     fromfrom<o:p></o:p> (270)     tofrom<o:p></o:p> (270)     tofrom<o:p></o:p> (271)     from<o:p></o:p> (272)     from<o:p></o:p> (275)     from<o:p></o:p> (276)     tofrom<o:p></o:p> (276)     tofrom<o:p></o:p> (279)     tofrom<o:p></o:p> (279)     tofrom<o:p></o:p> <o:p> </o:p> I would appreciate and value your time in guiding me to what needs to be done to correct this problem very much please.<o:p></o:p> <o:p> </o:p> Thank you.<o:p></o:p> Yours faithfully,<o:p></o:p> HZBilal.<o:p></o:p> <o:p> </o:p> --- Mr Haider Zuhair Bilal BEng MSc MIEE MIEEE MBCS PhD Research Scholar Centre for Systems and Software Engineering Faculty of Business, Computing and Information Management <st1:place w:st="on"><st1:PlaceName w:st="on">London</st1:PlaceName> <st1:PlaceName w:st="on">South</st1:PlaceName> <st1:PlaceName w:st="on">Bank</st1:PlaceName> <st1:PlaceType w:st="on">University</st1:PlaceType></st1:place> <st1:Street w:st="on"><st1:address w:st="on">103 Borough Road</st1:address></st1:Street> <st1:place w:st="on"><st1:City w:st="on">London</st1:City></st1:place> SE1 0AA <st1:place w:st="on"><st1:country-region w:st="on">UK</st1:country-region></st1:place><o:p></o:p>  <o:p></o:p> Tel: +44(0)20 7815 7473 Fax: +44(0)20 7815 7550 <st1:place w:st="on"><st1:City w:st="on">Mobile</st1:City></st1:place>: +44(0)7887 598355<o:p></o:p> <o:p> </o:p> <o:p> </o:p> </div> This e-mail message may be confidential and is intended only for the use of the individual(s) to whom it is addressed. It may contain information which is or may be confidential, non-public or legally privileged. Please do not disseminate or distribute this message other than to its intended recipient without permission of the author. You should not copy it or use it for any purpose nor disclose its contents to any other person. If you have received this message in error, please notify me by email immediately and delete the original message and all copies in your computer systems. <pre wrap=""> <hr size="4" width="90%"> _________________________________________________ For list-related administrative tasks: <a class="moz-txt-link-freetext" href="http://list.cs.brown.edu/mailman/listinfo/plt-scheme">http://list.cs.brown.edu/mailman/listinfo/plt-scheme</a> </pre> </blockquote> </body> </html>