home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / vmsnet / funadv / patch1 < prev    next >
Encoding:
Internet Message Format  |  1992-04-09  |  1.9 KB
  1. Path: uunet!nntp1.radiomail.net!fernwood!portal!cup.portal.com!FisKer
  2. From: FisKer@cup.portal.com (Scott M Martin)
  3. Newsgroups: vmsnet.sources.games
  4. Subject: FUNADV without the PASCAL
  5. Message-ID: <55588@cup.portal.com>
  6. Date: Mon,  9 Mar 92 18:35:47 PST
  7. Organization: The Portal System (TM)
  8. Distribution: world
  9.  
  10. I just downloaded FUNADV, and to my dismay, I saw that I needed a
  11. PASCAL compiler for two files: USER.PAS and SHIFT.PAS
  12.  
  13. Well,  I don't have a PASCAL compiler, so I thought I'd upload a
  14. replacement for user.pas in FORTRAN.  Also, instead of using the
  15. SHIFT routine, you can easily substitute the FORTRAN JISHFTC function
  16. which does the same thing.  The SHIFT function is called in FUNADV.FOR,
  17. so replace both occurrences as follows:
  18.  
  19. SHIFT(1,n) becomes JISHFTC(1,n,32) 
  20. SHIFT(1,k) becomes JISHFTC(1,k,32)
  21.  
  22. Remove all references to SHIFT in the $BUILD.COM file.
  23.  
  24.  
  25. I renamed the USER routine to GETUSER; I saw that the COMMON was using
  26. USER and I like to have uniqueness among common blocks and subroutines.
  27. Of course, this requires you to change CALL USER to CALL GETUSER in the
  28. WIZARD.FOR file, as well as changing references in $BUILD.COM from USER
  29. to GETUSER.
  30.  
  31. The above may sound lengthy, but it'll only take a couple of minutes.
  32. The next file is the actual routine to get the username.
  33.  
  34. Have fun.
  35. Path: uunet!nntp1.radiomail.net!fernwood!portal!cup.portal.com!FisKer
  36. From: FisKer@cup.portal.com (Scott M Martin)
  37. Newsgroups: vmsnet.sources.games
  38. Subject: GETUSER.FOR - replaces USER.PAS
  39. Message-ID: <55589@cup.portal.com>
  40. Date: Mon,  9 Mar 92 18:38:09 PST
  41. Organization: The Portal System (TM)
  42. Distribution: world
  43.  
  44.       SUBROUTINE GETUSER(username)
  45.  
  46.       CHARACTER  jpi_pid*8, username*12
  47.       INTEGER    dummy, pid
  48.  
  49.       INCLUDE '($JPIDEF)'
  50.  
  51.       call lib$getjpi(jpi$_pid,,,pid,jpi_pid)            ! get PID
  52.       call lib$getjpi(jpi$_username,pid,,dummy,username)    ! get username
  53.  
  54.       RETURN
  55.       end
  56.