Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/ed/getone.c @ 3295:6b7a7b233925 default tip
makefile: Allow PORTS with level1/2 mix
https://sourceforge.net/p/nitros9/feature-requests/10/
author | Tormod Volden <debian.tormod@gmail.com> |
---|---|
date | Tue, 19 Apr 2022 18:12:17 +0200 |
parents | bef1844de0dc |
children |
line wrap: on
line source
/* getone.c */ #include <stdio.h> #include "tools.h" #include "ed.h" #define FIRST 1 #define NOTFIRST 0 int getone() { int c, i, num; if ((num = getnum(FIRST)) >= 0) { while (1) { while (*inptr == SP || *inptr == HT) inptr++; if (*inptr != '+' && *inptr != '-') break; c = *inptr++; if ((i = getnum(NOTFIRST)) < 0) return(i); if (c == '+') { num += i; } else { num -= i; } } } return(num > lastln ? ERR : num); }