← Back to branch summary

~ubuntu-branches/ubuntu/precise/ncurses/precise

« back to all changes in this revision

Viewing changes to Ada95/samples/ncurses2-getopt.adb

  • Committer: Bazaar Package Importer
  • Author(s): Scott James Remnant
  • Date: 2008-11-11 16:40:32 UTC
  • mfrom: (1.1.6 upstream)
  • Revision ID: james.westby@ubuntu.com-20081111164032-dudxd0hy2im0f2bj
Tags: 5.7-2ubuntu1
* Merge from debian unstable, remaining changes:
  - On amd64, use /{,usr/}lib32 instead of /emul/ia32-linux/.
  - Link using -Bsymbolic-functions.
  - Don't install the upstream changelog in the runtime library packages.

* Install wide-character patches into /{,usr/}lib32 as well.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Ada95/samples/ncurses2-getopt.adb
7
7
--                                 B O D Y                                  --
8
8
--                                                                          --
9
9
------------------------------------------------------------------------------
 
10
-- Copyright (c) 2000-2004,2008 Free Software Foundation, Inc.              --
10
11
--                                                                          --
11
12
-- Permission is hereby granted, free of charge, to any person obtaining a  --
12
13
-- copy of this software and associated documentation files (the            --
35
35
------------------------------------------------------------------------------
36
36
--  Author: Eugene V. Melaragno <aldomel@ix.netcom.com> 2000
37
37
--  Version Control
 
38
--  $Revision: 1.7 $
 
39
--  $Date: 2008/07/26 18:46:44 $
38
40
--  Binding Version 01.00
39
41
------------------------------------------------------------------------------
40
42
--  A simplified version of the  GNU getopt function
132
132
                  Put_Line (Standard_Error,
133
133
                            argv (optind) &
134
134
                            ": option requires an argument -- " & c);
135
 
                  if optstring (1) = ':'  then
 
135
                  if optstring (optstring'First) = ':'  then
136
136
                     c := ':';
137
137
                  else
138
138
                     c := '?';