CASE definition

5 posts in thread

• Gerry Eriksson <4842> · Text 86 · w8 · inlagg

  1985-12-03 01:12

  Ärende: CASE definition

  Är det någon som vet var man kan få tag på CASE screenen som används i editorn som finns i FORTH-bibl. Den har varit publicerad i ABC-bladet , men saknar det nummret. Finns den på någon kasset eller så ? Hälsningar Gerry
  • Magnus Bodin <4304> · Text 87 · w8 · kommentar

    1985-12-03 07:37

    Ärende: CASE definition

    Nej, inte på någon kassett tyvärr. : CASE ?COMP CSP É !CSP 4 ; IMMEDIATE : OF 4 ?PAIRS COMPILE OVER COMPILE = COMPILE 0BRANCH HERE 0 , COMPILE DROP 5 ; IMMEDIATE : ENDOF 5 ?PAIRS COMPILE BRANCH HERE 0 , SWAP 2 ÄCOMPILEÅ THEN 4 ; IMMEDIATE : ENDCASE 4 ?PAIRS COMPILE DROP BEGIN SPÉ CSP É = 0= WHILE 2 ÄCOMPILEÅ THEN REPEAT CSP ! ; IMMEDIATE Denna rutin hittad i Discover FORTH
    • Magnus Bodin <4304> · Text 88 · w8 · kommentar

      1985-12-03 20:08

      Ärende: CASE

      Oooops, glömde visst i hastigheten, i morse att berätta hur man använder det hela... <n> CASE <n1> OF <detta görs om n=n1> ENDOF <n2> OF <detta görs om n=n2> ENDOF <n3> OF <detta görs om n=n3> ENDOF . . . <nx> OF <detta görs om n=nx> ENDOF <detta görs annars> ENDCASE Denna har aldrig publicerats i Bladet, men en ON-funktion har däremot felaktigt publicerats under namnet CASE. Här har du även den funktionen, under sitt rätta namn: : ON <BUILDS SMUDGE RB DOES> SWAP 2 * + É EXECUTE ; Hur att använda ON: <n> ON <ord1> <ord2> <ord3> .. <ordx> ; <ord1> utförs om n=1 <ord2> utförs om n=2 osv. Observera att här väljer man endast i en given talserie 1..x och kan bara utföra ett ord för varje val. Case är mer användbart pga att man kan stoppa in en hel sats mellan OF och ENDOF samt välja vilka värden man vill som skall testas mot översta stackelementet. Dock tar CASE större plats i mindre sammanhang, välj rätt ord till rätt ändamål. Magiska hälsningar Magnus
      • Magnus Bodin <4304> · Text 89 · w8 · kommentar

        1985-12-03 20:25

        Ärende: CASE, igen...

        Oooppps, igen... Denna gången lite rejälare.. (Det var en stund sedan jag använde ON:) Snackade helt i nattmössan för en kvart se'n! Så här används ON som förresten heter ON: (med kolon). ON: <namn> <ord0> <ord1> <ord2> .. <ordx> ; Då definieras ordet <namn>. När man sedan utför <namn> så här: <n> <namn> så utförs <ord0> om n=0, <ord1> om n=1 osv. Så ja, denna gången var det helt rätt, jag kollade just. Skillnaden mellan CASE och ON: blev nu ytterligare en: ON: används för att definiera ett ord som i sin tur är "vektoriserat". CASE väljer inne i ett ord vad som skall ske. Föredrar CASE själv, faktiskt. Magiska hälsningar Magnus :-)
    • Gerry Eriksson <4842> · Text 99 · w8 · kommentar

      1985-12-05 01:34

      Tack Magnus !