tserialport

Check-in [00b923fd05]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:removed rcsid; no longer required
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 00b923fd05aaa77d8ae329030cad98d50dd5778ac4a8a107deb288be8f09d559
User & Date: alex 2019-12-10 20:14:21
Original Comment: remove rcsid; no longer required
Context
2019-12-23
15:17
removed some files that are not needed check-in: 7a0cc8ebe7 user: alex tags: trunk
2019-12-10
20:38
updating libserialport to latest version check-in: 095f78b4bf user: alex tags: updatelib
20:14
removed rcsid; no longer required check-in: 00b923fd05 user: alex tags: trunk
20:10
update to latest TEA check-in: 0aeb1fb243 user: alex tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tserialport.c.

59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
...
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
#include <libserialport.h>

#ifndef FALSE
#define FALSE 0
#define TRUE (!FALSE)
#endif

static char rcs[] = "@(#)tserialport.c $Revision: 1.2 $ $Date: 2017/05/15 12:45:30 $ (BSD 3 License) Alexander Schoepe, Bochum, DE";


static int Tserialport_Getports (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
  Tcl_Obj *keyv[2];
  enum sp_return rc;
  struct sp_port **ports, *port;
  struct sp_port_config *conf;
  int i = 0, en, mode = SP_MODE_READ;
................................................................................
  }
  if (conf != NULL) sp_free_config(conf);

  Tcl_SetObjResult(interp, dObjPtr);
  return TCL_OK;
}


static int Tserialport_RcsId (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
  Tcl_SetObjResult(interp, Tcl_NewStringObj(rcs, -1));
  return TCL_OK;
}


#ifdef _WIN32
DECLSPEC_EXPORT
#endif
int Tserialport_Init(Tcl_Interp *interp) {
#ifdef USE_TCL_STUBS
  if (Tcl_InitStubs(interp, MY_TCL_INITSTUBS, 0) == NULL) {
    return TCL_ERROR;
  }
#endif

  Tcl_CreateObjCommand(interp, "::tserialport::getports", Tserialport_Getports, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
  Tcl_CreateObjCommand(interp, "::tserialport::rcsid", Tserialport_RcsId, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);

  Tcl_PkgProvide(interp, PACKAGE_NAME, PACKAGE_VERSION);
  return TCL_OK;
}

#ifdef _WIN32
DECLSPEC_EXPORT
#endif
int Tserialport_SafeInit(Tcl_Interp *interp) {
  return Tserialport_Init(interp);
}








<
<







 







<
<
<
<
<
<












<












59
60
61
62
63
64
65


66
67
68
69
70
71
72
...
345
346
347
348
349
350
351






352
353
354
355
356
357
358
359
360
361
362
363

364
365
366
367
368
369
370
371
372
373
374
375
#include <libserialport.h>

#ifndef FALSE
#define FALSE 0
#define TRUE (!FALSE)
#endif




static int Tserialport_Getports (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
  Tcl_Obj *keyv[2];
  enum sp_return rc;
  struct sp_port **ports, *port;
  struct sp_port_config *conf;
  int i = 0, en, mode = SP_MODE_READ;
................................................................................
  }
  if (conf != NULL) sp_free_config(conf);

  Tcl_SetObjResult(interp, dObjPtr);
  return TCL_OK;
}








#ifdef _WIN32
DECLSPEC_EXPORT
#endif
int Tserialport_Init(Tcl_Interp *interp) {
#ifdef USE_TCL_STUBS
  if (Tcl_InitStubs(interp, MY_TCL_INITSTUBS, 0) == NULL) {
    return TCL_ERROR;
  }
#endif

  Tcl_CreateObjCommand(interp, "::tserialport::getports", Tserialport_Getports, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);


  Tcl_PkgProvide(interp, PACKAGE_NAME, PACKAGE_VERSION);
  return TCL_OK;
}

#ifdef _WIN32
DECLSPEC_EXPORT
#endif
int Tserialport_SafeInit(Tcl_Interp *interp) {
  return Tserialport_Init(interp);
}