-
Notifications
You must be signed in to change notification settings - Fork 0
/
ugpadvkins.h
119 lines (103 loc) · 4.04 KB
/
ugpadvkins.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
/*****************************************************************************
**
** ugpadvkins.h
**
** Description:
** ugpadvkins header file.
**
*****************************************************************************/
#ifndef _TCL_EXTMOM
#define _TCL_EXTMOM
/****************************************************************************/
#define _ANSI_ARGS_(x) x
typedef struct Tcl_Interp {
char *result; /* If the last command returned a string
* result, this points to it. */
void (*freeProc) _ANSI_ARGS_((char *blockPtr));
/* Zero means the string result is
* statically allocated. TCL_DYNAMIC means
* it was allocated with ckalloc and should
* be freed with ckfree. Other values give
* the address of procedure to invoke to
* free the result. Tcl_Eval must free it
* before executing next command. */
int errorLine; /* When TCL_ERROR is returned, this gives
* the line number within the command where
* the error occurred (1 if first line). */
} Tcl_Interp;
/*
* When a TCL command returns, the string pointer interp->result points to
* a string containing return information from the command. In addition,
* the command procedure returns an integer value, which is one of the
* following:
*
* TCL_OK Command completed normally; interp->result contains
* the command's result.
* TCL_ERROR The command couldn't be completed successfully;
* interp->result describes what went wrong.
* TCL_RETURN The command requests that the current procedure
* return; interp->result contains the procedure's
* return value.
* TCL_BREAK The command requests that the innermost loop
* be exited; interp->result is meaningless.
* TCL_CONTINUE Go on to the next iteration of the current loop;
* interp->result is meaningless.
*/
#define TCL_OK 0
#define TCL_ERROR 1
#define TCL_RETURN 2
#define TCL_BREAK 3
#define TCL_CONTINUE 4
/****************************************************************************/
/*
* Exported Tcl procedures:
*/
static int mom_exit_kinematics_module
(
void *client_data, /* This is the mom object */
void *interp, /* Pointer to the TCL interpreter */
int argc, /* Count of the numnber of arguments */
char **argv /* Array of arguments where the
argv[0] - The TCL extension */
);
static int mom_map_to_rotated_csys
(
void *client_data, /* This is the mom object */
void *interp, /* Pointer to the TCL interpreter */
int argc, /* Count of the numnber of arguments */
char **argv /* Array of arguments where the
argv[0] - The TCL extension */
);
static int mom_rotate_mach_csys
(
void *client_data, /* This is the mom object */
void *interp, /* Pointer to the TCL interpreter */
int argc, /* Count of the numnber of arguments */
char **argv /* Array of arguments where the
argv[0] - The TCL extension */
);
static int mom_get_tool_attribute
(
void *client_data, /* This is the mom object */
void *interp, /* Pointer to the TCL interpreter */
int argc, /* Count of the numnber of arguments */
char **argv /* Array of arguments where the
argv[0] - The TCL extension */
);
static int mom_load_kinematics
(
void *client_data, /* This is the mom object */
void *interp, /* Pointer to the TCL interpreter */
int argc, /* Count of the numnber of arguments */
char **argv /* Array of arguments where the
argv[0] - The TCL extension */
);
static int mom_convert_point
(
void *client_data, /* This is the mom object */
void *interp, /* Pointer to the TCL interpreter */
int argc, /* Count of the numnber of arguments */
char **argv /* Array of arguments where the
argv[0] - The TCL extension */
);
#endif /* _TCL_EXTMOM */