home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / c / 11796 < prev    next >
Encoding:
Text File  |  1992-07-30  |  2.9 KB  |  105 lines
  1. Path: sparky!uunet!elroy.jpl.nasa.gov!swrinde!cs.utexas.edu!asuvax!ennews!envmsa.eas.asu.edu!ptran
  2. From: ptran@envmsa.eas.asu.edu (Phi-Long Tran)
  3. Newsgroups: comp.lang.c
  4. Subject: Re: HELP
  5. Message-ID: <30JUL199221370673@envmsa.eas.asu.edu>
  6. Date: 31 Jul 92 04:37:00 GMT
  7. References: <1992Jul30.154323.12491@cc.umontreal.ca> <rfries.82@fries_Robert@ub.ub.com>
  8. Sender: news@ennews.eas.asu.edu (USENET News System)
  9. Organization: Arizona State University, Tempe, AZ
  10. Lines: 92
  11. News-Software: VAX/VMS VNEWS 1.4-b1
  12.  
  13. In article <rfries.82@fries_Robert@ub.ub.com>, 
  14. rfries@fries_Robert@ub.ub.com (Robert Fries) writes...
  15. >In article <1992Jul30.154323.12491@cc.umontreal.ca> 
  16. mikhail@ERE.UMontreal.CA (Mikhail Ossama) writes:
  17.  
  18. >>#include <stdio.h>
  19. >>#include <stdlib.h>
  20. > 
  21. >>main(int argc, char *argv[])
  22. >>{
  23. >>if (argc!=4)
  24. >> { 
  25. >>  printf( " Usage : ./link prog.f -o prog.exe \n ");
  26. >>  exit(0); 
  27. >> }
  28. >>system(f77 argv[1] -o argv[3] -L/usagers/garcia/gqopt/lib -lgq5 -lthomas -p);
  29. >>}
  30. > 
  31. >Bonjour !
  32. > 
  33. >Try
  34. >system
  35. >("f77 argv[1] -o argv[3] -L/usagers/garcia/ggopt/lib -lgq5 -lthomas - p");
  36. > ^                                                                     ^
  37.  
  38.      Sorry, no French.  The closest I would try is German ... but that's
  39. not EVEN close.  There are two errors:
  40.  
  41. 1) The function "system" requires a string (solved in the reply by Mr.
  42. Ossama.
  43.  
  44. 2) You need to format the string to contain the two arguments passed to the
  45. program in argv[1] and argv[3].
  46.  
  47.      Try the following:
  48.  
  49. #define MAX_CMDLEN 255 /* Maximum length of command to pass to system. */
  50.  
  51. main(int argc, char *argv[])
  52. {
  53.    char command_string[MAX_CMDLEN];
  54.  
  55.    if (argc != 4)
  56.    {
  57.       /* Same as in original code. */
  58.    }
  59.  
  60.    sprintf( command_string, 
  61.       "f77 %s -o %s -L/usagers/garcia/ggopt/lib -lgq5 -lthomas - p", 
  62.       argv[1], argv[3]);
  63.  
  64.    if (system( command_string ) != 0) /* Check to see if command failed. */
  65.    {
  66.       /* Report the error. */
  67.       exit( EXIT_FAILURE );
  68.    }
  69.    else
  70.       exit( EXIT_SUCCESS );
  71. }
  72.  
  73.      You can check your local reference manuals about the exit() call and
  74. the defines EXIT_FAILURE and EXIT_SUCCESS.
  75.  
  76.      If all you want is to spare yourself the trouble of specifying default
  77. arguments to f77, there are several ways.  You may want to look into using
  78. a makefile to automate compiling and linking.  If you still want to retain
  79. the flexibility of the above program, you can use the following UNIX shell
  80. script (I assume you're using UNIX from your original call to system):
  81.  
  82. --- Beginning of Script ---
  83. #!/bin/sh
  84. #
  85. # Execute f77 with usual librariess and options.  User only specifies
  86. # source file and name of resulting executable.  No need for "-o", although
  87. # we can add statements to handle that.
  88. #
  89.  
  90. if [ $# -lt 2 ]
  91.    then
  92.    echo "Usage: $0 source_file executable_file"
  93.    exit 1
  94. fi
  95.  
  96. libs="-L/usagers/garcia/ggopt/lib -lgq5 -lthomas"
  97.  
  98. f77 $1 -o $2 ${libs} - p
  99. --- End of Script ---
  100.  
  101. ---
  102. Phi-Long Tran
  103. ptran@asuvax.eas.asu.edu
  104. Arizona State University
  105.