home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / sys / apple2 / 24259 < prev    next >
Encoding:
Text File  |  1992-11-19  |  4.7 KB  |  126 lines
  1. Newsgroups: comp.sys.apple2
  2. Path: sparky!uunet!cs.utexas.edu!hermes.chpc.utexas.edu!news.utdallas.edu!corpgate!bnrgate!nott!cunews!revcan!micor!beejay
  3. From: beejay@Micor.OCUnix.on.ca (Basil Johnson)
  4. Subject: Re: Editors
  5. Organization: M.B. Cormier INC.
  6. Date: Fri, 20 Nov 92 01:02:21 EST
  7. Message-ID: <maXiuB1w165w@Micor.OCUnix.on.ca>
  8. References: <9211180618.AA16914@chasm.scar.utoronto.ca>
  9. Sender: view@micor.ocunix.on.ca (View)
  10. Lines: 114
  11.  
  12. 90taobri@CHASM.SCAR.UTORONTO.CA (Brian Tao) writes:
  13.  
  14. > 
  15. >     Now that I've finished my mid-terms (and only one lab report to do
  16. > for the entire week!), I can start some serious pounding at my
  17. > AppleWorks 3.0 script for uemacs 3.11c.  Rather than taking the easy way
  18. > out and simply mimicking the keystrokes, I've started writing procedures
  19. > so that things like search-and-replace comes up with the same prompts.
  20. > There are a few things I can't do easily (like OA-1 thru OA-9 would be a
  21. > bitch to program), but it looks like it will be able to retain most of
  22. > the AppleWorks-style commands.
  23. > --
  24. > -=+ Brian Tao (taob@r-node.pci.on.ca, 90taobri@chasm.scar.utoronto.ca) +=-
  25. >                                    -=+=-
  26. >      -=+ MuGS: The Only Internet Mail Reader For The Apple IIGS! +=-
  27. > 
  28.  
  29.  
  30.  
  31. Not difficult at all, Brian.  I had to implement OA-1/OA-9 
  32. commands this past week-end with HyperC.  Well, I cheated a 
  33. bit.  HyperC doesn't have a function to peek at a memory 
  34. location so I wrote one in assembly for it.  I assume ORCA/C 
  35. has such a function.  If it does, you can port this easily.  
  36. If it doesn't I'm sure someone here will write the code for 
  37. you.  I could write the 8 bit code but I don't know how to 
  38. interface assembly and ORCA/C.
  39.  
  40. The HyperC getkey() function waits indefinitely until the keyboard
  41. is struck and returns the struck character with the high bit 
  42. clear.  The extended getkey function [getekey()] checks the 
  43. Open-Apple key (0xc061); the high bit is set if it is.  Since 
  44. the normal read of the keyboard has high bit low, I simply 
  45. set the high bit if the OA key was also struck.  So, all my 
  46. OA prefixed commands have the high bit set as is evident from 
  47. the defines.
  48.  
  49. This is not a program.  I have cut and paste the relevant 
  50. sections from mine for you.  Good Luck with your reader. 
  51.  
  52. Your compatriot in Ottawa,
  53. Basil
  54.  
  55. beejay@micor.ocunix.on.ca
  56. -- 
  57.                                 /* ASCII control characters */
  58. #define ASCNUL      3
  59. #define ASCBEL      7
  60. #define ASCBS       8
  61. #define ASCTAB      9
  62. #define ASCLF    0x0A
  63. #define ASCFF    0x0C
  64. #define ASCCR    0x0D
  65. #define ASCESC   0x1B
  66. #define ASCDEL   0x7F
  67. #define ASCSPACE 0x20
  68.                                 /* cursor movement Control keys */
  69. #define UPARROW     0x0b
  70. #define DOWNARROW   0x0a
  71. #define LEFTARROW   0x08
  72. #define RIGHTARROW  0x15
  73.  
  74.                                 /* Open-Apple command keys */
  75.                                 /*  (high bit is set) */
  76. #define HOMEKEY     0xb1        /* OA-1 (beginning of text) */
  77. #define ENDKEY      0xb9        /* OA-9 (end of text) */
  78. #define PGDNKEY     0x8a        /* OA-DownArrow (Page down) */
  79. #define PGUPKEY     0x8b        /* OA-UpArrow (Page up) */
  80. #define HELPKEY     0xbf        /* OA-? (Help) */
  81.  
  82. #define INVALIDCMD 999
  83.  
  84. int get_cmd()                   /* get next input command from keyboard 
  85. */
  86. {                               /* returns the command type entered */
  87.     int key ;                   /* the keyboard input value */
  88.                                 /*  (see keyio.h for values) */
  89.     int cmd ;                   /* the command type value */
  90.  
  91.     cmd = INVALIDCMD ;          /* get next keyboard input */
  92.     while(cmd == INVALIDCMD)
  93.         { key = getekey() ;     /* get next keyboard input */
  94.           switch(key)           /* classify the key pressed */
  95.             {
  96.             case PGDNKEY : cmd = NEXTPAGE   ;break ;
  97.             case PGUPKEY : cmd = PREVPAGE   ;break ;
  98.             case ASCESC  : cmd = EXITPGM    ;break ;
  99.             case HOMEKEY : cmd = FIRSTPAGE  ;break ;
  100.             case ENDKEY  : cmd = LASTPAGE   ;break ;
  101.             case UPARROW : cmd = PREVLINE   ;break ;
  102.             case DOWNARROW: cmd = NEXTLINE  ;break ;
  103.             case HELPKEY : cmd = HELPCMD    ;break ;
  104.             default      : cmd = INVALIDCMD ;
  105.             }   /* end of switch statement */
  106.         }
  107.     return(cmd) ;
  108.  }
  109.  
  110.  
  111. /* getekey - waits for and returns the next keystroke input */
  112. /*         - use when expecting OA commands and other commands */
  113. /* Use HyperC's getkey() when OA commands are not expected */
  114.  
  115. int getekey()                       /* get the next key input */
  116.  {
  117.     int c ;
  118.  
  119.     c = getkey(YES) ;                  /* get single ASCII character */
  120.     if(peekb(0xc061) >= 0x80)          /* check for open-apple */
  121.         c = 0x80 + c ;
  122.     return (c) ;
  123.  }
  124.  
  125.  
  126.