AKTIVE

Artifact [6795f5ee2b]
Login

Artifact [6795f5ee2b]

Artifact 6795f5ee2b33863bf36e672153e5d433ef021f2050285ba575401088eb623f7d:


# -*- mode: tcl ; fill-column: 90 -*-
# # ## ### ##### ######## ############# #####################
## Core runtime definitions
## Separately processed.

# # ## ### ##### ######## ############# #####################
## Types for parameters and results

# __ id __________ critcl ___________    C type _______ Conversion ______________________________
type point         aktive_point          -              {aktive_new_point_obj (value)}
type range         aktive_range          -              {aktive_new_range_obj (value)}
type rect          aktive_rectangle      -              {aktive_new_rectangle_obj (value)}
type geometry      aktive_geometry       -              {aktive_new_geometry_obj (value)}
type fpoint        aktive_fpoint         -              {aktive_new_fpoint_obj (value)}
type frect         aktive_frectangle     -              {aktive_new_frectangle_obj (value)}
type image-type    aktive_image_type_ptr -              {Tcl_NewStringObj ((*value)->name, -1)}
type image         aktive_image          -              {aktive_new_image_obj (*value)}
type region        aktive_region         -              {0 /* INTERNAL -- No Tcl_Obj* equivalent */}
type uint          aktive_uint           -              {aktive_new_uint_obj (*value)}
type double        -                     -              {Tcl_NewDoubleObj (*value)}
type str           aktive_string         aktive_string  {Tcl_NewStringObj (*value, -1)}

vector region image point range rect uint double str fpoint frect

# # ## ### ##### ######## ############# #####################
## Generally useful blocks of code

##
# # ## ### ##### ######## ############# #####################
::return