Changeset 2899


Ignore:
Timestamp:
Mar 19, 2012, 9: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.