Candidate_v1.7.0
stable
| Rev | Line | |
|---|
| [0b990d] | 1 | /*!
|
|---|
| 2 | \file toclast.c
|
|---|
| 3 | \ingroup (PSIO)
|
|---|
| 4 | */
|
|---|
| 5 |
|
|---|
| 6 | #include <util/psi3/libpsio/psio.h>
|
|---|
| 7 |
|
|---|
| 8 | namespace psi3 {
|
|---|
| 9 | namespace libpsio {
|
|---|
| 10 |
|
|---|
| 11 | /*!
|
|---|
| 12 | ** PSIO_TOCLAST(): Returns the last TOC entry.
|
|---|
| 13 | **
|
|---|
| 14 | ** \ingroup (PSIO)
|
|---|
| 15 | */
|
|---|
| 16 |
|
|---|
| 17 | psio_tocentry *psio_toclast(unsigned int unit)
|
|---|
| 18 | {
|
|---|
| 19 | psio_tocentry *this_entry;
|
|---|
| 20 |
|
|---|
| 21 | this_entry = psio_unit[unit].toc;
|
|---|
| 22 |
|
|---|
| 23 | while(this_entry->next != NULL) this_entry = this_entry->next;
|
|---|
| 24 |
|
|---|
| 25 | return(this_entry);
|
|---|
| 26 | }
|
|---|
| 27 |
|
|---|
| 28 | }
|
|---|
| 29 | }
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
