astrosib_utils moved to a separate repo

astrosib_utils/Readme

@@ -1,5 +0,0 @@
-A set of small utils for astrosib telescopes on 10-micron mount with Baader all-sky dome.
-
-* teldaemon   - telescope daemon (open/close telescope shutters, get shutters state)
-* domedaemon  - dome daemon (open/close dome, get dome state, get weater)
-* mountdaemon - 10-micron mount daemon, allow to point telescope by stellarium

astrosib_utils/domedaemon/Makefile

@@ -1,43 +0,0 @@
-# run `make DEF=...` to add extra defines
-PROGRAM := domedaemon
-LDFLAGS := -fdata-sections -ffunction-sections -Wl,--gc-sections -Wl,--discard-all -pthread
-SRCS := $(wildcard *.c)
-DEFINES := $(DEF) -D_GNU_SOURCE -D_XOPEN_SOURCE=1111
-#DEFINES += -DEBUG
-# baudrate for USB<->UART converter
-DEFINES += -DBAUD_RATE=B9600
-OBJDIR := mk
-CFLAGS += -O2 -Wall -Werror -Wextra -Wno-trampolines
-OBJS := $(addprefix $(OBJDIR)/, $(SRCS:%.c=%.o))
-DEPS := $(OBJS:.o=.d)
-CC = gcc
-
-all : $(OBJDIR) $(PROGRAM)
-
-$(PROGRAM) : $(OBJS)
-	@echo -e "\t\tLD $(PROGRAM)"
-	$(CC) $(LDFLAGS) $(OBJS) -o $(PROGRAM)
-
-$(OBJDIR):
-	mkdir $(OBJDIR)
-
-ifneq ($(MAKECMDGOALS),clean)
--include $(DEPS)
-endif
-
-$(OBJDIR)/%.o: %.c
-	@echo -e "\t\tCC $<"
-	$(CC) -MD -c $(LDFLAGS) $(CFLAGS) $(DEFINES) -o $@ $<
-
-clean:
-	@echo -e "\t\tCLEAN"
-	@rm -f $(OBJS) $(DEPS)
-	@rmdir $(OBJDIR) 2>/dev/null || true
-
-xclean: clean
-	@rm -f $(PROGRAM)
-
-gentags:
-	CFLAGS="$(CFLAGS) $(DEFINES)" geany -g $(PROGRAM).c.tags *[hc] 2>/dev/null
-
-.PHONY: gentags clean xclean

astrosib_utils/domedaemon/Readme.md

@@ -1,13 +0,0 @@
-Baader all-sky dome control network daemon
-==================
-
-Open a socket at given port (default: 55555), works with http & direct requests.
-
-**Protocol**
-
-Send requests over socket (by curl or something else) or http requests (in browser).
-
-* *open*    - open dome;
-* *close*   - close dome;
-* *status*  - dome state (return "opened", "closed" or "intermediate");
-* *weather* - weather status (good weather or rain/clouds).

astrosib_utils/domedaemon/cmdlnopts.c

@@ -1,89 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * cmdlnopts.c - the only function that parse cmdln args and returns glob parameters
- *
- * Copyright 2018 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-#include <assert.h>
-#include <stdio.h>
-#include <string.h>
-#include <strings.h>
-#include <math.h>
-#include "cmdlnopts.h"
-#include "usefull_macros.h"
-
-/*
- * here are global parameters initialisation
- */
-int help;
-static glob_pars  G;
-
-// default values for Gdefault & help
-#define DEFAULT_PORT    "55555"
-
-//            DEFAULTS
-// default global parameters
-glob_pars const Gdefault = {
-    .device = NULL,
-    .port = DEFAULT_PORT,
-    .terminal = 0,
-    .echo = 0,
-    .logfile = NULL,
-    .rest_pars = NULL,
-    .rest_pars_num = 0
-};
-
-/*
- * Define command line options by filling structure:
- *  name        has_arg     flag    val     type        argptr              help
-*/
-myoption cmdlnopts[] = {
-// common options
-    {"help",    NO_ARGS,    NULL,   'h',    arg_int,    APTR(&help),        _("show this help")},
-    {"device",  NEED_ARG,   NULL,   'd',    arg_string, APTR(&G.device),    _("serial device name (default: none)")},
-    {"port",    NEED_ARG,   NULL,   'p',    arg_string, APTR(&G.port),      _("network port to connect (default: " DEFAULT_PORT ")")},
-    {"logfile", NEED_ARG,   NULL,   'l',    arg_string, APTR(&G.logfile),   _("save logs to file (default: none)")},
-    {"terminal",NO_ARGS,    NULL,   't',    arg_int,    APTR(&G.terminal),  _("run as terminal")},
-    {"echo",    NO_ARGS,    NULL,   'e',    arg_int,    APTR(&G.echo),      _("echo users commands back")},
-    end_option
-};
-
-/**
- * Parse command line options and return dynamically allocated structure
- *      to global parameters
- * @param argc - copy of argc from main
- * @param argv - copy of argv from main
- * @return allocated structure with global parameters
- */
-glob_pars *parse_args(int argc, char **argv){
-    int i;
-    void *ptr;
-    ptr = memcpy(&G, &Gdefault, sizeof(G)); assert(ptr);
-    // format of help: "Usage: progname [args]\n"
-    change_helpstring("Usage: %s [args]\n\n\tWhere args are:\n");
-    // parse arguments
-    parseargs(&argc, &argv, cmdlnopts);
-    if(help) showhelp(-1, cmdlnopts);
-    if(argc > 0){
-        G.rest_pars_num = argc;
-        G.rest_pars = calloc(argc, sizeof(char*));
-        for (i = 0; i < argc; i++)
-            G.rest_pars[i] = strdup(argv[i]);
-    }
-    return &G;
-}
-

astrosib_utils/domedaemon/cmdlnopts.h

@@ -1,44 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * cmdlnopts.h - comand line options for parceargs
- *
- * Copyright 2018 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#pragma once
-#ifndef __CMDLNOPTS_H__
-#define __CMDLNOPTS_H__
-
-#include "parseargs.h"
-#include "term.h"
-
-/*
- * here are some typedef's for global data
- */
-typedef struct{
-    char *device;           // serial device name
-    char *port;             // port to connect
-    char *logfile;          // logfile name
-    int terminal;           // run as terminal
-    int echo;               // echo user commands back
-    int rest_pars_num;      // number of rest parameters
-    char** rest_pars;       // the rest parameters: array of char* (path to logfile and thrash)
-} glob_pars;
-
-
-glob_pars *parse_args(int argc, char **argv);
-#endif // __CMDLNOPTS_H__

astrosib_utils/domedaemon/domedaemon.geany

@@ -1,42 +0,0 @@
-[editor]
-line_wrapping=false
-line_break_column=80
-auto_continue_multiline=true
-
-[file_prefs]
-final_new_line=true
-ensure_convert_new_lines=false
-strip_trailing_spaces=true
-replace_tabs=true
-
-[indentation]
-indent_width=4
-indent_type=0
-indent_hard_tab_width=4
-detect_indent=false
-detect_indent_width=false
-indent_mode=3
-
-[project]
-name=domedaemon
-base_path=/tmp/f/domedaemon/
-description=
-
-[long line marker]
-long_line_behaviour=1
-long_line_column=80
-
-[files]
-current_page=8
-FILE_NAME_0=1293;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2Fdomedaemon%2Fcmdlnopts.c;0;4
-FILE_NAME_1=1178;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2Fdomedaemon%2Fcmdlnopts.h;0;4
-FILE_NAME_2=0;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2Fdomedaemon%2Fmain.c;0;4
-FILE_NAME_3=4321;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2Fdomedaemon%2Fparseargs.c;0;4
-FILE_NAME_4=0;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2Fdomedaemon%2Fparseargs.h;0;4
-FILE_NAME_5=6959;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2Fdomedaemon%2Fsocket.c;0;4
-FILE_NAME_6=1171;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2Fdomedaemon%2Fsocket.h;0;4
-FILE_NAME_7=0;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2Fdomedaemon%2Fterm.c;0;4
-FILE_NAME_8=1325;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2Fdomedaemon%2Fterm.h;0;4
-
-[VTE]
-last_dir=/home/eddy

astrosib_utils/domedaemon/main.c

@@ -1,83 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * main.c
- *
- * Copyright 2018 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-#include "usefull_macros.h"
-#include <signal.h>
-#include <sys/wait.h> // wait
-#include <sys/prctl.h> //prctl
-#include "cmdlnopts.h"
-#include "socket.h"
-
-// dome @ /dev/ttyS2
-
-glob_pars *GP;
-
-void signals(int signo){
-    restore_console();
-    restore_tty();
-    putlog("exit with status %d", signo);
-    exit(signo);
-}
-
-int main(int argc, char **argv){
-    initial_setup();
-    signal(SIGTERM, signals); // kill (-15) - quit
-    signal(SIGHUP, SIG_IGN);  // hup - ignore
-    signal(SIGINT, signals);  // ctrl+C - quit
-    signal(SIGQUIT, signals); // ctrl+\ - quit
-    signal(SIGTSTP, SIG_IGN); // ignore ctrl+Z
-    GP = parse_args(argc, argv);
-    if(GP->terminal){
-        if(!GP->device) ERRX(_("Point serial device name"));
-        try_connect(GP->device);
-        run_terminal();
-        signals(0); // never reached!
-    }
-    if(GP->logfile)
-        openlogfile(GP->logfile);
-    #ifndef EBUG
-    if(daemon(1, 0)){
-        ERR("daemon()");
-    }
-    while(1){ // guard for dead processes
-        pid_t childpid = fork();
-        if(childpid){
-            putlog("create child with PID %d\n", childpid);
-            DBG("Created child with PID %d\n", childpid);
-            wait(NULL);
-            putlog("child %d died\n", childpid);
-            WARNX("Child %d died\n", childpid);
-            sleep(1);
-        }else{
-            prctl(PR_SET_PDEATHSIG, SIGTERM); // send SIGTERM to child when parent dies
-            break; // go out to normal functional
-        }
-    }
-    #endif
-
-    if(GP->device) try_connect(GP->device);
-    if(ping()){
-        putlog("Can't write command PING");
-        ERRX(_("Can't write command PING"));
-    }
-    daemonize(GP->port);
-    signals(0); // newer reached
-    return 0;
-}

astrosib_utils/domedaemon/parseargs.c

@@ -1,497 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * parseargs.c - parsing command line arguments & print help
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#include <stdio.h>  // printf
-#include <getopt.h> // getopt_long
-#include <stdlib.h> // calloc, exit, strtoll
-#include <assert.h> // assert
-#include <string.h> // strdup, strchr, strlen
-#include <strings.h>// strcasecmp
-#include <limits.h> // INT_MAX & so on
-#include <libintl.h>// gettext
-#include <ctype.h>  // isalpha
-#include "parseargs.h"
-#include "usefull_macros.h"
-
-char *helpstring = "%s\n";
-
-/**
- * Change standard help header
- * MAY consist ONE "%s" for progname
- * @param str (i) - new format
- */
-void change_helpstring(char *s){
-    int pcount = 0, scount = 0;
-    char *str = s;
-    // check `helpstring` and set it to default in case of error
-    for(; pcount < 2; str += 2){
-        if(!(str = strchr(str, '%'))) break;
-        if(str[1] != '%') pcount++; // increment '%' counter if it isn't "%%"
-        else{
-            str += 2; // pass next '%'
-            continue;
-        }
-        if(str[1] == 's') scount++; // increment "%s" counter
-    };
-    if(pcount > 1 || pcount != scount){ // amount of pcount and/or scount wrong
-        /// "îÅÐÒÁ×ÉÌØÎÙÊ ÆÏÒÍÁÔ ÓÔÒÏËÉ ÐÏÍÏÝÉ"
-        ERRX(_("Wrong helpstring!"));
-    }
-    helpstring = s;
-}
-
-/**
- * Carefull atoll/atoi
- * @param num (o) - returning value (or NULL if you wish only check number) - allocated by user
- * @param str (i) - string with number must not be NULL
- * @param t   (i) - T_INT for integer or T_LLONG for long long (if argtype would be wided, may add more)
- * @return TRUE if conversion sone without errors, FALSE otherwise
- */
-static bool myatoll(void *num, char *str, argtype t){
-    long long tmp, *llptr;
-    int *iptr;
-    char *endptr;
-    assert(str);
-    assert(num);
-    tmp = strtoll(str, &endptr, 0);
-    if(endptr == str || *str == '\0' || *endptr != '\0')
-        return FALSE;
-    switch(t){
-        case arg_longlong:
-            llptr = (long long*) num;
-            *llptr = tmp;
-        break;
-        case arg_int:
-        default:
-            if(tmp < INT_MIN || tmp > INT_MAX){
-                /// "ãÅÌÏÅ ×ÎÅ ÄÏÐÕÓÔÉÍÏÇÏ ÄÉÁÐÁÚÏÎÁ"
-                WARNX(_("Integer out of range"));
-                return FALSE;
-            }
-            iptr = (int*)num;
-            *iptr = (int)tmp;
-    }
-    return TRUE;
-}
-
-// the same as myatoll but for double
-// There's no NAN & INF checking here (what if they would be needed?)
-static bool myatod(void *num, const char *str, argtype t){
-    double tmp, *dptr;
-    float *fptr;
-    char *endptr;
-    assert(str);
-    tmp = strtod(str, &endptr);
-    if(endptr == str || *str == '\0' || *endptr != '\0')
-        return FALSE;
-    switch(t){
-        case arg_double:
-            dptr = (double *) num;
-            *dptr = tmp;
-        break;
-        case arg_float:
-        default:
-            fptr = (float *) num;
-            *fptr = (float)tmp;
-        break;
-    }
-    return TRUE;
-}
-
-/**
- * Get index of current option in array options
- * @param opt (i) - returning val of getopt_long
- * @param options (i) - array of options
- * @return index in array
- */
-static int get_optind(int opt, myoption *options){
-    int oind;
-    myoption *opts = options;
-    assert(opts);
-    for(oind = 0; opts->name && opts->val != opt; oind++, opts++);
-    if(!opts->name || opts->val != opt) // no such parameter
-    showhelp(-1, options);
-    return oind;
-}
-
-/**
- * reallocate new value in array of multiple repeating arguments
- * @arg paptr - address of pointer to array (**void)
- * @arg type - its type (for realloc)
- * @return pointer to new (next) value
- */
-void *get_aptr(void *paptr, argtype type){
-    int i = 1;
-    void **aptr = *((void***)paptr);
-    if(aptr){ // there's something in array
-        void **p = aptr;
-        while(*p++) ++i;
-    }
-    size_t sz = 0;
-    switch(type){
-        default:
-        case arg_none:
-            /// "îÅ ÍÏÇÕ ÉÓÐÏÌØÚÏ×ÁÔØ ÎÅÓËÏÌØËÏ ÐÁÒÁÍÅÔÒÏ× ÂÅÚ ÁÒÇÕÍÅÎÔÏ×!"
-            ERRX("Can't use multiple args with arg_none!");
-        break;
-        case arg_int:
-            sz = sizeof(int);
-        break;
-        case arg_longlong:
-            sz = sizeof(long long);
-        break;
-        case arg_double:
-            sz = sizeof(double);
-        break;
-        case arg_float:
-            sz = sizeof(float);
-        break;
-        case arg_string:
-            sz = 0;
-        break;
-    /*  case arg_function:
-            sz = sizeof(argfn *);
-        break;*/
-    }
-    aptr = realloc(aptr, (i + 1) * sizeof(void*));
-    *((void***)paptr) = aptr;
-    aptr[i] = NULL;
-    if(sz){
-        aptr[i - 1] = malloc(sz);
-    }else
-        aptr[i - 1] = &aptr[i - 1];
-    return aptr[i - 1];
-}
-
-
-/**
- * Parse command line arguments
- * ! If arg is string, then value will be strdup'ed!
- *
- * @param argc (io) - address of argc of main(), return value of argc stay after `getopt`
- * @param argv (io) - address of argv of main(), return pointer to argv stay after `getopt`
- * BE CAREFUL! if you wanna use full argc & argv, save their original values before
- *      calling this function
- * @param options (i) - array of `myoption` for arguments parcing
- *
- * @exit: in case of error this function show help & make `exit(-1)`
-  */
-void parseargs(int *argc, char ***argv, myoption *options){
-    char *short_options, *soptr;
-    struct option *long_options, *loptr;
-    size_t optsize, i;
-    myoption *opts = options;
-    // check whether there is at least one options
-    assert(opts);
-    assert(opts[0].name);
-    // first we count how much values are in opts
-    for(optsize = 0; opts->name; optsize++, opts++);
-    // now we can allocate memory
-    short_options = calloc(optsize * 3 + 1, 1); // multiply by three for '::' in case of args in opts
-    long_options = calloc(optsize + 1, sizeof(struct option));
-    opts = options; loptr = long_options; soptr = short_options;
-    // in debug mode check the parameters are not repeated
-#ifdef EBUG
-    char **longlist = MALLOC(char*, optsize);
-    char *shortlist = MALLOC(char, optsize);
-#endif
-    // fill short/long parameters and make a simple checking
-    for(i = 0; i < optsize; i++, loptr++, opts++){
-        // check
-        assert(opts->name); // check name
-#ifdef EBUG
-        longlist[i] = strdup(opts->name);
-#endif
-        if(opts->has_arg){
-            assert(opts->type != arg_none); // check error with arg type
-            assert(opts->argptr);  // check pointer
-        }
-        if(opts->type != arg_none) // if there is a flag without arg, check its pointer
-            assert(opts->argptr);
-        // fill long_options
-        // don't do memcmp: what if there would be different alignment?
-        loptr->name     = opts->name;
-        loptr->has_arg  = (opts->has_arg < MULT_PAR) ? opts->has_arg : 1;
-        loptr->flag     = opts->flag;
-        loptr->val      = opts->val;
-        // fill short options if they are:
-        if(!opts->flag && opts->val){
-#ifdef EBUG
-            shortlist[i] = (char) opts->val;
-#endif
-            *soptr++ = opts->val;
-            if(loptr->has_arg) // add ':' if option has required argument
-                *soptr++ = ':';
-            if(loptr->has_arg == 2) // add '::' if option has optional argument
-                *soptr++ = ':';
-        }
-    }
-    // sort all lists & check for repeating
-#ifdef EBUG
-    int cmpstringp(const void *p1, const void *p2){
-        return strcmp(* (char * const *) p1, * (char * const *) p2);
-    }
-    int cmpcharp(const void *p1, const void *p2){
-        return (int)(*(char * const)p1 - *(char *const)p2);
-    }
-    qsort(longlist, optsize, sizeof(char *), cmpstringp);
-    qsort(shortlist,optsize, sizeof(char), cmpcharp);
-    char *prevl = longlist[0], prevshrt = shortlist[0];
-    for(i = 1; i < optsize; ++i){
-        if(longlist[i]){
-            if(prevl){
-                if(strcmp(prevl, longlist[i]) == 0) ERRX("double long arguments: --%s", prevl);
-            }
-            prevl = longlist[i];
-        }
-        if(shortlist[i]){
-            if(prevshrt){
-                if(prevshrt == shortlist[i]) ERRX("double short arguments: -%c", prevshrt);
-            }
-            prevshrt = shortlist[i];
-        }
-    }
-#endif
-    // now we have both long_options & short_options and can parse `getopt_long`
-    while(1){
-        int opt;
-        int oindex = 0, optind = 0; // oindex - number of option in argv, optind - number in options[]
-        if((opt = getopt_long(*argc, *argv, short_options, long_options, &oindex)) == -1) break;
-        if(opt == '?'){
-            opt = optopt;
-            optind = get_optind(opt, options);
-            if(options[optind].has_arg == NEED_ARG || options[optind].has_arg == MULT_PAR)
-                showhelp(optind, options); // need argument
-        }
-        else{
-            if(opt == 0 || oindex > 0) optind = oindex;
-            else optind = get_optind(opt, options);
-        }
-        opts = &options[optind];
-    //    if(opt == 0 && opts->has_arg == NO_ARGS) continue; // only long option changing integer flag
-        // now check option
-        if(opts->has_arg == NEED_ARG || opts->has_arg == MULT_PAR)
-            if(!optarg) showhelp(optind, options); // need argument
-        void *aptr;
-        if(opts->has_arg == MULT_PAR){
-            aptr = get_aptr(opts->argptr, opts->type);
-        }else
-            aptr = opts->argptr;
-        bool result = TRUE;
-        // even if there is no argument, but argptr != NULL, think that optarg = "1"
-        if(!optarg) optarg = "1";
-        switch(opts->type){
-            default:
-            case arg_none:
-                if(opts->argptr) *((int*)aptr) += 1; // increment value
-            break;
-            case arg_int:
-                result = myatoll(aptr, optarg, arg_int);
-            break;
-            case arg_longlong:
-                result = myatoll(aptr, optarg, arg_longlong);
-            break;
-            case arg_double:
-                result = myatod(aptr, optarg, arg_double);
-            break;
-            case arg_float:
-                result = myatod(aptr, optarg, arg_float);
-            break;
-            case arg_string:
-                result = (*((void**)aptr) = (void*)strdup(optarg));
-            break;
-            case arg_function:
-                result = ((argfn)aptr)(optarg);
-            break;
-        }
-        if(!result){
-            showhelp(optind, options);
-        }
-    }
-    *argc -= optind;
-    *argv += optind;
-}
-
-/**
- * compare function for qsort
- * first - sort by short options; second - sort arguments without sort opts (by long options)
- */
-static int argsort(const void *a1, const void *a2){
-    const myoption *o1 = (myoption*)a1, *o2 = (myoption*)a2;
-    const char *l1 = o1->name, *l2 = o2->name;
-    int s1 = o1->val, s2 = o2->val;
-    int *f1 = o1->flag, *f2 = o2->flag;
-    // check if both options has short arg
-    if(f1 == NULL && f2 == NULL && s1 && s2){ // both have short arg
-        return (s1 - s2);
-    }else if((f1 != NULL || !s1) && (f2 != NULL || !s2)){ // both don't have short arg - sort by long
-        return strcmp(l1, l2);
-    }else{ // only one have short arg -- return it
-        if(f2 || !s2) return -1; // a1 have short - it is 'lesser'
-        else return 1;
-    }
-}
-
-/**
- * Show help information based on myoption->help values
- * @param oindex (i)  - if non-negative, show only help by myoption[oindex].help
- * @param options (i) - array of `myoption`
- *
- * @exit:  run `exit(-1)` !!!
- */
-void showhelp(int oindex, myoption *options){
-    int max_opt_len = 0; // max len of options substring - for right indentation
-    const int bufsz = 255;
-    char buf[bufsz+1];
-    myoption *opts = options;
-    assert(opts);
-    assert(opts[0].name); // check whether there is at least one options
-    if(oindex > -1){ // print only one message
-        opts = &options[oindex];
-        printf("  ");
-        if(!opts->flag && isalpha(opts->val)) printf("-%c, ", opts->val);
-        printf("--%s", opts->name);
-        if(opts->has_arg == 1) printf("=arg");
-        else if(opts->has_arg == 2) printf("[=arg]");
-        printf("  %s\n", _(opts->help));
-        exit(-1);
-    }
-    // header, by default is just "progname\n"
-    printf("\n");
-    if(strstr(helpstring, "%s")) // print progname
-        printf(helpstring, __progname);
-    else // only text
-        printf("%s", helpstring);
-    printf("\n");
-    // count max_opt_len
-    do{
-        int L = strlen(opts->name);
-        if(max_opt_len < L) max_opt_len = L;
-    }while((++opts)->name);
-    max_opt_len += 14; // format: '-S , --long[=arg]' - get addition 13 symbols
-    opts = options;
-    // count amount of options
-    int N; for(N = 0; opts->name; ++N, ++opts);
-    if(N == 0) exit(-2);
-    // Now print all help (sorted)
-    opts = options;
-    qsort(opts, N, sizeof(myoption), argsort);
-    do{
-        int p = sprintf(buf, "  "); // a little indent
-        if(!opts->flag && opts->val) // .val is short argument
-            p += snprintf(buf+p, bufsz-p, "-%c, ", opts->val);
-        p += snprintf(buf+p, bufsz-p, "--%s", opts->name);
-        if(opts->has_arg == 1) // required argument
-            p += snprintf(buf+p, bufsz-p, "=arg");
-        else if(opts->has_arg == 2) // optional argument
-            p += snprintf(buf+p, bufsz-p, "[=arg]");
-        assert(p < max_opt_len); // there would be magic if p >= max_opt_len
-        printf("%-*s%s\n", max_opt_len+1, buf, _(opts->help)); // write options & at least 2 spaces after
-        ++opts;
-    }while(--N);
-    printf("\n\n");
-    exit(-1);
-}
-
-/**
- * get suboptions from parameter string
- * @param str - parameter string
- * @param opt - pointer to suboptions structure
- * @return TRUE if all OK
- */
-bool get_suboption(char *str, mysuboption *opt){
-    int findsubopt(char *par, mysuboption *so){
-        int idx = 0;
-        if(!par) return -1;
-        while(so[idx].name){
-            if(strcasecmp(par, so[idx].name) == 0) return idx;
-            ++idx;
-        }
-        return -1; // badarg
-    }
-    bool opt_setarg(mysuboption *so, int idx, char *val){
-        mysuboption *soptr = &so[idx];
-        bool result = FALSE;
-        void *aptr = soptr->argptr;
-        switch(soptr->type){
-            default:
-            case arg_none:
-                if(soptr->argptr) *((int*)aptr) += 1; // increment value
-                result = TRUE;
-            break;
-            case arg_int:
-                result = myatoll(aptr, val, arg_int);
-            break;
-            case arg_longlong:
-                result = myatoll(aptr, val, arg_longlong);
-            break;
-            case arg_double:
-                result = myatod(aptr, val, arg_double);
-            break;
-            case arg_float:
-                result = myatod(aptr, val, arg_float);
-            break;
-            case arg_string:
-                result = (*((void**)aptr) = (void*)strdup(val));
-            break;
-            case arg_function:
-                result = ((argfn)aptr)(val);
-            break;
-        }
-        return result;
-    }
-    char *tok;
-    bool ret = FALSE;
-    char *tmpbuf;
-    tok = strtok_r(str, ":,", &tmpbuf);
-    do{
-        char *val = strchr(tok, '=');
-        int noarg = 0;
-        if(val == NULL){ // no args
-            val = "1";
-            noarg = 1;
-        }else{
-            *val++ = '\0';
-            if(!*val || *val == ':' || *val == ','){ // no argument - delimeter after =
-                val = "1"; noarg = 1;
-            }
-        }
-        int idx = findsubopt(tok, opt);
-        if(idx < 0){
-            /// "îÅÐÒÁ×ÉÌØÎÙÊ ÐÁÒÁÍÅÔÒ: %s"
-            WARNX(_("Wrong parameter: %s"), tok);
-            goto returning;
-        }
-        if(noarg && opt[idx].has_arg == NEED_ARG){
-            /// "%s: ÎÅÏÂÈÏÄÉÍ ÁÒÇÕÍÅÎÔ!"
-            WARNX(_("%s: argument needed!"), tok);
-            goto returning;
-        }
-        if(!opt_setarg(opt, idx, val)){
-            /// "îÅÐÒÁ×ÉÌØÎÙÊ ÁÒÇÕÍÅÎÔ \"%s\" ÐÁÒÁÍÅÔÒÁ \"%s\""
-            WARNX(_("Wrong argument \"%s\" of parameter \"%s\""), val, tok);
-            goto returning;
-        }
-    }while((tok = strtok_r(NULL, ":,", &tmpbuf)));
-    ret = TRUE;
-returning:
-    return ret;
-}

astrosib_utils/domedaemon/parseargs.h

@@ -1,124 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * parseargs.h - headers for parsing command line arguments
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-#pragma once
-#ifndef __PARSEARGS_H__
-#define __PARSEARGS_H__
-
-#include <stdbool.h>// bool
-#include <stdlib.h>
-
-#ifndef TRUE
-    #define TRUE true
-#endif
-
-#ifndef FALSE
-    #define FALSE false
-#endif
-
-// macro for argptr
-#define APTR(x)   ((void*)x)
-
-// if argptr is a function:
-typedef  bool(*argfn)(void *arg);
-
-/*
- * type of getopt's argument
- * WARNING!
- * My function change value of flags by pointer, so if you want to use another type
- * make a latter conversion, example:
- *      char charg;
- *      int iarg;
- *      myoption opts[] = {
- *      {"value", 1, NULL, 'v', arg_int, &iarg, "char val"}, ..., end_option};
- *      ..(parse args)..
- *      charg = (char) iarg;
- */
-typedef enum {
-    arg_none = 0,   // no arg
-    arg_int,        // integer
-    arg_longlong,   // long long
-    arg_double,     // double
-    arg_float,      // float
-    arg_string,     // char *
-    arg_function    // parse_args will run function `bool (*fn)(char *optarg, int N)`
-} argtype;
-
-/*
- * Structure for getopt_long & help
- * BE CAREFUL: .argptr is pointer to data or pointer to function,
- *      conversion depends on .type
- *
- * ATTENTION: string `help` prints through macro PRNT(), bu default it is gettext,
- * but you can redefine it before `#include "parseargs.h"`
- *
- * if arg is string, then value wil be strdup'ed like that:
- *      char *str;
- *      myoption opts[] = {{"string", 1, NULL, 's', arg_string, &str, "string val"}, ..., end_option};
- *      *(opts[1].str) = strdup(optarg);
- * in other cases argptr should be address of some variable (or pointer to allocated memory)
- *
- * NON-NULL argptr should be written inside macro APTR(argptr) or directly: (void*)argptr
- *
- * !!!LAST VALUE OF ARRAY SHOULD BE `end_option` or ZEROS !!!
- *
- */
-typedef enum{
-    NO_ARGS  = 0,  // first three are the same as in getopt_long
-    NEED_ARG = 1,
-    OPT_ARG  = 2,
-    MULT_PAR
-} hasarg;
-
-typedef struct{
-    // these are from struct option:
-    const char *name;       // long option's name
-    hasarg      has_arg;    // 0 - no args, 1 - nesessary arg, 2 - optionally arg, 4 - need arg & key can repeat (args are stored in null-terminated array)
-    int        *flag;       // NULL to return val, pointer to int - to set its value of val (function returns 0)
-    int         val;        // short opt name (if flag == NULL) or flag's value
-    // and these are mine:
-    argtype     type;       // type of argument
-    void       *argptr;     // pointer to variable to assign optarg value or function `bool (*fn)(char *optarg, int N)`
-    const char *help;       // help string which would be shown in function `showhelp` or NULL
-} myoption;
-
-/*
- * Suboptions structure, almost the same like myoption
- * used in parse_subopts()
- */
-typedef struct{
-    const char *name;
-    hasarg      has_arg;
-    argtype     type;
-    void       *argptr;
-} mysuboption;
-
-// last string of array (all zeros)
-#define end_option {0,0,0,0,0,0,0}
-#define end_suboption {0,0,0,0}
-
-extern const char *__progname;
-
-void showhelp(int oindex, myoption *options);
-void parseargs(int *argc, char ***argv, myoption *options);
-void change_helpstring(char *s);
-bool get_suboption(char *str, mysuboption *opt);
-
-#endif // __PARSEARGS_H__

astrosib_utils/domedaemon/socket.c

@@ -1,330 +0,0 @@
-/*
- *                                                                                                  geany_encoding=koi8-r
- * socket.c - socket IO
- *
- * Copyright 2018 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- *
- */
-#include "usefull_macros.h"
-#include "socket.h"
-#include "term.h"
-#include <netdb.h>      // addrinfo
-#include <arpa/inet.h>  // inet_ntop
-#include <pthread.h>
-#include <limits.h>     // INT_xxx
-#include <signal.h> // pthread_kill
-#include <unistd.h> // daemon
-#include <sys/syscall.h> // syscall
-
-#include "cmdlnopts.h"   // glob_pars
-
-#define BUFLEN    (10240)
-// Max amount of connections
-#define BACKLOG   (30)
-
-extern glob_pars *GP;
-
-static char *status; // global variable with device status
-static char weather[32];
-
-typedef enum{
-    CMD_OPEN,
-    CMD_CLOSE,
-    CMD_NONE
-} commands;
-
-static commands cmd = CMD_NONE;
-
-/*
- * Define global data buffers here
- */
-
-/**************** COMMON FUNCTIONS ****************/
-/**
- * wait for answer from socket
- * @param sock - socket fd
- * @return 0 in case of error or timeout, 1 in case of socket ready
- */
-static int waittoread(int sock){
-    fd_set fds;
-    struct timeval timeout;
-    int rc;
-    timeout.tv_sec = 1; // wait not more than 1 second
-    timeout.tv_usec = 0;
-    FD_ZERO(&fds);
-    FD_SET(sock, &fds);
-    do{
-        rc = select(sock+1, &fds, NULL, NULL, &timeout);
-        if(rc < 0){
-            if(errno != EINTR){
-                WARN("select()");
-                return 0;
-            }
-            continue;
-        }
-        break;
-    }while(1);
-    if(FD_ISSET(sock, &fds)) return 1;
-    return 0;
-}
-
-/**************** SERVER FUNCTIONS ****************/
-pthread_mutex_t mutex = PTHREAD_MUTEX_INITIALIZER;
-/**
- * Send data over socket
- * @param sock      - socket fd
- * @param webquery  - ==1 if this is web query
- * @param textbuf   - zero-trailing buffer with data to send
- * @return 1 if all OK
- */
-static int send_data(int sock, int webquery, const char *textbuf){
-    ssize_t L, Len;
-    char tbuf[BUFLEN];
-    Len = strlen(textbuf);
-    // OK buffer ready, prepare to send it
-    if(webquery){
-        L = snprintf((char*)tbuf, BUFLEN,
-            "HTTP/2.0 200 OK\r\n"
-            "Access-Control-Allow-Origin: *\r\n"
-            "Access-Control-Allow-Methods: GET, POST\r\n"
-            "Access-Control-Allow-Credentials: true\r\n"
-            "Content-type: text/plain\r\nContent-Length: %zd\r\n\r\n", Len);
-        if(L < 0){
-            WARN("sprintf()");
-            return 0;
-        }
-        if(L != write(sock, tbuf, L)){
-            WARN("write");
-            return 0;
-        }
-    }
-    // send data
-    //DBG("send %zd bytes\nBUF: %s", Len, buf);
-    if(Len != write(sock, textbuf, Len)){
-        WARN("write()");
-        return 0;
-    }
-    return 1;
-}
-
-// search a first word after needle without spaces
-static char* stringscan(char *str, char *needle){
-    char *a, *e;
-    char *end = str + strlen(str);
-    a = strstr(str, needle);
-    if(!a) return NULL;
-    a += strlen(needle);
-    while (a < end && (*a == ' ' || *a == '\r' || *a == '\t' || *a == '\r')) a++;
-    if(a >= end) return NULL;
-    e = strchr(a, ' ');
-    if(e) *e = 0;
-    return a;
-}
-
-static void *handle_socket(void *asock){
-    FNAME();
-    int sock = *((int*)asock);
-    int webquery = 0; // whether query is web or regular
-    char buff[BUFLEN];
-    ssize_t rd;
-    double t0 = dtime();
-    while(dtime() - t0 < SOCKET_TIMEOUT){
-        if(!waittoread(sock)){ // no data incoming
-            continue;
-        }
-        if(!(rd = read(sock, buff, BUFLEN-1))){
-            break;
-        }
-        DBG("Got %zd bytes", rd);
-        if(rd < 0){ // error
-            DBG("Nothing to read from fd %d (ret: %zd)", sock, rd);
-            break;
-        }
-        // add trailing zero to be on the safe side
-        buff[rd] = 0;
-        // now we should check what do user want
-        char *got, *found = buff;
-        if((got = stringscan(buff, "GET")) || (got = stringscan(buff, "POST"))){ // web query
-            webquery = 1;
-            char *slash = strchr(got, '/');
-            if(slash) found = slash + 1;
-            // web query have format GET /some.resource
-        }
-        // here we can process user data
-        DBG("user send: %s\nfound=%s", buff, found);
-        if(GP->echo){
-            if(!send_data(sock, webquery, found)){
-                putlog("can't send data, some error occured");
-            }
-        }
-        pthread_mutex_lock(&mutex);
-        const char *proto = "Commands: open, close, status";
-        if(strstr(found, "open")){
-            DBG("User asks 2 open");
-            putlog("User asks to open");
-            cmd = CMD_OPEN;
-            send_data(sock, webquery, "OK\n");
-        }else if(strstr(found, "close")){
-            DBG("User asks 2 close");
-            putlog("User asks to close");
-            cmd = CMD_CLOSE;
-            send_data(sock, webquery, "OK\n");
-        }else if(strstr(found, "weather")){
-            send_data(sock, webquery, weather);
-        }else if(strstr(found, "status")){
-            DBG("User asks 4 status");
-            send_data(sock, webquery, status);
-        }else send_data(sock, webquery, proto);
-        pthread_mutex_unlock(&mutex);
-        break;
-    }
-    close(sock);
-    pthread_exit(NULL);
-    return NULL;
-}
-
-// main socket server
-static void *server(void *asock){
-    putlog("server(): getpid: %d, pthread_self: %lu, tid: %lu",getpid(), pthread_self(), syscall(SYS_gettid));
-    int sock = *((int*)asock);
-    if(listen(sock, BACKLOG) == -1){
-        putlog("listen() failed");
-        WARN("listen");
-        return NULL;
-    }
-    while(1){
-        socklen_t size = sizeof(struct sockaddr_in);
-        struct sockaddr_in their_addr;
-        int newsock;
-        if(!waittoread(sock)) continue;
-        newsock = accept(sock, (struct sockaddr*)&their_addr, &size);
-        if(newsock <= 0){
-            putlog("accept() failed");
-            WARN("accept()");
-            continue;
-        }
-        struct sockaddr_in* pV4Addr = (struct sockaddr_in*)&their_addr;
-        struct in_addr ipAddr = pV4Addr->sin_addr;
-        char str[INET_ADDRSTRLEN];
-        inet_ntop(AF_INET, &ipAddr, str, INET_ADDRSTRLEN);
-        putlog("Got connection from %s", str);
-        DBG("Got connection from %s\n", str);
-        pthread_t handler_thread;
-        if(pthread_create(&handler_thread, NULL, handle_socket, (void*) &newsock)){
-            putlog("server(): pthread_create() failed");
-            WARN("pthread_create()");
-        }else{
-            DBG("Thread created, detouch");
-            pthread_detach(handler_thread); // don't care about thread state
-        }
-    }
-    putlog("server(): UNREACHABLE CODE REACHED!");
-}
-
-// data gathering & socket management
-static void daemon_(int sock){
-    if(sock < 0) return;
-    pthread_t sock_thread;
-    if(pthread_create(&sock_thread, NULL, server, (void*) &sock)){
-        putlog("daemon_(): pthread_create() failed");
-        ERR("pthread_create()");
-    }
-    double tgot = 0.;
-    sprintf(weather, "unknown");
-    do{
-        if(pthread_kill(sock_thread, 0) == ESRCH){ // died
-            WARNX("Sockets thread died");
-            putlog("Sockets thread died");
-            pthread_join(sock_thread, NULL);
-            if(pthread_create(&sock_thread, NULL, server, (void*) &sock)){
-                putlog("daemon_(): new pthread_create() failed");
-                ERR("pthread_create()");
-            }
-        }
-        usleep(1000); // sleep a little or thread's won't be able to lock mutex
-        if(dtime() - tgot < T_INTERVAL) continue;
-        tgot = dtime();
-        // copy temporary buffers to main
-        pthread_mutex_lock(&mutex);
-        char *pollans = poll_device(weather);
-        if(pollans) status = pollans;
-        if(cmd != CMD_NONE){
-            switch (cmd){
-                case CMD_OPEN:
-                    DBG("received command: open");
-                    if(write_cmd("d#opendom")) cmd = CMD_NONE;
-                break;
-                case CMD_CLOSE:
-                    DBG("received command: close");
-                    if(write_cmd("d#closdom")) cmd = CMD_NONE;
-                break;
-                default:
-                    DBG("WTF?");
-            }
-        }
-        pthread_mutex_unlock(&mutex);
-    }while(1);
-    putlog("daemon_(): UNREACHABLE CODE REACHED!");
-}
-
-/**
- * Run daemon service
- */
-void daemonize(char *port){
-    FNAME();
-    int sock = -1;
-    struct addrinfo hints, *res, *p;
-    memset(&hints, 0, sizeof(hints));
-    hints.ai_family = AF_INET;
-    hints.ai_socktype = SOCK_STREAM;
-    hints.ai_flags = AI_PASSIVE;
-    if(getaddrinfo(NULL, port, &hints, &res) != 0){
-        ERR("getaddrinfo");
-    }
-    struct sockaddr_in *ia = (struct sockaddr_in*)res->ai_addr;
-    char str[INET_ADDRSTRLEN];
-    inet_ntop(AF_INET, &(ia->sin_addr), str, INET_ADDRSTRLEN);
-    // loop through all the results and bind to the first we can
-    for(p = res; p != NULL; p = p->ai_next){
-        if((sock = socket(p->ai_family, p->ai_socktype, p->ai_protocol)) == -1){
-            WARN("socket");
-            continue;
-        }
-        int reuseaddr = 1;
-        if(setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, &reuseaddr, sizeof(int)) == -1){
-            ERR("setsockopt");
-        }
-        if(bind(sock, p->ai_addr, p->ai_addrlen) == -1){
-            close(sock);
-            WARN("bind");
-            continue;
-        }
-        break; // if we get here, we have a successfull connection
-    }
-    if(p == NULL){
-        putlog("failed to bind socket, exit");
-        // looped off the end of the list with no successful bind
-        ERRX("failed to bind socket");
-    }
-    freeaddrinfo(res);
-    daemon_(sock);
-    close(sock);
-    putlog("socket closed, exit");
-    signals(0);
-}
-

astrosib_utils/domedaemon/socket.h

@@ -1,34 +0,0 @@
-/*
- *                                                                                                  geany_encoding=koi8-r
- * socket.h
- *
- * Copyright 2017 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- *
- */
-#pragma once
-#ifndef __SOCKET_H__
-#define __SOCKET_H__
-
-// timeout for socket closing
-#define SOCKET_TIMEOUT  (5.0)
-// time interval for data polling (seconds)
-#define T_INTERVAL      (2.)
-
-void daemonize(char *port);
-
-#endif // __SOCKET_H__

astrosib_utils/domedaemon/term.c

@@ -1,203 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * client.c - terminal parser
- *
- * Copyright 2018 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-#include "usefull_macros.h"
-#include "term.h"
-#include <strings.h> // strncasecmp
-#include <time.h>    // time(NULL)
-#include <limits.h>  // INT_MAX, INT_MIN
-
-#define BUFLEN 1024
-
-static char buf[BUFLEN];
-
-/**
- * read strings from terminal (ending with '\n') with timeout
- * @return NULL if nothing was read or pointer to static buffer
- */
-static char *read_string(){
-    //FNAME();
-    size_t r = 0, l;
-    int LL = BUFLEN - 1;
-    char *ptr = NULL;
-    static char *optr = NULL;
-    if(optr && *optr){
-        ptr = optr;
-        optr = strchr(optr, '\n');
-        if(optr) ++optr;
-        //DBG("got data, roll to next; ptr=%s\noptr=%s",ptr,optr);
-        return ptr;
-    }
-    ptr = buf;
-    double d0 = dtime();
-    do{
-        if((l = read_tty(ptr, LL))){
-            r += l; LL -= l; ptr += l;
-            //DBG("got: %s", buf);
-            if(ptr[-1] == '\n') break;
-            d0 = dtime();
-        }
-    }while(dtime() - d0 < WAIT_TMOUT && LL);
-    if(r){
-        buf[r] = 0;
-        //DBG("r=%zd, got string: %s", r, buf);
-        optr = strchr(buf, '\n');
-        if(optr) ++optr;
-        return buf;
-    }
-    return NULL;
-}
-
-/**
- * Try to connect to `device` at BAUD_RATE speed
- * @return connection speed if success or 0
- */
-void try_connect(char *device){
-    if(!device) return;
-    char tmpbuf[4096];
-    fflush(stdout);
-    tty_init(device);
-    read_tty(tmpbuf, 4096); // clear rbuf
-    putlog("Connected to %s", device);
-    DBG("connected");
-}
-
-static void con_sig(int rb){
-    static char buf[256];
-    static int L = 0;
-    if(rb < 1) return;
-    if(rb != '\n'){
-        if(rb == 127 && L > 0){
-            printf("\b \b");
-            fflush(stdout);
-            --L;
-        }else{
-            if(1 != write(1, &rb, 1))
-                printf("%c", (char)rb);
-            buf[L++] = (char)rb;
-            if(L >= 250){
-                printf("\nbuffer overrun!\n");
-                L = 0;
-            }
-        }
-    }else{
-        //buf[L++] = '\r';
-        //buf[L++] = '\n';
-        buf[L] = 0;
-        printf("\n\t\tSend %s\n", buf);
-        write_tty(buf, L);
-        L = 0;
-    }
-}
-
-/**
- * run terminal emulation: send user's commands and show answers
- */
-void run_terminal(){
-    green(_("Work in terminal mode without echo\n"));
-    int rb;
-    char buf[BUFLEN];
-    size_t l;
-    setup_con();
-    while(1){
-        if((l = read_tty(buf, BUFLEN - 1))){
-            buf[l] = 0;
-            printf("%s", buf);
-        }
-        if((rb = read_console())){
-            con_sig(rb);
-        }
-    }
-}
-
-/**
- * write command
- * @return answer or NULL if error occured (or no answer)
- */
-char *write_cmd(const char *cmd){
-    DBG("Write %s", cmd);
-    if(write_tty(cmd, strlen(cmd))) return NULL;
-    double t0 = dtime();
-    static char *ans;
-    while(dtime() - t0 < T_POLLING_TMOUT){ // read answer
-        if((ans = read_string())){ // parse new data
-            DBG("got answer: %s", ans);
-            return ans;
-        }
-    }
-    return NULL;
-}
-
-/**
- * Poll serial port for new dataportion
- * @return: NULL if no data received, pointer to string if valid data received
- */
-char *poll_device(char *wea){
-    char *ans;
-    static char pollbuf[32];
-    const char *cmdstat = "d#get_dom";
-    const char *cmdweat = "d#ask_wea";
-    const char *getweat = "d#wea";
-    const char *cmdget  = "d#pos";
-    #define CMDGETLEN  (5)
-    #define CMDWEALEN  (5)
-    while(read_string()); // clear receiving buffer
-    if(!(ans = write_cmd(cmdstat))) return NULL; // error writing command
-    if(strstr(ans, cmdget) == NULL){
-        DBG("no %s found in %s", cmdstat, ans);
-        return NULL; // ?
-    }
-    ans += CMDGETLEN;
-    if(strstr(ans, "1111")){
-        sprintf(pollbuf, "opened\n");
-        DBG("dome opened");
-    }else if(strstr(ans, "2222")){
-        sprintf(pollbuf, "closed\n");
-        DBG("dome closed");
-    }else sprintf(pollbuf, "intermediate\n");
-    if(!wea || !(ans = write_cmd(cmdweat))) return pollbuf;
-    DBG("poll weather answer");
-    if(strstr(ans, getweat) == NULL){
-        DBG("no %s found in %s", getweat, ans);
-        return pollbuf; // ?
-    }
-    ans += CMDWEALEN;
-    if(*ans == '0'){
-        sprintf(wea, "good weather\n");
-        DBG("good weather");
-    }else if(*ans == '1'){
-        sprintf(wea, "rain or clouds\n");
-        DBG("bad weather");
-    }else sprintf(wea, "unknown\n");
-    return pollbuf;
-}
-
-/**
- * ping device
- * @return 0 if all OK
- */
-int ping(){
-    FNAME();
-    while(read_string()); // clear receiving buffer
-    char *ans = write_cmd("d#get_dom");
-    if(!ans) return 1;
-    if(strstr(ans, "d#pos")) return 0;
-    return 1;
-}

astrosib_utils/domedaemon/term.h

@@ -1,38 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * term.h
- *
- * Copyright 2018 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-#pragma once
-#ifndef __TERM_H__
-#define __TERM_H__
-
-#define FRAME_MAX_LENGTH        (300)
-#define MAX_MEMORY_DUMP_SIZE    (0x800 * 4)
-// Terminal timeout (seconds)
-#define     WAIT_TMOUT          (0.5)
-// Terminal polling timeout - 1 second
-#define     T_POLLING_TMOUT     (1.0)
-
-void run_terminal();
-void try_connect(char *device);
-char *poll_device(char *wea);
-int ping();
-char *write_cmd(const char *cmd);
-
-#endif // __TERM_H__

astrosib_utils/domedaemon/usefull_macros.c

@@ -1,437 +0,0 @@
-/*
- * usefull_macros.h - a set of usefull functions: memory, color etc
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#include "usefull_macros.h"
-#include <time.h>
-#include <linux/limits.h> // PATH_MAX
-
-/**
- * function for different purposes that need to know time intervals
- * @return double value: time in seconds
- */
-double dtime(){
-    double t;
-    struct timeval tv;
-    gettimeofday(&tv, NULL);
-    t = tv.tv_sec + ((double)tv.tv_usec)/1e6;
-    return t;
-}
-
-/******************************************************************************\
- *                          Coloured terminal
-\******************************************************************************/
-int globErr = 0; // errno for WARN/ERR
-
-// pointers to coloured output printf
-int (*red)(const char *fmt, ...);
-int (*green)(const char *fmt, ...);
-int (*_WARN)(const char *fmt, ...);
-
-/*
- * format red / green messages
- * name: r_pr_, g_pr_
- * @param fmt ... - printf-like format
- * @return number of printed symbols
- */
-int r_pr_(const char *fmt, ...){
-    va_list ar; int i;
-    printf(RED);
-    va_start(ar, fmt);
-    i = vprintf(fmt, ar);
-    va_end(ar);
-    printf(OLDCOLOR);
-    return i;
-}
-int g_pr_(const char *fmt, ...){
-    va_list ar; int i;
-    printf(GREEN);
-    va_start(ar, fmt);
-    i = vprintf(fmt, ar);
-    va_end(ar);
-    printf(OLDCOLOR);
-    return i;
-}
-/*
- * print red error/warning messages (if output is a tty)
- * @param fmt ... - printf-like format
- * @return number of printed symbols
- */
-int r_WARN(const char *fmt, ...){
-    va_list ar; int i = 1;
-    fprintf(stderr, RED);
-    va_start(ar, fmt);
-    if(globErr){
-        errno = globErr;
-        vwarn(fmt, ar);
-        errno = 0;
-    }else
-        i = vfprintf(stderr, fmt, ar);
-    va_end(ar);
-    i++;
-    fprintf(stderr, OLDCOLOR "\n");
-    return i;
-}
-
-static const char stars[] = "****************************************";
-/*
- * notty variants of coloured printf
- * name: s_WARN, r_pr_notty
- * @param fmt ... - printf-like format
- * @return number of printed symbols
- */
-int s_WARN(const char *fmt, ...){
-    va_list ar; int i;
-    i = fprintf(stderr, "\n%s\n", stars);
-    va_start(ar, fmt);
-    if(globErr){
-        errno = globErr;
-        vwarn(fmt, ar);
-        errno = 0;
-    }else
-        i = +vfprintf(stderr, fmt, ar);
-    va_end(ar);
-    i += fprintf(stderr, "\n%s\n", stars);
-    i += fprintf(stderr, "\n");
-    return i;
-}
-int r_pr_notty(const char *fmt, ...){
-    va_list ar; int i;
-    i = printf("\n%s\n", stars);
-    va_start(ar, fmt);
-    i += vprintf(fmt, ar);
-    va_end(ar);
-    i += printf("\n%s\n", stars);
-    return i;
-}
-
-/**
- * Run this function in the beginning of main() to setup locale & coloured output
- */
-void initial_setup(){
-    // setup coloured output
-    if(isatty(STDOUT_FILENO)){ // make color output in tty
-        red = r_pr_; green = g_pr_;
-    }else{ // no colors in case of pipe
-        red = r_pr_notty; green = printf;
-    }
-    if(isatty(STDERR_FILENO)) _WARN = r_WARN;
-    else _WARN = s_WARN;
-    // Setup locale
-    setlocale(LC_ALL, "");
-    setlocale(LC_NUMERIC, "C");
-#if defined GETTEXT_PACKAGE && defined LOCALEDIR
-    bindtextdomain(GETTEXT_PACKAGE, LOCALEDIR);
-    textdomain(GETTEXT_PACKAGE);
-#endif
-}
-
-/******************************************************************************\
- *                                  Memory
-\******************************************************************************/
-/*
- * safe memory allocation for macro ALLOC
- * @param N - number of elements to allocate
- * @param S - size of single element (typically sizeof)
- * @return pointer to allocated memory area
- */
-void *my_alloc(size_t N, size_t S){
-    void *p = calloc(N, S);
-    if(!p) ERR("malloc");
-    //assert(p);
-    return p;
-}
-
-/**
- * Mmap file to a memory area
- *
- * @param filename (i) - name of file to mmap
- * @return stuct with mmap'ed file or die
- */
-mmapbuf *My_mmap(char *filename){
-    int fd;
-    char *ptr;
-    size_t Mlen;
-    struct stat statbuf;
-    /// "îÅ ÚÁÄÁÎÏ ÉÍÑ ÆÁÊÌÁ!"
-    if(!filename){
-        WARNX(_("No filename given!"));
-        return NULL;
-    }
-    if((fd = open(filename, O_RDONLY)) < 0){
-    /// "îÅ ÍÏÇÕ ÏÔËÒÙÔØ %s ÄÌÑ ÞÔÅÎÉÑ"
-        WARN(_("Can't open %s for reading"), filename);
-        return NULL;
-    }
-    if(fstat (fd, &statbuf) < 0){
-    /// "îÅ ÍÏÇÕ ×ÙÐÏÌÎÉÔØ stat %s"
-        WARN(_("Can't stat %s"), filename);
-        close(fd);
-        return NULL;
-    }
-    Mlen = statbuf.st_size;
-    if((ptr = mmap (0, Mlen, PROT_READ, MAP_PRIVATE, fd, 0)) == MAP_FAILED){
-    /// "ïÛÉÂËÁ mmap"
-        WARN(_("Mmap error for input"));
-        close(fd);
-        return NULL;
-    }
-    /// "îÅ ÍÏÇÕ ÚÁËÒÙÔØ mmap'ÎÕÔÙÊ ÆÁÊÌ"
-    if(close(fd)) WARN(_("Can't close mmap'ed file"));
-    mmapbuf *ret = MALLOC(mmapbuf, 1);
-    ret->data = ptr;
-    ret->len = Mlen;
-    return  ret;
-}
-
-void My_munmap(mmapbuf *b){
-    if(munmap(b->data, b->len)){
-    /// "îÅ ÍÏÇÕ munmap"
-        ERR(_("Can't munmap"));
-    }
-    FREE(b);
-}
-
-
-/******************************************************************************\
- *                          Terminal in no-echo mode
-\******************************************************************************/
-static struct termios oldt, newt; // terminal flags
-static int console_changed = 0;
-// run on exit:
-void restore_console(){
-    if(console_changed)
-        tcsetattr(STDIN_FILENO, TCSANOW, &oldt); // return terminal to previous state
-    console_changed = 0;
-}
-
-// initial setup:
-void setup_con(){
-    if(console_changed) return;
-    tcgetattr(STDIN_FILENO, &oldt);
-    newt = oldt;
-    newt.c_lflag &= ~(ICANON | ECHO);
-    if(tcsetattr(STDIN_FILENO, TCSANOW, &newt) < 0){
-        /// "îÅ ÍÏÇÕ ÎÁÓÔÒÏÉÔØ ËÏÎÓÏÌØ"
-        WARN(_("Can't setup console"));
-        tcsetattr(STDIN_FILENO, TCSANOW, &oldt);
-        signals(0); //quit?
-    }
-    console_changed = 1;
-}
-
-/**
- * Read character from console without echo
- * @return char readed
- */
-int read_console(){
-    int rb;
-    struct timeval tv;
-    int retval;
-    fd_set rfds;
-    FD_ZERO(&rfds);
-    FD_SET(STDIN_FILENO, &rfds);
-    tv.tv_sec = 0; tv.tv_usec = 10000;
-    retval = select(1, &rfds, NULL, NULL, &tv);
-    if(!retval) rb = 0;
-    else {
-        if(FD_ISSET(STDIN_FILENO, &rfds)) rb = getchar();
-        else rb = 0;
-    }
-    return rb;
-}
-
-/**
- * getchar() without echo
- * wait until at least one character pressed
- * @return character readed
- */
-int mygetchar(){ // getchar() without need of pressing ENTER
-    int ret;
-    do ret = read_console();
-    while(ret == 0);
-    return ret;
-}
-
-
-/******************************************************************************\
- *                              TTY with select()
-\******************************************************************************/
-static struct termio oldtty, tty; // TTY flags
-static int comfd = -1; // TTY fd
-
-// run on exit:
-void restore_tty(){
-    if(comfd == -1) return;
-    ioctl(comfd, TCSANOW, &oldtty ); // return TTY to previous state
-    close(comfd);
-    comfd = -1;
-}
-
-#ifndef BAUD_RATE
-#define BAUD_RATE B4800
-#endif
-#pragma message("Baudrate: "  STR(BAUD_RATE) " (default: " STR(B4800) ")")
-// init:
-void tty_init(char *comdev){
-    DBG("\nOpen port %s ...\n", comdev);
-    do{
-        comfd = open(comdev,O_RDWR|O_NOCTTY|O_NONBLOCK);
-    }while (comfd == -1 && errno == EINTR);
-    if(comfd < 0){
-        WARN("Can't use port %s\n",comdev);
-        signals(-1); // quit?
-    }
-    // make exclusive open
-    if(ioctl(comfd, TIOCEXCL)){
-        WARN(_("Can't do exclusive open"));
-        close(comfd);
-        signals(2);
-    }
-    DBG(" OK\nGet current settings... ");
-    if(ioctl(comfd,TCGETA,&oldtty) < 0){  // Get settings
-        /// "îÅ ÍÏÇÕ ÐÏÌÕÞÉÔØ ÎÁÓÔÒÏÊËÉ"
-        WARN(_("Can't get settings"));
-        signals(-1);
-    }
-    tty = oldtty;
-    tty.c_lflag     = 0;
-    tty.c_oflag     = 0;
-    tty.c_cflag     = BAUD_RATE|CS8|CREAD|CLOCAL; // 9.6k, 8N1, RW, ignore line ctrl
-    tty.c_cc[VMIN]  = 20;
-    tty.c_cc[VTIME] = 5;
-    if(ioctl(comfd,TCSETA,&tty) < 0){
-        /// "îÅ ÍÏÇÕ ÕÓÔÁÎÏ×ÉÔØ ÎÁÓÔÒÏÊËÉ"
-        WARN(_("Can't set settings"));
-        signals(-1);
-    }
-    DBG(" OK\n");
-}
-
-/**
- * Read data from TTY
- * @param buff (o) - buffer for data read
- * @param length   - buffer len
- * @return amount of bytes read
- */
-size_t read_tty(char *buff, size_t length){
-    ssize_t L = 0, l;
-    char *ptr = buff;
-    fd_set rfds;
-    struct timeval tv;
-    int retval;
-    do{
-        l = 0;
-        FD_ZERO(&rfds);
-        FD_SET(comfd, &rfds);
-        // wait for 100ms
-        tv.tv_sec = 0; tv.tv_usec = 10000;
-        retval = select(comfd + 1, &rfds, NULL, NULL, &tv);
-        if (!retval) break;
-        if(FD_ISSET(comfd, &rfds)){
-            //DBG("ISSET");
-            if((l = read(comfd, ptr, length)) < 1){
-                return 0;
-            }
-            //DBG("got %zd", l);
-            ptr += l; L += l;
-            length -= l;
-        }
-    }while(l);
-    return (size_t)L;
-}
-
-int write_tty(const char *buff, size_t length){
-    ssize_t L = write(comfd, buff, length);
-    if((size_t)L != length){
-        /// "ïÛÉÂËÁ ÚÁÐÉÓÉ!"
-        WARN("Write error");
-        return 1;
-    }
-    return 0;
-}
-
-
-/**
- * Safely convert data from string to double
- *
- * @param num (o) - double number read from string
- * @param str (i) - input string
- * @return 1 if success, 0 if fails
- */
-int str2double(double *num, const char *str){
-    double res;
-    char *endptr;
-    if(!str) return 0;
-    res = strtod(str, &endptr);
-    if(endptr == str || *str == '\0' || *endptr != '\0'){
-        /// "îÅÐÒÁ×ÉÌØÎÙÊ ÆÏÒÍÁÔ ÞÉÓÌÁ double!"
-        WARNX("Wrong double number format!");
-        return FALSE;
-    }
-    if(num) *num = res; // you may run it like myatod(NULL, str) to test wether str is double number
-    return TRUE;
-}
-
-FILE *Flog = NULL; // log file descriptor
-char *logname = NULL;
-time_t log_open_time = 0;
-/**
- * Try to open log file
- * if failed show warning message
- */
-void openlogfile(char *name){
-    if(!name){
-        WARNX(_("Need filename"));
-        return;
-    }
-    green(_("Try to open log file %s in append mode\n"), name);
-    if(!(Flog = fopen(name, "a"))){
-        WARN(_("Can't open log file"));
-        return;
-    }
-    log_open_time = time(NULL);
-    logname = name;
-}
-
-/**
- * Save message to log file, rotate logs every 24 hours
- */
-int putlog(const char *fmt, ...){
-    if(!Flog) return 0;
-    time_t t_now = time(NULL);
-    if(t_now - log_open_time > 86400){ // rotate log
-        fprintf(Flog, "\n\t\t%sRotate log\n", ctime(&t_now));
-        fclose(Flog);
-        char newname[PATH_MAX];
-        snprintf(newname, PATH_MAX, "%s.old", logname);
-        if(rename(logname, newname)) WARN("rename()");
-        openlogfile(logname);
-        if(!Flog) return 0;
-    }
-    int i = fprintf(Flog, "\n\t\t%s", ctime(&t_now));
-    va_list ar;
-    va_start(ar, fmt);
-    i = vfprintf(Flog, fmt, ar);
-    va_end(ar);
-    fprintf(Flog, "\n");
-    fflush(Flog);
-    return i;
-}

astrosib_utils/domedaemon/usefull_macros.h

@@ -1,144 +0,0 @@
-/*
- * usefull_macros.h - a set of usefull macros: memory, color etc
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#pragma once
-#ifndef __USEFULL_MACROS_H__
-#define __USEFULL_MACROS_H__
-
-#include <sys/stat.h>
-#include <fcntl.h>
-#include <sys/mman.h>
-#include <unistd.h>
-#include <string.h>
-#include <stdio.h>
-#include <stdarg.h>
-#include <errno.h>
-#include <err.h>
-#include <locale.h>
-#if defined GETTEXT_PACKAGE && defined LOCALEDIR
-/*
- * GETTEXT
- */
-#include <libintl.h>
-#define _(String)               gettext(String)
-#define gettext_noop(String)    String
-#define N_(String)              gettext_noop(String)
-#else
-#define _(String)               (String)
-#define N_(String)              (String)
-#endif
-
-#define STR_HELPER(s)   #s
-#define STR(s) STR_HELPER(s)
-
-#include <stdlib.h>
-#include <termios.h>
-#include <termio.h>
-#include <sys/time.h>
-#include <sys/types.h>
-#include <stdint.h>
-
-
-// unused arguments with -Wall -Werror
-#define _U_    __attribute__((__unused__))
-
-/*
- * Coloured messages output
- */
-#define RED         "\033[1;31;40m"
-#define GREEN       "\033[1;32;40m"
-#define OLDCOLOR    "\033[0;0;0m"
-
-#ifndef FALSE
-#define FALSE (0)
-#endif
-
-#ifndef TRUE
-#define TRUE (1)
-#endif
-
-/*
- * ERROR/WARNING messages
- */
-extern int globErr;
-extern void signals(int sig);
-#define ERR(...) do{globErr=errno; _WARN(__VA_ARGS__); signals(9);}while(0)
-#define ERRX(...) do{globErr=0; _WARN(__VA_ARGS__); signals(9);}while(0)
-#define WARN(...) do{globErr=errno; _WARN(__VA_ARGS__);}while(0)
-#define WARNX(...) do{globErr=0; _WARN(__VA_ARGS__);}while(0)
-
-/*
- * print function name, debug messages
- * debug mode, -DEBUG
- */
-#ifdef EBUG
-    #define FNAME() fprintf(stderr, "\n%s (%s, line %d)\n", __func__, __FILE__, __LINE__)
-    #define DBG(...) do{fprintf(stderr, "%s (%s, line %d): ", __func__, __FILE__, __LINE__); \
-                    fprintf(stderr, __VA_ARGS__);           \
-                    fprintf(stderr, "\n");} while(0)
-#else
-    #define FNAME()  do{}while(0)
-    #define DBG(...) do{}while(0)
-#endif //EBUG
-
-/*
- * Memory allocation
- */
-#define ALLOC(type, var, size)  type * var = ((type *)my_alloc(size, sizeof(type)))
-#define MALLOC(type, size) ((type *)my_alloc(size, sizeof(type)))
-#define FREE(ptr)  do{if(ptr){free(ptr); ptr = NULL;}}while(0)
-
-#ifndef DBL_EPSILON
-#define DBL_EPSILON        (2.2204460492503131e-16)
-#endif
-
-double dtime();
-
-// functions for color output in tty & no-color in pipes
-extern int (*red)(const char *fmt, ...);
-extern int (*_WARN)(const char *fmt, ...);
-extern int (*green)(const char *fmt, ...);
-void * my_alloc(size_t N, size_t S);
-void initial_setup();
-
-// mmap file
-typedef struct{
-    char *data;
-    size_t len;
-} mmapbuf;
-mmapbuf *My_mmap(char *filename);
-void My_munmap(mmapbuf *b);
-
-void restore_console();
-void setup_con();
-int read_console();
-int mygetchar();
-
-void restore_tty();
-void tty_init(char *comdev);
-size_t read_tty(char *buff, size_t length);
-int write_tty(const char *buff, size_t length);
-
-int str2double(double *num, const char *str);
-
-void openlogfile(char *name);
-int putlog(const char *fmt, ...);
-#endif // __USEFULL_MACROS_H__

astrosib_utils/mountdaemon/Makefile

@@ -1,24 +0,0 @@
-PROGRAM = stellariumdaemon
-#LDFLAGS = -lcrypt -lm
-SRCS = $(wildcard *.c)
-CC = gcc
-DEFINES = -D_GNU_SOURCE -D_DEFAULT_SOURCE -D_XOPEN_SOURCE=1111
-DEFINES += -DCOM_SPD=B9600
-#DEFINES += -DEBUG
-CXX = gcc
-CFLAGS = -Wall -Werror -Wextra -Wno-trampolines $(DEFINES)
-OBJS = $(SRCS:.c=.o)
-all : $(PROGRAM)
-$(PROGRAM) : $(OBJS)
-	$(CC) $(CFLAGS) $(OBJS) $(LDFLAGS) -o $(PROGRAM)
-
-# some addition dependencies
-# %.o: %.c
-#        $(CC) $(LDFLAGS) $(CFLAGS) $< -o $@
-#$(SRCS) : %.c : %.h $(INDEPENDENT_HEADERS)
-#        @touch $@
-
-clean:
-	/bin/rm -f *.o *~
-depend:
-	$(CXX) -MM $(CXX.SRCS)

astrosib_utils/mountdaemon/Readme

@@ -1 +0,0 @@
-Stellarium control of 10-micron mount

astrosib_utils/mountdaemon/cmdlnopts.c

@@ -1,96 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * cmdlnopts.c - the only function that parse cmdln args and returns glob parameters
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-#include <assert.h>
-#include <stdio.h>
-#include <string.h>
-#include <strings.h>
-#include <math.h>
-#include "cmdlnopts.h"
-#include "usefull_macros.h"
-
-/*
- * here are global parameters initialisation
- */
-int help;
-glob_pars  G;
-
-#define DEFAULT_COMDEV  "/dev/ttyUSB0"
-// port for connections
-#define DEFAULT_PORT "10000"
-// accept only local connections
-//#define ACCEPT_IP  "192.168.3.225"
-// default PID filename:
-#define DEFAULT_PIDFILE "/tmp/stellariumdaemon.pid"
-
-//            DEFAULTS
-// default global parameters
-glob_pars const Gdefault = {
-    .device = DEFAULT_COMDEV,
-    .port = DEFAULT_PORT,
-    .pidfile = DEFAULT_PIDFILE,
-    .emulation = 0,
-    .logfile = NULL // don't save logs
-};
-
-/*
- * Define command line options by filling structure:
- *  name        has_arg     flag    val     type        argptr              help
-*/
-myoption cmdlnopts[] = {
-// common options
-    {"help",    NO_ARGS,    NULL,   'h',    arg_int,    APTR(&help),        _("show this help")},
-    {"device",  NEED_ARG,   NULL,   'd',    arg_string, APTR(&G.device),    _("serial device name (default: " DEFAULT_COMDEV ")")},
-    {"emulation",NO_ARGS,   NULL,   'e',    arg_int,    APTR(&G.emulation), _("run in emulation mode")},
-    //{"hostname",NEED_ARG,   NULL,   'H',    arg_string, APTR(&G.hostname),  _("hostname to connect (default: localhost)")},
-    {"logfile", NEED_ARG,   NULL,   'l',    arg_string, APTR(&G.logfile),   _("file to save logs")},
-    {"pidfile", NEED_ARG,   NULL,   'P',    arg_string, APTR(&G.pidfile),   _("pidfile (default: " DEFAULT_PIDFILE ")")},
-    {"port",    NEED_ARG,   NULL,   'p',    arg_string, APTR(&G.port),      _("port to connect (default: " DEFAULT_PORT ")")},
-   end_option
-};
-
-/**
- * Parse command line options and return dynamically allocated structure
- *      to global parameters
- * @param argc - copy of argc from main
- * @param argv - copy of argv from main
- * @return allocated structure with global parameters
- */
-glob_pars *parse_args(int argc, char **argv){
-    int i;
-    void *ptr;
-    ptr = memcpy(&G, &Gdefault, sizeof(G)); assert(ptr);
-    size_t hlen = 1024;
-    char helpstring[1024], *hptr = helpstring;
-    snprintf(hptr, hlen, "Usage: %%s [args]\n\n\tWhere args are:\n");
-    // format of help: "Usage: progname [args]\n"
-    change_helpstring(helpstring);
-    // parse arguments
-    parseargs(&argc, &argv, cmdlnopts);
-    if(help) showhelp(-1, cmdlnopts);
-    if(argc > 0){
-        G.rest_pars_num = argc;
-        G.rest_pars = calloc(argc, sizeof(char*));
-        for (i = 0; i < argc; i++)
-            G.rest_pars[i] = strdup(argv[i]);
-    }
-    return &G;
-}
-

astrosib_utils/mountdaemon/cmdlnopts.h

@@ -1,43 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * cmdlnopts.h - comand line options for parceargs
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#pragma once
-#ifndef __CMDLNOPTS_H__
-#define __CMDLNOPTS_H__
-
-#include "parseargs.h"
-
-/*
- * here are some typedef's for global data
- */
-typedef struct{
-    char *device;           // serial device name
-    char *port;             // port to connect
-    char *pidfile;          // name of PID file
-    char *logfile;          // logging to this file
-    int emulation;          // run in emulation mode
-    int rest_pars_num;      // number of rest parameters
-    char** rest_pars;       // the rest parameters: array of char*
-} glob_pars;
-
-
-glob_pars *parse_args(int argc, char **argv);
-#endif // __CMDLNOPTS_H__

astrosib_utils/mountdaemon/daemon.c

@@ -1,144 +0,0 @@
-/*
- * daemon.c - functions for running in background like a daemon
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#define PROC_BASE "/proc"
-
-#include <stdio.h>      // printf, fopen, ...
-#include <unistd.h>     // getpid
-#include <stdio.h>      // perror
-#include <sys/types.h>  // opendir
-#include <dirent.h>     // opendir
-#include <sys/stat.h>   // stat
-#include <fcntl.h>      // fcntl
-#include <stdlib.h>     // exit
-#include <string.h>     // memset
-
-/**
- * read process name from /proc/PID/cmdline
- * @param pid - PID of interesting process
- * @return filename or NULL if not found
- *      don't use this function twice for different names without copying
- *      its returning by strdup, because `name` contains in static array
- */
-char *readname(pid_t pid){
-    static char name[256];
-    char *pp = name, byte, path[256];
-    FILE *file;
-    int cntr = 0;
-    size_t sz;
-    snprintf (path, 255, PROC_BASE "/%d/cmdline", pid);
-    file = fopen(path, "r");
-    if(!file) return NULL; // there's no such file
-    do{ // read basename
-        sz = fread(&byte, 1, 1, file);
-        if(sz != 1) break;
-        if(byte != '/') *pp++ = byte;
-        else{
-            pp = name;
-            cntr = 0;
-        }
-    }while(byte && cntr++ < 255);
-    name[cntr] = 0;
-    fclose(file);
-    return name;
-}
-
-void iffound_default(pid_t pid){
-    fprintf(stderr, "\nFound running process (pid=%d), exit.\n", pid);
-    exit(0);
-}
-
-/**
- * check wether there is a same running process
- * exit if there is a running process or error
- * Checking have 3 steps:
- *      1) lock executable file
- *      2) check pidfile (if you run a copy?)
- *      3) check /proc for executables with the same name (no/wrong pidfile)
- * @param selfname - argv[0] or NULL for non-locking
- * @param pidfilename - name of pidfile or NULL if none
- * @param iffound - action to run if file found or NULL for exit(0)
- */
-void check4running(char *selfname, char *pidfilename, void (*iffound)(pid_t pid)){
-    DIR *dir;
-    FILE *pidfile, *fself;
-    struct dirent *de;
-    struct stat s_buf;
-    pid_t pid = 0, self;
-    struct flock fl;
-    char *name, *myname;
-    if(!iffound) iffound = iffound_default;
-    if(selfname){ // block self
-        fself = fopen(selfname, "r"); // open self binary to lock
-        if(!fself){
-            perror("fopen");
-            goto selfpid;
-        }
-        memset(&fl, 0, sizeof(struct flock));
-        fl.l_type = F_WRLCK;
-        if(fcntl(fileno(fself), F_GETLK, &fl) == -1){ // check locking
-            perror("fcntl");
-            goto selfpid;
-        }
-        if(fl.l_type != F_UNLCK){ // file is locking - exit
-            printf("Found locker, PID = %d!\n", fl.l_pid);
-            exit(1);
-        }
-        fl.l_type = F_RDLCK;
-        if(fcntl(fileno(fself), F_SETLKW, &fl) == -1){
-            perror("fcntl");
-        }
-    }
-    selfpid:
-    self = getpid(); // get self PID
-    if(!(dir = opendir(PROC_BASE))){ // open /proc directory
-        perror(PROC_BASE);
-    }
-    if(!(name = readname(self))){ // error reading self name
-        perror("Can't read self name");
-        exit(1);
-    }
-    myname = strdup(name);
-    if(pidfilename && stat(pidfilename, &s_buf) == 0){ // pidfile exists
-        pidfile = fopen(pidfilename, "r");
-        if(pidfile){
-            if(fscanf(pidfile, "%d", &pid) > 0){ // read PID of (possibly) running process
-                if((name = readname(pid)) && strncmp(name, myname, 255) == 0)
-                    iffound(pid);
-            }
-            fclose(pidfile);
-        }
-    }
-    // There is no pidfile or it consists a wrong record
-    while((de = readdir(dir))){ // scan /proc
-        if(!(pid = (pid_t)atoi(de->d_name)) || pid == self) // pass non-PID files and self
-            continue;
-        if((name = readname(pid)) && strncmp(name, myname, 255) == 0)
-            iffound(pid);
-    }
-    closedir(dir);
-    if(pidfilename){
-        pidfile = fopen(pidfilename, "w");
-        fprintf(pidfile, "%d\n", self); // write self PID to pidfile
-        fclose(pidfile);
-    }
-    free(myname);
-}

astrosib_utils/mountdaemon/emulation.c

@@ -1,103 +0,0 @@
-/*
- *                                                                                                  geany_encoding=koi8-r
- * emulation.c
- *
- * Copyright 2018 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- *
- */
-#include "math.h"
-#include "emulation.h"
-#include "usefull_macros.h"
-
-// emulation speed over RA & DEC (0.5 degr per sec)
-#define RA_SPEED    (0.033)
-#define DECL_SPEED    (0.5)
-
-// current coordinates
-static double RA = 0., DECL = 0.;
-// target coordinates
-static double RAtarg = 0., DECLtarg = 0.;
-// coordinates @ guiding start
-static double RA0 = 0., DECL0 = 0.;
-static double raspeed = 0.;
-// ==1 if pointing
-static int pointing = 0;
-// pointing start time
-static double tstart = -1.;
-
-/**
- * send coordinates to telescope emulation
- * @param ra - right ascention (hours)
- * @param decl - declination (degrees)
- * @return 1 if all OK
- */
-int point_emulation(double ra, double decl){
-    DBG("(emul) Send ra=%g, decl=%g", ra, decl);
-    putlog("(emul) Send ra=%g, decl=%g", ra, decl);
-    RAtarg = ra; DECLtarg = decl;
-    RA0 = RA; DECL0 = DECL;
-    raspeed = (RAtarg > RA) ? RA_SPEED : -RA_SPEED;
-    if(fabs(RAtarg - RA) > 12.){ // go to opposite direction
-        raspeed = -raspeed;
-    }
-    tstart = dtime();
-    pointing = 1;
-    return 0;
-}
-
-static double getradiff(){
-    double diff = RAtarg - RA;
-    if(raspeed < 0.) diff = -diff;
-    if(diff > 12.) diff -= 24.;
-    else if(diff < -12.) diff += 24.;
-    return fabs(diff);
-}
-
-/**
- * get coordinates (emulation)
- * @return 1 if all OK
- */
-int get_emul_coords(double *ra, double *decl){
-    if(pointing){
-        DBG("RA/DEC: targ: %g/%g, cur: %g/%g, start: %g/%g", RAtarg, DECLtarg, RA, DECL, RA0, DECL0);
-        // diff < speed? stop
-        if((fabs(RAtarg - RA) < RA_SPEED && fabs(DECLtarg - DECL) < DECL_SPEED)){
-            RA = RAtarg;
-            DECL = DECLtarg;
-            pointing = 0; // guiding
-            DBG("@ target");
-        }else{ // calculate new coordinates
-            double radiff = getradiff(), decldiff = fabs(DECLtarg - DECL);
-            double tdiff = dtime() - tstart;
-            RA = RA0 + raspeed * tdiff;
-            DBG("RA=%g", RA);
-            if(getradiff() > radiff) RA = RAtarg;
-            DBG("RA=%g", RA);
-            if(RA < 0.) RA += 24.;
-            else if(RA > 24.) RA -= 24.;
-            DBG("RA=%g", RA);
-            double sign = (DECLtarg > DECL) ? 1. : -1.;
-            DECL = DECL0 + sign * DECL_SPEED * tdiff;
-            if(fabs(DECLtarg - DECL) > decldiff) DECL = DECLtarg;
-            DBG("RA/DEC: targ: %g/%g, cur: %g/%g, start: %g/%g", RAtarg, DECLtarg, RA, DECL, RA0, DECL0);
-        }
-    }
-    if(ra) *ra = RA;
-    if(decl) *decl = DECL;
-    return 1;
-}

astrosib_utils/mountdaemon/emulation.h

@@ -1,30 +0,0 @@
-/*
- *                                                                                                  geany_encoding=koi8-r
- * emulation.h
- *
- * Copyright 2018 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- *
- */
-#pragma once
-#ifndef __EMULATION_H__
-#define __EMULATION_H__
-
-int point_emulation(double ra, double decl);
-int get_emul_coords(double *ra, double *decl);
-
-#endif // __EMULATION_H__

astrosib_utils/mountdaemon/main.c

@@ -1,399 +0,0 @@
-/*
- * main.c
- *
- * Copyright 2014 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#include <math.h>
-#include <endian.h>
-#include <stdio.h>
-#include <assert.h>
-#include <string.h>
-#include <stdarg.h>
-#include <errno.h>
-#include <err.h>
-#include <unistd.h>
-#include <time.h>
-// for pthread_kill
-//#define _XOPEN_SOURCE  666
-#include <signal.h>
-#include <sys/socket.h>
-#include <sys/types.h>
-#include <sys/wait.h>
-#include <sys/prctl.h>
-#include <netinet/in.h>
-#include <netdb.h>
-#include <arpa/inet.h>
-
-#include "usefull_macros.h"
-#include "cmdlnopts.h"
-#include "emulation.h"
-#include "telescope.h"
-
-// daemon.c
-extern void check4running(char *self, char *pidfilename, void (*iffound)(pid_t pid));
-
-// Max amount of connections
-#define BACKLOG     (1)
-#define BUFLEN (1024)
-// pause for incoming message waiting (out coordinates sent after that timeout)
-#define SOCK_TMOUT  (1)
-
-static uint8_t buff[BUFLEN+1];
-// global parameters
-static glob_pars *GP = NULL;
-
-static volatile int global_quit = 0;
-// quit by signal
-void signals(int sig){
-    signal(sig, SIG_IGN);
-    restore_console();
-    restore_tty();
-    DBG("Get signal %d, quit.\n", sig);
-    global_quit = 1;
-    sleep(1);
-    putlog("PID %d exit with status %d", getpid(), sig);
-    exit(sig);
-}
-
-// search a first word after needle without spaces
-char* stringscan(char *str, char *needle){
-    char *a, *e;
-    char *end = str + strlen(str);
-    a = strstr(str, needle);
-    if(!a) return NULL;
-    a += strlen(needle);
-    while (a < end && (*a == ' ' || *a == '\r' || *a == '\t')) a++;
-    if(a >= end) return NULL;
-    e = strchr(a, ' ');
-    if(e) *e = 0;
-    return a;
-}
-
-/**
- * Send data to user
- * @param data   - data to send
- * @param dlen   - data length
- * @param sockfd - socket fd for sending data
- * @return 0 if failed
- */
-int send_data(uint8_t *data, size_t dlen, int sockfd){
-    size_t sent = write(sockfd, data, dlen);
-    if(sent != dlen){
-        WARN("write()");
-        return 0;
-    }
-    return 1;
-}
-
-//read: 0x14 0x0 0x0 0x0 0x5b 0x5a 0x2e 0xc6 0x8c 0x23 0x5 0x0 0x23 0x9 0xe5 0xaf 0x23 0x2e 0x34 0xed
-// command: goto 16h29 24.45 -26d25 55.62
-/*
- LITTLE-ENDIAN!!!
- from client:
-LENGTH (2 bytes, integer): length of the message
-TYPE (2 bytes, integer): 0
-TIME (8 bytes, integer): current time on the server computer in microseconds
-    since 1970.01.01 UT. Currently unused.
-RA (4 bytes, unsigned integer): right ascension of the telescope (J2000)
-    a value of 0x100000000 = 0x0 means 24h=0h,
-    a value of 0x80000000 means 12h
-DEC (4 bytes, signed integer): declination of the telescope (J2000)
-    a value of -0x40000000 means -90degrees,
-    a value of 0x0 means 0degrees,
-    a value of 0x40000000 means 90degrees
-
-to client:
-LENGTH (2 bytes, integer): length of the message
-TYPE (2 bytes, integer): 0
-TIME (8 bytes, integer): current time on the server computer in microseconds
-    since 1970.01.01 UT. Currently unused.
-RA (4 bytes, unsigned integer): right ascension of the telescope (J2000)
-    a value of 0x100000000 = 0x0 means 24h=0h,
-    a value of 0x80000000 means 12h
-DEC (4 bytes, signed integer): declination of the telescope (J2000)
-    a value of -0x40000000 means -90degrees,
-    a value of 0x0 means 0degrees,
-    a value of 0x40000000 means 90degrees
-STATUS (4 bytes, signed integer): status of the telescope, currently unused.
-    status=0 means ok, status<0 means some error
-*/
-
-#define DEG2DEC(degr)  ((int32_t)(degr / 90. * ((double)0x40000000)))
-#define HRS2RA(hrs)    ((uint32_t)(hrs / 12. * ((double)0x80000000)))
-#define DEC2DEG(i32)   (((double)i32)*90./((double)0x40000000))
-#define RA2HRS(u32)    (((double)u32)*12. /((double)0x80000000))
-
-typedef struct __attribute__((__packed__)){
-    uint16_t len;
-    uint16_t type;
-    uint64_t time;
-    uint32_t ra;
-    int32_t dec;
-} indata;
-
-typedef struct __attribute__((__packed__)){
-    uint16_t len;
-    uint16_t type;
-    uint64_t time;
-    uint32_t ra;
-    int32_t dec;
-    int32_t status;
-} outdata;
-
-double glob_RA, glob_Decl; // global variables: RA & declination (hours & degrees)
-
-/**
- * convert RA/DEC to string in forman RA: HH:MM:SS.SS, DEC: DD:MM:SS.S
- */
-char *radec2str(double ra, double dec){
-    static char buf[1024];
-    char sign = '+';
-    if(dec < 0){
-        sign = '-';
-        dec = -dec;
-    }
-
-    int h = (int)ra;
-    ra -= h; ra *= 60.;
-    int m = (int)ra;
-    ra -= m; ra *= 60.;
-
-    int d = (int) dec;
-    dec -= d; dec *= 60.;
-    int dm = (int)dec;
-    dec -= dm; dec *= 60.;
-    snprintf(buf, 1024, "%d:%d:%.2f %c%d:%d:%.1f", h,m,ra, sign,d,dm,dec);
-    return buf;
-}
-
-/**
- * send input RA/Decl (j2000!) coordinates to tel
- * ra in hours (0..24), decl in degrees (-90..90)
- * @return 1 if all OK
- */
-int setCoords(double ra, double dec){
-    char *radec = radec2str(ra, dec);
-    DBG("Set RA/Decl to %s", radec);
-    putlog("try to set RA/Decl to %s", radec);
-    int (*pointfunction)(double, double) = point_telescope;
-    if(GP->emulation) pointfunction = point_emulation;
-    return pointfunction(ra, dec);
-}
-
-int proc_data(uint8_t *data, ssize_t len){
-    FNAME();
-    if(len != sizeof(indata)){
-        WARN("Bad data size: got %zd instead of %zd!", len, sizeof(indata));
-        return 0;
-    }
-    indata *dat = (indata*)data;
-    uint16_t L, T;
-    //uint64_t tim;
-    uint32_t ra;
-    int32_t dec;
-#if __BYTE_ORDER__ != __ORDER_LITTLE_ENDIAN__
-    L = le16toh(dat->len); T = le16toh(dat->type);
-    //tim = le64toh(dat->time);
-    ra = le32toh(dat->ra);
-    dec = (int32_t)le32toh((uint32_t)dat->dec);
-#else
-    L = dat->len; T = dat->type;
-    //tim = dat->time;
-    ra = dat->ra; dec = dat->dec;
-#endif
-    WARN("got message with len %u & type %u", L, T);
-    double tagRA = RA2HRS(ra), tagDec = DEC2DEG(dec);
-    WARN("RA: %u (%g), DEC: %d (%g)", ra, tagRA,
-        dec, tagDec);
-    if(!setCoords(tagRA, tagDec)) return 0;
-    return 1;
-}
-
-/**
- * main socket service procedure
- */
-void handle_socket(int sock){
-    FNAME();
-    if(global_quit) return;
-    ssize_t rd;
-    outdata dout;
-    dout.len = htole16(sizeof(outdata));
-    dout.type = 0;
-    dout.status = 0;
-    int (*getcoords)(double*, double*) = get_telescope_coords;
-    if(GP->emulation) getcoords = get_emul_coords;
-    while(!global_quit){
-        // get coordinates
-        if(!getcoords(&glob_RA, &glob_Decl)){
-            WARNX("Error: can't get coordinates");
-            continue;
-        }
-        DBG("got : %g/%g", glob_RA, glob_Decl);
-        dout.ra = htole32(HRS2RA(glob_RA));
-        dout.dec = (int32_t)htole32(DEG2DEC(glob_Decl));
-        if(!send_data((uint8_t*)&dout, sizeof(outdata), sock)) break;
-        DBG("sent ra = %g, dec = %g", RA2HRS(dout.ra), DEC2DEG(dout.dec));
-        fd_set readfds;
-        struct timeval timeout;
-        FD_ZERO(&readfds);
-        FD_SET(sock, &readfds);
-        timeout.tv_sec = SOCK_TMOUT; // wait not more than SOCK_TMOUT second
-        timeout.tv_usec = 0;
-        int sel = select(sock + 1 , &readfds , NULL , NULL , &timeout);
-        if(sel < 0){
-            if(errno != EINTR)
-                WARN("select()");
-            continue;
-        }
-        if(!(FD_ISSET(sock, &readfds))) continue;
-        // fill incoming buffer
-        rd = read(sock, buff, BUFLEN);
-        DBG("read %zd", rd);
-        if(rd <= 0){ // error or disconnect
-            DBG("Nothing to read from fd %d (ret: %zd)", sock, rd);
-            break;
-        }
-        /**************************************
-         *       DO SOMETHING WITH DATA       *
-         **************************************/
-        if(!proc_data(buff, rd)) dout.status = -1;
-        else dout.status = 0;
-    }
-    close(sock);
-}
-
-static inline void main_proc(){
-    int sock;
-    int reuseaddr = 1;
-    // connect to telescope
-    if(!GP->emulation){
-        if(!connect_telescope(GP->device)){
-            ERRX(_("Can't connect to telescope device"));
-        }
-    }
-    // open socket
-    struct addrinfo hints, *res, *p;
-    memset(&hints, 0, sizeof(hints));
-    hints.ai_family = AF_INET;
-    hints.ai_socktype = SOCK_STREAM;
-    hints.ai_flags = AI_PASSIVE;
-    DBG("try to open port %s", GP->port);
-    if(getaddrinfo(NULL, GP->port, &hints, &res) != 0){
-        ERR("getaddrinfo");
-    }
-    struct sockaddr_in *ia = (struct sockaddr_in*)res->ai_addr;
-    char str[INET_ADDRSTRLEN];
-    inet_ntop(AF_INET, &(ia->sin_addr), str, INET_ADDRSTRLEN);
-    // loop through all the results and bind to the first we can
-    for(p = res; p != NULL; p = p->ai_next){
-        if((sock = socket(p->ai_family, p->ai_socktype, p->ai_protocol)) == -1){
-            WARN("socket");
-            continue;
-        }
-        if(setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, &reuseaddr, sizeof(int)) == -1){
-            ERR("setsockopt");
-        }
-        if(bind(sock, p->ai_addr, p->ai_addrlen) == -1){
-            close(sock);
-            WARN("bind");
-            continue;
-        }
-        break; // if we get here, we must have connected successfully
-    }
-    // Listen
-    if(listen(sock, BACKLOG) == -1){
-        putlog("listen() error");
-        ERR("listen");
-    }
-    DBG("listen at %s", GP->port);
-    putlog("listen at %s", GP->port);
-    //freeaddrinfo(res);
-    // Main loop
-    while(!global_quit){
-        socklen_t size = sizeof(struct sockaddr_in);
-        struct sockaddr_in myaddr;
-        int newsock;
-        newsock = accept(sock, (struct sockaddr*)&myaddr, &size);
-        if(newsock <= 0){
-            WARN("accept()");
-            continue;
-        }
-        struct sockaddr_in peer;
-        socklen_t peer_len = sizeof(peer);
-        if (getpeername(newsock, &peer, &peer_len) == -1) {
-            WARN("getpeername()");
-            close(newsock);
-            continue;
-        }
-        char *peerIP = inet_ntoa(peer.sin_addr);
-        putlog("Got connection from %s", peerIP);
-        DBG("Peer's IP address is: %s\n", peerIP);
-        /*if(strcmp(peerIP, ACCEPT_IP) && strcmp(peerIP, "127.0.0.1")){
-            WARNX("Wrong IP");
-            close(newsock);
-            continue;
-        }*/
-        handle_socket(newsock);
-    }
-    close(sock);
-}
-
-int main(int argc, char **argv){
-    char *self = strdup(argv[0]);
-    GP = parse_args(argc, argv);
-    initial_setup();
-    check4running(self, GP->pidfile, NULL);
-    if(GP->logfile) openlogfile(GP->logfile);
-
-    signal(SIGTERM, signals); // kill (-15) - quit
-    signal(SIGHUP, SIG_IGN);  // hup - ignore
-    signal(SIGINT, signals);  // ctrl+C - quit
-    signal(SIGQUIT, signals); // ctrl+\ - quit
-    signal(SIGTSTP, SIG_IGN); // ignore ctrl+Z
-
-    printf(_("Start socket\n"));
-    putlog("Starting, master PID=%d", getpid());
-#ifndef EBUG // daemonize only in release mode
-    if(daemon(1, 0)){
-        putlog("Err: daemon()");
-        ERR("daemon()");
-    }
-#endif // EBUG
-
-    while(1){
-        pid_t childpid = fork();
-        if(childpid < 0){
-            putlog("fork() error");
-            ERR("ERROR on fork");
-        }
-        if(childpid){
-            putlog("Created child with PID %d\n", childpid);
-            DBG("Created child with PID %d\n", childpid);
-            wait(NULL);
-            putlog("Child %d died\n", childpid);
-            DBG("Child %d died\n", childpid);
-        }else{
-            prctl(PR_SET_PDEATHSIG, SIGTERM); // send SIGTERM to child when parent dies
-            main_proc();
-            return 0;
-        }
-    }
-
-    return 0;
-}

astrosib_utils/mountdaemon/main.h

@@ -1,42 +0,0 @@
-/*
- * main.h
- *
- * Copyright 2014 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-#pragma once
-#ifndef __MAIN_H__
-#define __MAIN_H__
-
-#include <stdio.h>
-#include <libintl.h>
-#include <locale.h>
-#include <assert.h>
-#include <string.h>
-#include <stdarg.h>
-#include <errno.h>
-#include <err.h>
-#include <unistd.h>
-#include <pthread.h>
-
-#include "cmdlnopts.h"
-#include "usefull_macros.h"
-
-// global parameters
-extern glob_pars *Global_parameters;
-
-#endif // __MAIN_H__

astrosib_utils/mountdaemon/parseargs.c

@@ -1,497 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * parseargs.c - parsing command line arguments & print help
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#include <stdio.h>  // printf
-#include <getopt.h> // getopt_long
-#include <stdlib.h> // calloc, exit, strtoll
-#include <assert.h> // assert
-#include <string.h> // strdup, strchr, strlen
-#include <strings.h>// strcasecmp
-#include <limits.h> // INT_MAX & so on
-#include <libintl.h>// gettext
-#include <ctype.h>  // isalpha
-#include "parseargs.h"
-#include "usefull_macros.h"
-
-char *helpstring = "%s\n";
-
-/**
- * Change standard help header
- * MAY consist ONE "%s" for progname
- * @param str (i) - new format
- */
-void change_helpstring(char *s){
-    int pcount = 0, scount = 0;
-    char *str = s;
-    // check `helpstring` and set it to default in case of error
-    for(; pcount < 2; str += 2){
-        if(!(str = strchr(str, '%'))) break;
-        if(str[1] != '%') pcount++; // increment '%' counter if it isn't "%%"
-        else{
-            str += 2; // pass next '%'
-            continue;
-        }
-        if(str[1] == 's') scount++; // increment "%s" counter
-    };
-    if(pcount > 1 || pcount != scount){ // amount of pcount and/or scount wrong
-        /// "îÅÐÒÁ×ÉÌØÎÙÊ ÆÏÒÍÁÔ ÓÔÒÏËÉ ÐÏÍÏÝÉ"
-        ERRX(_("Wrong helpstring!"));
-    }
-    helpstring = s;
-}
-
-/**
- * Carefull atoll/atoi
- * @param num (o) - returning value (or NULL if you wish only check number) - allocated by user
- * @param str (i) - string with number must not be NULL
- * @param t   (i) - T_INT for integer or T_LLONG for long long (if argtype would be wided, may add more)
- * @return TRUE if conversion sone without errors, FALSE otherwise
- */
-static bool myatoll(void *num, char *str, argtype t){
-    long long tmp, *llptr;
-    int *iptr;
-    char *endptr;
-    assert(str);
-    assert(num);
-    tmp = strtoll(str, &endptr, 0);
-    if(endptr == str || *str == '\0' || *endptr != '\0')
-        return FALSE;
-    switch(t){
-        case arg_longlong:
-            llptr = (long long*) num;
-            *llptr = tmp;
-        break;
-        case arg_int:
-        default:
-            if(tmp < INT_MIN || tmp > INT_MAX){
-                /// "ãÅÌÏÅ ×ÎÅ ÄÏÐÕÓÔÉÍÏÇÏ ÄÉÁÐÁÚÏÎÁ"
-                WARNX(_("Integer out of range"));
-                return FALSE;
-            }
-            iptr = (int*)num;
-            *iptr = (int)tmp;
-    }
-    return TRUE;
-}
-
-// the same as myatoll but for double
-// There's no NAN & INF checking here (what if they would be needed?)
-static bool myatod(void *num, const char *str, argtype t){
-    double tmp, *dptr;
-    float *fptr;
-    char *endptr;
-    assert(str);
-    tmp = strtod(str, &endptr);
-    if(endptr == str || *str == '\0' || *endptr != '\0')
-        return FALSE;
-    switch(t){
-        case arg_double:
-            dptr = (double *) num;
-            *dptr = tmp;
-        break;
-        case arg_float:
-        default:
-            fptr = (float *) num;
-            *fptr = (float)tmp;
-        break;
-    }
-    return TRUE;
-}
-
-/**
- * Get index of current option in array options
- * @param opt (i) - returning val of getopt_long
- * @param options (i) - array of options
- * @return index in array
- */
-static int get_optind(int opt, myoption *options){
-    int oind;
-    myoption *opts = options;
-    assert(opts);
-    for(oind = 0; opts->name && opts->val != opt; oind++, opts++);
-    if(!opts->name || opts->val != opt) // no such parameter
-    showhelp(-1, options);
-    return oind;
-}
-
-/**
- * reallocate new value in array of multiple repeating arguments
- * @arg paptr - address of pointer to array (**void)
- * @arg type - its type (for realloc)
- * @return pointer to new (next) value
- */
-void *get_aptr(void *paptr, argtype type){
-    int i = 1;
-    void **aptr = *((void***)paptr);
-    if(aptr){ // there's something in array
-        void **p = aptr;
-        while(*p++) ++i;
-    }
-    size_t sz = 0;
-    switch(type){
-        default:
-        case arg_none:
-            /// "îÅ ÍÏÇÕ ÉÓÐÏÌØÚÏ×ÁÔØ ÎÅÓËÏÌØËÏ ÐÁÒÁÍÅÔÒÏ× ÂÅÚ ÁÒÇÕÍÅÎÔÏ×!"
-            ERRX("Can't use multiple args with arg_none!");
-        break;
-        case arg_int:
-            sz = sizeof(int);
-        break;
-        case arg_longlong:
-            sz = sizeof(long long);
-        break;
-        case arg_double:
-            sz = sizeof(double);
-        break;
-        case arg_float:
-            sz = sizeof(float);
-        break;
-        case arg_string:
-            sz = 0;
-        break;
-    /*  case arg_function:
-            sz = sizeof(argfn *);
-        break;*/
-    }
-    aptr = realloc(aptr, (i + 1) * sizeof(void*));
-    *((void***)paptr) = aptr;
-    aptr[i] = NULL;
-    if(sz){
-        aptr[i - 1] = malloc(sz);
-    }else
-        aptr[i - 1] = &aptr[i - 1];
-    return aptr[i - 1];
-}
-
-
-/**
- * Parse command line arguments
- * ! If arg is string, then value will be strdup'ed!
- *
- * @param argc (io) - address of argc of main(), return value of argc stay after `getopt`
- * @param argv (io) - address of argv of main(), return pointer to argv stay after `getopt`
- * BE CAREFUL! if you wanna use full argc & argv, save their original values before
- *      calling this function
- * @param options (i) - array of `myoption` for arguments parcing
- *
- * @exit: in case of error this function show help & make `exit(-1)`
-  */
-void parseargs(int *argc, char ***argv, myoption *options){
-    char *short_options, *soptr;
-    struct option *long_options, *loptr;
-    size_t optsize, i;
-    myoption *opts = options;
-    // check whether there is at least one options
-    assert(opts);
-    assert(opts[0].name);
-    // first we count how much values are in opts
-    for(optsize = 0; opts->name; optsize++, opts++);
-    // now we can allocate memory
-    short_options = calloc(optsize * 3 + 1, 1); // multiply by three for '::' in case of args in opts
-    long_options = calloc(optsize + 1, sizeof(struct option));
-    opts = options; loptr = long_options; soptr = short_options;
-    // in debug mode check the parameters are not repeated
-#ifdef EBUG
-    char **longlist = MALLOC(char*, optsize);
-    char *shortlist = MALLOC(char, optsize);
-#endif
-    // fill short/long parameters and make a simple checking
-    for(i = 0; i < optsize; i++, loptr++, opts++){
-        // check
-        assert(opts->name); // check name
-#ifdef EBUG
-        longlist[i] = strdup(opts->name);
-#endif
-        if(opts->has_arg){
-            assert(opts->type != arg_none); // check error with arg type
-            assert(opts->argptr);  // check pointer
-        }
-        if(opts->type != arg_none) // if there is a flag without arg, check its pointer
-            assert(opts->argptr);
-        // fill long_options
-        // don't do memcmp: what if there would be different alignment?
-        loptr->name     = opts->name;
-        loptr->has_arg  = (opts->has_arg < MULT_PAR) ? opts->has_arg : 1;
-        loptr->flag     = opts->flag;
-        loptr->val      = opts->val;
-        // fill short options if they are:
-        if(!opts->flag && opts->val){
-#ifdef EBUG
-            shortlist[i] = (char) opts->val;
-#endif
-            *soptr++ = opts->val;
-            if(loptr->has_arg) // add ':' if option has required argument
-                *soptr++ = ':';
-            if(loptr->has_arg == 2) // add '::' if option has optional argument
-                *soptr++ = ':';
-        }
-    }
-    // sort all lists & check for repeating
-#ifdef EBUG
-    int cmpstringp(const void *p1, const void *p2){
-        return strcmp(* (char * const *) p1, * (char * const *) p2);
-    }
-    int cmpcharp(const void *p1, const void *p2){
-        return (int)(*(char * const)p1 - *(char *const)p2);
-    }
-    qsort(longlist, optsize, sizeof(char *), cmpstringp);
-    qsort(shortlist,optsize, sizeof(char), cmpcharp);
-    char *prevl = longlist[0], prevshrt = shortlist[0];
-    for(i = 1; i < optsize; ++i){
-        if(longlist[i]){
-            if(prevl){
-                if(strcmp(prevl, longlist[i]) == 0) ERRX("double long arguments: --%s", prevl);
-            }
-            prevl = longlist[i];
-        }
-        if(shortlist[i]){
-            if(prevshrt){
-                if(prevshrt == shortlist[i]) ERRX("double short arguments: -%c", prevshrt);
-            }
-            prevshrt = shortlist[i];
-        }
-    }
-#endif
-    // now we have both long_options & short_options and can parse `getopt_long`
-    while(1){
-        int opt;
-        int oindex = 0, optind = 0; // oindex - number of option in argv, optind - number in options[]
-        if((opt = getopt_long(*argc, *argv, short_options, long_options, &oindex)) == -1) break;
-        if(opt == '?'){
-            opt = optopt;
-            optind = get_optind(opt, options);
-            if(options[optind].has_arg == NEED_ARG || options[optind].has_arg == MULT_PAR)
-                showhelp(optind, options); // need argument
-        }
-        else{
-            if(opt == 0 || oindex > 0) optind = oindex;
-            else optind = get_optind(opt, options);
-        }
-        opts = &options[optind];
-    //    if(opt == 0 && opts->has_arg == NO_ARGS) continue; // only long option changing integer flag
-        // now check option
-        if(opts->has_arg == NEED_ARG || opts->has_arg == MULT_PAR)
-            if(!optarg) showhelp(optind, options); // need argument
-        void *aptr;
-        if(opts->has_arg == MULT_PAR){
-            aptr = get_aptr(opts->argptr, opts->type);
-        }else
-            aptr = opts->argptr;
-        bool result = TRUE;
-        // even if there is no argument, but argptr != NULL, think that optarg = "1"
-        if(!optarg) optarg = "1";
-        switch(opts->type){
-            default:
-            case arg_none:
-                if(opts->argptr) *((int*)aptr) += 1; // increment value
-            break;
-            case arg_int:
-                result = myatoll(aptr, optarg, arg_int);
-            break;
-            case arg_longlong:
-                result = myatoll(aptr, optarg, arg_longlong);
-            break;
-            case arg_double:
-                result = myatod(aptr, optarg, arg_double);
-            break;
-            case arg_float:
-                result = myatod(aptr, optarg, arg_float);
-            break;
-            case arg_string:
-                result = (*((void**)aptr) = (void*)strdup(optarg));
-            break;
-            case arg_function:
-                result = ((argfn)aptr)(optarg);
-            break;
-        }
-        if(!result){
-            showhelp(optind, options);
-        }
-    }
-    *argc -= optind;
-    *argv += optind;
-}
-
-/**
- * compare function for qsort
- * first - sort by short options; second - sort arguments without sort opts (by long options)
- */
-static int argsort(const void *a1, const void *a2){
-    const myoption *o1 = (myoption*)a1, *o2 = (myoption*)a2;
-    const char *l1 = o1->name, *l2 = o2->name;
-    int s1 = o1->val, s2 = o2->val;
-    int *f1 = o1->flag, *f2 = o2->flag;
-    // check if both options has short arg
-    if(f1 == NULL && f2 == NULL && s1 && s2){ // both have short arg
-        return (s1 - s2);
-    }else if((f1 != NULL || !s1) && (f2 != NULL || !s2)){ // both don't have short arg - sort by long
-        return strcmp(l1, l2);
-    }else{ // only one have short arg -- return it
-        if(f2 || !s2) return -1; // a1 have short - it is 'lesser'
-        else return 1;
-    }
-}
-
-/**
- * Show help information based on myoption->help values
- * @param oindex (i)  - if non-negative, show only help by myoption[oindex].help
- * @param options (i) - array of `myoption`
- *
- * @exit:  run `exit(-1)` !!!
- */
-void showhelp(int oindex, myoption *options){
-    int max_opt_len = 0; // max len of options substring - for right indentation
-    const int bufsz = 255;
-    char buf[bufsz+1];
-    myoption *opts = options;
-    assert(opts);
-    assert(opts[0].name); // check whether there is at least one options
-    if(oindex > -1){ // print only one message
-        opts = &options[oindex];
-        printf("  ");
-        if(!opts->flag && isalpha(opts->val)) printf("-%c, ", opts->val);
-        printf("--%s", opts->name);
-        if(opts->has_arg == 1) printf("=arg");
-        else if(opts->has_arg == 2) printf("[=arg]");
-        printf("  %s\n", _(opts->help));
-        exit(-1);
-    }
-    // header, by default is just "progname\n"
-    printf("\n");
-    if(strstr(helpstring, "%s")) // print progname
-        printf(helpstring, __progname);
-    else // only text
-        printf("%s", helpstring);
-    printf("\n");
-    // count max_opt_len
-    do{
-        int L = strlen(opts->name);
-        if(max_opt_len < L) max_opt_len = L;
-    }while((++opts)->name);
-    max_opt_len += 14; // format: '-S , --long[=arg]' - get addition 13 symbols
-    opts = options;
-    // count amount of options
-    int N; for(N = 0; opts->name; ++N, ++opts);
-    if(N == 0) exit(-2);
-    // Now print all help (sorted)
-    opts = options;
-    qsort(opts, N, sizeof(myoption), argsort);
-    do{
-        int p = sprintf(buf, "  "); // a little indent
-        if(!opts->flag && opts->val) // .val is short argument
-            p += snprintf(buf+p, bufsz-p, "-%c, ", opts->val);
-        p += snprintf(buf+p, bufsz-p, "--%s", opts->name);
-        if(opts->has_arg == 1) // required argument
-            p += snprintf(buf+p, bufsz-p, "=arg");
-        else if(opts->has_arg == 2) // optional argument
-            p += snprintf(buf+p, bufsz-p, "[=arg]");
-        assert(p < max_opt_len); // there would be magic if p >= max_opt_len
-        printf("%-*s%s\n", max_opt_len+1, buf, _(opts->help)); // write options & at least 2 spaces after
-        ++opts;
-    }while(--N);
-    printf("\n\n");
-    exit(-1);
-}
-
-/**
- * get suboptions from parameter string
- * @param str - parameter string
- * @param opt - pointer to suboptions structure
- * @return TRUE if all OK
- */
-bool get_suboption(char *str, mysuboption *opt){
-    int findsubopt(char *par, mysuboption *so){
-        int idx = 0;
-        if(!par) return -1;
-        while(so[idx].name){
-            if(strcasecmp(par, so[idx].name) == 0) return idx;
-            ++idx;
-        }
-        return -1; // badarg
-    }
-    bool opt_setarg(mysuboption *so, int idx, char *val){
-        mysuboption *soptr = &so[idx];
-        bool result = FALSE;
-        void *aptr = soptr->argptr;
-        switch(soptr->type){
-            default:
-            case arg_none:
-                if(soptr->argptr) *((int*)aptr) += 1; // increment value
-                result = TRUE;
-            break;
-            case arg_int:
-                result = myatoll(aptr, val, arg_int);
-            break;
-            case arg_longlong:
-                result = myatoll(aptr, val, arg_longlong);
-            break;
-            case arg_double:
-                result = myatod(aptr, val, arg_double);
-            break;
-            case arg_float:
-                result = myatod(aptr, val, arg_float);
-            break;
-            case arg_string:
-                result = (*((void**)aptr) = (void*)strdup(val));
-            break;
-            case arg_function:
-                result = ((argfn)aptr)(val);
-            break;
-        }
-        return result;
-    }
-    char *tok;
-    bool ret = FALSE;
-    char *tmpbuf;
-    tok = strtok_r(str, ":,", &tmpbuf);
-    do{
-        char *val = strchr(tok, '=');
-        int noarg = 0;
-        if(val == NULL){ // no args
-            val = "1";
-            noarg = 1;
-        }else{
-            *val++ = '\0';
-            if(!*val || *val == ':' || *val == ','){ // no argument - delimeter after =
-                val = "1"; noarg = 1;
-            }
-        }
-        int idx = findsubopt(tok, opt);
-        if(idx < 0){
-            /// "îÅÐÒÁ×ÉÌØÎÙÊ ÐÁÒÁÍÅÔÒ: %s"
-            WARNX(_("Wrong parameter: %s"), tok);
-            goto returning;
-        }
-        if(noarg && opt[idx].has_arg == NEED_ARG){
-            /// "%s: ÎÅÏÂÈÏÄÉÍ ÁÒÇÕÍÅÎÔ!"
-            WARNX(_("%s: argument needed!"), tok);
-            goto returning;
-        }
-        if(!opt_setarg(opt, idx, val)){
-            /// "îÅÐÒÁ×ÉÌØÎÙÊ ÁÒÇÕÍÅÎÔ \"%s\" ÐÁÒÁÍÅÔÒÁ \"%s\""
-            WARNX(_("Wrong argument \"%s\" of parameter \"%s\""), val, tok);
-            goto returning;
-        }
-    }while((tok = strtok_r(NULL, ":,", &tmpbuf)));
-    ret = TRUE;
-returning:
-    return ret;
-}

astrosib_utils/mountdaemon/parseargs.h

@@ -1,124 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * parseargs.h - headers for parsing command line arguments
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-#pragma once
-#ifndef __PARSEARGS_H__
-#define __PARSEARGS_H__
-
-#include <stdbool.h>// bool
-#include <stdlib.h>
-
-#ifndef TRUE
-    #define TRUE true
-#endif
-
-#ifndef FALSE
-    #define FALSE false
-#endif
-
-// macro for argptr
-#define APTR(x)   ((void*)x)
-
-// if argptr is a function:
-typedef  bool(*argfn)(void *arg);
-
-/*
- * type of getopt's argument
- * WARNING!
- * My function change value of flags by pointer, so if you want to use another type
- * make a latter conversion, example:
- *      char charg;
- *      int iarg;
- *      myoption opts[] = {
- *      {"value", 1, NULL, 'v', arg_int, &iarg, "char val"}, ..., end_option};
- *      ..(parse args)..
- *      charg = (char) iarg;
- */
-typedef enum {
-    arg_none = 0,   // no arg
-    arg_int,        // integer
-    arg_longlong,   // long long
-    arg_double,     // double
-    arg_float,      // float
-    arg_string,     // char *
-    arg_function    // parse_args will run function `bool (*fn)(char *optarg, int N)`
-} argtype;
-
-/*
- * Structure for getopt_long & help
- * BE CAREFUL: .argptr is pointer to data or pointer to function,
- *      conversion depends on .type
- *
- * ATTENTION: string `help` prints through macro PRNT(), bu default it is gettext,
- * but you can redefine it before `#include "parseargs.h"`
- *
- * if arg is string, then value wil be strdup'ed like that:
- *      char *str;
- *      myoption opts[] = {{"string", 1, NULL, 's', arg_string, &str, "string val"}, ..., end_option};
- *      *(opts[1].str) = strdup(optarg);
- * in other cases argptr should be address of some variable (or pointer to allocated memory)
- *
- * NON-NULL argptr should be written inside macro APTR(argptr) or directly: (void*)argptr
- *
- * !!!LAST VALUE OF ARRAY SHOULD BE `end_option` or ZEROS !!!
- *
- */
-typedef enum{
-    NO_ARGS  = 0,  // first three are the same as in getopt_long
-    NEED_ARG = 1,
-    OPT_ARG  = 2,
-    MULT_PAR
-} hasarg;
-
-typedef struct{
-    // these are from struct option:
-    const char *name;       // long option's name
-    hasarg      has_arg;    // 0 - no args, 1 - nesessary arg, 2 - optionally arg, 4 - need arg & key can repeat (args are stored in null-terminated array)
-    int        *flag;       // NULL to return val, pointer to int - to set its value of val (function returns 0)
-    int         val;        // short opt name (if flag == NULL) or flag's value
-    // and these are mine:
-    argtype     type;       // type of argument
-    void       *argptr;     // pointer to variable to assign optarg value or function `bool (*fn)(char *optarg, int N)`
-    const char *help;       // help string which would be shown in function `showhelp` or NULL
-} myoption;
-
-/*
- * Suboptions structure, almost the same like myoption
- * used in parse_subopts()
- */
-typedef struct{
-    const char *name;
-    hasarg      has_arg;
-    argtype     type;
-    void       *argptr;
-} mysuboption;
-
-// last string of array (all zeros)
-#define end_option {0,0,0,0,0,0,0}
-#define end_suboption {0,0,0,0}
-
-extern const char *__progname;
-
-void showhelp(int oindex, myoption *options);
-void parseargs(int *argc, char ***argv, myoption *options);
-void change_helpstring(char *s);
-bool get_suboption(char *str, mysuboption *opt);
-
-#endif // __PARSEARGS_H__

astrosib_utils/mountdaemon/stellariumdaemon.geany

@@ -1,32 +0,0 @@
-[editor]
-line_wrapping=false
-line_break_column=80
-auto_continue_multiline=true
-
-[file_prefs]
-final_new_line=true
-ensure_convert_new_lines=false
-strip_trailing_spaces=true
-replace_tabs=true
-
-[indentation]
-indent_width=4
-indent_type=0
-indent_hard_tab_width=4
-detect_indent=false
-detect_indent_width=false
-indent_mode=3
-
-[project]
-name=stellariumdaemon
-base_path=/tmp/f/10micron_stellarium/
-
-[long line marker]
-long_line_behaviour=1
-long_line_column=80
-
-[files]
-current_page=0
-
-[VTE]
-last_dir=/home/eddy

astrosib_utils/mountdaemon/telescope.c

@@ -1,212 +0,0 @@
-/*
- *                                                                                                  geany_encoding=koi8-r
- * telescope.c
- *
- * Copyright 2018 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- *
- */
-#include "telescope.h"
-#include "usefull_macros.h"
-
-// polling timeout for answer from mount
-#ifndef T_POLLING_TMOUT
-#define T_POLLING_TMOUT (1.5)
-#endif
-#ifndef WAIT_TMOUT
-#define WAIT_TMOUT (0.5)
-#endif
-
-
-#define BUFLEN 80
-
-/**
- * read strings from terminal (ending with '\n') with timeout
- * @return NULL if nothing was read or pointer to static buffer
- */
-static char *read_string(){
-    static char buf[BUFLEN];
-    size_t r = 0, l;
-    int LL = BUFLEN - 1;
-    char *ptr = NULL;
-    static char *optr = NULL;
-    if(optr && *optr){
-        ptr = optr;
-        optr = strchr(optr, '\n');
-        if(optr) ++optr;
-        return ptr;
-    }
-    ptr = buf;
-    double d0 = dtime();
-    do{
-        if((l = read_tty(ptr, LL))){
-            r += l; LL -= l; ptr += l;
-            if(ptr[-1] == '\n') break;
-            d0 = dtime();
-        }
-    }while(dtime() - d0 < WAIT_TMOUT && LL);
-    if(r){
-        buf[r] = 0;
-        optr = strchr(buf, '\n');
-        if(optr) ++optr;
-        return buf;
-    }
-    return NULL;
-}
-
-/**
- * write command
- * @return answer or NULL if error occured (or no answer)
- */
-static char *write_cmd(const char *cmd){
-    DBG("Write %s", cmd);
-    if(write_tty(cmd, strlen(cmd))) return NULL;
-    double t0 = dtime();
-    static char *ans;
-    while(dtime() - t0 < T_POLLING_TMOUT){ // read answer
-        if((ans = read_string())){ // parse new data
-            DBG("got answer: %s", ans);
-            return ans;
-        }
-    }
-    return NULL;
-}
-
-/**
- * connect telescope device
- * @param dev (i) - device name to connect
- * @return 1 if all OK
- */
-int connect_telescope(char *dev){
-    if(!dev) return 0;
-    DBG("Connection to device %s...", dev);
-    putlog("Try to connect to device %s...", dev);
-    char tmpbuf[4096];
-    fflush(stdout);
-    #ifndef COM_SPEED
-    #define COM_SPEED B9600
-    #endif
-    tty_init(dev, COM_SPEED);
-    read_tty(tmpbuf, 4096); // clear rbuf
-    write_cmd(":U2#");
-    write_cmd(":U2#");
-    if(!write_cmd(":GR#")) return 0;
-    putlog("connected", dev);
-    DBG("connected");
-    return 1;
-}
-
-/*
-:MS# - move to target, return: 0 if all OK or text with error
-:SrHH:MM:SS.SS# - set target RA (return 1 if all OK)
-:SdsDD*MM:SS.S# - set target DECL (return 1 if all OK)
-*/
-
-/**
- * send coordinates to telescope
- * @param ra - right ascention (hours)
- * @param dec - declination (degrees)
- * @return 1 if all OK
- */
-int point_telescope(double ra, double dec){
-    DBG("try to send ra=%g, decl=%g", ra, dec);
-    int err = 0;
-    static char buf[80];
-    char sign = '+';
-    if(dec < 0){
-        sign = '-';
-        dec = -dec;
-    }
-
-    int h = (int)ra;
-    ra -= h; ra *= 60.;
-    int m = (int)ra;
-    ra -= m; ra *= 60.;
-
-    int d = (int) dec;
-    dec -= d; dec *= 60.;
-    int dm = (int)dec;
-    dec -= dm; dec *= 60.;
-    snprintf(buf, 80, ":Sr%d:%d:%.2f#", h,m,ra);
-    char *ans = write_cmd(buf);
-    if(!ans || *ans != '1'){
-        err = 1;
-        goto ret;
-    }
-    snprintf(buf, 80, ":Sd%c%d:%d:%.1f#", sign,d,dm,dec);
-    ans = write_cmd(buf);
-    if(!ans || *ans != '1'){
-        err = 2;
-        goto ret;
-    }
-    ans = write_cmd(":MS#");
-    if(!ans || *ans != '0'){
-        putlog("move error, answer: %s", ans);
-        err = 2;
-        goto ret;
-    }
-    ret:
-    if(err){
-        putlog("error sending coordinates (err = %d: RA/DEC/MOVE)!", err);
-        return 0;
-    }else{
-        putlog("Send ra=%g, dec=%g", ra, dec);
-    }
-    return 1;
-}
-
-/**
- * convert str into RA/DEC coordinate
- * @param str (i) - string with angle
- * @param val (o) - output angle value
- * @return 1 if all OK
- */
-static int str2coord(char *str, double *val){
-    if(!str || !val) return 0;
-    int d, m;
-    float s;
-    int sign = 1;
-    if(*str == '+') ++str;
-    else if(*str == '-'){
-        sign = -1;
-        ++str;
-    }
-    int n = sscanf(str, "%d:%d:%f#", &d, &m, &s);
-    if(n != 3) return 0;
-    double ang = d + ((double)m)/60. + s/3600.;
-    if(sign == -1) *val = -ang;
-    else *val = ang;
-    return 1;
-}
-
-/**
- * get coordinates
- * @return 1 if all OK
- */
-int get_telescope_coords(double *ra, double *decl){
-    double r, d;
-    char *ans;
-    // :GR# -> 11:05:26.16#
-    ans = write_cmd(":GR#");
-    if(!str2coord(ans, &r)) return 0;
-    // :GD# -> +44:14:10.7#
-    ans = write_cmd(":GD#");
-    if(!str2coord(ans, &d)) return 0;
-    if(ra) *ra = r;
-    if(decl) *decl = d;
-    return 1;
-}

astrosib_utils/mountdaemon/telescope.h

@@ -1,31 +0,0 @@
-/*
- *                                                                                                  geany_encoding=koi8-r
- * telescope.h
- *
- * Copyright 2018 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- *
- */
-#pragma once
-#ifndef __TELESCOPE_H__
-#define __TELESCOPE_H__
-
-int connect_telescope(char *dev);
-int point_telescope(double ra, double decl);
-int get_telescope_coords(double *ra, double *decl);
-
-#endif // __TELESCOPE_H__

astrosib_utils/mountdaemon/usefull_macros.c

@@ -1,442 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * usefull_macros.h - a set of usefull functions: memory, color etc
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#include "usefull_macros.h"
-#include <linux/limits.h> // PATH_MAX
-
-/**
- * function for different purposes that need to know time intervals
- * @return double value: time in seconds
- */
-double dtime(){
-    double t;
-    struct timeval tv;
-    gettimeofday(&tv, NULL);
-    t = tv.tv_sec + ((double)tv.tv_usec)/1e6;
-    return t;
-}
-
-/******************************************************************************\
- *                          Coloured terminal
-\******************************************************************************/
-int globErr = 0; // errno for WARN/ERR
-
-// pointers to coloured output printf
-int (*red)(const char *fmt, ...);
-int (*green)(const char *fmt, ...);
-int (*_WARN)(const char *fmt, ...);
-
-/*
- * format red / green messages
- * name: r_pr_, g_pr_
- * @param fmt ... - printf-like format
- * @return number of printed symbols
- */
-int r_pr_(const char *fmt, ...){
-    va_list ar; int i;
-    printf(RED);
-    va_start(ar, fmt);
-    i = vprintf(fmt, ar);
-    va_end(ar);
-    printf(OLDCOLOR);
-    return i;
-}
-int g_pr_(const char *fmt, ...){
-    va_list ar; int i;
-    printf(GREEN);
-    va_start(ar, fmt);
-    i = vprintf(fmt, ar);
-    va_end(ar);
-    printf(OLDCOLOR);
-    return i;
-}
-/*
- * print red error/warning messages (if output is a tty)
- * @param fmt ... - printf-like format
- * @return number of printed symbols
- */
-int r_WARN(const char *fmt, ...){
-    va_list ar; int i = 1;
-    fprintf(stderr, RED);
-    va_start(ar, fmt);
-    if(globErr){
-        errno = globErr;
-        vwarn(fmt, ar);
-        errno = 0;
-    }else
-        i = vfprintf(stderr, fmt, ar);
-    va_end(ar);
-    i++;
-    fprintf(stderr, OLDCOLOR "\n");
-    return i;
-}
-
-static const char stars[] = "****************************************";
-/*
- * notty variants of coloured printf
- * name: s_WARN, r_pr_notty
- * @param fmt ... - printf-like format
- * @return number of printed symbols
- */
-int s_WARN(const char *fmt, ...){
-    va_list ar; int i;
-    i = fprintf(stderr, "\n%s\n", stars);
-    va_start(ar, fmt);
-    if(globErr){
-        errno = globErr;
-        vwarn(fmt, ar);
-        errno = 0;
-    }else
-        i = +vfprintf(stderr, fmt, ar);
-    va_end(ar);
-    i += fprintf(stderr, "\n%s\n", stars);
-    i += fprintf(stderr, "\n");
-    return i;
-}
-int r_pr_notty(const char *fmt, ...){
-    va_list ar; int i;
-    i = printf("\n%s\n", stars);
-    va_start(ar, fmt);
-    i += vprintf(fmt, ar);
-    va_end(ar);
-    i += printf("\n%s\n", stars);
-    return i;
-}
-
-/**
- * Run this function in the beginning of main() to setup locale & coloured output
- */
-void initial_setup(){
-    // setup coloured output
-    if(isatty(STDOUT_FILENO)){ // make color output in tty
-        red = r_pr_; green = g_pr_;
-    }else{ // no colors in case of pipe
-        red = r_pr_notty; green = printf;
-    }
-    if(isatty(STDERR_FILENO)) _WARN = r_WARN;
-    else _WARN = s_WARN;
-    // Setup locale
-    setlocale(LC_ALL, "");
-    setlocale(LC_NUMERIC, "C");
-#if defined GETTEXT_PACKAGE && defined LOCALEDIR
-    bindtextdomain(GETTEXT_PACKAGE, LOCALEDIR);
-    textdomain(GETTEXT_PACKAGE);
-#endif
-}
-
-/******************************************************************************\
- *                                  Memory
-\******************************************************************************/
-/*
- * safe memory allocation for macro ALLOC
- * @param N - number of elements to allocate
- * @param S - size of single element (typically sizeof)
- * @return pointer to allocated memory area
- */
-void *my_alloc(size_t N, size_t S){
-    void *p = calloc(N, S);
-    if(!p) ERR("malloc");
-    //assert(p);
-    return p;
-}
-
-/**
- * Mmap file to a memory area
- *
- * @param filename (i) - name of file to mmap
- * @return stuct with mmap'ed file or die
- */
-mmapbuf *My_mmap(char *filename){
-    int fd;
-    char *ptr;
-    size_t Mlen;
-    struct stat statbuf;
-    /// "îÅ ÚÁÄÁÎÏ ÉÍÑ ÆÁÊÌÁ!"
-    if(!filename){
-        WARNX(_("No filename given!"));
-        return NULL;
-    }
-    if((fd = open(filename, O_RDONLY)) < 0){
-    /// "îÅ ÍÏÇÕ ÏÔËÒÙÔØ %s ÄÌÑ ÞÔÅÎÉÑ"
-        WARN(_("Can't open %s for reading"), filename);
-        return NULL;
-    }
-    if(fstat (fd, &statbuf) < 0){
-    /// "îÅ ÍÏÇÕ ×ÙÐÏÌÎÉÔØ stat %s"
-        WARN(_("Can't stat %s"), filename);
-        close(fd);
-        return NULL;
-    }
-    Mlen = statbuf.st_size;
-    if((ptr = mmap (0, Mlen, PROT_READ, MAP_PRIVATE, fd, 0)) == MAP_FAILED){
-    /// "ïÛÉÂËÁ mmap"
-        WARN(_("Mmap error for input"));
-        close(fd);
-        return NULL;
-    }
-    /// "îÅ ÍÏÇÕ ÚÁËÒÙÔØ mmap'ÎÕÔÙÊ ÆÁÊÌ"
-    if(close(fd)) WARN(_("Can't close mmap'ed file"));
-    mmapbuf *ret = MALLOC(mmapbuf, 1);
-    ret->data = ptr;
-    ret->len = Mlen;
-    return  ret;
-}
-
-void My_munmap(mmapbuf *b){
-    if(munmap(b->data, b->len)){
-    /// "îÅ ÍÏÇÕ munmap"
-        ERR(_("Can't munmap"));
-    }
-    FREE(b);
-}
-
-
-/******************************************************************************\
- *                          Terminal in no-echo mode
-\******************************************************************************/
-static struct termios oldt, newt; // terminal flags
-static int console_changed = 0;
-// run on exit:
-void restore_console(){
-    if(console_changed)
-        tcsetattr(STDIN_FILENO, TCSANOW, &oldt); // return terminal to previous state
-    console_changed = 0;
-}
-
-// initial setup:
-void setup_con(){
-    if(console_changed) return;
-    tcgetattr(STDIN_FILENO, &oldt);
-    newt = oldt;
-    newt.c_lflag &= ~(ICANON | ECHO);
-    if(tcsetattr(STDIN_FILENO, TCSANOW, &newt) < 0){
-        /// "îÅ ÍÏÇÕ ÎÁÓÔÒÏÉÔØ ËÏÎÓÏÌØ"
-        WARN(_("Can't setup console"));
-        tcsetattr(STDIN_FILENO, TCSANOW, &oldt);
-        signals(0); //quit?
-    }
-    console_changed = 1;
-}
-
-/**
- * Read character from console without echo
- * @return char readed
- */
-int read_console(){
-    int rb;
-    struct timeval tv;
-    int retval;
-    fd_set rfds;
-    FD_ZERO(&rfds);
-    FD_SET(STDIN_FILENO, &rfds);
-    tv.tv_sec = 0; tv.tv_usec = 10000;
-    retval = select(1, &rfds, NULL, NULL, &tv);
-    if(!retval) rb = 0;
-    else {
-        if(FD_ISSET(STDIN_FILENO, &rfds)) rb = getchar();
-        else rb = 0;
-    }
-    return rb;
-}
-
-/**
- * getchar() without echo
- * wait until at least one character pressed
- * @return character readed
- */
-int mygetchar(){ // getchar() without need of pressing ENTER
-    int ret;
-    do ret = read_console();
-    while(ret == 0);
-    return ret;
-}
-
-
-/******************************************************************************\
- *                              TTY with select()
-\******************************************************************************/
-static struct termio oldtty, tty; // TTY flags
-static int comfd = -1; // TTY fd
-
-// run on exit:
-void restore_tty(){
-    if(comfd == -1) return;
-    ioctl(comfd, TCSANOW, &oldtty ); // return TTY to previous state
-    close(comfd);
-    comfd = -1;
-}
-
-#ifndef BAUD_RATE
-#define BAUD_RATE B9600
-#endif
-// init: (speed = B9600 etc)
-void tty_init(char *comdev, tcflag_t speed){
-    if(comfd == -1){ // not opened
-        if(!comdev){
-            WARNX("comdev == NULL");
-            signals(11);
-        }
-        DBG("Open port...");
-        do{
-            comfd = open(comdev,O_RDWR|O_NOCTTY|O_NONBLOCK);
-        }while (comfd == -1 && errno == EINTR);
-        if(comfd < 0){
-            WARN(_("Can't open port %s"),comdev);
-            signals(2);
-        }
-    /*    DBG("OK\nGet current settings...");
-        if(ioctl(comfd, TCGETA, &oldtty) < 0){  // Get settings
-            /// "îÅ ÍÏÇÕ ÐÏÌÕÞÉÔØ ÎÁÓÔÒÏÊËÉ"
-            WARN(_("Can't get settings"));
-            signals(2);
-        }*/
-        DBG("Make exclusive");
-        // make exclusive open
-        if(ioctl(comfd, TIOCEXCL)){
-            WARN(_("Can't do exclusive open"));
-            close(comfd);
-            signals(2);
-        }
-    }
-    tty = oldtty;
-    tty.c_lflag     = 0; // ~(ICANON | ECHO | ECHOE | ISIG)
-    tty.c_oflag     = 0;
-    tty.c_cflag     = speed|CS8|CREAD|CLOCAL; // 9.6k, 8N1, RW, ignore line ctrl
-    tty.c_cc[VMIN]  = 0;  // non-canonical mode
-    tty.c_cc[VTIME] = 5;
-    if(ioctl(comfd, TCSETA, &tty) < 0){
-        /// "îÅ ÍÏÇÕ ÕÓÔÁÎÏ×ÉÔØ ÎÁÓÔÒÏÊËÉ"
-        WARN(_("Can't set settings"));
-        signals(0);
-    }
-    DBG("OK");
-}
-
-/**
- * Read data from TTY
- * @param buff (o) - buffer for data read
- * @param length   - buffer len
- * @return amount of bytes read
- */
-size_t read_tty(char *buff, size_t length){
-    if(comfd < 0) return 0;
-    ssize_t L = 0, l;
-    char *ptr = buff;
-    fd_set rfds;
-    struct timeval tv;
-    int retval;
-    do{
-        l = 0;
-        FD_ZERO(&rfds);
-        FD_SET(comfd, &rfds);
-        // wait for 10ms
-        tv.tv_sec = 0; tv.tv_usec = 10000;
-        retval = select(comfd + 1, &rfds, NULL, NULL, &tv);
-        if (!retval) break;
-        if(FD_ISSET(comfd, &rfds)){
-            if((l = read(comfd, ptr, length)) < 1){
-                return 0;
-            }
-            ptr += l; L += l;
-            length -= l;
-        }
-    }while(l);
-    return (size_t)L;
-}
-
-int write_tty(const char *buff, size_t length){
-    ssize_t L = write(comfd, buff, length);
-    if((size_t)L != length){
-        /// "ïÛÉÂËÁ ÚÁÐÉÓÉ!"
-        WARN("Write error");
-        return 1;
-    }
-    return 0;
-}
-
-/**
- * Safely convert data from string to double
- *
- * @param num (o) - double number read from string
- * @param str (i) - input string
- * @return 1 if success, 0 if fails
- */
-int str2double(double *num, const char *str){
-    double res;
-    char *endptr;
-    if(!str) return 0;
-    res = strtod(str, &endptr);
-    if(endptr == str || *str == '\0' || *endptr != '\0'){
-        /// "îÅÐÒÁ×ÉÌØÎÙÊ ÆÏÒÍÁÔ ÞÉÓÌÁ double!"
-        WARNX("Wrong double number format!");
-        return FALSE;
-    }
-    if(num) *num = res; // you may run it like myatod(NULL, str) to test wether str is double number
-    return TRUE;
-}
-
-FILE *Flog = NULL; // log file descriptor
-char *logname = NULL;
-time_t log_open_time = 0;
-/**
- * Try to open log file
- * if failed show warning message
- */
-void openlogfile(char *name){
-    if(!name){
-        WARNX(_("Need filename for log file"));
-        return;
-    }
-    green(_("Try to open log file %s in append mode\n"), name);
-    fflush(stdout);
-    if(!(Flog = fopen(name, "a"))){
-        WARN(_("Can't open log file"));
-        return;
-    }
-    DBG("here");
-    log_open_time = time(NULL);
-    logname = name;
-}
-
-/**
- * Save message to log file, rotate logs every 24 hours
- */
-int putlog(const char *fmt, ...){
-    if(!Flog) return 0;
-    time_t t_now = time(NULL);
-    if(t_now - log_open_time > 86400){ // rotate log
-        fprintf(Flog, "\n\t\t%sRotate log\n", ctime(&t_now));
-        fclose(Flog);
-        char newname[PATH_MAX];
-        snprintf(newname, PATH_MAX, "%s.old", logname);
-        if(rename(logname, newname)) WARN("rename()");
-        openlogfile(logname);
-        if(!Flog) return 0;
-    }
-    int i = fprintf(Flog, "\n\t\t%s", ctime(&t_now));
-    va_list ar;
-    va_start(ar, fmt);
-    i = vfprintf(Flog, fmt, ar);
-    va_end(ar);
-    fprintf(Flog, "\n");
-    fflush(Flog);
-    return i;
-}

astrosib_utils/mountdaemon/usefull_macros.h

@@ -1,144 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * usefull_macros.h - a set of usefull macros: memory, color etc
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#pragma once
-#ifndef __USEFULL_MACROS_H__
-#define __USEFULL_MACROS_H__
-
-#include <sys/stat.h>
-#include <fcntl.h>
-#include <sys/mman.h>
-#include <unistd.h>
-#include <string.h>
-#include <stdio.h>
-#include <stdarg.h>
-#include <errno.h>
-#include <err.h>
-#include <locale.h>
-#if defined GETTEXT_PACKAGE && defined LOCALEDIR
-/*
- * GETTEXT
- */
-#include <libintl.h>
-#define _(String)               gettext(String)
-#define gettext_noop(String)    String
-#define N_(String)              gettext_noop(String)
-#else
-#define _(String)               (String)
-#define N_(String)              (String)
-#endif
-#include <stdlib.h>
-#include <termios.h>
-#include <termio.h>
-#include <sys/time.h>
-#include <time.h>
-#include <sys/types.h>
-#include <stdint.h>
-
-
-// unused arguments with -Wall -Werror
-#define _U_    __attribute__((__unused__))
-
-/*
- * Coloured messages output
- */
-#define RED         "\033[1;31;40m"
-#define GREEN       "\033[1;32;40m"
-#define OLDCOLOR    "\033[0;0;0m"
-
-#ifndef FALSE
-#define FALSE (0)
-#endif
-
-#ifndef TRUE
-#define TRUE (1)
-#endif
-
-/*
- * ERROR/WARNING messages
- */
-extern int globErr;
-extern void signals(int sig);
-#define ERR(...) do{globErr=errno; _WARN(__VA_ARGS__); signals(9);}while(0)
-#define ERRX(...) do{globErr=0; _WARN(__VA_ARGS__); signals(9);}while(0)
-#define WARN(...) do{globErr=errno; _WARN(__VA_ARGS__);}while(0)
-#define WARNX(...) do{globErr=0; _WARN(__VA_ARGS__);}while(0)
-
-/*
- * print function name, debug messages
- * debug mode, -DEBUG
- */
-#ifdef EBUG
-    #define FNAME() do{ fprintf(stderr, OLDCOLOR); \
-        fprintf(stderr, "\n%s (%s, line %d)\n", __func__, __FILE__, __LINE__);} while(0)
-    #define DBG(...) do{ fprintf(stderr, OLDCOLOR); \
-                    fprintf(stderr, "%s (%s, line %d): ", __func__, __FILE__, __LINE__); \
-                    fprintf(stderr, __VA_ARGS__);           \
-                    fprintf(stderr, "\n");} while(0)
-#else
-    #define FNAME()  do{}while(0)
-    #define DBG(...) do{}while(0)
-#endif //EBUG
-
-/*
- * Memory allocation
- */
-#define ALLOC(type, var, size)  type * var = ((type *)my_alloc(size, sizeof(type)))
-#define MALLOC(type, size) ((type *)my_alloc(size, sizeof(type)))
-#define FREE(ptr)  do{if(ptr){free(ptr); ptr = NULL;}}while(0)
-
-#ifndef DBL_EPSILON
-#define DBL_EPSILON        (2.2204460492503131e-16)
-#endif
-
-double dtime();
-
-// functions for color output in tty & no-color in pipes
-extern int (*red)(const char *fmt, ...);
-extern int (*_WARN)(const char *fmt, ...);
-extern int (*green)(const char *fmt, ...);
-void * my_alloc(size_t N, size_t S);
-void initial_setup();
-
-// mmap file
-typedef struct{
-    char *data;
-    size_t len;
-} mmapbuf;
-mmapbuf *My_mmap(char *filename);
-void My_munmap(mmapbuf *b);
-
-void restore_console();
-void setup_con();
-int read_console();
-int mygetchar();
-
-void restore_tty();
-void tty_init(char *comdev, tcflag_t speed);
-size_t read_tty(char *buff, size_t length);
-int write_tty(const char *buff, size_t length);
-
-int str2double(double *num, const char *str);
-
-void openlogfile(char *name);
-int putlog(const char *fmt, ...);
-
-#endif // __USEFULL_MACROS_H__

astrosib_utils/teldaemon/Makefile

@@ -1,43 +0,0 @@
-# run `make DEF=...` to add extra defines
-PROGRAM := teldaemon
-LDFLAGS := -fdata-sections -ffunction-sections -Wl,--gc-sections -Wl,--discard-all -pthread
-SRCS := $(wildcard *.c)
-DEFINES := $(DEF) -D_GNU_SOURCE -D_XOPEN_SOURCE=1111
-#DEFINES += -DEBUG
-# baudrate for USB<->UART converter
-DEFINES += -DBAUD_RATE=B9600
-OBJDIR := mk
-CFLAGS += -O2 -Wall -Werror -Wextra -Wno-trampolines
-OBJS := $(addprefix $(OBJDIR)/, $(SRCS:%.c=%.o))
-DEPS := $(OBJS:.o=.d)
-CC = gcc
-
-all : $(OBJDIR) $(PROGRAM)
-
-$(PROGRAM) : $(OBJS)
-	@echo -e "\t\tLD $(PROGRAM)"
-	$(CC) $(LDFLAGS) $(OBJS) -o $(PROGRAM)
-
-$(OBJDIR):
-	mkdir $(OBJDIR)
-
-ifneq ($(MAKECMDGOALS),clean)
--include $(DEPS)
-endif
-
-$(OBJDIR)/%.o: %.c
-	@echo -e "\t\tCC $<"
-	$(CC) -MD -c $(LDFLAGS) $(CFLAGS) $(DEFINES) -o $@ $<
-
-clean:
-	@echo -e "\t\tCLEAN"
-	@rm -f $(OBJS) $(DEPS)
-	@rmdir $(OBJDIR) 2>/dev/null || true
-
-xclean: clean
-	@rm -f $(PROGRAM)
-
-gentags:
-	CFLAGS="$(CFLAGS) $(DEFINES)" geany -g $(PROGRAM).c.tags *[hc] 2>/dev/null
-
-.PHONY: gentags clean xclean

astrosib_utils/teldaemon/Readme.md

@@ -1,12 +0,0 @@
-Astrosib telescope control network daemon
-==================
-
-Open a socket at given port (default: 4444), works with http & direct requests.
-
-**Protocol**
-
-Send requests over socket (by curl or something else) or http requests (in browser).
-
-* *open*   - open telescope shutters;
-* *close*  - close shutters;
-* *status* - shutters' state (return "open", "closed" or "intermediate").

astrosib_utils/teldaemon/cmdlnopts.c

@@ -1,89 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * cmdlnopts.c - the only function that parse cmdln args and returns glob parameters
- *
- * Copyright 2018 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-#include <assert.h>
-#include <stdio.h>
-#include <string.h>
-#include <strings.h>
-#include <math.h>
-#include "cmdlnopts.h"
-#include "usefull_macros.h"
-
-/*
- * here are global parameters initialisation
- */
-int help;
-static glob_pars  G;
-
-// default values for Gdefault & help
-#define DEFAULT_PORT    "4444"
-
-//            DEFAULTS
-// default global parameters
-glob_pars const Gdefault = {
-    .device = NULL,
-    .port = DEFAULT_PORT,
-    .terminal = 0,
-    .echo = 0,
-    .logfile = NULL,
-    .rest_pars = NULL,
-    .rest_pars_num = 0
-};
-
-/*
- * Define command line options by filling structure:
- *  name        has_arg     flag    val     type        argptr              help
-*/
-myoption cmdlnopts[] = {
-// common options
-    {"help",    NO_ARGS,    NULL,   'h',    arg_int,    APTR(&help),        _("show this help")},
-    {"device",  NEED_ARG,   NULL,   'd',    arg_string, APTR(&G.device),    _("serial device name (default: none)")},
-    {"port",    NEED_ARG,   NULL,   'p',    arg_string, APTR(&G.port),      _("network port to connect (default: " DEFAULT_PORT ")")},
-    {"logfile", NEED_ARG,   NULL,   'l',    arg_string, APTR(&G.logfile),   _("save logs to file (default: none)")},
-    {"terminal",NO_ARGS,    NULL,   't',    arg_int,    APTR(&G.terminal),  _("run as terminal")},
-    {"echo",    NO_ARGS,    NULL,   'e',    arg_int,    APTR(&G.echo),      _("echo users commands back")},
-    end_option
-};
-
-/**
- * Parse command line options and return dynamically allocated structure
- *      to global parameters
- * @param argc - copy of argc from main
- * @param argv - copy of argv from main
- * @return allocated structure with global parameters
- */
-glob_pars *parse_args(int argc, char **argv){
-    int i;
-    void *ptr;
-    ptr = memcpy(&G, &Gdefault, sizeof(G)); assert(ptr);
-    // format of help: "Usage: progname [args]\n"
-    change_helpstring("Usage: %s [args]\n\n\tWhere args are:\n");
-    // parse arguments
-    parseargs(&argc, &argv, cmdlnopts);
-    if(help) showhelp(-1, cmdlnopts);
-    if(argc > 0){
-        G.rest_pars_num = argc;
-        G.rest_pars = calloc(argc, sizeof(char*));
-        for (i = 0; i < argc; i++)
-            G.rest_pars[i] = strdup(argv[i]);
-    }
-    return &G;
-}
-

astrosib_utils/teldaemon/cmdlnopts.h

@@ -1,44 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * cmdlnopts.h - comand line options for parceargs
- *
- * Copyright 2018 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#pragma once
-#ifndef __CMDLNOPTS_H__
-#define __CMDLNOPTS_H__
-
-#include "parseargs.h"
-#include "term.h"
-
-/*
- * here are some typedef's for global data
- */
-typedef struct{
-    char *device;           // serial device name
-    char *port;             // port to connect
-    char *logfile;          // logfile name
-    int terminal;           // run as terminal
-    int echo;               // echo user commands back
-    int rest_pars_num;      // number of rest parameters
-    char** rest_pars;       // the rest parameters: array of char* (path to logfile and thrash)
-} glob_pars;
-
-
-glob_pars *parse_args(int argc, char **argv);
-#endif // __CMDLNOPTS_H__

astrosib_utils/teldaemon/main.c

@@ -1,83 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * main.c
- *
- * Copyright 2018 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-#include "usefull_macros.h"
-#include <signal.h>
-#include <sys/wait.h> // wait
-#include <sys/prctl.h> //prctl
-#include "cmdlnopts.h"
-#include "socket.h"
-
-// telescope @ /dev/ttyS0
-
-glob_pars *GP;
-
-void signals(int signo){
-    restore_console();
-    restore_tty();
-    putlog("exit with status %d", signo);
-    exit(signo);
-}
-
-int main(int argc, char **argv){
-    initial_setup();
-    signal(SIGTERM, signals); // kill (-15) - quit
-    signal(SIGHUP, SIG_IGN);  // hup - ignore
-    signal(SIGINT, signals);  // ctrl+C - quit
-    signal(SIGQUIT, signals); // ctrl+\ - quit
-    signal(SIGTSTP, SIG_IGN); // ignore ctrl+Z
-    GP = parse_args(argc, argv);
-    if(GP->terminal){
-        if(!GP->device) ERRX(_("Point serial device name"));
-        try_connect(GP->device);
-        run_terminal();
-        signals(0); // never reached!
-    }
-    if(GP->logfile)
-        openlogfile(GP->logfile);
-    #ifndef EBUG
-    if(daemon(1, 0)){
-        ERR("daemon()");
-    }
-    while(1){ // guard for dead processes
-        pid_t childpid = fork();
-        if(childpid){
-            putlog("create child with PID %d\n", childpid);
-            DBG("Created child with PID %d\n", childpid);
-            wait(NULL);
-            putlog("child %d died\n", childpid);
-            WARNX("Child %d died\n", childpid);
-            sleep(1);
-        }else{
-            prctl(PR_SET_PDEATHSIG, SIGTERM); // send SIGTERM to child when parent dies
-            break; // go out to normal functional
-        }
-    }
-    #endif
-
-    if(GP->device) try_connect(GP->device);
-    if(ping()){
-        putlog("Can't write command PING");
-        ERRX(_("Can't write command PING"));
-    }
-    daemonize(GP->port);
-    signals(0); // newer reached
-    return 0;
-}

astrosib_utils/teldaemon/parseargs.c

@@ -1,497 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * parseargs.c - parsing command line arguments & print help
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#include <stdio.h>  // printf
-#include <getopt.h> // getopt_long
-#include <stdlib.h> // calloc, exit, strtoll
-#include <assert.h> // assert
-#include <string.h> // strdup, strchr, strlen
-#include <strings.h>// strcasecmp
-#include <limits.h> // INT_MAX & so on
-#include <libintl.h>// gettext
-#include <ctype.h>  // isalpha
-#include "parseargs.h"
-#include "usefull_macros.h"
-
-char *helpstring = "%s\n";
-
-/**
- * Change standard help header
- * MAY consist ONE "%s" for progname
- * @param str (i) - new format
- */
-void change_helpstring(char *s){
-    int pcount = 0, scount = 0;
-    char *str = s;
-    // check `helpstring` and set it to default in case of error
-    for(; pcount < 2; str += 2){
-        if(!(str = strchr(str, '%'))) break;
-        if(str[1] != '%') pcount++; // increment '%' counter if it isn't "%%"
-        else{
-            str += 2; // pass next '%'
-            continue;
-        }
-        if(str[1] == 's') scount++; // increment "%s" counter
-    };
-    if(pcount > 1 || pcount != scount){ // amount of pcount and/or scount wrong
-        /// "îÅÐÒÁ×ÉÌØÎÙÊ ÆÏÒÍÁÔ ÓÔÒÏËÉ ÐÏÍÏÝÉ"
-        ERRX(_("Wrong helpstring!"));
-    }
-    helpstring = s;
-}
-
-/**
- * Carefull atoll/atoi
- * @param num (o) - returning value (or NULL if you wish only check number) - allocated by user
- * @param str (i) - string with number must not be NULL
- * @param t   (i) - T_INT for integer or T_LLONG for long long (if argtype would be wided, may add more)
- * @return TRUE if conversion sone without errors, FALSE otherwise
- */
-static bool myatoll(void *num, char *str, argtype t){
-    long long tmp, *llptr;
-    int *iptr;
-    char *endptr;
-    assert(str);
-    assert(num);
-    tmp = strtoll(str, &endptr, 0);
-    if(endptr == str || *str == '\0' || *endptr != '\0')
-        return FALSE;
-    switch(t){
-        case arg_longlong:
-            llptr = (long long*) num;
-            *llptr = tmp;
-        break;
-        case arg_int:
-        default:
-            if(tmp < INT_MIN || tmp > INT_MAX){
-                /// "ãÅÌÏÅ ×ÎÅ ÄÏÐÕÓÔÉÍÏÇÏ ÄÉÁÐÁÚÏÎÁ"
-                WARNX(_("Integer out of range"));
-                return FALSE;
-            }
-            iptr = (int*)num;
-            *iptr = (int)tmp;
-    }
-    return TRUE;
-}
-
-// the same as myatoll but for double
-// There's no NAN & INF checking here (what if they would be needed?)
-static bool myatod(void *num, const char *str, argtype t){
-    double tmp, *dptr;
-    float *fptr;
-    char *endptr;
-    assert(str);
-    tmp = strtod(str, &endptr);
-    if(endptr == str || *str == '\0' || *endptr != '\0')
-        return FALSE;
-    switch(t){
-        case arg_double:
-            dptr = (double *) num;
-            *dptr = tmp;
-        break;
-        case arg_float:
-        default:
-            fptr = (float *) num;
-            *fptr = (float)tmp;
-        break;
-    }
-    return TRUE;
-}
-
-/**
- * Get index of current option in array options
- * @param opt (i) - returning val of getopt_long
- * @param options (i) - array of options
- * @return index in array
- */
-static int get_optind(int opt, myoption *options){
-    int oind;
-    myoption *opts = options;
-    assert(opts);
-    for(oind = 0; opts->name && opts->val != opt; oind++, opts++);
-    if(!opts->name || opts->val != opt) // no such parameter
-    showhelp(-1, options);
-    return oind;
-}
-
-/**
- * reallocate new value in array of multiple repeating arguments
- * @arg paptr - address of pointer to array (**void)
- * @arg type - its type (for realloc)
- * @return pointer to new (next) value
- */
-void *get_aptr(void *paptr, argtype type){
-    int i = 1;
-    void **aptr = *((void***)paptr);
-    if(aptr){ // there's something in array
-        void **p = aptr;
-        while(*p++) ++i;
-    }
-    size_t sz = 0;
-    switch(type){
-        default:
-        case arg_none:
-            /// "îÅ ÍÏÇÕ ÉÓÐÏÌØÚÏ×ÁÔØ ÎÅÓËÏÌØËÏ ÐÁÒÁÍÅÔÒÏ× ÂÅÚ ÁÒÇÕÍÅÎÔÏ×!"
-            ERRX("Can't use multiple args with arg_none!");
-        break;
-        case arg_int:
-            sz = sizeof(int);
-        break;
-        case arg_longlong:
-            sz = sizeof(long long);
-        break;
-        case arg_double:
-            sz = sizeof(double);
-        break;
-        case arg_float:
-            sz = sizeof(float);
-        break;
-        case arg_string:
-            sz = 0;
-        break;
-    /*  case arg_function:
-            sz = sizeof(argfn *);
-        break;*/
-    }
-    aptr = realloc(aptr, (i + 1) * sizeof(void*));
-    *((void***)paptr) = aptr;
-    aptr[i] = NULL;
-    if(sz){
-        aptr[i - 1] = malloc(sz);
-    }else
-        aptr[i - 1] = &aptr[i - 1];
-    return aptr[i - 1];
-}
-
-
-/**
- * Parse command line arguments
- * ! If arg is string, then value will be strdup'ed!
- *
- * @param argc (io) - address of argc of main(), return value of argc stay after `getopt`
- * @param argv (io) - address of argv of main(), return pointer to argv stay after `getopt`
- * BE CAREFUL! if you wanna use full argc & argv, save their original values before
- *      calling this function
- * @param options (i) - array of `myoption` for arguments parcing
- *
- * @exit: in case of error this function show help & make `exit(-1)`
-  */
-void parseargs(int *argc, char ***argv, myoption *options){
-    char *short_options, *soptr;
-    struct option *long_options, *loptr;
-    size_t optsize, i;
-    myoption *opts = options;
-    // check whether there is at least one options
-    assert(opts);
-    assert(opts[0].name);
-    // first we count how much values are in opts
-    for(optsize = 0; opts->name; optsize++, opts++);
-    // now we can allocate memory
-    short_options = calloc(optsize * 3 + 1, 1); // multiply by three for '::' in case of args in opts
-    long_options = calloc(optsize + 1, sizeof(struct option));
-    opts = options; loptr = long_options; soptr = short_options;
-    // in debug mode check the parameters are not repeated
-#ifdef EBUG
-    char **longlist = MALLOC(char*, optsize);
-    char *shortlist = MALLOC(char, optsize);
-#endif
-    // fill short/long parameters and make a simple checking
-    for(i = 0; i < optsize; i++, loptr++, opts++){
-        // check
-        assert(opts->name); // check name
-#ifdef EBUG
-        longlist[i] = strdup(opts->name);
-#endif
-        if(opts->has_arg){
-            assert(opts->type != arg_none); // check error with arg type
-            assert(opts->argptr);  // check pointer
-        }
-        if(opts->type != arg_none) // if there is a flag without arg, check its pointer
-            assert(opts->argptr);
-        // fill long_options
-        // don't do memcmp: what if there would be different alignment?
-        loptr->name     = opts->name;
-        loptr->has_arg  = (opts->has_arg < MULT_PAR) ? opts->has_arg : 1;
-        loptr->flag     = opts->flag;
-        loptr->val      = opts->val;
-        // fill short options if they are:
-        if(!opts->flag && opts->val){
-#ifdef EBUG
-            shortlist[i] = (char) opts->val;
-#endif
-            *soptr++ = opts->val;
-            if(loptr->has_arg) // add ':' if option has required argument
-                *soptr++ = ':';
-            if(loptr->has_arg == 2) // add '::' if option has optional argument
-                *soptr++ = ':';
-        }
-    }
-    // sort all lists & check for repeating
-#ifdef EBUG
-    int cmpstringp(const void *p1, const void *p2){
-        return strcmp(* (char * const *) p1, * (char * const *) p2);
-    }
-    int cmpcharp(const void *p1, const void *p2){
-        return (int)(*(char * const)p1 - *(char *const)p2);
-    }
-    qsort(longlist, optsize, sizeof(char *), cmpstringp);
-    qsort(shortlist,optsize, sizeof(char), cmpcharp);
-    char *prevl = longlist[0], prevshrt = shortlist[0];
-    for(i = 1; i < optsize; ++i){
-        if(longlist[i]){
-            if(prevl){
-                if(strcmp(prevl, longlist[i]) == 0) ERRX("double long arguments: --%s", prevl);
-            }
-            prevl = longlist[i];
-        }
-        if(shortlist[i]){
-            if(prevshrt){
-                if(prevshrt == shortlist[i]) ERRX("double short arguments: -%c", prevshrt);
-            }
-            prevshrt = shortlist[i];
-        }
-    }
-#endif
-    // now we have both long_options & short_options and can parse `getopt_long`
-    while(1){
-        int opt;
-        int oindex = 0, optind = 0; // oindex - number of option in argv, optind - number in options[]
-        if((opt = getopt_long(*argc, *argv, short_options, long_options, &oindex)) == -1) break;
-        if(opt == '?'){
-            opt = optopt;
-            optind = get_optind(opt, options);
-            if(options[optind].has_arg == NEED_ARG || options[optind].has_arg == MULT_PAR)
-                showhelp(optind, options); // need argument
-        }
-        else{
-            if(opt == 0 || oindex > 0) optind = oindex;
-            else optind = get_optind(opt, options);
-        }
-        opts = &options[optind];
-    //    if(opt == 0 && opts->has_arg == NO_ARGS) continue; // only long option changing integer flag
-        // now check option
-        if(opts->has_arg == NEED_ARG || opts->has_arg == MULT_PAR)
-            if(!optarg) showhelp(optind, options); // need argument
-        void *aptr;
-        if(opts->has_arg == MULT_PAR){
-            aptr = get_aptr(opts->argptr, opts->type);
-        }else
-            aptr = opts->argptr;
-        bool result = TRUE;
-        // even if there is no argument, but argptr != NULL, think that optarg = "1"
-        if(!optarg) optarg = "1";
-        switch(opts->type){
-            default:
-            case arg_none:
-                if(opts->argptr) *((int*)aptr) += 1; // increment value
-            break;
-            case arg_int:
-                result = myatoll(aptr, optarg, arg_int);
-            break;
-            case arg_longlong:
-                result = myatoll(aptr, optarg, arg_longlong);
-            break;
-            case arg_double:
-                result = myatod(aptr, optarg, arg_double);
-            break;
-            case arg_float:
-                result = myatod(aptr, optarg, arg_float);
-            break;
-            case arg_string:
-                result = (*((void**)aptr) = (void*)strdup(optarg));
-            break;
-            case arg_function:
-                result = ((argfn)aptr)(optarg);
-            break;
-        }
-        if(!result){
-            showhelp(optind, options);
-        }
-    }
-    *argc -= optind;
-    *argv += optind;
-}
-
-/**
- * compare function for qsort
- * first - sort by short options; second - sort arguments without sort opts (by long options)
- */
-static int argsort(const void *a1, const void *a2){
-    const myoption *o1 = (myoption*)a1, *o2 = (myoption*)a2;
-    const char *l1 = o1->name, *l2 = o2->name;
-    int s1 = o1->val, s2 = o2->val;
-    int *f1 = o1->flag, *f2 = o2->flag;
-    // check if both options has short arg
-    if(f1 == NULL && f2 == NULL && s1 && s2){ // both have short arg
-        return (s1 - s2);
-    }else if((f1 != NULL || !s1) && (f2 != NULL || !s2)){ // both don't have short arg - sort by long
-        return strcmp(l1, l2);
-    }else{ // only one have short arg -- return it
-        if(f2 || !s2) return -1; // a1 have short - it is 'lesser'
-        else return 1;
-    }
-}
-
-/**
- * Show help information based on myoption->help values
- * @param oindex (i)  - if non-negative, show only help by myoption[oindex].help
- * @param options (i) - array of `myoption`
- *
- * @exit:  run `exit(-1)` !!!
- */
-void showhelp(int oindex, myoption *options){
-    int max_opt_len = 0; // max len of options substring - for right indentation
-    const int bufsz = 255;
-    char buf[bufsz+1];
-    myoption *opts = options;
-    assert(opts);
-    assert(opts[0].name); // check whether there is at least one options
-    if(oindex > -1){ // print only one message
-        opts = &options[oindex];
-        printf("  ");
-        if(!opts->flag && isalpha(opts->val)) printf("-%c, ", opts->val);
-        printf("--%s", opts->name);
-        if(opts->has_arg == 1) printf("=arg");
-        else if(opts->has_arg == 2) printf("[=arg]");
-        printf("  %s\n", _(opts->help));
-        exit(-1);
-    }
-    // header, by default is just "progname\n"
-    printf("\n");
-    if(strstr(helpstring, "%s")) // print progname
-        printf(helpstring, __progname);
-    else // only text
-        printf("%s", helpstring);
-    printf("\n");
-    // count max_opt_len
-    do{
-        int L = strlen(opts->name);
-        if(max_opt_len < L) max_opt_len = L;
-    }while((++opts)->name);
-    max_opt_len += 14; // format: '-S , --long[=arg]' - get addition 13 symbols
-    opts = options;
-    // count amount of options
-    int N; for(N = 0; opts->name; ++N, ++opts);
-    if(N == 0) exit(-2);
-    // Now print all help (sorted)
-    opts = options;
-    qsort(opts, N, sizeof(myoption), argsort);
-    do{
-        int p = sprintf(buf, "  "); // a little indent
-        if(!opts->flag && opts->val) // .val is short argument
-            p += snprintf(buf+p, bufsz-p, "-%c, ", opts->val);
-        p += snprintf(buf+p, bufsz-p, "--%s", opts->name);
-        if(opts->has_arg == 1) // required argument
-            p += snprintf(buf+p, bufsz-p, "=arg");
-        else if(opts->has_arg == 2) // optional argument
-            p += snprintf(buf+p, bufsz-p, "[=arg]");
-        assert(p < max_opt_len); // there would be magic if p >= max_opt_len
-        printf("%-*s%s\n", max_opt_len+1, buf, _(opts->help)); // write options & at least 2 spaces after
-        ++opts;
-    }while(--N);
-    printf("\n\n");
-    exit(-1);
-}
-
-/**
- * get suboptions from parameter string
- * @param str - parameter string
- * @param opt - pointer to suboptions structure
- * @return TRUE if all OK
- */
-bool get_suboption(char *str, mysuboption *opt){
-    int findsubopt(char *par, mysuboption *so){
-        int idx = 0;
-        if(!par) return -1;
-        while(so[idx].name){
-            if(strcasecmp(par, so[idx].name) == 0) return idx;
-            ++idx;
-        }
-        return -1; // badarg
-    }
-    bool opt_setarg(mysuboption *so, int idx, char *val){
-        mysuboption *soptr = &so[idx];
-        bool result = FALSE;
-        void *aptr = soptr->argptr;
-        switch(soptr->type){
-            default:
-            case arg_none:
-                if(soptr->argptr) *((int*)aptr) += 1; // increment value
-                result = TRUE;
-            break;
-            case arg_int:
-                result = myatoll(aptr, val, arg_int);
-            break;
-            case arg_longlong:
-                result = myatoll(aptr, val, arg_longlong);
-            break;
-            case arg_double:
-                result = myatod(aptr, val, arg_double);
-            break;
-            case arg_float:
-                result = myatod(aptr, val, arg_float);
-            break;
-            case arg_string:
-                result = (*((void**)aptr) = (void*)strdup(val));
-            break;
-            case arg_function:
-                result = ((argfn)aptr)(val);
-            break;
-        }
-        return result;
-    }
-    char *tok;
-    bool ret = FALSE;
-    char *tmpbuf;
-    tok = strtok_r(str, ":,", &tmpbuf);
-    do{
-        char *val = strchr(tok, '=');
-        int noarg = 0;
-        if(val == NULL){ // no args
-            val = "1";
-            noarg = 1;
-        }else{
-            *val++ = '\0';
-            if(!*val || *val == ':' || *val == ','){ // no argument - delimeter after =
-                val = "1"; noarg = 1;
-            }
-        }
-        int idx = findsubopt(tok, opt);
-        if(idx < 0){
-            /// "îÅÐÒÁ×ÉÌØÎÙÊ ÐÁÒÁÍÅÔÒ: %s"
-            WARNX(_("Wrong parameter: %s"), tok);
-            goto returning;
-        }
-        if(noarg && opt[idx].has_arg == NEED_ARG){
-            /// "%s: ÎÅÏÂÈÏÄÉÍ ÁÒÇÕÍÅÎÔ!"
-            WARNX(_("%s: argument needed!"), tok);
-            goto returning;
-        }
-        if(!opt_setarg(opt, idx, val)){
-            /// "îÅÐÒÁ×ÉÌØÎÙÊ ÁÒÇÕÍÅÎÔ \"%s\" ÐÁÒÁÍÅÔÒÁ \"%s\""
-            WARNX(_("Wrong argument \"%s\" of parameter \"%s\""), val, tok);
-            goto returning;
-        }
-    }while((tok = strtok_r(NULL, ":,", &tmpbuf)));
-    ret = TRUE;
-returning:
-    return ret;
-}

astrosib_utils/teldaemon/parseargs.h

@@ -1,124 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * parseargs.h - headers for parsing command line arguments
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-#pragma once
-#ifndef __PARSEARGS_H__
-#define __PARSEARGS_H__
-
-#include <stdbool.h>// bool
-#include <stdlib.h>
-
-#ifndef TRUE
-    #define TRUE true
-#endif
-
-#ifndef FALSE
-    #define FALSE false
-#endif
-
-// macro for argptr
-#define APTR(x)   ((void*)x)
-
-// if argptr is a function:
-typedef  bool(*argfn)(void *arg);
-
-/*
- * type of getopt's argument
- * WARNING!
- * My function change value of flags by pointer, so if you want to use another type
- * make a latter conversion, example:
- *      char charg;
- *      int iarg;
- *      myoption opts[] = {
- *      {"value", 1, NULL, 'v', arg_int, &iarg, "char val"}, ..., end_option};
- *      ..(parse args)..
- *      charg = (char) iarg;
- */
-typedef enum {
-    arg_none = 0,   // no arg
-    arg_int,        // integer
-    arg_longlong,   // long long
-    arg_double,     // double
-    arg_float,      // float
-    arg_string,     // char *
-    arg_function    // parse_args will run function `bool (*fn)(char *optarg, int N)`
-} argtype;
-
-/*
- * Structure for getopt_long & help
- * BE CAREFUL: .argptr is pointer to data or pointer to function,
- *      conversion depends on .type
- *
- * ATTENTION: string `help` prints through macro PRNT(), bu default it is gettext,
- * but you can redefine it before `#include "parseargs.h"`
- *
- * if arg is string, then value wil be strdup'ed like that:
- *      char *str;
- *      myoption opts[] = {{"string", 1, NULL, 's', arg_string, &str, "string val"}, ..., end_option};
- *      *(opts[1].str) = strdup(optarg);
- * in other cases argptr should be address of some variable (or pointer to allocated memory)
- *
- * NON-NULL argptr should be written inside macro APTR(argptr) or directly: (void*)argptr
- *
- * !!!LAST VALUE OF ARRAY SHOULD BE `end_option` or ZEROS !!!
- *
- */
-typedef enum{
-    NO_ARGS  = 0,  // first three are the same as in getopt_long
-    NEED_ARG = 1,
-    OPT_ARG  = 2,
-    MULT_PAR
-} hasarg;
-
-typedef struct{
-    // these are from struct option:
-    const char *name;       // long option's name
-    hasarg      has_arg;    // 0 - no args, 1 - nesessary arg, 2 - optionally arg, 4 - need arg & key can repeat (args are stored in null-terminated array)
-    int        *flag;       // NULL to return val, pointer to int - to set its value of val (function returns 0)
-    int         val;        // short opt name (if flag == NULL) or flag's value
-    // and these are mine:
-    argtype     type;       // type of argument
-    void       *argptr;     // pointer to variable to assign optarg value or function `bool (*fn)(char *optarg, int N)`
-    const char *help;       // help string which would be shown in function `showhelp` or NULL
-} myoption;
-
-/*
- * Suboptions structure, almost the same like myoption
- * used in parse_subopts()
- */
-typedef struct{
-    const char *name;
-    hasarg      has_arg;
-    argtype     type;
-    void       *argptr;
-} mysuboption;
-
-// last string of array (all zeros)
-#define end_option {0,0,0,0,0,0,0}
-#define end_suboption {0,0,0,0}
-
-extern const char *__progname;
-
-void showhelp(int oindex, myoption *options);
-void parseargs(int *argc, char ***argv, myoption *options);
-void change_helpstring(char *s);
-bool get_suboption(char *str, mysuboption *opt);
-
-#endif // __PARSEARGS_H__

astrosib_utils/teldaemon/socket.c

@@ -1,326 +0,0 @@
-/*
- *                                                                                                  geany_encoding=koi8-r
- * socket.c - socket IO
- *
- * Copyright 2018 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- *
- */
-#include "usefull_macros.h"
-#include "socket.h"
-#include "term.h"
-#include <netdb.h>      // addrinfo
-#include <arpa/inet.h>  // inet_ntop
-#include <pthread.h>
-#include <limits.h>     // INT_xxx
-#include <signal.h> // pthread_kill
-#include <unistd.h> // daemon
-#include <sys/syscall.h> // syscall
-
-#include "cmdlnopts.h"   // glob_pars
-
-#define BUFLEN    (10240)
-// Max amount of connections
-#define BACKLOG   (30)
-
-extern glob_pars *GP;
-
-static char *status; // global variable with device status
-
-typedef enum{
-    CMD_OPEN,
-    CMD_CLOSE,
-    CMD_NONE
-} commands;
-
-static commands cmd = CMD_NONE;
-
-/*
- * Define global data buffers here
- */
-
-/**************** COMMON FUNCTIONS ****************/
-/**
- * wait for answer from socket
- * @param sock - socket fd
- * @return 0 in case of error or timeout, 1 in case of socket ready
- */
-static int waittoread(int sock){
-    fd_set fds;
-    struct timeval timeout;
-    int rc;
-    timeout.tv_sec = 1; // wait not more than 1 second
-    timeout.tv_usec = 0;
-    FD_ZERO(&fds);
-    FD_SET(sock, &fds);
-    do{
-        rc = select(sock+1, &fds, NULL, NULL, &timeout);
-        if(rc < 0){
-            if(errno != EINTR){
-                WARN("select()");
-                return 0;
-            }
-            continue;
-        }
-        break;
-    }while(1);
-    if(FD_ISSET(sock, &fds)) return 1;
-    return 0;
-}
-
-/**************** SERVER FUNCTIONS ****************/
-pthread_mutex_t mutex = PTHREAD_MUTEX_INITIALIZER;
-/**
- * Send data over socket
- * @param sock      - socket fd
- * @param webquery  - ==1 if this is web query
- * @param textbuf   - zero-trailing buffer with data to send
- * @return 1 if all OK
- */
-static int send_data(int sock, int webquery, const char *textbuf){
-    ssize_t L, Len;
-    char tbuf[BUFLEN];
-    Len = strlen(textbuf);
-    // OK buffer ready, prepare to send it
-    if(webquery){
-        L = snprintf((char*)tbuf, BUFLEN,
-            "HTTP/2.0 200 OK\r\n"
-            "Access-Control-Allow-Origin: *\r\n"
-            "Access-Control-Allow-Methods: GET, POST\r\n"
-            "Access-Control-Allow-Credentials: true\r\n"
-            "Content-type: text/plain\r\nContent-Length: %zd\r\n\r\n", Len);
-        if(L < 0){
-            WARN("sprintf()");
-            return 0;
-        }
-        if(L != write(sock, tbuf, L)){
-            WARN("write");
-            return 0;
-        }
-    }
-    // send data
-    //DBG("send %zd bytes\nBUF: %s", Len, buf);
-    if(Len != write(sock, textbuf, Len)){
-        WARN("write()");
-        return 0;
-    }
-    return 1;
-}
-
-// search a first word after needle without spaces
-static char* stringscan(char *str, char *needle){
-    char *a, *e;
-    char *end = str + strlen(str);
-    a = strstr(str, needle);
-    if(!a) return NULL;
-    a += strlen(needle);
-    while (a < end && (*a == ' ' || *a == '\r' || *a == '\t' || *a == '\r')) a++;
-    if(a >= end) return NULL;
-    e = strchr(a, ' ');
-    if(e) *e = 0;
-    return a;
-}
-
-static void *handle_socket(void *asock){
-    FNAME();
-    int sock = *((int*)asock);
-    int webquery = 0; // whether query is web or regular
-    char buff[BUFLEN];
-    ssize_t rd;
-    double t0 = dtime();
-    while(dtime() - t0 < SOCKET_TIMEOUT){
-        if(!waittoread(sock)){ // no data incoming
-            continue;
-        }
-        if(!(rd = read(sock, buff, BUFLEN-1))){
-            break;
-        }
-        DBG("Got %zd bytes", rd);
-        if(rd < 0){ // error
-            DBG("Nothing to read from fd %d (ret: %zd)", sock, rd);
-            break;
-        }
-        // add trailing zero to be on the safe side
-        buff[rd] = 0;
-        // now we should check what do user want
-        char *got, *found = buff;
-        if((got = stringscan(buff, "GET")) || (got = stringscan(buff, "POST"))){ // web query
-            webquery = 1;
-            char *slash = strchr(got, '/');
-            if(slash) found = slash + 1;
-            // web query have format GET /some.resource
-        }
-        // here we can process user data
-        DBG("user send: %s\nfound=%s", buff, found);
-        if(GP->echo){
-            if(!send_data(sock, webquery, found)){
-                putlog("can't send data, some error occured");
-            }
-        }
-        pthread_mutex_lock(&mutex);
-        const char *proto = "Commands: open, close, status";
-        if(strstr(found, "open")){
-            DBG("User asks 2 open");
-            putlog("User asks to open");
-            cmd = CMD_OPEN;
-            send_data(sock, webquery, "OK\n");
-        }else if(strstr(found, "close")){
-            DBG("User asks 2 close");
-            putlog("User asks to close");
-            cmd = CMD_CLOSE;
-            send_data(sock, webquery, "OK\n");
-        }else if(strstr(found, "status")){
-            DBG("User asks 4 status");
-            send_data(sock, webquery, status);
-        }else send_data(sock, webquery, proto);
-        pthread_mutex_unlock(&mutex);
-        break;
-    }
-    close(sock);
-    pthread_exit(NULL);
-    return NULL;
-}
-
-// main socket server
-static void *server(void *asock){
-    putlog("server(): getpid: %d, pthread_self: %lu, tid: %lu",getpid(), pthread_self(), syscall(SYS_gettid));
-    int sock = *((int*)asock);
-    if(listen(sock, BACKLOG) == -1){
-        putlog("listen() failed");
-        WARN("listen");
-        return NULL;
-    }
-    while(1){
-        socklen_t size = sizeof(struct sockaddr_in);
-        struct sockaddr_in their_addr;
-        int newsock;
-        if(!waittoread(sock)) continue;
-        newsock = accept(sock, (struct sockaddr*)&their_addr, &size);
-        if(newsock <= 0){
-            putlog("accept() failed");
-            WARN("accept()");
-            continue;
-        }
-        struct sockaddr_in* pV4Addr = (struct sockaddr_in*)&their_addr;
-        struct in_addr ipAddr = pV4Addr->sin_addr;
-        char str[INET_ADDRSTRLEN];
-        inet_ntop(AF_INET, &ipAddr, str, INET_ADDRSTRLEN);
-        putlog("Got connection from %s", str);
-        DBG("Got connection from %s\n", str);
-        pthread_t handler_thread;
-        if(pthread_create(&handler_thread, NULL, handle_socket, (void*) &newsock)){
-            putlog("server(): pthread_create() failed");
-            WARN("pthread_create()");
-        }else{
-            DBG("Thread created, detouch");
-            pthread_detach(handler_thread); // don't care about thread state
-        }
-    }
-    putlog("server(): UNREACHABLE CODE REACHED!");
-}
-
-// data gathering & socket management
-static void daemon_(int sock){
-    if(sock < 0) return;
-    pthread_t sock_thread;
-    if(pthread_create(&sock_thread, NULL, server, (void*) &sock)){
-        putlog("daemon_(): pthread_create() failed");
-        ERR("pthread_create()");
-    }
-    double tgot = 0.;
-    do{
-        if(pthread_kill(sock_thread, 0) == ESRCH){ // died
-            WARNX("Sockets thread died");
-            putlog("Sockets thread died");
-            pthread_join(sock_thread, NULL);
-            if(pthread_create(&sock_thread, NULL, server, (void*) &sock)){
-                putlog("daemon_(): new pthread_create() failed");
-                ERR("pthread_create()");
-            }
-        }
-        usleep(1000); // sleep a little or thread's won't be able to lock mutex
-        if(dtime() - tgot < T_INTERVAL) continue;
-        tgot = dtime();
-        // copy temporary buffers to main
-        pthread_mutex_lock(&mutex);
-        char *pollans = poll_device();
-        if(pollans) status = pollans;
-        if(cmd != CMD_NONE){
-            switch (cmd){
-                case CMD_OPEN:
-                    DBG("received command: open");
-                    if(write_cmd("SHUTTEROPEN?1,1,1,1,1") == 0) cmd = CMD_NONE;
-                break;
-                case CMD_CLOSE:
-                    DBG("received command: close");
-                    if(write_cmd("SHUTTERCLOSE?1,1,1,1,1") == 0) cmd = CMD_NONE;
-                break;
-                default:
-                    DBG("WTF?");
-            }
-        }
-        pthread_mutex_unlock(&mutex);
-    }while(1);
-    putlog("daemon_(): UNREACHABLE CODE REACHED!");
-}
-
-/**
- * Run daemon service
- */
-void daemonize(char *port){
-    FNAME();
-    int sock = -1;
-    struct addrinfo hints, *res, *p;
-    memset(&hints, 0, sizeof(hints));
-    hints.ai_family = AF_INET;
-    hints.ai_socktype = SOCK_STREAM;
-    hints.ai_flags = AI_PASSIVE;
-    if(getaddrinfo(NULL, port, &hints, &res) != 0){
-        ERR("getaddrinfo");
-    }
-    struct sockaddr_in *ia = (struct sockaddr_in*)res->ai_addr;
-    char str[INET_ADDRSTRLEN];
-    inet_ntop(AF_INET, &(ia->sin_addr), str, INET_ADDRSTRLEN);
-    // loop through all the results and bind to the first we can
-    for(p = res; p != NULL; p = p->ai_next){
-        if((sock = socket(p->ai_family, p->ai_socktype, p->ai_protocol)) == -1){
-            WARN("socket");
-            continue;
-        }
-        int reuseaddr = 1;
-        if(setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, &reuseaddr, sizeof(int)) == -1){
-            ERR("setsockopt");
-        }
-        if(bind(sock, p->ai_addr, p->ai_addrlen) == -1){
-            close(sock);
-            WARN("bind");
-            continue;
-        }
-        break; // if we get here, we have a successfull connection
-    }
-    if(p == NULL){
-        putlog("failed to bind socket, exit");
-        // looped off the end of the list with no successful bind
-        ERRX("failed to bind socket");
-    }
-    freeaddrinfo(res);
-    daemon_(sock);
-    close(sock);
-    putlog("socket closed, exit");
-    signals(0);
-}
-

astrosib_utils/teldaemon/socket.h

@@ -1,34 +0,0 @@
-/*
- *                                                                                                  geany_encoding=koi8-r
- * socket.h
- *
- * Copyright 2017 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- *
- */
-#pragma once
-#ifndef __SOCKET_H__
-#define __SOCKET_H__
-
-// timeout for socket closing
-#define SOCKET_TIMEOUT  (5.0)
-// time interval for data polling (seconds)
-#define T_INTERVAL      (2.)
-
-void daemonize(char *port);
-
-#endif // __SOCKET_H__

astrosib_utils/teldaemon/teldaemon.geany

@@ -1,46 +0,0 @@
-[editor]
-line_wrapping=false
-line_break_column=80
-auto_continue_multiline=true
-
-[file_prefs]
-final_new_line=true
-ensure_convert_new_lines=false
-strip_trailing_spaces=true
-replace_tabs=true
-
-[indentation]
-indent_width=4
-indent_type=0
-indent_hard_tab_width=4
-detect_indent=false
-detect_indent_width=false
-indent_mode=3
-
-[project]
-name=teldaemon
-base_path=/tmp/f/Doc/C-sources/teldaemon/
-
-[long line marker]
-long_line_behaviour=1
-long_line_column=80
-
-[files]
-current_page=7
-FILE_NAME_0=1846;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2FDoc%2FC-sources%2Fteldaemon%2Fcmdlnopts.c;0;4
-FILE_NAME_1=0;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2FDoc%2FC-sources%2Fteldaemon%2Fcmdlnopts.h;0;4
-FILE_NAME_2=2493;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2FDoc%2FC-sources%2Fteldaemon%2Fmain.c;0;4
-FILE_NAME_3=232;Make;0;EUTF-8;1;1;0;%2Ftmp%2Ff%2FDoc%2FC-sources%2Fteldaemon%2FMakefile;0;4
-FILE_NAME_4=0;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2FDoc%2FC-sources%2Fteldaemon%2Fparseargs.c;0;4
-FILE_NAME_5=0;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2FDoc%2FC-sources%2Fteldaemon%2Fparseargs.h;0;4
-FILE_NAME_6=384;Markdown;0;EUTF-8;0;1;0;%2Ftmp%2Ff%2FDoc%2FC-sources%2Fteldaemon%2FReadme.md;0;4
-FILE_NAME_7=8640;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2FDoc%2FC-sources%2Fteldaemon%2Fsocket.c;0;4
-FILE_NAME_8=1138;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2FDoc%2FC-sources%2Fteldaemon%2Fsocket.h;0;4
-FILE_NAME_9=4352;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2FDoc%2FC-sources%2Fteldaemon%2Fterm.c;0;4
-FILE_NAME_10=1310;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2FDoc%2FC-sources%2Fteldaemon%2Fterm.h;0;4
-FILE_NAME_11=9727;C;0;EKOI8-R;0;1;0;%2Ftmp%2Ff%2FDoc%2FC-sources%2Fteldaemon%2Fusefull_macros.c;0;4
-FILE_NAME_12=3432;C;0;EUTF-8;0;1;0;%2Ftmp%2Ff%2FDoc%2Fclient_term_dome%2Fclient.c;0;4
-FILE_NAME_13=1502;C;0;EUTF-8;0;1;0;%2Ftmp%2Ff%2FDoc%2FC-sources%2Fteldaemon%2Fusefull_macros.h;0;4
-
-[VTE]
-last_dir=/home/eddy

astrosib_utils/teldaemon/term.c

@@ -1,193 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * client.c - terminal parser
- *
- * Copyright 2018 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-#include "usefull_macros.h"
-#include "term.h"
-#include <strings.h> // strncasecmp
-#include <time.h>    // time(NULL)
-#include <limits.h>  // INT_MAX, INT_MIN
-
-#define BUFLEN 1024
-
-static char buf[BUFLEN];
-
-/**
- * read strings from terminal (ending with '\n') with timeout
- * @return NULL if nothing was read or pointer to static buffer
- */
-static char *read_string(){
-    //FNAME();
-    size_t r = 0, l;
-    int LL = BUFLEN - 1;
-    char *ptr = NULL;
-    static char *optr = NULL;
-    if(optr && *optr){
-        ptr = optr;
-        optr = strchr(optr, '\n');
-        if(optr) ++optr;
-        //DBG("got data, roll to next; ptr=%s\noptr=%s",ptr,optr);
-        return ptr;
-    }
-    ptr = buf;
-    double d0 = dtime();
-    do{
-        if((l = read_tty(ptr, LL))){
-            r += l; LL -= l; ptr += l;
-            //DBG("got: %s", buf);
-            if(ptr[-1] == '\n') break;
-            d0 = dtime();
-        }
-    }while(dtime() - d0 < WAIT_TMOUT && LL);
-    if(r){
-        buf[r] = 0;
-        //DBG("r=%zd, got string: %s", r, buf);
-        optr = strchr(buf, '\n');
-        if(optr) ++optr;
-        return buf;
-    }
-    return NULL;
-}
-
-/**
- * Try to connect to `device` at BAUD_RATE speed
- * @return connection speed if success or 0
- */
-void try_connect(char *device){
-    if(!device) return;
-    char tmpbuf[4096];
-    fflush(stdout);
-    tty_init(device);
-    read_tty(tmpbuf, 4096); // clear rbuf
-    putlog("Connected to %s", device);
-    DBG("connected");
-}
-
-static void con_sig(int rb){
-    static char buf[256];
-    static int L = 0;
-    if(rb < 1) return;
-    if(rb != '\n'){
-        if(rb == 127 && L > 0){
-            printf("\b \b");
-            --L;
-        }else{
-            printf("%c", (char)rb);
-            buf[L++] = (char)rb;
-            if(L >= 255){
-                printf("\nbuffer overrun!\n");
-                L = 0;
-            }
-        }
-    }else{
-        buf[L++] = 0x0d;
-        buf[L] = 0;
-        printf("\n\t\tSend %s\n", buf);
-        write_tty(buf, L);
-        L = 0;
-    }
-}
-
-/**
- * run terminal emulation: send user's commands and show answers
- */
-void run_terminal(){
-    green(_("Work in terminal mode without echo\n"));
-    int rb;
-    char buf[BUFLEN];
-    size_t l;
-    setup_con();
-    while(1){
-        if((l = read_tty(buf, BUFLEN - 1))){
-            buf[l] = 0;
-            printf("%s", buf);
-        }
-        if((rb = read_console())){
-            con_sig(rb);
-        }
-    }
-}
-
-/**
- * write command with trailing "\r\n"
- * @return 0 if all OK
- */
-int write_cmd(const char *cmd){
-    char buf[BUFLEN];
-    if(snprintf(buf, BUFLEN, "%s\r", cmd) < 0) return 1;
-    DBG("Write %s", buf);
-    if(write_tty(buf, strlen(buf))) return 1;
-    double t0 = dtime();
-    char *ans;
-    while(dtime() - t0 < T_POLLING_TMOUT){ // read answer
-        if((ans = read_string())){ // parse new data
-            DBG("got %s", ans);
-            if(strstr(ans, "OK")){
-                DBG("Succesfull");
-                return 0;
-            }
-        }
-    }
-    return 1;
-}
-
-/**
- * Poll serial port for new dataportion
- * @return: NULL if no data received, pointer to string if valid data received
- */
-char *poll_device(){
-    char *ans;
-    static char pollbuf[32];
-    double t0 = dtime();
-    const char *cmdstat = "SHUTTERSTATUS?";
-    const char *cmdget  = "SHUTTERS?";
-    #define CMDGETLEN  (9)
-    while(read_string()); // clear receiving buffer
-    if(write_cmd(cmdstat)) return NULL; // error writing command
-    DBG("poll answer");
-    while(dtime() - t0 < T_POLLING_TMOUT){ // read answer
-        if((ans = read_string())){ // parse new data
-            DBG("got %s", ans);
-            if(strstr(ans, cmdget) == NULL){
-                DBG("no %s found in %s", cmdstat, ans);
-                return NULL; // ?
-            }
-            ans += CMDGETLEN;
-            if(strstr(ans, "1,1,1,1,1")){
-                sprintf(pollbuf, "opened\n");
-                DBG("shutters opened");
-            }else if(strstr(ans, "0,0,0,0,0")){
-                sprintf(pollbuf, "closed\n");
-                DBG("shutters closed");
-            }else sprintf(pollbuf, "intermediate\n");
-            return pollbuf;
-        }
-    }
-    return NULL;
-}
-
-/**
- * ping device
- * @return 0 if all OK
- */
-int ping(){
-    FNAME();
-    if(write_cmd("PING?")) return 1;
-    return 0;
-}

astrosib_utils/teldaemon/term.h

@@ -1,38 +0,0 @@
-/*                                                                                                  geany_encoding=koi8-r
- * term.h
- *
- * Copyright 2018 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-#pragma once
-#ifndef __TERM_H__
-#define __TERM_H__
-
-#define FRAME_MAX_LENGTH        (300)
-#define MAX_MEMORY_DUMP_SIZE    (0x800 * 4)
-// Terminal timeout (seconds)
-#define     WAIT_TMOUT          (0.5)
-// Terminal polling timeout - 1 second
-#define     T_POLLING_TMOUT     (1.0)
-
-void run_terminal();
-void try_connect(char *device);
-char *poll_device();
-int ping();
-int write_cmd(const char *cmd);
-
-#endif // __TERM_H__

astrosib_utils/teldaemon/usefull_macros.c

@@ -1,437 +0,0 @@
-/*
- * usefull_macros.h - a set of usefull functions: memory, color etc
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#include "usefull_macros.h"
-#include <time.h>
-#include <linux/limits.h> // PATH_MAX
-
-/**
- * function for different purposes that need to know time intervals
- * @return double value: time in seconds
- */
-double dtime(){
-    double t;
-    struct timeval tv;
-    gettimeofday(&tv, NULL);
-    t = tv.tv_sec + ((double)tv.tv_usec)/1e6;
-    return t;
-}
-
-/******************************************************************************\
- *                          Coloured terminal
-\******************************************************************************/
-int globErr = 0; // errno for WARN/ERR
-
-// pointers to coloured output printf
-int (*red)(const char *fmt, ...);
-int (*green)(const char *fmt, ...);
-int (*_WARN)(const char *fmt, ...);
-
-/*
- * format red / green messages
- * name: r_pr_, g_pr_
- * @param fmt ... - printf-like format
- * @return number of printed symbols
- */
-int r_pr_(const char *fmt, ...){
-    va_list ar; int i;
-    printf(RED);
-    va_start(ar, fmt);
-    i = vprintf(fmt, ar);
-    va_end(ar);
-    printf(OLDCOLOR);
-    return i;
-}
-int g_pr_(const char *fmt, ...){
-    va_list ar; int i;
-    printf(GREEN);
-    va_start(ar, fmt);
-    i = vprintf(fmt, ar);
-    va_end(ar);
-    printf(OLDCOLOR);
-    return i;
-}
-/*
- * print red error/warning messages (if output is a tty)
- * @param fmt ... - printf-like format
- * @return number of printed symbols
- */
-int r_WARN(const char *fmt, ...){
-    va_list ar; int i = 1;
-    fprintf(stderr, RED);
-    va_start(ar, fmt);
-    if(globErr){
-        errno = globErr;
-        vwarn(fmt, ar);
-        errno = 0;
-    }else
-        i = vfprintf(stderr, fmt, ar);
-    va_end(ar);
-    i++;
-    fprintf(stderr, OLDCOLOR "\n");
-    return i;
-}
-
-static const char stars[] = "****************************************";
-/*
- * notty variants of coloured printf
- * name: s_WARN, r_pr_notty
- * @param fmt ... - printf-like format
- * @return number of printed symbols
- */
-int s_WARN(const char *fmt, ...){
-    va_list ar; int i;
-    i = fprintf(stderr, "\n%s\n", stars);
-    va_start(ar, fmt);
-    if(globErr){
-        errno = globErr;
-        vwarn(fmt, ar);
-        errno = 0;
-    }else
-        i = +vfprintf(stderr, fmt, ar);
-    va_end(ar);
-    i += fprintf(stderr, "\n%s\n", stars);
-    i += fprintf(stderr, "\n");
-    return i;
-}
-int r_pr_notty(const char *fmt, ...){
-    va_list ar; int i;
-    i = printf("\n%s\n", stars);
-    va_start(ar, fmt);
-    i += vprintf(fmt, ar);
-    va_end(ar);
-    i += printf("\n%s\n", stars);
-    return i;
-}
-
-/**
- * Run this function in the beginning of main() to setup locale & coloured output
- */
-void initial_setup(){
-    // setup coloured output
-    if(isatty(STDOUT_FILENO)){ // make color output in tty
-        red = r_pr_; green = g_pr_;
-    }else{ // no colors in case of pipe
-        red = r_pr_notty; green = printf;
-    }
-    if(isatty(STDERR_FILENO)) _WARN = r_WARN;
-    else _WARN = s_WARN;
-    // Setup locale
-    setlocale(LC_ALL, "");
-    setlocale(LC_NUMERIC, "C");
-#if defined GETTEXT_PACKAGE && defined LOCALEDIR
-    bindtextdomain(GETTEXT_PACKAGE, LOCALEDIR);
-    textdomain(GETTEXT_PACKAGE);
-#endif
-}
-
-/******************************************************************************\
- *                                  Memory
-\******************************************************************************/
-/*
- * safe memory allocation for macro ALLOC
- * @param N - number of elements to allocate
- * @param S - size of single element (typically sizeof)
- * @return pointer to allocated memory area
- */
-void *my_alloc(size_t N, size_t S){
-    void *p = calloc(N, S);
-    if(!p) ERR("malloc");
-    //assert(p);
-    return p;
-}
-
-/**
- * Mmap file to a memory area
- *
- * @param filename (i) - name of file to mmap
- * @return stuct with mmap'ed file or die
- */
-mmapbuf *My_mmap(char *filename){
-    int fd;
-    char *ptr;
-    size_t Mlen;
-    struct stat statbuf;
-    /// "îÅ ÚÁÄÁÎÏ ÉÍÑ ÆÁÊÌÁ!"
-    if(!filename){
-        WARNX(_("No filename given!"));
-        return NULL;
-    }
-    if((fd = open(filename, O_RDONLY)) < 0){
-    /// "îÅ ÍÏÇÕ ÏÔËÒÙÔØ %s ÄÌÑ ÞÔÅÎÉÑ"
-        WARN(_("Can't open %s for reading"), filename);
-        return NULL;
-    }
-    if(fstat (fd, &statbuf) < 0){
-    /// "îÅ ÍÏÇÕ ×ÙÐÏÌÎÉÔØ stat %s"
-        WARN(_("Can't stat %s"), filename);
-        close(fd);
-        return NULL;
-    }
-    Mlen = statbuf.st_size;
-    if((ptr = mmap (0, Mlen, PROT_READ, MAP_PRIVATE, fd, 0)) == MAP_FAILED){
-    /// "ïÛÉÂËÁ mmap"
-        WARN(_("Mmap error for input"));
-        close(fd);
-        return NULL;
-    }
-    /// "îÅ ÍÏÇÕ ÚÁËÒÙÔØ mmap'ÎÕÔÙÊ ÆÁÊÌ"
-    if(close(fd)) WARN(_("Can't close mmap'ed file"));
-    mmapbuf *ret = MALLOC(mmapbuf, 1);
-    ret->data = ptr;
-    ret->len = Mlen;
-    return  ret;
-}
-
-void My_munmap(mmapbuf *b){
-    if(munmap(b->data, b->len)){
-    /// "îÅ ÍÏÇÕ munmap"
-        ERR(_("Can't munmap"));
-    }
-    FREE(b);
-}
-
-
-/******************************************************************************\
- *                          Terminal in no-echo mode
-\******************************************************************************/
-static struct termios oldt, newt; // terminal flags
-static int console_changed = 0;
-// run on exit:
-void restore_console(){
-    if(console_changed)
-        tcsetattr(STDIN_FILENO, TCSANOW, &oldt); // return terminal to previous state
-    console_changed = 0;
-}
-
-// initial setup:
-void setup_con(){
-    if(console_changed) return;
-    tcgetattr(STDIN_FILENO, &oldt);
-    newt = oldt;
-    newt.c_lflag &= ~(ICANON | ECHO);
-    if(tcsetattr(STDIN_FILENO, TCSANOW, &newt) < 0){
-        /// "îÅ ÍÏÇÕ ÎÁÓÔÒÏÉÔØ ËÏÎÓÏÌØ"
-        WARN(_("Can't setup console"));
-        tcsetattr(STDIN_FILENO, TCSANOW, &oldt);
-        signals(0); //quit?
-    }
-    console_changed = 1;
-}
-
-/**
- * Read character from console without echo
- * @return char readed
- */
-int read_console(){
-    int rb;
-    struct timeval tv;
-    int retval;
-    fd_set rfds;
-    FD_ZERO(&rfds);
-    FD_SET(STDIN_FILENO, &rfds);
-    tv.tv_sec = 0; tv.tv_usec = 10000;
-    retval = select(1, &rfds, NULL, NULL, &tv);
-    if(!retval) rb = 0;
-    else {
-        if(FD_ISSET(STDIN_FILENO, &rfds)) rb = getchar();
-        else rb = 0;
-    }
-    return rb;
-}
-
-/**
- * getchar() without echo
- * wait until at least one character pressed
- * @return character readed
- */
-int mygetchar(){ // getchar() without need of pressing ENTER
-    int ret;
-    do ret = read_console();
-    while(ret == 0);
-    return ret;
-}
-
-
-/******************************************************************************\
- *                              TTY with select()
-\******************************************************************************/
-static struct termio oldtty, tty; // TTY flags
-static int comfd = -1; // TTY fd
-
-// run on exit:
-void restore_tty(){
-    if(comfd == -1) return;
-    ioctl(comfd, TCSANOW, &oldtty ); // return TTY to previous state
-    close(comfd);
-    comfd = -1;
-}
-
-#ifndef BAUD_RATE
-#define BAUD_RATE B4800
-#endif
-#pragma message("Baudrate: "  STR(BAUD_RATE) " (default: " STR(B4800) ")")
-// init:
-void tty_init(char *comdev){
-    DBG("\nOpen port %s ...\n", comdev);
-    do{
-        comfd = open(comdev,O_RDWR|O_NOCTTY|O_NONBLOCK);
-    }while (comfd == -1 && errno == EINTR);
-    if(comfd < 0){
-        WARN("Can't use port %s\n",comdev);
-        signals(-1); // quit?
-    }
-    // make exclusive open
-    if(ioctl(comfd, TIOCEXCL)){
-        WARN(_("Can't do exclusive open"));
-        close(comfd);
-        signals(2);
-    }
-    DBG(" OK\nGet current settings... ");
-    if(ioctl(comfd,TCGETA,&oldtty) < 0){  // Get settings
-        /// "îÅ ÍÏÇÕ ÐÏÌÕÞÉÔØ ÎÁÓÔÒÏÊËÉ"
-        WARN(_("Can't get settings"));
-        signals(-1);
-    }
-    tty = oldtty;
-    tty.c_lflag     = 0;
-    tty.c_oflag     = 0;
-    tty.c_cflag     = BAUD_RATE|CS8|CREAD|CLOCAL; // 9.6k, 8N1, RW, ignore line ctrl
-    tty.c_cc[VMIN]  = 20;
-    tty.c_cc[VTIME] = 5;
-    if(ioctl(comfd,TCSETA,&tty) < 0){
-        /// "îÅ ÍÏÇÕ ÕÓÔÁÎÏ×ÉÔØ ÎÁÓÔÒÏÊËÉ"
-        WARN(_("Can't set settings"));
-        signals(-1);
-    }
-    DBG(" OK\n");
-}
-
-/**
- * Read data from TTY
- * @param buff (o) - buffer for data read
- * @param length   - buffer len
- * @return amount of bytes read
- */
-size_t read_tty(char *buff, size_t length){
-    ssize_t L = 0, l;
-    char *ptr = buff;
-    fd_set rfds;
-    struct timeval tv;
-    int retval;
-    do{
-        l = 0;
-        FD_ZERO(&rfds);
-        FD_SET(comfd, &rfds);
-        // wait for 100ms
-        tv.tv_sec = 0; tv.tv_usec = 10000;
-        retval = select(comfd + 1, &rfds, NULL, NULL, &tv);
-        if (!retval) break;
-        if(FD_ISSET(comfd, &rfds)){
-            //DBG("ISSET");
-            if((l = read(comfd, ptr, length)) < 1){
-                return 0;
-            }
-            //DBG("got %zd", l);
-            ptr += l; L += l;
-            length -= l;
-        }
-    }while(l);
-    return (size_t)L;
-}
-
-int write_tty(const char *buff, size_t length){
-    ssize_t L = write(comfd, buff, length);
-    if((size_t)L != length){
-        /// "ïÛÉÂËÁ ÚÁÐÉÓÉ!"
-        WARN("Write error");
-        return 1;
-    }
-    return 0;
-}
-
-
-/**
- * Safely convert data from string to double
- *
- * @param num (o) - double number read from string
- * @param str (i) - input string
- * @return 1 if success, 0 if fails
- */
-int str2double(double *num, const char *str){
-    double res;
-    char *endptr;
-    if(!str) return 0;
-    res = strtod(str, &endptr);
-    if(endptr == str || *str == '\0' || *endptr != '\0'){
-        /// "îÅÐÒÁ×ÉÌØÎÙÊ ÆÏÒÍÁÔ ÞÉÓÌÁ double!"
-        WARNX("Wrong double number format!");
-        return FALSE;
-    }
-    if(num) *num = res; // you may run it like myatod(NULL, str) to test wether str is double number
-    return TRUE;
-}
-
-FILE *Flog = NULL; // log file descriptor
-char *logname = NULL;
-time_t log_open_time = 0;
-/**
- * Try to open log file
- * if failed show warning message
- */
-void openlogfile(char *name){
-    if(!name){
-        WARNX(_("Need filename"));
-        return;
-    }
-    green(_("Try to open log file %s in append mode\n"), name);
-    if(!(Flog = fopen(name, "a"))){
-        WARN(_("Can't open log file"));
-        return;
-    }
-    log_open_time = time(NULL);
-    logname = name;
-}
-
-/**
- * Save message to log file, rotate logs every 24 hours
- */
-int putlog(const char *fmt, ...){
-    if(!Flog) return 0;
-    time_t t_now = time(NULL);
-    if(t_now - log_open_time > 86400){ // rotate log
-        fprintf(Flog, "\n\t\t%sRotate log\n", ctime(&t_now));
-        fclose(Flog);
-        char newname[PATH_MAX];
-        snprintf(newname, PATH_MAX, "%s.old", logname);
-        if(rename(logname, newname)) WARN("rename()");
-        openlogfile(logname);
-        if(!Flog) return 0;
-    }
-    int i = fprintf(Flog, "\n\t\t%s", ctime(&t_now));
-    va_list ar;
-    va_start(ar, fmt);
-    i = vfprintf(Flog, fmt, ar);
-    va_end(ar);
-    fprintf(Flog, "\n");
-    fflush(Flog);
-    return i;
-}

astrosib_utils/teldaemon/usefull_macros.h

@@ -1,144 +0,0 @@
-/*
- * usefull_macros.h - a set of usefull macros: memory, color etc
- *
- * Copyright 2013 Edward V. Emelianoff <eddy@sao.ru>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
- * MA 02110-1301, USA.
- */
-
-#pragma once
-#ifndef __USEFULL_MACROS_H__
-#define __USEFULL_MACROS_H__
-
-#include <sys/stat.h>
-#include <fcntl.h>
-#include <sys/mman.h>
-#include <unistd.h>
-#include <string.h>
-#include <stdio.h>
-#include <stdarg.h>
-#include <errno.h>
-#include <err.h>
-#include <locale.h>
-#if defined GETTEXT_PACKAGE && defined LOCALEDIR
-/*
- * GETTEXT
- */
-#include <libintl.h>
-#define _(String)               gettext(String)
-#define gettext_noop(String)    String
-#define N_(String)              gettext_noop(String)
-#else
-#define _(String)               (String)
-#define N_(String)              (String)
-#endif
-
-#define STR_HELPER(s)   #s
-#define STR(s) STR_HELPER(s)
-
-#include <stdlib.h>
-#include <termios.h>
-#include <termio.h>
-#include <sys/time.h>
-#include <sys/types.h>
-#include <stdint.h>
-
-
-// unused arguments with -Wall -Werror
-#define _U_    __attribute__((__unused__))
-
-/*
- * Coloured messages output
- */
-#define RED         "\033[1;31;40m"
-#define GREEN       "\033[1;32;40m"
-#define OLDCOLOR    "\033[0;0;0m"
-
-#ifndef FALSE
-#define FALSE (0)
-#endif
-
-#ifndef TRUE
-#define TRUE (1)
-#endif
-
-/*
- * ERROR/WARNING messages
- */
-extern int globErr;
-extern void signals(int sig);
-#define ERR(...) do{globErr=errno; _WARN(__VA_ARGS__); signals(9);}while(0)
-#define ERRX(...) do{globErr=0; _WARN(__VA_ARGS__); signals(9);}while(0)
-#define WARN(...) do{globErr=errno; _WARN(__VA_ARGS__);}while(0)
-#define WARNX(...) do{globErr=0; _WARN(__VA_ARGS__);}while(0)
-
-/*
- * print function name, debug messages
- * debug mode, -DEBUG
- */
-#ifdef EBUG
-    #define FNAME() fprintf(stderr, "\n%s (%s, line %d)\n", __func__, __FILE__, __LINE__)
-    #define DBG(...) do{fprintf(stderr, "%s (%s, line %d): ", __func__, __FILE__, __LINE__); \
-                    fprintf(stderr, __VA_ARGS__);           \
-                    fprintf(stderr, "\n");} while(0)
-#else
-    #define FNAME()  do{}while(0)
-    #define DBG(...) do{}while(0)
-#endif //EBUG
-
-/*
- * Memory allocation
- */
-#define ALLOC(type, var, size)  type * var = ((type *)my_alloc(size, sizeof(type)))
-#define MALLOC(type, size) ((type *)my_alloc(size, sizeof(type)))
-#define FREE(ptr)  do{if(ptr){free(ptr); ptr = NULL;}}while(0)
-
-#ifndef DBL_EPSILON
-#define DBL_EPSILON        (2.2204460492503131e-16)
-#endif
-
-double dtime();
-
-// functions for color output in tty & no-color in pipes
-extern int (*red)(const char *fmt, ...);
-extern int (*_WARN)(const char *fmt, ...);
-extern int (*green)(const char *fmt, ...);
-void * my_alloc(size_t N, size_t S);
-void initial_setup();
-
-// mmap file
-typedef struct{
-    char *data;
-    size_t len;
-} mmapbuf;
-mmapbuf *My_mmap(char *filename);
-void My_munmap(mmapbuf *b);
-
-void restore_console();
-void setup_con();
-int read_console();
-int mygetchar();
-
-void restore_tty();
-void tty_init(char *comdev);
-size_t read_tty(char *buff, size_t length);
-int write_tty(const char *buff, size_t length);
-
-int str2double(double *num, const char *str);
-
-void openlogfile(char *name);
-int putlog(const char *fmt, ...);
-#endif // __USEFULL_MACROS_H__