1/*
2 * Copyright (c) 1980, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
--- 360 unchanged lines hidden (view full) ---
369 goto skip;
370 if (isproc(s)) {
371 ps("'FN ");
372 ps(pname);
373 ps("\n");
374 if (psptr < PSMAX) {
375 ++psptr;
376 strncpy (pstack[psptr], pname, PNAMELEN);
377 pstack[psptr][PNAMELEN] = '\0';
378 plstack[psptr] = blklevel;
379 }
380 }
381skip:
382 do {
383 /* check for string, comment, blockstart, etc */
384 if (!incomm && !instr && !inchr) {
385
--- 339 unchanged lines hidden ---
2 * Copyright (c) 1980, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
--- 360 unchanged lines hidden (view full) ---
369 goto skip;
370 if (isproc(s)) {
371 ps("'FN ");
372 ps(pname);
373 ps("\n");
374 if (psptr < PSMAX) {
375 ++psptr;
376 strncpy (pstack[psptr], pname, PNAMELEN);
377 pstack[psptr][PNAMELEN] = '\0';
378 plstack[psptr] = blklevel;
379 }
380 }
381skip:
382 do {
383 /* check for string, comment, blockstart, etc */
384 if (!incomm && !instr && !inchr) {
385
--- 339 unchanged lines hidden ---