Changeset 7457


Ignore:
Timestamp:
06/02/18 20:35:15 (3 weeks ago)
Author:
baker
Message:

upgrade to version 1.55 (2018.137) from http://www.ncedc.org/ftp/pub/quanterra/ucb

Location:
trunk/src/libsrc/qlib2
Files:
18 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/libsrc/qlib2/Makefile

    r7362 r7457  
    55#       make all32 
    66#       make install32 
    7 # b. 64-bit librarie 
     7# b. 64-bit libraries 
    88#       make all64 
    99#       make install64 
     
    2020# 1. Select installation dir. 
    2121# Installation in /share/apps. 
    22 ROOTDIR = /share/apps 
    23 LEAPSECONDS = $(ROOTDIR)/etc/leapseconds 
     22#ROOTDIR        = /share/apps 
     23#LEAPSECONDS = $(ROOTDIR)/etc/leapseconds 
    2424 
    2525# Installation in /usr/local. 
    26 #ROOTDIR = /usr/local 
    27 #LEAPSECONDS = /usr/local/etc/leapseconds 
     26ROOTDIR = /usr/local 
     27LEAPSECONDS = /usr/local/etc/leapseconds 
    2828 
    2929# 2. Select OS library directory structure. 
     
    4545 
    4646# 4. Select compiler and options. 
    47 #CC     = cc                      # for Earthworm use global 'CC' 
     47CC      = cc  
    4848COPT    = -O 
    4949CDBG    = -g 
     
    5252C32     = -m32 
    5353DLEAP   = -DLEAPSECONDS=\"$(LEAPSECONDS)\" 
    54 CFLAGS_SITE = $(GLOBALFLAGS)      # for Earthworm use GLOBALFLAGS 
     54CFLAGS_SITE = -Wall 
    5555 
    5656# -Dfortran_suffix is required for fortran Compilers that use the BSD  
     
    8989.PRECIOUS:      $(TARGET1) $(TARGET2) $(TARGET3) $(TARGET4) $(TARGET5) $(TARGET6) $(TARGET7) $(TARGET8) 
    9090 
    91 TARGET1 = lib/libqlib2.a 
    92 TARGET2 = lib/libqlib2.debug.a 
    93 TARGET3 = lib/libqlib2nl.a 
    94 TARGET4 = lib/libqlib2nl.debug.a 
    95 TARGET5 = lib64/libqlib2.a 
    96 TARGET6 = lib64/libqlib2.debug.a 
    97 TARGET7 = lib64/libqlib2nl.a 
    98 TARGET8 = lib64/libqlib2nl.debug.a 
    99 LLIBS   = lib lib64 
     91L32DIR  = lib 
     92L64DIR  = lib64 
     93TARGET1 = $(L32DIR)/libqlib2.a 
     94TARGET2 = $(L32DIR)/libqlib2.debug.a 
     95TARGET3 = $(L32DIR)/libqlib2nl.a 
     96TARGET4 = $(L32DIR)/libqlib2nl.debug.a 
     97TARGET5 = $(L64DIR)/libqlib2.a 
     98TARGET6 = $(L64DIR)/libqlib2.debug.a 
     99TARGET7 = $(L64DIR)/libqlib2nl.a 
     100TARGET8 = $(L64DIR)/libqlib2nl.debug.a 
     101LLIBS   = $(L32DIR) $(L64DIR) 
    100102 
    101103ALLHDRS = $(HDR) $(FHDR) $(F90HDR) 
     
    121123        cat $(F90HDRS) | grep -v '#include "'> $@ 
    122124 
    123 $(TARGET1): $(LLIBS) 
     125$(L32DIR):       
     126        mkdir -p $(L32DIR) 
     127 
     128$(L64DIR):       
     129        mkdir -p $(L64DIR) 
     130 
     131$(TARGET1): $(SRCS) $(HDRS) $(HDR) 
     132        mkdir -p $(L32DIR) 
    124133        $(CC) -c $(DLEAP) $(CFLAGS) $(C32) $(COPT) $(SRCS) 
    125134        ar r $(TARGET1) $(OBJS) 
    126135        -rm -f $(OBJS) 
    127136 
    128 $(TARGET2): $(LLIBS) 
     137$(TARGET2): $(SRCS) $(HDRS) $(HDR) 
     138        mkdir -p $(L32DIR) 
    129139        $(CC) -c $(DLEAP) $(CFLAGS) $(C32) $(CDBG) $(SRCS) 
    130140        ar r $(TARGET2) $(OBJS) 
    131141        -rm -f $(OBJS) 
    132142 
    133 $(TARGET3): $(LLIB) 
     143$(TARGET3): $(SRCS) $(HDRS) $(HDR) 
     144        mkdir -p $(L32DIR) 
    134145        $(CC) -c $(DLEAP) $(CFLAGS) $(C32) $(CNL) $(COPT) $(SRCS) 
    135146        ar r $(TARGET3) $(OBJS) 
    136147        -rm -f $(OBJS) 
    137148 
    138 $(TARGET4): $(LLIBS) 
     149$(TARGET4): $(SRCS) $(HDRS) $(HDR) 
     150        mkdir -p $(L32DIR) 
    139151        $(CC) -c $(DLEAP) $(CFLAGS) $(C32) $(CNL) $(CDBG) $(SRCS) 
    140152        ar r $(TARGET4) $(OBJS) 
    141153        -rm -f $(OBJS) 
    142154 
    143 $(TARGET5): $(LLIBS) 
     155$(TARGET5): $(SRCS) $(HDRS) $(HDR) 
     156        mkdir -p $(L64DIR) 
    144157        $(CC) -c $(DLEAP) $(CFLAGS) $(COPT) $(C64) $(SRCS) 
    145158        ar r $(TARGET5) $(OBJS) 
    146159        -rm -f $(OBJS) 
    147160 
    148 $(TARGET6): $(LLIBS) 
     161$(TARGET6): $(SRCS) $(HDRS) $(HDR) 
     162        mkdir -p $(L64DIR) 
    149163        $(CC) -c $(DLEAP) $(CFLAGS) $(CDBG) $(C64) $(SRCS) 
    150164        ar r $(TARGET6) $(OBJS) 
    151165        -rm -f $(OBJS) 
    152166 
    153 $(TARGET7): $(LLIBS) 
     167$(TARGET7): $(SRCS) $(HDRS) $(HDR) 
     168        mkdir -p $(L64DIR) 
    154169        $(CC) -c $(DLEAP) $(CFLAGS) $(CNL) $(COPT) $(C64) $(SRCS) 
    155170        ar r $(TARGET7) $(OBJS) 
    156171        -rm -f $(OBJS) 
    157172 
    158 $(TARGET8): $(LLIBS) 
     173$(TARGET8): $(SRCS) $(HDRS) $(HDR) 
     174        mkdir -p $(L64DIR) 
    159175        $(CC) -c $(DLEAP) $(CFLAGS) $(CNL) $(CDBG) $(C64) $(SRCS) 
    160176        ar r $(TARGET8) $(OBJS) 
    161177        -rm -f $(OBJS) 
    162178 
    163 lib: 
    164         mkdir -p lib 
    165 lib64: 
    166         mkdir -p lib64 
    167179install:        installall 
    168180 
     
    205217        | gzip > /tmp/$(DIR).tar.gz 
    206218 
    207 #tar: 
    208 #       (cd ..; tar cf - $(DIR)/*.c $(DIR)/*.h $(DIR)/Makefile \ 
    209 #               $(DIR)/*.inc $(DIR)/*.man \ 
    210 #               $(DIR)/lib/$(TARGET1) $(DIR)/lib/$(TARGET2) \ 
    211 #               $(DIR)/lib/$(TARGET3) $(DIR)lib//$(TARGET4) \ 
    212 #               $(DIR)/lib64/$(TARGET5) $(DIR)/lib64/$(TARGET6) \ 
    213 #               $(DIR)/lib64/$(TARGET7) $(DIR)/lib64/$(TARGET8) \ 
    214 #               $(DIR)/README $(DIR)/CHANGES $(DIR)/leapseconds ) \ 
    215 #       | gzip > /tmp/$(DIR).tar.gz 
    216  
    217219$(QLIB2):       FORCE 
    218220        (cd ../qlib2; make) 
  • trunk/src/libsrc/qlib2/README.EW

    r2498 r7457  
     1Downloaded from http://www.ncedc.org/ftp/pub/quanterra/ucb/qlib2.2018.137.tar.gz on 6/1/2018. 
  • trunk/src/libsrc/qlib2/data_hdr_90.inc

    r6803 r7457  
    3838C* 
    3939 
    40 c $Id: data_hdr.inc,v 1.3 2004/04/08 00:45:15 doug Exp $  
     40c $Id: data_hdr_90.inc,v 1.1 2018/05/17 22:52:12 doug Exp $  
    4141 
    4242c 
  • trunk/src/libsrc/qlib2/drm_utils.c

    r6803 r7457  
    1010 
    1111/* 
    12  * Copyright (c) 1996-2011 The Regents of the University of California. 
     12 * Copyright (c) 1996-2018 The Regents of the University of California. 
    1313 * All Rights Reserved. 
    1414 *  
     
    3737 */ 
    3838 
    39 #ifndef lint 
    40 static const char sccsid[] = "$Id$ "; 
    41 #endif 
    42  
    4339#include <stdio.h> 
    4440#include <stdlib.h> 
  • trunk/src/libsrc/qlib2/leapseconds

    r7403 r7457  
    22 
    33# Line below is structured comment parsed by qtime routine. 
    4 # VALID TO: 2017/06/30 
     4# VALID TO: 2018/12/31 
    55 
    66# Updates available at: http://www.ncedc.org/ftp/pub/programs/leapseconds 
  • trunk/src/libsrc/qlib2/ms_pack.c

    r6851 r7457  
    1111 
    1212/* 
    13  * Copyright (c) 1996-2011 The Regents of the University of California. 
     13 * Copyright (c) 1996-2018 The Regents of the University of California. 
    1414 * All Rights Reserved. 
    1515 *  
     
    3737 * UPDATES, ENHANCEMENTS, OR MODIFICATIONS. 
    3838 */ 
    39  
    40 #ifndef lint 
    41 static const char sccsid[] = "$Id$ "; 
    42 #endif 
    4339 
    4440#include <stdio.h> 
  • trunk/src/libsrc/qlib2/ms_pack2.c

    r6851 r7457  
    1010 
    1111/* 
    12  * Copyright (c) 1996-2011 The Regents of the University of California. 
     12 * Copyright (c) 1996-2018 The Regents of the University of California. 
    1313 * All Rights Reserved. 
    1414 *  
     
    3636 * UPDATES, ENHANCEMENTS, OR MODIFICATIONS. 
    3737 */ 
    38  
    39 #ifndef lint 
    40 static const char sccsid[] = "$Id: ms_pack2.c,v 1.7 2013/09/17 18:10:36 doug Exp $ "; 
    41 #endif 
    4238 
    4339#include <stdio.h> 
  • trunk/src/libsrc/qlib2/ms_unpack.c

    r6803 r7457  
    1010 
    1111/* 
    12  * Copyright (c) 1996-2011 The Regents of the University of California. 
     12 * Copyright (c) 1996-2018 The Regents of the University of California. 
    1313 * All Rights Reserved. 
    1414 *  
     
    3636 * UPDATES, ENHANCEMENTS, OR MODIFICATIONS. 
    3737 */ 
    38  
    39 #ifndef lint 
    40 static const char sccsid[] = "$Id$ "; 
    41 #endif 
    4238 
    4339#include <stdlib.h> 
  • trunk/src/libsrc/qlib2/ms_utils.c

    r6803 r7457  
    1111 
    1212/* 
    13  * Copyright (c) 1996-2011 The Regents of the University of California. 
     13 * Copyright (c) 1996-2018 The Regents of the University of California. 
    1414 * All Rights Reserved. 
    1515 *  
     
    3838 */ 
    3939 
    40 #ifndef lint 
    41 static const char sccsid[] = "$Id$ "; 
    42 #endif 
    43  
    4440#include <stdio.h> 
    4541#include <stdlib.h> 
     
    302298    SEED_UWORD  bl_len, bl_next, bl_type; 
    303299    int         bh_len = sizeof(BLOCKETTE_HDR); 
    304     int         blksize = 0; 
     300    int         blksize; 
    305301    int         preread = 0;    /* # bytes of blockette data preread.   */ 
    306302 
     
    437433        if (bl_type == 1000) { 
    438434            blksize = (int)pow(2., (double)((BLOCKETTE_1000 *)(buf+offset))->data_rec_len); 
     435            if (blksize <= 0) fprintf (stderr, "Warning: invalid blksize in blockette 1000\n"); 
    439436        } 
    440437        offset += bl_len; 
     
    465462    BS *bs;                     /* ptr to blockette structure.          */ 
    466463    BLOCKETTE_1000 *b1000;      /* ptr to blockette 1000.               */ 
    467     int format; 
    468464    int blksize; 
    469465    int datasize; 
     
    475471    } 
    476472    b1000 = (BLOCKETTE_1000 *)bs->pb; 
    477     format = b1000->format; 
    478473    blksize = (int)pow (2., (double)b1000->data_rec_len); 
    479474    datasize = (hdr->first_data > 0) ? blksize - hdr->first_data : 0; 
  • trunk/src/libsrc/qlib2/pack.c

    r6803 r7457  
    1111 
    1212/* 
    13  * Copyright (c) 1996-2011 The Regents of the University of California. 
     13 * Copyright (c) 1996-2018 The Regents of the University of California. 
    1414 * All Rights Reserved. 
    1515 *  
     
    3838 */ 
    3939 
    40 #ifndef lint 
    41 static const char sccsid[] = "$Id$ "; 
    42 #endif 
    43  
    4440#include <stdio.h> 
    4541#include <stdlib.h> 
  • trunk/src/libsrc/qlib2/qda_utils.c

    r6803 r7457  
    1010 
    1111/* 
    12  * Copyright (c) 1996-2011 The Regents of the University of California. 
     12 * Copyright (c) 1996-2018 The Regents of the University of California. 
    1313 * All Rights Reserved. 
    1414 *  
     
    3636 * UPDATES, ENHANCEMENTS, OR MODIFICATIONS. 
    3737 */ 
    38  
    39 #ifndef lint 
    40 static const char sccsid[] = "$Id$ "; 
    41 #endif 
    4238 
    4339#include <stdio.h> 
  • trunk/src/libsrc/qlib2/qdefines.h

    r6803 r7457  
    102102#define ISO_CALENDAR    8 
    103103#define ISO_ORDINAL     9 
     104#define ISO_CALENDAR_Z  10 
     105#define ISO_ORDINAL_Z   11 
    104106 
    105107#define TRUE            1 
  • trunk/src/libsrc/qlib2/qlib2_version.h

    r6803 r7457  
    1010 
    1111/* 
    12  * Copyright (c) 1996-2013 The Regents of the University of California. 
     12 * Copyright (c) 1996-2018 The Regents of the University of California. 
    1313 * All Rights Reserved. 
    1414 *  
     
    3939/* Explicitly set overall qlib2 version here by hand.   */ 
    4040#ifndef lint 
    41 char *qlib2_version = "@(#)qlib2 version 1.53 (2013.260)"; 
     41char *qlib2_version = "@(#)qlib2 version 1.55 (2018.137)"; 
    4242#endif 
    4343 
     
    4747Ver     Date and Action 
    4848------------------------------------------------------------------------ 
     491.55    2018.137    DSN 
     50        Fix code to remove all compiler warnings. 
     511.54    2018.005    DSN 
     52        Removed statuc sccs strings. 
    49531.53    2013.260    DSN 
    5054        Updated sccsid string definitions to avoid warnings. 
  • trunk/src/libsrc/qlib2/qtime.c

    r6803 r7457  
    1010 
    1111/* 
    12  * Copyright (c) 1996-2013 The Regents of the University of California. 
     12 * Copyright (c) 1996-2018 The Regents of the University of California. 
    1313 * All Rights Reserved. 
    1414 *  
     
    3636 * UPDATES, ENHANCEMENTS, OR MODIFICATIONS. 
    3737 */ 
    38  
    39 #ifndef lint 
    40 static const char sccsid[] = "$Id$ "; 
    41 #endif 
    4238 
    4339#include <stdio.h> 
     
    348344{ 
    349345    int         i; 
    350     int         status; 
    351346    /*  Search leap second table.   */ 
    352347    if (!lstable.initialized) { 
    353         status = init_leap_second_table(); 
     348        (void)init_leap_second_table(); 
    354349    } 
    355350    for (i=lstable.nleapseconds-1; i>=0; i--) { 
     
    369364{ 
    370365    int         i; 
    371     int         status; 
    372366    /*  Search leap second table.   */ 
    373367    if (!lstable.initialized) { 
    374         status = init_leap_second_table(); 
     368        (void)init_leap_second_table(); 
    375369    } 
    376370    tepoch = floor(tepoch); 
     
    390384{ 
    391385    int         i; 
    392     int         status; 
    393386    /*  Search leap second table.   */ 
    394387    if (!lstable.initialized) { 
    395         status = init_leap_second_table(); 
     388        (void)init_leap_second_table(); 
    396389    } 
    397390    nepoch = floor(nepoch); 
     
    452445    /*  Search leap second table.   */ 
    453446    int i; 
    454     int status; 
    455447 
    456448    if (!lstable.initialized) { 
    457         status = init_leap_second_table(); 
     449        (void)init_leap_second_table(); 
    458450    } 
    459451    for (i=0; i<lstable.nleapseconds; i++) { 
     
    481473    LSINFO      *p; 
    482474    int         i; 
    483     int         status; 
    484475    int         result = 0; 
    485476 
    486477    if (!lstable.initialized) { 
    487         status = init_leap_second_table(); 
     478        (void)init_leap_second_table(); 
    488479    } 
    489480    if ((et.year < 1970) || 
     
    520511    LSINFO      *p; 
    521512    int         i; 
    522     int         status; 
    523513    int         result = 0; 
    524514 
    525515    if (!lstable.initialized) { 
    526         status = init_leap_second_table(); 
     516        (void)init_leap_second_table(); 
    527517    } 
    528518    if ((it.year < 1970) || 
     
    709699    INT_TIME    it, it2; 
    710700    int         leaps; 
    711     int i; 
    712     i = 0; 
     701 
    713702    et = normalize_ext(et); 
    714703    leaps = prior_leaps_in_ext_time (et); 
     
    818807    int         s_p_y; 
    819808    int         leaps; 
    820     int         status; 
    821809    LSINFO      *lp; 
    822810 
    823811    if (!lstable.initialized) { 
    824         status = init_leap_second_table(); 
     812        (void)init_leap_second_table(); 
    825813    } 
    826814    it.year = 1970; 
     
    856844    double      tepoch; 
    857845    int         i; 
    858     int         status; 
    859846    LSINFO      *lp; 
    860847    int         offset = 0; 
     
    862849    /*  Search leap second table.   */ 
    863850    if (!lstable.initialized) { 
    864         status = init_leap_second_table(); 
     851        (void)init_leap_second_table(); 
    865852    } 
    866853    /* Assuming that most time operates are with current time,          */ 
     
    892879    double      nepoch; 
    893880    int         i; 
    894     int         status; 
    895881    LSINFO      *lp; 
    896882    int         offset = 0; 
     
    898884    /*  Search leap second table.   */ 
    899885    if (!lstable.initialized) { 
    900         status = init_leap_second_table(); 
     886        (void)init_leap_second_table(); 
    901887    } 
    902888    /* Assuming that most time operates are with current time,          */ 
     
    926912{ 
    927913    int         i; 
    928     int         status; 
    929914    int         result = ( SEC_PER_DAY * (365 + IS_LEAP(year)) ); 
    930915 
    931916    /*  Search leap second table.   */ 
    932917    if (!lstable.initialized) { 
    933         status = init_leap_second_table(); 
     918        (void)init_leap_second_table(); 
    934919    } 
    935920    for (i=0; i<lstable.nleapseconds; i++) { 
     
    12381223#define YDOY_FMT        2 
    12391224#define YM_FMT          2 
    1240 #define DATE_DELIMS     "/.,-" 
     1225#define DATE_DELIMS     "/.,-T" 
    12411226#define DATETIME_DELIMS "/.,- \tT" 
    12421227/************************************************************************/ 
     
    12521237    /* 
    12531238    Permissible input formats:  
    1254         yyyy/mm/dd/hh:mm:ss.ffff 
    1255         yyyy/mm/dd.hh:mm:ss.ffff 
    1256         yyyy/mm/dd,hh:mm:ss.ffff 
    1257         yyyy/mm/dd hh:mm:ss.ffff 
    1258         yyyy.ddd.hh:mm:ss.ffff 
    1259         yyyy.ddd,hh:mm:ss.ffff 
    1260         yyyy,ddd,hh:mm:ss.ffff 
    1261         yyyy,ddd hh:mm:ss.ffff 
     1239        yyyy/mm/dd/hh:mm:ss.ffffff[Z] 
     1240        yyyy/mm/dd.hh:mm:ss.ffffff[Z] 
     1241        yyyy/mm/dd,hh:mm:ss.ffffff[Z] 
     1242        yyyy/mm/dd hh:mm:ss.ffffff[Z] 
     1243        yyyy.ddd.hh:mm:ss.ffffff[Z] 
     1244        yyyy.ddd,hh:mm:ss.ffffff[Z] 
     1245        yyyy,ddd,hh:mm:ss.ffffff[Z] 
     1246        yyyy,ddd hh:mm:ss.ffffff[Z] 
    12621247    ISO Calendar format: 
    1263         yyyy-mm-ddThh:mm:ss.ffffff 
     1248        yyyy-mm-ddThh:mm:ss.ffffff[Z] 
    12641249    ISO Ordinal format: 
    1265         yyyy-dddThh:mm:ss.ffffff 
     1250        yyyy-dddThh:mm:ss.ffffff[Z] 
    12661251    Epoch formats: 
    12671252        numberT or numbert - true epoch time 
     
    12761261        ss = second (0-59) 
    12771262        ffff = fractional part of second (to 4 or 6 digits) 
     1263        Z = optional timezone.  Only UTC (Z) supported. 
    12781264    The time is optional.  If not specified, it is 00:00:00.0000 
    12791265    */ 
     
    13161302    /* Skip any leading blanks in the string. */ 
    13171303    for (p=str; p!=q && *p == ' '; p++) ; 
    1318     for (p=p; p!=q; p++) { 
     1304    for (; p!=q; p++) { 
    13191305        if (strchr(DATETIME_DELIMS,*p)) ++ndelim; 
    13201306        /* Skip consecutive blanks. */ 
     
    13491335        if (strchr(DATE_DELIMS, *delim) == NULL) SYNTAX_ERROR 
    13501336        if (format == YMD_FMT) { 
    1351             /* Syntax should be yy/mm/dd    */ 
     1337            /* Syntax should be yyyy/mm/dd or yyyy-mm-dd        */ 
    13521338            p = ++delim; 
    13531339            et.month = (int)strtol (p, &delim, 10); 
     
    13641350        } 
    13651351        else { 
    1366             /* Syntax should be yy.ddd      */ 
     1352            /* Syntax should be yyyy.ddd or yyyy-ddd        */ 
    13671353            p = ++delim; 
    13681354            et.doy= strtol (p, &delim, 10); 
     
    13741360     
    13751361        /* Parse time.  */ 
    1376         if (*delim == 0 || delim == eos) break; 
     1362        if (*delim == 0 || delim == eos || *delim == 'Z') break; 
    13771363        if (strchr(DATETIME_DELIMS, *delim) == NULL) SYNTAX_ERROR 
    13781364        /* Skip consecutive blanks. */ 
     
    13831369        if (et.hour < 0 || et.hour >= 24) SYNTAX_ERROR 
    13841370 
    1385         if (*delim == 0 || delim == eos) break; 
     1371        if (*delim == 0 || delim == eos || *delim == 'Z') break; 
    13861372        if (*delim != ':') SYNTAX_ERROR 
    13871373        p = ++delim; 
     
    13901376        if (et.minute < 0 || et.hour >= 60) SYNTAX_ERROR 
    13911377 
    1392         if (*delim == 0 || delim == eos) break; 
     1378        if (*delim == 0 || delim == eos || *delim == 'Z') break; 
    13931379        if (*delim != ':') SYNTAX_ERROR 
    13941380        p = ++delim; 
     
    13981384        if (et.second < 0 || et.hour > 60) SYNTAX_ERROR 
    13991385 
    1400         if (*delim == 0 || delim == eos) break; 
     1386        if (*delim == 0 || delim == eos || *delim == 'Z') break; 
    14011387        if (*delim != '.') SYNTAX_ERROR 
    14021388        p = ++delim; 
     
    14041390        et.usec = strtol(p, &delim, 10); 
    14051391        if (delim == p && p != eos) SYNTAX_ERROR 
    1406         if (! (*delim == 0 || delim == eos)) SYNTAX_ERROR 
     1392        if (! (*delim == 0 || delim == eos || *delim == 'Z')) SYNTAX_ERROR 
    14071393        nd = delim-p; 
    14081394        if (nd < 0 || nd > 6) SYNTAX_ERROR 
     
    14511437    int         error = 0; 
    14521438    static INT_TIME     it; 
    1453     int         format; 
    1454     int         ndelim; 
    14551439 
    14561440    et.year = et.doy = et.month = et.day = 0; 
    14571441    et.hour = et.minute = et.second = et.usec = 0; 
    14581442 
    1459     ndelim = 0; 
    14601443    eos = str + strlen(str); 
    14611444    while (eos > str && *(eos-1) == ' ') --eos; 
     
    14631446    /* Skip any leading blanks in the string. */ 
    14641447    for (p=str; p!=q && *p == ' '; p++) ; 
    1465     format=YM_FMT; 
    14661448 
    14671449    for (trip=0; trip<1; trip++) { 
     
    18901872{ 
    18911873    int i; 
    1892     int status; 
    18931874    LSINFO *lp; 
    18941875 
    18951876    if (!lstable.initialized) { 
    1896         status = init_leap_second_table(); 
     1877        (void)init_leap_second_table(); 
    18971878    } 
    18981879    printf ("initialized = %d\n", lstable.initialized); 
  • trunk/src/libsrc/qlib2/qtime.h

    r6803 r7457  
    1010 
    1111/* 
    12  * Copyright (c) 1996-2002 The Regents of the University of California. 
     12 * Copyright (c) 1996-2018 The Regents of the University of California. 
    1313 * All Rights Reserved. 
    1414 *  
  • trunk/src/libsrc/qlib2/qutils.c

    r6803 r7457  
    1010 
    1111/* 
    12  * Copyright (c) 1996-2011 The Regents of the University of California. 
     12 * Copyright (c) 1996-2018 The Regents of the University of California. 
    1313 * All Rights Reserved. 
    1414 *  
     
    3636 * UPDATES, ENHANCEMENTS, OR MODIFICATIONS. 
    3737 */ 
    38  
    39 #ifndef lint 
    40 static const char sccsid[] = "$Id$ "; 
    41 #endif 
    4238 
    4339#include <stdio.h> 
  • trunk/src/libsrc/qlib2/sdr_utils.c

    r6803 r7457  
    1010 
    1111/* 
    12  * Copyright (c) 1996-2011 The Regents of the University of California. 
     12 * Copyright (c) 1996-2018 The Regents of the University of California. 
    1313 * All Rights Reserved. 
    1414 *  
     
    3636 * UPDATES, ENHANCEMENTS, OR MODIFICATIONS. 
    3737 */ 
    38  
    39 #ifndef lint 
    40 static const char sccsid[] = "$Id$ "; 
    41 #endif 
    4238 
    4339#include <stdio.h> 
  • trunk/src/libsrc/qlib2/unpack.c

    r7404 r7457  
    1111 
    1212/* 
    13  * Copyright (c) 1996-2011 The Regents of the University of California. 
     13 * Copyright (c) 1996-2018 The Regents of the University of California. 
    1414 * All Rights Reserved. 
    1515 *  
     
    3737 * UPDATES, ENHANCEMENTS, OR MODIFICATIONS. 
    3838 */ 
    39  
    40 #ifndef lint 
    41 static const char sccsid[] = "$Id$ "; 
    42 #endif 
    4339 
    4440#include <stdio.h> 
     
    487483} 
    488484 
     485/* Macro to return i-th bit of byte c (bit 0 is least signficant bit).  */ 
     486#define getbit(c,i) ((unsigned char)c >> i & ~((unsigned char)~0 << 1)) 
     487 
    489488/************************************************************************/ 
    490489/*  unpack_int_24:                                                      */ 
     
    535534        if (swapflag) swab3 ((unsigned char *)&tmp.byte[sbc]); 
    536535        /* Propogate sign bit.                                          */ 
    537         tmp.byte[sb32] = (tmp.byte[sb24] < 0) ? 0xff : 0x00; 
     536        tmp.byte[sb32] = (getbit(tmp.byte[sb24],7)) ? 0xff : 0x00; 
    538537        databuff[nd] = tmp.fw; 
    539538        ibuf += 3; 
Note: See TracChangeset for help on using the changeset viewer.