76 lines
2.7 KiB
C
76 lines
2.7 KiB
C
|
/*-*- mode:c;indent-tabs-mode:t;c-basic-offset:8;tab-width:8;coding:utf-8 -*-│
|
||
|
|
│vi: set et ft=c ts=8 sw=8 fenc=utf-8 :vi│
|
||
|
|
└─────────────────────────────────────────────────────────────────────────────*/
|
||
|
|
/* clang-format off */
|
||
|
|
/* $OpenBSD: scanflags.c,v 1.3 2015/11/19 23:20:34 tedu Exp $ */
|
||
|
|
|
||
|
|
/* scanflags - flags used by scanning. */
|
||
|
|
|
||
|
|
/* Copyright (c) 1990 The Regents of the University of California. */
|
||
|
|
/* All rights reserved. */
|
||
|
|
|
||
|
|
/* This code is derived from software contributed to Berkeley by */
|
||
|
|
/* Vern Paxson. */
|
||
|
|
|
||
|
|
/* The United States Government has rights in this work pursuant */
|
||
|
|
/* to contract no. DE-AC03-76SF00098 between the United States */
|
||
|
|
/* Department of Energy and the University of California. */
|
||
|
|
|
||
|
|
/* This file is part of flex. */
|
||
|
|
|
||
|
|
/* Redistribution and use in source and binary forms, with or without */
|
||
|
|
/* modification, are permitted provided that the following conditions */
|
||
|
|
/* are met: */
|
||
|
|
|
||
|
|
/* 1. Redistributions of source code must retain the above copyright */
|
||
|
|
/* notice, this list of conditions and the following disclaimer. */
|
||
|
|
/* 2. Redistributions in binary form must reproduce the above copyright */
|
||
|
|
/* notice, this list of conditions and the following disclaimer in the */
|
||
|
|
/* documentation and/or other materials provided with the distribution. */
|
||
|
|
|
||
|
|
/* Neither the name of the University nor the names of its contributors */
|
||
|
|
/* may be used to endorse or promote products derived from this software */
|
||
|
|
/* without specific prior written permission. */
|
||
|
|
|
||
|
|
/* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR */
|
||
|
|
/* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED */
|
||
|
|
/* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR */
|
||
|
|
/* PURPOSE. */
|
||
|
|
|
||
|
|
#include "libc/mem/mem.h"
|
||
|
|
#include "libc/assert.h"
|
||
|
|
#include "third_party/lex/flexdef.h"
|
||
|
|
|
||
|
|
scanflags_t* _sf_stk = NULL;
|
||
|
|
size_t _sf_top_ix=0, _sf_max=0;
|
||
|
|
|
||
|
|
void
|
||
|
|
sf_push (void)
|
||
|
|
{
|
||
|
|
if (_sf_top_ix + 1 >= _sf_max)
|
||
|
|
_sf_stk = (scanflags_t*) realloc ( (void*) _sf_stk, sizeof(scanflags_t) * (_sf_max += 32));
|
||
|
|
|
||
|
|
// copy the top element
|
||
|
|
_sf_stk[_sf_top_ix + 1] = _sf_stk[_sf_top_ix];
|
||
|
|
++_sf_top_ix;
|
||
|
|
}
|
||
|
|
|
||
|
|
void
|
||
|
|
sf_pop (void)
|
||
|
|
{
|
||
|
|
assert(_sf_top_ix > 0);
|
||
|
|
--_sf_top_ix;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* one-time initialization. Should be called before any sf_ functions. */
|
||
|
|
void
|
||
|
|
sf_init (void)
|
||
|
|
{
|
||
|
|
assert(_sf_stk == NULL);
|
||
|
|
_sf_stk = (scanflags_t*) malloc ( sizeof(scanflags_t) * (_sf_max = 32));
|
||
|
|
if (!_sf_stk)
|
||
|
|
lerrsf_fatal(_("Unable to allocate %ld of stack"),
|
||
|
|
(void *)sizeof(scanflags_t));
|
||
|
|
_sf_stk[_sf_top_ix] = 0;
|
||
|
|
}
|