Changeset 2899


Ignore:
Timestamp:
Mar 19, 2012, 8:05:21 PM (3 years ago)
Author:
wmb
Message:

Eliminated the last vestiges of the long-obsolete p" format.

Files:
10 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/mmp2/fw.bth

    r1987 r2899  
    478478   quit
    479479;
    480 
    481 \ This helps with TeraTerm, which sends ESC-O as the arrow key prefix
    482 also hidden also keys-forth definitions
    483 warning @  warning off
    484 : esc-o  key lastchar !  [""] esc-[ do-command  ;
    485 warning !
    486 previous previous definitions
    487480
    488481tag-file @ fclose  tag-file off
  • cpu/arm/olpc/prefw.fth

    r2815 r2899  
    219219devalias nfs net//obp-tftp:last//nfs
    220220
    221 \ This helps with TeraTerm, which sends ESC-O as the arrow key prefix
    222 also hidden also keys-forth definitions
    223 warning @  warning off
    224 : esc-o  key lastchar !  [""] esc-[ do-command  ;
    225 warning !
    226 previous previous definitions
    227 
    228221\ GUI
    229222false value gui-safeboot?
  • cpu/x86/pc/lxdevel/fw.bth

    r2865 r2899  
    488488   " begin-select /display  3 my-space 4 + config-w! unselect" evaluate
    489489;
    490 
    491 \ This helps with TeraTerm, which sends ESC-O as the arrow key prefix
    492 also hidden also keys-forth definitions
    493 warning @  warning off
    494 : esc-o  key lastchar !  [""] esc-[ do-command  ;
    495 warning !
    496 previous previous definitions
    497490
    498491.( --- Saving fw.dic ...)
  • cpu/x86/pc/neptune/fw.bth

    r2865 r2899  
    438438   quit
    439439;
    440 
    441 \ This helps with TeraTerm, which sends ESC-O as the arrow key prefix
    442 also hidden also keys-forth definitions
    443 warning @  warning off
    444 : esc-o  key lastchar !  [""] esc-[ do-command  ;
    445 warning !
    446 previous previous definitions
    447440
    448441tag-file @ fclose  tag-file off
  • cpu/x86/pc/olpc/fw.bth

    r2866 r2899  
    659659
    660660fload ${BP}/cpu/x86/pc/olpc/diskspeed.fth  \ Mass storage speed test
    661 
    662 \ This helps with TeraTerm, which sends ESC-O as the arrow key prefix
    663 also hidden also keys-forth definitions
    664 warning @  warning off
    665 : esc-o  key lastchar !  [""] esc-[ do-command  ;
    666 warning !
    667 previous previous definitions
    668661
    669662tag-file @ fclose  tag-file off
  • cpu/x86/pc/olpc/via/fw.bth

    r2882 r2899  
    756756
    757757fload ${BP}/cpu/x86/pc/olpc/diskspeed.fth  \ Mass storage speed test
    758 
    759 \ This helps with TeraTerm, which sends ESC-O as the arrow key prefix
    760 also hidden also keys-forth definitions
    761 warning @  warning off
    762 : esc-o  key lastchar !  [""] esc-[ do-command  ;
    763 warning !
    764 previous previous definitions
    765758
    766759tag-file @ fclose  tag-file off
  • forth/kernel/kernel.fth

    r2898 r2899  
    368368; immediate
    369369
    370 : [""]  \ word  (s Compile-time: -- )
    371         (s Run-time: -- pstr )
    372    compile (p")  safe-parse-word ",
    373 ; immediate
    374 
    375 \ Obsolete
    376 : ["]   \ string"  (s -- str )
    377    compile (p")    ,"
    378 ; immediate
    379 
    380370: \  \ rest-of-line  (s -- )      \ skips rest of line
    381371   -1 parse 2drop
    382 ; immediate
    383 
    384 : compile-pstring  ( adr len -- )
    385    state @  if
    386       compile (p") ",
    387    else
    388       switch-string "temp npack
    389    then
    390 ;
    391 : ""   \ name  ( -- pstr )
    392    safe-parse-word  compile-pstring
    393 ; immediate
    394 
    395 : p"   \ string"  ( -- pstr )
    396    get-escaped-string  compile-pstring
    397372; immediate
    398373
     
    637612;
    638613: ?throw  ( flag throw-code -- )  swap  if  throw  else  drop  then  ;
    639 : (p")  (s -- str-addr )  skipstr  ( addr len )  drop 1-  ;
    640614
    641615nuser 'lastacf         \ acf of latest definition
  • forth/lib/decomp.fth

    r2898 r2899  
    352352   ( 16 ) [compile]  (')             ( 17 ) [compile]  (of)
    353353   ( 18 ) [compile]  (endof)         ( 19 ) [compile]  (endcase)
    354    ( 20 ) [compile]  (p")            ( 21 ) [compile]  (is)
     354   ( 20 ) [compile]  dummy           ( 21 ) [compile]  (is)
    355355   ( 22 ) [compile]  (dlit)          ( 23 ) [compile]  (llit)
    356356   ( 24 ) [compile]  (n")            ( 25 ) [compile]  isdefer
     
    373373   ( 16 )     .(')                   ( 17 )     .of
    374374   ( 18 )     .endof                 ( 19 )     .endcase
    375    ( 20 )     .string                ( 21 )     .is
     375   ( 20 )     dummy                  ( 21 )     .is
    376376   ( 22 )     .dlit                  ( 23 )     .llit
    377377   ( 24 )     .nstring               ( 25 )     .is
  • forth/lib/editcmd.fth

    r819 r2899  
    4141nuser lastchar          \ most-recently-typed character
    4242nuser beforechar        \ next most-recently-typed character
    43 : do-command  ( prefix-string -- )
    44    name-buf "copy
     43: do-command  ( prefix$ -- )
     44   name-buf place
    4545   name-buf lastchar @  add-char-to-name
    4646   name-buf count  keys token@ search-wordlist  ( false | cfa true )
     
    6868      dup  bl     h# 7e  between
    6969      swap h# a0  h# fe  between  or
    70       if  lastchar @ printable-char  else  nullstring  do-command  then
     70      if  lastchar @ printable-char  else  " "  do-command  then
    7171      redisplay
    7272   finished @  until
     
    183183: ^y  yank  ;
    184184
    185 : ^{  key lastchar !  [""] esc- do-command  ;
    186 : esc-o  only forth also definitions  beep beep beep  ;
     185: ^{  key lastchar !  " esc-" do-command  ;
     186
     187: esc-v  only forth also definitions  beep beep beep  ;  \ Reset search order
    187188: esc-h  erase-previous-word  ;
    188189: esc-d  erase-next-word  ;
     
    196197
    197198\ ANSI cursor keys
    198 : esc-[  key lastchar !  [""] esc-[ do-command  ;
     199: esc-[  key lastchar !  " esc-[" do-command  ;
     200: esc-o  key lastchar !  " esc-[" do-command  ;  \ TeraTerm uses esc-o as the arrow prefix
    199201: esc-[A previous-line  ;
    200202: esc-[B next-line  ;
  • ofw/core/ofwcore.fth

    r2865 r2899  
    23712371: (open-node)  ( -- )
    23722372   "open"  (apply-method)  0=  if          ( okay? )
    2373       close-chain  p" open failed" throw  ( )
     2373      close-chain  true abort" open failed" ( )
    23742374   then
    23752375;
Note: See TracChangeset for help on using the changeset viewer.