chiark - git - mdw - ssr/blob - StraySrc/Libraries/Sapphire/sail/_sh/getToken

   1 ;
   2 ; getToken.sh
   3 ;
   4 ; The getting of the next token from the input file
   5 ;
   6 ; © 1995 Straylight
   7 ;
   8
   9 ;----- Overview -------------------------------------------------------------
  10 ;
  11 ; Functions provided:
  12 ;
  13 ;  getToken
  14
  15                 [       :LNOT::DEF:getToken__dfn
  16                 GBLL    getToken__dfn
  17
  18 ; --- getToken ---
  19 ;
  20 ; On entry:     R8 == lookahead token
  21 ;               R9 == current line number
  22 ;               R10 == evaluation stack pointer
  23 ;               R11 == pointer into the tokenised buffer
  24 ;               R12 == anchor block pointer
  25 ;
  26 ; On exit:      R8 == new lookahead token
  27 ;               R11 == moved on to the first character after the rvalue
  28 ;               CC if the EOF char has not been reached,
  29 ;               CS otherwise
  30 ;
  31 ; Use:          Tries to read an token from the current input line
  32
  33                 IMPORT  getToken
  34
  35                 ]
  36
  37 ;----- That's all, folks ----------------------------------------------------
  38
  39                 END