gpib.h

Go to the documentation of this file.

// ProtoCore v1.0.16 - Copyright (C) 2026 Douglas Quigg (dstroy0) <dquigg123@gmail.com>
// SPDX-License-Identifier: AGPL-3.0-or-later
 
/**
 * @file gpib.h
 * @brief GPIB-over-LAN (Prologix-style) controller command codec (PROTOCORE_ENABLE_GPIB) - a zero-heap
 *        codec for the Prologix-compatible `++` command set that drives a bench of legacy IEEE-488
 *        (GPIB) instruments through a Prologix GPIB-Ethernet / GPIB-USB adapter (raw socket on TCP
 *        1234). The bridge into pre-LAN test gear that will never speak SCPI-over-TCP directly.
 *
 * The device is the host: it sends `++` commands (a line starting with an unescaped `++`) to
 * configure/control the adapter, and data lines (anything else) that the adapter forwards over GPIB
 * to the addressed instrument. This codec builds the commands (@ref protocore_gpib_command and the typed
 * @ref protocore_gpib_addr / @ref protocore_gpib_read / @ref protocore_gpib_spoll / @ref protocore_gpib_eos helpers),
 * builds an escaped data line (@ref protocore_gpib_build_data - a leading ESC before a CR / LF / ESC / `+` byte in the
 * payload, then an unescaped newline terminator), classifies a line (@ref protocore_gpib_is_command), and parses the
 * responses (@ref protocore_gpib_parse_decimal for the serial-poll status byte / SRQ / address, @ref
 * protocore_gpib_parse_version). Pure codec, host-tested; the socket / serial link is the application's.
 *
 * Reference: Prologix GPIB-ETHERNET / GPIB-USB Controller manuals (prologix.biz).
 *
 * @author  Douglas Quigg (dstroy0)
 * @date    2026
 */
 
#ifndef PROTOCORE_GPIB_H
#define PROTOCORE_GPIB_H
 
#include "protocore_config.h" // the entry point: protocore_types.h for the widths
 
#if PROTOCORE_ENABLE_GPIB
 
PROTOCORE_BEGIN_DECLS
 
/** @brief The Prologix GPIB-Ethernet raw-socket TCP port. */
#define PROTOCORE_GPIB_PORT 1234
/** @brief The Prologix NetFinder UDP discovery port. */
#define PROTOCORE_GPIB_DISCOVERY_PORT 3040
 
/** @brief GPIB terminator appended to data sent to the instrument (`++eos`). */
typedef enum PROTO_ENUM_PACKED
{
    GPIB_EOS_CRLF = 0,           ///< GPIB_EOS_CR + GPIB_EOS_LF
    GPIB_EOS_CR = 1,             ///< GPIB_EOS_CR
    GPIB_EOS_LF = 2,             ///< GPIB_EOS_LF
    GPIB_EOS_PROTOCORE_NONE = 3, ///< none (use for binary payloads)
} GpibEos;
 
/** @brief Read-termination mode (`++read`). */
typedef enum PROTO_ENUM_PACKED
{
    UNTIL_TIMEOUT, ///< `++read` - read until the inter-character timeout only (NOT until EOI)
    UNTIL_EOI,     ///< `++read eoi` - read until EOI or timeout
    UNTIL_CHAR,    ///< `++read <char>` - read until the given character or timeout
} GpibRead;
 
/**
 * @brief Build a generic `++` command line: `"++"` + @p cmd + `'\n'` (e.g. `protocore_gpib_command(...,
 *        "mode 1")` -> `"++mode 1\n"`, `"eoi 1"`, `"clr"`, `"ver"`, `"read_tmo_ms 500"`).
 * @return characters written (excluding the NUL), or 0 on overflow / bad input.
 */
size_t protocore_gpib_command(char *buf, size_t cap, const char *cmd);
 
/**
 * @brief Build `++addr <pad>[ <sad>]` - set the instrument GPIB address.
 * @param pad primary address (0-30).
 * @param sad optional secondary address (96-126); pass < 0 for none.
 * @return characters written (excluding NUL), or 0 on overflow / bad @p pad.
 */
size_t protocore_gpib_addr(char *buf, size_t cap, uint8_t pad, int sad);
 
/**
 * @brief Build a `++read` command in one of its three forms.
 * @param ch the read-until character (decimal), used only when @p mode is @ref UNTIL_CHAR.
 * @return characters written (excluding NUL), or 0 on overflow.
 */
size_t protocore_gpib_read(char *buf, size_t cap, GpibRead mode, uint8_t ch);
 
/**
 * @brief Build `++spoll` (serial poll). With @p pad < 0, polls the currently-addressed instrument;
 *        otherwise `++spoll <pad>[ <sad>]`. The response is the status byte as a decimal string.
 * @return characters written (excluding NUL), or 0 on overflow.
 */
size_t protocore_gpib_spoll(char *buf, size_t cap, int pad, int sad);
 
/** @brief Build `++eos <n>` - the GPIB terminator appended to instrument data. */
size_t protocore_gpib_eos(char *buf, size_t cap, GpibEos eos);
 
/**
 * @brief Build an escaped data line to send to the addressed instrument: each CR (13) / LF (10) /
 *        ESC (27) / `+` (43) byte in @p src is preceded by an ESC (27), then an unescaped `'\n'`
 *        line terminator is appended. (Data received FROM instruments is never escaped.)
 * @return total bytes written (NOT NUL-terminated - the payload may be binary), or 0 on overflow.
 */
size_t protocore_gpib_build_data(uint8_t *buf, size_t cap, const uint8_t *src, size_t len);
 
/** @brief True if @p line is a controller command (starts with an unescaped `++`), else it is data. */
proto_bool protocore_gpib_is_command(const char *line, size_t len);
 
/**
 * @brief Parse a decimal integer response (trims surrounding spaces / CR / LF) - the `++spoll`
 *        status byte, the `++srq` 0/1, or a `++addr` primary address.
 * @return true on a clean decimal; false otherwise.
 */
proto_bool protocore_gpib_parse_decimal(const char *s, size_t len, uint32_t *out);
 
/**
 * @brief Parse a `++addr` query response: a primary address, optionally a space + secondary.
 * @param pad receives the primary address.
 * @param sad receives the secondary address, or -1 if none was present.
 * @return true on a clean response; false otherwise.
 */
proto_bool protocore_gpib_parse_addr(const char *s, size_t len, uint8_t *pad, int *sad);
 
/**
 * @brief Parse a `++ver` response: locate the version token after `"version "`. @p ver points INTO
 *        @p s (trailing CR/LF trimmed from @p ver_len).
 * @return true if a version token was found; false otherwise.
 */
proto_bool protocore_gpib_parse_version(const char *s, size_t len, const char **ver, size_t *ver_len);
 
PROTOCORE_END_DECLS
 
#endif // PROTOCORE_ENABLE_GPIB
 
#endif // PROTOCORE_GPIB_H