Retro Preservation Workspace

Monitorn

Browse archived Monitorn möten and the ABC80 mailing list, with full-text and text-number search.

← Back to ABC Tools

Meetings · Forth · Thread

multi-WHILE

4 posts in thread

Magnus Bodin <4304> · Text 93 · w8 · inlagg

1985-12-03 22:59

Ärende: multi-WHILE

Ibland kan det vara praktiskt att använda flera WHILE inom samma 'BEGIN ... REPEAT'-slinga. Om nu inte Din FORTH klarar detta (Den FORTH som klubben distribuerat klarar det INTE.) så kommer här en omdefiniering av REPEAT och WHILE. OBS! REPEAT måste omdefinieras före WHILE, eftersom REPEAT använder sig av WHILE vid omdefinieringen. ( MultiWHILE 3 Dec 85 Magnus Bodin ) : REPEAT ÄCOMPILEÅ AGAIN DUP 4 ?PAIRS BEGIN DUP 4 = WHILE 2 - ÄCOMPILEÅ ENDIF REPEAT ; IMMEDIATE : WHILE ÄCOMPILEÅ IF 2+ 2SWAP ; IMMEDIATE Så här använder man flera WHILE: BEGIN <huvudföljd> <flagga#1 lämnas på stacken> WHILE <följd#1> <flagga#2 lämnas på stacken> WHILE <följd#2> . . <flagga#x lämnas på stacken> WHILE <följd#x> REPEAT Först utförs <huvudföld>. Om flagga#1 är sann, utförs <följd#1>, annars fortsätter exekvering efter REPEAT. Om flagga#2 är sann, utförs <följd#2>, annars fortsätter exekvering efter REPEAT. Om flagga#x är sann, utförs <följd#x>, annars fortsätter exekvering efter REPEAT. Lycka till, FORTH är något som angår oss alla! Magiska hälsningar Magnus
- Magnus Bodin <4304> · Text 98 · w8 · kommentar
  
  1985-12-04 23:27
  
  Ärende: DO .. WHILE .. LOOP
  
  WHILE kunde behövas i en loop också, eftersom man ofta gör test i loopar, typ <flagga> IF LEAVE THEN etc. Med denna omdefinering av LOOP, kan WHILE användas inom DO .. LOOP, och kommer då att låta "LOOP" motsvara "REPEAT", se här: 10 0 DO ." Tryck <CR>" KEY 13 = 0= WHILE ." ... fel!" LOOP ." Tio felslag, eller rätt." Ovanstående ( om det kompileras i en kolondefinition ) kommer att skriva ut texten "Tryck <CR>", testa en tangent, om det är ett <CR> skrivs texten "Tio .." ut, annars skrivs "... fel!" ut. Denna loop genomlöps ånyo om sann flagg lämnats före WHILE, tills loopindexet=10 förstås. Här kommer omdefinitionen: ( OBS! Omdefinieringen av REPEAT & WHILE i inlägg 93, krävs. Givetvis medför detta att man även kan använda flera WHILE inom samma DO .. LOOP, snurrigt? ) ( DO - WHILE - LOOP 4 Dec 85 ) : (LOOP2) R> R> R> 2DROP DROP ; : LOOP ÄCOMPILEÅ LOOP BEGIN DUP 4 = WHILE 2 - ÄCOMPILEÅ ENDIF REPEAT COMPILE (LOOP2) ; IMMEDIATE Magiska hälsningar Magnus
  - Magnus Bodin <4304> · Text 107 · w8 · kommentar
    
    1985-12-05 21:47
    
    Ärende: multiWHILE
    
    Nu kan man ju snabbt och enkelt definiera två ord till, nu när loop är omdefinierad. IFLOOP & LOOPUNTIL ================== IFLOOP används sålunda: 10 0 DO <följd> . . <flagga lämnas på stacken> IFLOOP Om flaggan=true, och loopindexet<10 så genomlöps loopen igen. LOOPUNTIL gör motsatsen: 10 0 DO <följd> . . <flagga lämnas på stacken> LOOPUNTIL Om flaggan=false, och loopindex<10 så genomlöps loopen igen. Simpla ord, som alltså kräver att WHILE och LOOP omdefinierats, enligt tidigare inlägg: : IFLOOP ÄCOMPILEÅ WHILE ÄCOMPILEÅ LOOP ; IMMEDIATE : LOOPUNTIL 0= ÄCOMPILEÅ IFLOOP ; IMMEDIATE (OBS. FIG-FORTH) Magiska hälsningar Magnus :-)
    - Magnus Bodin <4304> · Text 111 · w8 · kommentar
      
      1985-12-09 15:59
      
      Ärende: multiWHILE
      
      Rättelse: : LOOPUNTIL COMPILE 0= ÄCOMPILEÅ IFLOOP ; IMMEDIATE Magiska hälsningar Magnus