! Edwin module to support cross calling of Imp and C
! Mostly for device drivers to set global status within EDWIN's imp section

from Edwin include Specs

external routine Set Device Viewport (integer x, y)
   Device Data_MVX  = x
   Device Data_MVY  = y
   Viewport (0, x, 0, y)
end

external routine Set Max Colours (integer Max)
   Device Data_MAX COLOUR = Max
end

! C Language specific bits

external string(31) spec Version,Release,Revision,Fname 

external byte map Application Title
   own string(255) Title String

   Title String = Fname." version ".Version.".".Release
   Title String = Title String.".".Revision if Revision # "0"
   CharNo(Title String, Length(Title String) + 1) = 0
   result == CharNo(Title String, 1)
end

external byte map Application Name
   CharNo(Fname, Length(Fname) + 1) = 0
   result == CharNo(Fname, 1)
end

end of file