home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / ada / 2513 < prev    next >
Encoding:
Text File  |  1992-09-02  |  4.3 KB  |  137 lines
  1. Newsgroups: comp.lang.ada
  2. Path: sparky!uunet!destroyer!sol.ctr.columbia.edu!The-Star.honeywell.com!saifr00.cfsat.honeywell.com!wisniews
  3. From: wisniews@saifr00.cfsat.honeywell.com (Joe Wisniewski)
  4. Subject: Re: ADA help Urgently Requested..Please!!!!
  5. Message-ID: <1992Sep2.200437.3786@saifr00.cfsat.honeywell.com>
  6. Organization: Honeywell Air Transport Systems Division
  7. References: <1992Sep1.211014.1@vmsclst1.sc.csupomona.edu>
  8. Date: Wed, 2 Sep 92 20:04:37 GMT
  9. Lines: 126
  10.  
  11. In article <1992Sep1.211014.1@vmsclst1.sc.csupomona.edu> mgeorgy@vmsclst1.sc.csupomona.edu writes:
  12. >Hello, the program that follows began as a simple imaging program that I was
  13. >writing for myself.  But now it has become a big problem.  Everything ok except
  14. >the file opening and creating.  When I run the program and select option 1 or
  15. >2, open or create a file, I get a DEVICE ERROR.  I can tell you what is
  16. >happening but I just don't know why.  What is happening is that when it get to
  17. >the GET_LINE statment it uses IN_FILE_NAME's decleration of ' '.  Now I should
  18. >tell anyone willing to help me that the statments work alone but not as part of
  19. >another program (ie, IF statment, or sub-PROCEDURES).  I have raked my brain
  20. >and tried everything.  
  21. >
  22. >SOMEONE PLEASE HELP ME!!!!!!
  23. >
  24. >THANX FOR ANY HELP,
  25. >Matt Georgy
  26. >California Polytechnic State University, Pomona  -- Computer Science
  27. >
  28. >+++++++++++++++++++++++++++++++++++++++++++++++++++++++
  29. >+  Cal Poly, Pomona, Making Yesterdays Mistakes Today +
  30. >+++++++++++++++++++++++++++++++++++++++++++++++++++++++
  31. >
  32. >
  33. >P.S. Please reply by posting to the news group our mail system is screwed up
  34. >right now.
  35. >
  36. >THANX AGAIN.
  37. >
  38. >-------------------------------------------------------------------------------
  39. >with TEXT_IO, INTEGER_TEXT_IO, SEQUENTIAL_IO;
  40. >use TEXT_IO, INTEGER_TEXT_IO;
  41. >
  42. >procedure IMAGE is
  43. >   
  44. >type BYTE is range 0..255;
  45. >for BYTE'size use 8;
  46. >
  47. >package BYTE_IO is new SEQUENTIAL_IO(BYTE);
  48. >use BYTE_IO;
  49. >
  50. >   type BYTE_STRING is ARRAY (1..512) of BYTE;
  51. >
  52. >   INF                  :  BYTE_IO.FILE_TYPE;
  53. >   IN_FILE_NAME         :  STRING (1..80) := (others => ' ');
  54. >   INPUT_LINE_LENGTH    :  INTEGER := 0;
  55. >   IN_FILE_OPEN         :  BOOLEAN := FALSE;
  56. >   
  57. >   OUTF                 :  BYTE_IO.FILE_TYPE;
  58. >   OUT_FILE_NAME        :  STRING (1..80) := (others => ' ');
  59. >   OUTPUT_LINE_LENGTH   :  INTEGER := 0;
  60. >   OUT_FILE_OPEN        :  BOOLEAN := FALSE;
  61. >   
  62. >   READ_BYTE            :  BYTE;
  63. >   READ_STRING          :  BYTE_STRING;
  64. >   COUNTER              :  INTEGER := 0;   
  65. >   SELECTION            :  INTEGER := 1;
  66. >   
  67. >   procedure IMAGING_MENU is
  68. >   
  69. >   begin
  70. >   
  71. >      NULL;
  72. >      
  73. >   end IMAGING_MENU;
  74. >   
  75. >begin
  76. >
  77. >   while SELECTION /= 0 loop    
  78. >        PUT("STATUS:     INPUT FILE: ");
  79. >      if IN_FILE_NAME(1) = ' ' then
  80. >         PUT("<NONE>");
  81. >      else
  82. >         PUT(IN_FILE_NAME);
  83. >         IN_FILE_OPEN := TRUE;
  84. >      end if;
  85. >         PUT("        ");
  86. >      PUT("   OUTPUT FILE: ");
  87. >      if OUT_FILE_NAME(1) = ' ' then
  88. >         PUT("<NONE>");
  89. >      else
  90. >         PUT(OUT_FILE_NAME);
  91. >         OUT_FILE_OPEN := TRUE;
  92. >         end if;
  93. >      NEW_LINE(2);
  94. >      PUT("          Welcome to POLY-Vision");
  95. >      NEW_LINE(3);
  96. >      PUT_LINE("                 MAIN MENU");
  97. >      NEW_LINE;
  98. >      PUT_LINE("          (1) Get Input Filename");
  99. >      NEW_LINE;
  100. >      PUT_LINE("          (2) Get Output Filename");
  101. >      NEW_LINE;
  102. >         PUT_LINE("          (3) Begin Image Processing");
  103. >      NEW_LINE;
  104. >      PUT_LINE("          (0) Exit POLY-Vision");
  105. >      NEW_LINE(2);
  106. >      PUT_LINE("                   CHOICE: ");
  107. >      GET(SELECTION);
  108. >      if SELECTION = 1 then
  109. >         PUT_LINE("INPUT FILE NAME: ");
  110. >         GET_LINE(IN_FILE_NAME, INPUT_LINE_LENGTH);
  111. >         open(INF, IN_FILE, IN_FILE_NAME(1..INPUT_LINE_LENGTH));
  112. >      elsif SELECTION = 2 then
  113. >         PUT("OUTPUT FILE NAME: ( ");
  114. >         PUT(IN_FILE_NAME(1..INPUT_LINE_LENGTH - 3));
  115. >         PUT_LINE("NEW )");
  116. >         GET_LINE(OUT_FILE_NAME, OUTPUT_LINE_LENGTH);
  117. >         if OUT_FILE_NAME(1) = ' ' then
  118. >            create(OUTF, OUT_FILE, IN_FILE_NAME(1..INPUT_LINE_LENGTH - 3) & "NEW");
  119. >         else
  120. >            create(OUTF, OUT_FILE, OUT_FILE_NAME(1..OUTPUT_LINE_LENGTH));
  121. >         end if; 
  122. >      elsif SELECTION = 3 then
  123. >         IMAGING_MENU;
  124. >      else
  125. >         if IN_FILE_OPEN then
  126. >            close(INF);
  127. >            end if;
  128. >         if OUT_FILE_OPEN then
  129. >            close(OUTF);
  130. >         end if;
  131. >         EXIT;
  132. >      end if;
  133. >   end loop;
  134. > 
  135. >end IMAGE;
  136.  
  137.