← Back to branch summary

~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to routines/system/xchar.f

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2005-01-09 22:58:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050109225821-473xr8vhgugxxx5j
Tags: 3.0-12
http://bugs.debian.org/255869
changed configure.in to build scilab's own malloc.o, closes: #255869

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/system/xchar.f
1
 
      subroutine xchar(line,k)
2
 
c     ======================================================================
3
 
c     routine systeme dependente  pour caracteres speciaux
4
 
c     ======================================================================
5
 
c     fin de ligne : retourner k=eof
6
 
c     ignorer le caractere : retourner k=0
7
 
c
8
 
c     Copyright INRIA
9
 
      include '../stack.h'
10
 
c
11
 
      integer blank,eof
12
 
      integer k,ic
13
 
      character line*(*)
14
 
      data blank/40/,eof/99/
15
 
c
16
 
      ic=ichar(line(1:1))
17
 
      if(ic.eq.0) then
18
 
c     prise en compte de la marque de fin de chaine C
19
 
c     dans le cas d'un appel de scilab par un programme C
20
 
         k=eof
21
 
      elseif(ic.eq.9) then
22
 
c     tab remplace par un blanc
23
 
         k=blank+1
24
 
      elseif(ic.eq.10) then
25
 
c     \n remplace par un eol
26
 
         k=eof
27
 
      else
28
 
         k=eof+1+ic+1
29
 
      endif
30
 
      return 
31
 
      end