代码搜索结果
找到约 10,000 项符合
G 的代码
autotest_g
#!/bin/sh
#
#
#
# Copyright 1990-2007 Sun Microsystems, Inc. All Rights Reserved.
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER
#
# This program is free software; you can redistri
installmidlet_g
#!/bin/sh
#
#
#
# Copyright 1990-2007 Sun Microsystems, Inc. All Rights Reserved.
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER
#
# This program is free software; you can redistr
autotest_g
#!/bin/sh
#
#
#
# Copyright 1990-2007 Sun Microsystems, Inc. All Rights Reserved.
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER
#
# This program is free software; you can redistr
tt.g
server := shell("./testcl",async = T)
print $value
whenever server->stdout do
{
print $value
server->stdin("hello")
}
server->stdin("Hello")
server->stdin("hello")
ssqrt.g
# Create a "shell" client using the program "shell_sqrt". The "async=T"
# means that this shell program should run *asynchronously*; i.e., Glish
# should not wait for it to produce a value and exit b
popup.g
func popup(msg, title = '')
{
local p := client("tkclient gbutton.tk popup.tk")
local result :=
request p->TclN( [
paste('popup .p {', msg, '}'),
'pack .p',
paste('wm title . {', tit
filechooser.g
# Creates a file chooser for the given directory, starting with the
# given title. Returns the name of the file chosen, or an empty (0-length)
# string if "cancel" was selected.
func filechooser(dir
g++.exp
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 2000, 2001, 2002
# Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of th
g.c
foo (a, b)
long long a, b;
{
if (a == b)
return 0;
else
return 1;
}
g++.exp
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 2000, 2001, 2002
# Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of th