Hi,
with Raspi OS using GForth and wiringPi with this GForth interface:
https://github.com/kristopherjohnson/wiringPi_gforth

there is a line:
c-function wiringPiISR wiringPiISR n n func -- n

In C this would be used like:
wiringPiISR(INT_PIN, INT_FALLING_EDGE, MyInterrupt)
void myInterrupt(void) { .... }

Is there a way to attach a GForth word to the interrupt?
I don't know enough about the internal organisation of GForth.

Thanks, in advance!
Christof

Christof Eberspaecher <chwebersp@gmail.com> writes:
>Hi,
>with Raspi OS using GForth and wiringPi with this GForth interface:
>https://github.com/kristopherjohnson/wiringPi_gforth
>
>there is a line:
>c-function wiringPiISR wiringPiISR n n func -- n
>
>In C this would be used like:
>wiringPiISR(INT_PIN, INT_FALLING_EDGE, MyInterrupt)
>void myInterrupt(void) { .... }
>
>Is there a way to attach a GForth word to the interrupt?

Gforth's C interface supports callbacks, which should be of use for
this application:

https://gforth.org/manual/Callbacks.html

- anton
--
M. Anton Ertl http://www.complang.tuwien.ac.at/anton/home.html
comp.lang.forth FAQs: http://www.complang.tuwien.ac.at/forth/faq/toc.html
New standard: https://forth-standard.org/
EuroForth 2022: http://www.euroforth.org/ef22/cfp.html

On 26 juli 2022 om 17:07:07 UTC+2 Christof Eberspaecher wrote:
> Hi,
> with Raspi OS using GForth and wiringPi with this GForth interface:
> https://github.com/kristopherjohnson/wiringPi_gforth
>
> there is a line:
> c-function wiringPiISR wiringPiISR n n func -- n
>
> In C this would be used like:
> wiringPiISR(INT_PIN, INT_FALLING_EDGE, MyInterrupt)
> void myInterrupt(void) { .... }
>
> Is there a way to attach a GForth word to the interrupt?
> I don't know enough about the internal organisation of GForth.
>
> Thanks, in advance!
> Christof

Marker wiringPiInt.fs \ Testet on a Raspberry zero under the Bullseye

c-library MywiringPi
s" wiringPi" add-lib
\ **** wiringPi wrapper ****

\c #include <wiringPi.h>
c-function pinMode pinMode n n -- void ( pin mode - )
c-function digitalWrite digitalWrite n n -- void ( pin value - )
c-function digitalRead digitalRead n -- n ( pin - value )
c-function wiringPiSetupGpio wiringPiSetupGpio void -- n ( - res )
c-function pullUpDnControl pullUpDnControl n n -- void ( pin pud - void )
c-function wiringPiISR wiringPiISR n n a -- n ( pin mode funct - res )
c-function piBoardRev piBoardRev void -- n ( - piBoardRev )
c-callback ISR_Gpio1 a -- n ( xt -- n )
c-callback ISR_Gpio2 a -- n ( xt -- n )
c-callback ISR_Gpio3 a -- n ( xt -- n )

end-c-library

\ Pin modes
0 constant INPUT
1 constant OUTPUT
2 constant PWM_OUTPUT
3 constant GPIO_CLOCK
4 constant SOFT_PWM_OUTPUT
5 constant SOFT_TONE_OUTPUT
6 constant PWM_TONE_OUTPUT
0 constant LOW
1 constant HIGH

\ Interrupt levels
0 constant INT_EDGE_SETUP
1 constant INT_EDGE_FALLING
2 constant INT_EDGE_RISING
3 constant INT_EDGE_BOTH

\ Pull up/down/none
0 constant PUD_OFF \ no pull up/down
1 constant PUD_DOWN \ pull to ground
2 constant PUD_UP \ pull to 3.3v

\ PWM
0 constant PWM_MODE_MS
1 constant PWM_MODE_BAL

: InitWiringPi ( - ) wiringPiSetupGpio abort" wiringPiSetupGpio failed" ;

\ Test

InitWiringPi \ 1 time only

22 value pin

: testOutput ( pin - )
to pin
pin OUTPUT pinMode
pin HIGH digitalWrite
pin digitalRead cr .
2000 ms
pin LOW digitalWrite ;

: IntDetected1 ( - ) cr 1 . ." interrupt detected" ;
: IntDetected2 ( - ) cr 2 . ." interrupt detected" ;
: IntDetected3 ( - ) cr 3 . ." interrupt detected" ;

: testInput1 ( pin - )
to pin
pin INPUT pinMode
pin INT_EDGE_BOTH ['] IntDetected1 ISR_Gpio1 wiringPiISR drop ;

: testInput2 ( pin - )
to pin
pin INPUT pinMode
pin INT_EDGE_BOTH ['] IntDetected2 ISR_Gpio2 wiringPiISR drop ;

: testInput3 ( pin - )
to pin
pin INPUT pinMode
pin INT_EDGE_BOTH ['] IntDetected3 ISR_Gpio3 wiringPiISR drop ;

cr .s .( Start 1: ) 22 testInput1 .s
cr .s .( Start 2: ) 22 testInput2 .s
cr .s .( Start 3: ) 25 testInput3 .s

\ 25 testOutput \ to test

Jos Ven schrieb am Mittwoch, 27. Juli 2022 um 13:42:53 UTC+2:
> On 26 juli 2022 om 17:07:07 UTC+2 Christof Eberspaecher wrote:
> > Hi,
> > with Raspi OS using GForth and wiringPi with this GForth interface:
> > https://github.com/kristopherjohnson/wiringPi_gforth
> >
> > there is a line:
> > c-function wiringPiISR wiringPiISR n n func -- n
> >
> > In C this would be used like:
> > wiringPiISR(INT_PIN, INT_FALLING_EDGE, MyInterrupt)
> > void myInterrupt(void) { .... }
> >
> > Is there a way to attach a GForth word to the interrupt?
> > I don't know enough about the internal organisation of GForth.
> >
> > Thanks, in advance!
> > Christof
> Marker wiringPiInt.fs \ Testet on a Raspberry zero under the Bullseye
>
> c-library MywiringPi
> s" wiringPi" add-lib
> \ **** wiringPi wrapper ****
>
> \c #include <wiringPi.h>
> c-function pinMode pinMode n n -- void ( pin mode - )
> c-function digitalWrite digitalWrite n n -- void ( pin value - )
> c-function digitalRead digitalRead n -- n ( pin - value )
> c-function wiringPiSetupGpio wiringPiSetupGpio void -- n ( - res )
> c-function pullUpDnControl pullUpDnControl n n -- void ( pin pud - void )
> c-function wiringPiISR wiringPiISR n n a -- n ( pin mode funct - res )
> c-function piBoardRev piBoardRev void -- n ( - piBoardRev )
> c-callback ISR_Gpio1 a -- n ( xt -- n )
> c-callback ISR_Gpio2 a -- n ( xt -- n )
> c-callback ISR_Gpio3 a -- n ( xt -- n )
>
> end-c-library
>
> \ Pin modes
> 0 constant INPUT
> 1 constant OUTPUT
> 2 constant PWM_OUTPUT
> 3 constant GPIO_CLOCK
> 4 constant SOFT_PWM_OUTPUT
> 5 constant SOFT_TONE_OUTPUT
> 6 constant PWM_TONE_OUTPUT
> 0 constant LOW
> 1 constant HIGH
>
> \ Interrupt levels
> 0 constant INT_EDGE_SETUP
> 1 constant INT_EDGE_FALLING
> 2 constant INT_EDGE_RISING
> 3 constant INT_EDGE_BOTH
>
> \ Pull up/down/none
> 0 constant PUD_OFF \ no pull up/down
> 1 constant PUD_DOWN \ pull to ground
> 2 constant PUD_UP \ pull to 3.3v
>
> \ PWM
> 0 constant PWM_MODE_MS
> 1 constant PWM_MODE_BAL
>
> : InitWiringPi ( - ) wiringPiSetupGpio abort" wiringPiSetupGpio failed" ;
>
> \ Test
>
> InitWiringPi \ 1 time only
>
> 22 value pin
>
> : testOutput ( pin - )
> to pin
> pin OUTPUT pinMode
> pin HIGH digitalWrite
> pin digitalRead cr .
> 2000 ms
> pin LOW digitalWrite ;
>
> : IntDetected1 ( - ) cr 1 . ." interrupt detected" ;
> : IntDetected2 ( - ) cr 2 . ." interrupt detected" ;
> : IntDetected3 ( - ) cr 3 . ." interrupt detected" ;
>
> : testInput1 ( pin - )
> to pin
> pin INPUT pinMode
> pin INT_EDGE_BOTH ['] IntDetected1 ISR_Gpio1 wiringPiISR drop ;
>
> : testInput2 ( pin - )
> to pin
> pin INPUT pinMode
> pin INT_EDGE_BOTH ['] IntDetected2 ISR_Gpio2 wiringPiISR drop ;
>
> : testInput3 ( pin - )
> to pin
> pin INPUT pinMode
> pin INT_EDGE_BOTH ['] IntDetected3 ISR_Gpio3 wiringPiISR drop ;
>
>
> cr .s .( Start 1: ) 22 testInput1 .s
> cr .s .( Start 2: ) 22 testInput2 .s
> cr .s .( Start 3: ) 25 testInput3 .s
>
> \ 25 testOutput \ to test

Thank you both very much, Anton and Jos!
I must say, that the docu of Gforth is not easy to understand for me sometimes. So I appreciate the example code very much!
The goal ist to read a quadrature encoder.
Christof