home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / sys / hp / 9471 < prev    next >
Encoding:
Text File  |  1992-08-19  |  2.1 KB  |  73 lines
  1. Path: sparky!uunet!charon.amdahl.com!pacbell.com!mips!swrinde!sdd.hp.com!hpscdc!cupnews0.cup.hp.com!hppad.waterloo.hp.com!hppad!hpfcso!acmeyer
  2. From: acmeyer@hpfcso.FC.HP.COM (Alan C. Meyer)
  3. Newsgroups: comp.sys.hp
  4. Subject: Re: "sleep" and "fdate" on the hp workstations?
  5. Message-ID: <7371238@hpfcso.FC.HP.COM>
  6. Date: 20 Aug 92 00:20:25 GMT
  7. References: <1992Aug19.184947.20518@portal.vpharm.com>
  8. Organization: Hewlett-Packard, Fort Collins, CO, USA
  9. Lines: 62
  10.  
  11. In comp.sys.hp, dap@portal.vpharm.com (David A. Pearlman) writes:
  12.  
  13. > I have a piece of code that has successfully compiled on a large variety
  14. > of Unix workstations that makes use of "SLEEP()" and "FDATE()" calls.
  15. > This is Fortran code.
  16. > 
  17. > On the hp's, I have problems:
  18. > 
  19. > 1) FDATE doesn't appear to exist. Does anyone know of a suitable
  20. >    replacement?
  21. > 
  22. > 2) SLEEP() compiles OK, but then it seems to just hang. According to the
  23. >    man page (and by analogy to all the other Unix systems I've ported to),
  24. >    SLEEP(ITIME) should suspend the process for ITIME seconds. On the
  25. >    hp, the process just hangs, seemingly indefinitely.
  26. > 
  27. > Any advice?
  28.  
  29. In an upcoming release of the Fortran compiler, both of these functions
  30. will be available as intrinsics.  In the meantime, here are workarounds.
  31.  
  32. For FDATE, you can write your own C routine that will perform the desired
  33. operation:
  34.  
  35.     File fdate.c:
  36.  
  37.     fdate(str, strlen)
  38.     char *str; 
  39.     long strlen;
  40.     {
  41.         char *ctime(), *timestr;
  42.         long time(), curtime;
  43.     
  44.         curtime = time(0);
  45.         timestr = ctime(&curtime);
  46.         timestr[24] = '\0';
  47.         strncpy(str, timestr, strlen);
  48.     }
  49.  
  50. The corresponding Fortran file might look like:
  51.  
  52.     CHARACTER*30 S
  53.     CALL FDATE(S)
  54.     PRINT *, S
  55.     END
  56.  
  57. For SLEEP, you can directly call the libc sleep routine, but you need
  58. to be careful to pass the argument by value:
  59.  
  60. $alias sleep(%val)
  61.     ...
  62.     call sleep(10)
  63.  
  64. Without the $alias directive, the argument is passed by reference and
  65. sleep will receive a stack address as the number of seconds to pause.
  66. This might explain the behavior you are seeing.
  67.  
  68. Alan Meyer
  69. Colorado Language Lab
  70. acmeyer@fc.hp.com
  71.  
  72. "These are my own opinions ..."
  73.