gistfile1.none

# various past examples for context-sensitive node:

# integer constants
$past := PAST::Coerced.new(
             $*ST.add_constant('Int', 'int', $<integer>.ast),  #default
             'IiNn', $<integer>.ast                            #native
         );

# num constants
$past := PAST::Coerced.new(
             $*ST.add_constant('Num', 'num', +(~$/)),          #default
             'IiNn', +(~$/)                                    #native
         );

# many contexts
$past := PAST::Coerced.new(
             $past,                                            #default
             'v', PAST::Op.new(:name('&sink'), $past),         #void
             'Ii', PAST::...                                   #integer
             'Nn', PAST::...                                   #numeric
             'Ss', PAST::...                                   #string
         );