home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume14 / n3emo-orbit / patch01 next >
Encoding:
Text File  |  1990-09-15  |  2.3 KB  |  87 lines
  1. Newsgroups: comp.sources.misc
  2. X-UNIX-From: Bob.Berger@vi.ri.cmu.edu
  3. organization: Carnegie-Mellon University, CS/RI
  4. subject: v14i095: Patch to orbit3.7
  5. from: rwb@vi.ri.cmu.edu (Bob Berger)
  6. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  7.  
  8. Posting-number: Volume 14, Issue 95
  9. Submitted-by: rwb@vi.ri.cmu.edu (Bob Berger)
  10. Archive-name: n3emo-orbit/patch01
  11.  
  12. The following patch file fixes a few minor bugs in  version 3.7 of my
  13. satellite orbit simulator, producing version 3.9.
  14.  
  15. Just feed this message to patch.
  16.  
  17. Bob  N3EMO
  18.  
  19.  
  20. Index: orbit.c
  21. 4a5,11
  22. >     4/2/1990    v3.9 Misc bug fixes. Changed ElementSet and
  23. >             EpochRev to unsigned longs in nasa.c. Allow
  24. >             satellite names with spaces in mode.dat.
  25. > 
  26. >     3/15/1990    v3.8 Stop assigning single character abbreviations
  27. >             after the 62nd satellite.
  28. > 
  29. 97c104
  30. < char VersionStr[] = "N3EMO Orbit Simulator  v3.7";
  31. ---
  32. > char VersionStr[] = "N3EMO Orbit Simulator  v3.9";
  33. 151,156c158,173
  34. <         printf("    %c) %s",satchar,&str[11]);
  35. <         if (satchar == 'z')
  36. <         satchar = 'A';
  37. <                else if (satchar == 'Z')
  38. <            satchar = '0';
  39. <                 else satchar++;
  40. ---
  41. >         printf("\t");
  42. >         if (satchar != 0)
  43. >         printf("%c) ",satchar);
  44. >          else
  45. >         printf("   ");
  46. >         printf("%s",&str[11]);
  47. >         if (satchar)
  48. >         {
  49. >         if (satchar == 'z')
  50. >             satchar = 'A';
  51. >                    else if (satchar == 'Z')
  52. >               satchar = '0';
  53. >              else if (satchar == '9')
  54. >                satchar = 0;
  55. >                      else satchar++;
  56. >         }
  57. 366,367c383,384
  58. <     if (sscanf(str,"Satellite: %s",str) == 1
  59. <         && cstrcmp(SatName,str) == 0)
  60. ---
  61. >      if (strncmp(str,"Satellite: ",11) == 0)
  62. >        if (cstrncmp(SatName,&str[11],strlen(SatName)) == 0)
  63. Index: nasa.c
  64. 12c12,13
  65. <     int LineNum,SatNum,ElementSet,EpochRev;
  66. ---
  67. >     int LineNum,SatNum;
  68. >     unsigned long ElementSet,EpochRev;
  69. 49c50
  70. <     sscanf(line1,"%*2c%5d%*10c%2lf%12lf%10lf%*21c%5d",
  71. ---
  72. >     sscanf(line1,"%*2c%5d%*10c%2lf%12lf%10lf%*21c%5lu",
  73. 55c56
  74. <     sscanf(line2,"%*8c%8lf%8lf%7lf%8lf%8lf%11lf%5d",
  75. ---
  76. >     sscanf(line2,"%*8c%8lf%8lf%7lf%8lf%8lf%11lf%5lu",
  77. 65c66
  78. <     fprintf(OutFile,"Element set: %d\n",ElementSet);
  79. ---
  80. >     fprintf(OutFile,"Element set: %lu\n",ElementSet);
  81. 73c74
  82. <     fprintf(OutFile,"Epoch rev: %d\n",EpochRev);
  83. ---
  84. >     fprintf(OutFile,"Epoch rev: %lu\n",EpochRev);
  85.  
  86.  
  87.