← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to prim/tw3/libsrc/thtest.c

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
prim/tw3/libsrc/thtest.c
 
1
/* @(#)thtest.c 19.1 (ES0-DMD) 02/25/03 14:12:48 */
 
2
/*===========================================================================
 
3
  Copyright (C) 1995 European Southern Observatory (ESO)
 
4
 
 
5
  This program is free software; you can redistribute it and/or 
 
6
  modify it under the terms of the GNU General Public License as 
 
7
  published by the Free Software Foundation; either version 2 of 
 
8
  the License, or (at your option) any later version.
 
9
 
 
10
  This program is distributed in the hope that it will be useful,
 
11
  but WITHOUT ANY WARRANTY; without even the implied warranty of
 
12
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
13
  GNU General Public License for more details.
 
14
 
 
15
  You should have received a copy of the GNU General Public 
 
16
  License along with this program; if not, write to the Free 
 
17
  Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
 
18
  MA 02139, USA.
 
19
 
 
20
  Corresponding concerning ESO-MIDAS should be addressed as follows:
 
21
        Internet e-mail: midas@eso.org
 
22
        Postal address: European Southern Observatory
 
23
                        Data Management Division 
 
24
                        Karl-Schwarzschild-Strasse 2
 
25
                        D 85748 Garching bei Muenchen 
 
26
                        GERMANY
 
27
===========================================================================*/
 
28
 
 
29
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
30
.TYPE           Program
 
31
.NAME           thtest.c
 
32
.LANGUAGE       C
 
33
.AUTHOR         Francois Ochsenbein [ESO-IPG]
 
34
.CATEGORY       Help 
 
35
.COMMENTS       Test of th (hierarchical help) routines
 
36
.ENVIRONMENT    TermWindows
 
37
.VERSION  2.1   (Version '2' of TermWindows)
 
38
.VERSION  2.2   02-Jul-1987: Merging with TermDisplay.
 
39
.VERSION  2.3   02-Dec-1987: Usage of WhileInput
 
40
------------------------------------------------------------*/
 
41
 
 
42
#define PM_LEVEL        2
 
43
 
 
44
#include <twhelp.h>
 
45
#include <trace.h>
 
46
#include <macrogen.h>
 
47
#include <pgm.h>
 
48
 
 
49
static TWHELP *help;
 
50
 
 
51
 
 
52
/*===========================================================================*/
 
53
PGM(thtest)
 
54
/*+++++++
 
55
.PURPOSE Just test the Help until the Interrupt
 
56
.RETURNS 
 
57
--------*/
 
58
{
 
59
        BUFFER *th_file();
 
60
        WINDOW  *wd;
 
61
        int     status;
 
62
        char    ch;
 
63
        static  char file[40];
 
64
 
 
65
  SaveParms();
 
66
  OpenLog       ("thtest.log","Testing TH (Help) facilities"); 
 
67
  LogLevel      (GetOption('t')); 
 
68
  SaveParms();
 
69
 
 
70
  if_not (InitWindows(GetTerminalName(), (char *)0, -1)) {
 
71
        fi_puts (2, "****Bad Terminal Initialisation (see Log File)");
 
72
        return;
 
73
  }
 
74
  
 
75
  wd = OpenWindow("Main Dialogue", -3, -40, 3, 40, _NORMAL_, 
 
76
        _BORDER_, 0);
 
77
  /*    _BORDER_|_BORDER2_, 0); */
 
78
 
 
79
#if 0
 
80
  Put(wd, "Hash factor: ");
 
81
  ActiveWindow(wd);
 
82
  Gets(wd, file, sizeof(file));
 
83
  ClearWindow(wd);
 
84
  h_factor(atoi(file));
 
85
#endif
 
86
  
 
87
  ActiveWindow(wd);
 
88
#if 0
 
89
  Put(wd, "Tracing level: ");
 
90
  Gets(wd, file, sizeof(file));
 
91
  LogLevel(atoi(file));
 
92
  ClearWindow(wd);
 
93
#endif
 
94
 
 
95
  Put(wd,"File: ");
 
96
  while (1) {
 
97
        status = Gets(wd, file, sizeof(file));
 
98
        if (status < 0) break;
 
99
        ClearWindow(wd);
 
100
        if(help = th_init(file, NULL_WINDOW, NULL_WINDOW, NULL_WINDOW)) 
 
101
                break;
 
102
        SetAttr(wd, _BOLD_|_BLINK_|_REVERSE_);
 
103
        Put(wd,"File ? ");
 
104
        SetAttr(wd, _NORMAL_);
 
105
  }
 
106
  
 
107
  while (status >= 0) {
 
108
        th_help(help, "", 0);
 
109
        RaiseWindow(wd);
 
110
        Put(wd, "Returned in main program...");
 
111
        status = GetKey(wd, &ch);
 
112
        ClearWindow(wd);
 
113
  }
 
114
 
 
115
  tx_list();
 
116
  EndWindows();
 
117
  return;
 
118
}