Mention `test' directory.
[emacs.git] / oldXMenu / FindSel.c
blob4f8aefb3457d49eea7a9a72388ce23c82dab7f7f
1 #include "copyright.h"
3 /* Copyright Massachusetts Institute of Technology 1985 */
4 /* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006, 2007, 2008 Free Software Foundation, Inc. */
7 /*
8 * XMenu: MIT Project Athena, X Window system menu package
10 * XMenuFindSelection - Find the first selection in a pane who's
11 * label matches a particular string.
13 * Author: Tony Della Fera, DEC
14 * January 22, 1986
18 #include "XMenuInt.h"
20 int
21 XMenuFindSelection(menu, p_num, label)
22 register XMenu *menu;
23 int p_num;
24 register char *label;
26 register XMPane *p_ptr;
27 register XMSelect *s_ptr;
28 register int i = 0;
31 * Check for NULL pointers!
33 if (label == NULL) {
34 _XMErrorCode = XME_ARG_BOUNDS;
35 return(XM_FAILURE);
39 * Find the right pane.
41 p_ptr = _XMGetPanePtr(menu, p_num);
42 if (p_ptr == NULL) return(XM_FAILURE);
45 * Find the right selection.
47 for (
48 s_ptr = p_ptr->s_list->next;
49 s_ptr != p_ptr->s_list;
50 s_ptr = s_ptr->next
52 if (s_ptr->label_length == 0) {
53 if (*label == '\0') {
54 _XMErrorCode = XME_NO_ERROR;
55 return (i);
58 else {
59 if (strncmp (label, s_ptr->label, s_ptr->label_length) == 0) {
60 _XMErrorCode = XME_NO_ERROR;
61 return (i);
64 i++;
68 * If we get here then we have not found
69 * a match.
71 _XMErrorCode = XME_S_NOT_FOUND;
72 return (XM_FAILURE);
75 /* arch-tag: 564a4a95-9ab0-4580-b05f-6970c4b25dd4
76 (do not change this comment) */