File: patexit.c

package info (click to toggle)
yodl 4.05.02-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 4,724 kB
  • sloc: ansic: 7,803; perl: 683; cpp: 570; sh: 411; xml: 190; makefile: 163
file content (19 lines) | stat: -rw-r--r-- 405 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#include "parser.ih"

bool p_atexit(register Parser *pp)
{
    register char const *tos;

    if (!stack_size(&pp->d_atexit_st))
        return false;

    tos = stack_tos(&pp->d_atexit_st)->u_charCp;

    if (message_show(MSG_INFO | MSG_DEBUG))
        message("Pushing ATEXIT string `%s'", string_short(tos));

    lexer_push_str(&pp->d_lexer, tos);
    stack_pop(&pp->d_atexit_st);

    return true;
}